1 " |
1 " |
2 COPYRIGHT (c) 1990 by Claus Gittinger |
2 COPYRIGHT (c) 1990 by Claus Gittinger |
3 All Rights Reserved |
3 All Rights Reserved |
4 |
4 |
5 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
6 only in accordance with the terms of that license and with the |
6 only in accordance with the terms of that license and with the |
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
15 classVariableNames: '' |
15 classVariableNames: '' |
16 poolDictionaries: '' |
16 poolDictionaries: '' |
17 category:'Views-Basic' |
17 category:'Views-Basic' |
18 ! |
18 ! |
19 |
19 |
20 InputView comment:' |
|
21 COPYRIGHT (c) 1990 by Claus Gittinger |
|
22 All Rights Reserved |
|
23 |
|
24 $Header: /cvs/stx/stx/libview2/InputView.st,v 1.7 1995-08-29 17:43:48 claus Exp $ |
|
25 '! |
|
26 |
|
27 !InputView class methodsFor:'documentation'! |
20 !InputView class methodsFor:'documentation'! |
28 |
21 |
29 copyright |
22 copyright |
30 " |
23 " |
31 COPYRIGHT (c) 1990 by Claus Gittinger |
24 COPYRIGHT (c) 1990 by Claus Gittinger |
32 All Rights Reserved |
25 All Rights Reserved |
33 |
26 |
34 This software is furnished under a license and may be used |
27 This software is furnished under a license and may be used |
35 only in accordance with the terms of that license and with the |
28 only in accordance with the terms of that license and with the |
36 inclusion of the above copyright notice. This software may not |
29 inclusion of the above copyright notice. This software may not |
37 be provided or otherwise made available to, or used by, any |
30 be provided or otherwise made available to, or used by, any |
40 " |
33 " |
41 ! |
34 ! |
42 |
35 |
43 version |
36 version |
44 " |
37 " |
45 $Header: /cvs/stx/stx/libview2/InputView.st,v 1.7 1995-08-29 17:43:48 claus Exp $ |
38 $Header: /cvs/stx/stx/libview2/InputView.st,v 1.8 1995-08-30 17:53:56 claus Exp $ |
46 " |
39 " |
47 ! |
40 ! |
48 |
41 |
49 documentation |
42 documentation |
50 " |
43 " |
51 a view for input only - forwarding all events to another object. |
44 a view for input only - forwarding all events to another object. |
52 This kind of view can be used to be laid ontop of another view to catch all |
45 This kind of view can be used to be laid ontop of another view to catch all |
53 input. (Interface builder) |
46 input. (Interface builder) |
54 NOTICE: the event forwarding is a leftover from times when not delegation mechanism |
47 NOTICE: the event forwarding is a leftover from times when not delegation mechanism |
55 existed - it will vanish - use delegates for new code. |
48 existed - it will vanish - use delegates for new code. |
56 " |
49 " |
57 ! ! |
50 ! ! |
58 |
51 |
59 !InputView methodsFor:'initialization'! |
52 !InputView methodsFor:'initialization'! |
60 |
53 |
90 |
83 |
91 keyPress:key x:x y:y |
84 keyPress:key x:x y:y |
92 "redefined to forward event" |
85 "redefined to forward event" |
93 |
86 |
94 eventReceiver notNil ifTrue:[ |
87 eventReceiver notNil ifTrue:[ |
95 eventReceiver keyPress:key x:x y:y |
88 eventReceiver keyPress:key x:x y:y |
96 ] |
89 ] |
97 ! |
90 ! |
98 |
91 |
99 keyRelease:key x:x y:y |
92 keyRelease:key x:x y:y |
100 "redefined to forward event" |
93 "redefined to forward event" |
101 |
94 |
102 eventReceiver notNil ifTrue:[ |
95 eventReceiver notNil ifTrue:[ |
103 eventReceiver keyRelease:key x:x y:y |
96 eventReceiver keyRelease:key x:x y:y |
104 ] |
97 ] |
105 ! |
98 ! |
106 |
99 |
107 buttonShiftPress:button x:x y:y |
100 buttonShiftPress:button x:x y:y |
108 "redefined to forward event" |
101 "redefined to forward event" |
109 |
102 |
110 eventReceiver notNil ifTrue:[ |
103 eventReceiver notNil ifTrue:[ |
111 eventReceiver buttonShiftPress:button x:x y:y |
104 eventReceiver buttonShiftPress:button x:x y:y |
112 ] |
105 ] |
113 ! |
106 ! |
114 |
107 |
115 buttonPress:button x:x y:y |
108 buttonPress:button x:x y:y |
116 "redefined to forward event" |
109 "redefined to forward event" |
117 |
110 |
118 eventReceiver notNil ifTrue:[ |
111 eventReceiver notNil ifTrue:[ |
119 eventReceiver buttonPress:button x:x y:y |
112 eventReceiver buttonPress:button x:x y:y |
120 ] |
113 ] |
121 ! |
114 ! |
122 |
115 |
123 buttonRelease:button x:x y:y |
116 buttonRelease:button x:x y:y |
124 "redefined to forward event" |
117 "redefined to forward event" |
125 |
118 |
126 eventReceiver notNil ifTrue:[ |
119 eventReceiver notNil ifTrue:[ |
127 eventReceiver buttonRelease:button x:x y:y |
120 eventReceiver buttonRelease:button x:x y:y |
128 ] |
121 ] |
129 ! |
122 ! |
130 |
123 |
131 buttonMotion:state x:x y:y |
124 buttonMotion:state x:x y:y |
132 "redefined to forward event" |
125 "redefined to forward event" |
133 |
126 |
134 eventReceiver notNil ifTrue:[ |
127 eventReceiver notNil ifTrue:[ |
135 eventReceiver buttonMotion:state x:x y:y |
128 eventReceiver buttonMotion:state x:x y:y |
136 ] |
129 ] |
137 ! |
130 ! |
138 |
131 |
139 focusIn |
132 focusIn |
140 "redefined to forward event" |
133 "redefined to forward event" |
141 |
134 |
142 eventReceiver notNil ifTrue:[ |
135 eventReceiver notNil ifTrue:[ |
143 eventReceiver focusIn |
136 eventReceiver focusIn |
144 ] |
137 ] |
145 ! |
138 ! |
146 |
139 |
147 focusOut |
140 focusOut |
148 "redefined to forward event" |
141 "redefined to forward event" |
149 |
142 |
150 eventReceiver notNil ifTrue:[ |
143 eventReceiver notNil ifTrue:[ |
151 eventReceiver focusOut |
144 eventReceiver focusOut |
152 ] |
145 ] |
153 ! |
146 ! |
154 |
147 |
155 pointerEnter:state x:x y:y |
148 pointerEnter:state x:x y:y |
156 "redefined to forward event" |
149 "redefined to forward event" |
157 |
150 |
158 eventReceiver notNil ifTrue:[ |
151 eventReceiver notNil ifTrue:[ |
159 eventReceiver pointerEnter:state x:x y:y |
152 eventReceiver pointerEnter:state x:x y:y |
160 ] |
153 ] |
161 ! |
154 ! |
162 |
155 |
163 pointerLeave:state |
156 pointerLeave:state |
164 "redefined to forward event" |
157 "redefined to forward event" |
165 |
158 |
166 eventReceiver notNil ifTrue:[ |
159 eventReceiver notNil ifTrue:[ |
167 eventReceiver pointerLeave:state |
160 eventReceiver pointerLeave:state |
168 ] |
161 ] |
169 ! ! |
162 ! ! |