--- a/ViewScroller.st	Thu Aug 22 18:50:09 2002 +0200
+++ b/ViewScroller.st	Thu Aug 22 18:53:28 2002 +0200
@@ -400,15 +400,6 @@
 
 !ViewScroller methodsFor:'initialization & release'!
 
-destroy
-    "release all dependencies
-    "
-    keepViewsChannel removeDependent:self.
-    model            removeDependent:self.
-
-    super destroy.
-!
-
 initialize
     "initialize all models of the view
     "
@@ -422,6 +413,15 @@
 
     model := nil asValue.
     model addDependent:self.
+!
+
+release
+    "release all dependencies
+    "
+    keepViewsChannel removeDependent:self.
+    model            removeDependent:self.
+
+    super release.
 ! !
 
 !ViewScroller methodsFor:'queries-contents'!
@@ -513,5 +513,5 @@
 !ViewScroller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.17 2002-07-31 05:06:38 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ViewScroller.st,v 1.18 2002-08-22 16:51:50 cg Exp $'
 ! !