--- a/ApplicationSubView.st	Tue Feb 06 19:49:24 2001 +0100
+++ b/ApplicationSubView.st	Tue Feb 13 20:17:58 2001 +0100
@@ -79,6 +79,18 @@
 
 !ApplicationSubView methodsFor:'events'!
 
+destroy
+    |app|
+
+    (app := self application) notNil ifTrue:[
+        app ~~ self topView application ifTrue:[
+            app release
+        ]
+    ].
+    super destroy.
+
+!
+
 realize
     |app|
 
@@ -91,5 +103,5 @@
 !ApplicationSubView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.4 2000-11-22 14:54:00 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationSubView.st,v 1.5 2001-02-13 19:17:58 frank Exp $'
 ! !