# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 934477597 -7200
# Node ID aa2ac9bd69e6fe776f7d8b353cfaa3bc265d5d85
# Parent  26fe79e724d098dbfef47c390a0624a9f696c422
checkin from browser

diff -r 26fe79e724d0 -r aa2ac9bd69e6 AppModel.st
--- 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!
diff -r 26fe79e724d0 -r aa2ac9bd69e6 ApplicationModel.st
--- 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!