Hallo zusammen, ich bin noch Anfänger in SWI-Prolog, und möchte versuchsweise ein Menu erstellen, mit
folgendem Code. Beim Aufklappen des Menü file erscheint ein leeres Fenster, und das Programm hängt.
Weiss jemand Rat ?
:-use_module(library(pce)).
load1:-writeln('load1').
save1:-writeln('save1').
t2:-new(D, dialog('MeinMenu')),
send(D, append, new(MB, menu_bar)),
send(MB, append, new(F, popup(file))),
send_list(F, append, [menu_item(load, message(@prolog, load1)),
menu_item(save, message(@prolog, save1))]).
send(D, open).