From 0047149cb5eff1d2bb73fff38daf8db655a29299 Mon Sep 17 00:00:00 2001
From: hirwamihigo <raissa.hirwamihigo@student.uclouvain.be>
Date: Sat, 18 Dec 2021 16:13:25 +0100
Subject: [PATCH] Show Message function added

---
 Player020Human.oz | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/Player020Human.oz b/Player020Human.oz
index f0c429a..5fe7329 100644
--- a/Player020Human.oz
+++ b/Player020Human.oz
@@ -391,6 +391,18 @@ define
         end
     end
 
+    proc{ShowMessages ID Msg}
+        M R
+    in
+        Desc=message(aspect:200
+                    init:Msg 
+                    handle:M
+                    )
+        CloseButton = button(text:Close glue: se action:toplevel#close)
+        {{QTk.build td(Desc CloseButton)} show}
+        
+    end
+
 
     proc{DeadTreatStream Stream State}
         case Stream 
-- 
GitLab