--- a/ButtonController.st	Thu Dec 13 11:41:54 2001 +0100
+++ b/ButtonController.st	Fri Dec 14 11:06:29 2001 +0100
@@ -613,11 +613,7 @@
     ].
     action notNil ifTrue:[
         active := true.
-        action numArgs == 0 ifTrue:[
-            action value
-        ] ifFalse:[
-            action value:value
-        ].
+        action valueWithOptionalArgument:value.
         active := false.
     ].
 
@@ -789,5 +785,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.65 2001-07-20 12:18:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.66 2001-12-14 10:06:29 cg Exp $'
 ! !