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