equal
deleted
inserted
replaced
510 |
510 |
511 " |
511 " |
512 ST/X style actionBlock evaluation & channel notification ... |
512 ST/X style actionBlock evaluation & channel notification ... |
513 " |
513 " |
514 pressChannel notNil ifTrue:[ |
514 pressChannel notNil ifTrue:[ |
515 pressChannel value:pressed |
515 pressed ifTrue:[ |
|
516 pressChannel value:true |
|
517 ] |
516 ]. |
518 ]. |
517 releaseChannel notNil ifTrue:[ |
519 releaseChannel notNil ifTrue:[ |
518 releaseChannel value:pressed not |
520 pressed ifFalse:[ |
|
521 releaseChannel value:true |
|
522 ] |
519 ]. |
523 ]. |
520 |
524 |
521 pressed ifTrue:[ |
525 pressed ifTrue:[ |
522 action := pressActionBlock. |
526 action := pressActionBlock. |
523 ] ifFalse:[ |
527 ] ifFalse:[ |
638 ! ! |
642 ! ! |
639 |
643 |
640 !ButtonController class methodsFor:'documentation'! |
644 !ButtonController class methodsFor:'documentation'! |
641 |
645 |
642 version |
646 version |
643 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.41 1997-03-03 09:59:52 cg Exp $' |
647 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.42 1997-03-04 16:22:38 ca Exp $' |
644 ! ! |
648 ! ! |