--- a/ButtonController.st	Fri Nov 17 01:44:48 2000 +0100
+++ b/ButtonController.st	Fri Nov 17 10:26:48 2000 +0100
@@ -304,10 +304,20 @@
     "Modified: 17.9.1995 / 19:41:18 / claus"
 !
 
+pressChannel
+
+    ^ pressChannel
+!
+
 pressChannel:aChannel
     pressChannel := aChannel
 !
 
+releaseChannel
+
+    ^ releaseChannel
+!
+
 releaseChannel:aChannel
     releaseChannel := aChannel
 ! !
@@ -365,9 +375,9 @@
     "toggle and perform the action"
 
     enableChannel value ifTrue:[
-	self toggleNoAction.
-	self performAction.
-	view changed:#toggle with:pressed
+        self toggleNoAction.
+        self performAction.
+        view changed:#toggle with:pressed
     ]
 !
 
@@ -606,7 +616,8 @@
         ].
 
         self performAction.
-    ]!
+    ]
+!
 
 pointerEnter:state x:x y:y
     "mouse pointer entered my view.
@@ -756,5 +767,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.62 2000-11-09 15:26:41 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.63 2000-11-17 09:26:48 martin Exp $'
 ! !