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
authorClaus Gittinger <cg@exept.de>
Thu, 12 Aug 1999 19:06:37 +0200
changeset 1217 aa2ac9bd69e6
parent 1216 26fe79e724d0
child 1218 7189b183ebd6
checkin from browser
AppModel.st file | annotate | diff | comparison | revisions
ApplicationModel.st file | annotate | diff | comparison | revisions 
--- a/AppModel.st	Tue Aug 10 12:18:47 1999 +0200
+++ b/AppModel.st	Thu Aug 12 19:06:37 1999 +0200
@@ -1909,6 +1909,8 @@
 close
     "this is sent by my topView when about to be closed
      by the program (not by the windowManager).
+     Notice, that we get a closeRequest message if closed by the windowManager,
+     which can be rejected by the app (or confirmed via a dialog)
      Could be redefined in subclasses."
 
     self closeDownViews
@@ -1919,6 +1921,7 @@
 
     |wg views|
 
+    self release.
     (wg := self windowGroup) notNil ifTrue:[
         views := wg topViews.
         views notNil ifTrue:[
@@ -1930,8 +1933,7 @@
 !
 
 closeRequest
-    "this is sent by my topView when about to be closed
-     by the windowManager.
+    "this is sent by my topView when about to be closed by the windowManager.
      Could be redefined in subclasses to suppress close or confirm."
 
     |sav|
@@ -2050,6 +2052,12 @@
     ^ self      "/ nothing done here ...
 !
 
+releaseAsSubCanvas
+    "a subcanvas is closed"
+
+    self release
+!
+
 restarted
     "sent by my topWindow, when restarted from an image.
      Nothing done here, but can be redefined to perform any actions
@@ -2142,6 +2150,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.111 1999-08-02 15:18:42 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.112 1999-08-12 17:06:37 cg Exp $'
 ! !
 ApplicationModel initialize!
--- a/ApplicationModel.st	Tue Aug 10 12:18:47 1999 +0200
+++ b/ApplicationModel.st	Thu Aug 12 19:06:37 1999 +0200
@@ -1909,6 +1909,8 @@
 close
     "this is sent by my topView when about to be closed
      by the program (not by the windowManager).
+     Notice, that we get a closeRequest message if closed by the windowManager,
+     which can be rejected by the app (or confirmed via a dialog)
      Could be redefined in subclasses."
 
     self closeDownViews
@@ -1919,6 +1921,7 @@
 
     |wg views|
 
+    self release.
     (wg := self windowGroup) notNil ifTrue:[
         views := wg topViews.
         views notNil ifTrue:[
@@ -1930,8 +1933,7 @@
 !
 
 closeRequest
-    "this is sent by my topView when about to be closed
-     by the windowManager.
+    "this is sent by my topView when about to be closed by the windowManager.
      Could be redefined in subclasses to suppress close or confirm."
 
     |sav|
@@ -2050,6 +2052,12 @@
     ^ self      "/ nothing done here ...
 !
 
+releaseAsSubCanvas
+    "a subcanvas is closed"
+
+    self release
+!
+
 restarted
     "sent by my topWindow, when restarted from an image.
      Nothing done here, but can be redefined to perform any actions
@@ -2142,6 +2150,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.111 1999-08-02 15:18:42 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.112 1999-08-12 17:06:37 cg Exp $'
 ! !
 ApplicationModel initialize!
hg/stx-libview2