ButtonController.st
changeset 2166 b6f4fb01cdeb
parent 2004 0f035d5deb50
child 2283 02cd600d410d
--- a/ButtonController.st	Thu Feb 24 19:20:00 2000 +0100
+++ b/ButtonController.st	Wed Mar 01 15:10:11 2000 +0100
@@ -716,8 +716,12 @@
 
 reinitialize
     active := false.
-    pressed := false.
+    (isToggle or:[isRadio]) ifFalse:[
+        pressed := false.
+    ].
     entered := false.
+
+    "Modified: / 1.3.2000 / 15:17:10 / cg"
 !
 
 release
@@ -733,5 +737,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.59 1999-09-04 10:52:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.60 2000-03-01 14:10:11 cg Exp $'
 ! !