--- a/Button.st	Mon Feb 11 11:00:47 2002 +0100
+++ b/Button.st	Mon Feb 11 13:46:54 2002 +0100
@@ -1022,7 +1022,9 @@
      either set the press-action and clear any release-action or
      vice versa, set the release-action and clear the press-action."
 
-    controller notNil ifTrue:[controller action:aBlock]
+    controller notNil ifTrue:[
+        controller action:aBlock
+    ]
 !
 
 autoRepeat
@@ -1052,7 +1054,9 @@
 enabled:aBoolean
     "enable/disable the button"
 
-    controller notNil ifTrue:[controller enabled:aBoolean]
+    controller notNil ifTrue:[
+        controller enabled:aBoolean
+    ]
 
     "Created: / 30.3.1999 / 14:50:58 / stefan"
 !
@@ -1067,7 +1071,9 @@
 pressAction:aBlock
     "define the action to be performed on press"
 
-    controller pressAction:aBlock
+    controller notNil ifTrue:[
+        controller pressAction:aBlock
+    ]
 !
 
 releaseAction
@@ -1080,7 +1086,9 @@
 releaseAction:aBlock
     "define the action to be performed on release"
 
-    controller releaseAction:aBlock
+    controller notNil ifTrue:[
+        controller releaseAction:aBlock
+    ]
 ! !
 
 !Button methodsFor:'accessing-channels'!
@@ -2280,5 +2288,5 @@
 !Button class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.121 2001-12-08 13:28:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Button.st,v 1.122 2002-02-11 12:46:54 cg Exp $'
 ! !