ButtonController.st
changeset 6590 7b30cb79318b
parent 6082 8e35a927189c
--- a/ButtonController.st	Thu May 30 11:02:31 2019 +0200
+++ b/ButtonController.st	Thu May 30 11:20:33 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -815,10 +817,12 @@
     "release all dependencies"
 
     enableChannel notNil ifTrue:[
-        enableChannel retractInterestsFor:self.
+        enableChannel removeDependentAndRetractInterestsFor:self.
         enableChannel := nil.
     ].
     super release
+
+    "Modified: / 30-05-2019 / 11:15:17 / Claus Gittinger"
 ! !
 
 !ButtonController class methodsFor:'documentation'!