--- a/SimpleView.st	Wed Jul 08 13:49:49 2009 +0200
+++ b/SimpleView.st	Thu Jul 09 21:34:40 2009 +0200
@@ -9997,7 +9997,9 @@
     |tops mainView mainViewID previousGroup |
 
     self isPopUpView ifFalse:[
-        Dialog aboutToOpenBoxNotificationSignal raiseRequestWith:self.
+        (Dialog aboutToOpenBoxNotificationSignal raiseRequestWith:self) == #abort ifTrue:[
+            ^ self
+        ].
 
         mainGroup notNil ifTrue:[
             (tops := mainGroup topViews) notNil ifTrue:[
@@ -10409,7 +10411,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.634 2009-07-08 11:49:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.635 2009-07-09 19:34:40 cg Exp $'
 ! !
 
 SimpleView initialize!