--- a/Toggle.st	Fri Jun 05 18:51:06 1998 +0200
+++ b/Toggle.st	Sat Jun 06 19:54:27 1998 +0200
@@ -386,11 +386,11 @@
     lampColor := aColor.
     shown ifTrue:[
         (showLamp and:[controller pressed]) ifTrue:[
-            self invalidate
+            self invalidateRepairNow:true
         ]
     ]
 
-    "Modified: 8.2.1997 / 15:17:27 / cg"
+    "Modified: / 6.6.1998 / 19:32:50 / cg"
 !
 
 showLamp
@@ -610,5 +610,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.41 1998-03-09 21:25:07 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.42 1998-06-06 17:54:27 cg Exp $'
 ! !