--- a/ApplicationModel.st	Mon Mar 03 22:30:05 1997 +0100
+++ b/ApplicationModel.st	Tue Mar 04 00:49:18 1997 +0100
@@ -1110,11 +1110,13 @@
 !
 
 closeRequest
-    "this is sent by my topView when about to be closed by the
-     windowmanager. Can be redefined to inform & query about unsafed
-     view contents, to send #close on ok, or ignore the closeRequest."
+    "this is sent by my topView when about to be closed
+     by the program (not by the windowManager).
+     Could be redefined in subclasses to suppress close or confirm."
 
-    self close
+    self closeDownViews
+
+    "Modified: 4.3.1997 / 00:48:15 / cg"
 !
 
 closeRequestFor:aTopView
@@ -1278,6 +1280,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.45 1997-03-03 10:12:08 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.46 1997-03-03 23:49:18 cg Exp $'
 ! !
 ApplicationModel initialize!