equal
deleted
inserted
replaced
937 |
937 |
938 ^ |
938 ^ |
939 #(Menu |
939 #(Menu |
940 ( |
940 ( |
941 (MenuItem |
941 (MenuItem |
|
942 isVisible: isNotEditingSpecOnly |
942 activeHelpKey: fileNew |
943 activeHelpKey: fileNew |
943 label: 'New' |
944 label: 'New' |
944 itemValue: doNew |
945 itemValue: doNew |
945 translateLabel: true |
946 translateLabel: true |
946 ) |
947 ) |
947 (MenuItem |
948 (MenuItem |
|
949 isVisible: isNotEditingSpecOnly |
948 label: '-' |
950 label: '-' |
949 ) |
951 ) |
950 (MenuItem |
952 (MenuItem |
951 isVisible: isNotEditingSpecOnly |
953 isVisible: isNotEditingSpecOnly |
952 activeHelpKey: fileLoad |
954 activeHelpKey: fileLoad |
2483 cls := self resolveName:specClass. |
2485 cls := self resolveName:specClass. |
2484 ^ cls notNil |
2486 ^ cls notNil |
2485 ! |
2487 ! |
2486 |
2488 |
2487 isEditingSpecOnly |
2489 isEditingSpecOnly |
2488 ^ masterApplication notNil and:[ masterApplication isEditingSpecOnly ] |
2490 ^ masterApplication perform:#isEditingSpecOnly ifNotUnderstood:true "/ false |
2489 ! |
2491 ! |
2490 |
2492 |
2491 isNotEditingSpecOnly |
2493 isNotEditingSpecOnly |
2492 ^ self isEditingSpecOnly not |
2494 ^ self isEditingSpecOnly not |
2493 ! ! |
2495 ! ! |