equal
deleted
inserted
replaced
192 |
192 |
193 "Do not manually edit this!! If it is corrupted, |
193 "Do not manually edit this!! If it is corrupted, |
194 the MenuEditor may not be able to read the specification." |
194 the MenuEditor may not be able to read the specification." |
195 |
195 |
196 " |
196 " |
197 MenuEditor new openOnClass:ViewTreeApplication andSelector:#menu |
197 MenuEditor new openOnClass:Tools::ViewTreeApplication andSelector:#menu |
198 (Menu new fromLiteralArrayEncoding:(ViewTreeApplication menu)) startUp |
198 (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeApplication menu)) startUp |
199 " |
199 " |
200 |
200 |
201 <resource: #menu> |
201 <resource: #menu> |
202 |
202 |
203 ^ |
203 ^ |
232 nil |
232 nil |
233 nil |
233 nil |
234 ) |
234 ) |
235 ) |
235 ) |
236 (MenuItem |
236 (MenuItem |
|
237 label: 'Settings' |
|
238 translateLabel: true |
|
239 submenu: |
|
240 (Menu |
|
241 ( |
|
242 (MenuItem |
|
243 label: 'Test Mode' |
|
244 translateLabel: true |
|
245 hideMenuOnActivated: false |
|
246 indication: testModeChannel |
|
247 ) |
|
248 (MenuItem |
|
249 enabled: testModeChannel |
|
250 label: 'Follow Focus' |
|
251 translateLabel: true |
|
252 hideMenuOnActivated: false |
|
253 indication: followFocusChannel |
|
254 ) |
|
255 (MenuItem |
|
256 label: '-' |
|
257 ) |
|
258 (MenuItem |
|
259 label: 'Select on Click' |
|
260 translateLabel: true |
|
261 hideMenuOnActivated: false |
|
262 indication: selectOnClickHolder |
|
263 ) |
|
264 (MenuItem |
|
265 label: '-' |
|
266 ) |
|
267 (MenuItem |
|
268 label: 'Show Name of Widgets' |
|
269 translateLabel: true |
|
270 hideMenuOnActivated: false |
|
271 indication: showNamesHolder |
|
272 ) |
|
273 ) |
|
274 nil |
|
275 nil |
|
276 ) |
|
277 ) |
|
278 (MenuItem |
237 label: '' |
279 label: '' |
238 ) |
280 ) |
239 (MenuItem |
281 (MenuItem |
240 enabled: hasSingleSelectionHolder |
282 enabled: hasSingleSelectionHolder |
241 label: 'Menu' |
283 label: 'Menu' |
429 |
471 |
430 ^ |
472 ^ |
431 #(Menu |
473 #(Menu |
432 ( |
474 ( |
433 (MenuItem |
475 (MenuItem |
434 label: 'Test Mode' |
476 enabled: hasSingleSelectionHolder |
435 translateLabel: true |
477 label: 'Application' |
436 indication: testModeChannel |
478 itemValue: doBrowse: |
437 ) |
479 translateLabel: false |
438 (MenuItem |
480 labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2) |
439 enabled: testModeChannel |
481 argument: application |
440 label: 'Follow Focus' |
482 ) |
441 translateLabel: true |
483 (MenuItem |
442 indication: followFocusChannel |
484 enabled: hasSingleSelectionHolder |
443 ) |
485 label: 'Application' |
444 (MenuItem |
486 itemValue: doInspect: |
445 label: 'Select On Click' |
487 translateLabel: false |
446 translateLabel: true |
488 labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon 'Application') |
447 indication: selectOnClickHolder |
489 argument: application |
448 ) |
490 ) |
449 (MenuItem |
491 (MenuItem |
450 label: 'Show Names' |
492 label: '-' |
451 translateLabel: true |
493 ) |
452 indication: showNamesHolder |
494 (MenuItem |
|
495 enabled: hasSingleSelectionHolder |
|
496 label: 'Widget' |
|
497 itemValue: doBrowse: |
|
498 translateLabel: false |
|
499 labelImage: (ResourceRetriever ToolbarIconLibrary systemBrowser24x24Icon2) |
|
500 argument: view |
|
501 ) |
|
502 (MenuItem |
|
503 enabled: hasSingleSelectionHolder |
|
504 label: 'Widget' |
|
505 itemValue: doInspect: |
|
506 translateLabel: true |
|
507 labelImage: (ResourceRetriever ToolbarIconLibrary inspect22x24Icon 'Widget') |
|
508 argument: view |
453 ) |
509 ) |
454 ) |
510 ) |
455 nil |
511 nil |
456 nil |
512 nil |
457 ) |
513 ) |
560 hasSingleSelectionHolder value:(view notNil). |
616 hasSingleSelectionHolder value:(view notNil). |
561 infoChannel value:info. |
617 infoChannel value:info. |
562 ! |
618 ! |
563 |
619 |
564 update:something with:someArgument from:aModel |
620 update:something with:someArgument from:aModel |
|
621 |oldSelection| |
|
622 |
|
623 oldSelection := model selectedItem. |
565 |
624 |
566 aModel == testModeChannel ifTrue:[ |
625 aModel == testModeChannel ifTrue:[ |
|
626 model selectedItem:nil. |
567 model testMode:(testModeChannel value). |
627 model testMode:(testModeChannel value). |
|
628 model selectedItem:oldSelection. |
568 ^ self |
629 ^ self |
569 ]. |
630 ]. |
570 |
631 |
571 aModel == showNamesHolder ifTrue:[ |
632 aModel == showNamesHolder ifTrue:[ |
|
633 model selectedItem:nil. |
572 self listOfItems showWidgetNames:(aModel value). |
634 self listOfItems showWidgetNames:(aModel value). |
|
635 model selectedItem:oldSelection. |
573 ^ self |
636 ^ self |
574 ]. |
637 ]. |
575 super update:something with:someArgument from:aModel. |
638 super update:something with:someArgument from:aModel. |
576 ! ! |
639 ! ! |
577 |
640 |