--- a/ButtonController.st Mon Mar 02 17:19:16 2009 +0100
+++ b/ButtonController.st Wed Mar 04 19:27:04 2009 +0100
@@ -539,12 +539,11 @@
view notNil ifTrue:[
view invalidate "redraw".
-
- enableChannel value ifTrue:[
- view cursor:Cursor hand
- ] ifFalse:[
- view cursor:Cursor normal
- ].
+ view
+ cursor:(
+ enableChannel value
+ ifTrue:[ Cursor hand ]
+ ifFalse:[ Cursor normal ])
]
"Modified: 17.9.1995 / 19:55:52 / claus"
@@ -659,9 +658,8 @@
autoRepeat ifTrue:[
Processor addTimedBlock:repeatBlock afterSeconds:initialDelay
].
- ] ifFalse:[
- view invalidate
- ]
+ ].
+ view invalidate
]
"Modified: 26.5.1996 / 18:09:06 / cg"
@@ -690,10 +688,9 @@
autoRepeat ifTrue:[
Processor removeTimedBlock:repeatBlock
].
- ] ifFalse:[
- enableChannel value ifTrue:[
- view invalidate
- ]
+ ].
+ enableChannel value ifTrue:[
+ view invalidate
]
"Modified: 1.4.1997 / 13:27:32 / cg"
@@ -791,5 +788,5 @@
!ButtonController class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.72 2008-12-17 15:31:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.73 2009-03-04 18:27:04 cg Exp $'
! !