212 |specification selector selection application| |
212 |specification selector selection application| |
213 |
213 |
214 selection := tabRaw listIndexOf:something. |
214 selection := tabRaw listIndexOf:something. |
215 |
215 |
216 minorKeysHolder notNil ifTrue:[ |
216 minorKeysHolder notNil ifTrue:[ |
217 minorKeys := minorKeysHolder value. |
217 minorKeys := minorKeysHolder value. |
218 ]. |
218 ]. |
|
219 |
219 (selection notNil and:[minorKeys size >= selection]) ifTrue:[ |
220 (selection notNil and:[minorKeys size >= selection]) ifTrue:[ |
220 selector := minorKeys at:selection. |
221 selector := minorKeys at:selection. |
221 |
222 |
222 (majorKey respondsTo:selector) ifTrue:[ |
223 (majorKey respondsTo:selector) ifTrue:[ |
223 specification := majorKey perform:selector |
224 specification := majorKey perform:selector |
224 ] ifFalse:[ |
225 ] ifFalse:[ |
225 (application := self application) notNil ifTrue:[ |
226 (application := self application) notNil ifTrue:[ |
226 Object messageNotUnderstoodSignal handle:[:ex| |
227 Object messageNotUnderstoodSignal handle:[:ex| |
227 (application class respondsTo:selector) ifTrue:[ |
228 (application class respondsTo:selector) ifTrue:[ |
228 specification := application class perform:selector |
229 specification := application class perform:selector |
229 ] |
230 ] |
230 ] do:[ |
231 ] do:[ |
231 specification := application aspectFor:selector |
232 specification := application aspectFor:selector |
232 ] |
233 ] |
233 ] |
234 ] |
234 ] |
235 ] |
235 ]. |
236 ]. |
236 canvas specification:specification. |
237 canvas specification:specification. |
237 |
238 |
238 ! |
239 ! |
239 |
240 |
243 |
244 |
244 update:something with:aParameter from:changedObject |
245 update:something with:aParameter from:changedObject |
245 "one of my models changed its value |
246 "one of my models changed its value |
246 " |
247 " |
247 changedObject == minorKeysHolder ifTrue:[ |
248 changedObject == minorKeysHolder ifTrue:[ |
248 ^ self minorKeys:( minorKeysHolder value) |
249 ^ self minorKeys:( minorKeysHolder value) |
249 ]. |
250 ]. |
250 super update:something with:aParameter from:changedObject. |
251 super update:something with:aParameter from:changedObject. |
251 |
252 |
252 ! ! |
253 ! ! |
253 |
254 |
530 inputView enableButtonEvents. |
521 inputView enableButtonEvents. |
531 inputView enableButtonMotionEvents. |
522 inputView enableButtonMotionEvents. |
532 inputView enableMotionEvents. |
523 inputView enableMotionEvents. |
533 |
524 |
534 "Modified: / 20.7.1998 / 18:12:38 / cg" |
525 "Modified: / 20.7.1998 / 18:12:38 / cg" |
|
526 ! |
|
527 |
|
528 mapped |
|
529 super mapped. |
|
530 self realizeAllSubViews. |
|
531 inputView raise. |
535 ! ! |
532 ! ! |
536 |
533 |
537 !UIGalleryView::Canvas methodsFor:'searching'! |
534 !UIGalleryView::Canvas methodsFor:'searching'! |
538 |
535 |
539 findObjectAtX:x y:y |
536 findObjectAtX:x y:y |