Show Message function added

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