From dfaa03b5dfe540d690c1d02dbf5899687f946c2e Mon Sep 17 00:00:00 2001
From: xxsoca <xxsoca@gmail.com>
Date: Fri, 23 Jun 2023 14:35:26 +0200
Subject: [PATCH] End Turn Button

---
 gui.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/gui.pl b/gui.pl
index 9d713ec..ce1c3e4 100644
--- a/gui.pl
+++ b/gui.pl
@@ -280,6 +280,7 @@ show_controls(D) :-
 	send(Controls, append, new(ToX,text_item('X:'))),
 	send(Controls, append, new(ToY,text_item('Y:'))),
 	send(Controls, append, button('Bestaetigen',message(@prolog, process_move_unit, FromX, FromY, ToX, ToY, Controls))),
+	send(Controls, append, button('Zug Beenden',message(@prolog, process_end_turn))),
 	%send(D, left, Controls),
 	send(Controls, open),
 	assert(game_control(Controls)).
@@ -309,6 +310,12 @@ process_move_unit(FromX, FromY, ToX, ToY, Controls) :-
 	update_controls,
 	spielfeld.
 
+process_end_turn :-
+	game_control(Controls),
+	end_turn,
+	update_controls,
+	spielfeld.
+
 %TODO delete
 test_change :-
 	new(D, dialog),