equal
deleted
inserted
replaced
490 ! |
490 ! |
491 |
491 |
492 enableStateChange |
492 enableStateChange |
493 "this is sent, whenever the enable value has changed" |
493 "this is sent, whenever the enable value has changed" |
494 |
494 |
495 view notNil ifTrue:[view invalidate "redraw"] |
495 view notNil ifTrue:[ |
|
496 view invalidate "redraw". |
|
497 |
|
498 enableChannel value ifTrue:[ |
|
499 view cursor:Cursor hand |
|
500 ] ifFalse:[ |
|
501 view cursor:Cursor normal |
|
502 ]. |
|
503 ] |
496 |
504 |
497 "Modified: 17.9.1995 / 19:55:52 / claus" |
505 "Modified: 17.9.1995 / 19:55:52 / claus" |
498 "Modified: 17.4.1997 / 01:53:14 / cg" |
506 "Modified: 17.4.1997 / 01:53:14 / cg" |
499 ! |
507 ! |
500 |
508 |
700 ! ! |
708 ! ! |
701 |
709 |
702 !ButtonController class methodsFor:'documentation'! |
710 !ButtonController class methodsFor:'documentation'! |
703 |
711 |
704 version |
712 version |
705 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.54 1999-02-15 12:39:40 cg Exp $' |
713 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.55 1999-03-09 16:00:51 cg Exp $' |
706 ! ! |
714 ! ! |