diff --git a/gui.pl b/gui.pl index 761ac4c..f549275 100644 --- a/gui.pl +++ b/gui.pl @@ -1,13 +1,13 @@ % erstmal nur experimentell, der bums kommt zum schluss % falls noch zeit sein sollte jedenfalls - % new(@specifier, dialog('windowname')) % send(@specifiert, append(text_item(name))) window(Name) :- new(D, dialog(Name)), send(D, append, button(init, message(@prolog, init_feld1))), send(D, append, button(show, message(@prolog, window3, 'Spielfeld'))), + send(D, append, button(newbutton, message(@prolog, new_butt, D))), send(D, open). window2(Name) :- @@ -21,6 +21,9 @@ window2(Name) :- send(D, open). +new_butt(D) :- + send(D, append, button(penis, message(@prolog, init_feld1))). + % Specific für window3/1 :- use_module(library(tabular)). :- use_module(library(autowin)). diff --git a/logik.pl b/logik.pl index 8bedf0e..759fd47 100644 --- a/logik.pl +++ b/logik.pl @@ -12,6 +12,6 @@ player_turn(Player) :- - + % end of turn % save remaining ap save_action_points(Player) \ No newline at end of file