1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| :-module(chaine,[chain/0]).
:-use_module(aproposde).
:-use_module(principal).
:-use_module(aide).
chain:-
new(D,dialog('chaine')),
send(D,append,new(BTS,dialog_group(buttons,group))),
send(BTS,gap,size(10,10)),
send(BTS,append,button(menu,and(message(@prolog,princi),message(D,destroy))),below),
send(BTS,append,button(autres_algorithmes,message(D,destroy)),right),
send(BTS,append,button(à_propos_de,message(@prolog,t),right)),
send(BTS,append,button(modeles_predefinis,message(D,destroy)),right),
send(BTS,append,button(aide,message(@prolog,aid)),right),
send(BTS,append,button(quitter,message(D,destroy)),right),
send(BTS,layout_dialog),
send(D,layout),
send(D,append,new(F,window),below),
send(D,open). |
Partager