equal
deleted
inserted
replaced
1140 translateLabel: true |
1140 translateLabel: true |
1141 isButton: true |
1141 isButton: true |
1142 labelImage: (ResourceRetriever ToolbarIconLibrary newMenuIcon) |
1142 labelImage: (ResourceRetriever ToolbarIconLibrary newMenuIcon) |
1143 ) |
1143 ) |
1144 (MenuItem |
1144 (MenuItem |
|
1145 label: '-' |
|
1146 ) |
|
1147 (MenuItem |
1145 activeHelpKey: fileLoad |
1148 activeHelpKey: fileLoad |
1146 label: 'Load' |
1149 label: 'Load' |
1147 itemValue: doLoad |
1150 itemValue: doLoad |
1148 translateLabel: true |
1151 translateLabel: true |
1149 isButton: true |
1152 isButton: true |
2185 self askForItemModification ifFalse:[ ^ nil ]. |
2188 self askForItemModification ifFalse:[ ^ nil ]. |
2186 |
2189 |
2187 index := 1. |
2190 index := 1. |
2188 |
2191 |
2189 (intoItem canAddChildren and:[intoItem isExpanded]) ifFalse:[ |
2192 (intoItem canAddChildren and:[intoItem isExpanded]) ifFalse:[ |
2190 [ intoItem parent canAddChildren ] whileFalse:[ |
2193 intoItem parent notNil ifTrue:[ |
|
2194 [ intoItem parent canAddChildren ] whileFalse:[ |
|
2195 intoItem := intoItem parent. |
|
2196 ]. |
|
2197 index := intoItem parent identityIndexOf:intoItem. |
|
2198 index := index + 1. |
2191 intoItem := intoItem parent. |
2199 intoItem := intoItem parent. |
2192 ]. |
2200 ]. |
2193 index := intoItem parent identityIndexOf:intoItem. |
|
2194 index := index + 1. |
|
2195 intoItem := intoItem parent. |
|
2196 ]. |
2201 ]. |
2197 newItem := aBlockOrItem value. |
2202 newItem := aBlockOrItem value. |
2198 |
2203 |
2199 newItem ifNotNil:[ |
2204 newItem ifNotNil:[ |
2200 selectionHolder setValue:nil. |
2205 selectionHolder setValue:nil. |