# HG changeset patch
# User ca
# Date 887378082 -3600
# Node ID e12757d015753c1a1124b536d83f41c043d9fff6
# Parent  204971de9150d70d7ed4e94f93baf69829961c69
destroy
    remove dependencies

diff -r 204971de9150 -r e12757d01575 CheckBox.st
--- a/CheckBox.st	Fri Feb 13 14:54:11 1998 +0100
+++ b/CheckBox.st	Fri Feb 13 14:54:42 1998 +0100
@@ -593,6 +593,20 @@
     "Created: 18.7.1996 / 11:57:01 / cg"
 !
 
+destroy
+    "release dependencies"
+
+    |channel|
+
+    toggleView notNil ifTrue:[
+        (channel := toggleView enableChannel) notNil ifTrue:[
+            channel retractInterestsFor:self
+        ]
+    ].
+    super destroy
+        
+!
+
 initStyle
     "setup viewStyle specifics"
 
@@ -721,5 +735,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.49 1997-10-28 19:27:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.50 1998-02-13 13:54:42 ca Exp $'
 ! !