equal
deleted
inserted
replaced
19 |
19 |
20 Controller comment:' |
20 Controller comment:' |
21 COPYRIGHT (c) 1992 by Claus Gittinger |
21 COPYRIGHT (c) 1992 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libview/Controller.st,v 1.9 1995-02-06 00:35:35 claus Exp $ |
24 $Header: /cvs/stx/stx/libview/Controller.st,v 1.10 1995-02-07 15:30:29 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !Controller class methodsFor:'documentation'! |
27 !Controller class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libview/Controller.st,v 1.9 1995-02-06 00:35:35 claus Exp $ |
45 $Header: /cvs/stx/stx/libview/Controller.st,v 1.10 1995-02-07 15:30:29 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
78 this and include a super initialize for proper initialization." |
78 this and include a super initialize for proper initialization." |
79 |
79 |
80 ^ self |
80 ^ self |
81 ! |
81 ! |
82 |
82 |
|
83 startUp |
|
84 "startup the controller; this is sent when the view realizes, |
|
85 right before it becomes visible. |
|
86 Can be redefined in subclasses to do some startup action." |
|
87 |
|
88 ^ self |
|
89 ! |
|
90 |
83 release |
91 release |
|
92 "close down the controller; this is sent when the view is destroyed. |
|
93 Can be redefined in subclasses to do some cleanup action. However, |
|
94 these redfined methods should do a super release." |
|
95 |
84 view controller:nil. |
96 view controller:nil. |
85 view := nil. |
97 view := nil. |
86 model := nil |
98 model := nil |
87 ! ! |
99 ! ! |
88 |
100 |
177 ! ! |
189 ! ! |
178 |
190 |
179 !Controller methodsFor:'low level events'! |
191 !Controller methodsFor:'low level events'! |
180 |
192 |
181 buttonPress:button x:x y:y |
193 buttonPress:button x:x y:y |
182 "translate buttonPress events into similar ST-80 type |
194 "a mouse button was pressed in my view. |
183 event messages. These could be redefined in subclasses" |
195 Translate buttonPress events into similar ST-80 type |
|
196 event messages. This method and/or these ST-80 methods |
|
197 can be redefined in subclasses" |
184 |
198 |
185 ((button == 1) or:[button == #select]) ifTrue:[ |
199 ((button == 1) or:[button == #select]) ifTrue:[ |
186 self redButtonActivity |
200 self redButtonActivity |
187 ]. |
201 ]. |
188 ((button == 2) or:[button == #menu]) ifTrue:[ |
202 ((button == 2) or:[button == #menu]) ifTrue:[ |
192 self blueButtonActivity |
206 self blueButtonActivity |
193 ] |
207 ] |
194 ! |
208 ! |
195 |
209 |
196 buttonRelease:button x:x y:y |
210 buttonRelease:button x:x y:y |
|
211 "a mouse button was released in my view; nothing done here" |
|
212 |
197 ^ self |
213 ^ self |
198 ! |
214 ! |
199 |
215 |
200 buttonMotion:buttonMask x:x y:y |
216 buttonMotion:buttonMask x:x y:y |
|
217 "mouse was moved with button pressed in my view; nothing done here" |
|
218 |
201 ^ self |
219 ^ self |
202 ! |
220 ! |
203 |
221 |
204 pointerEnter:state x:x y:y |
222 pointerEnter:state x:x y:y |
|
223 "mouse pointer entered my view; nothing done here" |
|
224 |
205 ^ self |
225 ^ self |
206 ! |
226 ! |
207 |
227 |
208 pointerLeave:state |
228 pointerLeave:state |
|
229 "mouse pointer left my view; nothing done here" |
|
230 |
209 ^ self |
231 ^ self |
210 ! |
232 ! |
211 |
233 |
212 keyPress:key x:x y:y |
234 keyPress:key x:x y:y |
|
235 "key was pressed in my view; nothing done here" |
|
236 |
213 ^ self |
237 ^ self |
214 ! |
238 ! |
215 |
239 |
216 keyRelease:key x:x y:y |
240 keyRelease:key x:x y:y |
217 ^ self |
241 "key was released in my view; nothing done here" |
218 ! ! |
242 |
|
243 ^ self |
|
244 ! ! |