# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1298912240 -3600
# Node ID c003538ed1f19be1c5a1686c016c15ea5e9b202f
# Parent  3da4b18844878767ebf1e124ea8218dc95bcdfc2
changed: #closeDownViews

diff -r 3da4b1884487 -r c003538ed1f1 ApplicationModel.st
--- a/ApplicationModel.st	Mon Feb 14 17:24:42 2011 +0100
+++ b/ApplicationModel.st	Mon Feb 28 17:57:20 2011 +0100
@@ -3188,7 +3188,7 @@
 closeDownViews
     "close down the applications view(s)"
 
-    |wg wgProcess|
+    |wg wgProcess window|
 
     self release.
     ActiveHelp stopFor:self.
@@ -3202,10 +3202,12 @@
             wg closeDownViews.
         ]
     ] ifFalse:[
-        self window destroy.
+        (window := self window) notNil ifTrue:[
+            window destroy.
+        ]
     ].
 
-    "Modified: / 10-02-2011 / 21:43:05 / cg"
+    "Modified: / 28-02-2011 / 17:57:12 / cg"
 !
 
 closeRequest
@@ -3765,11 +3767,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.312 2011-02-28 16:57:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.311 2011-02-10 21:08:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.312 2011-02-28 16:57:20 cg Exp $'
 ! !
 
 ApplicationModel initialize!