Графические интерфейсы на базе SWI-Prolog/XPCE не запускается

%
ask_name(Name) :-
        new(D, dialog('Register')),
        send(D, append(new(NameItem, text_item(name)))),
        send(D, append(button(ok, message(D, return,
                                          NameItem?selection)))),
        send(D, append(button(cancel, message(D, return, @nil)))),
        send(D, default_button(ok)),
        get(D, confirm, Rval),
        free(D),
        Rval \== @nil,
        Name = Rval.
 
%
ask_employee :-
    new(Dialog, dialog('Define employee')),
    send_list(Dialog, append,
    [ new(N1, text_item(first_name)),
      new(N2, text_item(family_name)),
      new(S, new(S, menu(sex))),
      new(A, int_item(age, low := 18, high := 65)),
      new(D, menu(department, cycle)),
      button(cancel, message(Dialog, destroy)),
      button(enter,
               and(
                   message(@prolog,
                   assert_employee,
                   N1?selection,
                   N2?selection,
                   S?selection,
                   A?selection,
                   D?selection),
               message(Dialog, destroy) ) )
    ]),
    send_list(S, append, [male, female]),
    send_list(D, append, [research, development, marketing]),
    send(Dialog, default_button, enter),
    send(Dialog, open).
 
assert_employee(FirstName, FamilyName, Sex, Age, Depth) :-
 format(
         'Adding ~w ~w ~w, age ~w, working at ~w~n',
         [Sex, FirstName, FamilyName, Age, Depth]
       ).
 
%
layoutdemo1 :-
    new(D, dialog('Layout Demo 1')),
    send(D, append, new(BTS, dialog_group(buttons, group))),
    send(BTS, gap, size(0, 30)),
    send(BTS, append, button(add)),
    send(BTS, append, button(rename), below),
    send(BTS, append, button(delete), below),
    send(BTS, layout_dialog),
    send(D, append, new(LB, list_browser), right),
    send(D, append, new(TI, text_item(name, ''))),
    send(LB, alignment, left),
    send(D, layout),
    send(LB, bottom_side, BTS?bottom_side),
    send(LB, right_side, TI?right_side),
    send(D, open).