237 #'majorKey:' #ToolApplicationModel |
237 #'majorKey:' #ToolApplicationModel |
238 #'minorKey:' #windowSpecForCommitWithoutChannels |
238 #'minorKey:' #windowSpecForCommitWithoutChannels |
239 ) |
239 ) |
240 ) |
240 ) |
241 ) |
241 ) |
|
242 ) |
|
243 ! |
|
244 |
|
245 menuAdd |
|
246 "this window spec was automatically generated by the ST/X MenuEditor" |
|
247 |
|
248 "do not manually edit this - the builder may not be able to |
|
249 handle the specification if its corrupted." |
|
250 |
|
251 " |
|
252 MenuEditor new openOnClass:MenuEditor andSelector:#menuAdd |
|
253 (Menu new fromLiteralArrayEncoding:(MenuEditor menuAdd)) startUp |
|
254 " |
|
255 |
|
256 <resource: #menu> |
|
257 |
|
258 ^ |
|
259 |
|
260 #(#Menu |
|
261 |
|
262 #( |
|
263 #(#MenuItem |
|
264 #'label:' 'Item' |
|
265 #'value:' #doCreateItem |
|
266 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Item') |
|
267 ) |
|
268 #(#MenuItem |
|
269 #'label:' 'Separator' |
|
270 #'value:' #doCreateSep |
|
271 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Separator') |
|
272 ) |
|
273 #(#MenuItem |
|
274 #'label:' '-' |
|
275 ) |
|
276 #(#MenuItem |
|
277 #'label:' 'Submenu' |
|
278 #'value:' #doCreateMenu |
|
279 #'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Submenu') |
|
280 ) |
|
281 #(#MenuItem |
|
282 #'label:' 'Submenu Link' |
|
283 #'value:' #doCreateLink |
|
284 #'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Submenu Link') |
|
285 ) |
|
286 ) nil |
|
287 nil |
242 ) |
288 ) |
243 ! |
289 ! |
244 |
290 |
245 windowSpec |
291 windowSpec |
246 "this window spec was automatically generated by the ST/X UIPainter" |
292 "this window spec was automatically generated by the ST/X UIPainter" |
504 ) |
554 ) |
505 #(#MenuItem |
555 #(#MenuItem |
506 #'label:' '-' |
556 #'label:' '-' |
507 ) |
557 ) |
508 #(#MenuItem |
558 #(#MenuItem |
509 #'label:' 'Create Item' |
559 #'label:' 'Move Up' |
510 #'value:' #doCreateItem |
560 #'value:' #doStepUp |
511 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuItemImage 'Create Item') |
561 #'enabled:' #enabledStepOver |
512 ) |
562 #'labelImage:' #(#ResourceRetriever #MenuEditor #upIcon 'Move Up') |
513 #(#MenuItem |
563 ) |
514 #'label:' 'Create Separator' |
564 #(#MenuItem |
515 #'value:' #doCreateSep |
565 #'label:' 'Move Down' |
516 #'labelImage:' #(#ResourceRetriever #MenuEditor #menuSeparatorImage 'Create Separator') |
566 #'value:' #doStepDown |
517 ) |
567 #'enabled:' #enabledStepOver |
518 #(#MenuItem |
568 #'labelImage:' #(#ResourceRetriever #MenuEditor #downIcon 'Move Down') |
519 #'label:' '-' |
569 ) |
520 ) |
570 #(#MenuItem |
521 #(#MenuItem |
571 #'label:' 'Move In' |
522 #'label:' 'Create Submenu' |
572 #'value:' #doStepIn |
523 #'value:' #doCreateMenu |
573 #'enabled:' #enabledStepIn |
524 #'labelImage:' #(#ResourceRetriever #MenuEditor #submenuImage 'Create Submenu') |
574 #'labelImage:' #(#ResourceRetriever #MenuEditor #downRightIcon 'Move In') |
525 ) |
575 ) |
526 #(#MenuItem |
576 #(#MenuItem |
527 #'label:' 'Create Submenu Link' |
577 #'label:' 'Move Out' |
528 #'value:' #doCreateLink |
578 #'value:' #doStepOut |
529 #'labelImage:' #(#ResourceRetriever #MenuEditor #linkSubmenuImage 'Create Submenu Link') |
579 #'enabled:' #enabledStepOut |
|
580 #'labelImage:' #(#ResourceRetriever #MenuEditor #leftDownIcon 'Move Out') |
530 ) |
581 ) |
531 ) nil |
582 ) nil |
532 nil |
583 nil |
533 ) |
584 ) |
534 ! |
585 ! |
568 #'isButton:' true |
619 #'isButton:' true |
569 #'value:' #doInstallSpec |
620 #'value:' #doInstallSpec |
570 #'labelImage:' #(#ResourceRetriever nil #saveIcon) |
621 #'labelImage:' #(#ResourceRetriever nil #saveIcon) |
571 ) |
622 ) |
572 #(#MenuItem |
623 #(#MenuItem |
573 #'label:' '-' |
624 #'label:' '' |
574 ) |
625 ) |
575 #(#MenuItem |
626 #(#MenuItem |
576 #'label:' 'createItem' |
627 #'label:' 'Create Item' |
577 #'isButton:' true |
628 #'isButton:' true |
578 #'value:' #doCreateItem |
629 #'value:' #doCreateItem |
579 #'enabled:' #hasAnySingleSelection |
630 #'enabled:' #hasAnySingleSelection |
580 #'labelImage:' #(#ResourceRetriever nil #menuItemImage) |
631 #'labelImage:' #(#ResourceRetriever nil #menuItemImage) |
581 ) |
632 ) |
582 #(#MenuItem |
633 #(#MenuItem |
583 #'label:' 'createSeparator' |
634 #'label:' 'Create Separator' |
584 #'isButton:' true |
635 #'isButton:' true |
585 #'value:' #doCreateSep |
636 #'value:' #doCreateSep |
586 #'enabled:' #hasAnySingleSelection |
637 #'enabled:' #hasAnySingleSelection |
587 #'labelImage:' #(#ResourceRetriever nil #menuSeparatorImage) |
638 #'labelImage:' #(#ResourceRetriever nil #menuSeparatorImage) |
588 ) |
639 ) |
589 #(#MenuItem |
640 #(#MenuItem |
590 #'label:' '-' |
641 #'label:' '' |
591 ) |
642 ) |
592 #(#MenuItem |
643 #(#MenuItem |
593 #'label:' 'createMenu' |
644 #'label:' 'Create Menu' |
594 #'isButton:' true |
645 #'isButton:' true |
595 #'value:' #doCreateMenu |
646 #'value:' #doCreateMenu |
596 #'enabled:' #hasAnySingleSelection |
647 #'enabled:' #hasAnySingleSelection |
597 #'labelImage:' #(#ResourceRetriever nil #submenuImage) |
648 #'labelImage:' #(#ResourceRetriever nil #submenuImage) |
598 ) |
649 ) |
599 #(#MenuItem |
650 #(#MenuItem |
600 #'label:' 'createLink' |
651 #'label:' 'Create Link' |
601 #'isButton:' true |
652 #'isButton:' true |
602 #'value:' #doCreateLink |
653 #'value:' #doCreateLink |
603 #'enabled:' #hasAnySingleSelection |
654 #'enabled:' #hasAnySingleSelection |
604 #'labelImage:' #(#ResourceRetriever nil #linkSubmenuImage) |
655 #'labelImage:' #(#ResourceRetriever nil #linkSubmenuImage) |
605 ) |
656 ) |
606 #(#MenuItem |
657 #(#MenuItem |
607 #'label:' '-' |
658 #'label:' '' |
608 ) |
659 ) |
609 #(#MenuItem |
660 #(#MenuItem |
610 #'label:' 'stepUp' |
661 #'label:' 'Move Up' |
611 #'isButton:' true |
662 #'isButton:' true |
612 #'value:' #doStepUp |
663 #'value:' #doStepUp |
613 #'enabled:' #enabledStepOver |
664 #'enabled:' #enabledStepOver |
614 #'labelImage:' #(#ResourceRetriever nil #upIcon) |
665 #'labelImage:' #(#ResourceRetriever nil #upIcon) |
615 ) |
666 ) |
616 #(#MenuItem |
667 #(#MenuItem |
617 #'label:' 'stepDown' |
668 #'label:' 'Move Down' |
618 #'isButton:' true |
669 #'isButton:' true |
619 #'value:' #doStepDown |
670 #'value:' #doStepDown |
620 #'enabled:' #enabledStepOver |
671 #'enabled:' #enabledStepOver |
621 #'labelImage:' #(#ResourceRetriever nil #downIcon) |
672 #'labelImage:' #(#ResourceRetriever nil #downIcon) |
622 ) |
673 ) |
623 #(#MenuItem |
674 #(#MenuItem |
624 #'label:' 'stepIn' |
675 #'label:' 'Move In' |
625 #'isButton:' true |
676 #'isButton:' true |
626 #'value:' #doStepIn |
677 #'value:' #doStepIn |
627 #'enabled:' #enabledStepIn |
678 #'enabled:' #enabledStepIn |
628 #'labelImage:' #(#ResourceRetriever nil #downRightIcon) |
679 #'labelImage:' #(#ResourceRetriever nil #downRightIcon) |
629 ) |
680 ) |
630 #(#MenuItem |
681 #(#MenuItem |
631 #'label:' 'stepOut' |
682 #'label:' 'Move Out' |
632 #'isButton:' true |
683 #'isButton:' true |
633 #'value:' #doStepOut |
684 #'value:' #doStepOut |
634 #'enabled:' #enabledStepOut |
685 #'enabled:' #enabledStepOut |
635 #'labelImage:' #(#ResourceRetriever nil #leftDownIcon) |
686 #'labelImage:' #(#ResourceRetriever nil #leftDownIcon) |
636 ) |
687 ) |
2058 self loadFromMessage: |
2109 self loadFromMessage: |
2059 (ResourceSelectionBrowser |
2110 (ResourceSelectionBrowser |
2060 request: 'Load Menu From Class' |
2111 request: 'Load Menu From Class' |
2061 onSuperclass: aSuperclassOrSymbol |
2112 onSuperclass: aSuperclassOrSymbol |
2062 andClass: specClass |
2113 andClass: specClass |
2063 andSelector: nil |
2114 andSelector: self treeView selectorName |
2064 withResourceTypes: #(menu)) |
2115 withResourceTypes: #(menu)) |
2065 ! ! |
2116 ! ! |
2066 |
2117 |
2067 !MenuEditor::Item class methodsFor:'constants'! |
2118 !MenuEditor::Item class methodsFor:'constants'! |
2068 |
2119 |