--- a/TopView.st	Thu Aug 22 16:17:30 2002 +0200
+++ b/TopView.st	Thu Aug 22 18:52:14 2002 +0200
@@ -321,11 +321,6 @@
 
     |wg dev|
 
-    keyboardProcessor notNil ifTrue:[
-        keyboardProcessor release.
-        keyboardProcessor := nil.
-    ].
-
     wg := windowGroup.                  "/ have to fetch windowGroup before;
     dev := device.                      "/ and device ...
     super destroy.                      "/ ... since destroy nils em
@@ -365,6 +360,14 @@
     ].
 
     device realizedTopViewHookFor:self
+!
+
+release
+    keyboardProcessor notNil ifTrue:[
+        keyboardProcessor release.
+        keyboardProcessor := nil.
+    ].
+    super release
 ! !
 
 !TopView methodsFor:'misc'!
@@ -778,5 +781,5 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.74 2002-08-19 15:44:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.75 2002-08-22 16:51:42 cg Exp $'
 ! !