equal
deleted
inserted
replaced
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Interface-Support' |
17 category:'Interface-Support' |
18 ! |
18 ! |
19 |
19 |
20 WindowEvent subclass:#ClientEvent |
|
21 instanceVariableNames:'eventData' |
|
22 classVariableNames:'' |
|
23 poolDictionaries:'' |
|
24 privateIn:WindowEvent |
|
25 ! |
|
26 |
|
27 WindowEvent subclass:#InputEvent |
20 WindowEvent subclass:#InputEvent |
28 instanceVariableNames:'modifierFlags' |
21 instanceVariableNames:'modifierFlags' |
29 classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3' |
22 classVariableNames:'F_CTRL F_ALT F_META F_SHIFT F_BUTTON1 F_BUTTON2 F_BUTTON3' |
30 poolDictionaries:'' |
23 poolDictionaries:'' |
31 privateIn:WindowEvent |
24 privateIn:WindowEvent |
45 privateIn:WindowEvent |
38 privateIn:WindowEvent |
46 ! |
39 ! |
47 |
40 |
48 WindowEvent::InputEvent subclass:#ButtonEvent |
41 WindowEvent::InputEvent subclass:#ButtonEvent |
49 instanceVariableNames:'' |
42 instanceVariableNames:'' |
|
43 classVariableNames:'' |
|
44 poolDictionaries:'' |
|
45 privateIn:WindowEvent |
|
46 ! |
|
47 |
|
48 WindowEvent subclass:#ClientEvent |
|
49 instanceVariableNames:'eventData' |
50 classVariableNames:'' |
50 classVariableNames:'' |
51 poolDictionaries:'' |
51 poolDictionaries:'' |
52 privateIn:WindowEvent |
52 privateIn:WindowEvent |
53 ! |
53 ! |
54 |
54 |
557 ^ false |
557 ^ false |
558 |
558 |
559 "Modified: 5.3.1997 / 11:27:40 / cg" |
559 "Modified: 5.3.1997 / 11:27:40 / cg" |
560 ! ! |
560 ! ! |
561 |
561 |
562 !WindowEvent::ClientEvent methodsFor:'accessing'! |
|
563 |
|
564 eventData |
|
565 "return the value of the instance variable 'eventData' (automatically generated)" |
|
566 |
|
567 ^ eventData |
|
568 |
|
569 "Created: 4.4.1997 / 17:41:50 / cg" |
|
570 ! |
|
571 |
|
572 eventData:something |
|
573 "set the value of the instance variable 'eventData' (automatically generated)" |
|
574 |
|
575 eventData := something. |
|
576 |
|
577 "Created: 4.4.1997 / 17:41:57 / cg" |
|
578 ! ! |
|
579 |
|
580 !WindowEvent::InputEvent class methodsFor:'class initialization'! |
562 !WindowEvent::InputEvent class methodsFor:'class initialization'! |
581 |
563 |
582 initialize |
564 initialize |
583 F_SHIFT := 16r001. |
565 F_SHIFT := 16r001. |
584 F_CTRL := 16r002. |
566 F_CTRL := 16r002. |
837 "Created: / 21.5.1999 / 19:45:04 / cg" |
819 "Created: / 21.5.1999 / 19:45:04 / cg" |
838 ! ! |
820 ! ! |
839 |
821 |
840 !WindowEvent::ButtonEvent methodsFor:'accessing'! |
822 !WindowEvent::ButtonEvent methodsFor:'accessing'! |
841 |
823 |
|
824 button |
|
825 "return the button nr of the button-event" |
|
826 |
|
827 ^ arguments at:1 |
|
828 ! |
|
829 |
842 state |
830 state |
843 "return the button state of the button-event |
831 "return the button state of the button-event |
844 (mouse button bits at the time of the event)." |
832 (mouse button bits at the time of the event)." |
845 |
833 |
846 ^ arguments at:1 |
834 ^ arguments at:1 |
914 ^ (type == #buttonRelease:x:y:) |
902 ^ (type == #buttonRelease:x:y:) |
915 |
903 |
916 "Created: 4.4.1997 / 13:44:22 / cg" |
904 "Created: 4.4.1997 / 13:44:22 / cg" |
917 ! ! |
905 ! ! |
918 |
906 |
|
907 !WindowEvent::ClientEvent methodsFor:'accessing'! |
|
908 |
|
909 eventData |
|
910 "return the value of the instance variable 'eventData' (automatically generated)" |
|
911 |
|
912 ^ eventData |
|
913 |
|
914 "Created: 4.4.1997 / 17:41:50 / cg" |
|
915 ! |
|
916 |
|
917 eventData:something |
|
918 "set the value of the instance variable 'eventData' (automatically generated)" |
|
919 |
|
920 eventData := something. |
|
921 |
|
922 "Created: 4.4.1997 / 17:41:57 / cg" |
|
923 ! ! |
|
924 |
919 !WindowEvent class methodsFor:'documentation'! |
925 !WindowEvent class methodsFor:'documentation'! |
920 |
926 |
921 version |
927 version |
922 ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.64 1999-12-08 20:39:31 ca Exp $' |
928 ^ '$Header: /cvs/stx/stx/libview/WindowEvent.st,v 1.65 2000-01-17 10:32:43 cg Exp $' |
923 ! ! |
929 ! ! |