977 " |
977 " |
978 |
978 |
979 <resource: #menu> |
979 <resource: #menu> |
980 |
980 |
981 ^ |
981 ^ |
982 #(#Menu |
982 #(Menu |
983 #( |
983 ( |
984 #(#MenuItem |
984 (MenuItem |
985 #activeHelpKey: #file |
985 enabled: enableChannel |
986 #enabled: #enableChannel |
986 label: '&File' |
987 #label: '&File' |
987 translateLabel: true |
988 #translateLabel: true |
988 submenu: |
989 #submenu: |
989 (Menu |
990 #(#Menu |
990 ( |
991 #( |
991 (MenuItem |
992 #(#MenuItem |
992 activeHelpKey: fileNew |
993 #activeHelpKey: #fileNew |
993 label: 'New' |
994 #label: 'New' |
994 itemValue: doNew |
995 #itemValue: #doNew |
995 translateLabel: true |
996 #translateLabel: true |
|
997 ) |
996 ) |
998 #(#MenuItem |
997 (MenuItem |
999 #label: '-' |
998 label: '-' |
1000 ) |
999 ) |
1001 #(#MenuItem |
1000 (MenuItem |
1002 #activeHelpKey: #fileLoad |
1001 activeHelpKey: fileLoad |
1003 #label: 'Load...' |
1002 label: 'Load...' |
1004 #itemValue: #doLoad |
1003 itemValue: doLoad |
1005 #translateLabel: true |
1004 translateLabel: true |
1006 ) |
1005 ) |
1007 #(#MenuItem |
1006 (MenuItem |
1008 #activeHelpKey: #fileLoadSubspec |
1007 activeHelpKey: fileLoadSubspec |
1009 #label: 'Load Subspec...' |
1008 label: 'Load Subspec...' |
1010 #itemValue: #doLoadSubspec |
1009 itemValue: doLoadSubspec |
1011 #translateLabel: true |
1010 translateLabel: true |
1012 ) |
1011 ) |
1013 #(#MenuItem |
1012 (MenuItem |
1014 #label: '-' |
1013 label: '-' |
1015 ) |
1014 ) |
1016 #(#MenuItem |
1015 (MenuItem |
1017 #activeHelpKey: #fileSave |
1016 activeHelpKey: fileSave |
1018 #label: 'Save' |
1017 label: 'Save' |
1019 #itemValue: #doSave |
1018 itemValue: doSave |
1020 #translateLabel: true |
1019 translateLabel: true |
1021 ) |
1020 ) |
1022 #(#MenuItem |
1021 (MenuItem |
1023 #activeHelpKey: #fileSaveAs |
1022 activeHelpKey: fileSaveAs |
1024 #label: 'Save As...' |
1023 label: 'Save As...' |
1025 #itemValue: #doSaveAs |
1024 itemValue: doSaveAs |
1026 #translateLabel: true |
1025 translateLabel: true |
1027 ) |
1026 ) |
1028 #(#MenuItem |
1027 (MenuItem |
1029 #activeHelpKey: #fileSaveAs |
1028 activeHelpKey: fileSaveAs |
1030 #label: 'Define Class and Selector...' |
1029 label: 'Define Class and Selector...' |
1031 #itemValue: #doDefineClassAndSelector |
1030 itemValue: doDefineClassAndSelector |
1032 #translateLabel: true |
1031 translateLabel: true |
1033 ) |
1032 ) |
1034 #(#MenuItem |
1033 (MenuItem |
1035 #label: '-' |
1034 label: '-' |
1036 ) |
1035 ) |
1037 #(#MenuItem |
1036 (MenuItem |
1038 #activeHelpKey: #filePickAnInterface |
1037 activeHelpKey: filePickAnInterface |
1039 #label: 'Pick a Window Spec...' |
1038 label: 'Pick a Window Spec...' |
1040 #itemValue: #doPickAView |
1039 itemValue: doPickAView |
1041 #translateLabel: true |
1040 translateLabel: true |
1042 ) |
1041 ) |
1043 #(#MenuItem |
1042 (MenuItem |
1044 #label: '-' |
1043 label: '-' |
1045 ) |
1044 ) |
1046 #(#MenuItem |
1045 (MenuItem |
1047 #activeHelpKey: #fileShowWindowSpec |
1046 activeHelpKey: fileShowWindowSpec |
1048 #label: 'Show Window Spec' |
1047 label: 'Show Window Spec' |
1049 #itemValue: #doWindowSpec |
1048 itemValue: doWindowSpec |
1050 #translateLabel: true |
1049 translateLabel: true |
1051 ) |
1050 ) |
1052 #(#MenuItem |
1051 (MenuItem |
1053 #activeHelpKey: #fileBrowseClass |
1052 activeHelpKey: fileBrowseClass |
1054 #enabled: #hasSpecClass |
1053 enabled: hasSpecClass |
1055 #label: 'Browse Applications Class' |
1054 label: 'Browse Applications Class' |
1056 #itemValue: #doBrowseClass |
1055 itemValue: doBrowseClass |
1057 #translateLabel: true |
1056 translateLabel: true |
1058 ) |
1057 ) |
1059 #(#MenuItem |
1058 (MenuItem |
1060 #activeHelpKey: #fileBrowseAspectMethods |
1059 activeHelpKey: fileBrowseAspectMethods |
1061 #enabled: #hasSpecClass |
1060 enabled: hasSpecClass |
1062 #label: 'Browse Applications Aspect Methods' |
1061 label: 'Browse Applications Aspect Methods' |
1063 #itemValue: #doBrowseAspectMethods |
1062 itemValue: doBrowseAspectMethods |
1064 #translateLabel: true |
1063 translateLabel: true |
1065 ) |
1064 ) |
1066 #(#MenuItem |
1065 (MenuItem |
1067 #label: '-' |
1066 label: '-' |
1068 ) |
1067 ) |
1069 #(#MenuItem |
1068 (MenuItem |
1070 #activeHelpKey: #fileExit |
1069 activeHelpKey: fileExit |
1071 #label: 'Exit' |
1070 label: 'Exit' |
1072 #itemValue: #closeRequest |
1071 itemValue: closeRequest |
1073 #translateLabel: true |
1072 translateLabel: true |
1074 ) |
1073 ) |
1075 ) |
1074 ) |
1076 nil |
1075 nil |
1077 nil |
1076 nil |
1078 ) |
1077 ) |
1079 ) |
1078 ) |
1080 #(#MenuItem |
1079 (MenuItem |
1081 #activeHelpKey: #edit |
1080 label: 'Edit' |
1082 #label: 'Edit' |
1081 translateLabel: true |
1083 #translateLabel: true |
1082 submenuChannel: menuEdit |
1084 #submenuChannel: #menuEdit |
|
1085 ) |
1083 ) |
1086 #(#MenuItem |
1084 (MenuItem |
1087 #activeHelpKey: #align |
1085 label: 'Align' |
1088 #label: 'Align' |
1086 translateLabel: true |
1089 #translateLabel: true |
1087 submenuChannel: menuAlign |
1090 #submenuChannel: #menuAlign |
|
1091 ) |
1088 ) |
1092 #(#MenuItem |
1089 (MenuItem |
1093 #activeHelpKey: #generate |
1090 label: 'Generate' |
1094 #label: 'Generate' |
1091 translateLabel: true |
1095 #translateLabel: true |
1092 submenu: |
1096 #submenu: |
1093 (Menu |
1097 #(#Menu |
1094 ( |
1098 #( |
1095 (MenuItem |
1099 #(#MenuItem |
1096 activeHelpKey: generateAspectMethods |
1100 #activeHelpKey: #generateAspectMethods |
1097 enabled: hasSpecClass |
1101 #enabled: #hasSpecClass |
1098 label: 'Aspect Methods' |
1102 #label: 'Aspect Methods' |
1099 itemValue: doGenerateAspectMethods |
1103 #itemValue: #doGenerateAspectMethods |
1100 translateLabel: true |
1104 #translateLabel: true |
|
1105 ) |
1101 ) |
1106 #(#MenuItem |
1102 (MenuItem |
1107 #activeHelpKey: #generateAspectMethodFor |
1103 activeHelpKey: generateAspectMethodFor |
1108 #enabled: #hasSpecClass |
1104 enabled: hasSpecClass |
1109 #label: 'Aspect Method For...' |
1105 label: 'Aspect Method For...' |
1110 #itemValue: #doGenerateAspectMethodFor |
1106 itemValue: doGenerateAspectMethodFor |
1111 #translateLabel: true |
1107 translateLabel: true |
1112 ) |
1108 ) |
1113 #(#MenuItem |
1109 (MenuItem |
1114 #enabled: #hasSpecClass |
1110 enabled: hasSpecClass |
1115 #label: 'Menu Stub Methods' |
1111 label: 'Menu Stub Methods' |
1116 #itemValue: #doGenerateMenuMethods |
1112 itemValue: doGenerateMenuMethods |
1117 #translateLabel: true |
1113 translateLabel: true |
1118 ) |
1114 ) |
1119 #(#MenuItem |
1115 (MenuItem |
1120 #label: '-' |
1116 label: '-' |
1121 ) |
1117 ) |
1122 #(#MenuItem |
1118 (MenuItem |
1123 #activeHelpKey: #generateHookMethods |
1119 activeHelpKey: generateHookMethods |
1124 #enabled: #hasSpecClass |
1120 enabled: hasSpecClass |
1125 #label: 'Hook Methods' |
1121 label: 'Hook Methods' |
1126 #itemValue: #doGenerateHookMethods |
1122 itemValue: doGenerateHookMethods |
1127 #translateLabel: true |
1123 translateLabel: true |
1128 ) |
1124 ) |
1129 ) |
1125 ) |
1130 nil |
1126 nil |
1131 nil |
1127 nil |
1132 ) |
1128 ) |
1133 ) |
1129 ) |
1134 #(#MenuItem |
1130 (MenuItem |
1135 #activeHelpKey: #test |
1131 label: 'Test' |
1136 #label: 'Test' |
1132 translateLabel: true |
1137 #translateLabel: true |
1133 submenu: |
1138 #submenu: |
1134 (Menu |
1139 #(#Menu |
1135 ( |
1140 #( |
1136 (MenuItem |
1141 #(#MenuItem |
1137 activeHelpKey: testStartApplication |
1142 #activeHelpKey: #testStartApplication |
1138 label: 'Start Application' |
1143 #label: 'Start Application' |
1139 itemValue: doStartApplication |
1144 #itemValue: #doStartApplication |
1140 translateLabel: true |
1145 #translateLabel: true |
|
1146 ) |
1141 ) |
1147 #(#MenuItem |
1142 (MenuItem |
1148 #label: '-' |
1143 label: '-' |
1149 ) |
1144 ) |
1150 #(#MenuItem |
1145 (MenuItem |
1151 #activeHelpKey: #testGeometryTestMode |
1146 activeHelpKey: testGeometryTestMode |
1152 #label: 'Geometry Test Mode' |
1147 label: 'Geometry Test Mode' |
1153 #translateLabel: true |
1148 translateLabel: true |
1154 #indication: #testMode: |
1149 indication: testMode: |
1155 ) |
1150 ) |
1156 ) |
1151 ) |
1157 nil |
1152 nil |
1158 nil |
1153 nil |
1159 ) |
1154 ) |
1160 ) |
1155 ) |
1161 #(#MenuItem |
1156 (MenuItem |
1162 #activeHelpKey: #settings |
1157 label: 'Settings' |
1163 #label: 'Settings' |
1158 translateLabel: true |
1164 #translateLabel: true |
1159 submenu: |
1165 #submenu: |
1160 (Menu |
1166 #(#Menu |
1161 ( |
1167 #( |
1162 (MenuItem |
1168 #(#MenuItem |
1163 activeHelpKey: settingsCanvas |
1169 #activeHelpKey: #settingsCanvas |
1164 label: 'Canvas' |
1170 #label: 'Canvas' |
1165 translateLabel: true |
1171 #translateLabel: true |
1166 indication: painterShown |
1172 #indication: #painterShown |
|
1173 ) |
1167 ) |
1174 #(#MenuItem |
1168 (MenuItem |
1175 #activeHelpKey: #settingsGallery |
1169 activeHelpKey: settingsGallery |
1176 #label: 'Gallery' |
1170 label: 'Gallery' |
1177 #translateLabel: true |
1171 translateLabel: true |
1178 #indication: #galleryShown |
1172 indication: galleryShown |
1179 ) |
1173 ) |
1180 #(#MenuItem |
1174 (MenuItem |
1181 #label: '-' |
1175 label: '-' |
1182 ) |
1176 ) |
1183 #(#MenuItem |
1177 (MenuItem |
1184 #activeHelpKey: #settingsRedefineAspectMethods |
1178 activeHelpKey: settingsRedefineAspectMethods |
1185 #enabled: #hasSpecClass |
1179 enabled: hasSpecClass |
1186 #label: 'Redefine Aspect Methods' |
1180 label: 'Redefine Aspect Methods' |
1187 #translateLabel: true |
1181 translateLabel: true |
1188 #indication: #redefineAspectMethods: |
1182 indication: redefineAspectMethods: |
1189 ) |
1183 ) |
1190 #(#MenuItem |
1184 (MenuItem |
1191 #activeHelpKey: #settingsAspectsAsInstances |
1185 activeHelpKey: settingsAspectsAsInstances |
1192 #enabled: #hasSpecClass |
1186 enabled: hasSpecClass |
1193 #label: 'Aspects as InstanceVariables' |
1187 label: 'Aspects as InstanceVariables' |
1194 #translateLabel: true |
1188 translateLabel: true |
1195 #indication: #generateAspectsAsInstanceVariables: |
1189 indication: generateAspectsAsInstanceVariables: |
1196 ) |
1190 ) |
1197 #(#MenuItem |
1191 (MenuItem |
1198 #label: 'AutoAccept on Selection-Change ' |
1192 label: 'AutoAccept on Selection-Change ' |
1199 #translateLabel: true |
1193 translateLabel: true |
1200 #indication: #autoAcceptOnSelectionChange |
1194 indication: autoAcceptOnSelectionChange |
1201 ) |
1195 ) |
1202 #(#MenuItem |
1196 (MenuItem |
1203 #label: '-' |
1197 label: '-' |
1204 ) |
1198 ) |
1205 #(#MenuItem |
1199 (MenuItem |
1206 #activeHelpKey: #settingsUndoManager |
1200 activeHelpKey: settingsUndoManager |
1207 #enabled: #hasUndoHistory |
1201 enabled: hasUndoHistory |
1208 #label: 'Undo Manager...' |
1202 label: 'Undo Manager...' |
1209 #itemValue: #openUndoMenu |
1203 itemValue: openUndoMenu |
1210 #translateLabel: true |
1204 translateLabel: true |
1211 ) |
1205 ) |
1212 #(#MenuItem |
1206 (MenuItem |
1213 #activeHelpKey: #settingsGridManager |
1207 activeHelpKey: settingsGridManager |
1214 #label: 'Grid Manager...' |
1208 label: 'Grid Manager...' |
1215 #itemValue: #doDefineGrid |
1209 itemValue: doDefineGrid |
1216 #translateLabel: true |
1210 translateLabel: true |
1217 ) |
1211 ) |
1218 ) |
1212 ) |
1219 nil |
1213 nil |
1220 nil |
1214 nil |
1221 ) |
1215 ) |
1222 ) |
1216 ) |
1223 #(#MenuItem |
1217 (MenuItem |
1224 #activeHelpKey: #history |
1218 label: 'History' |
1225 #label: 'History' |
1219 translateLabel: true |
1226 #translateLabel: true |
1220 submenuChannel: menuHistory |
1227 #submenuChannel: #menuHistory |
|
1228 ) |
1221 ) |
1229 #(#MenuItem |
1222 (MenuItem |
1230 #activeHelpKey: #help |
1223 label: 'Help' |
1231 #label: 'Help' |
1224 translateLabel: true |
1232 #translateLabel: true |
1225 startGroup: right |
1233 #startGroup: #right |
1226 submenu: |
1234 #submenu: |
1227 (Menu |
1235 #(#Menu |
1228 ( |
1236 #( |
1229 (MenuItem |
1237 #(#MenuItem |
1230 activeHelpKey: helpTutorial |
1238 #activeHelpKey: #helpTutorial |
1231 label: 'Tutorial' |
1239 #label: 'Tutorial' |
1232 itemValue: openHTMLDocument: |
1240 #itemValue: #openHTMLDocument: |
1233 translateLabel: true |
1241 #translateLabel: true |
1234 argument: 'tools/uipainter/TOP.html' |
1242 #argument: 'tools/uipainter/TOP.html' |
|
1243 ) |
1235 ) |
1244 #(#MenuItem |
1236 (MenuItem |
1245 #label: '-' |
1237 label: '-' |
1246 ) |
1238 ) |
1247 #(#MenuItem |
1239 (MenuItem |
1248 #activeHelpKey: #helpFunctions |
1240 activeHelpKey: helpFunctions |
1249 #label: 'Functions' |
1241 label: 'Functions' |
1250 #itemValue: #openHTMLDocument: |
1242 itemValue: openHTMLDocument: |
1251 #translateLabel: true |
1243 translateLabel: true |
1252 #argument: 'tools/uipainter/Functions.html' |
1244 argument: 'tools/uipainter/Functions.html' |
1253 ) |
1245 ) |
1254 #(#MenuItem |
1246 (MenuItem |
1255 #activeHelpKey: #helpExamples |
1247 activeHelpKey: helpExamples |
1256 #label: 'Examples' |
1248 label: 'Examples' |
1257 #itemValue: #openHTMLDocument: |
1249 itemValue: openHTMLDocument: |
1258 #translateLabel: true |
1250 translateLabel: true |
1259 #argument: 'tools/uipainter/Examples.html' |
1251 argument: 'tools/uipainter/Examples.html' |
1260 ) |
1252 ) |
1261 #(#MenuItem |
1253 (MenuItem |
1262 #label: '-' |
1254 label: '-' |
1263 ) |
1255 ) |
1264 #(#MenuItem |
1256 (MenuItem |
1265 #activeHelpKey: #helpHelpTool |
1257 activeHelpKey: helpHelpTool |
1266 #label: 'Help Tool' |
1258 label: 'Help Tool' |
1267 #itemValue: #openHTMLDocument: |
1259 itemValue: openHTMLDocument: |
1268 #translateLabel: true |
1260 translateLabel: true |
1269 #argument: 'tools/uipainter/HelpTool.html' |
1261 argument: 'tools/uipainter/HelpTool.html' |
1270 ) |
1262 ) |
1271 #(#MenuItem |
1263 (MenuItem |
1272 #activeHelpKey: #helpLayoutTool |
1264 activeHelpKey: helpLayoutTool |
1273 #label: 'Layout Tool' |
1265 label: 'Layout Tool' |
1274 #itemValue: #openHTMLDocument: |
1266 itemValue: openHTMLDocument: |
1275 #translateLabel: true |
1267 translateLabel: true |
1276 #argument: 'tools/uipainter/LayoutTool.html' |
1268 argument: 'tools/uipainter/LayoutTool.html' |
1277 ) |
1269 ) |
1278 #(#MenuItem |
1270 (MenuItem |
1279 #label: '-' |
1271 label: '-' |
1280 ) |
1272 ) |
1281 #(#MenuItem |
1273 (MenuItem |
1282 #activeHelpKey: #helpSelectedWidget |
1274 activeHelpKey: helpSelectedWidget |
1283 #label: 'Selected Widget' |
1275 label: 'Selected Widget' |
1284 #itemValue: #doOpenWidgetDocumentation |
1276 itemValue: doOpenWidgetDocumentation |
1285 #translateLabel: true |
1277 translateLabel: true |
1286 ) |
1278 ) |
1287 #(#MenuItem |
1279 (MenuItem |
1288 #label: '-' |
1280 label: '-' |
1289 ) |
1281 ) |
1290 #(#MenuItem |
1282 (MenuItem |
1291 #activeHelpKey: #helpShowHelp |
1283 activeHelpKey: helpShowHelp |
1292 #label: 'Show Help Texts' |
1284 label: 'Show Help Texts' |
1293 #translateLabel: true |
1285 translateLabel: true |
1294 #indication: #showingHelp: |
1286 indication: showingHelp: |
1295 ) |
1287 ) |
1296 #(#MenuItem |
1288 (MenuItem |
1297 #label: '-' |
1289 label: '-' |
1298 ) |
1290 ) |
1299 #(#MenuItem |
1291 (MenuItem |
1300 #activeHelpKey: #aboutThisAppliaction |
1292 activeHelpKey: aboutThisAppliaction |
1301 #label: 'About this Application...' |
1293 label: 'About this Application...' |
1302 #itemValue: #openAboutThisApplication |
1294 itemValue: openAboutThisApplication |
1303 #translateLabel: true |
1295 translateLabel: true |
1304 ) |
1296 ) |
1305 ) |
1297 ) |
1306 nil |
1298 nil |
1307 nil |
1299 nil |
1308 ) |
1300 ) |