--- 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 $'
! !