--- a/ButtonController.st	Thu Feb 12 13:08:25 2004 +0100
+++ b/ButtonController.st	Thu Feb 12 13:10:38 2004 +0100
@@ -136,7 +136,7 @@
     ] ifFalse:[
         releaseActionBlock := aBlock.
         pressActionBlock := nil
-    ]
+    ].
 
     "Modified: 9.2.1996 / 22:41:22 / cg"
 !
@@ -270,7 +270,7 @@
 pressAction:aBlock
     "define the action to be performed on press"
 
-    pressActionBlock := aBlock
+    pressActionBlock := aBlock.
 !
 
 releaseAction
@@ -283,7 +283,7 @@
 releaseAction:aBlock
     "define the action to be performed on release"
 
-    releaseActionBlock := aBlock
+    releaseActionBlock := aBlock.
 !
 
 triggerOnDown:aBoolean
@@ -611,6 +611,7 @@
     ] ifFalse:[
         action := releaseActionBlock.
     ].
+
     action notNil ifTrue:[
         active := true.
         action valueWithOptionalArgument:value.
@@ -719,7 +720,7 @@
                         Processor addTimedBlock:repeatBlock afterSeconds:dly
                     ]
                 ]
-            ]
+            ].
         ]
     ]
 
@@ -785,5 +786,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.66 2001-12-14 10:06:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.67 2004-02-12 12:10:38 cg Exp $'
 ! !