equal
deleted
inserted
replaced
21 |
21 |
22 EventMonitor comment:' |
22 EventMonitor comment:' |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.4 1994-11-21 16:51:30 claus Exp $ |
26 $Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.5 1995-02-06 00:59:50 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !EventMonitor class methodsFor:'documentation'! |
29 !EventMonitor class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.4 1994-11-21 16:51:30 claus Exp $ |
47 $Header: /cvs/stx/stx/libtool/EventMonitor.st,v 1.5 1995-02-06 00:59:50 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
69 ! ! |
69 ! ! |
70 |
70 |
71 !EventMonitor methodsFor:'initialization'! |
71 !EventMonitor methodsFor:'initialization'! |
72 |
72 |
73 initialize |
73 initialize |
|
74 |l| |
|
75 |
74 super initialize. |
76 super initialize. |
75 |
77 |
76 Label label:'see event trace\on standard output' withCRs in:self |
78 l := Label label:'see event trace\on standard output' withCRs in:self. |
|
79 l borderWidth:0 |
77 ! ! |
80 ! ! |
78 |
81 |
79 !EventMonitor methodsFor:'events'! |
82 !EventMonitor methodsFor:'events'! |
80 |
83 |
81 keyPress:key x:x y:y |
84 keyPress:key x:x y:y |