--- a/Label.st	Thu Aug 22 18:49:50 2002 +0200
+++ b/Label.st	Thu Aug 22 18:54:57 2002 +0200
@@ -1317,17 +1317,6 @@
 
 !Label methodsFor:'initialize / release'!
 
-destroy
-    labelChannel notNil ifTrue:[
-        labelChannel removeDependent:self.
-        labelChannel := nil.
-    ].
-    super destroy
-
-    "Created: / 14.11.1997 / 13:48:52 / cg"
-    "Modified: / 14.11.1997 / 13:59:38 / cg"
-!
-
 fetchDeviceResources
     "fetch device colors, to avoid reallocation at redraw time"
 
@@ -1386,6 +1375,14 @@
     font := font onDevice:device.
     self computeLabelSize.
     self computeLabelOrigin
+!
+
+release
+    labelChannel notNil ifTrue:[
+        labelChannel removeDependent:self.
+        labelChannel := nil.
+    ].
+    super release
 ! !
 
 !Label methodsFor:'private'!
@@ -1822,5 +1819,5 @@
 !Label class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.113 2001-12-08 13:28:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Label.st,v 1.114 2002-08-22 16:54:31 cg Exp $'
 ! !