--- a/ButtonC.st	Tue Feb 27 02:12:42 1996 +0100
+++ b/ButtonC.st	Tue Feb 27 14:51:16 1996 +0100
@@ -525,25 +525,27 @@
     |dly|
 
     pressed ifTrue:[
-	enableChannel value ifTrue:[
-	    active ifFalse:[
-		self performAction.
+        enableChannel value ifTrue:[
+            active ifFalse:[
+                self performAction.
 "/                active := true.
 "/                releaseActionBlock notNil ifTrue:[releaseActionBlock value].
 "/                pressActionBlock notNil ifTrue:[pressActionBlock value].
 "/                active := false.
 
-		autoRepeat ifTrue:[
-		    self sensor shiftDown ifTrue:[
-			dly := repeatDelay / 4.
-		    ] ifFalse:[
-			dly := repeatDelay
-		    ].
-		    Processor addTimedBlock:repeatBlock afterSeconds:dly
-		]
-	    ]
-	]
+                autoRepeat ifTrue:[
+                    view device shiftDown ifTrue:[
+                        dly := repeatDelay / 4.
+                    ] ifFalse:[
+                        dly := repeatDelay
+                    ].
+                    Processor addTimedBlock:repeatBlock afterSeconds:dly
+                ]
+            ]
+        ]
     ]
+
+    "Modified: 27.2.1996 / 14:48:13 / cg"
 ! !
 
 !ButtonController methodsFor:'initialization'!
@@ -567,5 +569,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.29 1996-02-09 22:13:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.30 1996-02-27 13:51:16 cg Exp $'
 ! !