use asynchronous #invalidate when enable-state changes.
authorClaus Gittinger <cg@exept.de>
Thu, 17 Apr 1997 02:15:40 +0200
changeset 1191 98386e90229f
parent 1190 c8f27edf064e
child 1192 be7286941daf
use asynchronous #invalidate when enable-state changes.
ButtonC.st
ButtonController.st
--- a/ButtonC.st	Thu Apr 17 02:14:55 1997 +0200
+++ b/ButtonC.st	Thu Apr 17 02:15:40 1997 +0200
@@ -465,10 +465,10 @@
 enableStateChange
     "this is sent, whenever the enable value has changed"
 
-    view notNil ifTrue:[view redraw]
+    view notNil ifTrue:[view invalidate "redraw"]
 
     "Modified: 17.9.1995 / 19:55:52 / claus"
-    "Modified: 3.3.1997 / 10:52:22 / cg"
+    "Modified: 17.4.1997 / 01:53:14 / cg"
 !
 
 keyPress:key x:x y:y
@@ -651,5 +651,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.45 1997-04-01 11:28:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ButtonC.st,v 1.46 1997-04-17 00:15:40 cg Exp $'
 ! !
--- a/ButtonController.st	Thu Apr 17 02:14:55 1997 +0200
+++ b/ButtonController.st	Thu Apr 17 02:15:40 1997 +0200
@@ -465,10 +465,10 @@
 enableStateChange
     "this is sent, whenever the enable value has changed"
 
-    view notNil ifTrue:[view redraw]
+    view notNil ifTrue:[view invalidate "redraw"]
 
     "Modified: 17.9.1995 / 19:55:52 / claus"
-    "Modified: 3.3.1997 / 10:52:22 / cg"
+    "Modified: 17.4.1997 / 01:53:14 / cg"
 !
 
 keyPress:key x:x y:y
@@ -651,5 +651,5 @@
 !ButtonController class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.45 1997-04-01 11:28:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.46 1997-04-17 00:15:40 cg Exp $'
 ! !