--- a/ModalBox.st	Fri Apr 23 16:55:44 1999 +0200
+++ b/ModalBox.st	Fri Apr 23 16:58:02 1999 +0200
@@ -873,11 +873,23 @@
     "
 
     "Modified: 7.3.1996 / 17:58:53 / cg"
+!
+
+unmapped
+    "mhmh - unmapped by the windowManager - if realized (i.e. not closing),
+     keep the realized flag true (to avoid exiting the modal event loop).
+     Consider this a kludge."
+
+    |r|
+
+    r := realized.
+    super unmapped.
+    realized := r.
 ! !
 
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.63 1999-03-05 10:40:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.64 1999-04-23 14:58:02 cg Exp $'
 ! !
 ModalBox initialize!