equal
deleted
inserted
replaced
308 ! |
308 ! |
309 |
309 |
310 menuSelector |
310 menuSelector |
311 "return the value of the instance variable 'menuSelector' (automatically generated)" |
311 "return the value of the instance variable 'menuSelector' (automatically generated)" |
312 |
312 |
313 ^ menuSelector! |
313 ^ menuSelector |
|
314 ! |
314 |
315 |
315 menuSelector:something |
316 menuSelector:something |
316 "set the value of the instance variable 'menuSelector' (automatically generated)" |
317 "set the value of the instance variable 'menuSelector' (automatically generated)" |
317 |
318 |
318 menuSelector := something.! |
319 menuSelector := something. |
|
320 ! |
319 |
321 |
320 specification |
322 specification |
321 "get current specification |
323 "get current specification |
322 " |
324 " |
323 ^ specification |
325 ^ specification |
483 buttonPress:button x:x y:y |
485 buttonPress:button x:x y:y |
484 "change selection |
486 "change selection |
485 " |
487 " |
486 |application| |
488 |application| |
487 |
489 |
488 button == 1 ifTrue:[ |
490 (button == 1 or:[button == #select]) ifTrue:[ |
489 lastClickPoint := Point x:x y:y. |
491 lastClickPoint := Point x:x y:y. |
490 self selection:(self findObjectAtX:x y:y). |
492 self selection:(self findObjectAtX:x y:y). |
491 ] ifFalse:[ |
493 ] ifFalse:[ |
492 lastClickPoint := nil. |
494 lastClickPoint := nil. |
493 |
495 |
494 (menuSelector notNil and:[(application := self application) notNil]) ifTrue:[ |
496 (menuSelector notNil and:[(application := self application) notNil]) ifTrue:[ |
495 Object messageNotUnderstoodSignal handle:[:ex| |
497 Object messageNotUnderstoodSignal handle:[:ex| |
496 ] do:[ |
498 ] do:[ |
497 application aspectFor:menuSelector |
499 application aspectFor:menuSelector |
498 ] |
500 ] |
499 ] |
501 ] |
500 ] |
502 ] |
501 |
|
502 ! |
503 ! |
503 |
504 |
504 exposeX:x y:y width:w height:h |
505 exposeX:x y:y width:w height:h |
505 "handle an expose event from device; redraw selection |
506 "handle an expose event from device; redraw selection |
506 " |
507 " |