Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorca
Tue, 18 Feb 1997 11:06:04 +0100
changeset 435 68081adabd45
parent 434 eeb7ba6aede3
child 436 b5e56e1f367f
checkin from browser
AppModel.st file | annotate | diff | comparison | revisions
ApplicationModel.st file | annotate | diff | comparison | revisions 
--- a/AppModel.st	Mon Feb 17 21:14:11 1997 +0100
+++ b/AppModel.st	Tue Feb 18 11:06:04 1997 +0100
@@ -1072,17 +1072,17 @@
 !
 
 closeDownViews
-    "close down the applications view"
+    "close down the applications view(s)"
 
     |wg views|
 
     (wg := self windowGroup) notNil ifTrue:[
-	views := wg topViews.
-	views notNil ifTrue:[
-	    views copy do:[:aView |
-		aView notNil ifTrue:[aView destroy]
-	    ]
-	]
+        views := wg topViews.
+        views notNil ifTrue:[
+            views copy do:[:aView |
+                aView notNil ifTrue:[aView destroy]
+            ]
+        ]
     ]
 !
 
@@ -1091,7 +1091,17 @@
      windowmanager. Can be redefined to inform & query about unsafed
      view contents, to send #close on ok, or ignore the closeRequest."
 
-    self closeDownViews
+    self close
+!
+
+closeRequestFor:aTopView
+    "this is sent by any of my topViews when about to be closed by the
+     windowmanager. For backward compatibility with single-view applications,
+     this is forwarded here to a simple (non topView-specific) closeRequest.
+     MultiView applications should redefine this method if closing of individual
+     views closing is to be cought."
+
+    ^ self closeRequest
 !
 
 open
@@ -1237,6 +1247,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.40 1997-02-17 18:50:14 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.41 1997-02-18 10:06:04 ca Exp $'
 ! !
 ApplicationModel initialize!
--- a/ApplicationModel.st	Mon Feb 17 21:14:11 1997 +0100
+++ b/ApplicationModel.st	Tue Feb 18 11:06:04 1997 +0100
@@ -1072,17 +1072,17 @@
 !
 
 closeDownViews
-    "close down the applications view"
+    "close down the applications view(s)"
 
     |wg views|
 
     (wg := self windowGroup) notNil ifTrue:[
-	views := wg topViews.
-	views notNil ifTrue:[
-	    views copy do:[:aView |
-		aView notNil ifTrue:[aView destroy]
-	    ]
-	]
+        views := wg topViews.
+        views notNil ifTrue:[
+            views copy do:[:aView |
+                aView notNil ifTrue:[aView destroy]
+            ]
+        ]
     ]
 !
 
@@ -1091,7 +1091,17 @@
      windowmanager. Can be redefined to inform & query about unsafed
      view contents, to send #close on ok, or ignore the closeRequest."
 
-    self closeDownViews
+    self close
+!
+
+closeRequestFor:aTopView
+    "this is sent by any of my topViews when about to be closed by the
+     windowmanager. For backward compatibility with single-view applications,
+     this is forwarded here to a simple (non topView-specific) closeRequest.
+     MultiView applications should redefine this method if closing of individual
+     views closing is to be cought."
+
+    ^ self closeRequest
 !
 
 open
@@ -1237,6 +1247,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.40 1997-02-17 18:50:14 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.41 1997-02-18 10:06:04 ca Exp $'
 ! !
 ApplicationModel initialize!
hg/stx-libview2