From 35cab67ab5b9e9c26ce4b9e9b737c5fead9214da Mon Sep 17 00:00:00 2001 From: xxsoca Date: Mon, 22 May 2023 16:45:00 +0200 Subject: [PATCH] gui changes --- gui.pl | 5 ++++- logik.pl | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) 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