equal
deleted
inserted
replaced
665 aReceiver isNil ifTrue:[ |
665 aReceiver isNil ifTrue:[ |
666 ^ nil |
666 ^ nil |
667 ]. |
667 ]. |
668 |
668 |
669 menu := self receiver:aReceiver perform:submenuChannel with:argument |
669 menu := self receiver:aReceiver perform:submenuChannel with:argument |
670 ifNone:[ self receiver:(aReceiver class) perform:submenuChannel with:argument ifNone:nil ]. |
670 ifNone:[ |
|
671 self receiver:(aReceiver class) perform:submenuChannel with:argument |
|
672 ifNone:[ |
|
673 ('MenuItem [info]: no aspect for slice ',submenuChannel) infoPrintCR. |
|
674 nil |
|
675 ]. |
|
676 ]. |
671 |
677 |
672 menu isNil ifTrue:[^ nil]. |
678 menu isNil ifTrue:[^ nil]. |
673 menu := menu value. |
679 menu := menu value. |
674 menu isNil ifTrue:[^ nil]. |
680 menu isNil ifTrue:[^ nil]. |
675 |
681 |
866 ! ! |
872 ! ! |
867 |
873 |
868 !MenuItem class methodsFor:'documentation'! |
874 !MenuItem class methodsFor:'documentation'! |
869 |
875 |
870 version |
876 version |
871 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.68 2005-02-01 15:34:08 james Exp $' |
877 ^ '$Header: /cvs/stx/stx/libview2/MenuItem.st,v 1.69 2005-03-07 14:19:41 penk Exp $' |
872 ! ! |
878 ! ! |