equal
deleted
inserted
replaced
578 |
578 |
579 entered := false. |
579 entered := false. |
580 pressed ifTrue:[ |
580 pressed ifTrue:[ |
581 isTriggerOnDown ifFalse:[ |
581 isTriggerOnDown ifFalse:[ |
582 view showPassive. |
582 view showPassive. |
|
583 ] ifTrue:[ |
|
584 view invalidate |
583 ]. |
585 ]. |
584 |
586 |
585 " |
587 " |
586 leave with mouse-button down; |
588 leave with mouse-button down; |
587 stop autorepeating and/or if I am a button with |
589 stop autorepeating and/or if I am a button with |
594 enableChannel value ifTrue:[ |
596 enableChannel value ifTrue:[ |
595 view invalidate |
597 view invalidate |
596 ] |
598 ] |
597 ] |
599 ] |
598 |
600 |
599 "Modified: 26.5.1996 / 18:09:08 / cg" |
601 "Modified: 1.4.1997 / 13:27:32 / cg" |
600 ! |
602 ! |
601 |
603 |
602 repeat |
604 repeat |
603 "this is sent from the autorepeat-block, when the button has been pressed long |
605 "this is sent from the autorepeat-block, when the button has been pressed long |
604 enough; it simulates a release-press, by evaluating both release |
606 enough; it simulates a release-press, by evaluating both release |
647 ! ! |
649 ! ! |
648 |
650 |
649 !ButtonController class methodsFor:'documentation'! |
651 !ButtonController class methodsFor:'documentation'! |
650 |
652 |
651 version |
653 version |
652 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.44 1997-03-20 20:58:30 cg Exp $' |
654 ^ '$Header: /cvs/stx/stx/libwidg/ButtonController.st,v 1.45 1997-04-01 11:28:08 cg Exp $' |
653 ! ! |
655 ! ! |