equal
deleted
inserted
replaced
788 menuView disable:idx |
788 menuView disable:idx |
789 ]. |
789 ]. |
790 ]. |
790 ]. |
791 ]. |
791 ]. |
792 |
792 |
793 menuView actions:(itemsShown collect:[:each | [ receiver perform:each value ]]). |
793 menuView actions:(itemsShown |
|
794 collect:[:each | |
|
795 [ |
|
796 |actionOrSymbol| |
|
797 |
|
798 actionOrSymbol := each itemValue. |
|
799 actionOrSymbol isBlock ifTrue:[ |
|
800 actionOrSymbol value |
|
801 ] ifFalse:[ |
|
802 receiver perform:actionOrSymbol |
|
803 ] |
|
804 ] |
|
805 ] |
|
806 ). |
794 |
807 |
795 ^ PopUpMenu forMenu:menuView |
808 ^ PopUpMenu forMenu:menuView |
796 |
809 |
797 "Modified: / 30-06-2011 / 10:35:57 / cg" |
810 "Modified: / 30-06-2011 / 10:35:57 / cg" |
798 ! |
811 ! |
1273 ! ! |
1286 ! ! |
1274 |
1287 |
1275 !Menu class methodsFor:'documentation'! |
1288 !Menu class methodsFor:'documentation'! |
1276 |
1289 |
1277 version_CVS |
1290 version_CVS |
1278 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.89 2013-09-01 15:46:21 vrany Exp $' |
1291 ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.90 2013-09-12 09:30:17 cg Exp $' |
1279 ! ! |
1292 ! ! |
1280 |
1293 |