--- a/Button.st	Mon May 08 17:19:27 1995 +0200
+++ b/Button.st	Tue May 09 03:57:16 1995 +0200
@@ -39,7 +39,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libwidg/Button.st,v 1.20 1995-05-03 00:28:40 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Button.st,v 1.21 1995-05-09 01:54:53 claus Exp $
 '!
 
 !Button class methodsFor:'documentation'!
@@ -60,7 +60,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libwidg/Button.st,v 1.20 1995-05-03 00:28:40 claus Exp $
+$Header: /cvs/stx/stx/libwidg/Button.st,v 1.21 1995-05-09 01:54:53 claus Exp $
 "
 !
 
@@ -1095,9 +1095,7 @@
 
     controller pressed ifTrue:[
 	self turnOffWithoutRedraw.
-"/        controller active:false.
-"/        controller pressed:false.
-"/        self level:offLevel.
+	offLevel ~~ onLevel ifTrue:[self redrawEdges].
 	self redraw
     ]
 !
@@ -1119,8 +1117,7 @@
 
     controller pressed ifFalse:[
 	self turnOnWithoutRedraw.
-"/        controller pressed:true.
-"/        self level:onLevel.
+	offLevel ~~ onLevel ifTrue:[self redrawEdges].
 	self redraw
     ]
 !