equal
deleted
inserted
replaced
827 This is the ST-80 way of launching a menu." |
827 This is the ST-80 way of launching a menu." |
828 |
828 |
829 |return rec sel0 sel1 arg myAction| |
829 |return rec sel0 sel1 arg myAction| |
830 |
830 |
831 return := 0. |
831 return := 0. |
|
832 actionValues notNil ifTrue:[ |
|
833 return := nil |
|
834 ]. |
832 "/ menuView args notNil ifTrue:[ |
835 "/ menuView args notNil ifTrue:[ |
833 "/ return := nil |
836 "/ return := nil |
834 "/ ]. |
837 "/ ]. |
835 |
838 |
836 "/ |
839 "/ |
846 myAction := true. |
849 myAction := true. |
847 menuView action:[:menuView :selected | |
850 menuView action:[:menuView :selected | |
848 |actionIndex value sel retVal selIdx |
851 |actionIndex value sel retVal selIdx |
849 args selectors checkFlags check| |
852 args selectors checkFlags check| |
850 |
853 |
|
854 retVal := 0. |
|
855 actionValues notNil ifTrue:[ |
|
856 retVal := nil |
|
857 ]. |
|
858 |
851 selected isNil ifTrue:[ |
859 selected isNil ifTrue:[ |
852 "/ the menu has already sent a message or performed an item-action; do nothing here |
860 "/ the menu has already sent a message or performed an item-action; do nothing here |
853 ^ 0 |
861 ^ retVal |
854 ]. |
862 ]. |
855 |
|
856 retVal := 0. |
|
857 |
863 |
858 selIdx := menuView selection. |
864 selIdx := menuView selection. |
859 |
865 |
860 args := menuView args. |
866 args := menuView args. |
861 selectors := menuView selectors. |
867 selectors := menuView selectors. |
1515 ! ! |
1521 ! ! |
1516 |
1522 |
1517 !PopUpMenu class methodsFor:'documentation'! |
1523 !PopUpMenu class methodsFor:'documentation'! |
1518 |
1524 |
1519 version |
1525 version |
1520 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.80 1999-10-22 15:39:01 cg Exp $' |
1526 ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.81 1999-11-13 12:27:47 cg Exp $' |
1521 ! ! |
1527 ! ! |