418 " |
418 " |
419 |
419 |
420 <resource: #canvas> |
420 <resource: #canvas> |
421 |
421 |
422 ^ |
422 ^ |
423 #(FullSpec |
423 #(FullSpec |
424 name: canvasSpec |
424 name: canvasSpec |
425 window: |
425 uuid: '8a7c55d6-761b-11e9-98ea-b8f6b1108e05' |
426 (WindowSpec |
426 window: |
427 label: 'Canvas' |
427 (WindowSpec |
428 name: 'Canvas' |
428 label: 'Canvas' |
429 min: (Point 10 10) |
429 name: 'Canvas' |
430 max: (Point 1280 1024) |
430 uuid: '8a7c5964-761b-11e9-98ea-b8f6b1108e05' |
431 bounds: (Rectangle 0 0 383 220) |
431 min: (Point 10 10) |
432 ) |
432 max: (Point 1280 1024) |
433 component: |
433 bounds: (Rectangle 0 0 383 220) |
434 (SpecCollection |
434 ) |
435 collection: ( |
435 component: |
436 (LabelSpec |
436 (SpecCollection |
437 label: 'Class Name / Major Key:' |
437 collection: ( |
438 name: 'majorKeyLabel' |
438 (LabelSpec |
439 layout: (AlignmentOrigin 160 0 26 0 1 0.5) |
439 label: 'Class / Major Key:' |
440 activeHelpKey: majorKey |
440 name: 'majorKeyLabel' |
441 translateLabel: true |
441 layout: (AlignmentOrigin 160 0 26 0 1 0.5) |
442 resizeForLabel: true |
442 activeHelpKey: majorKey |
443 ) |
443 uuid: '8a7cc2f0-761b-11e9-98ea-b8f6b1108e05' |
444 (InputFieldSpec |
444 translateLabel: true |
445 name: 'majorKeyField' |
445 resizeForLabel: true |
446 layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0) |
446 ) |
447 activeHelpKey: majorKey |
447 (InputFieldSpec |
448 tabable: true |
448 name: 'majorKeyField' |
449 model: majorKey |
449 layout: (LayoutFrame 161 0 15 0 -5 1.0 37 0) |
450 group: inputGroup |
450 activeHelpKey: majorKey |
451 type: symbolOrNil |
451 uuid: '8a7cc82c-761b-11e9-98ea-b8f6b1108e05' |
452 immediateAccept: true |
452 tabable: true |
453 acceptOnReturn: false |
453 model: majorKey |
454 acceptOnTab: false |
454 group: inputGroup |
455 acceptOnLostFocus: false |
455 type: symbolOrNil |
456 modifiedChannel: modifiedChannel |
456 immediateAccept: true |
457 acceptOnPointerLeave: false |
457 acceptOnReturn: false |
458 ) |
458 acceptOnTab: false |
459 (LabelSpec |
459 acceptOnLostFocus: false |
460 label: 'Selector / Minor Key:' |
460 modifiedChannel: modifiedChannel |
461 name: 'minorKeyLabel' |
461 acceptOnPointerLeave: false |
462 layout: (AlignmentOrigin 160 0 55 0 1 0.5) |
462 ) |
463 translateLabel: true |
463 (LabelSpec |
464 resizeForLabel: true |
464 label: 'Selector / Minor Key:' |
465 ) |
465 name: 'minorKeyLabel' |
466 (InputFieldSpec |
466 layout: (AlignmentOrigin 160 0 55 0 1 0.5) |
467 name: 'minorKeyField' |
467 uuid: '8a7ccda4-761b-11e9-98ea-b8f6b1108e05' |
468 layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0) |
468 translateLabel: true |
469 activeHelpKey: majorKey |
469 resizeForLabel: true |
470 tabable: true |
470 ) |
471 model: minorKey |
471 (InputFieldSpec |
472 group: inputGroup |
472 name: 'minorKeyField' |
473 type: symbolOrNil |
473 layout: (LayoutFrame 161 0 44 0 -5 1.0 66 0) |
474 immediateAccept: true |
474 activeHelpKey: majorKey |
475 acceptOnReturn: false |
475 uuid: '8a7ccf7a-761b-11e9-98ea-b8f6b1108e05' |
476 acceptOnTab: false |
476 tabable: true |
477 acceptOnLostFocus: false |
477 model: minorKey |
478 modifiedChannel: modifiedChannel |
478 group: inputGroup |
479 acceptOnPointerLeave: false |
479 type: symbolOrNil |
480 ) |
480 immediateAccept: true |
481 (FramedBoxSpec |
481 acceptOnReturn: false |
482 label: 'Scroll Bars' |
482 acceptOnTab: false |
483 name: 'FramedBox' |
483 acceptOnLostFocus: false |
484 layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0) |
484 modifiedChannel: modifiedChannel |
485 labelPosition: topLeft |
485 acceptOnPointerLeave: false |
486 translateLabel: true |
486 ) |
487 component: |
487 (FramedBoxSpec |
488 (SpecCollection |
488 label: 'Scroll Bars' |
489 collection: ( |
489 name: 'FramedBox' |
490 (HorizontalPanelViewSpec |
490 layout: (LayoutFrame 0 0.0 119 0.0 0 1.0 218 0) |
491 name: 'HorizontalPanel1' |
491 uuid: '8a7cd1be-761b-11e9-98ea-b8f6b1108e05' |
492 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
492 labelPosition: topLeft |
493 horizontalLayout: fitSpace |
493 translateLabel: true |
494 verticalLayout: fitSpace |
494 component: |
495 horizontalSpace: 3 |
495 (SpecCollection |
496 verticalSpace: 3 |
496 collection: ( |
497 component: |
497 (HorizontalPanelViewSpec |
498 (SpecCollection |
498 name: 'HorizontalPanel1' |
499 collection: ( |
499 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
500 (ViewSpec |
500 uuid: '8a7cd42a-761b-11e9-98ea-b8f6b1108e05' |
501 name: 'Box1' |
501 horizontalLayout: fitSpace |
502 component: |
502 verticalLayout: fitSpace |
503 (SpecCollection |
503 horizontalSpace: 3 |
504 collection: ( |
504 verticalSpace: 3 |
505 (CheckBoxSpec |
505 component: |
506 label: 'Vertical' |
506 (SpecCollection |
507 name: 'verticalScrollBarCheckBox' |
507 collection: ( |
508 layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0) |
508 (ViewSpec |
509 activeHelpKey: verticalScroller |
509 name: 'Box1' |
510 tabable: true |
510 uuid: '8a7cd768-761b-11e9-98ea-b8f6b1108e05' |
511 model: hasVerticalScrollBar |
511 component: |
512 translateLabel: true |
512 (SpecCollection |
513 ) |
513 collection: ( |
514 (CheckBoxSpec |
514 (CheckBoxSpec |
515 label: 'Mini' |
515 label: 'Vertical' |
516 name: 'miniScrollerVerticalCheckBox' |
516 name: 'verticalScrollBarCheckBox' |
517 layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0) |
517 layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0) |
518 activeHelpKey: verticalMiniScroller |
518 activeHelpKey: verticalScroller |
519 tabable: true |
519 uuid: '8a7cd8ee-761b-11e9-98ea-b8f6b1108e05' |
520 model: miniScrollerVertical |
520 tabable: true |
521 translateLabel: true |
521 model: hasVerticalScrollBar |
522 ) |
522 translateLabel: true |
523 ) |
523 ) |
524 |
524 (CheckBoxSpec |
525 ) |
525 label: 'Mini' |
526 useDefaultExtent: true |
526 name: 'miniScrollerVerticalCheckBox' |
527 ) |
527 layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0) |
528 (ViewSpec |
528 activeHelpKey: verticalMiniScroller |
529 name: 'Box2' |
529 uuid: '8a7cdb82-761b-11e9-98ea-b8f6b1108e05' |
530 component: |
530 tabable: true |
531 (SpecCollection |
531 model: miniScrollerVertical |
532 collection: ( |
532 translateLabel: true |
533 (CheckBoxSpec |
|
534 label: 'Horizontal' |
|
535 name: 'horizontalScrollBarCheckBox' |
|
536 layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0) |
|
537 activeHelpKey: horizontalScroller |
|
538 tabable: true |
|
539 model: hasHorizontalScrollBar |
|
540 translateLabel: true |
|
541 ) |
|
542 (CheckBoxSpec |
|
543 label: 'Mini' |
|
544 name: 'miniScrollerHorizontalCheckBox' |
|
545 layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0) |
|
546 activeHelpKey: horizontalMiniScroller |
|
547 tabable: true |
|
548 model: miniScrollerHorizontal |
|
549 translateLabel: true |
|
550 ) |
|
551 ) |
533 ) |
552 |
534 ) |
553 ) |
535 |
554 extent: (Point 113 61) |
536 ) |
555 ) |
537 useDefaultExtent: true |
556 (ViewSpec |
538 ) |
557 name: 'Box3' |
539 (ViewSpec |
558 component: |
540 name: 'Box2' |
559 (SpecCollection |
541 uuid: '8a7cdda8-761b-11e9-98ea-b8f6b1108e05' |
560 collection: ( |
542 component: |
561 (LabelSpec |
543 (SpecCollection |
562 label: 'Auto Hide:' |
544 collection: ( |
563 name: 'Label1' |
545 (CheckBoxSpec |
564 layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0) |
546 label: 'Horizontal' |
565 translateLabel: true |
547 name: 'horizontalScrollBarCheckBox' |
566 resizeForLabel: true |
548 layout: (LayoutFrame 0 0.0 3 0 0 1.0 27 0) |
567 adjust: left |
549 activeHelpKey: horizontalScroller |
568 ) |
550 uuid: '8a7cdede-761b-11e9-98ea-b8f6b1108e05' |
569 (PopUpListSpec |
551 tabable: true |
570 label: 'Default' |
552 model: hasHorizontalScrollBar |
571 name: 'PopUpList1' |
553 translateLabel: true |
572 layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0) |
|
573 activeHelpKey: autoHideScrollBars |
|
574 tabable: true |
|
575 model: autoHideScrollBars |
|
576 menu: |
|
577 (Default |
|
578 On Off |
|
579 ) |
|
580 useIndex: true |
|
581 ) |
|
582 ) |
554 ) |
583 |
555 (CheckBoxSpec |
584 ) |
556 label: 'Mini' |
585 extent: (Point 113 61) |
557 name: 'miniScrollerHorizontalCheckBox' |
586 ) |
558 layout: (LayoutFrame 0 0.0 32 0 0 1.0 56 0) |
|
559 activeHelpKey: horizontalMiniScroller |
|
560 uuid: '8a7ce064-761b-11e9-98ea-b8f6b1108e05' |
|
561 tabable: true |
|
562 model: miniScrollerHorizontal |
|
563 translateLabel: true |
|
564 ) |
|
565 ) |
|
566 |
|
567 ) |
|
568 extent: (Point 111 53) |
587 ) |
569 ) |
588 |
570 (ViewSpec |
589 ) |
571 name: 'Box3' |
590 ) |
572 uuid: '8a7ce1fe-761b-11e9-98ea-b8f6b1108e05' |
|
573 component: |
|
574 (SpecCollection |
|
575 collection: ( |
|
576 (LabelSpec |
|
577 label: 'Auto Hide:' |
|
578 name: 'Label1' |
|
579 layout: (LayoutFrame 0 0.0 6 0 0 1.0 23 0) |
|
580 uuid: '8a7ce334-761b-11e9-98ea-b8f6b1108e05' |
|
581 translateLabel: true |
|
582 resizeForLabel: true |
|
583 adjust: left |
|
584 ) |
|
585 (PopUpListSpec |
|
586 label: 'Default' |
|
587 name: 'PopUpList1' |
|
588 layout: (LayoutFrame 0 0.0 32 0 0 1.0 54 0) |
|
589 activeHelpKey: autoHideScrollBars |
|
590 uuid: '8a7ce4e2-761b-11e9-98ea-b8f6b1108e05' |
|
591 translateLabel: true |
|
592 tabable: true |
|
593 model: autoHideScrollBars |
|
594 menu: |
|
595 (ImmutableArray |
|
596 Default On |
|
597 Off |
|
598 ) |
|
599 useIndex: true |
|
600 ) |
|
601 ) |
|
602 |
|
603 ) |
|
604 extent: (Point 112 53) |
|
605 ) |
|
606 ) |
|
607 |
|
608 ) |
591 ) |
609 ) |
592 |
610 ) |
593 ) |
611 |
594 ) |
612 ) |
595 (CheckBoxSpec |
|
596 label: 'Create New Builder' |
|
597 name: 'createNewBuilder' |
|
598 layout: (Point 161 75) |
|
599 activeHelpKey: createNewBuilder |
|
600 model: createNewBuilder |
|
601 translateLabel: true |
|
602 ) |
|
603 ) |
613 ) |
604 |
614 (CheckBoxSpec |
605 ) |
615 label: 'Create New Builder' |
606 ) |
616 name: 'createNewBuilder' |
|
617 layout: (Point 161 75) |
|
618 activeHelpKey: createNewBuilder |
|
619 uuid: '8a7ce8de-761b-11e9-98ea-b8f6b1108e05' |
|
620 model: createNewBuilder |
|
621 translateLabel: true |
|
622 ) |
|
623 ) |
|
624 |
|
625 ) |
|
626 ) |
607 ! |
627 ! |
608 |
628 |
609 detailSpec |
629 detailSpec |
610 "This resource specification was automatically generated |
630 "This resource specification was automatically generated |
611 by the UIPainter of ST/X." |
631 by the UIPainter of ST/X." |
678 " |
698 " |
679 |
699 |
680 <resource: #canvas> |
700 <resource: #canvas> |
681 |
701 |
682 ^ |
702 ^ |
683 #(#FullSpec |
703 #(FullSpec |
684 #name: #windowSpec |
704 name: windowSpec |
685 #window: |
705 uuid: 'b2e02714-761b-11e9-98ea-b8f6b1108e05' |
686 #(#WindowSpec |
706 window: |
687 #label: 'Tab List Editor' |
707 (WindowSpec |
688 #name: 'Tab List Editor' |
708 label: 'Tab List Editor' |
689 #min: #(#Point 440 280) |
709 name: 'Tab List Editor' |
690 #bounds: #(#Rectangle 596 292 1132 661) |
710 uuid: 'b2e02a02-761b-11e9-98ea-b8f6b1108e05' |
691 #menu: #menu |
711 min: (Point 440 280) |
692 ) |
712 bounds: (Rectangle 0 0 536 369) |
693 #component: |
713 menu: menu |
694 #(#SpecCollection |
714 ) |
695 #collection: #( |
715 component: |
696 #(#MenuPanelSpec |
716 (SpecCollection |
697 #name: 'menuToolbarView' |
717 collection: ( |
698 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 34 0) |
718 (MenuPanelSpec |
699 #menu: #menuToolbar |
719 name: 'menuToolbarView' |
700 #showSeparatingLines: true |
720 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 34 0) |
701 ) |
721 uuid: 'b2e02c78-761b-11e9-98ea-b8f6b1108e05' |
702 #(#VariableHorizontalPanelSpec |
722 menu: menuToolbar |
703 #name: 'VariablePanel' |
723 showSeparatingLines: true |
704 #layout: #(#LayoutFrame 0 0.0 36 0.0 0 1.0 -26 1.0) |
724 ) |
705 #component: |
725 (VariableHorizontalPanelSpec |
706 #(#SpecCollection |
726 name: 'VariablePanel' |
707 #collection: #( |
727 layout: (LayoutFrame 0 0.0 36 0.0 0 1.0 -26 1.0) |
708 #(#SelectionInListModelViewSpec |
728 uuid: 'b2e02f48-761b-11e9-98ea-b8f6b1108e05' |
709 #attributes: |
729 component: |
710 #(#vpext |
730 (SpecCollection |
711 |
731 collection: ( |
712 #(#Array |
732 (SelectionInListModelViewSpec |
713 #Array #Array |
733 name: 'ListOfLabels' |
714 #Array #Array |
734 uuid: 'b2e031fa-761b-11e9-98ea-b8f6b1108e05' |
715 #Array #Point |
735 tabable: true |
716 0.264414 1.0 |
736 model: selectionHolder |
|
737 menu: menuEdit |
|
738 hasHorizontalScrollBar: true |
|
739 hasVerticalScrollBar: true |
|
740 miniScrollerHorizontal: true |
|
741 listModel: listOfTabs |
|
742 highlightMode: line |
|
743 selectConditionSelector: askForItemModification |
|
744 ) |
|
745 (ViewSpec |
|
746 name: 'SpecView' |
|
747 uuid: 'b2e034d4-761b-11e9-98ea-b8f6b1108e05' |
|
748 level: -1 |
|
749 component: |
|
750 (SpecCollection |
|
751 collection: ( |
|
752 (NoteBookViewSpec |
|
753 name: 'NoteBook' |
|
754 layout: (LayoutFrame 1 0.0 0 0.0 0 1.0 -32 1.0) |
|
755 uuid: 'b2e03600-761b-11e9-98ea-b8f6b1108e05' |
|
756 enableChannel: hasSelectionHolder |
|
757 tabable: true |
|
758 model: noteBookModel |
|
759 menu: noteBookTabList |
|
760 useIndex: true |
|
761 translateLabel: true |
|
762 keepCanvasAlive: true |
|
763 ) |
|
764 (UISubSpecification |
|
765 name: 'subSpec' |
|
766 layout: (LayoutFrame 2 0.0 -32 1 -2 1.0 0 1) |
|
767 uuid: 'b2e039ac-761b-11e9-98ea-b8f6b1108e05' |
|
768 majorKey: ToolApplicationModel |
|
769 minorKey: windowSpecForCommit |
|
770 ) |
|
771 (NoteBookViewSpec |
|
772 name: 'TestNoteBook' |
|
773 layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
774 uuid: 'b2e03b32-761b-11e9-98ea-b8f6b1108e05' |
|
775 visibilityChannel: testMode |
|
776 tabable: true |
|
777 menu: testItemList |
|
778 useIndex: true |
|
779 translateLabel: true |
|
780 ) |
717 ) |
781 ) |
718 ) |
782 |
719 #name: 'ListOfLabels' |
783 ) |
720 #tabable: true |
|
721 #model: #selectionHolder |
|
722 #menu: #menuEdit |
|
723 #hasHorizontalScrollBar: true |
|
724 #hasVerticalScrollBar: true |
|
725 #miniScrollerHorizontal: true |
|
726 #listModel: #listOfTabs |
|
727 #highlightMode: #line |
|
728 #selectConditionSelector: #askForItemModification |
|
729 ) |
|
730 #(#ViewSpec |
|
731 #name: 'SpecView' |
|
732 #level: -1 |
|
733 #component: |
|
734 #(#SpecCollection |
|
735 #collection: #( |
|
736 #(#NoteBookViewSpec |
|
737 #name: 'NoteBook' |
|
738 #layout: #(#LayoutFrame 1 0.0 0 0.0 0 1.0 -30 1.0) |
|
739 #enableChannel: #hasSelectionHolder |
|
740 #tabable: true |
|
741 #model: #noteBookModel |
|
742 #menu: #noteBookTabList |
|
743 #useIndex: true |
|
744 #keepCanvasAlive: true |
|
745 ) |
|
746 #(#UISubSpecification |
|
747 #name: 'subSpec' |
|
748 #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1) |
|
749 #majorKey: #ToolApplicationModel |
|
750 #minorKey: #windowSpecForCommit |
|
751 ) |
|
752 #(#NoteBookViewSpec |
|
753 #name: 'TestNoteBook' |
|
754 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
755 #visibilityChannel: #testMode |
|
756 #tabable: true |
|
757 #menu: #testItemList |
|
758 #useIndex: true |
|
759 ) |
|
760 ) |
|
761 |
|
762 ) |
|
763 ) |
|
764 ) |
784 ) |
765 |
785 ) |
766 ) |
786 |
767 #handles: #(#Any 0.24053 1.0) |
787 ) |
768 ) |
788 handles: (Any 0.23999999999999999 1.0) |
769 #(#UISubSpecification |
|
770 #name: 'infoBarSubSpec' |
|
771 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
|
772 #majorKey: #ToolApplicationModel |
|
773 #minorKey: #windowSpecForInfoBar |
|
774 ) |
|
775 ) |
789 ) |
776 |
790 (UISubSpecification |
777 ) |
791 name: 'infoBarSubSpec' |
778 ) |
792 layout: (LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
|
793 uuid: 'b2e03d44-761b-11e9-98ea-b8f6b1108e05' |
|
794 majorKey: ToolApplicationModel |
|
795 minorKey: windowSpecForInfoBar |
|
796 ) |
|
797 ) |
|
798 |
|
799 ) |
|
800 ) |
779 ! ! |
801 ! ! |
780 |
802 |
781 !TabListEditor class methodsFor:'list specs'! |
803 !TabListEditor class methodsFor:'list specs'! |
782 |
804 |
783 noteBookTabList |
805 noteBookTabList |
821 by the MenuEditor of ST/X." |
843 by the MenuEditor of ST/X." |
822 |
844 |
823 "Do not manually edit this!! If it is corrupted, |
845 "Do not manually edit this!! If it is corrupted, |
824 the MenuEditor may not be able to read the specification." |
846 the MenuEditor may not be able to read the specification." |
825 |
847 |
|
848 |
826 " |
849 " |
827 MenuEditor new openOnClass:TabListEditor andSelector:#menu |
850 MenuEditor new openOnClass:TabListEditor andSelector:#menu |
828 (Menu new fromLiteralArrayEncoding:(TabListEditor menu)) startUp |
851 (Menu new fromLiteralArrayEncoding:(TabListEditor menu)) startUp |
829 " |
852 " |
830 |
853 |
831 <resource: #menu> |
854 <resource: #menu> |
832 |
855 |
833 ^ |
856 ^ |
834 |
857 #(Menu |
835 #(#Menu |
858 ( |
836 |
859 (MenuItem |
837 #( |
860 activeHelpKey: file |
838 #(#MenuItem |
861 label: 'File' |
839 #label: 'About' |
862 submenu: |
840 #activeHelpKey: #about |
863 (Menu |
841 #labelImage: #(#ResourceRetriever nil #menuIcon) |
864 ( |
842 #submenuChannel: #menuAbout |
865 (MenuItem |
843 ) |
866 activeHelpKey: fileNew |
844 #(#MenuItem |
867 label: 'New' |
845 #label: 'File' |
868 itemValue: doNew |
846 #activeHelpKey: #file |
|
847 #submenu: |
|
848 #(#Menu |
|
849 |
|
850 #( |
|
851 #(#MenuItem |
|
852 #label: 'New' |
|
853 #value: #doNew |
|
854 #activeHelpKey: #fileNew |
|
855 ) |
|
856 #(#MenuItem |
|
857 #label: '-' |
|
858 ) |
|
859 #(#MenuItem |
|
860 #label: 'Load...' |
|
861 #translateLabel: true |
|
862 #value: #doLoad |
|
863 #activeHelpKey: #fileLoad |
|
864 ) |
|
865 #(#MenuItem |
|
866 #label: '-' |
|
867 ) |
|
868 #(#MenuItem |
|
869 #label: 'Save' |
|
870 #value: #doSave |
|
871 #activeHelpKey: #fileSave |
|
872 ) |
|
873 #(#MenuItem |
|
874 #label: 'Save As...' |
|
875 #value: #doSaveAs |
|
876 #activeHelpKey: #fileSave |
|
877 ) |
|
878 #(#MenuItem |
|
879 #label: '-' |
|
880 ) |
|
881 #(#MenuItem |
|
882 #label: 'Browse Class' |
|
883 #value: #doBrowseClass |
|
884 #activeHelpKey: #fileBrowseClass |
|
885 ) |
|
886 #(#MenuItem |
|
887 #label: '-' |
|
888 ) |
|
889 #(#MenuItem |
|
890 #label: 'Exit' |
|
891 #value: #closeRequest |
|
892 #activeHelpKey: #fileExit |
|
893 ) |
|
894 ) nil |
|
895 nil |
|
896 ) |
869 ) |
897 ) |
870 (MenuItem |
898 #(#MenuItem |
871 label: '-' |
899 #label: 'Edit' |
|
900 #activeHelpKey: #edit |
|
901 #submenuChannel: #menuEdit |
|
902 ) |
|
903 #(#MenuItem |
|
904 #label: 'Add' |
|
905 #activeHelpKey: #add |
|
906 #submenu: |
|
907 #(#Menu |
|
908 |
|
909 #( |
|
910 #(#MenuItem |
|
911 #label: 'Tab Item' |
|
912 #value: #doCreate |
|
913 #activeHelpKey: #addTabItem |
|
914 #labelImage: #(#ResourceRetriever nil #newTabItemIcon 'Tab Item') |
|
915 ) |
|
916 ) nil |
|
917 nil |
|
918 ) |
872 ) |
919 ) |
873 (MenuItem |
920 #(#MenuItem |
874 activeHelpKey: fileLoad |
921 #label: 'Generate' |
875 label: 'Load...' |
922 #activeHelpKey: #add |
876 itemValue: doLoad |
923 #submenu: |
|
924 #(#Menu |
|
925 |
|
926 #( |
|
927 #(#MenuItem |
|
928 #label: 'Aspect Method' |
|
929 #value: #doGenerateAspectMethod |
|
930 #activeHelpKey: #fileCreateAspectMethod |
|
931 #enabled: #hasClassAndSelector |
|
932 ) |
|
933 ) nil |
|
934 nil |
|
935 ) |
877 ) |
936 ) |
878 (MenuItem |
937 #(#MenuItem |
879 label: '-' |
938 #label: 'Test' |
|
939 #activeHelpKey: #test |
|
940 #submenu: |
|
941 #(#Menu |
|
942 |
|
943 #( |
|
944 #(#MenuItem |
|
945 #label: 'Preview' |
|
946 #activeHelpKey: #testPreview |
|
947 #enabled: #canToggleTestMode |
|
948 #indication: #testMode |
|
949 ) |
|
950 ) nil |
|
951 nil |
|
952 ) |
880 ) |
953 ) |
881 (MenuItem |
954 #(#MenuItem |
882 activeHelpKey: fileSave |
955 #label: 'History' |
883 label: 'Save' |
956 #activeHelpKey: #history |
884 itemValue: doSave |
957 #submenuChannel: #menuHistory |
885 ) |
958 ) |
886 (MenuItem |
959 #(#MenuItem |
887 activeHelpKey: fileSave |
960 label: 'MENU_Help' |
888 label: 'Save As...' |
961 #startGroup: #right |
889 itemValue: doSaveAs |
962 #activeHelpKey: #help |
890 ) |
963 #submenuChannel: #menuHelp |
891 (MenuItem |
964 startGroup: conditionalRight |
892 label: '-' |
965 ) |
893 ) |
966 ) nil |
894 (MenuItem |
967 nil |
895 activeHelpKey: fileBrowseClass |
|
896 label: 'Browse Class' |
|
897 itemValue: doBrowseClass |
|
898 ) |
|
899 (MenuItem |
|
900 label: '-' |
|
901 ) |
|
902 (MenuItem |
|
903 activeHelpKey: fileExit |
|
904 label: 'Exit' |
|
905 itemValue: closeRequest |
|
906 ) |
|
907 ) |
|
908 nil |
|
909 nil |
|
910 ) |
|
911 ) |
|
912 (MenuItem |
|
913 activeHelpKey: edit |
|
914 label: 'Edit' |
|
915 submenuChannel: menuEdit |
|
916 ) |
|
917 (MenuItem |
|
918 activeHelpKey: add |
|
919 label: 'Add' |
|
920 submenu: |
|
921 (Menu |
|
922 ( |
|
923 (MenuItem |
|
924 activeHelpKey: addTabItem |
|
925 label: 'Tab Item' |
|
926 itemValue: doCreate |
|
927 labelImage: (ResourceRetriever nil newTabItemIcon 'Tab Item') |
|
928 ) |
|
929 ) |
|
930 nil |
|
931 nil |
|
932 ) |
|
933 ) |
|
934 (MenuItem |
|
935 activeHelpKey: add |
|
936 label: 'Generate' |
|
937 submenu: |
|
938 (Menu |
|
939 ( |
|
940 (MenuItem |
|
941 activeHelpKey: fileCreateAspectMethod |
|
942 enabled: hasClassAndSelector |
|
943 label: 'Aspect Method' |
|
944 itemValue: doGenerateAspectMethod |
|
945 ) |
|
946 ) |
|
947 nil |
|
948 nil |
|
949 ) |
|
950 ) |
|
951 (MenuItem |
|
952 activeHelpKey: test |
|
953 label: 'Test' |
|
954 submenu: |
|
955 (Menu |
|
956 ( |
|
957 (MenuItem |
|
958 activeHelpKey: testPreview |
|
959 enabled: canToggleTestMode |
|
960 label: 'Preview' |
|
961 indication: testMode |
|
962 ) |
|
963 ) |
|
964 nil |
|
965 nil |
|
966 ) |
|
967 ) |
|
968 (MenuItem |
|
969 activeHelpKey: history |
|
970 label: 'History' |
|
971 submenuChannel: menuHistory |
|
972 ) |
|
973 (MenuItem |
|
974 activeHelpKey: help |
|
975 label: 'MENU_Help' |
|
976 startGroup: conditionalRight |
|
977 submenuChannel: menuHelp |
|
978 ) |
|
979 ) |
|
980 nil |
|
981 nil |
968 ) |
982 ) |
969 ! |
983 ! |
970 |
984 |
971 menuEdit |
985 menuEdit |
972 "This resource specification was automatically generated |
986 "This resource specification was automatically generated |