equal
deleted
inserted
replaced
582 |
582 |
583 n := 0. |
583 n := 0. |
584 ev := self pendingEvent. |
584 ev := self pendingEvent. |
585 |
585 |
586 [ev notNil and:[ev isKeyEvent]] whileTrue:[ |
586 [ev notNil and:[ev isKeyEvent]] whileTrue:[ |
587 evKey := ev arguments at:1. |
587 evKey := ev key. |
588 (evKey == aKey) ifTrue:[ |
588 (evKey == aKey) ifTrue:[ |
589 ev isKeyReleaseEvent ifFalse:[ |
589 ev isKeyReleaseEvent ifFalse:[ |
590 n := n + 1. |
590 n := n + 1. |
591 ]. |
591 ]. |
592 self nextEvent. |
592 self nextEvent. |
593 ev := self pendingEvent. |
593 ev := self pendingEvent. |
594 ] ifFalse:[ |
594 ] ifFalse:[ |
595 ev := nil |
595 ev := nil |
596 ] |
596 ] |
597 ]. |
597 ]. |
598 ^ n |
598 ^ n |
599 |
599 |
600 "Modified: / 27.1.1998 / 14:15:00 / cg" |
600 "Modified: / 27.1.1998 / 14:15:00 / cg" |
601 ! |
601 ! |
2683 ! ! |
2683 ! ! |
2684 |
2684 |
2685 !WindowSensor class methodsFor:'documentation'! |
2685 !WindowSensor class methodsFor:'documentation'! |
2686 |
2686 |
2687 version |
2687 version |
2688 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.163 1999-08-12 11:45:44 cg Exp $' |
2688 ^ '$Header: /cvs/stx/stx/libview/WindowSensor.st,v 1.164 1999-08-31 15:59:22 cg Exp $' |
2689 ! ! |
2689 ! ! |
2690 WindowSensor initialize! |
2690 WindowSensor initialize! |