bugfix: #hide
authorca
Wed, 10 Jun 2009 12:54:50 +0200
changeset 5284 03feaa9943db
parent 5283 1ed049b57dc0
child 5285 6dfae0d329e6
bugfix: #hide
TopView.st
--- a/TopView.st	Tue Jun 02 17:00:26 2009 +0200
+++ b/TopView.st	Wed Jun 10 12:54:50 2009 +0200
@@ -1067,13 +1067,13 @@
         myApplication := self application.
 
         (myApplication notNil 
-        and:[ myApplication ~= masterGroup application]) ifTrue:[
+        and:[ masterGroup isNil or:[myApplication ~= masterGroup application]]) ifTrue:[
             AbortOperationRequest handle:[:ex |
                 "/ in case the close is cought by the application
                 ^ self.
             ] do:[
                 myApplication closeRequest.
-                ^ self
+                "/ ^ self.
             ].
         ].
     ].
@@ -1366,7 +1366,7 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.125 2009-06-01 06:59:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.126 2009-06-10 10:54:50 ca Exp $'
 ! !
 
 TopView initialize!