--- a/AppModel.st	Thu Jun 18 19:15:59 1998 +0200
+++ b/AppModel.st	Thu Jun 18 19:16:24 1998 +0200
@@ -1764,6 +1764,16 @@
 
 !ApplicationModel methodsFor:'window events'!
 
+noticeOfWindowClose:aWindow
+    "sent when a topView has been closed.
+     Can be redefined in subclasses for cleanup."
+
+    ^ self
+
+    "Created: / 18.6.1998 / 18:56:31 / cg"
+    "Modified: / 18.6.1998 / 19:14:16 / cg"
+!
+
 showActivity:someMessage
     "some activityNotification shalt be communicated to
      the user. Forwarded from the topView and ignored here.
@@ -1788,6 +1798,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.84 1998-06-18 15:33:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AppModel.st,v 1.85 1998-06-18 17:16:24 cg Exp $'
 ! !
 ApplicationModel initialize!

--- a/ApplicationModel.st	Thu Jun 18 19:15:59 1998 +0200
+++ b/ApplicationModel.st	Thu Jun 18 19:16:24 1998 +0200
@@ -1764,6 +1764,16 @@
 
 !ApplicationModel methodsFor:'window events'!
 
+noticeOfWindowClose:aWindow
+    "sent when a topView has been closed.
+     Can be redefined in subclasses for cleanup."
+
+    ^ self
+
+    "Created: / 18.6.1998 / 18:56:31 / cg"
+    "Modified: / 18.6.1998 / 19:14:16 / cg"
+!
+
 showActivity:someMessage
     "some activityNotification shalt be communicated to
      the user. Forwarded from the topView and ignored here.
@@ -1788,6 +1798,6 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.84 1998-06-18 15:33:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.85 1998-06-18 17:16:24 cg Exp $'
 ! !
 ApplicationModel initialize!