--- a/SubCanvas.st	Thu Aug 22 18:50:09 2002 +0200
+++ b/SubCanvas.st	Thu Aug 22 18:53:28 2002 +0200
@@ -472,7 +472,24 @@
 
 !SubCanvas methodsFor:'initialization'!
 
-destroy
+initialize
+
+    super initialize.
+"/    self scrolledView:(clientView := ApplicationSubView new).
+    clientViewIsScrolled := false.
+
+    "/ these defaults make subCanvas compatible with VW;
+    "/ however, they make our life difficult sometimes.
+    keepClientView := true.
+    useApplicationSubView := true "false".
+    useOwnBuilder := false.
+
+    spec := #windowSpec.
+
+    "Modified: / 31.1.2000 / 16:56:31 / cg"
+!
+
+release
     client notNil ifTrue:[
         client == self application ifTrue:[
             client releaseAsSubCanvas.
@@ -489,26 +506,9 @@
         specHolder removeDependent:self.
         specHolder := nil.
     ].
-    super destroy.
+    super release.
 
     "Modified: / 13.2.2000 / 23:31:12 / cg"
-!
-
-initialize
-
-    super initialize.
-"/    self scrolledView:(clientView := ApplicationSubView new).
-    clientViewIsScrolled := false.
-
-    "/ these defaults make subCanvas compatible with VW;
-    "/ however, they make our life difficult sometimes.
-    keepClientView := true.
-    useApplicationSubView := true "false".
-    useOwnBuilder := false.
-
-    spec := #windowSpec.
-
-    "Modified: / 31.1.2000 / 16:56:31 / cg"
 ! !
 
 !SubCanvas methodsFor:'layout'!
@@ -547,5 +547,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.44 2002-07-16 15:10:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.45 2002-08-22 16:51:23 cg Exp $'
 ! !