808 nil |
808 nil |
809 nil |
809 nil |
810 ) |
810 ) |
811 ! |
811 ! |
812 |
812 |
|
813 editMenuForMainMenuWithoutAccelerators |
|
814 "This resource specification was automatically generated |
|
815 by the MenuEditor of ST/X." |
|
816 |
|
817 "Do not manually edit this!! If it is corrupted, |
|
818 the MenuEditor may not be able to read the specification." |
|
819 |
|
820 " |
|
821 MenuEditor new openOnClass:MenuEditor andSelector:#editMenuForMainMenuWithoutAccelerators |
|
822 (Menu new fromLiteralArrayEncoding:(MenuEditor editMenuForMainMenuWithoutAccelerators)) startUp |
|
823 " |
|
824 |
|
825 <resource: #menu> |
|
826 |
|
827 ^ |
|
828 #(Menu |
|
829 ( |
|
830 (MenuItem |
|
831 activeHelpKey: editCut |
|
832 enabled: hasSelectionChannel |
|
833 label: 'Cut' |
|
834 itemValue: doCut |
|
835 translateLabel: true |
|
836 ) |
|
837 (MenuItem |
|
838 activeHelpKey: editCopy |
|
839 enabled: hasSelectionChannel |
|
840 label: 'Copy' |
|
841 itemValue: doCopy |
|
842 translateLabel: true |
|
843 shortcutKey: #'' |
|
844 ) |
|
845 (MenuItem |
|
846 activeHelpKey: editPaste |
|
847 enabled: canPasteHolder |
|
848 label: 'Paste' |
|
849 itemValue: doPaste |
|
850 translateLabel: true |
|
851 shortcutKey: #'' |
|
852 ) |
|
853 (MenuItem |
|
854 activeHelpKey: editDelete |
|
855 enabled: hasSelectionChannel |
|
856 label: 'Delete' |
|
857 itemValue: doDelete |
|
858 translateLabel: true |
|
859 isVisible: false |
|
860 ) |
|
861 (MenuItem |
|
862 label: '-' |
|
863 ) |
|
864 (MenuItem |
|
865 activeHelpKey: editMoveUp |
|
866 enabled: enableMovingUpOrDownHolder |
|
867 label: 'Move Up' |
|
868 itemValue: doMoveUpOrDown: |
|
869 translateLabel: true |
|
870 startGroup: right |
|
871 shortcutKey: #'' |
|
872 labelImage: (ResourceRetriever Icon upIcon 'Move Up') |
|
873 argument: up |
|
874 ) |
|
875 (MenuItem |
|
876 activeHelpKey: editMoveDown |
|
877 enabled: enableMovingUpOrDownHolder |
|
878 label: 'Move Down' |
|
879 itemValue: doMoveUpOrDown: |
|
880 translateLabel: true |
|
881 shortcutKey: #'' |
|
882 labelImage: (ResourceRetriever Icon downIcon 'Move Down') |
|
883 argument: down |
|
884 ) |
|
885 (MenuItem |
|
886 activeHelpKey: editMoveIn |
|
887 enabled: enableMovingInHolder |
|
888 label: 'Move Into Next' |
|
889 itemValue: doMoveIn: |
|
890 translateLabel: true |
|
891 shortcutKey: #'' |
|
892 labelImage: (ResourceRetriever Icon downRightIcon 'Move Into Next') |
|
893 argument: inNext |
|
894 ) |
|
895 (MenuItem |
|
896 activeHelpKey: editMoveInAbove |
|
897 enabled: enableMovingInAboveHolder |
|
898 label: 'Move Into Previous' |
|
899 itemValue: doMoveIn: |
|
900 translateLabel: true |
|
901 labelImage: (ResourceRetriever Icon upRightIcon 'Move Into Previous') |
|
902 argument: inPrev |
|
903 ) |
|
904 (MenuItem |
|
905 activeHelpKey: editMoveOut |
|
906 enabled: enableMovingOutHolder |
|
907 label: 'Move Out' |
|
908 itemValue: doMoveOut |
|
909 translateLabel: true |
|
910 shortcutKey: #'' |
|
911 labelImage: (ResourceRetriever Icon leftDownIcon 'Move Out') |
|
912 ) |
|
913 ) |
|
914 nil |
|
915 nil |
|
916 ) |
|
917 ! |
|
918 |
813 fileMenu |
919 fileMenu |
814 "This resource specification was automatically generated |
920 "This resource specification was automatically generated |
815 by the MenuEditor of ST/X." |
921 by the MenuEditor of ST/X." |
816 |
922 |
817 "Do not manually edit this!! If it is corrupted, |
923 "Do not manually edit this!! If it is corrupted, |
2143 "filter keyboard edit-events typed into the listOfItemsView. |
2247 "filter keyboard edit-events typed into the listOfItemsView. |
2144 Return true, if I have eaten the event" |
2248 Return true, if I have eaten the event" |
2145 |
2249 |
2146 |evView inView rawKey key| |
2250 |evView inView rawKey key| |
2147 |
2251 |
2148 anEvent isKeyPressEvent ifFalse:[ ^ false]. |
2252 anEvent isKeyPressEvent ifFalse:[^ false]. |
2149 |
2253 |
2150 evView := anEvent targetView. |
2254 evView := anEvent targetView. |
2151 evView isNil ifTrue:[ ^ false ]. |
2255 evView isNil ifTrue:[ ^ false ]. |
2152 |
2256 |
2153 inView := evView isSameOrComponentOf:listOfItemsView. |
2257 inView := evView isSameOrComponentOf:listOfItemsView. |