equal
deleted
inserted
replaced
238 |
238 |
239 #imageSelector |
239 #imageSelector |
240 'Selector returning an image.' |
240 'Selector returning an image.' |
241 |
241 |
242 ) |
242 ) |
243 |
|
244 ! ! |
243 ! ! |
245 |
244 |
246 !MenuEditor class methodsFor:'interface specs'! |
245 !MenuEditor class methodsFor:'interface specs'! |
247 |
246 |
248 basicsItemSpec |
247 basicsItemSpec |
262 |
261 |
263 #(#FullSpec |
262 #(#FullSpec |
264 #window: |
263 #window: |
265 #(#WindowSpec |
264 #(#WindowSpec |
266 #name: 'unnamed canvas' |
265 #name: 'unnamed canvas' |
267 #layout: #(#LayoutFrame 429 0 338 0 695 0 656 0) |
266 #layout: #(#LayoutFrame 302 0 220 0 568 0 538 0) |
268 #label: 'unnamed canvas' |
267 #label: 'unnamed canvas' |
269 #min: #(#Point 10 10) |
268 #min: #(#Point 10 10) |
270 #max: #(#Point 1160 870) |
269 #max: #(#Point 1160 870) |
271 #bounds: #(#Rectangle 429 338 696 657) |
270 #bounds: #(#Rectangle 302 220 569 539) |
272 #usePreferredExtent: false |
271 #usePreferredExtent: false |
273 ) |
272 ) |
274 #component: |
273 #component: |
275 #(#SpecCollection |
274 #(#SpecCollection |
276 #collection: |
275 #collection: |
1513 anItem enabled:true. |
1512 anItem enabled:true. |
1514 ]. |
1513 ]. |
1515 ^menu |
1514 ^menu |
1516 ! |
1515 ! |
1517 |
1516 |
1518 useHelpDictionary:aDictionary |
1517 useHelpDictionary:dictionaries |
1519 |
1518 |
1520 self noteBookView. |
1519 self noteBookView. |
1521 self helpTool helpSpecFrom: specClass |
1520 self helpTool helpSpecFrom: specClass. |
|
1521 self helpTool dictionaries: dictionaries |
1522 ! ! |
1522 ! ! |
1523 |
1523 |
1524 !MenuEditor methodsFor:'aspects'! |
1524 !MenuEditor methodsFor:'aspects'! |
1525 |
1525 |
1526 hasAnySingleSelection |
1526 hasAnySingleSelection |
1859 doNew |
1859 doNew |
1860 |
1860 |
1861 self askForModification |
1861 self askForModification |
1862 ifTrue: |
1862 ifTrue: |
1863 [ |
1863 [ |
1864 specClass := specSelector := nil. |
1864 self isStandAlone ifTrue: [specClass := specSelector := nil]. |
1865 self buildFromClass: nil andSelector: #menu |
1865 self buildFromClass: nil andSelector: #menu |
1866 ] |
1866 ] |
1867 ! |
1867 ! |
1868 |
1868 |
1869 doPickAMenu |
1869 doPickAMenu |