ModalBox.st
changeset 1314 99e3347abb6c
parent 1263 f5af4e2abd71
child 1397 932c517ad29c
--- a/ModalBox.st	Sat Feb 08 15:25:50 1997 +0100
+++ b/ModalBox.st	Sat Feb 08 17:44:02 1997 +0100
@@ -500,6 +500,8 @@
 
     |p|
 
+    realized ifFalse:[^ self].
+
     shadowView notNil ifTrue:[shadowView unmap].
     windowGroup notNil ifTrue:[windowGroup focusView:nil].
     exclusiveKeyboard ifTrue:[
@@ -523,7 +525,7 @@
     ].
 
     "Modified: 3.5.1996 / 23:47:57 / stefan"
-    "Modified: 12.5.1996 / 21:54:22 / cg"
+    "Modified: 8.2.1997 / 17:41:16 / cg"
 !
 
 hideRequest
@@ -832,6 +834,6 @@
 !ModalBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.51 1997-01-22 17:24:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ModalBox.st,v 1.52 1997-02-08 16:44:02 cg Exp $'
 ! !
 ModalBox initialize!