equal
deleted
inserted
replaced
223 |
223 |
224 (majorKey respondsTo:selector) ifTrue:[ |
224 (majorKey respondsTo:selector) ifTrue:[ |
225 specification := majorKey perform:selector |
225 specification := majorKey perform:selector |
226 ] ifFalse:[ |
226 ] ifFalse:[ |
227 (application := self application) notNil ifTrue:[ |
227 (application := self application) notNil ifTrue:[ |
228 Object messageNotUnderstoodSignal handle:[:ex| |
228 MessageNotUnderstood handle:[:ex| |
229 (application class respondsTo:selector) ifTrue:[ |
229 (application class respondsTo:selector) ifTrue:[ |
230 specification := application class perform:selector |
230 specification := application class perform:selector |
231 ] |
231 ] |
232 ] do:[ |
232 ] do:[ |
233 specification := application aspectFor:selector |
233 specification := application aspectFor:selector |
489 self selection:(self findObjectAtX:x y:y). |
489 self selection:(self findObjectAtX:x y:y). |
490 ] ifFalse:[ |
490 ] ifFalse:[ |
491 lastClickPoint := nil. |
491 lastClickPoint := nil. |
492 |
492 |
493 (menuSelector notNil and:[(application := self application) notNil]) ifTrue:[ |
493 (menuSelector notNil and:[(application := self application) notNil]) ifTrue:[ |
494 Object messageNotUnderstoodSignal handle:[:ex| |
494 MessageNotUnderstood catch:[ |
495 ] do:[ |
|
496 application aspectFor:menuSelector |
495 application aspectFor:menuSelector |
497 ] |
496 ] |
498 ] |
497 ] |
499 ] |
498 ] |
500 ! |
499 ! |