937 |
937 |
938 ^ |
938 ^ |
939 #(Menu |
939 #(Menu |
940 ( |
940 ( |
941 (MenuItem |
941 (MenuItem |
942 isVisible: isNotEditingSpecOnly |
942 isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser |
943 activeHelpKey: fileNew |
943 activeHelpKey: fileNew |
944 label: 'New' |
944 label: 'New' |
945 itemValue: doNew |
945 itemValue: doNew |
946 translateLabel: true |
946 translateLabel: true |
947 ) |
947 ) |
948 (MenuItem |
948 (MenuItem |
949 isVisible: isNotEditingSpecOnly |
949 isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser |
950 label: '-' |
950 label: '-' |
951 ) |
951 ) |
952 (MenuItem |
952 (MenuItem |
953 isVisible: isNotEditingSpecOnly |
953 isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser |
954 activeHelpKey: fileLoad |
954 activeHelpKey: fileLoad |
955 label: 'Load...' |
955 label: 'Load...' |
956 itemValue: doLoad |
956 itemValue: doLoad |
957 translateLabel: true |
957 translateLabel: true |
958 ) |
958 ) |
959 (MenuItem |
959 (MenuItem |
960 isVisible: isNotEditingSpecOnly |
960 isVisible: isNotEditingSpecOnlyAndNotEmbeddedInBrowser |
961 label: '-' |
961 label: '-' |
962 ) |
962 ) |
963 (MenuItem |
963 (MenuItem |
964 isVisible: isEditingSpecOnly |
964 isVisible: isEditingSpecOnly |
965 activeHelpKey: fileSaveSpec |
965 activeHelpKey: fileSaveSpec |
1311 ) |
1311 ) |
1312 (MenuItem |
1312 (MenuItem |
1313 label: '-' |
1313 label: '-' |
1314 ) |
1314 ) |
1315 (MenuItem |
1315 (MenuItem |
1316 isVisible: isNotEditingSpecOnly |
|
1317 activeHelpKey: fileLoad |
1316 activeHelpKey: fileLoad |
1318 label: 'Load' |
1317 label: 'Load' |
1319 itemValue: doLoad |
1318 itemValue: doLoad |
1320 translateLabel: true |
1319 translateLabel: true |
1321 isButton: true |
1320 isButton: true |
|
1321 isVisible: isNotEditingSpecOnly |
1322 submenuChannel: menuHistory |
1322 submenuChannel: menuHistory |
1323 labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon) |
1323 labelImage: (ResourceRetriever ToolbarIconLibrary loadFromMethodIcon) |
1324 keepLinkedMenu: true |
1324 keepLinkedMenu: true |
1325 ) |
1325 ) |
1326 (MenuItem |
1326 (MenuItem |
1327 isVisible: isNotEditingSpecOnly |
|
1328 activeHelpKey: fileSave |
1327 activeHelpKey: fileSave |
1329 label: 'Save' |
1328 label: 'Save' |
1330 itemValue: doSave |
1329 itemValue: doSave |
1331 translateLabel: true |
1330 translateLabel: true |
1332 isButton: true |
1331 isButton: true |
|
1332 isVisible: isNotEditingSpecOnly |
1333 labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) |
1333 labelImage: (ResourceRetriever ToolbarIconLibrary saveAsMethodIcon) |
1334 ) |
1334 ) |
1335 (MenuItem |
1335 (MenuItem |
1336 isVisible: isEditingSpecOnly |
|
1337 activeHelpKey: fileSaveSpec |
1336 activeHelpKey: fileSaveSpec |
1338 label: 'Save' |
1337 label: 'Save' |
1339 itemValue: doSave |
1338 itemValue: doSave |
1340 translateLabel: true |
1339 translateLabel: true |
1341 isButton: true |
1340 isButton: true |
|
1341 isVisible: isEditingSpecOnly |
1342 labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon) |
1342 labelImage: (ResourceRetriever XPToolbarIconLibrary saveImageIcon) |
1343 ) |
1343 ) |
1344 (MenuItem |
1344 (MenuItem |
1345 label: '-' |
1345 label: '-' |
1346 ) |
1346 ) |
2282 (builder componentAt:#mainPanel) layout bottomOffset:0. |
2282 (builder componentAt:#mainPanel) layout bottomOffset:0. |
2283 (builder componentAt:#infoBarSubSpec) beInvisible |
2283 (builder componentAt:#infoBarSubSpec) beInvisible |
2284 ] |
2284 ] |
2285 ! |
2285 ! |
2286 |
2286 |
|
2287 commonPostOpen |
|
2288 "reset keyboardProcessor for menuBar" |
|
2289 |
|
2290 super commonPostOpen. |
|
2291 builder keyboardProcessor menuBar:nil. |
|
2292 self windowGroup addPreEventHook:self. |
|
2293 ! |
|
2294 |
2287 initialize |
2295 initialize |
2288 "setup aspects, ... |
2296 "setup aspects, ... |
2289 " |
2297 " |
2290 super initialize. |
2298 super initialize. |
2291 notifyDisabledCounter := 0. |
2299 notifyDisabledCounter := 0. |
2322 listOfItemsView := aSrollableView scrolledView. |
2330 listOfItemsView := aSrollableView scrolledView. |
2323 ! |
2331 ! |
2324 |
2332 |
2325 postBuildNoteBook:aNoteBook |
2333 postBuildNoteBook:aNoteBook |
2326 aNoteBook tabLabelInset:16@4. |
2334 aNoteBook tabLabelInset:16@4. |
2327 ! |
|
2328 |
|
2329 postOpenWith:aBuilder |
|
2330 "reset keyboardProcessor for menuBar" |
|
2331 |
|
2332 super postOpenWith: aBuilder. |
|
2333 aBuilder keyboardProcessor menuBar:nil. |
|
2334 self windowGroup addPreEventHook:self. |
|
2335 ! ! |
2335 ! ! |
2336 |
2336 |
2337 !MenuEditor methodsFor:'menus-dynamic'! |
2337 !MenuEditor methodsFor:'menus-dynamic'! |
|
2338 |
|
2339 editMenu |
|
2340 self halt. |
|
2341 ^ super editMenu |
|
2342 ! |
2338 |
2343 |
2339 submenuTest |
2344 submenuTest |
2340 "returns a menu on the current editing menu |
2345 "returns a menu on the current editing menu |
2341 " |
2346 " |
2342 |menu indication choice submenu retriever| |
2347 |menu indication choice submenu retriever| |
2485 cls := self resolveName:specClass. |
2490 cls := self resolveName:specClass. |
2486 ^ cls notNil |
2491 ^ cls notNil |
2487 ! |
2492 ! |
2488 |
2493 |
2489 isEditingSpecOnly |
2494 isEditingSpecOnly |
2490 ^ masterApplication perform:#isEditingSpecOnly ifNotUnderstood:true "/ false |
2495 ^ masterApplication notNil |
|
2496 and:[ masterApplication perform:#isEditingSpecOnly ifNotUnderstood:false] |
2491 ! |
2497 ! |
2492 |
2498 |
2493 isNotEditingSpecOnly |
2499 isNotEditingSpecOnly |
2494 ^ self isEditingSpecOnly not |
2500 ^ self isEditingSpecOnly not |
|
2501 ! |
|
2502 |
|
2503 isNotEditingSpecOnlyAndNotEmbeddedInBrowser |
|
2504 ^ self isNotEditingSpecOnly and:[ self isEmbeddedInBrowser not ] |
2495 ! ! |
2505 ! ! |
2496 |
2506 |
2497 !MenuEditor methodsFor:'selection'! |
2507 !MenuEditor methodsFor:'selection'! |
2498 |
2508 |
2499 canSelect:anIndex |
2509 canSelect:anIndex |