1035 " |
1035 " |
1036 |
1036 |
1037 <resource: #menu> |
1037 <resource: #menu> |
1038 |
1038 |
1039 ^ |
1039 ^ |
1040 #(#Menu |
1040 #(Menu |
1041 #( |
1041 ( |
1042 #(#MenuItem |
1042 (MenuItem |
1043 #label: 'New' |
1043 activeHelpKey: fileNew |
1044 #isButton: true |
1044 label: 'New' |
1045 #value: #doNew |
1045 itemValue: doNew |
1046 #activeHelpKey: #fileNew |
1046 translateLabel: true |
1047 #labelImage: #(#ResourceRetriever #Icon #newIcon) |
1047 isButton: true |
1048 ) |
1048 labelImage: (ResourceRetriever ToolbarIconLibrary new22x22Icon) |
1049 #(#MenuItem |
1049 ) |
1050 #label: 'Load' |
1050 (MenuItem |
1051 #isButton: true |
1051 activeHelpKey: fileLoad |
1052 #value: #doLoad |
1052 label: 'Load' |
1053 #activeHelpKey: #fileLoad |
1053 itemValue: doLoad |
1054 #labelImage: #(#ResourceRetriever #Icon #loadIcon) |
1054 translateLabel: true |
1055 ) |
1055 isButton: true |
1056 #(#MenuItem |
1056 labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon) |
1057 #label: 'Save' |
1057 ) |
1058 #isButton: true |
1058 (MenuItem |
1059 #value: #doSave |
1059 activeHelpKey: fileSave |
1060 #activeHelpKey: #fileSave |
1060 label: 'Save' |
1061 #labelImage: #(#ResourceRetriever #Icon #saveIcon) |
1061 itemValue: doSave |
1062 ) |
1062 translateLabel: true |
1063 #(#MenuItem |
1063 isButton: true |
1064 #label: '' |
1064 labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) |
1065 ) |
1065 ) |
1066 #(#MenuItem |
1066 (MenuItem |
1067 #label: 'Cut' |
1067 label: '-' |
1068 #isButton: true |
1068 ) |
1069 #value: #doCut |
1069 (MenuItem |
1070 #activeHelpKey: #editCut |
1070 activeHelpKey: editCut |
1071 #enabled: #hasSelectionHolder |
1071 enabled: hasSelectionHolder |
1072 #labelImage: #(#ResourceRetriever #Icon #cutIcon) |
1072 label: 'Cut' |
1073 ) |
1073 itemValue: doCut |
1074 #(#MenuItem |
1074 translateLabel: true |
1075 #label: 'Copy' |
1075 isButton: true |
1076 #isButton: true |
1076 labelImage: (ResourceRetriever ToolbarIconLibrary cutWidgetIcon) |
1077 #value: #doCopy |
1077 ) |
1078 #activeHelpKey: #editCopy |
1078 (MenuItem |
1079 #enabled: #hasSelectionHolder |
1079 activeHelpKey: editCopy |
1080 #labelImage: #(#ResourceRetriever #Icon #copyIcon) |
1080 enabled: hasSelectionHolder |
1081 ) |
1081 label: 'Copy' |
1082 #(#MenuItem |
1082 itemValue: doCopy |
1083 #label: 'Paste' |
1083 translateLabel: true |
1084 #isButton: true |
1084 isButton: true |
1085 #value: #doPaste |
1085 labelImage: (ResourceRetriever ToolbarIconLibrary copyWidgetIcon) |
1086 #activeHelpKey: #editPaste |
1086 ) |
1087 #enabled: #valueOfCanPaste |
1087 (MenuItem |
1088 #labelImage: #(#ResourceRetriever #Icon #pasteIcon) |
1088 activeHelpKey: editPaste |
1089 ) |
1089 enabled: valueOfCanPaste |
1090 #(#MenuItem |
1090 label: 'Paste' |
1091 #label: 'Delete' |
1091 itemValue: doPaste |
1092 #isButton: true |
1092 translateLabel: true |
1093 #value: #doDelete |
1093 isButton: true |
1094 #activeHelpKey: #editDelete |
1094 labelImage: (ResourceRetriever ToolbarIconLibrary pasteWidgetIcon) |
1095 #enabled: #hasSelectionHolder |
1095 ) |
1096 #labelImage: #(#ResourceRetriever #Icon #deleteIcon) |
1096 (MenuItem |
1097 ) |
1097 activeHelpKey: editDelete |
1098 #(#MenuItem |
1098 enabled: hasSelectionHolder |
1099 #label: '' |
1099 label: 'Delete' |
1100 ) |
1100 itemValue: doDelete |
1101 #(#MenuItem |
1101 translateLabel: true |
1102 #label: 'Add Tab Item' |
1102 isButton: true |
1103 #isButton: true |
1103 isVisible: false |
1104 #value: #doCreate |
1104 labelImage: (ResourceRetriever ToolbarIconLibrary delete22x22Icon) |
1105 #activeHelpKey: #addTabItem |
1105 ) |
1106 #labelImage: #(#ResourceRetriever nil #newTabItemIcon) |
1106 (MenuItem |
1107 ) |
1107 label: '-' |
1108 #(#MenuItem |
1108 ) |
1109 #label: '' |
1109 (MenuItem |
1110 ) |
1110 activeHelpKey: addTabItem |
1111 #(#MenuItem |
1111 label: 'Add Tab Item' |
1112 #label: 'Move Tab Up' |
1112 itemValue: doCreate |
1113 #isButton: true |
1113 translateLabel: true |
1114 #value: #doMoveTabUpOrDown: |
1114 isButton: true |
1115 #activeHelpKey: #editMoveUp |
1115 labelImage: (ResourceRetriever nil newTabItemIcon) |
1116 #enabled: #canMoveTabItemUpOrDown |
1116 ) |
1117 #argument: #up |
1117 (MenuItem |
1118 #labelImage: #(#ResourceRetriever #Icon #upIcon) |
1118 label: '' |
1119 ) |
1119 ) |
1120 #(#MenuItem |
1120 (MenuItem |
1121 #label: 'Move Tab Down' |
1121 activeHelpKey: editMoveUp |
1122 #isButton: true |
1122 enabled: canMoveTabItemUpOrDown |
1123 #value: #doMoveTabUpOrDown: |
1123 label: 'Move Tab Up' |
1124 #activeHelpKey: #editMoveDown |
1124 itemValue: doMoveTabUpOrDown: |
1125 #enabled: #canMoveTabItemUpOrDown |
1125 translateLabel: true |
1126 #argument: #down |
1126 isButton: true |
1127 #labelImage: #(#ResourceRetriever #Icon #downIcon) |
1127 startGroup: right |
|
1128 labelImage: (ResourceRetriever XPToolbarIconLibrary up22x22Icon) |
|
1129 argument: up |
|
1130 ) |
|
1131 (MenuItem |
|
1132 activeHelpKey: editMoveDown |
|
1133 enabled: canMoveTabItemUpOrDown |
|
1134 label: 'Move Tab Down' |
|
1135 itemValue: doMoveTabUpOrDown: |
|
1136 translateLabel: true |
|
1137 isButton: true |
|
1138 startGroup: right |
|
1139 labelImage: (ResourceRetriever XPToolbarIconLibrary down22x22Icon) |
|
1140 argument: down |
1128 ) |
1141 ) |
1129 ) |
1142 ) |
1130 nil |
1143 nil |
1131 nil |
1144 nil |
1132 ) |
1145 ) |