743 #(#MenuItem |
743 #(#MenuItem |
744 #label: '-' |
744 #label: '-' |
745 ) |
745 ) |
746 #(#MenuItem |
746 #(#MenuItem |
747 #activeHelpKey: #editMoveUp |
747 #activeHelpKey: #editMoveUp |
748 #enabled: #valueOfEnableMovingUpOrDown |
748 #enabled: #enableMovingUpOrDownHolder |
749 #label: 'Move Up' |
749 #label: 'Move Up' |
750 #itemValue: #doMoveUpOrDown: |
750 #itemValue: #doMoveUpOrDown: |
751 #translateLabel: true |
751 #translateLabel: true |
752 #startGroup: #right |
752 #startGroup: #right |
753 #labelImage: #(#ResourceRetriever #Icon #upIcon '') |
753 #labelImage: #(#ResourceRetriever #Icon #upIcon '') |
754 #argument: #up |
754 #argument: #up |
755 ) |
755 ) |
756 #(#MenuItem |
756 #(#MenuItem |
757 #activeHelpKey: #editMoveDown |
757 #activeHelpKey: #editMoveDown |
758 #enabled: #valueOfEnableMovingUpOrDown |
758 #enabled: #enableMovingUpOrDownHolder |
759 #label: 'Move Down' |
759 #label: 'Move Down' |
760 #itemValue: #doMoveUpOrDown: |
760 #itemValue: #doMoveUpOrDown: |
761 #translateLabel: true |
761 #translateLabel: true |
762 #labelImage: #(#ResourceRetriever #Icon #downIcon '') |
762 #labelImage: #(#ResourceRetriever #Icon #downIcon '') |
763 #argument: #down |
763 #argument: #down |
764 ) |
764 ) |
765 #(#MenuItem |
765 #(#MenuItem |
766 #activeHelpKey: #editMoveIn |
766 #activeHelpKey: #editMoveIn |
767 #enabled: #valueOfEnableMovingIn |
767 #enabled: #enableMovingInHolder |
768 #label: 'Move Into Next' |
768 #label: 'Move Into Next' |
769 #itemValue: #doMoveIn: |
769 #itemValue: #doMoveIn: |
770 #translateLabel: true |
770 #translateLabel: true |
771 #labelImage: #(#ResourceRetriever #Icon #downRightIcon '') |
771 #labelImage: #(#ResourceRetriever #Icon #downRightIcon '') |
772 #argument: #inNext |
772 #argument: #inNext |
773 ) |
773 ) |
774 #(#MenuItem |
774 #(#MenuItem |
775 #activeHelpKey: #editMoveInAbove |
775 #activeHelpKey: #editMoveInAbove |
776 #enabled: #valueOfEnableMovingInAbove |
776 #enabled: #enableMovingInAboveHolder |
777 #label: 'Move Into Previous' |
777 #label: 'Move Into Previous' |
778 #itemValue: #doMoveIn: |
778 #itemValue: #doMoveIn: |
779 #translateLabel: true |
779 #translateLabel: true |
780 #labelImage: #(#ResourceRetriever #Icon #upRightIcon '') |
780 #labelImage: #(#ResourceRetriever #Icon #upRightIcon '') |
781 #argument: #inPrev |
781 #argument: #inPrev |
782 ) |
782 ) |
783 #(#MenuItem |
783 #(#MenuItem |
784 #activeHelpKey: #editMoveOut |
784 #activeHelpKey: #editMoveOut |
785 #enabled: #valueOfEnableMovingOut |
785 #enabled: #enableMovingOutHolder |
786 #label: 'Move Out' |
786 #label: 'Move Out' |
787 #itemValue: #doMoveOut |
787 #itemValue: #doMoveOut |
788 #translateLabel: true |
788 #translateLabel: true |
789 #labelImage: #(#ResourceRetriever #Icon #leftDownIcon '') |
789 #labelImage: #(#ResourceRetriever #Icon #leftDownIcon '') |
790 ) |
790 ) |
1271 (MenuItem |
1271 (MenuItem |
1272 label: '' |
1272 label: '' |
1273 ) |
1273 ) |
1274 (MenuItem |
1274 (MenuItem |
1275 activeHelpKey: editMoveUp |
1275 activeHelpKey: editMoveUp |
1276 enabled: valueOfEnableMovingUpOrDown |
1276 enabled: enableMovingUpOrDownHolder |
1277 label: 'Move Up' |
1277 label: 'Move Up' |
1278 itemValue: doMoveUp |
1278 itemValue: doMoveUp |
1279 translateLabel: true |
1279 translateLabel: true |
1280 isButton: true |
1280 isButton: true |
1281 startGroup: right |
1281 startGroup: right |
1282 labelImage: (ResourceRetriever Icon upIcon) |
1282 labelImage: (ResourceRetriever Icon upIcon) |
1283 ) |
1283 ) |
1284 (MenuItem |
1284 (MenuItem |
1285 activeHelpKey: editMoveDown |
1285 activeHelpKey: editMoveDown |
1286 enabled: valueOfEnableMovingUpOrDown |
1286 enabled: enableMovingUpOrDownHolder |
1287 label: 'Move Down' |
1287 label: 'Move Down' |
1288 itemValue: doMoveDown |
1288 itemValue: doMoveDown |
1289 translateLabel: true |
1289 translateLabel: true |
1290 isButton: true |
1290 isButton: true |
1291 labelImage: (ResourceRetriever Icon downIcon) |
1291 labelImage: (ResourceRetriever Icon downIcon) |
1292 ) |
1292 ) |
1293 (MenuItem |
1293 (MenuItem |
1294 activeHelpKey: editMoveIn |
1294 activeHelpKey: editMoveIn |
1295 enabled: valueOfEnableMovingIn |
1295 enabled: enableMovingInHolder |
1296 label: 'Move Into Next' |
1296 label: 'Move Into Next' |
1297 itemValue: doMoveInNext |
1297 itemValue: doMoveInNext |
1298 translateLabel: true |
1298 translateLabel: true |
1299 isButton: true |
1299 isButton: true |
1300 labelImage: (ResourceRetriever Icon downRightIcon) |
1300 labelImage: (ResourceRetriever Icon downRightIcon) |
1301 ) |
1301 ) |
1302 (MenuItem |
1302 (MenuItem |
1303 activeHelpKey: editMoveInAbove |
1303 activeHelpKey: editMoveInAbove |
1304 enabled: valueOfEnableMovingInAbove |
1304 enabled: enableMovingInAboveHolder |
1305 label: 'Move Into Previous' |
1305 label: 'Move Into Previous' |
1306 itemValue: doMoveInPrevious |
1306 itemValue: doMoveInPrevious |
1307 translateLabel: true |
1307 translateLabel: true |
1308 isButton: true |
1308 isButton: true |
1309 labelImage: (ResourceRetriever Icon upRightIcon) |
1309 labelImage: (ResourceRetriever Icon upRightIcon) |
1310 ) |
1310 ) |
1311 (MenuItem |
1311 (MenuItem |
1312 activeHelpKey: editMoveOut |
1312 activeHelpKey: editMoveOut |
1313 enabled: valueOfEnableMovingOut |
1313 enabled: enableMovingOutHolder |
1314 label: 'Move Out' |
1314 label: 'Move Out' |
1315 itemValue: doMoveOut |
1315 itemValue: doMoveOut |
1316 translateLabel: true |
1316 translateLabel: true |
1317 isButton: true |
1317 isButton: true |
1318 labelImage: (ResourceRetriever Icon leftDownIcon) |
1318 labelImage: (ResourceRetriever Icon leftDownIcon) |
1808 |
1808 |
1809 selection := selectionHolder value. |
1809 selection := selectionHolder value. |
1810 sizeOfSel := selection size. |
1810 sizeOfSel := selection size. |
1811 |
1811 |
1812 sizeOfSel == 1 ifTrue:[selectedItem := selection at:1] |
1812 sizeOfSel == 1 ifTrue:[selectedItem := selection at:1] |
1813 ifFalse:[selectedItem := nil]. |
1813 ifFalse:[selectedItem := nil]. |
1814 |
1814 |
1815 self hasSelectionChannel value:(sizeOfSel ~~ 0). |
1815 self hasSelectionChannel value:(sizeOfSel ~~ 0). |
1816 self hasSingleSelectionChannel value:(selectedItem notNil). |
1816 self hasSingleSelectionChannel value:(selectedItem notNil). |
1817 |
1817 |
1818 selectedItem isNil ifTrue:[ |
1818 selectedItem isNil ifTrue:[ |
1819 self valueOfEnableMovingIn value:false. |
1819 self enableMovingInHolder value:false. |
1820 self valueOfEnableMovingOut value:false. |
1820 self enableMovingOutHolder value:false. |
1821 self valueOfEnableMovingUpOrDown value:false. |
1821 self enableMovingUpOrDownHolder value:false. |
1822 self valueOfEnableMovingInAbove value:false. |
1822 self enableMovingInAboveHolder value:false. |
1823 self canCreateDelayedMenuChannel value:false. |
1823 self canCreateDelayedMenuChannel value:false. |
1824 ] ifFalse:[ |
1824 ] ifFalse:[ |
1825 self valueOfEnableMovingUpOrDown value:(selectedItem canMoveUpOrDown). |
1825 self enableMovingUpOrDownHolder value:(selectedItem canMoveUpOrDown). |
1826 self valueOfEnableMovingOut value:(selectedItem canMoveOut). |
1826 self enableMovingOutHolder value:(selectedItem canMoveOut). |
1827 self valueOfEnableMovingIn value:(selectedItem canMoveInNext). |
1827 self enableMovingInHolder value:(selectedItem canMoveInNext). |
1828 self valueOfEnableMovingInAbove value:(selectedItem canMoveInAbove). |
1828 self enableMovingInAboveHolder value:(selectedItem canMoveInAbove). |
1829 self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu). |
1829 self canCreateDelayedMenuChannel value:(selectedItem canAddDelayedMenu). |
1830 ]. |
1830 ]. |
1831 ! ! |
1831 ! ! |
1832 |
1832 |
1833 !MenuEditor methodsFor:'code generation'! |
1833 !MenuEditor methodsFor:'code generation'! |
1834 |
1834 |