equal
deleted
inserted
replaced
97 |
97 |
98 open |
98 open |
99 "open my view" |
99 "open my view" |
100 |
100 |
101 view open |
101 view open |
|
102 ! |
|
103 |
|
104 poll |
|
105 "ST-80 compatibility - ignored here" |
|
106 |
|
107 "Created: 6.3.1997 / 15:29:45 / cg" |
102 ! ! |
108 ! ! |
103 |
109 |
104 !Controller methodsFor:'ST-80 compatibility events'! |
110 !Controller methodsFor:'ST-80 compatibility events'! |
105 |
111 |
106 blueButtonActivity |
112 blueButtonActivity |
225 ! |
231 ! |
226 |
232 |
227 view:aView |
233 view:aView |
228 "set my view" |
234 "set my view" |
229 |
235 |
230 view notNil ifTrue:[ |
|
231 model notNil ifTrue:[ |
|
232 model removeDependent:view |
|
233 ] |
|
234 ]. |
|
235 view := aView. |
236 view := aView. |
236 model notNil ifTrue:[ |
237 sensor := aView sensor. |
237 "/ model addDependent:view |
238 |
238 view notNil ifTrue:[ |
239 "Modified: 6.3.1997 / 15:31:48 / cg" |
239 view model:model |
|
240 ] |
|
241 ]. |
|
242 ! ! |
240 ! ! |
243 |
241 |
244 !Controller methodsFor:'event handling'! |
242 !Controller methodsFor:'event handling'! |
245 |
243 |
246 buttonMotion:buttonMask x:x y:y |
244 buttonMotion:buttonMask x:x y:y |
583 ! ! |
581 ! ! |
584 |
582 |
585 !Controller class methodsFor:'documentation'! |
583 !Controller class methodsFor:'documentation'! |
586 |
584 |
587 version |
585 version |
588 ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.44 1997-02-28 18:53:09 cg Exp $' |
586 ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.45 1997-03-06 14:37:12 cg Exp $' |
589 ! ! |
587 ! ! |