--- 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 $'
! !