--- a/ButtonController.st	Thu Aug 31 07:01:01 1995 +0200
+++ b/ButtonController.st	Thu Sep 07 14:46:28 1995 +0200
@@ -40,7 +40,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.16 1995-08-28 21:12:11 claus Exp $
+$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.17 1995-09-07 12:44:23 claus Exp $
 "
 !
 
@@ -209,12 +209,21 @@
 !
 
 autoRepeat
-    "turn on autorepeat"
+    "turn on autorepeat. OBSOLETE"
 
     autoRepeat := true.
     repeatBlock := [self repeat]
 !
 
+autoRepeat:aBoolean
+    "turn on/off autorepeat"
+
+    autoRepeat := aBoolean.
+    repeatBlock := [self repeat]
+
+    "Modified: 5.9.1995 / 22:06:00 / claus"
+!
+
 action:aBlock
     "convenient method: depending on the setting the triggerOnDown flag,
      either set the press-action clear any release-action or
@@ -492,10 +501,11 @@
     pressed ifTrue:[
 	enableChannel value ifTrue:[
 	    active ifFalse:[
-		active := true.
-		releaseActionBlock notNil ifTrue:[releaseActionBlock value].
-		pressActionBlock notNil ifTrue:[pressActionBlock value].
-		active := false.
+		self performAction.
+"/                active := true.
+"/                releaseActionBlock notNil ifTrue:[releaseActionBlock value].
+"/                pressActionBlock notNil ifTrue:[pressActionBlock value].
+"/                active := false.
 
 		autoRepeat ifTrue:[
 		    Processor addTimedBlock:repeatBlock afterSeconds:repeatDelay