--- a/ButtonController.st	Wed Mar 31 07:51:55 1999 +0200
+++ b/ButtonController.st	Wed Mar 31 07:54:54 1999 +0200
@@ -203,21 +203,30 @@
 !
 
 disable
-    "disable the button"
+    "alternative invokation; redirected to basic mechanism"
 
-    enableChannel value ifTrue:[
-	enableChannel value:false.
-	"/ view redraw    - not needed; I listen to enableChannel
-    ]
+    self enabled:false
+
+    "Modified: / 30.3.1999 / 14:50:12 / stefan"
 !
 
 enable
-    "enable the button"
+    "alternative invokation; redirected to basic mechanism"
+
+    self enabled:true
+
+    "Modified: / 30.3.1999 / 14:50:01 / stefan"
+!
 
-    enableChannel value ifFalse:[
-	enableChannel value:true.
-	"/ view redraw    - not needed; I listen to enableChannel
+enabled:aBoolean
+    "disable the button"
+
+    enableChannel value ~~ aBoolean ifTrue:[
+        enableChannel value:aBoolean.
+        "/ view redraw    - not needed; I listen to enableChannel
     ]
+
+    "Created: / 30.3.1999 / 14:49:05 / stefan"
 !
 
 isTriggerOnDown
@@ -717,5 +726,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.56 1999-03-10 22:38:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.57 1999-03-31 05:54:12 stefan Exp $'
 ! !