Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add method: #release
authorca
Fri, 13 Feb 1998 14:55:29 +0100
changeset 1447 9319cafbf258
parent 1446 609e20a4a234
child 1448 4220c80ab099
add method: #release release dependencies
ButtonC.st file | annotate | diff | comparison | revisions
ButtonController.st file | annotate | diff | comparison | revisions 
--- a/ButtonC.st	Fri Feb 06 12:58:28 1998 +0100
+++ b/ButtonC.st	Fri Feb 13 14:55:29 1998 +0100
@@ -277,15 +277,17 @@
     |wasEnabled|
 
     enableChannel notNil ifTrue:[
-	wasEnabled := enableChannel value.
-	enableChannel retractInterestsFor:self. 
+        wasEnabled := enableChannel value.
+        enableChannel retractInterestsFor:self. 
     ] ifFalse:[
-	wasEnabled := true
+        wasEnabled := true
     ].
     enableChannel := aValueHolder.
     aValueHolder onChangeSend:#enableStateChange to:self.
+
     enableChannel value ~~ wasEnabled ifTrue:[
-	self enableStateChange
+        self enableStateChange
+
     ]
 
     "Modified: 17.9.1995 / 19:41:18 / claus"
@@ -667,10 +669,20 @@
     isToggle := isRadio := false.
 
     "Modified: 15.7.1996 / 13:40:14 / cg"
+!
+
+release
+    "release all dependencies"
+
+    enableChannel notNil ifTrue:[
+        enableChannel retractInterestsFor:self.
+        enableChannel := nil.
+    ].
+    super release
 ! !
 
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.48 1997-07-24 12:59:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.49 1998-02-13 13:55:29 ca Exp $'
 ! !
--- a/ButtonController.st	Fri Feb 06 12:58:28 1998 +0100
+++ b/ButtonController.st	Fri Feb 13 14:55:29 1998 +0100
@@ -277,15 +277,17 @@
     |wasEnabled|
 
     enableChannel notNil ifTrue:[
-	wasEnabled := enableChannel value.
-	enableChannel retractInterestsFor:self. 
+        wasEnabled := enableChannel value.
+        enableChannel retractInterestsFor:self. 
     ] ifFalse:[
-	wasEnabled := true
+        wasEnabled := true
     ].
     enableChannel := aValueHolder.
     aValueHolder onChangeSend:#enableStateChange to:self.
+
     enableChannel value ~~ wasEnabled ifTrue:[
-	self enableStateChange
+        self enableStateChange
+
     ]
 
     "Modified: 17.9.1995 / 19:41:18 / claus"
@@ -667,10 +669,20 @@
     isToggle := isRadio := false.
 
     "Modified: 15.7.1996 / 13:40:14 / cg"
+!
+
+release
+    "release all dependencies"
+
+    enableChannel notNil ifTrue:[
+        enableChannel retractInterestsFor:self.
+        enableChannel := nil.
+    ].
+    super release
 ! !
 
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.48 1997-07-24 12:59:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.49 1998-02-13 13:55:29 ca Exp $'
 ! !
hg/stx-libwidg