975 |
977 |
976 #(#FullSpec |
978 #(#FullSpec |
977 #window: |
979 #window: |
978 #(#WindowSpec |
980 #(#WindowSpec |
979 #name: 'Menu Editor' |
981 #name: 'Menu Editor' |
980 #layout: #(#LayoutFrame 88 0 294 0 627 0 673 0) |
982 #layout: #(#LayoutFrame 189 0 552 0 872 0 931 0) |
981 #label: 'Menu Editor' |
983 #label: 'Menu Editor' |
982 #min: #(#Point 510 390) |
984 #min: #(#Point 510 390) |
983 #max: #(#Point 1152 900) |
985 #max: #(#Point 1152 900) |
984 #bounds: #(#Rectangle 88 294 628 674) |
986 #bounds: #(#Rectangle 189 552 873 932) |
985 #menu: #menu |
987 #menu: #menu |
986 #usePreferredExtent: false |
988 #usePreferredExtent: false |
987 ) |
989 ) |
988 #component: |
990 #component: |
989 #(#SpecCollection |
991 #(#SpecCollection |
1035 ) |
1037 ) |
1036 #level: -1 |
1038 #level: -1 |
1037 ) |
1039 ) |
1038 ) |
1040 ) |
1039 ) |
1041 ) |
1040 #handles: #(#Any 0.384483 1.0) |
1042 #handles: #(#Any 0.30117 1.0) |
1041 ) |
1043 ) |
1042 #(#UISubSpecification |
1044 #(#UISubSpecification |
1043 #name: 'InfoBarSubSpec' |
1045 #name: 'InfoBarSubSpec' |
1044 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
1046 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
1045 #majorKey: #ToolApplicationModel |
1047 #majorKey: #ToolApplicationModel |
1046 #minorKey: #windowSpecForInfoBar |
1048 #minorKey: #windowSpecForInfoBar |
1047 ) |
1049 ) |
1048 ) |
1050 ) |
1049 ) |
1051 ) |
1050 ) |
1052 ) |
|
1053 |
|
1054 "Modified: / 20.5.1998 / 01:18:39 / cg" |
1051 ! ! |
1055 ! ! |
1052 |
1056 |
1053 !MenuEditor class methodsFor:'menu specs'! |
1057 !MenuEditor class methodsFor:'menu specs'! |
1054 |
1058 |
1055 menu |
1059 menu |
1071 #(#Menu |
1075 #(#Menu |
1072 |
1076 |
1073 #( |
1077 #( |
1074 #(#MenuItem |
1078 #(#MenuItem |
1075 #label: 'About' |
1079 #label: 'About' |
|
1080 #translateLabel: true |
1076 #accessCharacterPosition: 1 |
1081 #accessCharacterPosition: 1 |
1077 #labelImage: #(#ResourceRetriever nil #menuIcon) |
1082 #labelImage: #(#ResourceRetriever nil #menuIcon) |
1078 #submenuChannel: #menuAbout |
1083 #submenuChannel: #menuAbout |
1079 ) |
1084 ) |
1080 #(#MenuItem |
1085 #(#MenuItem |
1081 #label: 'File' |
1086 #label: 'File' |
1082 #activeHelpKey: #file |
1087 #activeHelpKey: #file |
|
1088 #translateLabel: true |
1083 #submenu: |
1089 #submenu: |
1084 #(#Menu |
1090 #(#Menu |
1085 |
1091 |
1086 #( |
1092 #( |
1087 #(#MenuItem |
1093 #(#MenuItem |
1088 #label: 'New' |
1094 #label: 'New' |
1089 #value: #doNew |
1095 #value: #doNew |
|
1096 #translateLabel: true |
1090 #activeHelpKey: #fileNew |
1097 #activeHelpKey: #fileNew |
1091 ) |
1098 ) |
1092 #(#MenuItem |
1099 #(#MenuItem |
1093 #label: '-' |
1100 #label: '-' |
1094 ) |
1101 ) |
1101 #(#MenuItem |
1108 #(#MenuItem |
1102 #label: '-' |
1109 #label: '-' |
1103 ) |
1110 ) |
1104 #(#MenuItem |
1111 #(#MenuItem |
1105 #label: 'Save' |
1112 #label: 'Save' |
|
1113 #translateLabel: true |
1106 #value: #doSave |
1114 #value: #doSave |
1107 #activeHelpKey: #fileSave |
1115 #activeHelpKey: #fileSave |
1108 ) |
1116 ) |
1109 #(#MenuItem |
1117 #(#MenuItem |
1110 #label: 'Save As...' |
1118 #label: 'Save As...' |
|
1119 #translateLabel: true |
1111 #value: #doSaveAs |
1120 #value: #doSaveAs |
1112 #activeHelpKey: #fileSaveAs |
1121 #activeHelpKey: #fileSaveAs |
1113 ) |
1122 ) |
1114 #(#MenuItem |
1123 #(#MenuItem |
1115 #label: '-' |
1124 #label: '-' |
1116 ) |
1125 ) |
1117 #(#MenuItem |
1126 #(#MenuItem |
1118 #label: 'Pick A Menu...' |
1127 #label: 'Pick A Menu...' |
|
1128 #translateLabel: true |
1119 #value: #doPickAMenu |
1129 #value: #doPickAMenu |
1120 #activeHelpKey: #filePickAMenu |
1130 #activeHelpKey: #filePickAMenu |
1121 ) |
1131 ) |
1122 #(#MenuItem |
1132 #(#MenuItem |
1123 #label: '-' |
1133 #label: '-' |
1124 ) |
1134 ) |
1125 #(#MenuItem |
1135 #(#MenuItem |
1126 #label: 'Browse Class' |
1136 #label: 'Browse Class' |
|
1137 #translateLabel: true |
1127 #value: #doBrowseClass |
1138 #value: #doBrowseClass |
1128 #activeHelpKey: #fileBrowseClass |
1139 #activeHelpKey: #fileBrowseClass |
1129 ) |
1140 ) |
1130 #(#MenuItem |
1141 #(#MenuItem |
1131 #label: '-' |
1142 #label: '-' |
1141 ) |
1152 ) |
1142 ) |
1153 ) |
1143 #(#MenuItem |
1154 #(#MenuItem |
1144 #label: 'Edit' |
1155 #label: 'Edit' |
1145 #activeHelpKey: #edit |
1156 #activeHelpKey: #edit |
|
1157 #translateLabel: true |
1146 #submenuChannel: #menuEdit |
1158 #submenuChannel: #menuEdit |
1147 ) |
1159 ) |
1148 #(#MenuItem |
1160 #(#MenuItem |
1149 #label: 'Add' |
1161 #label: 'Add' |
1150 #activeHelpKey: #add |
1162 #activeHelpKey: #add |
|
1163 #translateLabel: true |
1151 #submenuChannel: #menuAdd |
1164 #submenuChannel: #menuAdd |
1152 ) |
1165 ) |
1153 #(#MenuItem |
1166 #(#MenuItem |
1154 #label: 'Test' |
1167 #label: 'Test' |
1155 #activeHelpKey: #test |
1168 #activeHelpKey: #test |
|
1169 #translateLabel: true |
1156 #submenuChannel: #submenuTest |
1170 #submenuChannel: #submenuTest |
1157 ) |
1171 ) |
1158 #(#MenuItem |
1172 #(#MenuItem |
1159 #label: 'Settings' |
1173 #label: 'Settings' |
1160 #submenu: |
1174 #submenu: |
1161 #(#Menu |
1175 #(#Menu |
1162 |
1176 |
1163 #( |
1177 #( |
1164 #(#MenuItem |
1178 #(#MenuItem |
1165 #label: 'Fonts' |
1179 #label: 'Fonts' |
|
1180 #translateLabel: true |
1166 #submenuChannel: #menuFont |
1181 #submenuChannel: #menuFont |
1167 ) |
1182 ) |
1168 ) nil |
1183 ) nil |
1169 nil |
1184 nil |
1170 ) |
1185 ) |
1171 ) |
1186 ) |
1172 #(#MenuItem |
1187 #(#MenuItem |
1173 #label: 'History' |
1188 #label: 'History' |
1174 #activeHelpKey: #history |
1189 #activeHelpKey: #history |
|
1190 #translateLabel: true |
1175 #submenuChannel: #menuHistory |
1191 #submenuChannel: #menuHistory |
1176 ) |
1192 ) |
1177 #(#MenuItem |
1193 #(#MenuItem |
1178 #label: 'Help' |
1194 #label: 'Help' |
|
1195 #translateLabel: true |
1179 #startGroup: #right |
1196 #startGroup: #right |
1180 #submenu: |
1197 #submenu: |
1181 #(#Menu |
1198 #(#Menu |
1182 |
1199 |
1183 #( |
1200 #( |
1184 #(#MenuItem |
1201 #(#MenuItem |
1185 #label: 'Documentation' |
1202 #label: 'Documentation' |
1186 #value: #openHTMLDocument: |
1203 #value: #openHTMLDocument: |
|
1204 #translateLabel: true |
1187 #activeHelpKey: #helpTutorial |
1205 #activeHelpKey: #helpTutorial |
1188 #argument: 'tools/uipainter/MenuEditor.html' |
1206 #argument: 'tools/uipainter/MenuEditor.html' |
1189 ) |
1207 ) |
1190 #(#MenuItem |
1208 #(#MenuItem |
1191 #label: '-' |
1209 #label: '-' |
1192 ) |
1210 ) |
1193 #(#MenuItem |
1211 #(#MenuItem |
1194 #label: 'Help Tool' |
1212 #label: 'Help Tool' |
1195 #value: #openHTMLDocument: |
1213 #value: #openHTMLDocument: |
|
1214 #translateLabel: true |
1196 #activeHelpKey: #helpHelpTool |
1215 #activeHelpKey: #helpHelpTool |
1197 #argument: 'tools/uipainter/HelpTool.html' |
1216 #argument: 'tools/uipainter/HelpTool.html' |
1198 ) |
1217 ) |
1199 #(#MenuItem |
1218 #(#MenuItem |
1200 #label: '-' |
1219 #label: '-' |
1201 ) |
1220 ) |
1202 #(#MenuItem |
1221 #(#MenuItem |
1203 #label: 'Show Help Texts' |
1222 #label: 'Show Help Texts' |
|
1223 #translateLabel: true |
1204 #activeHelpKey: #helpShowHelp |
1224 #activeHelpKey: #helpShowHelp |
1205 #indication: #showHelp: |
1225 #indication: #showHelp: |
1206 ) |
1226 ) |
1207 ) nil |
1227 ) nil |
1208 nil |
1228 nil |
1209 ) |
1229 ) |
1210 ) |
1230 ) |
1211 ) nil |
1231 ) nil |
1212 nil |
1232 nil |
1213 ) |
1233 ) |
|
1234 |
|
1235 "Modified: / 20.5.1998 / 00:36:34 / cg" |
1214 ! |
1236 ! |
1215 |
1237 |
1216 menuAdd |
1238 menuAdd |
1217 "This resource specification was automatically generated |
1239 "This resource specification was automatically generated |
1218 by the MenuEditor of ST/X." |
1240 by the MenuEditor of ST/X." |
1232 #(#Menu |
1254 #(#Menu |
1233 |
1255 |
1234 #( |
1256 #( |
1235 #(#MenuItem |
1257 #(#MenuItem |
1236 #label: 'Menu Item' |
1258 #label: 'Menu Item' |
|
1259 #translateLabel: true |
1237 #value: #doCreateItem |
1260 #value: #doCreateItem |
1238 #activeHelpKey: #addMenuItem |
1261 #activeHelpKey: #addMenuItem |
1239 #labelImage: #(#ResourceRetriever #MenuEditor #menuItemImage 'Menu Item') |
1262 #labelImage: #(#ResourceRetriever #MenuEditor #menuItemImage 'Menu Item') |
1240 ) |
1263 ) |
1241 #(#MenuItem |
1264 #(#MenuItem |
1242 #label: 'Menu Separator' |
1265 #label: 'Menu Separator' |
|
1266 #translateLabel: true |
1243 #value: #doCreateSep |
1267 #value: #doCreateSep |
1244 #activeHelpKey: #addMenuSeparator |
1268 #activeHelpKey: #addMenuSeparator |
1245 #labelImage: #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Menu Separator') |
1269 #labelImage: #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Menu Separator') |
1246 ) |
1270 ) |
1247 #(#MenuItem |
1271 #(#MenuItem |
1248 #label: '-' |
1272 #label: '-' |
1249 ) |
1273 ) |
1250 #(#MenuItem |
1274 #(#MenuItem |
1251 #label: 'Submenu' |
1275 #label: 'Submenu' |
|
1276 #translateLabel: true |
1252 #value: #doCreateMenu |
1277 #value: #doCreateMenu |
1253 #activeHelpKey: #addSubMenu |
1278 #activeHelpKey: #addSubMenu |
1254 #labelImage: #(#ResourceRetriever #MenuEditor #submenuImage 'Submenu') |
1279 #labelImage: #(#ResourceRetriever #MenuEditor #submenuImage 'Submenu') |
1255 ) |
1280 ) |
1256 #(#MenuItem |
1281 #(#MenuItem |
1257 #label: 'Submenu Link' |
1282 #label: 'Submenu Link' |
|
1283 #translateLabel: true |
1258 #value: #doCreateLink |
1284 #value: #doCreateLink |
1259 #activeHelpKey: #addSubMenuLink |
1285 #activeHelpKey: #addSubMenuLink |
1260 #labelImage: #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Submenu Link') |
1286 #labelImage: #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Submenu Link') |
1261 ) |
1287 ) |
1262 ) nil |
1288 ) nil |
1263 nil |
1289 nil |
1264 ) |
1290 ) |
|
1291 |
|
1292 "Modified: / 20.5.1998 / 00:40:39 / cg" |
1265 ! |
1293 ! |
1266 |
1294 |
1267 menuDefaultLink |
1295 menuDefaultLink |
1268 "This resource specification was automatically generated |
1296 "This resource specification was automatically generated |
1269 by the MenuEditor of ST/X." |
1297 by the MenuEditor of ST/X." |
1311 |
1339 |
1312 #( |
1340 #( |
1313 #(#MenuItem |
1341 #(#MenuItem |
1314 #label: 'Cut' |
1342 #label: 'Cut' |
1315 #value: #doCut |
1343 #value: #doCut |
|
1344 #translateLabel: true |
1316 #activeHelpKey: #editCut |
1345 #activeHelpKey: #editCut |
1317 #enabled: #hasValidSelection |
1346 #enabled: #hasValidSelection |
1318 #shortcutKeyCharacter: #Cut |
1347 #shortcutKeyCharacter: #Cut |
1319 ) |
1348 ) |
1320 #(#MenuItem |
1349 #(#MenuItem |
1321 #label: 'Copy' |
1350 #label: 'Copy' |
1322 #value: #doCopy |
1351 #value: #doCopy |
|
1352 #translateLabel: true |
1323 #activeHelpKey: #editCopy |
1353 #activeHelpKey: #editCopy |
1324 #enabled: #hasValidSelection |
1354 #enabled: #hasValidSelection |
1325 #shortcutKeyCharacter: #Copy |
1355 #shortcutKeyCharacter: #Copy |
1326 ) |
1356 ) |
1327 #(#MenuItem |
1357 #(#MenuItem |
1328 #label: 'Paste' |
1358 #label: 'Paste' |
1329 #value: #doPaste |
1359 #value: #doPaste |
|
1360 #translateLabel: true |
1330 #activeHelpKey: #editPaste |
1361 #activeHelpKey: #editPaste |
1331 #enabled: #valueOfCanPaste |
1362 #enabled: #valueOfCanPaste |
1332 #shortcutKeyCharacter: #Paste |
1363 #shortcutKeyCharacter: #Paste |
1333 ) |
1364 ) |
1334 #(#MenuItem |
1365 #(#MenuItem |
1335 #label: 'Delete' |
1366 #label: 'Delete' |
1336 #value: #doDelete |
1367 #value: #doDelete |
|
1368 #translateLabel: true |
1337 #activeHelpKey: #editDelete |
1369 #activeHelpKey: #editDelete |
1338 #enabled: #hasValidSelection |
1370 #enabled: #hasValidSelection |
1339 #shortcutKeyCharacter: #Delete |
1371 #shortcutKeyCharacter: #Delete |
1340 ) |
1372 ) |
1341 #(#MenuItem |
1373 #(#MenuItem |
1342 #label: '-' |
1374 #label: '-' |
1343 ) |
1375 ) |
1344 #(#MenuItem |
1376 #(#MenuItem |
1345 #label: 'Move Up' |
1377 #label: 'Move Up' |
1346 #value: #doStepUp |
1378 #value: #doStepUp |
|
1379 #translateLabel: true |
1347 #activeHelpKey: #editMoveUp |
1380 #activeHelpKey: #editMoveUp |
1348 #enabled: #valueOfEnableMovingUpOrDown |
1381 #enabled: #valueOfEnableMovingUpOrDown |
1349 ) |
1382 ) |
1350 #(#MenuItem |
1383 #(#MenuItem |
1351 #label: 'Move Down' |
1384 #label: 'Move Down' |
1352 #value: #doStepDown |
1385 #value: #doStepDown |
|
1386 #translateLabel: true |
1353 #activeHelpKey: #editMoveDown |
1387 #activeHelpKey: #editMoveDown |
1354 #enabled: #valueOfEnableMovingUpOrDown |
1388 #enabled: #valueOfEnableMovingUpOrDown |
1355 ) |
1389 ) |
1356 #(#MenuItem |
1390 #(#MenuItem |
1357 #label: 'Move In' |
1391 #label: 'Move In' |
1358 #value: #doStepIn |
1392 #value: #doStepIn |
|
1393 #translateLabel: true |
1359 #activeHelpKey: #editMoveIn |
1394 #activeHelpKey: #editMoveIn |
1360 #enabled: #valueOfEnableMovingIn |
1395 #enabled: #valueOfEnableMovingIn |
1361 ) |
1396 ) |
1362 #(#MenuItem |
1397 #(#MenuItem |
1363 #label: 'Move Out' |
1398 #label: 'Move Out' |
1364 #value: #doStepOut |
1399 #value: #doStepOut |
|
1400 #translateLabel: true |
1365 #activeHelpKey: #editMoveOut |
1401 #activeHelpKey: #editMoveOut |
1366 #enabled: #valueOfEnableMovingOut |
1402 #enabled: #valueOfEnableMovingOut |
1367 ) |
1403 ) |
1368 ) nil |
1404 ) nil |
1369 nil |
1405 nil |
1370 ) |
1406 ) |
|
1407 |
|
1408 "Modified: / 20.5.1998 / 00:37:16 / cg" |
1371 ! |
1409 ! |
1372 |
1410 |
1373 menuToolbar |
1411 menuToolbar |
1374 "This resource specification was automatically generated |
1412 "This resource specification was automatically generated |
1375 by the MenuEditor of ST/X." |
1413 by the MenuEditor of ST/X." |