--- a/ApplicationModel.st	Thu Dec 23 23:29:59 1999 +0100
+++ b/ApplicationModel.st	Wed Dec 29 13:06:45 1999 +0100
@@ -1993,12 +1993,13 @@
         and:[wgProcess notNil]) ifTrue:[
             wgProcess terminate
         ] ifFalse:[
-            views := wg topViews.
-            views notNil ifTrue:[
-                views copy do:[:aView |
-                    aView notNil ifTrue:[aView destroy]
-                ]
-            ].
+            wg closeDownViews.
+"/            views := wg topViews.
+"/            views notNil ifTrue:[
+"/                views copy do:[:aView |
+"/                    aView notNil ifTrue:[aView destroy]
+"/                ]
+"/            ].
         ]
     ]
 !
@@ -2272,6 +2273,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.121 1999-12-08 20:50:32 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.122 1999-12-29 12:06:45 cg Exp $'
 ! !
 ApplicationModel initialize!