715 " |
715 " |
716 |
716 |
717 <resource: #menu> |
717 <resource: #menu> |
718 |
718 |
719 ^ |
719 ^ |
720 #(#Menu |
720 #(Menu |
721 #( |
721 ( |
722 #(#MenuItem |
722 (MenuItem |
723 #activeHelpKey: #editCut |
723 activeHelpKey: editCut |
724 #enabled: #hasSelectionChannel |
724 enabled: hasSelectionChannel |
725 #label: 'Cut' |
725 label: 'Cut' |
726 #itemValue: #doCut |
726 itemValue: doCut |
727 #translateLabel: true |
727 translateLabel: true |
728 ) |
728 shortcutKey: Cut |
729 #(#MenuItem |
729 ) |
730 #activeHelpKey: #editCopy |
730 (MenuItem |
731 #enabled: #hasSelectionChannel |
731 activeHelpKey: editCopy |
732 #label: 'Copy' |
732 enabled: hasSelectionChannel |
733 #itemValue: #doCopy |
733 label: 'Copy' |
734 #translateLabel: true |
734 itemValue: doCopy |
735 ) |
735 translateLabel: true |
736 #(#MenuItem |
736 shortcutKey: Copy |
737 #activeHelpKey: #editPaste |
737 ) |
738 #enabled: #canPasteHolder |
738 (MenuItem |
739 #label: 'Paste' |
739 activeHelpKey: editPaste |
740 #itemValue: #doPaste |
740 enabled: canPasteHolder |
741 #translateLabel: true |
741 label: 'Paste' |
742 ) |
742 itemValue: doPaste |
743 #(#MenuItem |
743 translateLabel: true |
744 #activeHelpKey: #editDelete |
744 shortcutKey: Paste |
745 #enabled: #hasSelectionChannel |
745 ) |
746 #label: 'Delete' |
746 (MenuItem |
747 #itemValue: #doDelete |
747 activeHelpKey: editDelete |
748 #translateLabel: true |
748 enabled: hasSelectionChannel |
749 #isVisible: false |
749 label: 'Delete' |
750 ) |
750 itemValue: doDelete |
751 #(#MenuItem |
751 translateLabel: true |
752 #label: '-' |
752 isVisible: false |
753 ) |
753 ) |
754 #(#MenuItem |
754 (MenuItem |
755 #activeHelpKey: #editMoveUp |
755 label: '-' |
756 #enabled: #enableMovingUpOrDownHolder |
756 ) |
757 #label: 'Move Up' |
757 (MenuItem |
758 #itemValue: #doMoveUpOrDown: |
758 activeHelpKey: editMoveUp |
759 #translateLabel: true |
759 enabled: enableMovingUpOrDownHolder |
760 #startGroup: #right |
760 label: 'Move Up' |
761 #labelImage: #(#ResourceRetriever #Icon #upIcon '') |
761 itemValue: doMoveUpOrDown: |
762 #argument: #up |
762 translateLabel: true |
763 ) |
763 startGroup: right |
764 #(#MenuItem |
764 argument: up |
765 #activeHelpKey: #editMoveDown |
765 shortcutKey: CtrlCursorUp |
766 #enabled: #enableMovingUpOrDownHolder |
766 labelImage: (ResourceRetriever Icon upIcon 'Move Up') |
767 #label: 'Move Down' |
767 "/ labelImage: (ResourceRetriever ToolbarIconLibrary up16x16Icon 'Move Up') |
768 #itemValue: #doMoveUpOrDown: |
768 ) |
769 #translateLabel: true |
769 (MenuItem |
770 #labelImage: #(#ResourceRetriever #Icon #downIcon '') |
770 activeHelpKey: editMoveDown |
771 #argument: #down |
771 enabled: enableMovingUpOrDownHolder |
772 ) |
772 label: 'Move Down' |
773 #(#MenuItem |
773 itemValue: doMoveUpOrDown: |
774 #activeHelpKey: #editMoveIn |
774 translateLabel: true |
775 #enabled: #enableMovingInHolder |
775 shortcutKey: CtrlCursorDown |
776 #label: 'Move Into Next' |
776 labelImage: (ResourceRetriever Icon downIcon 'Move Down') |
777 #itemValue: #doMoveIn: |
777 argument: down |
778 #translateLabel: true |
778 ) |
779 #labelImage: #(#ResourceRetriever #Icon #downRightIcon '') |
779 (MenuItem |
780 #argument: #inNext |
780 activeHelpKey: editMoveIn |
781 ) |
781 enabled: enableMovingInHolder |
782 #(#MenuItem |
782 label: 'Move Into Next' |
783 #activeHelpKey: #editMoveInAbove |
783 itemValue: doMoveIn: |
784 #enabled: #enableMovingInAboveHolder |
784 translateLabel: true |
785 #label: 'Move Into Previous' |
785 shortcutKey: CtrlCursorRight |
786 #itemValue: #doMoveIn: |
786 labelImage: (ResourceRetriever Icon downRightIcon 'Move Into Next') |
787 #translateLabel: true |
787 argument: inNext |
788 #labelImage: #(#ResourceRetriever #Icon #upRightIcon '') |
788 ) |
789 #argument: #inPrev |
789 (MenuItem |
790 ) |
790 activeHelpKey: editMoveInAbove |
791 #(#MenuItem |
791 enabled: enableMovingInAboveHolder |
792 #activeHelpKey: #editMoveOut |
792 label: 'Move Into Previous' |
793 #enabled: #enableMovingOutHolder |
793 itemValue: doMoveIn: |
794 #label: 'Move Out' |
794 translateLabel: true |
795 #itemValue: #doMoveOut |
795 labelImage: (ResourceRetriever Icon upRightIcon 'Move Into Previous') |
796 #translateLabel: true |
796 argument: inPrev |
797 #labelImage: #(#ResourceRetriever #Icon #leftDownIcon '') |
797 ) |
|
798 (MenuItem |
|
799 activeHelpKey: editMoveOut |
|
800 enabled: enableMovingOutHolder |
|
801 label: 'Move Out' |
|
802 itemValue: doMoveOut |
|
803 translateLabel: true |
|
804 shortcutKey: CtrlCursorLeft |
|
805 labelImage: (ResourceRetriever Icon leftDownIcon 'Move Out') |
798 ) |
806 ) |
799 ) |
807 ) |
800 nil |
808 nil |
801 nil |
809 nil |
802 ) |
810 ) |