--- a/Button.st	Fri May 12 20:25:18 1995 +0200
+++ b/Button.st	Wed May 17 14:26:27 1995 +0200
@@ -39,7 +39,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Button.st,v 1.22 1995-05-12 18:23:34 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Button.st,v 1.23 1995-05-17 12:24:30 claus Exp $
 '!
 
 !Button class methodsFor:'documentation'!
@@ -60,7 +60,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Button.st,v 1.22 1995-05-12 18:23:34 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Button.st,v 1.23 1995-05-17 12:24:30 claus Exp $
 "
 !
 
@@ -903,7 +903,8 @@
     "set the level of the button when pressed (i.e. how deep)"
 
     onLevel := aNumber.
-    controller pressed ifTrue:[
+    (controller notNil
+    and:[controller pressed]) ifTrue:[
 	self level:onLevel.
 	margin := onLevel abs max:offLevel abs.
 	self redraw
@@ -920,7 +921,8 @@
     "set the level of the button when not pressed (i.e. how high)"
 
     offLevel := aNumber.
-    controller pressed ifFalse:[
+    (controller notNil
+    and:[controller pressed not]) ifTrue:[
 	self level:offLevel.
 	margin := onLevel abs max:offLevel abs.
 	self redraw
@@ -1102,8 +1104,8 @@
     "turn the button off (if not already off)"
 
     controller pressed ifTrue:[
+	self level:offLevel.
 	self turnOffWithoutRedraw.
-	offLevel ~~ onLevel ifTrue:[self redrawEdges].
 	self redraw
     ]
 !
@@ -1124,8 +1126,8 @@
     "turn the button on (if not already on)"
 
     controller pressed ifFalse:[
+	self level:onLevel.
 	self turnOnWithoutRedraw.
-	offLevel ~~ onLevel ifTrue:[self redrawEdges].
 	self redraw
     ]
 !