ButtonController.st
changeset 1463 5eaeef9cb688
parent 1447 9319cafbf258
child 1540 8dffe3f0de97
--- a/ButtonController.st	Mon Mar 02 13:03:19 1998 +0100
+++ b/ButtonController.st	Wed Mar 04 14:38:04 1998 +0100
@@ -364,12 +364,15 @@
     "toggle, but do NOT perform any action"
 
     pressed ifTrue:[
-	view turnOff.
-	pressed := false.
+        view turnOff.
+        pressed := false.
     ] ifFalse:[
-	view turnOn.
-	pressed := true.
+        view turnOn.
+        pressed := true.
     ].
+    view repairDamage
+
+    "Modified: / 4.3.1998 / 13:35:12 / cg"
 ! !
 
 !ButtonController methodsFor:'event handling'!
@@ -684,5 +687,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.49 1998-02-13 13:55:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.50 1998-03-04 13:38:04 cg Exp $'
 ! !