491 |
491 |
492 <resource: #canvas> |
492 <resource: #canvas> |
493 |
493 |
494 ^ |
494 ^ |
495 #(#FullSpec |
495 #(#FullSpec |
496 #name: #classValidationDialogSpec |
496 #name: #classValidationDialogSpec |
497 #window: |
497 #window: |
498 #(#WindowSpec |
498 #(#WindowSpec |
499 #label: 'ProjectBrowser' |
499 #label: 'ProjectBrowser' |
500 #name: 'ProjectBrowser' |
500 #name: 'ProjectBrowser' |
501 #min: #(#Point 10 10) |
501 #min: #(#Point 10 10) |
502 #max: #(#Point 1024 768) |
502 #max: #(#Point 1024 768) |
503 #bounds: #(#Rectangle 24 554 457 1003) |
503 #bounds: #(#Rectangle 24 554 457 1003) |
504 #menu: #mainMenu |
504 #menu: #mainMenu |
505 #icon: #bigProjectBrowserIcon |
505 #icon: #bigProjectBrowserIcon |
506 ) |
506 ) |
507 #component: |
507 #component: |
508 #(#SpecCollection |
508 #(#SpecCollection |
509 #collection: #( |
509 #collection: #( |
510 #(#VariableVerticalPanelSpec |
510 #(#VariableVerticalPanelSpec |
511 #name: 'VariableVerticalPanel1' |
511 #name: 'VariableVerticalPanel1' |
512 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0) |
512 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0) |
513 #handles: |
513 #handles: |
514 #(#OrderedCollection |
514 #(#OrderedCollection |
515 #Any 0.5 |
515 #Any 0.5 |
516 1.0 |
516 1.0 |
517 ) |
517 ) |
518 #component: |
518 #component: |
519 #(#SpecCollection |
519 #(#SpecCollection |
520 #collection: #( |
520 #collection: #( |
521 #(#ViewSpec |
521 #(#ViewSpec |
522 #name: 'Box1' |
522 #name: 'Box1' |
523 #component: |
523 #component: |
524 #(#SpecCollection |
524 #(#SpecCollection |
525 #collection: #( |
525 #collection: #( |
526 #(#LabelSpec |
526 #(#LabelSpec |
527 #label: 'Classes only in Image' |
527 #label: 'Classes only in Image' |
528 #name: 'Label1' |
528 #name: 'Label1' |
529 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
529 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
530 #translateLabel: true |
530 #translateLabel: true |
531 #adjust: #left |
531 #adjust: #left |
532 ) |
532 ) |
533 #(#SequenceViewSpec |
533 #(#SequenceViewSpec |
534 #name: 'List2' |
534 #name: 'List2' |
535 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
535 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
536 #hasHorizontalScrollBar: true |
536 #hasHorizontalScrollBar: true |
537 #hasVerticalScrollBar: true |
537 #hasVerticalScrollBar: true |
538 #useIndex: false |
538 #useIndex: false |
539 #sequenceList: #classesInImageOnly |
539 #sequenceList: #classesInImageOnly |
540 ) |
540 ) |
541 ) |
541 ) |
542 |
542 |
543 ) |
543 ) |
544 ) |
544 ) |
545 #(#ViewSpec |
545 #(#ViewSpec |
546 #name: 'Box2' |
546 #name: 'Box2' |
547 #component: |
547 #component: |
548 #(#SpecCollection |
548 #(#SpecCollection |
549 #collection: #( |
549 #collection: #( |
550 #(#LabelSpec |
550 #(#LabelSpec |
551 #label: 'Classes only in Project' |
551 #label: 'Classes only in Project' |
552 #name: 'Label2' |
552 #name: 'Label2' |
553 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
553 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
554 #translateLabel: true |
554 #translateLabel: true |
555 #adjust: #left |
555 #adjust: #left |
556 ) |
556 ) |
557 #(#SequenceViewSpec |
557 #(#SequenceViewSpec |
558 #name: 'List1' |
558 #name: 'List1' |
559 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
559 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
560 #hasHorizontalScrollBar: true |
560 #hasHorizontalScrollBar: true |
561 #hasVerticalScrollBar: true |
561 #hasVerticalScrollBar: true |
562 #useIndex: false |
562 #useIndex: false |
563 #sequenceList: #classesInProjectOnly |
563 #sequenceList: #classesInProjectOnly |
564 ) |
564 ) |
565 ) |
565 ) |
566 |
566 |
567 ) |
567 ) |
568 ) |
568 ) |
569 ) |
569 ) |
570 |
570 |
571 ) |
571 ) |
572 ) |
572 ) |
573 #(#HorizontalPanelViewSpec |
573 #(#HorizontalPanelViewSpec |
574 #name: 'HorizontalPanel1' |
574 #name: 'HorizontalPanel1' |
575 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
575 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
576 #horizontalLayout: #center |
576 #horizontalLayout: #center |
577 #verticalLayout: #center |
577 #verticalLayout: #center |
578 #horizontalSpace: 3 |
578 #horizontalSpace: 3 |
579 #verticalSpace: 3 |
579 #verticalSpace: 3 |
580 #component: |
580 #component: |
581 #(#SpecCollection |
581 #(#SpecCollection |
582 #collection: #( |
582 #collection: #( |
583 #(#ActionButtonSpec |
583 #(#ActionButtonSpec |
584 #label: 'OK' |
584 #label: 'OK' |
585 #name: 'Button1' |
585 #name: 'Button1' |
586 #translateLabel: true |
586 #translateLabel: true |
587 #model: #closeRequest |
587 #model: #closeRequest |
588 #extent: #(#Point 125 22) |
588 #extent: #(#Point 125 22) |
589 ) |
589 ) |
590 ) |
590 ) |
591 |
591 |
592 ) |
592 ) |
593 ) |
593 ) |
594 ) |
594 ) |
595 |
595 |
596 ) |
596 ) |
597 ) |
597 ) |
598 ! |
598 ! |
599 |
599 |
600 emptyRightCanvasSpec |
600 emptyRightCanvasSpec |
601 "This resource specification was automatically generated |
601 "This resource specification was automatically generated |
655 |
655 |
656 <resource: #canvas> |
656 <resource: #canvas> |
657 |
657 |
658 ^ |
658 ^ |
659 #(#FullSpec |
659 #(#FullSpec |
660 #name: #classValidationDialogSpec |
660 #name: #classValidationDialogSpec |
661 #window: |
661 #window: |
662 #(#WindowSpec |
662 #(#WindowSpec |
663 #label: 'ProjectBrowser' |
663 #label: 'ProjectBrowser' |
664 #name: 'ProjectBrowser' |
664 #name: 'ProjectBrowser' |
665 #min: #(#Point 10 10) |
665 #min: #(#Point 10 10) |
666 #max: #(#Point 1024 768) |
666 #max: #(#Point 1024 768) |
667 #bounds: #(#Rectangle 24 554 457 1003) |
667 #bounds: #(#Rectangle 24 554 457 1003) |
668 #menu: #mainMenu |
668 #menu: #mainMenu |
669 #icon: #bigProjectBrowserIcon |
669 #icon: #bigProjectBrowserIcon |
670 ) |
670 ) |
671 #component: |
671 #component: |
672 #(#SpecCollection |
672 #(#SpecCollection |
673 #collection: #( |
673 #collection: #( |
674 #(#VariableVerticalPanelSpec |
674 #(#VariableVerticalPanelSpec |
675 #name: 'VariableVerticalPanel1' |
675 #name: 'VariableVerticalPanel1' |
676 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0) |
676 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -30 1.0) |
677 #handles: |
677 #handles: |
678 #(#OrderedCollection |
678 #(#OrderedCollection |
679 #Any 0.5 |
679 #Any 0.5 |
680 1.0 |
680 1.0 |
681 ) |
681 ) |
682 #component: |
682 #component: |
683 #(#SpecCollection |
683 #(#SpecCollection |
684 #collection: #( |
684 #collection: #( |
685 #(#ViewSpec |
685 #(#ViewSpec |
686 #name: 'Box1' |
686 #name: 'Box1' |
687 #component: |
687 #component: |
688 #(#SpecCollection |
688 #(#SpecCollection |
689 #collection: #( |
689 #collection: #( |
690 #(#LabelSpec |
690 #(#LabelSpec |
691 #label: 'Methods only in Image' |
691 #label: 'Methods only in Image' |
692 #name: 'Label1' |
692 #name: 'Label1' |
693 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
693 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
694 #translateLabel: true |
694 #translateLabel: true |
695 #adjust: #left |
695 #adjust: #left |
696 ) |
696 ) |
697 #(#SequenceViewSpec |
697 #(#SequenceViewSpec |
698 #name: 'List2' |
698 #name: 'List2' |
699 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
699 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
700 #hasHorizontalScrollBar: true |
700 #hasHorizontalScrollBar: true |
701 #hasVerticalScrollBar: true |
701 #hasVerticalScrollBar: true |
702 #useIndex: false |
702 #useIndex: false |
703 #sequenceList: #methodsInImageOnly |
703 #sequenceList: #methodsInImageOnly |
704 ) |
704 ) |
705 ) |
705 ) |
706 |
706 |
707 ) |
707 ) |
708 ) |
708 ) |
709 #(#ViewSpec |
709 #(#ViewSpec |
710 #name: 'Box2' |
710 #name: 'Box2' |
711 #component: |
711 #component: |
712 #(#SpecCollection |
712 #(#SpecCollection |
713 #collection: #( |
713 #collection: #( |
714 #(#LabelSpec |
714 #(#LabelSpec |
715 #label: 'Methods only in Project' |
715 #label: 'Methods only in Project' |
716 #name: 'Label2' |
716 #name: 'Label2' |
717 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
717 #layout: #(#LayoutFrame 0 0 0 0 0 1 30 0) |
718 #translateLabel: true |
718 #translateLabel: true |
719 #adjust: #left |
719 #adjust: #left |
720 ) |
720 ) |
721 #(#SequenceViewSpec |
721 #(#SequenceViewSpec |
722 #name: 'List1' |
722 #name: 'List1' |
723 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
723 #layout: #(#LayoutFrame 0 0.0 30 0.0 0 1.0 0 1.0) |
724 #hasHorizontalScrollBar: true |
724 #hasHorizontalScrollBar: true |
725 #hasVerticalScrollBar: true |
725 #hasVerticalScrollBar: true |
726 #useIndex: false |
726 #useIndex: false |
727 #sequenceList: #methodsInProjectOnly |
727 #sequenceList: #methodsInProjectOnly |
728 ) |
728 ) |
729 ) |
729 ) |
730 |
730 |
731 ) |
731 ) |
732 ) |
732 ) |
733 ) |
733 ) |
734 |
734 |
735 ) |
735 ) |
736 ) |
736 ) |
737 #(#HorizontalPanelViewSpec |
737 #(#HorizontalPanelViewSpec |
738 #name: 'HorizontalPanel1' |
738 #name: 'HorizontalPanel1' |
739 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
739 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
740 #horizontalLayout: #center |
740 #horizontalLayout: #center |
741 #verticalLayout: #center |
741 #verticalLayout: #center |
742 #horizontalSpace: 3 |
742 #horizontalSpace: 3 |
743 #verticalSpace: 3 |
743 #verticalSpace: 3 |
744 #component: |
744 #component: |
745 #(#SpecCollection |
745 #(#SpecCollection |
746 #collection: #( |
746 #collection: #( |
747 #(#ActionButtonSpec |
747 #(#ActionButtonSpec |
748 #label: 'OK' |
748 #label: 'OK' |
749 #name: 'Button1' |
749 #name: 'Button1' |
750 #translateLabel: true |
750 #translateLabel: true |
751 #model: #closeRequest |
751 #model: #closeRequest |
752 #extent: #(#Point 125 22) |
752 #extent: #(#Point 125 22) |
753 ) |
753 ) |
754 ) |
754 ) |
755 |
755 |
756 ) |
756 ) |
757 ) |
757 ) |
758 ) |
758 ) |
759 |
759 |
760 ) |
760 ) |
761 ) |
761 ) |
762 ! |
762 ! |
763 |
763 |
764 rightCanvasSpecForBuildOptions |
764 rightCanvasSpecForBuildOptions |
765 "This resource specification was automatically generated |
765 "This resource specification was automatically generated |
775 |
775 |
776 <resource: #canvas> |
776 <resource: #canvas> |
777 |
777 |
778 ^ |
778 ^ |
779 #(#FullSpec |
779 #(#FullSpec |
780 #name: #rightCanvasSpecForBuildOptions |
780 #name: #rightCanvasSpecForBuildOptions |
781 #window: |
781 #window: |
782 #(#WindowSpec |
782 #(#WindowSpec |
783 #label: 'NewApplication' |
783 #label: 'NewApplication' |
784 #name: 'NewApplication' |
784 #name: 'NewApplication' |
785 #min: #(#Point 10 10) |
785 #min: #(#Point 10 10) |
786 #max: #(#Point 1280 1024) |
786 #max: #(#Point 1280 1024) |
787 #bounds: #(#Rectangle 216 173 577 536) |
787 #bounds: #(#Rectangle 216 173 577 536) |
788 ) |
788 ) |
789 #component: |
789 #component: |
790 #(#SpecCollection |
790 #(#SpecCollection |
791 #collection: #( |
791 #collection: #( |
792 #(#FramedBoxSpec |
792 #(#FramedBoxSpec |
793 #label: 'STC Compiler Warnings' |
793 #label: 'STC Compiler Warnings' |
794 #name: 'FramedBox2' |
794 #name: 'FramedBox2' |
795 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0) |
795 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 146 0) |
796 #labelPosition: #topLeft |
796 #labelPosition: #topLeft |
797 #translateLabel: true |
797 #translateLabel: true |
798 #component: |
798 #component: |
799 #(#SpecCollection |
799 #(#SpecCollection |
800 #collection: #( |
800 #collection: #( |
801 #(#CheckBoxSpec |
801 #(#CheckBoxSpec |
802 #label: 'Non Standard Language Features' |
802 #label: 'Non Standard Language Features' |
803 #name: 'CheckBox1' |
803 #name: 'CheckBox1' |
804 #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0) |
804 #layout: #(#LayoutFrame 0 0.0 9 0 0 1.0 31 0) |
805 #tabable: true |
805 #tabable: true |
806 #model: #makeWarnNonStandard |
806 #model: #makeWarnNonStandard |
807 #translateLabel: true |
807 #translateLabel: true |
808 ) |
808 ) |
809 #(#CheckBoxSpec |
809 #(#CheckBoxSpec |
810 #label: 'End-of-line Comments' |
810 #label: 'End-of-line Comments' |
811 #name: 'CheckBox2' |
811 #name: 'CheckBox2' |
812 #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0) |
812 #layout: #(#LayoutFrame 0 0.0 36 0 0 1.0 58 0) |
813 #tabable: true |
813 #tabable: true |
814 #model: #makeWarnEOLComments |
814 #model: #makeWarnEOLComments |
815 #translateLabel: true |
815 #translateLabel: true |
816 ) |
816 ) |
817 #(#LabelSpec |
817 #(#LabelSpec |
818 #label: 'other warning options:' |
818 #label: 'other warning options:' |
819 #name: 'Label3' |
819 #name: 'Label3' |
820 #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0) |
820 #layout: #(#LayoutFrame 0 0.0 69 0 0 1.0 91 0) |
821 #translateLabel: true |
821 #translateLabel: true |
822 #adjust: #left |
822 #adjust: #left |
823 ) |
823 ) |
824 #(#InputFieldSpec |
824 #(#InputFieldSpec |
825 #name: 'EntryField1' |
825 #name: 'EntryField1' |
826 #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0) |
826 #layout: #(#LayoutFrame 0 0.0 93 0 0 1.0 115 0) |
827 #activeHelpKey: #projectDir |
827 #activeHelpKey: #projectDir |
828 #tabable: true |
828 #tabable: true |
829 #model: #makeOtherWarningOptions |
829 #model: #makeOtherWarningOptions |
830 #acceptChannel: #acceptChannel |
830 #acceptChannel: #acceptChannel |
831 #modifiedChannel: #modifiedChannel |
831 #modifiedChannel: #modifiedChannel |
832 #acceptOnPointerLeave: false |
832 #acceptOnPointerLeave: false |
833 ) |
833 ) |
834 ) |
834 ) |
835 |
835 |
836 ) |
836 ) |
837 ) |
837 ) |
838 #(#FramedBoxSpec |
838 #(#FramedBoxSpec |
839 #label: 'STC Compiler Includes' |
839 #label: 'STC Compiler Includes' |
840 #name: 'FramedBox3' |
840 #name: 'FramedBox3' |
841 #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0) |
841 #layout: #(#LayoutFrame 0 0.0 146 0.0 0 1.0 203 0) |
842 #labelPosition: #topLeft |
842 #labelPosition: #topLeft |
843 #translateLabel: true |
843 #translateLabel: true |
844 #component: |
844 #component: |
845 #(#SpecCollection |
845 #(#SpecCollection |
846 #collection: #( |
846 #collection: #( |
847 #(#InputFieldSpec |
847 #(#InputFieldSpec |
848 #name: 'EntryField2' |
848 #name: 'EntryField2' |
849 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
849 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
850 #activeHelpKey: #repositoryModule |
850 #activeHelpKey: #repositoryModule |
851 #tabable: true |
851 #tabable: true |
852 #model: #makeIncludes |
852 #model: #makeIncludes |
853 #acceptChannel: #acceptChannel |
853 #acceptChannel: #acceptChannel |
854 #modifiedChannel: #modifiedChannel |
854 #modifiedChannel: #modifiedChannel |
855 #acceptOnPointerLeave: false |
855 #acceptOnPointerLeave: false |
856 ) |
856 ) |
857 ) |
857 ) |
858 |
858 |
859 ) |
859 ) |
860 ) |
860 ) |
861 #(#FramedBoxSpec |
861 #(#FramedBoxSpec |
862 #label: 'STC Compiler Defines' |
862 #label: 'STC Compiler Defines' |
863 #name: 'FramedBox5' |
863 #name: 'FramedBox5' |
864 #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0) |
864 #layout: #(#LayoutFrame 0 0.0 210 0.0 0 1.0 267 0) |
865 #labelPosition: #topLeft |
865 #labelPosition: #topLeft |
866 #translateLabel: true |
866 #translateLabel: true |
867 #component: |
867 #component: |
868 #(#SpecCollection |
868 #(#SpecCollection |
869 #collection: #( |
869 #collection: #( |
870 #(#InputFieldSpec |
870 #(#InputFieldSpec |
871 #name: 'EntryField5' |
871 #name: 'EntryField5' |
872 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
872 #layout: #(#LayoutFrame 0 0.0 4 0 0 1.0 26 0) |
873 #activeHelpKey: #repositoryModule |
873 #activeHelpKey: #repositoryModule |
874 #tabable: true |
874 #tabable: true |
875 #model: #makeDefines |
875 #model: #makeDefines |
876 #acceptChannel: #acceptChannel |
876 #acceptChannel: #acceptChannel |
877 #modifiedChannel: #modifiedChannel |
877 #modifiedChannel: #modifiedChannel |
878 #acceptOnPointerLeave: false |
878 #acceptOnPointerLeave: false |
879 ) |
879 ) |
880 ) |
880 ) |
881 |
881 |
882 ) |
882 ) |
883 ) |
883 ) |
884 #(#HorizontalPanelViewSpec |
884 #(#HorizontalPanelViewSpec |
885 #name: 'HorizontalPanel1' |
885 #name: 'HorizontalPanel1' |
886 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
886 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
887 #horizontalLayout: #fitSpace |
887 #horizontalLayout: #fitSpace |
888 #verticalLayout: #center |
888 #verticalLayout: #center |
889 #horizontalSpace: 3 |
889 #horizontalSpace: 3 |
890 #verticalSpace: 3 |
890 #verticalSpace: 3 |
891 #component: |
891 #component: |
892 #(#SpecCollection |
892 #(#SpecCollection |
893 #collection: #( |
893 #collection: #( |
894 #(#ActionButtonSpec |
894 #(#ActionButtonSpec |
895 #label: 'Cancel' |
895 #label: 'Cancel' |
896 #name: 'Button1' |
896 #name: 'Button1' |
897 #activeHelpKey: #cancel |
897 #activeHelpKey: #cancel |
898 #translateLabel: true |
898 #translateLabel: true |
899 #model: #cancel |
899 #model: #cancel |
900 #enableChannel: #modifiedChannel |
900 #enableChannel: #modifiedChannel |
901 #actionValue: '' |
901 #actionValue: '' |
902 #useDefaultExtent: true |
902 #useDefaultExtent: true |
903 ) |
903 ) |
904 #(#ActionButtonSpec |
904 #(#ActionButtonSpec |
905 #label: 'OK' |
905 #label: 'OK' |
906 #name: 'Button2' |
906 #name: 'Button2' |
907 #activeHelpKey: #accept |
907 #activeHelpKey: #accept |
908 #translateLabel: true |
908 #translateLabel: true |
909 #model: #accept |
909 #model: #accept |
910 #enableChannel: #modifiedChannel |
910 #enableChannel: #modifiedChannel |
911 #useDefaultExtent: true |
911 #useDefaultExtent: true |
912 ) |
912 ) |
913 ) |
913 ) |
914 |
914 |
915 ) |
915 ) |
916 ) |
916 ) |
917 ) |
917 ) |
918 |
918 |
919 ) |
919 ) |
920 ) |
920 ) |
921 ! |
921 ! |
922 |
922 |
923 rightCanvasSpecForClassList |
923 rightCanvasSpecForClassList |
924 "This resource specification was automatically generated |
924 "This resource specification was automatically generated |
980 |
980 |
981 <resource: #canvas> |
981 <resource: #canvas> |
982 |
982 |
983 ^ |
983 ^ |
984 #(#FullSpec |
984 #(#FullSpec |
985 #name: #rightCanvasSpecForDeployment |
985 #name: #rightCanvasSpecForDeployment |
986 #window: |
986 #window: |
987 #(#WindowSpec |
987 #(#WindowSpec |
988 #label: 'NewApplication' |
988 #label: 'NewApplication' |
989 #name: 'NewApplication' |
989 #name: 'NewApplication' |
990 #min: #(#Point 10 10) |
990 #min: #(#Point 10 10) |
991 #max: #(#Point 1280 1024) |
991 #max: #(#Point 1280 1024) |
992 #bounds: #(#Rectangle 12 22 365 521) |
992 #bounds: #(#Rectangle 12 22 365 521) |
993 ) |
993 ) |
994 #component: |
994 #component: |
995 #(#SpecCollection |
995 #(#SpecCollection |
996 #collection: #( |
996 #collection: #( |
997 #(#FramedBoxSpec |
997 #(#FramedBoxSpec |
998 #label: 'Deliver' |
998 #label: 'Deliver' |
999 #name: 'DeliverBox' |
999 #name: 'DeliverBox' |
1000 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 172 0) |
1000 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 172 0) |
1001 #labelPosition: #topLeft |
1001 #labelPosition: #topLeft |
1002 #translateLabel: true |
1002 #translateLabel: true |
1003 #component: |
1003 #component: |
1004 #(#SpecCollection |
1004 #(#SpecCollection |
1005 #collection: #( |
1005 #collection: #( |
1006 #(#CheckBoxSpec |
1006 #(#CheckBoxSpec |
1007 #label: '''loadAll''-File' |
1007 #label: '''loadAll''-File' |
1008 #name: 'CheckBox5' |
1008 #name: 'CheckBox5' |
1009 #layout: #(#LayoutFrame 0 0.0 67 0 0 1.0 89 0) |
1009 #layout: #(#LayoutFrame 0 0.0 67 0 0 1.0 89 0) |
1010 #activeHelpKey: #deliverLoadAll |
1010 #activeHelpKey: #deliverLoadAll |
1011 #tabable: true |
1011 #tabable: true |
1012 #model: #deliverLoadAllFile |
1012 #model: #deliverLoadAllFile |
1013 #translateLabel: true |
1013 #translateLabel: true |
1014 ) |
1014 ) |
1015 #(#CheckBoxSpec |
1015 #(#CheckBoxSpec |
1016 #label: 'Compiled Binary (non-portable .dll / .so)' |
1016 #label: 'Compiled Binary (non-portable .dll / .so)' |
1017 #name: 'CheckBox6' |
1017 #name: 'CheckBox6' |
1018 #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 54 0) |
1018 #layout: #(#LayoutFrame 0 0.0 32 0 0 1.0 54 0) |
1019 #activeHelpKey: #deliverCompiledBinary |
1019 #activeHelpKey: #deliverCompiledBinary |
1020 #tabable: true |
1020 #tabable: true |
1021 #model: #deliverCompiledBinary |
1021 #model: #deliverCompiledBinary |
1022 #translateLabel: true |
1022 #translateLabel: true |
1023 ) |
1023 ) |
1024 #(#CheckBoxSpec |
1024 #(#CheckBoxSpec |
1025 #label: 'Bytecode Binary (portable)' |
1025 #label: 'Bytecode Binary (portable)' |
1026 #name: 'CheckBox1' |
1026 #name: 'CheckBox1' |
1027 #layout: #(#LayoutFrame 0 0.0 8 0 0 1.0 30 0) |
1027 #layout: #(#LayoutFrame 0 0.0 8 0 0 1.0 30 0) |
1028 #activeHelpKey: #deliverByteCode |
1028 #activeHelpKey: #deliverByteCode |
1029 #tabable: true |
1029 #tabable: true |
1030 #model: #deliverByteCode |
1030 #model: #deliverByteCode |
1031 #translateLabel: true |
1031 #translateLabel: true |
1032 ) |
1032 ) |
1033 #(#CheckBoxSpec |
1033 #(#CheckBoxSpec |
1034 #label: 'Sources' |
1034 #label: 'Sources' |
1035 #name: 'CheckBox4' |
1035 #name: 'CheckBox4' |
1036 #layout: #(#LayoutFrame 0 0.0 90 0 0 1.0 112 0) |
1036 #layout: #(#LayoutFrame 0 0.0 90 0 0 1.0 112 0) |
1037 #activeHelpKey: #deliverSources |
1037 #activeHelpKey: #deliverSources |
1038 #tabable: true |
1038 #tabable: true |
1039 #model: #deliverSources |
1039 #model: #deliverSources |
1040 #translateLabel: true |
1040 #translateLabel: true |
1041 ) |
1041 ) |
1042 #(#CheckBoxSpec |
1042 #(#CheckBoxSpec |
1043 #label: 'Makefiles' |
1043 #label: 'Makefiles' |
1044 #name: 'CheckBox8' |
1044 #name: 'CheckBox8' |
1045 #layout: #(#LayoutFrame 0 0.0 113 0 0 1.0 135 0) |
1045 #layout: #(#LayoutFrame 0 0.0 113 0 0 1.0 135 0) |
1046 #activeHelpKey: #deliverMakefiles |
1046 #activeHelpKey: #deliverMakefiles |
1047 #tabable: true |
1047 #tabable: true |
1048 #model: #deliverMakefiles |
1048 #model: #deliverMakefiles |
1049 #translateLabel: true |
1049 #translateLabel: true |
1050 ) |
1050 ) |
1051 ) |
1051 ) |
1052 |
1052 |
1053 ) |
1053 ) |
1054 ) |
1054 ) |
1055 #(#FramedBoxSpec |
1055 #(#FramedBoxSpec |
1056 #label: 'Format' |
1056 #label: 'Format' |
1057 #name: 'DeliverAsBox' |
1057 #name: 'DeliverAsBox' |
1058 #layout: #(#LayoutFrame 0 0.0 172 0 0 1.0 290 0) |
1058 #layout: #(#LayoutFrame 0 0.0 172 0 0 1.0 290 0) |
1059 #labelPosition: #topLeft |
1059 #labelPosition: #topLeft |
1060 #translateLabel: true |
1060 #translateLabel: true |
1061 #component: |
1061 #component: |
1062 #(#SpecCollection |
1062 #(#SpecCollection |
1063 #collection: #( |
1063 #collection: #( |
1064 #(#CheckBoxSpec |
1064 #(#CheckBoxSpec |
1065 #label: 'Tar Archive (.tar - for unix)' |
1065 #label: 'Tar Archive (.tar - for unix)' |
1066 #name: 'CheckBox7' |
1066 #name: 'CheckBox7' |
1067 #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 56 0) |
1067 #layout: #(#LayoutFrame 0 0.0 34 0 0 1.0 56 0) |
1068 #activeHelpKey: #deliverTarArchive |
1068 #activeHelpKey: #deliverTarArchive |
1069 #tabable: true |
1069 #tabable: true |
1070 #model: #deliverTarArchive |
1070 #model: #deliverTarArchive |
1071 #translateLabel: true |
1071 #translateLabel: true |
1072 ) |
1072 ) |
1073 #(#CheckBoxSpec |
1073 #(#CheckBoxSpec |
1074 #label: 'Zip Archive (.zip - for windows)' |
1074 #label: 'Zip Archive (.zip - for windows)' |
1075 #name: 'CheckBox2' |
1075 #name: 'CheckBox2' |
1076 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
1076 #layout: #(#LayoutFrame 0 0.0 10 0 0 1.0 32 0) |
1077 #activeHelpKey: #deliverZipArchive |
1077 #activeHelpKey: #deliverZipArchive |
1078 #tabable: true |
1078 #tabable: true |
1079 #model: #deliverZipArchive |
1079 #model: #deliverZipArchive |
1080 #translateLabel: true |
1080 #translateLabel: true |
1081 ) |
1081 ) |
1082 #(#CheckBoxSpec |
1082 #(#CheckBoxSpec |
1083 #label: 'GZip Archive (self extracting for unix)' |
1083 #label: 'GZip Archive (self extracting for unix)' |
1084 #name: 'CheckBox3' |
1084 #name: 'CheckBox3' |
1085 #layout: #(#LayoutFrame 0 0.0 58 0 0 1.0 80 0) |
1085 #layout: #(#LayoutFrame 0 0.0 58 0 0 1.0 80 0) |
1086 #activeHelpKey: #deliverGZipArchive |
1086 #activeHelpKey: #deliverGZipArchive |
1087 #tabable: true |
1087 #tabable: true |
1088 #model: #deliverGZipArchive |
1088 #model: #deliverGZipArchive |
1089 #translateLabel: true |
1089 #translateLabel: true |
1090 ) |
1090 ) |
1091 ) |
1091 ) |
1092 |
1092 |
1093 ) |
1093 ) |
1094 ) |
1094 ) |
1095 #(#FramedBoxSpec |
1095 #(#FramedBoxSpec |
1096 #label: 'Target Install Directory' |
1096 #label: 'Target Install Directory' |
1097 #name: 'DestinationBox' |
1097 #name: 'DestinationBox' |
1098 #layout: #(#LayoutFrame 0 0.0 295 0 0 1.0 448 0) |
1098 #layout: #(#LayoutFrame 0 0.0 295 0 0 1.0 448 0) |
1099 #labelPosition: #topLeft |
1099 #labelPosition: #topLeft |
1100 #translateLabel: true |
1100 #translateLabel: true |
1101 #component: |
1101 #component: |
1102 #(#SpecCollection |
1102 #(#SpecCollection |
1103 #collection: #( |
1103 #collection: #( |
1104 #(#LabelSpec |
1104 #(#LabelSpec |
1105 #label: 'Unix:' |
1105 #label: 'Unix:' |
1106 #name: 'Label1' |
1106 #name: 'Label1' |
1107 #layout: #(#AlignmentOrigin 76 0.0 16 0 1 0.5) |
1107 #layout: #(#AlignmentOrigin 76 0.0 16 0 1 0.5) |
1108 #translateLabel: true |
1108 #translateLabel: true |
1109 #resizeForLabel: true |
1109 #resizeForLabel: true |
1110 #adjust: #right |
1110 #adjust: #right |
1111 ) |
1111 ) |
1112 #(#InputFieldSpec |
1112 #(#InputFieldSpec |
1113 #name: 'EntryField1' |
1113 #name: 'EntryField1' |
1114 #layout: #(#LayoutFrame 80 0.0 4 0 0 1.0 26 0) |
1114 #layout: #(#LayoutFrame 80 0.0 4 0 0 1.0 26 0) |
1115 #activeHelpKey: #installDirUnix |
1115 #activeHelpKey: #installDirUnix |
1116 #enableChannel: #canDeliverForUnix |
1116 #enableChannel: #canDeliverForUnix |
1117 #tabable: true |
1117 #tabable: true |
1118 #model: #installDirectoryUnix |
1118 #model: #installDirectoryUnix |
1119 #acceptChannel: #acceptChannel |
1119 #acceptChannel: #acceptChannel |
1120 #modifiedChannel: #modifiedChannel |
1120 #modifiedChannel: #modifiedChannel |
1121 #acceptOnPointerLeave: false |
1121 #acceptOnPointerLeave: false |
1122 ) |
1122 ) |
1123 #(#LabelSpec |
1123 #(#LabelSpec |
1124 #label: 'Win32:' |
1124 #label: 'Win32:' |
1125 #name: 'Label2' |
1125 #name: 'Label2' |
1126 #layout: #(#AlignmentOrigin 76 0.0 47 0 1 0.5) |
1126 #layout: #(#AlignmentOrigin 76 0.0 47 0 1 0.5) |
1127 #translateLabel: true |
1127 #translateLabel: true |
1128 #resizeForLabel: true |
1128 #resizeForLabel: true |
1129 #adjust: #right |
1129 #adjust: #right |
1130 ) |
1130 ) |
1131 #(#InputFieldSpec |
1131 #(#InputFieldSpec |
1132 #name: 'EntryField2' |
1132 #name: 'EntryField2' |
1133 #layout: #(#LayoutFrame 80 0.0 34 0 0 1.0 56 0) |
1133 #layout: #(#LayoutFrame 80 0.0 34 0 0 1.0 56 0) |
1134 #activeHelpKey: #installDirWin32 |
1134 #activeHelpKey: #installDirWin32 |
1135 #enableChannel: #canDeliverForWin32 |
1135 #enableChannel: #canDeliverForWin32 |
1136 #tabable: true |
1136 #tabable: true |
1137 #model: #installDirectoryWin32 |
1137 #model: #installDirectoryWin32 |
1138 #acceptChannel: #acceptChannel |
1138 #acceptChannel: #acceptChannel |
1139 #modifiedChannel: #modifiedChannel |
1139 #modifiedChannel: #modifiedChannel |
1140 #acceptOnPointerLeave: false |
1140 #acceptOnPointerLeave: false |
1141 ) |
1141 ) |
1142 #(#LabelSpec |
1142 #(#LabelSpec |
1143 #label: 'VMS:' |
1143 #label: 'VMS:' |
1144 #name: 'Label3' |
1144 #name: 'Label3' |
1145 #layout: #(#AlignmentOrigin 76 0.0 76 0 1 0.5) |
1145 #layout: #(#AlignmentOrigin 76 0.0 76 0 1 0.5) |
1146 #translateLabel: true |
1146 #translateLabel: true |
1147 #resizeForLabel: true |
1147 #resizeForLabel: true |
1148 #adjust: #right |
1148 #adjust: #right |
1149 ) |
1149 ) |
1150 #(#InputFieldSpec |
1150 #(#InputFieldSpec |
1151 #name: 'EntryField3' |
1151 #name: 'EntryField3' |
1152 #layout: #(#LayoutFrame 80 0.0 63 0 0 1.0 85 0) |
1152 #layout: #(#LayoutFrame 80 0.0 63 0 0 1.0 85 0) |
1153 #activeHelpKey: #installDirVMS |
1153 #activeHelpKey: #installDirVMS |
1154 #initiallyDisabled: true |
1154 #initiallyDisabled: true |
1155 #enableChannel: #canDeliverForVMS |
1155 #enableChannel: #canDeliverForVMS |
1156 #tabable: true |
1156 #tabable: true |
1157 #model: #installDirectoryVMS |
1157 #model: #installDirectoryVMS |
1158 #acceptChannel: #acceptChannel |
1158 #acceptChannel: #acceptChannel |
1159 #modifiedChannel: #modifiedChannel |
1159 #modifiedChannel: #modifiedChannel |
1160 #acceptOnPointerLeave: false |
1160 #acceptOnPointerLeave: false |
1161 ) |
1161 ) |
1162 #(#LabelSpec |
1162 #(#LabelSpec |
1163 #label: 'MacOS:' |
1163 #label: 'MacOS:' |
1164 #name: 'Label4' |
1164 #name: 'Label4' |
1165 #layout: #(#AlignmentOrigin 76 0.0 106 0 1 0.5) |
1165 #layout: #(#AlignmentOrigin 76 0.0 106 0 1 0.5) |
1166 #translateLabel: true |
1166 #translateLabel: true |
1167 #resizeForLabel: true |
1167 #resizeForLabel: true |
1168 #adjust: #right |
1168 #adjust: #right |
1169 ) |
1169 ) |
1170 #(#InputFieldSpec |
1170 #(#InputFieldSpec |
1171 #name: 'EntryField4' |
1171 #name: 'EntryField4' |
1172 #layout: #(#LayoutFrame 80 0.0 93 0 0 1.0 115 0) |
1172 #layout: #(#LayoutFrame 80 0.0 93 0 0 1.0 115 0) |
1173 #activeHelpKey: #installDirMacOS |
1173 #activeHelpKey: #installDirMacOS |
1174 #initiallyDisabled: true |
1174 #initiallyDisabled: true |
1175 #enableChannel: #canDeliverForMacOS |
1175 #enableChannel: #canDeliverForMacOS |
1176 #tabable: true |
1176 #tabable: true |
1177 #model: #installDirectoryMac |
1177 #model: #installDirectoryMac |
1178 #acceptChannel: #acceptChannel |
1178 #acceptChannel: #acceptChannel |
1179 #modifiedChannel: #modifiedChannel |
1179 #modifiedChannel: #modifiedChannel |
1180 #acceptOnPointerLeave: false |
1180 #acceptOnPointerLeave: false |
1181 ) |
1181 ) |
1182 ) |
1182 ) |
1183 |
1183 |
1184 ) |
1184 ) |
1185 ) |
1185 ) |
1186 #(#HorizontalPanelViewSpec |
1186 #(#HorizontalPanelViewSpec |
1187 #name: 'HorizontalPanel1' |
1187 #name: 'HorizontalPanel1' |
1188 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
1188 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
1189 #horizontalLayout: #fitSpace |
1189 #horizontalLayout: #fitSpace |
1190 #verticalLayout: #center |
1190 #verticalLayout: #center |
1191 #horizontalSpace: 3 |
1191 #horizontalSpace: 3 |
1192 #verticalSpace: 3 |
1192 #verticalSpace: 3 |
1193 #component: |
1193 #component: |
1194 #(#SpecCollection |
1194 #(#SpecCollection |
1195 #collection: #( |
1195 #collection: #( |
1196 #(#ActionButtonSpec |
1196 #(#ActionButtonSpec |
1197 #label: 'Cancel' |
1197 #label: 'Cancel' |
1198 #name: 'Button1' |
1198 #name: 'Button1' |
1199 #translateLabel: true |
1199 #translateLabel: true |
1200 #tabable: true |
1200 #tabable: true |
1201 #model: #cancel |
1201 #model: #cancel |
1202 #enableChannel: #modifiedChannel |
1202 #enableChannel: #modifiedChannel |
1203 #actionValue: '' |
1203 #actionValue: '' |
1204 #useDefaultExtent: true |
1204 #useDefaultExtent: true |
1205 ) |
1205 ) |
1206 #(#ActionButtonSpec |
1206 #(#ActionButtonSpec |
1207 #label: 'OK' |
1207 #label: 'OK' |
1208 #name: 'Button2' |
1208 #name: 'Button2' |
1209 #translateLabel: true |
1209 #translateLabel: true |
1210 #tabable: true |
1210 #tabable: true |
1211 #model: #accept |
1211 #model: #accept |
1212 #enableChannel: #modifiedChannel |
1212 #enableChannel: #modifiedChannel |
1213 #actionValue: '' |
1213 #actionValue: '' |
1214 #useDefaultExtent: true |
1214 #useDefaultExtent: true |
1215 ) |
1215 ) |
1216 ) |
1216 ) |
1217 |
1217 |
1218 ) |
1218 ) |
1219 ) |
1219 ) |
1220 ) |
1220 ) |
1221 |
1221 |
1222 ) |
1222 ) |
1223 ) |
1223 ) |
1224 ! |
1224 ! |
1225 |
1225 |
1226 rightCanvasSpecForEditableText |
1226 rightCanvasSpecForEditableText |
1227 "This resource specification was automatically generated |
1227 "This resource specification was automatically generated |
1287 |
1287 |
1288 <resource: #canvas> |
1288 <resource: #canvas> |
1289 |
1289 |
1290 ^ |
1290 ^ |
1291 #(#FullSpec |
1291 #(#FullSpec |
1292 #name: #rightCanvasSpecForFiles |
1292 #name: #rightCanvasSpecForFiles |
1293 #window: |
1293 #window: |
1294 #(#WindowSpec |
1294 #(#WindowSpec |
1295 #label: 'NewApplication' |
1295 #label: 'NewApplication' |
1296 #name: 'NewApplication' |
1296 #name: 'NewApplication' |
1297 #min: #(#Point 10 10) |
1297 #min: #(#Point 10 10) |
1298 #max: #(#Point 1280 1024) |
1298 #max: #(#Point 1280 1024) |
1299 #bounds: #(#Rectangle 216 173 577 536) |
1299 #bounds: #(#Rectangle 216 173 577 536) |
1300 ) |
1300 ) |
1301 #component: |
1301 #component: |
1302 #(#SpecCollection |
1302 #(#SpecCollection |
1303 #collection: #( |
1303 #collection: #( |
1304 #(#FramedBoxSpec |
1304 #(#FramedBoxSpec |
1305 #label: 'File for extensions & patches' |
1305 #label: 'File for extensions & patches' |
1306 #name: 'FramedBox2' |
1306 #name: 'FramedBox2' |
1307 #layout: #(#LayoutFrame 0 0.0 62 0.0 0 1.0 122 0) |
1307 #layout: #(#LayoutFrame 0 0.0 62 0.0 0 1.0 122 0) |
1308 #labelPosition: #topLeft |
1308 #labelPosition: #topLeft |
1309 #translateLabel: true |
1309 #translateLabel: true |
1310 #component: |
1310 #component: |
1311 #(#SpecCollection |
1311 #(#SpecCollection |
1312 #collection: #( |
1312 #collection: #( |
1313 #(#InputFieldSpec |
1313 #(#InputFieldSpec |
1314 #name: 'methodsFileEntryField' |
1314 #name: 'methodsFileEntryField' |
1315 #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0) |
1315 #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0) |
1316 #activeHelpKey: #methodsFile |
1316 #activeHelpKey: #methodsFile |
1317 #model: #methodsFile |
1317 #model: #methodsFile |
1318 #acceptChannel: #acceptChannel |
1318 #acceptChannel: #acceptChannel |
1319 #modifiedChannel: #modifiedChannel |
1319 #modifiedChannel: #modifiedChannel |
1320 #acceptOnPointerLeave: false |
1320 #acceptOnPointerLeave: false |
1321 ) |
1321 ) |
1322 ) |
1322 ) |
1323 |
1323 |
1324 ) |
1324 ) |
1325 ) |
1325 ) |
1326 #(#HorizontalPanelViewSpec |
1326 #(#HorizontalPanelViewSpec |
1327 #name: 'HorizontalPanel1' |
1327 #name: 'HorizontalPanel1' |
1328 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
1328 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
1329 #horizontalLayout: #fitSpace |
1329 #horizontalLayout: #fitSpace |
1330 #verticalLayout: #center |
1330 #verticalLayout: #center |
1331 #horizontalSpace: 3 |
1331 #horizontalSpace: 3 |
1332 #verticalSpace: 3 |
1332 #verticalSpace: 3 |
1333 #component: |
1333 #component: |
1334 #(#SpecCollection |
1334 #(#SpecCollection |
1335 #collection: #( |
1335 #collection: #( |
1336 #(#ActionButtonSpec |
1336 #(#ActionButtonSpec |
1337 #label: 'Cancel' |
1337 #label: 'Cancel' |
1338 #name: 'Button1' |
1338 #name: 'Button1' |
1339 #activeHelpKey: #cancel |
1339 #activeHelpKey: #cancel |
1340 #translateLabel: true |
1340 #translateLabel: true |
1341 #model: #cancel |
1341 #model: #cancel |
1342 #enableChannel: #modifiedChannel |
1342 #enableChannel: #modifiedChannel |
1343 #actionValue: '' |
1343 #actionValue: '' |
1344 #useDefaultExtent: true |
1344 #useDefaultExtent: true |
1345 ) |
1345 ) |
1346 #(#ActionButtonSpec |
1346 #(#ActionButtonSpec |
1347 #label: 'OK' |
1347 #label: 'OK' |
1348 #name: 'Button2' |
1348 #name: 'Button2' |
1349 #activeHelpKey: #accept |
1349 #activeHelpKey: #accept |
1350 #translateLabel: true |
1350 #translateLabel: true |
1351 #model: #accept |
1351 #model: #accept |
1352 #enableChannel: #modifiedChannel |
1352 #enableChannel: #modifiedChannel |
1353 #useDefaultExtent: true |
1353 #useDefaultExtent: true |
1354 ) |
1354 ) |
1355 ) |
1355 ) |
1356 |
1356 |
1357 ) |
1357 ) |
1358 ) |
1358 ) |
1359 ) |
1359 ) |
1360 |
1360 |
1361 ) |
1361 ) |
1362 ) |
1362 ) |
1363 ! |
1363 ! |
1364 |
1364 |
1365 rightCanvasSpecForHTMLText |
1365 rightCanvasSpecForHTMLText |
1366 "This resource specification was automatically generated |
1366 "This resource specification was automatically generated |
1466 |
1466 |
1467 <resource: #canvas> |
1467 <resource: #canvas> |
1468 |
1468 |
1469 ^ |
1469 ^ |
1470 #(#FullSpec |
1470 #(#FullSpec |
1471 #name: #rightCanvasSpecForPrerequisiteClasses |
1471 #name: #rightCanvasSpecForPrerequisiteClasses |
1472 #window: |
1472 #window: |
1473 #(#WindowSpec |
1473 #(#WindowSpec |
1474 #label: 'NewApplication' |
1474 #label: 'NewApplication' |
1475 #name: 'NewApplication' |
1475 #name: 'NewApplication' |
1476 #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0) |
1476 #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0) |
1477 #level: 0 |
1477 #level: 0 |
1478 #min: #(#Point 10 10) |
1478 #min: #(#Point 10 10) |
1479 #max: #(#Point 1280 1024) |
1479 #max: #(#Point 1280 1024) |
1480 #bounds: #(#Rectangle 220 200 520 500) |
1480 #bounds: #(#Rectangle 220 200 520 500) |
1481 #usePreferredExtent: false |
1481 #usePreferredExtent: false |
1482 #returnIsOKInDialog: true |
1482 #returnIsOKInDialog: true |
1483 #escapeIsCancelInDialog: true |
1483 #escapeIsCancelInDialog: true |
1484 ) |
1484 ) |
1485 #component: |
1485 #component: |
1486 #(#SpecCollection |
1486 #(#SpecCollection |
1487 #collection: #( |
1487 #collection: #( |
1488 #(#LabelSpec |
1488 #(#LabelSpec |
1489 #label: 'Known Classes' |
1489 #label: 'Known Classes' |
1490 #name: 'Label1' |
1490 #name: 'Label1' |
1491 #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0) |
1491 #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0) |
1492 #translateLabel: true |
1492 #translateLabel: true |
1493 ) |
1493 ) |
1494 #(#SequenceViewSpec |
1494 #(#SequenceViewSpec |
1495 #name: 'List1' |
1495 #name: 'List1' |
1496 #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1) |
1496 #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1) |
1497 #tabable: true |
1497 #tabable: true |
1498 #model: #selectedClassInPrerequisites |
1498 #model: #selectedClassInPrerequisites |
1499 #hasHorizontalScrollBar: true |
1499 #hasHorizontalScrollBar: true |
1500 #hasVerticalScrollBar: true |
1500 #hasVerticalScrollBar: true |
1501 #miniScrollerHorizontal: true |
1501 #miniScrollerHorizontal: true |
1502 #miniScrollerVertical: true |
1502 #miniScrollerVertical: true |
1503 #doubleClickSelector: #addClassToPrerequisites |
1503 #doubleClickSelector: #addClassToPrerequisites |
1504 #valueChangeSelector: #showInfoForRequiredClass: |
1504 #valueChangeSelector: #showInfoForRequiredClass: |
1505 #useIndex: false |
1505 #useIndex: false |
1506 #sequenceList: #listOfAllClassesInPrerequisites |
1506 #sequenceList: #listOfAllClassesInPrerequisites |
1507 ) |
1507 ) |
1508 #(#LabelSpec |
1508 #(#LabelSpec |
1509 #label: 'Required Classes' |
1509 #label: 'Required Classes' |
1510 #name: 'Label2' |
1510 #name: 'Label2' |
1511 #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0) |
1511 #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0) |
1512 #translateLabel: true |
1512 #translateLabel: true |
1513 ) |
1513 ) |
1514 #(#SequenceViewSpec |
1514 #(#SequenceViewSpec |
1515 #name: 'List2' |
1515 #name: 'List2' |
1516 #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1) |
1516 #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1) |
1517 #tabable: true |
1517 #tabable: true |
1518 #model: #selectedRequiredClassInPrerequisites |
1518 #model: #selectedRequiredClassInPrerequisites |
1519 #hasHorizontalScrollBar: true |
1519 #hasHorizontalScrollBar: true |
1520 #hasVerticalScrollBar: true |
1520 #hasVerticalScrollBar: true |
1521 #miniScrollerHorizontal: true |
1521 #miniScrollerHorizontal: true |
1522 #miniScrollerVertical: true |
1522 #miniScrollerVertical: true |
1523 #doubleClickSelector: #removeClassFromPrerequisites |
1523 #doubleClickSelector: #removeClassFromPrerequisites |
1524 #valueChangeSelector: #showInfoForRequiredClass: |
1524 #valueChangeSelector: #showInfoForRequiredClass: |
1525 #useIndex: false |
1525 #useIndex: false |
1526 #sequenceList: #listOfRequiredClassesInPrerequisites |
1526 #sequenceList: #listOfRequiredClassesInPrerequisites |
1527 ) |
1527 ) |
1528 #(#HorizontalPanelViewSpec |
1528 #(#HorizontalPanelViewSpec |
1529 #name: 'HorizontalPanel2' |
1529 #name: 'HorizontalPanel2' |
1530 #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1) |
1530 #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1) |
1531 #horizontalLayout: #fitSpace |
1531 #horizontalLayout: #fitSpace |
1532 #verticalLayout: #center |
1532 #verticalLayout: #center |
1533 #horizontalSpace: 3 |
1533 #horizontalSpace: 3 |
1534 #verticalSpace: 3 |
1534 #verticalSpace: 3 |
1535 #component: |
1535 #component: |
1536 #(#SpecCollection |
1536 #(#SpecCollection |
1537 #collection: #( |
1537 #collection: #( |
1538 #(#ActionButtonSpec |
1538 #(#ActionButtonSpec |
1539 #label: 'Add' |
1539 #label: 'Add' |
1540 #name: 'addButton' |
1540 #name: 'addButton' |
1541 #translateLabel: true |
1541 #translateLabel: true |
1542 #resizeForLabel: false |
1542 #resizeForLabel: false |
1543 #tabable: true |
1543 #tabable: true |
1544 #model: #addClassToPrerequisites |
1544 #model: #addClassToPrerequisites |
1545 #enableChannel: #canAddSelectedClassToPrerequisites |
1545 #enableChannel: #canAddSelectedClassToPrerequisites |
1546 #actionValue: '' |
1546 #actionValue: '' |
1547 #useDefaultExtent: true |
1547 #useDefaultExtent: true |
1548 ) |
1548 ) |
1549 #(#ActionButtonSpec |
1549 #(#ActionButtonSpec |
1550 #label: 'Remove' |
1550 #label: 'Remove' |
1551 #name: 'removeButton' |
1551 #name: 'removeButton' |
1552 #translateLabel: true |
1552 #translateLabel: true |
1553 #resizeForLabel: false |
1553 #resizeForLabel: false |
1554 #tabable: true |
1554 #tabable: true |
1555 #model: #removeClassFromPrerequisites |
1555 #model: #removeClassFromPrerequisites |
1556 #enableChannel: #canRemoveSelectedClassFromPrerequisites |
1556 #enableChannel: #canRemoveSelectedClassFromPrerequisites |
1557 #actionValue: '' |
1557 #actionValue: '' |
1558 #useDefaultExtent: true |
1558 #useDefaultExtent: true |
1559 ) |
1559 ) |
1560 ) |
1560 ) |
1561 |
1561 |
1562 ) |
1562 ) |
1563 ) |
1563 ) |
1564 #(#HorizontalPanelViewSpec |
1564 #(#HorizontalPanelViewSpec |
1565 #name: 'HorizontalPanel1' |
1565 #name: 'HorizontalPanel1' |
1566 #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0) |
1566 #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0) |
1567 #horizontalLayout: #fitSpace |
1567 #horizontalLayout: #fitSpace |
1568 #verticalLayout: #center |
1568 #verticalLayout: #center |
1569 #horizontalSpace: 3 |
1569 #horizontalSpace: 3 |
1570 #verticalSpace: 3 |
1570 #verticalSpace: 3 |
1571 #component: |
1571 #component: |
1572 #(#SpecCollection |
1572 #(#SpecCollection |
1573 #collection: #( |
1573 #collection: #( |
1574 #(#ActionButtonSpec |
1574 #(#ActionButtonSpec |
1575 #label: 'Cancel' |
1575 #label: 'Cancel' |
1576 #name: 'Button1' |
1576 #name: 'Button1' |
1577 #translateLabel: true |
1577 #translateLabel: true |
1578 #tabable: true |
1578 #tabable: true |
1579 #model: #cancel |
1579 #model: #cancel |
1580 #useDefaultExtent: true |
1580 #useDefaultExtent: true |
1581 ) |
1581 ) |
1582 #(#ActionButtonSpec |
1582 #(#ActionButtonSpec |
1583 #label: 'OK' |
1583 #label: 'OK' |
1584 #name: 'Button2' |
1584 #name: 'Button2' |
1585 #translateLabel: true |
1585 #translateLabel: true |
1586 #tabable: true |
1586 #tabable: true |
1587 #model: #accept |
1587 #model: #accept |
1588 #useDefaultExtent: true |
1588 #useDefaultExtent: true |
1589 ) |
1589 ) |
1590 ) |
1590 ) |
1591 |
1591 |
1592 ) |
1592 ) |
1593 ) |
1593 ) |
1594 ) |
1594 ) |
1595 |
1595 |
1596 ) |
1596 ) |
1597 ) |
1597 ) |
1598 ! |
1598 ! |
1599 |
1599 |
1600 rightCanvasSpecForPrerequisitePackages |
1600 rightCanvasSpecForPrerequisitePackages |
1601 "This resource specification was automatically generated |
1601 "This resource specification was automatically generated |
1611 |
1611 |
1612 <resource: #canvas> |
1612 <resource: #canvas> |
1613 |
1613 |
1614 ^ |
1614 ^ |
1615 #(#FullSpec |
1615 #(#FullSpec |
1616 #name: #rightCanvasSpecForPrerequisitePackages |
1616 #name: #rightCanvasSpecForPrerequisitePackages |
1617 #window: |
1617 #window: |
1618 #(#WindowSpec |
1618 #(#WindowSpec |
1619 #label: 'NewApplication' |
1619 #label: 'NewApplication' |
1620 #name: 'NewApplication' |
1620 #name: 'NewApplication' |
1621 #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0) |
1621 #layout: #(#LayoutFrame 220 0 200 0 519 0 499 0) |
1622 #level: 0 |
1622 #level: 0 |
1623 #min: #(#Point 10 10) |
1623 #min: #(#Point 10 10) |
1624 #max: #(#Point 1280 1024) |
1624 #max: #(#Point 1280 1024) |
1625 #bounds: #(#Rectangle 220 200 520 500) |
1625 #bounds: #(#Rectangle 220 200 520 500) |
1626 #usePreferredExtent: false |
1626 #usePreferredExtent: false |
1627 #returnIsOKInDialog: true |
1627 #returnIsOKInDialog: true |
1628 #escapeIsCancelInDialog: true |
1628 #escapeIsCancelInDialog: true |
1629 ) |
1629 ) |
1630 #component: |
1630 #component: |
1631 #(#SpecCollection |
1631 #(#SpecCollection |
1632 #collection: #( |
1632 #collection: #( |
1633 #(#LabelSpec |
1633 #(#LabelSpec |
1634 #label: 'Known Packages' |
1634 #label: 'Known Packages' |
1635 #name: 'Label1' |
1635 #name: 'Label1' |
1636 #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0) |
1636 #layout: #(#LayoutFrame 0 0 0 0 0 0.5 30 0) |
1637 #translateLabel: true |
1637 #translateLabel: true |
1638 ) |
1638 ) |
1639 #(#SequenceViewSpec |
1639 #(#SequenceViewSpec |
1640 #name: 'List1' |
1640 #name: 'List1' |
1641 #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1) |
1641 #layout: #(#LayoutFrame 0 0 30 0 0 0.5 -62 1) |
1642 #tabable: true |
1642 #tabable: true |
1643 #model: #selectedProjectInPrerequisites |
1643 #model: #selectedProjectInPrerequisites |
1644 #hasHorizontalScrollBar: true |
1644 #hasHorizontalScrollBar: true |
1645 #hasVerticalScrollBar: true |
1645 #hasVerticalScrollBar: true |
1646 #miniScrollerHorizontal: true |
1646 #miniScrollerHorizontal: true |
1647 #miniScrollerVertical: true |
1647 #miniScrollerVertical: true |
1648 #doubleClickSelector: #addProjectToPrerequisites |
1648 #doubleClickSelector: #addProjectToPrerequisites |
1649 #useIndex: false |
1649 #useIndex: false |
1650 #sequenceList: #listOfAllProjectsInPrerequisites |
1650 #sequenceList: #listOfAllProjectsInPrerequisites |
1651 ) |
1651 ) |
1652 #(#LabelSpec |
1652 #(#LabelSpec |
1653 #label: 'Prerequisites' |
1653 #label: 'Prerequisites' |
1654 #name: 'Label2' |
1654 #name: 'Label2' |
1655 #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0) |
1655 #layout: #(#LayoutFrame 0 0.5 0 0 0 1 30 0) |
1656 #translateLabel: true |
1656 #translateLabel: true |
1657 ) |
1657 ) |
1658 #(#SequenceViewSpec |
1658 #(#SequenceViewSpec |
1659 #name: 'List2' |
1659 #name: 'List2' |
1660 #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1) |
1660 #layout: #(#LayoutFrame 0 0.5 30 0 0 1 -62 1) |
1661 #tabable: true |
1661 #tabable: true |
1662 #model: #selectedRequiredProjectInPrerequisites |
1662 #model: #selectedRequiredProjectInPrerequisites |
1663 #hasHorizontalScrollBar: true |
1663 #hasHorizontalScrollBar: true |
1664 #hasVerticalScrollBar: true |
1664 #hasVerticalScrollBar: true |
1665 #miniScrollerHorizontal: true |
1665 #miniScrollerHorizontal: true |
1666 #miniScrollerVertical: true |
1666 #miniScrollerVertical: true |
1667 #doubleClickSelector: #removeProjectFromPrerequisites |
1667 #doubleClickSelector: #removeProjectFromPrerequisites |
1668 #useIndex: false |
1668 #useIndex: false |
1669 #sequenceList: #listOfRequiredProjectsInPrerequisites |
1669 #sequenceList: #listOfRequiredProjectsInPrerequisites |
1670 ) |
1670 ) |
1671 #(#HorizontalPanelViewSpec |
1671 #(#HorizontalPanelViewSpec |
1672 #name: 'HorizontalPanel2' |
1672 #name: 'HorizontalPanel2' |
1673 #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1) |
1673 #layout: #(#LayoutFrame 0 0 -62 1 0 1 -32 1) |
1674 #horizontalLayout: #fitSpace |
1674 #horizontalLayout: #fitSpace |
1675 #verticalLayout: #center |
1675 #verticalLayout: #center |
1676 #horizontalSpace: 3 |
1676 #horizontalSpace: 3 |
1677 #verticalSpace: 3 |
1677 #verticalSpace: 3 |
1678 #component: |
1678 #component: |
1679 #(#SpecCollection |
1679 #(#SpecCollection |
1680 #collection: #( |
1680 #collection: #( |
1681 #(#ActionButtonSpec |
1681 #(#ActionButtonSpec |
1682 #label: 'Add' |
1682 #label: 'Add' |
1683 #name: 'addButton' |
1683 #name: 'addButton' |
1684 #translateLabel: true |
1684 #translateLabel: true |
1685 #resizeForLabel: false |
1685 #resizeForLabel: false |
1686 #tabable: true |
1686 #tabable: true |
1687 #model: #addProjectToPrerequisites |
1687 #model: #addProjectToPrerequisites |
1688 #enableChannel: #canAddSelectedProjectToPrerequisites |
1688 #enableChannel: #canAddSelectedProjectToPrerequisites |
1689 #actionValue: '' |
1689 #actionValue: '' |
1690 #useDefaultExtent: true |
1690 #useDefaultExtent: true |
1691 ) |
1691 ) |
1692 #(#ActionButtonSpec |
1692 #(#ActionButtonSpec |
1693 #label: 'Remove' |
1693 #label: 'Remove' |
1694 #name: 'removeButton' |
1694 #name: 'removeButton' |
1695 #translateLabel: true |
1695 #translateLabel: true |
1696 #resizeForLabel: false |
1696 #resizeForLabel: false |
1697 #tabable: true |
1697 #tabable: true |
1698 #model: #removeProjectFromPrerequisites |
1698 #model: #removeProjectFromPrerequisites |
1699 #enableChannel: #canRemoveSelectedProjectFromPrerequisites |
1699 #enableChannel: #canRemoveSelectedProjectFromPrerequisites |
1700 #actionValue: '' |
1700 #actionValue: '' |
1701 #useDefaultExtent: true |
1701 #useDefaultExtent: true |
1702 ) |
1702 ) |
1703 ) |
1703 ) |
1704 |
1704 |
1705 ) |
1705 ) |
1706 ) |
1706 ) |
1707 #(#HorizontalPanelViewSpec |
1707 #(#HorizontalPanelViewSpec |
1708 #name: 'HorizontalPanel1' |
1708 #name: 'HorizontalPanel1' |
1709 #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0) |
1709 #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 0 1.0) |
1710 #horizontalLayout: #fitSpace |
1710 #horizontalLayout: #fitSpace |
1711 #verticalLayout: #center |
1711 #verticalLayout: #center |
1712 #horizontalSpace: 3 |
1712 #horizontalSpace: 3 |
1713 #verticalSpace: 3 |
1713 #verticalSpace: 3 |
1714 #component: |
1714 #component: |
1715 #(#SpecCollection |
1715 #(#SpecCollection |
1716 #collection: #( |
1716 #collection: #( |
1717 #(#ActionButtonSpec |
1717 #(#ActionButtonSpec |
1718 #label: 'Cancel' |
1718 #label: 'Cancel' |
1719 #name: 'Button1' |
1719 #name: 'Button1' |
1720 #translateLabel: true |
1720 #translateLabel: true |
1721 #tabable: true |
1721 #tabable: true |
1722 #model: #cancel |
1722 #model: #cancel |
1723 #useDefaultExtent: true |
1723 #useDefaultExtent: true |
1724 ) |
1724 ) |
1725 #(#ActionButtonSpec |
1725 #(#ActionButtonSpec |
1726 #label: 'OK' |
1726 #label: 'OK' |
1727 #name: 'Button2' |
1727 #name: 'Button2' |
1728 #translateLabel: true |
1728 #translateLabel: true |
1729 #tabable: true |
1729 #tabable: true |
1730 #model: #accept |
1730 #model: #accept |
1731 #useDefaultExtent: true |
1731 #useDefaultExtent: true |
1732 ) |
1732 ) |
1733 ) |
1733 ) |
1734 |
1734 |
1735 ) |
1735 ) |
1736 ) |
1736 ) |
1737 ) |
1737 ) |
1738 |
1738 |
1739 ) |
1739 ) |
1740 ) |
1740 ) |
1741 ! |
1741 ! |
1742 |
1742 |
1743 rightCanvasSpecForProperties |
1743 rightCanvasSpecForProperties |
1744 "This resource specification was automatically generated |
1744 "This resource specification was automatically generated |
1754 |
1754 |
1755 <resource: #canvas> |
1755 <resource: #canvas> |
1756 |
1756 |
1757 ^ |
1757 ^ |
1758 #(#FullSpec |
1758 #(#FullSpec |
1759 #name: #rightCanvasSpecForProperties |
1759 #name: #rightCanvasSpecForProperties |
1760 #window: |
1760 #window: |
1761 #(#WindowSpec |
1761 #(#WindowSpec |
1762 #label: 'NewApplication' |
1762 #label: 'NewApplication' |
1763 #name: 'NewApplication' |
1763 #name: 'NewApplication' |
1764 #min: #(#Point 10 10) |
1764 #min: #(#Point 10 10) |
1765 #max: #(#Point 1280 1024) |
1765 #max: #(#Point 1280 1024) |
1766 #bounds: #(#Rectangle 12 22 373 346) |
1766 #bounds: #(#Rectangle 12 22 373 346) |
1767 ) |
1767 ) |
1768 #component: |
1768 #component: |
1769 #(#SpecCollection |
1769 #(#SpecCollection |
1770 #collection: #( |
1770 #collection: #( |
1771 #(#FramedBoxSpec |
1771 #(#FramedBoxSpec |
1772 #label: 'Project Type' |
1772 #label: 'Project Type' |
1773 #name: 'FramedBox1' |
1773 #name: 'FramedBox1' |
1774 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 61 0) |
1774 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 61 0) |
1775 #labelPosition: #topLeft |
1775 #labelPosition: #topLeft |
1776 #translateLabel: true |
1776 #translateLabel: true |
1777 #component: |
1777 #component: |
1778 #(#SpecCollection |
1778 #(#SpecCollection |
1779 #collection: #( |
1779 #collection: #( |
1780 #(#RadioButtonSpec |
1780 #(#RadioButtonSpec |
1781 #label: 'Application' |
1781 #label: 'Application' |
1782 #name: 'RadioButton1' |
1782 #name: 'RadioButton1' |
1783 #layout: #(#LayoutFrame -1 0.0 5 0 0 0.5 27 0) |
1783 #layout: #(#LayoutFrame -1 0.0 5 0 0 0.5 27 0) |
1784 #activeHelpKey: #appType |
1784 #activeHelpKey: #appType |
1785 #translateLabel: true |
1785 #translateLabel: true |
1786 #model: #projectType |
1786 #model: #projectType |
1787 #isTriggerOnDown: true |
1787 #isTriggerOnDown: true |
1788 #select: #application |
1788 #select: #application |
1789 ) |
1789 ) |
1790 #(#RadioButtonSpec |
1790 #(#RadioButtonSpec |
1791 #label: 'Class Library' |
1791 #label: 'Class Library' |
1792 #name: 'RadioButton2' |
1792 #name: 'RadioButton2' |
1793 #layout: #(#LayoutFrame 0 0.5 5 0 0 1.0 27 0) |
1793 #layout: #(#LayoutFrame 0 0.5 5 0 0 1.0 27 0) |
1794 #activeHelpKey: #libType |
1794 #activeHelpKey: #libType |
1795 #translateLabel: true |
1795 #translateLabel: true |
1796 #model: #projectType |
1796 #model: #projectType |
1797 #isTriggerOnDown: true |
1797 #isTriggerOnDown: true |
1798 #select: #library |
1798 #select: #library |
1799 ) |
1799 ) |
1800 ) |
1800 ) |
1801 |
1801 |
1802 ) |
1802 ) |
1803 ) |
1803 ) |
1804 #(#FramedBoxSpec |
1804 #(#FramedBoxSpec |
1805 #label: 'Project Working Directory' |
1805 #label: 'Project Working Directory' |
1806 #name: 'FramedBox2' |
1806 #name: 'FramedBox2' |
1807 #layout: #(#LayoutFrame 0 0.0 67 0.0 0 1.0 127 0) |
1807 #layout: #(#LayoutFrame 0 0.0 67 0.0 0 1.0 127 0) |
1808 #labelPosition: #topLeft |
1808 #labelPosition: #topLeft |
1809 #translateLabel: true |
1809 #translateLabel: true |
1810 #component: |
1810 #component: |
1811 #(#SpecCollection |
1811 #(#SpecCollection |
1812 #collection: #( |
1812 #collection: #( |
1813 #(#InputFieldSpec |
1813 #(#InputFieldSpec |
1814 #name: 'EntryField1' |
1814 #name: 'EntryField1' |
1815 #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0) |
1815 #layout: #(#LayoutFrame 0 0.0 1 0 0 1.0 23 0) |
1816 #activeHelpKey: #projectDir |
1816 #activeHelpKey: #projectDir |
1817 #enableChannel: #currentProjectWasNotLoadedFromFile |
1817 #enableChannel: #currentProjectWasNotLoadedFromFile |
1818 #model: #projectDirectory |
1818 #model: #projectDirectory |
1819 #acceptChannel: #acceptChannel |
1819 #acceptChannel: #acceptChannel |
1820 #modifiedChannel: #modifiedChannel |
1820 #modifiedChannel: #modifiedChannel |
1821 #acceptOnPointerLeave: false |
1821 #acceptOnPointerLeave: false |
1822 ) |
1822 ) |
1823 ) |
1823 ) |
1824 |
1824 |
1825 ) |
1825 ) |
1826 ) |
1826 ) |
1827 #(#FramedBoxSpec |
1827 #(#FramedBoxSpec |
1828 #label: 'Repository' |
1828 #label: 'Repository' |
1829 #name: 'FramedBox3' |
1829 #name: 'FramedBox3' |
1830 #layout: #(#LayoutFrame 0 0.0 137 0.0 0 1.0 220 0) |
1830 #layout: #(#LayoutFrame 0 0.0 137 0.0 0 1.0 220 0) |
1831 #labelPosition: #topLeft |
1831 #labelPosition: #topLeft |
1832 #translateLabel: true |
1832 #translateLabel: true |
1833 #component: |
1833 #component: |
1834 #(#SpecCollection |
1834 #(#SpecCollection |
1835 #collection: #( |
1835 #collection: #( |
1836 #(#LabelSpec |
1836 #(#LabelSpec |
1837 #label: 'Module:' |
1837 #label: 'Module:' |
1838 #name: 'Label1' |
1838 #name: 'Label1' |
1839 #layout: #(#AlignmentOrigin 106 0 11 0 1 0.5) |
1839 #layout: #(#AlignmentOrigin 106 0 11 0 1 0.5) |
1840 #translateLabel: true |
1840 #translateLabel: true |
1841 #resizeForLabel: true |
1841 #resizeForLabel: true |
1842 #adjust: #right |
1842 #adjust: #right |
1843 ) |
1843 ) |
1844 #(#InputFieldSpec |
1844 #(#InputFieldSpec |
1845 #name: 'EntryField2' |
1845 #name: 'EntryField2' |
1846 #layout: #(#LayoutFrame 110 0.0 0 0 0 1.0 22 0) |
1846 #layout: #(#LayoutFrame 110 0.0 0 0 0 1.0 22 0) |
1847 #activeHelpKey: #repositoryModule |
1847 #activeHelpKey: #repositoryModule |
1848 #model: #repositoryModule |
1848 #model: #repositoryModule |
1849 #acceptChannel: #acceptChannel |
1849 #acceptChannel: #acceptChannel |
1850 #modifiedChannel: #modifiedChannel |
1850 #modifiedChannel: #modifiedChannel |
1851 #acceptOnPointerLeave: false |
1851 #acceptOnPointerLeave: false |
1852 ) |
1852 ) |
1853 #(#LabelSpec |
1853 #(#LabelSpec |
1854 #label: 'Directory:' |
1854 #label: 'Directory:' |
1855 #name: 'Label2' |
1855 #name: 'Label2' |
1856 #layout: #(#AlignmentOrigin 106 0 36 0 1 0.5) |
1856 #layout: #(#AlignmentOrigin 106 0 36 0 1 0.5) |
1857 #translateLabel: true |
1857 #translateLabel: true |
1858 #resizeForLabel: true |
1858 #resizeForLabel: true |
1859 #adjust: #right |
1859 #adjust: #right |
1860 ) |
1860 ) |
1861 #(#InputFieldSpec |
1861 #(#InputFieldSpec |
1862 #name: 'EntryField3' |
1862 #name: 'EntryField3' |
1863 #layout: #(#LayoutFrame 110 0.0 25 0 0 1.0 47 0) |
1863 #layout: #(#LayoutFrame 110 0.0 25 0 0 1.0 47 0) |
1864 #activeHelpKey: #repositoryDirectory |
1864 #activeHelpKey: #repositoryDirectory |
1865 #model: #repositoryDirectory |
1865 #model: #repositoryDirectory |
1866 #acceptChannel: #acceptChannel |
1866 #acceptChannel: #acceptChannel |
1867 #modifiedChannel: #modifiedChannel |
1867 #modifiedChannel: #modifiedChannel |
1868 #acceptOnPointerLeave: false |
1868 #acceptOnPointerLeave: false |
1869 ) |
1869 ) |
1870 ) |
1870 ) |
1871 |
1871 |
1872 ) |
1872 ) |
1873 ) |
1873 ) |
1874 #(#FramedBoxSpec |
1874 #(#FramedBoxSpec |
1875 #label: 'Default Namespace' |
1875 #label: 'Default Namespace' |
1876 #name: 'FramedBox4' |
1876 #name: 'FramedBox4' |
1877 #layout: #(#LayoutFrame 0 0.0 226 0 0 1.0 284 0) |
1877 #layout: #(#LayoutFrame 0 0.0 226 0 0 1.0 284 0) |
1878 #activeHelpKey: #defaultNamespace |
1878 #activeHelpKey: #defaultNamespace |
1879 #labelPosition: #topLeft |
1879 #labelPosition: #topLeft |
1880 #translateLabel: true |
1880 #translateLabel: true |
1881 #component: |
1881 #component: |
1882 #(#SpecCollection |
1882 #(#SpecCollection |
1883 #collection: #( |
1883 #collection: #( |
1884 #(#InputFieldSpec |
1884 #(#InputFieldSpec |
1885 #name: 'EntryField4' |
1885 #name: 'EntryField4' |
1886 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 22 0) |
1886 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 22 0) |
1887 #model: #projectNamespace |
1887 #model: #projectNamespace |
1888 #acceptChannel: #acceptChannel |
1888 #acceptChannel: #acceptChannel |
1889 #modifiedChannel: #modifiedChannel |
1889 #modifiedChannel: #modifiedChannel |
1890 #acceptOnPointerLeave: false |
1890 #acceptOnPointerLeave: false |
1891 ) |
1891 ) |
1892 ) |
1892 ) |
1893 |
1893 |
1894 ) |
1894 ) |
1895 ) |
1895 ) |
1896 #(#HorizontalPanelViewSpec |
1896 #(#HorizontalPanelViewSpec |
1897 #name: 'HorizontalPanel1' |
1897 #name: 'HorizontalPanel1' |
1898 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
1898 #layout: #(#LayoutFrame 0 0 -30 1 0 1 0 1) |
1899 #horizontalLayout: #fitSpace |
1899 #horizontalLayout: #fitSpace |
1900 #verticalLayout: #center |
1900 #verticalLayout: #center |
1901 #horizontalSpace: 3 |
1901 #horizontalSpace: 3 |
1902 #verticalSpace: 3 |
1902 #verticalSpace: 3 |
1903 #component: |
1903 #component: |
1904 #(#SpecCollection |
1904 #(#SpecCollection |
1905 #collection: #( |
1905 #collection: #( |
1906 #(#ActionButtonSpec |
1906 #(#ActionButtonSpec |
1907 #label: 'Cancel' |
1907 #label: 'Cancel' |
1908 #name: 'Button1' |
1908 #name: 'Button1' |
1909 #activeHelpKey: #cancel |
1909 #activeHelpKey: #cancel |
1910 #translateLabel: true |
1910 #translateLabel: true |
1911 #model: #cancel |
1911 #model: #cancel |
1912 #enableChannel: #modifiedChannel |
1912 #enableChannel: #modifiedChannel |
1913 #actionValue: '' |
1913 #actionValue: '' |
1914 #useDefaultExtent: true |
1914 #useDefaultExtent: true |
1915 ) |
1915 ) |
1916 #(#ActionButtonSpec |
1916 #(#ActionButtonSpec |
1917 #label: 'OK' |
1917 #label: 'OK' |
1918 #name: 'Button2' |
1918 #name: 'Button2' |
1919 #activeHelpKey: #accept |
1919 #activeHelpKey: #accept |
1920 #translateLabel: true |
1920 #translateLabel: true |
1921 #model: #accept |
1921 #model: #accept |
1922 #enableChannel: #modifiedChannel |
1922 #enableChannel: #modifiedChannel |
1923 #useDefaultExtent: true |
1923 #useDefaultExtent: true |
1924 ) |
1924 ) |
1925 ) |
1925 ) |
1926 |
1926 |
1927 ) |
1927 ) |
1928 ) |
1928 ) |
1929 ) |
1929 ) |
1930 |
1930 |
1931 ) |
1931 ) |
1932 ) |
1932 ) |
1933 ! |
1933 ! |
1934 |
1934 |
1935 rightCanvasSpecForReadOnlyText |
1935 rightCanvasSpecForReadOnlyText |
1936 "This resource specification was automatically generated |
1936 "This resource specification was automatically generated |
1998 |
1998 |
1999 <resource: #canvas> |
1999 <resource: #canvas> |
2000 |
2000 |
2001 ^ |
2001 ^ |
2002 #(#FullSpec |
2002 #(#FullSpec |
2003 #name: #windowSpec |
2003 #name: #windowSpec |
2004 #window: |
2004 #window: |
2005 #(#WindowSpec |
2005 #(#WindowSpec |
2006 #label: 'ProjectBrowser' |
2006 #label: 'ProjectBrowser' |
2007 #name: 'ProjectBrowser' |
2007 #name: 'ProjectBrowser' |
2008 #min: #(#Point 10 10) |
2008 #min: #(#Point 10 10) |
2009 #max: #(#Point 1024 768) |
2009 #max: #(#Point 1024 768) |
2010 #bounds: #(#Rectangle 20 94 623 645) |
2010 #bounds: #(#Rectangle 20 94 623 645) |
2011 #menu: #mainMenu |
2011 #menu: #mainMenu |
2012 #icon: #bigProjectBrowserIcon |
2012 #icon: #bigProjectBrowserIcon |
2013 ) |
2013 ) |
2014 #component: |
2014 #component: |
2015 #(#SpecCollection |
2015 #(#SpecCollection |
2016 #collection: #( |
2016 #collection: #( |
2017 #(#MenuPanelSpec |
2017 #(#MenuPanelSpec |
2018 #name: 'ToolBar1' |
2018 #name: 'ToolBar1' |
2019 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
2019 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
2020 #menu: #menu |
2020 #menu: #menu |
2021 #textDefault: true |
2021 #textDefault: true |
2022 ) |
2022 ) |
2023 #(#VariableVerticalPanelSpec |
2023 #(#VariableVerticalPanelSpec |
2024 #name: 'VariableVerticalPanel1' |
2024 #name: 'VariableVerticalPanel1' |
2025 #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0) |
2025 #layout: #(#LayoutFrame 0 0.0 32 0.0 0 1.0 -24 1.0) |
2026 #level: 1 |
2026 #level: 1 |
2027 #component: |
2027 #component: |
2028 #(#SpecCollection |
2028 #(#SpecCollection |
2029 #collection: #( |
2029 #collection: #( |
2030 #(#VariableHorizontalPanelSpec |
2030 #(#VariableHorizontalPanelSpec |
2031 #name: 'VariableHorizontalPanel1' |
2031 #name: 'VariableHorizontalPanel1' |
2032 #component: |
2032 #component: |
2033 #(#SpecCollection |
2033 #(#SpecCollection |
2034 #collection: #( |
2034 #collection: #( |
2035 #(#SelectionInTreeViewSpec |
2035 #(#SelectionInTreeViewSpec |
2036 #name: 'TreeList1' |
2036 #name: 'TreeList1' |
2037 #model: #selectedTreeNodeHolder |
2037 #model: #selectedTreeNodeHolder |
2038 #menu: #itemMenuHolder |
2038 #menu: #itemMenuHolder |
2039 #performer: #itemMenuPerformer |
2039 #performer: #itemMenuPerformer |
2040 #hasHorizontalScrollBar: true |
2040 #hasHorizontalScrollBar: true |
2041 #hasVerticalScrollBar: true |
2041 #hasVerticalScrollBar: true |
2042 #miniScrollerHorizontal: true |
2042 #miniScrollerHorizontal: true |
2043 #showRoot: false |
2043 #showRoot: false |
2044 #showDirectoryIndicatorForRoot: false |
2044 #showDirectoryIndicatorForRoot: false |
2045 #showDirectoryIndicator: true |
2045 #showDirectoryIndicator: true |
2046 #valueChangeSelector: #itemSelected: |
2046 #valueChangeSelector: #itemSelected: |
2047 #doubleClickSelector: #itemDoubleClicked: |
2047 #doubleClickSelector: #itemDoubleClicked: |
2048 #hierarchicalList: #projectTreeHolder |
2048 #hierarchicalList: #projectTreeHolder |
2049 #selectConditionSelector: #selectionChangeAllowed: |
2049 #selectConditionSelector: #selectionChangeAllowed: |
2050 #highlightMode: #label |
2050 #highlightMode: #label |
2051 ) |
2051 ) |
2052 #(#SubCanvasSpec |
2052 #(#SubCanvasSpec |
2053 #name: 'SubCanvas1' |
2053 #name: 'SubCanvas1' |
2054 #hasHorizontalScrollBar: false |
2054 #hasHorizontalScrollBar: false |
2055 #hasVerticalScrollBar: false |
2055 #hasVerticalScrollBar: false |
2056 #specHolder: #currentCanvasHolder |
2056 #specHolder: #currentCanvasHolder |
2057 ) |
2057 ) |
2058 ) |
2058 ) |
2059 |
2059 |
2060 ) |
2060 ) |
2061 #handles: #(#Any 0.389718 1.0) |
2061 #handles: #(#Any 0.389718 1.0) |
2062 ) |
2062 ) |
2063 #(#ArbitraryComponentSpec |
2063 #(#ArbitraryComponentSpec |
2064 #name: 'commandOutputView' |
2064 #name: 'commandOutputView' |
2065 #hasHorizontalScrollBar: true |
2065 #hasHorizontalScrollBar: true |
2066 #hasVerticalScrollBar: true |
2066 #hasVerticalScrollBar: true |
2067 #miniScrollerHorizontal: true |
2067 #miniScrollerHorizontal: true |
2068 #hasBorder: false |
2068 #hasBorder: false |
2069 #component: #TextCollector |
2069 #component: #TextCollector |
2070 ) |
2070 ) |
2071 ) |
2071 ) |
2072 |
2072 |
2073 ) |
2073 ) |
2074 #handles: #(#Any 0.987879 1.0) |
2074 #handles: #(#Any 0.987879 1.0) |
2075 ) |
2075 ) |
2076 #(#UISubSpecification |
2076 #(#UISubSpecification |
2077 #name: 'infoBarSubSpec' |
2077 #name: 'infoBarSubSpec' |
2078 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
2078 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
2079 #level: 1 |
2079 #level: 1 |
2080 #majorKey: #ToolApplicationModel |
2080 #majorKey: #ToolApplicationModel |
2081 #minorKey: #windowSpecForInfoBar |
2081 #minorKey: #windowSpecForInfoBar |
2082 ) |
2082 ) |
2083 ) |
2083 ) |
2084 |
2084 |
2085 ) |
2085 ) |
2086 ) |
2086 ) |
2087 ! ! |
2087 ! ! |
2088 |
2088 |
2089 !ProjectBrowser class methodsFor:'menu specs'! |
2089 !ProjectBrowser class methodsFor:'menu specs'! |
2090 |
2090 |
2142 |
2142 |
2143 ^ |
2143 ^ |
2144 |
2144 |
2145 #(#Menu |
2145 #(#Menu |
2146 |
2146 |
2147 #( |
2147 #( |
2148 #(#MenuItem |
2148 #(#MenuItem |
2149 #label: 'Add Class...' |
2149 #label: 'Add Class...' |
2150 #translateLabel: true |
2150 #translateLabel: true |
2151 #value: #addClass |
2151 #value: #addClass |
2152 #enabled: #hasClassesSelectedHolder |
2152 #enabled: #hasClassesSelectedHolder |
2153 ) |
2153 ) |
2154 #(#MenuItem |
2154 #(#MenuItem |
2155 #label: 'Add Classes found in image' |
2155 #label: 'Add Classes found in image' |
2156 #translateLabel: true |
2156 #translateLabel: true |
2157 #value: #addClassesFromImage |
2157 #value: #addClassesFromImage |
2158 #enabled: #hasClassesSelectedHolder |
2158 #enabled: #hasClassesSelectedHolder |
2159 ) |
2159 ) |
2160 #(#MenuItem |
2160 #(#MenuItem |
2161 #label: 'Add Classes from files found in directory' |
2161 #label: 'Add Classes from files found in directory' |
2162 #translateLabel: true |
2162 #translateLabel: true |
2163 #value: #addClassesFromFilesInDirectory |
2163 #value: #addClassesFromFilesInDirectory |
2164 #enabled: #hasClassesSelectedHolder |
2164 #enabled: #hasClassesSelectedHolder |
2165 ) |
2165 ) |
2166 #(#MenuItem |
2166 #(#MenuItem |
2167 #label: 'Add Classes from files found in directory if present in image' |
2167 #label: 'Add Classes from files found in directory if present in image' |
2168 #translateLabel: true |
2168 #translateLabel: true |
2169 #value: #addClassesFromFilesInDirectoryIfPresentInImage |
2169 #value: #addClassesFromFilesInDirectoryIfPresentInImage |
2170 #enabled: #hasClassesSelectedHolder |
2170 #enabled: #hasClassesSelectedHolder |
2171 ) |
2171 ) |
2172 #(#MenuItem |
2172 #(#MenuItem |
2173 #label: '-' |
2173 #label: '-' |
2174 ) |
2174 ) |
2175 #(#MenuItem |
2175 #(#MenuItem |
2176 #label: 'Load Classes from Directory' |
2176 #label: 'Load Classes from Directory' |
2177 #translateLabel: true |
2177 #translateLabel: true |
2178 #value: #loadClassesFromDirectory |
2178 #value: #loadClassesFromDirectory |
2179 #enabled: #canLoadClassesFromDirectory |
2179 #enabled: #canLoadClassesFromDirectory |
2180 ) |
2180 ) |
2181 #(#MenuItem |
2181 #(#MenuItem |
2182 #label: 'Load Classes from Repository' |
2182 #label: 'Load Classes from Repository' |
2183 #translateLabel: true |
2183 #translateLabel: true |
2184 #value: #loadClassesFromRepository |
2184 #value: #loadClassesFromRepository |
2185 #enabled: #canLoadClassesFromRepository |
2185 #enabled: #canLoadClassesFromRepository |
2186 ) |
2186 ) |
2187 #(#MenuItem |
2187 #(#MenuItem |
2188 #label: '-' |
2188 #label: '-' |
2189 ) |
2189 ) |
2190 #(#MenuItem |
2190 #(#MenuItem |
2191 #label: 'Validate...' |
2191 #label: 'Validate...' |
2192 #translateLabel: true |
2192 #translateLabel: true |
2193 #value: #validateAgainstClassesInImage |
2193 #value: #validateAgainstClassesInImage |
2194 #enabled: #hasClassesSelectedHolder |
2194 #enabled: #hasClassesSelectedHolder |
2195 ) |
2195 ) |
2196 |
2196 |
2197 #(#MenuItem |
2197 #(#MenuItem |
2198 #label: '-' |
2198 #label: '-' |
2199 ) |
2199 ) |
2200 #(#MenuItem |
2200 #(#MenuItem |
2201 #label: 'Browse...' |
2201 #label: 'Browse...' |
2202 #translateLabel: true |
2202 #translateLabel: true |
2203 #value: #browseClasses |
2203 #value: #browseClasses |
2204 #enabled: #hasClassesSelectedHolder |
2204 #enabled: #hasClassesSelectedHolder |
2205 ) |
2205 ) |
2206 ) nil |
2206 ) nil |
2207 nil |
2207 nil |
2208 ) |
2208 ) |
2209 ! |
2209 ! |
2210 |
2210 |
2211 mainMenu |
2211 mainMenu |
2212 "This resource specification was automatically generated |
2212 "This resource specification was automatically generated |
2222 |
2222 |
2223 <resource: #menu> |
2223 <resource: #menu> |
2224 |
2224 |
2225 ^ |
2225 ^ |
2226 #(#Menu |
2226 #(#Menu |
2227 #( |
2227 #( |
2228 #(#MenuItem |
2228 #(#MenuItem |
2229 #label: 'File' |
2229 #label: 'File' |
2230 #translateLabel: true |
2230 #translateLabel: true |
2231 #submenu: |
2231 #submenu: |
2232 #(#Menu |
2232 #(#Menu |
2233 #( |
2233 #( |
2234 #(#MenuItem |
2234 #(#MenuItem |
2235 #label: 'New' |
2235 #label: 'New' |
2236 #translateLabel: true |
2236 #translateLabel: true |
2237 #value: #newProject |
2237 #value: #newProject |
2238 ) |
2238 ) |
2239 #(#MenuItem |
2239 #(#MenuItem |
2240 #label: '-' |
2240 #label: '-' |
2241 ) |
2241 ) |
2242 #(#MenuItem |
2242 #(#MenuItem |
2243 #label: 'Load From...' |
2243 #label: 'Load From...' |
2244 #translateLabel: true |
2244 #translateLabel: true |
2245 #value: #openProject |
2245 #value: #openProject |
2246 #activeHelpKey: #openProject |
2246 #activeHelpKey: #openProject |
2247 ) |
2247 ) |
2248 #(#MenuItem |
2248 #(#MenuItem |
2249 #label: 'Load Project Code' |
2249 #label: 'Load Project Code' |
2250 #translateLabel: true |
2250 #translateLabel: true |
2251 #value: #loadProjectCode |
2251 #value: #loadProjectCode |
2252 #enabled: #hasProjectSelectedAndProjectFilenameHolder |
2252 #enabled: #hasProjectSelectedAndProjectFilenameHolder |
2253 #activeHelpKey: #loadProjectCode |
2253 #activeHelpKey: #loadProjectCode |
2254 ) |
2254 ) |
2255 #(#MenuItem |
2255 #(#MenuItem |
2256 #label: '-' |
2256 #label: '-' |
2257 ) |
2257 ) |
2258 #(#MenuItem |
2258 #(#MenuItem |
2259 #label: 'Save Project File' |
2259 #label: 'Save Project File' |
2260 #translateLabel: true |
2260 #translateLabel: true |
2261 #value: #saveProjectFile |
2261 #value: #saveProjectFile |
2262 #enabled: #hasProjectSelectedAndProjectFilenameHolder |
2262 #enabled: #hasProjectSelectedAndProjectFilenameHolder |
2263 #activeHelpKey: #saveProjectFile |
2263 #activeHelpKey: #saveProjectFile |
2264 ) |
2264 ) |
2265 #(#MenuItem |
2265 #(#MenuItem |
2266 #label: 'Save Project Code' |
2266 #label: 'Save Project Code' |
2267 #translateLabel: true |
2267 #translateLabel: true |
2268 #value: #saveProjectCode |
2268 #value: #saveProjectCode |
2269 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2269 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2270 ) |
2270 ) |
2271 #(#MenuItem |
2271 #(#MenuItem |
2272 #label: 'Save All' |
2272 #label: 'Save All' |
2273 #translateLabel: true |
2273 #translateLabel: true |
2274 #value: #saveAll |
2274 #value: #saveAll |
2275 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2275 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2276 ) |
2276 ) |
2277 #(#MenuItem |
2277 #(#MenuItem |
2278 #label: '-' |
2278 #label: '-' |
2279 ) |
2279 ) |
2280 #(#MenuItem |
2280 #(#MenuItem |
2281 #label: 'Exit' |
2281 #label: 'Exit' |
2282 #translateLabel: true |
2282 #translateLabel: true |
2283 #value: #closeRequest |
2283 #value: #closeRequest |
2284 ) |
2284 ) |
2285 ) |
2285 ) |
2286 nil |
2286 nil |
2287 nil |
2287 nil |
2288 ) |
2288 ) |
2289 ) |
2289 ) |
2290 #(#MenuItem |
2290 #(#MenuItem |
2291 #label: 'Repository' |
2291 #label: 'Repository' |
2292 #translateLabel: true |
2292 #translateLabel: true |
2293 #submenu: |
2293 #submenu: |
2294 #(#Menu |
2294 #(#Menu |
2295 #( |
2295 #( |
2296 #(#MenuItem |
2296 #(#MenuItem |
2297 #label: 'CheckIn All' |
2297 #label: 'CheckIn All' |
2298 #translateLabel: true |
2298 #translateLabel: true |
2299 #value: #checkInProject |
2299 #value: #checkInProject |
2300 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2300 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2301 ) |
2301 ) |
2302 #(#MenuItem |
2302 #(#MenuItem |
2303 #label: '-' |
2303 #label: '-' |
2304 ) |
2304 ) |
2305 #(#MenuItem |
2305 #(#MenuItem |
2306 #label: 'CheckIn Classes' |
2306 #label: 'CheckIn Classes' |
2307 #translateLabel: true |
2307 #translateLabel: true |
2308 #value: #checkInAllClasses |
2308 #value: #checkInAllClasses |
2309 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2309 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2310 ) |
2310 ) |
2311 #(#MenuItem |
2311 #(#MenuItem |
2312 #label: 'CheckIn Extensions' |
2312 #label: 'CheckIn Extensions' |
2313 #translateLabel: true |
2313 #translateLabel: true |
2314 #value: #checkInMethods |
2314 #value: #checkInMethods |
2315 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2315 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2316 ) |
2316 ) |
2317 #(#MenuItem |
2317 #(#MenuItem |
2318 #label: 'CheckIn Project File' |
2318 #label: 'CheckIn Project File' |
2319 #translateLabel: true |
2319 #translateLabel: true |
2320 #value: #checkInProjectFile |
2320 #value: #checkInProjectFile |
2321 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2321 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2322 ) |
2322 ) |
2323 #(#MenuItem |
2323 #(#MenuItem |
2324 #label: 'CheckIn Makefiles' |
2324 #label: 'CheckIn Makefiles' |
2325 #translateLabel: true |
2325 #translateLabel: true |
2326 #value: #checkInMakefiles |
2326 #value: #checkInMakefiles |
2327 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2327 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2328 ) |
2328 ) |
2329 ) |
2329 ) |
2330 nil |
2330 nil |
2331 nil |
2331 nil |
2332 ) |
2332 ) |
2333 ) |
2333 ) |
2334 #(#MenuItem |
2334 #(#MenuItem |
2335 #label: 'View' |
2335 #label: 'View' |
2336 #translateLabel: true |
2336 #translateLabel: true |
2337 #submenu: |
2337 #submenu: |
2338 #(#Menu |
2338 #(#Menu |
2339 #( |
2339 #( |
2340 #(#MenuItem |
2340 #(#MenuItem |
2341 #label: 'Current Project' |
2341 #label: 'Current Project' |
2342 #translateLabel: true |
2342 #translateLabel: true |
2343 #choice: #showWhat |
2343 #choice: #showWhat |
2344 #choiceValue: #current |
2344 #choiceValue: #current |
2345 ) |
2345 ) |
2346 #(#MenuItem |
2346 #(#MenuItem |
2347 #label: 'Non BaseSystem Projects' |
2347 #label: 'Non BaseSystem Projects' |
2348 #translateLabel: true |
2348 #translateLabel: true |
2349 #choice: #showWhat |
2349 #choice: #showWhat |
2350 #choiceValue: #userProjects |
2350 #choiceValue: #userProjects |
2351 ) |
2351 ) |
2352 #(#MenuItem |
2352 #(#MenuItem |
2353 #label: 'All Projects' |
2353 #label: 'All Projects' |
2354 #translateLabel: true |
2354 #translateLabel: true |
2355 #choice: #showWhat |
2355 #choice: #showWhat |
2356 #choiceValue: #all |
2356 #choiceValue: #all |
2357 ) |
2357 ) |
2358 #(#MenuItem |
2358 #(#MenuItem |
2359 #label: '-' |
2359 #label: '-' |
2360 ) |
2360 ) |
2361 #(#MenuItem |
2361 #(#MenuItem |
2362 #label: 'Update' |
2362 #label: 'Update' |
2363 #translateLabel: true |
2363 #translateLabel: true |
2364 #value: #updateListOfProjects |
2364 #value: #updateListOfProjects |
2365 ) |
2365 ) |
2366 ) |
2366 ) |
2367 nil |
2367 nil |
2368 nil |
2368 nil |
2369 ) |
2369 ) |
2370 ) |
2370 ) |
2371 #(#MenuItem |
2371 #(#MenuItem |
2372 #label: 'Project' |
2372 #label: 'Project' |
2373 #translateLabel: true |
2373 #translateLabel: true |
2374 #submenuChannel: #projectItemMenu |
2374 #submenuChannel: #projectItemMenu |
2375 ) |
2375 ) |
2376 #(#MenuItem |
2376 #(#MenuItem |
2377 #label: 'Build' |
2377 #label: 'Build' |
2378 #translateLabel: true |
2378 #translateLabel: true |
2379 #submenu: |
2379 #submenu: |
2380 #(#Menu |
2380 #(#Menu |
2381 #( |
2381 #( |
2382 #(#MenuItem |
2382 #(#MenuItem |
2383 #label: 'All' |
2383 #label: 'All' |
2384 #translateLabel: true |
2384 #translateLabel: true |
2385 #value: #buildAll |
2385 #value: #buildAll |
2386 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2386 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2387 ) |
2387 ) |
2388 #(#MenuItem |
2388 #(#MenuItem |
2389 #label: '-' |
2389 #label: '-' |
2390 ) |
2390 ) |
2391 #(#MenuItem |
2391 #(#MenuItem |
2392 #label: 'Make.proto && Makefile' |
2392 #label: 'Make.proto && Makefile' |
2393 #translateLabel: true |
2393 #translateLabel: true |
2394 #value: #buildMakefiles |
2394 #value: #buildMakefiles |
2395 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2395 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2396 ) |
2396 ) |
2397 #(#MenuItem |
2397 #(#MenuItem |
2398 #label: 'Makefile' |
2398 #label: 'Makefile' |
2399 #translateLabel: true |
2399 #translateLabel: true |
2400 #value: #buildMakefile |
2400 #value: #buildMakefile |
2401 #isVisible: #osIsUnix |
2401 #isVisible: #osIsUnix |
2402 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2402 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2403 ) |
2403 ) |
2404 #(#MenuItem |
2404 #(#MenuItem |
2405 #label: 'Makefile for windows (nt.mak)' |
2405 #label: 'Makefile for windows (nt.mak)' |
2406 #translateLabel: true |
2406 #translateLabel: true |
2407 #value: #buildNTMakefile |
2407 #value: #buildNTMakefile |
2408 #isVisible: #osIsWindows |
2408 #isVisible: #osIsWindows |
2409 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2409 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2410 ) |
2410 ) |
2411 #(#MenuItem |
2411 #(#MenuItem |
2412 #label: 'LoadAll file' |
2412 #label: 'LoadAll file' |
2413 #translateLabel: true |
2413 #translateLabel: true |
2414 #value: #buildLoadAllFile |
2414 #value: #buildLoadAllFile |
2415 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2415 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2416 ) |
2416 ) |
2417 #(#MenuItem |
2417 #(#MenuItem |
2418 #label: 'abbrev file (for autoload)' |
2418 #label: 'abbrev file (for autoload)' |
2419 #translateLabel: true |
2419 #translateLabel: true |
2420 #value: #buildAbbrevFile |
2420 #value: #buildAbbrevFile |
2421 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2421 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2422 ) |
2422 ) |
2423 #(#MenuItem |
2423 #(#MenuItem |
2424 #label: 'Binary class library (non portable)' |
2424 #label: 'Binary class library (non portable)' |
2425 #translateLabel: true |
2425 #translateLabel: true |
2426 #value: #buildCompiledClassLibrary |
2426 #value: #buildCompiledClassLibrary |
2427 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2427 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2428 ) |
2428 ) |
2429 #(#MenuItem |
2429 #(#MenuItem |
2430 #label: 'Bytecode class library (portable)' |
2430 #label: 'Bytecode class library (portable)' |
2431 #translateLabel: true |
2431 #translateLabel: true |
2432 #value: #buildByteCodeClassLibrary |
2432 #value: #buildByteCodeClassLibrary |
2433 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2433 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2434 ) |
2434 ) |
2435 #(#MenuItem |
2435 #(#MenuItem |
2436 #label: 'Zip archive' |
2436 #label: 'Zip archive' |
2437 #translateLabel: true |
2437 #translateLabel: true |
2438 #value: #buildZipArchive |
2438 #value: #buildZipArchive |
2439 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2439 #enabled: #hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
2440 ) |
2440 ) |
2441 ) |
2441 ) |
2442 nil |
2442 nil |
2443 nil |
2443 nil |
2444 ) |
2444 ) |
2445 ) |
2445 ) |
2446 #(#MenuItem |
2446 #(#MenuItem |
2447 #label: 'Help' |
2447 #label: 'Help' |
2448 #translateLabel: true |
2448 #translateLabel: true |
2449 #startGroup: #right |
2449 #startGroup: #right |
2450 #submenu: |
2450 #submenu: |
2451 #(#Menu |
2451 #(#Menu |
2452 #( |
2452 #( |
2453 #(#MenuItem |
2453 #(#MenuItem |
2454 #label: 'Documentation' |
2454 #label: 'Documentation' |
2455 #translateLabel: true |
2455 #translateLabel: true |
2456 #value: #openDocumentation |
2456 #value: #openDocumentation |
2457 ) |
2457 ) |
2458 #(#MenuItem |
2458 #(#MenuItem |
2459 #label: '-' |
2459 #label: '-' |
2460 ) |
2460 ) |
2461 #(#MenuItem |
2461 #(#MenuItem |
2462 #label: 'About this Application' |
2462 #label: 'About this Application' |
2463 #translateLabel: true |
2463 #translateLabel: true |
2464 #value: #openAboutThisApplication |
2464 #value: #openAboutThisApplication |
2465 ) |
2465 ) |
2466 ) |
2466 ) |
2467 nil |
2467 nil |
2468 nil |
2468 nil |
2469 ) |
2469 ) |
2470 ) |
2470 ) |
2471 ) |
2471 ) |
2472 nil |
2472 nil |
2473 nil |
2473 nil |
2474 ) |
2474 ) |
2475 |
2475 |
2476 "Modified: / 19.1.2000 / 16:52:31 / cg" |
2476 "Modified: / 19.1.2000 / 16:52:31 / cg" |
2477 ! |
2477 ! |
2478 |
2478 |
2658 |
2658 |
2659 ^ |
2659 ^ |
2660 |
2660 |
2661 #(#Menu |
2661 #(#Menu |
2662 |
2662 |
2663 #( |
2663 #( |
2664 #(#MenuItem |
2664 #(#MenuItem |
2665 #label: 'Load Project' |
2665 #label: 'Load Project' |
2666 #translateLabel: true |
2666 #translateLabel: true |
2667 #value: #loadProject |
2667 #value: #loadProject |
2668 #enabled: #canLoadCurrentProjectHolder |
2668 #enabled: #canLoadCurrentProjectHolder |
2669 ) |
2669 ) |
2670 #(#MenuItem |
2670 #(#MenuItem |
2671 #label: 'Unload Project' |
2671 #label: 'Unload Project' |
2672 #translateLabel: true |
2672 #translateLabel: true |
2673 #value: #unloadProject |
2673 #value: #unloadProject |
2674 #enabled: #canUnloadCurrentProjectHolder |
2674 #enabled: #canUnloadCurrentProjectHolder |
2675 ) |
2675 ) |
2676 #(#MenuItem |
2676 #(#MenuItem |
2677 #label: '-' |
2677 #label: '-' |
2678 ) |
2678 ) |
2679 #(#MenuItem |
2679 #(#MenuItem |
2680 #label: 'Make Current' |
2680 #label: 'Make Current' |
2681 #translateLabel: true |
2681 #translateLabel: true |
2682 #value: #makeCurrentProject |
2682 #value: #makeCurrentProject |
2683 #enabled: #hasProjectSelectedHolder |
2683 #enabled: #hasProjectSelectedHolder |
2684 ) |
2684 ) |
2685 #(#MenuItem |
2685 #(#MenuItem |
2686 #label: 'Inspect' |
2686 #label: 'Inspect' |
2687 #translateLabel: true |
2687 #translateLabel: true |
2688 #value: #inspectCurrentProject |
2688 #value: #inspectCurrentProject |
2689 #enabled: #hasProjectSelectedHolder |
2689 #enabled: #hasProjectSelectedHolder |
2690 ) |
2690 ) |
2691 #(#MenuItem |
2691 #(#MenuItem |
2692 #label: '-' |
2692 #label: '-' |
2693 ) |
2693 ) |
2694 "/ #(#MenuItem |
2694 "/ #(#MenuItem |
2695 "/ #label: 'New SubProject' |
2695 "/ #label: 'New SubProject' |
2696 "/ #translateLabel: true |
2696 "/ #translateLabel: true |
2697 "/ #value: #newSubProject |
2697 "/ #value: #newSubProject |
2698 "/ #enabled: #hasProjectSelectedHolder |
2698 "/ #enabled: #hasProjectSelectedHolder |
2699 "/ ) |
2699 "/ ) |
2700 "/ #(#MenuItem |
2700 "/ #(#MenuItem |
2701 "/ #label: '-' |
2701 "/ #label: '-' |
2702 "/ ) |
2702 "/ ) |
2703 #(#MenuItem |
2703 #(#MenuItem |
2704 #label: 'Rename...' |
2704 #label: 'Rename...' |
2705 #translateLabel: true |
2705 #translateLabel: true |
2706 #value: #renameProject |
2706 #value: #renameProject |
2707 #enabled: #hasProjectSelectedHolder |
2707 #enabled: #hasProjectSelectedHolder |
2708 ) |
2708 ) |
2709 #(#MenuItem |
2709 #(#MenuItem |
2710 #label: '-' |
2710 #label: '-' |
2711 ) |
2711 ) |
2712 #(#MenuItem |
2712 #(#MenuItem |
2713 #label: 'Remove...' |
2713 #label: 'Remove...' |
2714 #translateLabel: true |
2714 #translateLabel: true |
2715 #value: #removeProject |
2715 #value: #removeProject |
2716 #enabled: #hasProjectSelectedHolder |
2716 #enabled: #hasProjectSelectedHolder |
2717 ) |
2717 ) |
2718 ) nil |
2718 ) nil |
2719 nil |
2719 nil |
2720 ) |
2720 ) |
2721 ! |
2721 ! |
2722 |
2722 |
2723 subProjectsItemMenu |
2723 subProjectsItemMenu |
2724 "This resource specification was automatically generated |
2724 "This resource specification was automatically generated |
2865 self hasClassNodeSelected ifFalse:[^ self]. |
2865 self hasClassNodeSelected ifFalse:[^ self]. |
2866 |
2866 |
2867 node := self selectedTreeNode. |
2867 node := self selectedTreeNode. |
2868 classOrClassName := node contents value. |
2868 classOrClassName := node contents value. |
2869 classOrClassName isBehavior ifTrue:[ |
2869 classOrClassName isBehavior ifTrue:[ |
2870 cls := classOrClassName. |
2870 cls := classOrClassName. |
2871 ] ifFalse:[ |
2871 ] ifFalse:[ |
2872 cls := Smalltalk at:classOrClassName. |
2872 cls := Smalltalk at:classOrClassName. |
2873 ]. |
2873 ]. |
2874 cls isNil ifTrue:[ |
2874 cls isNil ifTrue:[ |
2875 self information:'The class is not (yet) loaded'. |
2875 self information:'The class is not (yet) loaded'. |
2876 ^ self. |
2876 ^ self. |
2877 ]. |
2877 ]. |
2878 cls isLoaded ifFalse:[ |
2878 cls isLoaded ifFalse:[ |
2879 self information:'The class is an autoloaded class.'. |
2879 self information:'The class is an autoloaded class.'. |
2880 ]. |
2880 ]. |
2881 SystemBrowser openInClass:cls selector:nil. |
2881 SystemBrowser openInClass:cls selector:nil. |
2882 |
2882 |
2883 ! |
2883 ! |
2884 |
2884 |
2885 canAddSelectedClassToPrerequisites |
2885 canAddSelectedClassToPrerequisites |
2886 |holder| |
2886 |holder| |
2887 |
2887 |
2888 (holder := builder bindingAt:#canAddSelectedClassToPrerequisites) isNil ifTrue:[ |
2888 (holder := builder bindingAt:#canAddSelectedClassToPrerequisites) isNil ifTrue:[ |
2889 holder := BlockValue |
2889 holder := BlockValue |
2890 with:[:m | self canAddClassToPrerequisites:m] |
2890 with:[:m | self canAddClassToPrerequisites:m] |
2891 argument:(self selectedClassInPrerequisites). |
2891 argument:(self selectedClassInPrerequisites). |
2892 builder aspectAt:#canAddSelectedClassToPrerequisites put:holder. |
2892 builder aspectAt:#canAddSelectedClassToPrerequisites put:holder. |
2893 ]. |
2893 ]. |
2894 ^ holder. |
2894 ^ holder. |
2895 |
2895 |
2896 "Created: / 23.3.1999 / 14:18:05 / cg" |
2896 "Created: / 23.3.1999 / 14:18:05 / cg" |
2897 ! |
2897 ! |
2898 |
2898 |
2899 canAddSelectedProjectToPrerequisites |
2899 canAddSelectedProjectToPrerequisites |
2900 |holder| |
2900 |holder| |
2901 |
2901 |
2902 (holder := builder bindingAt:#canAddSelectedProjectToPrerequisites) isNil ifTrue:[ |
2902 (holder := builder bindingAt:#canAddSelectedProjectToPrerequisites) isNil ifTrue:[ |
2903 holder := BlockValue |
2903 holder := BlockValue |
2904 with:[:m | self canAddProjectToPrerequisites:m] |
2904 with:[:m | self canAddProjectToPrerequisites:m] |
2905 argument:(self selectedProjectInPrerequisites). |
2905 argument:(self selectedProjectInPrerequisites). |
2906 builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder. |
2906 builder aspectAt:#canAddSelectedProjectToPrerequisites put:holder. |
2907 ]. |
2907 ]. |
2908 ^ holder. |
2908 ^ holder. |
2909 |
2909 |
2910 "Created: / 23.3.1999 / 14:18:05 / cg" |
2910 "Created: / 23.3.1999 / 14:18:05 / cg" |
2911 ! |
2911 ! |
2929 |
2929 |
2930 canDeliverForMacOS |
2930 canDeliverForMacOS |
2931 |holder| |
2931 |holder| |
2932 |
2932 |
2933 (holder := builder bindingAt:#canDeliverForMacOS) isNil ifTrue:[ |
2933 (holder := builder bindingAt:#canDeliverForMacOS) isNil ifTrue:[ |
2934 holder := BlockValue |
2934 holder := BlockValue |
2935 with:[:a1 :a2 | a1 or:[a2 not]] |
2935 with:[:a1 :a2 | a1 or:[a2 not]] |
2936 arguments:(Array |
2936 arguments:(Array |
2937 with:self canDeliverBinaryForMacOS |
2937 with:self canDeliverBinaryForMacOS |
2938 with:self deliverCompiledBinary). |
2938 with:self deliverCompiledBinary). |
2939 builder aspectAt:#canDeliverForMacOS put:holder. |
2939 builder aspectAt:#canDeliverForMacOS put:holder. |
2940 ]. |
2940 ]. |
2941 ^ holder. |
2941 ^ holder. |
2942 ! |
2942 ! |
2943 |
2943 |
2944 canDeliverForUnix |
2944 canDeliverForUnix |
2945 |holder| |
2945 |holder| |
2946 |
2946 |
2947 (holder := builder bindingAt:#canDeliverForUnix) isNil ifTrue:[ |
2947 (holder := builder bindingAt:#canDeliverForUnix) isNil ifTrue:[ |
2948 holder := BlockValue |
2948 holder := BlockValue |
2949 with:[:a1 :a2 | a1 or:[a2 not]] |
2949 with:[:a1 :a2 | a1 or:[a2 not]] |
2950 arguments:(Array |
2950 arguments:(Array |
2951 with:self canDeliverBinaryForUnix |
2951 with:self canDeliverBinaryForUnix |
2952 with:self deliverCompiledBinary). |
2952 with:self deliverCompiledBinary). |
2953 builder aspectAt:#canDeliverForUnix put:holder. |
2953 builder aspectAt:#canDeliverForUnix put:holder. |
2954 ]. |
2954 ]. |
2955 ^ holder. |
2955 ^ holder. |
2956 ! |
2956 ! |
2957 |
2957 |
2958 canDeliverForVMS |
2958 canDeliverForVMS |
2959 |holder| |
2959 |holder| |
2960 |
2960 |
2961 (holder := builder bindingAt:#canDeliverForVMS) isNil ifTrue:[ |
2961 (holder := builder bindingAt:#canDeliverForVMS) isNil ifTrue:[ |
2962 holder := BlockValue |
2962 holder := BlockValue |
2963 with:[:a1 :a2 | a1 or:[a2 not]] |
2963 with:[:a1 :a2 | a1 or:[a2 not]] |
2964 arguments:(Array |
2964 arguments:(Array |
2965 with:self canDeliverBinaryForVMS |
2965 with:self canDeliverBinaryForVMS |
2966 with:self deliverCompiledBinary). |
2966 with:self deliverCompiledBinary). |
2967 builder aspectAt:#canDeliverForVMS put:holder. |
2967 builder aspectAt:#canDeliverForVMS put:holder. |
2968 ]. |
2968 ]. |
2969 ^ holder. |
2969 ^ holder. |
2970 ! |
2970 ! |
2971 |
2971 |
2972 canDeliverForWin32 |
2972 canDeliverForWin32 |
2973 |holder| |
2973 |holder| |
2974 |
2974 |
2975 (holder := builder bindingAt:#canDeliverForWin32) isNil ifTrue:[ |
2975 (holder := builder bindingAt:#canDeliverForWin32) isNil ifTrue:[ |
2976 holder := BlockValue |
2976 holder := BlockValue |
2977 with:[:a1 :a2 | a1 or:[a2 not]] |
2977 with:[:a1 :a2 | a1 or:[a2 not]] |
2978 arguments:(Array |
2978 arguments:(Array |
2979 with:self canDeliverBinaryForWin32 |
2979 with:self canDeliverBinaryForWin32 |
2980 with:self deliverCompiledBinary). |
2980 with:self deliverCompiledBinary). |
2981 builder aspectAt:#canDeliverForWin32 put:holder. |
2981 builder aspectAt:#canDeliverForWin32 put:holder. |
2982 ]. |
2982 ]. |
2983 ^ holder. |
2983 ^ holder. |
2984 ! |
2984 ! |
2985 |
2985 |
2986 canLoadCurrentProjectHolder |
2986 canLoadCurrentProjectHolder |
2987 |holder| |
2987 |holder| |
2988 |
2988 |
2989 (holder := builder bindingAt:#canLoadCurrentProjectHolder) isNil ifTrue:[ |
2989 (holder := builder bindingAt:#canLoadCurrentProjectHolder) isNil ifTrue:[ |
2990 holder := false asValue. |
2990 holder := false asValue. |
2991 builder aspectAt:#canLoadCurrentProjectHolder put:holder. |
2991 builder aspectAt:#canLoadCurrentProjectHolder put:holder. |
2992 ]. |
2992 ]. |
2993 ^ holder. |
2993 ^ holder. |
2994 |
2994 |
2995 "Modified: / 26.4.1999 / 22:47:33 / cg" |
2995 "Modified: / 26.4.1999 / 22:47:33 / cg" |
2996 ! |
2996 ! |
2997 |
2997 |
2998 canRemoveSelectedClassFromPrerequisites |
2998 canRemoveSelectedClassFromPrerequisites |
2999 |holder| |
2999 |holder| |
3000 |
3000 |
3001 (holder := builder bindingAt:#canRemoveSelectedClassFromPrerequisites) isNil ifTrue:[ |
3001 (holder := builder bindingAt:#canRemoveSelectedClassFromPrerequisites) isNil ifTrue:[ |
3002 holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredClassInPrerequisites). |
3002 holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredClassInPrerequisites). |
3003 builder aspectAt:#canRemoveSelectedClassFromPrerequisites put:holder. |
3003 builder aspectAt:#canRemoveSelectedClassFromPrerequisites put:holder. |
3004 ]. |
3004 ]. |
3005 ^ holder. |
3005 ^ holder. |
3006 |
3006 |
3007 "Created: / 23.3.1999 / 14:18:05 / cg" |
3007 "Created: / 23.3.1999 / 14:18:05 / cg" |
3008 ! |
3008 ! |
3009 |
3009 |
3010 canRemoveSelectedProjectFromPrerequisites |
3010 canRemoveSelectedProjectFromPrerequisites |
3011 |holder| |
3011 |holder| |
3012 |
3012 |
3013 (holder := builder bindingAt:#canRemoveSelectedProjectFromPrerequisites) isNil ifTrue:[ |
3013 (holder := builder bindingAt:#canRemoveSelectedProjectFromPrerequisites) isNil ifTrue:[ |
3014 holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites). |
3014 holder := BlockValue with:[:m | m notNil] argument:(self selectedRequiredProjectInPrerequisites). |
3015 builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder. |
3015 builder aspectAt:#canRemoveSelectedProjectFromPrerequisites put:holder. |
3016 ]. |
3016 ]. |
3017 ^ holder. |
3017 ^ holder. |
3018 |
3018 |
3019 "Created: / 23.3.1999 / 14:18:05 / cg" |
3019 "Created: / 23.3.1999 / 14:18:05 / cg" |
3020 ! |
3020 ! |
3021 |
3021 |
3022 canUnloadCurrentProjectHolder |
3022 canUnloadCurrentProjectHolder |
3023 |holder| |
3023 |holder| |
3024 |
3024 |
3025 (holder := builder bindingAt:#canUnloadCurrentProjectHolder) isNil ifTrue:[ |
3025 (holder := builder bindingAt:#canUnloadCurrentProjectHolder) isNil ifTrue:[ |
3026 holder := false asValue. |
3026 holder := false asValue. |
3027 builder aspectAt:#canUnloadCurrentProjectHolder put:holder. |
3027 builder aspectAt:#canUnloadCurrentProjectHolder put:holder. |
3028 ]. |
3028 ]. |
3029 ^ holder. |
3029 ^ holder. |
3030 |
3030 |
3031 "Modified: / 26.4.1999 / 22:47:33 / cg" |
3031 "Modified: / 26.4.1999 / 22:47:33 / cg" |
3032 ! |
3032 ! |
3176 "automatically generated by UIPainter ..." |
3176 "automatically generated by UIPainter ..." |
3177 |
3177 |
3178 |holder| |
3178 |holder| |
3179 |
3179 |
3180 (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[ |
3180 (holder := builder bindingAt:#deliverZipArchive) isNil ifTrue:[ |
3181 builder aspectAt:#deliverZipArchive put:(holder := ValueHolder new). |
3181 builder aspectAt:#deliverZipArchive put:(holder := ValueHolder new). |
3182 holder onChangeEvaluate:[modifiedChannel value:true]. |
3182 holder onChangeEvaluate:[modifiedChannel value:true]. |
3183 ]. |
3183 ]. |
3184 ^ holder. |
3184 ^ holder. |
3185 |
3185 |
3186 "Created: / 23.3.1999 / 14:18:05 / cg" |
3186 "Created: / 23.3.1999 / 14:18:05 / cg" |
3187 ! |
3187 ! |
3188 |
3188 |
3189 hasProjectSelectedAndProjectFilenameHolder |
3189 hasProjectSelectedAndProjectFilenameHolder |
3190 ^ [ |dir| |
3190 ^ [ |dir| |
3191 |
3191 |
3192 dir := self projectDirectory value asFilename. |
3192 dir := self projectDirectory value asFilename. |
3193 (dir exists and:[dir isDirectory]) ifTrue:[ |
3193 (dir exists and:[dir isDirectory]) ifTrue:[ |
3194 self hasProjectSelectedHolder value |
3194 self hasProjectSelectedHolder value |
3195 ] ifFalse:[ |
3195 ] ifFalse:[ |
3196 false |
3196 false |
3197 ] |
3197 ] |
3198 ]. |
3198 ]. |
3199 ! |
3199 ! |
3200 |
3200 |
3201 hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
3201 hasProjectSelectedAndProjectFilenameHolderAndProjectCodeIsLoaded |
3202 ^ true. |
3202 ^ true. |
3203 ^ [ |dir| |
3203 ^ [ |dir| |
3204 |
3204 |
3205 dir := self projectDirectory value asFilename. |
3205 dir := self projectDirectory value asFilename. |
3206 (dir exists and:[dir isDirectory]) ifTrue:[ |
3206 (dir exists and:[dir isDirectory]) ifTrue:[ |
3207 (self hasProjectSelectedHolder value) ifTrue:[ |
3207 (self hasProjectSelectedHolder value) ifTrue:[ |
3208 self projectCodeIsLoadedHolder value |
3208 self projectCodeIsLoadedHolder value |
3209 ] ifFalse:[ |
3209 ] ifFalse:[ |
3210 false. |
3210 false. |
3211 ] |
3211 ] |
3212 ] ifFalse:[ |
3212 ] ifFalse:[ |
3213 false |
3213 false |
3214 ] |
3214 ] |
3215 ]. |
3215 ]. |
3216 ! |
3216 ! |
3217 |
3217 |
3218 hasProjectSelectedHolder |
3218 hasProjectSelectedHolder |
3219 |holder| |
3219 |holder| |
3220 |
3220 |
3221 (holder := builder bindingAt:#hasProjectSelectedHolder) isNil ifTrue:[ |
3221 (holder := builder bindingAt:#hasProjectSelectedHolder) isNil ifTrue:[ |
3222 holder := false asValue. |
3222 holder := false asValue. |
3223 builder aspectAt:#hasProjectSelectedHolder put:holder. |
3223 builder aspectAt:#hasProjectSelectedHolder put:holder. |
3224 ]. |
3224 ]. |
3225 ^ holder. |
3225 ^ holder. |
3226 |
3226 |
3227 "Modified: / 26.4.1999 / 22:47:33 / cg" |
3227 "Modified: / 26.4.1999 / 22:47:33 / cg" |
3228 ! |
3228 ! |
3229 |
3229 |
3230 hasSubProjectsSelectedHolder |
3230 hasSubProjectsSelectedHolder |
3231 ^ [ |
3231 ^ [ |
3232 self hasSubProjectsNodeSelected |
3232 self hasSubProjectsNodeSelected |
3233 ] |
3233 ] |
3234 ! |
3234 ! |
3235 |
3235 |
3236 htmlDocumentURLHolder |
3236 htmlDocumentURLHolder |
3237 "automatically generated by UIPainter ..." |
3237 "automatically generated by UIPainter ..." |
3238 |
3238 |
3239 |holder| |
3239 |holder| |
3240 |
3240 |
3241 (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[ |
3241 (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[ |
3242 builder aspectAt:#htmlDocumentURLHolder put:(holder := ValueHolder new). |
3242 builder aspectAt:#htmlDocumentURLHolder put:(holder := ValueHolder new). |
3243 ]. |
3243 ]. |
3244 ^ holder. |
3244 ^ holder. |
3245 ! |
3245 ! |
3246 |
3246 |
3247 installDirectoryMacOS |
3247 installDirectoryMacOS |
3248 "automatically generated by UIPainter ..." |
3248 "automatically generated by UIPainter ..." |
3249 |
3249 |
3250 |holder| |
3250 |holder| |
3251 |
3251 |
3252 (holder := builder bindingAt:#installDirectoryMacOS) isNil ifTrue:[ |
3252 (holder := builder bindingAt:#installDirectoryMacOS) isNil ifTrue:[ |
3253 builder aspectAt:#installDirectoryMacOS put:(holder := '' asValue). |
3253 builder aspectAt:#installDirectoryMacOS put:(holder := '' asValue). |
3254 holder onChangeSend:#value to:[modifiedChannel value:true]. |
3254 holder onChangeSend:#value to:[modifiedChannel value:true]. |
3255 ]. |
3255 ]. |
3256 ^ holder. |
3256 ^ holder. |
3257 |
3257 |
3258 "Created: / 23.3.1999 / 14:18:05 / cg" |
3258 "Created: / 23.3.1999 / 14:18:05 / cg" |
3259 ! |
3259 ! |
3727 "automatically generated by UIPainter ..." |
3727 "automatically generated by UIPainter ..." |
3728 |
3728 |
3729 |holder| |
3729 |holder| |
3730 |
3730 |
3731 (holder := builder bindingAt:#textCanvasLabelHolder) isNil ifTrue:[ |
3731 (holder := builder bindingAt:#textCanvasLabelHolder) isNil ifTrue:[ |
3732 builder aspectAt:#textCanvasLabelHolder put:(holder :='' asValue). |
3732 builder aspectAt:#textCanvasLabelHolder put:(holder :='' asValue). |
3733 ]. |
3733 ]. |
3734 ^ holder. |
3734 ^ holder. |
3735 ! ! |
3735 ! ! |
3736 |
3736 |
3737 !ProjectBrowser methodsFor:'change & update'! |
3737 !ProjectBrowser methodsFor:'change & update'! |
3738 |
3738 |
3739 update:something with:aParameter from:changedObject |
3739 update:something with:aParameter from:changedObject |
3740 |cls sel oldMthd newMthd prj package| |
3740 |cls sel oldMthd newMthd prj package| |
3741 |
3741 |
3742 something == #name ifTrue:[ |
3742 something == #name ifTrue:[ |
3743 "/ a project was renamed - update my tree |
3743 "/ a project was renamed - update my tree |
3744 self projectTree children do:[:pNode | |
3744 self projectTree children do:[:pNode | |
3745 pNode contents == changedObject ifTrue:[ |
3745 pNode contents == changedObject ifTrue:[ |
3746 pNode name:changedObject name. |
3746 pNode name:changedObject name. |
3747 pNode changed. |
3747 pNode changed. |
3748 ] |
3748 ] |
3749 ]. |
3749 ]. |
3750 ^ self. |
3750 ^ self. |
3751 ]. |
3751 ]. |
3752 |
3752 |
3753 prj := self currentProject. |
3753 prj := self currentProject. |
3754 prj isNil ifTrue:[^ self]. |
3754 prj isNil ifTrue:[^ self]. |
3755 |
3755 |
3756 package := prj package. |
3756 package := prj package. |
3757 |
3757 |
3758 changedObject == prj ifTrue:[ |
3758 changedObject == prj ifTrue:[ |
3759 self readAspectsFromProject. |
3759 self readAspectsFromProject. |
3760 ]. |
3760 ]. |
3761 |
3761 |
3762 changedObject == Smalltalk ifTrue:[ |
3762 changedObject == Smalltalk ifTrue:[ |
3763 something == #newClass ifTrue:[ |
3763 something == #newClass ifTrue:[ |
3764 aParameter isBehavior ifTrue:[ |
3764 aParameter isBehavior ifTrue:[ |
3765 aParameter wasAutoloaded ifTrue:[ |
3765 aParameter wasAutoloaded ifTrue:[ |
3766 self listOfAllClassesInPrerequisites add:something name. |
3766 self listOfAllClassesInPrerequisites add:something name. |
3767 ^ self. |
3767 ^ self. |
3768 ]. |
3768 ]. |
3769 aParameter package = package ifTrue:[ |
3769 aParameter package = package ifTrue:[ |
3770 "/ a new class was added to the package; |
3770 "/ a new class was added to the package; |
3771 "/ must look if already there, and possibly update my |
3771 "/ must look if already there, and possibly update my |
3772 "/ tree and classList |
3772 "/ tree and classList |
3773 (self currentProject includesClass:aParameter) ifFalse:[ |
3773 (self currentProject includesClass:aParameter) ifFalse:[ |
3774 self halt. |
3774 self halt. |
3775 ]. |
3775 ]. |
3776 ^ self. |
3776 ^ self. |
3777 ] |
3777 ] |
3778 ] |
3778 ] |
3779 ]. |
3779 ]. |
3780 |
3780 |
3781 something == #methodInClass ifTrue:[ |
3781 something == #methodInClass ifTrue:[ |
3782 cls := aParameter first. |
3782 cls := aParameter first. |
3783 sel := aParameter second. |
3783 sel := aParameter second. |
3784 oldMthd := aParameter third. |
3784 oldMthd := aParameter third. |
3785 newMthd := cls compiledMethodAt:sel. |
3785 newMthd := cls compiledMethodAt:sel. |
3786 |
3786 |
3787 cls package ~= package ifTrue:[ |
3787 cls package ~= package ifTrue:[ |
3788 "/ method removed from project ? |
3788 "/ method removed from project ? |
3789 (oldMthd notNil and:[oldMthd package = package]) ifTrue:[ |
3789 (oldMthd notNil and:[oldMthd package = package]) ifTrue:[ |
3790 (newMthd notNil and:[newMthd package ~= package]) ifTrue:[ |
3790 (newMthd notNil and:[newMthd package ~= package]) ifTrue:[ |
3791 "/ remove from methodList |
3791 "/ remove from methodList |
3792 ] |
3792 ] |
3793 ]. |
3793 ]. |
3794 |
3794 |
3795 "/ method added to project ? |
3795 "/ method added to project ? |
3796 (oldMthd isNil or:[oldMthd package ~= package]) ifTrue:[ |
3796 (oldMthd isNil or:[oldMthd package ~= package]) ifTrue:[ |
3797 (newMthd notNil and:[newMthd package = package]) ifTrue:[ |
3797 (newMthd notNil and:[newMthd package = package]) ifTrue:[ |
3798 "/ add to methodList |
3798 "/ add to methodList |
3799 ] |
3799 ] |
3800 ] |
3800 ] |
3801 ] |
3801 ] |
3802 ]. |
3802 ]. |
3803 ]. |
3803 ]. |
3804 |
3804 |
3805 "Modified: / 26.4.1999 / 23:39:04 / cg" |
3805 "Modified: / 26.4.1999 / 23:39:04 / cg" |
3806 ! ! |
3806 ! ! |
3807 |
3807 |
3820 ^ super postBuildWith:aBuiler |
3820 ^ super postBuildWith:aBuiler |
3821 ! |
3821 ! |
3822 |
3822 |
3823 setupCanvasForNoSelection |
3823 setupCanvasForNoSelection |
3824 self |
3824 self |
3825 showReadOnlyText:'Please select an existing project, |
3825 showReadOnlyText:'Please select an existing project, |
3826 load one from a (''.prj'')-file, |
3826 load one from a (''.prj'')-file, |
3827 or create a new project.'. |
3827 or create a new project.'. |
3828 ! ! |
3828 ! ! |
3829 |
3829 |
3830 !ProjectBrowser methodsFor:'menus'! |
3830 !ProjectBrowser methodsFor:'menus'! |
3831 |
3831 |
3832 itemMenu |
3832 itemMenu |
3833 |m| |
3833 |m| |
3834 |
3834 |
3835 self hasNodeSelected ifFalse:[ |
3835 self hasNodeSelected ifFalse:[ |
3836 ^ self class noItemMenu |
3836 ^ self class noItemMenu |
3837 ]. |
3837 ]. |
3838 self hasProjectNodeSelected ifTrue:[ |
3838 self hasProjectNodeSelected ifTrue:[ |
3839 ^ self class projectItemMenu |
3839 ^ self class projectItemMenu |
3840 ]. |
3840 ]. |
3841 self hasSubProjectsNodeSelected ifTrue:[ |
3841 self hasSubProjectsNodeSelected ifTrue:[ |
3842 ^ self class subProjectsItemMenu |
3842 ^ self class subProjectsItemMenu |
3843 ]. |
3843 ]. |
3844 self hasClassesNodeSelected ifTrue:[ |
3844 self hasClassesNodeSelected ifTrue:[ |
3845 ^ self class classesItemMenu |
3845 ^ self class classesItemMenu |
3846 ]. |
3846 ]. |
3847 self hasClassNodeSelected ifTrue:[ |
3847 self hasClassNodeSelected ifTrue:[ |
3848 ^ self class classItemMenu |
3848 ^ self class classItemMenu |
3849 ]. |
3849 ]. |
3850 self hasMethodNodeSelected ifTrue:[ |
3850 self hasMethodNodeSelected ifTrue:[ |
3851 ^ self class methodItemMenu |
3851 ^ self class methodItemMenu |
3852 ]. |
3852 ]. |
3853 self hasPatchesNodeSelected ifTrue:[ |
3853 self hasPatchesNodeSelected ifTrue:[ |
3854 ^ self class methodsItemMenu |
3854 ^ self class methodsItemMenu |
3855 ]. |
3855 ]. |
3856 self hasPrerequisiteClassesNodeSelected ifTrue:[ |
3856 self hasPrerequisiteClassesNodeSelected ifTrue:[ |
3857 ^ self class prerequisiteClassesItemMenu |
3857 ^ self class prerequisiteClassesItemMenu |
3858 ]. |
3858 ]. |
3859 self hasPrerequisitePackagesNodeSelected ifTrue:[ |
3859 self hasPrerequisitePackagesNodeSelected ifTrue:[ |
3860 ^ self class prerequisitePackagesItemMenu |
3860 ^ self class prerequisitePackagesItemMenu |
3861 ]. |
3861 ]. |
3862 ^ nil |
3862 ^ nil |
3863 ! |
3863 ! |
3864 |
3864 |
3865 itemMenuHolder |
3865 itemMenuHolder |
4161 pNode add:(filesNode := ProjectTreeItem name:'Files'). |
4161 pNode add:(filesNode := ProjectTreeItem name:'Files'). |
4162 pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options'). |
4162 pNode add:(buildOptionsNode := ProjectTreeItem name:'Build Options'). |
4163 pNode add:(deploymentNode := ProjectTreeItem name:'Deployment'). |
4163 pNode add:(deploymentNode := ProjectTreeItem name:'Deployment'). |
4164 |
4164 |
4165 subprojectsNode notNil ifTrue:[ |
4165 subprojectsNode notNil ifTrue:[ |
4166 subprojectsNode contents:#subprojects. |
4166 subprojectsNode contents:#subprojects. |
4167 aProject subProjects do:[:aSubProject | |
4167 aProject subProjects do:[:aSubProject | |
4168 subprojectsNode add:(self nodeFor:aSubProject) |
4168 subprojectsNode add:(self nodeFor:aSubProject) |
4169 ]. |
4169 ]. |
4170 ]. |
4170 ]. |
4171 |
4171 |
4172 commentNode icon:(self class commentIcon). |
4172 commentNode icon:(self class commentIcon). |
4173 commentNode action:[:item | self showCommentOf:item]. |
4173 commentNode action:[:item | self showCommentOf:item]. |
4174 commentNode info:'Some comment describing the project'. |
4174 commentNode info:'Some comment describing the project'. |
4175 commentNode contents:#comment. |
4175 commentNode contents:#comment. |
4176 |
4176 |
4177 docNode notNil ifTrue:[ |
4177 docNode notNil ifTrue:[ |
4178 docNode contents:#documentation. |
4178 docNode contents:#documentation. |
4179 docNode action:[:item | self showDocumentationFor:item]. |
4179 docNode action:[:item | self showDocumentationFor:item]. |
4180 |
4180 |
4181 docNode add:(analysisNode := ProjectTreeItem name:'Analysis'). |
4181 docNode add:(analysisNode := ProjectTreeItem name:'Analysis'). |
4182 docNode add:(designNode := ProjectTreeItem name:'Design'). |
4182 docNode add:(designNode := ProjectTreeItem name:'Design'). |
4183 docNode add:(codeNode := ProjectTreeItem name:'Code'). |
4183 docNode add:(codeNode := ProjectTreeItem name:'Code'). |
4184 docNode add:(userDocNode := ProjectTreeItem name:'User Documentation'). |
4184 docNode add:(userDocNode := ProjectTreeItem name:'User Documentation'). |
4185 userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview'). |
4185 userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview'). |
4186 userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide'). |
4186 userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide'). |
4187 userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference'). |
4187 userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference'). |
4188 docNode add:(userDocNode := ProjectTreeItem name:'Error Reports'). |
4188 docNode add:(userDocNode := ProjectTreeItem name:'Error Reports'). |
4189 docNode add:(userDocNode := ProjectTreeItem name:'Other'). |
4189 docNode add:(userDocNode := ProjectTreeItem name:'Other'). |
4190 ]. |
4190 ]. |
4191 |
4191 |
4192 prerequisitesNode contents:#prerequisites. |
4192 prerequisitesNode contents:#prerequisites. |
4193 prerequisitesNode icon:(self class prerequisitesIcon). |
4193 prerequisitesNode icon:(self class prerequisitesIcon). |
4194 prerequisitesNode add:(prerequisitePackagesNode := ProjectTreeItem name:'Packages'). |
4194 prerequisitesNode add:(prerequisitePackagesNode := ProjectTreeItem name:'Packages'). |
4271 "Modified: / 23.3.1999 / 14:27:30 / cg" |
4271 "Modified: / 23.3.1999 / 14:27:30 / cg" |
4272 ! |
4272 ! |
4273 |
4273 |
4274 projectTree |
4274 projectTree |
4275 projectTree isNil ifTrue:[ |
4275 projectTree isNil ifTrue:[ |
4276 self updateProjectTree |
4276 self updateProjectTree |
4277 ]. |
4277 ]. |
4278 |
4278 |
4279 ^ projectTree |
4279 ^ projectTree |
4280 ! |
4280 ! |
4281 |
4281 |
4282 readAspectsFromProject |
4282 readAspectsFromProject |
4283 |p type l ns mMod mDir mPkg pkg| |
4283 |p type l ns mMod mDir mPkg pkg| |
4284 |
4284 |
4285 p := self currentProject. |
4285 p := self currentProject. |
4286 p notNil ifTrue:[ |
4286 p notNil ifTrue:[ |
4287 self selectedTreeNode contents == #comment ifTrue:[ |
4287 self selectedTreeNode contents == #comment ifTrue:[ |
4288 self rightCanvasTextHolder value:p comment. |
4288 self rightCanvasTextHolder value:p comment. |
4289 ]. |
4289 ]. |
4290 |
4290 |
4291 self methodsFile value:(p propertyAt:#methodsFile). |
4291 self methodsFile value:(p propertyAt:#methodsFile). |
4292 self projectCodeIsLoadedHolder value:(p isLoaded == true). |
4292 self projectCodeIsLoadedHolder value:(p isLoaded == true). |
4293 p isLoaded == true ifFalse:[ |
4293 p isLoaded == true ifFalse:[ |
4294 self valueOfInfoLabel value:'Projects code is not loaded.' |
4294 self valueOfInfoLabel value:'Projects code is not loaded.' |
4295 ]. |
4295 ]. |
4296 |
4296 |
4297 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4297 self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4298 (type := p type) == #classLibrary ifTrue:[ |
4298 (type := p type) == #classLibrary ifTrue:[ |
4299 type := #library |
4299 type := #library |
4300 ]. |
4300 ]. |
4301 self projectType value:type. |
4301 self projectType value:type. |
4302 self projectDirectory value:(p directory). |
4302 self projectDirectory value:(p directory). |
4303 ns := p defaultNameSpace ? Smalltalk. |
4303 ns := p defaultNameSpace ? Smalltalk. |
4304 ns isSymbol ifFalse:[ |
4304 ns isSymbol ifFalse:[ |
4305 ns := ns name |
4305 ns := ns name |
4306 ]. |
4306 ]. |
4307 self projectNamespace value:ns. |
4307 self projectNamespace value:ns. |
4308 |
4308 |
4309 pkg := p package ? Project current package. |
4309 pkg := p package ? Project current package. |
4310 mMod := p repositoryModule ? '?'. |
4310 mMod := p repositoryModule ? '?'. |
4311 mDir := p repositoryDirectory ? '?'. |
4311 mDir := p repositoryDirectory ? '?'. |
4312 mPkg := mMod , ':' , mDir. |
4312 mPkg := mMod , ':' , mDir. |
4313 |
4313 |
4314 mPkg ~= pkg ifTrue:[ |
4314 mPkg ~= pkg ifTrue:[ |
4315 (pkg includes:$:) ifTrue:[ |
4315 (pkg includes:$:) ifTrue:[ |
4316 mMod := pkg upTo:$:. |
4316 mMod := pkg upTo:$:. |
4317 mDir := pkg copyFrom:mMod size + 2. |
4317 mDir := pkg copyFrom:mMod size + 2. |
4318 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4318 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4319 "/ '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs. |
4319 "/ '\\Assume module:''' , mMod , ''' directory:''' , mDir , '''') withCRs. |
4320 ] ifFalse:[ |
4320 ] ifFalse:[ |
4321 ((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[ |
4321 ((mMod ~= '?') and:[mDir ~= '?']) ifTrue:[ |
4322 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4322 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4323 "/ '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs. |
4323 "/ '\\Assume package:''' , mMod , ':' , mDir , '''') withCRs. |
4324 pkg := mMod , ':' , mDir |
4324 pkg := mMod , ':' , mDir |
4325 ] ifFalse:[ |
4325 ] ifFalse:[ |
4326 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4326 "/ self warn:('package id: ''' , pkg , ''' different from moduleId: ''' , mPkg , |
4327 "/ '\\Please care for the module and directory settings.') withCRs. |
4327 "/ '\\Please care for the module and directory settings.') withCRs. |
4328 ] |
4328 ] |
4329 ] |
4329 ] |
4330 ]. |
4330 ]. |
4331 self projectPackage value:pkg. |
4331 self projectPackage value:pkg. |
4332 self repositoryModule value:mMod. |
4332 self repositoryModule value:mMod. |
4333 self repositoryDirectory value:mDir. |
4333 self repositoryDirectory value:mDir. |
4334 |
4334 |
4335 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
4335 self deliverCompiledBinary value:(p propertyAt:#deliverCompiledBinary) ? false. |
4336 self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false. |
4336 self deliverByteCode value:(p propertyAt:#deliverByteCode) ? false. |
4337 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
4337 self deliverGZipArchive value:(p propertyAt:#deliverGZipArchive) ? false. |
4338 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
4338 self deliverZipArchive value:(p propertyAt:#deliverZipArchive) ? false. |
4339 self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false. |
4339 self deliverTarArchive value:(p propertyAt:#deliverTarArchive) ? false. |
4340 self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false. |
4340 self deliverLoadAllFile value:(p propertyAt:#deliverLoadAllFile) ? false. |
4341 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
4341 self deliverSources value:(p propertyAt:#deliverSources) ? false. |
4342 self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false. |
4342 self deliverMakefiles value:(p propertyAt:#deliverMakefiles) ? false. |
4343 |
4343 |
4344 self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''. |
4344 self makeDefines value:(p propertyAt:#'make.stc.LOCALDEFINES') ? ''. |
4345 self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''. |
4345 self makeIncludes value:(p propertyAt:#'make.stc.LOCALINCLUDES') ? ''. |
4346 self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''. |
4346 self makeOtherWarningOptions value:(p propertyAt:#'make.stc.WARNINGOPTIONS') ? ''. |
4347 self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false. |
4347 self makeWarnEOLComments value:(p propertyAt:#'make.stc.warnEOLComments') ? false. |
4348 self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true. |
4348 self makeWarnNonStandard value:(p propertyAt:#'make.stc.warnNonStandard') ? true. |
4349 |
4349 |
4350 "/ self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''. |
4350 "/ self makeLocalLibs value:(p propertyAt:#'make.LD_OBJ_LIBS') ? ''. |
4351 "/ self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''. |
4351 "/ self makeExtraTargets value:(p propertyAt:#'make.LOCAL_EXTRA_TARGETS') ? ''. |
4352 |
4352 |
4353 self installDirectoryUnix |
4353 self installDirectoryUnix |
4354 value:(p propertyAt:#installDirectoryUnix) ? |
4354 value:(p propertyAt:#installDirectoryUnix) ? |
4355 ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages'). |
4355 ((p propertyAt:#installDirectory) ? '/opt/smalltalk/packages'). |
4356 self installDirectoryWin32 |
4356 self installDirectoryWin32 |
4357 value:(p propertyAt:#installDirectoryWin32) ? |
4357 value:(p propertyAt:#installDirectoryWin32) ? |
4358 ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX\packages'). |
4358 ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX\packages'). |
4359 self installDirectoryVMS |
4359 self installDirectoryVMS |
4360 value:(p propertyAt:#installDirectoryVMS) ? |
4360 value:(p propertyAt:#installDirectoryVMS) ? |
4361 ((p propertyAt:#installDirectory) ? 'SYS$SMALLTALKX:[PACKAGES]'). |
4361 ((p propertyAt:#installDirectory) ? 'SYS$SMALLTALKX:[PACKAGES]'). |
4362 "/ self installDirectoryMacOS |
4362 "/ self installDirectoryMacOS |
4363 "/ value:(p propertyAt:#installDirectoryMacOS) ? |
4363 "/ value:(p propertyAt:#installDirectoryMacOS) ? |
4364 "/ ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX'). |
4364 "/ ((p propertyAt:#installDirectory) ? '\Programme\SmalltalkX'). |
4365 |
4365 |
4366 l := p prerequisitePackages collect:[:entry | |
4366 l := p prerequisitePackages collect:[:entry | |
4367 |pName| |
4367 |pName| |
4368 |
4368 |
4369 entry isString ifTrue:[ |
4369 entry isString ifTrue:[ |
4370 pName := entry |
4370 pName := entry |
4371 ] ifFalse:[ |
4371 ] ifFalse:[ |
4372 entry isArray ifTrue:[ |
4372 entry isArray ifTrue:[ |
4373 pName := entry at:1 |
4373 pName := entry at:1 |
4374 ] ifFalse:[ |
4374 ] ifFalse:[ |
4375 pName := entry name |
4375 pName := entry name |
4376 ] |
4376 ] |
4377 ] |
4377 ] |
4378 ]. |
4378 ]. |
4379 self listOfRequiredProjectsInPrerequisites value:(l sort). |
4379 self listOfRequiredProjectsInPrerequisites value:(l sort). |
4380 self listOfRequiredClassesInPrerequisites value:(p prerequisiteClasses copy sort). |
4380 self listOfRequiredClassesInPrerequisites value:(p prerequisiteClasses copy sort). |
4381 |
4381 |
4382 modifiedChannel value:false. |
4382 modifiedChannel value:false. |
4383 p addDependent:self. |
4383 p addDependent:self. |
4384 ]. |
4384 ]. |
4385 |
4385 |
4386 "Created: / 23.3.1999 / 14:16:12 / cg" |
4386 "Created: / 23.3.1999 / 14:16:12 / cg" |
4387 "Modified: / 26.4.1999 / 23:38:14 / cg" |
4387 "Modified: / 26.4.1999 / 23:38:14 / cg" |
4388 ! |
4388 ! |
4393 p := self currentProject. |
4393 p := self currentProject. |
4394 selectedNodeType := self selectedTreeNode contents. |
4394 selectedNodeType := self selectedTreeNode contents. |
4395 |
4395 |
4396 selectedNodeType == #comment ifTrue:[ |
4396 selectedNodeType == #comment ifTrue:[ |
4397 self halt. |
4397 self halt. |
4398 ^ self rightCanvasTextHolder value ~= p comment |
4398 ^ self rightCanvasTextHolder value ~= p comment |
4399 ]. |
4399 ]. |
4400 selectedNodeType == #deployment ifTrue:[ |
4400 selectedNodeType == #deployment ifTrue:[ |
4401 (self deliverByteCode value ~= (p propertyAt:#deliverByteCode)) ifTrue:[^ true]. |
4401 (self deliverByteCode value ~= (p propertyAt:#deliverByteCode)) ifTrue:[^ true]. |
4402 (self deliverCompiledBinary value ~= (p propertyAt:#deliverCompiledBinary)) ifTrue:[^ true]. |
4402 (self deliverCompiledBinary value ~= (p propertyAt:#deliverCompiledBinary)) ifTrue:[^ true]. |
4403 (self deliverLoadAllFile value ~= (p propertyAt:#deliverLoadAllFile)) ifTrue:[^ true]. |
4403 (self deliverLoadAllFile value ~= (p propertyAt:#deliverLoadAllFile)) ifTrue:[^ true]. |
4404 (self deliverSources value ~= (p propertyAt:#deliverSources)) ifTrue:[^ true]. |
4404 (self deliverSources value ~= (p propertyAt:#deliverSources)) ifTrue:[^ true]. |
4405 (self deliverMakefiles value ~= (p propertyAt:#deliverMakefiles)) ifTrue:[^ true]. |
4405 (self deliverMakefiles value ~= (p propertyAt:#deliverMakefiles)) ifTrue:[^ true]. |
4406 |
4406 |
4407 (self deliverZipArchive value ~= (p propertyAt:#deliverZipArchive)) ifTrue:[^ true]. |
4407 (self deliverZipArchive value ~= (p propertyAt:#deliverZipArchive)) ifTrue:[^ true]. |
4408 (self deliverTarArchive value ~= (p propertyAt:#deliverTarArchive)) ifTrue:[^ true]. |
4408 (self deliverTarArchive value ~= (p propertyAt:#deliverTarArchive)) ifTrue:[^ true]. |
4409 (self deliverGZipArchive value ~= (p propertyAt:#deliverGZipArchive)) ifTrue:[^ true]. |
4409 (self deliverGZipArchive value ~= (p propertyAt:#deliverGZipArchive)) ifTrue:[^ true]. |
4410 |
4410 |
4411 self installDirectoryUnix value ~= |
4411 self installDirectoryUnix value ~= |
4412 ((p propertyAt:#installDirectoryUnix) ? |
4412 ((p propertyAt:#installDirectoryUnix) ? |
4413 ((p propertyAt:#installDirectory) ? |
4413 ((p propertyAt:#installDirectory) ? |
4414 '/opt/smalltalk/packages')) ifTrue:[^ true]. |
4414 '/opt/smalltalk/packages')) ifTrue:[^ true]. |
4415 |
4415 |
4416 self installDirectoryWin32 value ~= |
4416 self installDirectoryWin32 value ~= |
4417 ((p propertyAt:#installDirectoryWin32) ? |
4417 ((p propertyAt:#installDirectoryWin32) ? |
4418 ((p propertyAt:#installDirectory) ? |
4418 ((p propertyAt:#installDirectory) ? |
4419 '\Programme\SmalltalkX\packages')) ifTrue:[^ true]. |
4419 '\Programme\SmalltalkX\packages')) ifTrue:[^ true]. |
4420 |
4420 |
4421 self installDirectoryVMS value ~= |
4421 self installDirectoryVMS value ~= |
4422 ((p propertyAt:#installDirectoryVMS) ? |
4422 ((p propertyAt:#installDirectoryVMS) ? |
4423 ((p propertyAt:#installDirectory) ? |
4423 ((p propertyAt:#installDirectory) ? |
4424 'SYS$SMALLTALKX:[PACKAGES]')) ifTrue:[^ true]. |
4424 'SYS$SMALLTALKX:[PACKAGES]')) ifTrue:[^ true]. |
4425 |
4425 |
4426 ^ false |
4426 ^ false |
4427 ]. |
4427 ]. |
4428 selectedNodeType == #files ifTrue:[ |
4428 selectedNodeType == #files ifTrue:[ |
4429 ^ true. |
4429 ^ true. |
4430 (self methodsFile value ~= (p propertyAt:#methodsFile)) ifTrue:[^ true]. |
4430 (self methodsFile value ~= (p propertyAt:#methodsFile)) ifTrue:[^ true]. |
4431 ^ false |
4431 ^ false |
4432 ]. |
4432 ]. |
4433 self halt. |
4433 self halt. |
4434 |
4434 |
4435 (self projectType value ~~ p type) ifTrue:[^ true]. |
4435 (self projectType value ~~ p type) ifTrue:[^ true]. |
4436 (self projectDirectory value ~= p directory) ifTrue:[^ true]. |
4436 (self projectDirectory value ~= p directory) ifTrue:[^ true]. |
4467 saveAspectsIntoProject |
4467 saveAspectsIntoProject |
4468 |p s ns dir pkg| |
4468 |p s ns dir pkg| |
4469 |
4469 |
4470 p := self currentProject. |
4470 p := self currentProject. |
4471 p notNil ifTrue:[ |
4471 p notNil ifTrue:[ |
4472 p removeDependent:self. |
4472 p removeDependent:self. |
4473 |
4473 |
4474 self acceptChannel value:true; value:false. |
4474 self acceptChannel value:true; value:false. |
4475 |
4475 |
4476 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4476 "/ self currentProjectWasNotLoadedFromFile value:p wasLoadedFromFile not. |
4477 p type:self projectType value. |
4477 p type:self projectType value. |
4478 |
4478 |
4479 dir := self projectDirectory value. |
4479 dir := self projectDirectory value. |
4480 dir := (dir ? '') asFilename. |
4480 dir := (dir ? '') asFilename. |
4481 (dir exists and:[dir isDirectory]) ifFalse:[ |
4481 (dir exists and:[dir isDirectory]) ifFalse:[ |
4482 self warn:'Invalid project directory: ' , dir pathName |
4482 self warn:'Invalid project directory: ' , dir pathName |
4483 ]. |
4483 ]. |
4484 |
4484 |
4485 p directory:self projectDirectory value. |
4485 p directory:self projectDirectory value. |
4486 pkg := self repositoryModule value , ':' , self repositoryDirectory value. |
4486 pkg := self repositoryModule value , ':' , self repositoryDirectory value. |
4487 p packageName:pkg asSymbol. |
4487 p packageName:pkg asSymbol. |
4488 |
4488 |
4489 p repositoryModule:self repositoryModule value. |
4489 p repositoryModule:self repositoryModule value. |
4490 p repositoryDirectory:self repositoryDirectory value. |
4490 p repositoryDirectory:self repositoryDirectory value. |
4491 |
4491 |
4492 s := self projectNamespace value. |
4492 s := self projectNamespace value. |
4493 (s size == 0) ifTrue:[ |
4493 (s size == 0) ifTrue:[ |
4494 ns := Smalltalk |
4494 ns := Smalltalk |
4495 ] ifFalse:[ |
4495 ] ifFalse:[ |
4496 ns := Namespace name:s |
4496 ns := NameSpace name:s |
4497 ]. |
4497 ]. |
4498 p defaultNameSpace:ns. |
4498 p defaultNameSpace:ns. |
4499 |
4499 |
4500 p propertyAt:#methodsFile put:self methodsFile value. |
4500 p propertyAt:#methodsFile put:self methodsFile value. |
4501 |
4501 |
4502 p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value. |
4502 p propertyAt:#deliverCompiledBinary put:self deliverCompiledBinary value. |
4503 p propertyAt:#deliverByteCode put:self deliverByteCode value. |
4503 p propertyAt:#deliverByteCode put:self deliverByteCode value. |
4504 p propertyAt:#deliverTarArchive put:self deliverTarArchive value. |
4504 p propertyAt:#deliverTarArchive put:self deliverTarArchive value. |
4505 p propertyAt:#deliverZipArchive put:self deliverZipArchive value. |
4505 p propertyAt:#deliverZipArchive put:self deliverZipArchive value. |
4506 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
4506 p propertyAt:#deliverGZipArchive put:self deliverGZipArchive value. |
4507 p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value. |
4507 p propertyAt:#deliverLoadAllFile put:self deliverLoadAllFile value. |
4508 p propertyAt:#deliverSources put:self deliverSources value. |
4508 p propertyAt:#deliverSources put:self deliverSources value. |
4509 p propertyAt:#deliverMakefiles put:self deliverMakefiles value. |
4509 p propertyAt:#deliverMakefiles put:self deliverMakefiles value. |
4510 |
4510 |
4511 p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value. |
4511 p propertyAt:#'make.stc.LOCALDEFINES' put:self makeDefines value. |
4512 p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value. |
4512 p propertyAt:#'make.stc.LOCALINCLUDES' put:self makeIncludes value. |
4513 p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value. |
4513 p propertyAt:#'make.stc.WARNINGOPTIONS' put:self makeOtherWarningOptions value. |
4514 p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value. |
4514 p propertyAt:#'make.stc.warnEOLComments' put:self makeWarnEOLComments value. |
4515 p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value. |
4515 p propertyAt:#'make.stc.warnNonStandard' put:self makeWarnNonStandard value. |
4516 |
4516 |
4517 "/ p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value. |
4517 "/ p propertyAt:#'make.LD_OBJ_LIBS' put:self makeLocalLibs value. |
4518 "/ p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value. |
4518 "/ p propertyAt:#'make.LOCAL_EXTRA_TARGETS' put:self makeExtraTargets value. |
4519 |
4519 |
4520 p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value. |
4520 p propertyAt:#installDirectoryUnix put:self installDirectoryUnix value. |
4521 p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value. |
4521 p propertyAt:#installDirectoryWin32 put:self installDirectoryWin32 value. |
4522 p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value. |
4522 p propertyAt:#installDirectoryVMS put:self installDirectoryVMS value. |
4523 p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value. |
4523 p propertyAt:#installDirectoryMacOS put:self installDirectoryMacOS value. |
4524 |
4524 |
4525 p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value |
4525 p prerequisiteClasses:(self listOfRequiredClassesInPrerequisites value |
4526 collect:[:entry | entry string asSymbol]). |
4526 collect:[:entry | entry string asSymbol]). |
4527 |
4527 |
4528 p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value |
4528 p prerequisitePackages:(self listOfRequiredProjectsInPrerequisites value |
4529 collect:[:entry | entry string asSymbol]). |
4529 collect:[:entry | entry string asSymbol]). |
4530 |
4530 |
4531 p addDependent:self. |
4531 p addDependent:self. |
4532 ]. |
4532 ]. |
4533 |
4533 |
4534 "Created: / 23.3.1999 / 14:16:12 / cg" |
4534 "Created: / 23.3.1999 / 14:16:12 / cg" |
4535 "Modified: / 23.3.1999 / 14:18:38 / cg" |
4535 "Modified: / 23.3.1999 / 14:18:38 / cg" |
4536 ! |
4536 ! |
4562 |
4562 |
4563 updateProjectTree |
4563 updateProjectTree |
4564 |tree moduleRoots root showWhat| |
4564 |tree moduleRoots root showWhat| |
4565 |
4565 |
4566 self withCursor:Cursor execute do:[ |
4566 self withCursor:Cursor execute do:[ |
4567 showWhat := self showWhat value. |
4567 showWhat := self showWhat value. |
4568 |
4568 |
4569 moduleRoots := Dictionary new. |
4569 moduleRoots := Dictionary new. |
4570 |
4570 |
4571 tree := SelectionInTree new. |
4571 tree := SelectionInTree new. |
4572 tree root:(root := ProjectTreeItem name:'invisibleRoot'). |
4572 tree root:(root := ProjectTreeItem name:'invisibleRoot'). |
4573 root hide:false. |
4573 root hide:false. |
4574 |
4574 |
4575 showWhat notNil ifTrue:[ |
4575 showWhat notNil ifTrue:[ |
4576 showWhat == #current ifTrue:[ |
4576 showWhat == #current ifTrue:[ |
4577 root add:(self nodeFor:Project current). |
4577 root add:(self nodeFor:Project current). |
4578 ] ifFalse:[ |
4578 ] ifFalse:[ |
4579 (Project knownProjects asOrderedCollection |
4579 (Project knownProjects asOrderedCollection |
4580 sort:[:a :b | a package < b package]) |
4580 sort:[:a :b | a package < b package]) |
4581 do:[:aProject | |
4581 do:[:aProject | |
4582 |newNode nodeToAdd doShow childNode path| |
4582 |newNode nodeToAdd doShow childNode path| |
4583 |
4583 |
4584 (doShow := showWhat == #all) ifFalse:[ |
4584 (doShow := showWhat == #all) ifFalse:[ |
4585 doShow := (aProject package startsWith:'stx:') not |
4585 doShow := (aProject package startsWith:'stx:') not |
4586 ]. |
4586 ]. |
4587 |
4587 |
4588 doShow ifTrue:[ |
4588 doShow ifTrue:[ |
4589 newNode := self nodeFor:aProject. |
4589 newNode := self nodeFor:aProject. |
4590 |
4590 |
4591 "/ insert into tree ... |
4591 "/ insert into tree ... |
4592 nodeToAdd := root. |
4592 nodeToAdd := root. |
4593 |
4593 |
4594 path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'. |
4594 path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'. |
4595 path from:1 to:path size-1 do:[:part | |
4595 path from:1 to:path size-1 do:[:part | |
4596 childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil. |
4596 childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil. |
4597 childNode isNil ifTrue:[ |
4597 childNode isNil ifTrue:[ |
4598 nodeToAdd add:(childNode := ProjectTreeItem new name:part). |
4598 nodeToAdd add:(childNode := ProjectTreeItem new name:part). |
4599 ]. |
4599 ]. |
4600 nodeToAdd := childNode. |
4600 nodeToAdd := childNode. |
4601 ]. |
4601 ]. |
4602 newNode name:(path last). |
4602 newNode name:(path last). |
4603 nodeToAdd add:newNode. |
4603 nodeToAdd add:newNode. |
4604 ] |
4604 ] |
4605 ]. |
4605 ]. |
4606 ]. |
4606 ]. |
4607 ]. |
4607 ]. |
4608 projectTree := root. |
4608 projectTree := root. |
4609 |
4609 |
4610 self projectTreeHolder root:projectTree. |
4610 self projectTreeHolder root:projectTree. |
4611 ]. |
4611 ]. |
4612 ^ projectTree |
4612 ^ projectTree |
4613 ! |
4613 ! |
4614 |
4614 |
4615 updateRightCanvas |
4615 updateRightCanvas |
4670 checkForMakeProtoFor:aProject |
4670 checkForMakeProtoFor:aProject |
4671 |f| |
4671 |f| |
4672 |
4672 |
4673 "/ check for project directory ... |
4673 "/ check for project directory ... |
4674 (self checkForProjectDirectoryFor:aProject) ifFalse:[ |
4674 (self checkForProjectDirectoryFor:aProject) ifFalse:[ |
4675 ^ false |
4675 ^ false |
4676 ]. |
4676 ]. |
4677 |
4677 |
4678 "/ check for Make.proto ... |
4678 "/ check for Make.proto ... |
4679 f := aProject directory asFilename construct:'Make.proto'. |
4679 f := aProject directory asFilename construct:'Make.proto'. |
4680 f exists ifFalse:[ |
4680 f exists ifFalse:[ |
4681 (self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[ |
4681 (self confirm:'''Make.proto'' does not exist in project directory\\Create ?' withCRs) ifFalse:[ |
4682 ^ false |
4682 ^ false |
4683 ]. |
4683 ]. |
4684 self buildMakefiles. |
4684 self buildMakefiles. |
4685 ]. |
4685 ]. |
4686 ^ true |
4686 ^ true |
4687 ! |
4687 ! |
4688 |
4688 |
4689 checkForMakefileFor:aProject |
4689 checkForMakefileFor:aProject |
4690 |f| |
4690 |f| |
4691 |
4691 |
4692 "/ check for project directory ... |
4692 "/ check for project directory ... |
4693 (self checkForProjectDirectoryFor:aProject) ifFalse:[ |
4693 (self checkForProjectDirectoryFor:aProject) ifFalse:[ |
4694 ^ false |
4694 ^ false |
4695 ]. |
4695 ]. |
4696 |
4696 |
4697 "/ check for Makefile ... |
4697 "/ check for Makefile ... |
4698 f := aProject directory asFilename construct:'Makefile'. |
4698 f := aProject directory asFilename construct:'Makefile'. |
4699 f exists ifFalse:[ |
4699 f exists ifFalse:[ |
4700 (self confirm:'''Makefile'' does not exist in project directory\\Create ?' withCRs) ifFalse:[ |
4700 (self confirm:'''Makefile'' does not exist in project directory\\Create ?' withCRs) ifFalse:[ |
4701 ^ false |
4701 ^ false |
4702 ]. |
4702 ]. |
4703 (self checkForMakeProtoFor:aProject) ifFalse:[ |
4703 (self checkForMakeProtoFor:aProject) ifFalse:[ |
4704 ^ false |
4704 ^ false |
4705 ]. |
4705 ]. |
4706 self buildMakefiles. |
4706 self buildMakefiles. |
4707 ]. |
4707 ]. |
4708 ^ true |
4708 ^ true |
4709 ! |
4709 ! |
4710 |
4710 |
4711 checkForProjectDirectoryFor:aProject |
4711 checkForProjectDirectoryFor:aProject |
4712 |dir| |
4712 |dir| |
4713 |
4713 |
4714 "/ check for project directory ... |
4714 "/ check for project directory ... |
4715 dir := aProject directory asFilename. |
4715 dir := aProject directory asFilename. |
4716 dir exists ifFalse:[ |
4716 dir exists ifFalse:[ |
4717 (self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[ |
4717 (self confirm:'Project directory does not exist\\Create ?' withCRs) ifFalse:[ |
4718 ^ false |
4718 ^ false |
4719 ]. |
4719 ]. |
4720 dir recursiveMakeDirectory. |
4720 dir recursiveMakeDirectory. |
4721 ]. |
4721 ]. |
4722 ^ true |
4722 ^ true |
4723 |
4723 |
4724 |
4724 |
4725 ! ! |
4725 ! ! |
4726 |
4726 |
4727 !ProjectBrowser methodsFor:'private - info'! |
4727 !ProjectBrowser methodsFor:'private - info'! |
4728 |
4728 |
4729 showPrerequisitesInfo |
4729 showPrerequisitesInfo |
4730 self showReadOnlyText: |
4730 self showReadOnlyText: |
4731 'When loading this package, |
4731 'When loading this package, |
4732 these other packages/classes |
4732 these other packages/classes |
4733 will be loaded before. |
4733 will be loaded before. |
4734 Also, the prerequisite packages'' |
4734 Also, the prerequisite packages'' |
4735 directory pathes will be added |
4735 directory pathes will be added |
4736 to the include path for |
4736 to the include path for |
4737 stc-compilation.'. |
4737 stc-compilation.'. |
4738 |
4738 |
4739 ^ self. |
4739 ^ self. |
4740 |
4740 |
4741 |
4741 |
4742 ! ! |
4742 ! ! |
4743 |
4743 |
4744 !ProjectBrowser methodsFor:'private - table col access'! |
4744 !ProjectBrowser methodsFor:'private - table col access'! |
4797 |
4797 |
4798 className := Dialog request:'Class to add:'. |
4798 className := Dialog request:'Class to add:'. |
4799 className size == 0 ifTrue:[^ self]. |
4799 className size == 0 ifTrue:[^ self]. |
4800 cls := Smalltalk classNamed:className. |
4800 cls := Smalltalk classNamed:className. |
4801 cls isNil ifTrue:[ |
4801 cls isNil ifTrue:[ |
4802 "/ a new one |
4802 "/ a new one |
4803 (self confirm:'This is a new class. Add ?') ifFalse:[ |
4803 (self confirm:'This is a new class. Add ?') ifFalse:[ |
4804 ^ self |
4804 ^ self |
4805 ]. |
4805 ]. |
4806 p |
4806 p |
4807 addClass:className |
4807 addClass:className |
4808 classFileName:((Smalltalk fileNameForClass:className) , '.st'). |
4808 classFileName:((Smalltalk fileNameForClass:className) , '.st'). |
4809 ] ifFalse:[ |
4809 ] ifFalse:[ |
4810 (oldPackage := cls package) ~= p package ifTrue:[ |
4810 (oldPackage := cls package) ~= p package ifTrue:[ |
4811 "/ a new one |
4811 "/ a new one |
4812 (self confirm:'Change the classes package from ' , oldPackage , ' to ' , p package , ' ?') ifFalse:[ |
4812 (self confirm:'Change the classes package from ' , oldPackage , ' to ' , p package , ' ?') ifFalse:[ |
4813 ^ self |
4813 ^ self |
4814 ]. |
4814 ]. |
4815 cls package:p package. |
4815 cls package:p package. |
4816 ]. |
4816 ]. |
4817 "/ find the other package .. |
4817 "/ find the other package .. |
4818 oldPackage := Project projectWithId:oldPackage. |
4818 oldPackage := Project projectWithId:oldPackage. |
4819 oldPackage notNil ifTrue:[ |
4819 oldPackage notNil ifTrue:[ |
4820 oldPackage removeClass:cls |
4820 oldPackage removeClass:cls |
4821 ]. |
4821 ]. |
4822 |
4822 |
4823 p |
4823 p |
4824 addClass:cls name |
4824 addClass:cls name |
4825 classFileName:(cls classFilename |
4825 classFileName:(cls classFilename |
4826 ? ((Smalltalk fileNameForClass:cls) , '.st')). |
4826 ? ((Smalltalk fileNameForClass:cls) , '.st')). |
4827 ]. |
4827 ]. |
4828 |
4828 |
4829 self updateClassListForProject:p |
4829 self updateClassListForProject:p |
4830 |
4830 |
4831 ! |
4831 ! |
4832 |
4832 |
4833 itemDoubleClicked:index |
4833 itemDoubleClicked:index |
4834 |node classOrClassName cls| |
4834 |node classOrClassName cls| |
4835 |
4835 |
4836 self hasClassNodeSelected ifTrue:[ |
4836 self hasClassNodeSelected ifTrue:[ |
4837 node := self selectedTreeNode. |
4837 node := self selectedTreeNode. |
4838 classOrClassName := node contents value. |
4838 classOrClassName := node contents value. |
4839 classOrClassName isBehavior ifTrue:[ |
4839 classOrClassName isBehavior ifTrue:[ |
4840 cls := classOrClassName. |
4840 cls := classOrClassName. |
4841 ] ifFalse:[ |
4841 ] ifFalse:[ |
4842 cls := Smalltalk at:classOrClassName. |
4842 cls := Smalltalk at:classOrClassName. |
4843 ]. |
4843 ]. |
4844 cls isNil ifTrue:[ |
4844 cls isNil ifTrue:[ |
4845 self information:'The class is not (yet) loaded'. |
4845 self information:'The class is not (yet) loaded'. |
4846 ^ self |
4846 ^ self |
4847 ]. |
4847 ]. |
4848 SystemBrowser browseClass:cls. |
4848 SystemBrowser browseClass:cls. |
4849 ]. |
4849 ]. |
4850 ! |
4850 ! |
4851 |
4851 |
4852 itemSelected:index |
4852 itemSelected:index |
4853 |item action info p| |
4853 |item action info p| |
4854 |
4854 |
4855 self withWaitCursorDo:[ |
4855 self withWaitCursorDo:[ |
4856 self updateRightCanvas. |
4856 self updateRightCanvas. |
4857 ]. |
4857 ]. |
4858 index isNil ifTrue:[ |
4858 index isNil ifTrue:[ |
4859 modifiedChannel value:false. |
4859 modifiedChannel value:false. |
4860 ^ self |
4860 ^ self |
4861 ]. |
4861 ]. |
4862 |
4862 |
4863 self readAspectsFromProject. |
4863 self readAspectsFromProject. |
4864 |
4864 |
4865 item := self projectTreeHolder value at:index. |
4865 item := self projectTreeHolder value at:index. |
4866 action := item action. |
4866 action := item action. |
4867 action notNil ifTrue:[ |
4867 action notNil ifTrue:[ |
4868 action value:item. |
4868 action value:item. |
4869 ]. |
4869 ]. |
4870 |
4870 |
4871 info := item info. |
4871 info := item info. |
4872 info size == 0 ifTrue:[ |
4872 info size == 0 ifTrue:[ |
4873 ((p := self currentProject) notNil |
4873 ((p := self currentProject) notNil |
4874 and:[p isLoaded ~~ true]) ifTrue:[ |
4874 and:[p isLoaded ~~ true]) ifTrue:[ |
4875 info := 'Projects code is not loaded.' |
4875 info := 'Projects code is not loaded.' |
4876 ]. |
4876 ]. |
4877 ]. |
4877 ]. |
4878 self valueOfInfoLabel value:info. |
4878 self valueOfInfoLabel value:info. |
4879 |
4879 |
4880 self updateFlagValueHolders. |
4880 self updateFlagValueHolders. |
4881 modifiedChannel value:false. |
4881 modifiedChannel value:false. |
4921 nMissingSuper prevNMissingSuper| |
4921 nMissingSuper prevNMissingSuper| |
4922 |
4922 |
4923 project := self currentProject. |
4923 project := self currentProject. |
4924 ns := project defaultNameSpace. |
4924 ns := project defaultNameSpace. |
4925 ns isSymbol ifTrue:[ |
4925 ns isSymbol ifTrue:[ |
4926 ns := Namespace name:ns |
4926 ns := NameSpace name:ns |
4927 ]. |
4927 ]. |
4928 self withReadCursorDo:[ |
4928 self withReadCursorDo:[ |
4929 filesToLoad := OrderedCollection new. |
4929 filesToLoad := OrderedCollection new. |
4930 |
4930 |
4931 "/ load all classes ... |
4931 "/ load all classes ... |
4932 project classInfo do:[:aClassInfo | |
4932 project classInfo do:[:aClassInfo | |
4933 |className fileToLoad cls| |
4933 |className fileToLoad cls| |
4934 |
4934 |
4935 className := aClassInfo className. |
4935 className := aClassInfo className. |
4936 fileToLoad := aClassInfo classFileName. |
4936 fileToLoad := aClassInfo classFileName. |
4937 cls := ns at:className asSymbol. |
4937 cls := ns at:className asSymbol. |
4938 cls notNil ifTrue:[ |
4938 cls notNil ifTrue:[ |
4939 cls isBehavior ifFalse:[ |
4939 cls isBehavior ifFalse:[ |
4940 (self confirm:('Attention: a global named ' , className , ' exists, but is not a class.\\Load anyway ?') withCRs) |
4940 (self confirm:('Attention: a global named ' , className , ' exists, but is not a class.\\Load anyway ?') withCRs) |
4941 ifFalse:[ |
4941 ifFalse:[ |
4942 fileToLoad := nil |
4942 fileToLoad := nil |
4943 ] |
4943 ] |
4944 ] ifTrue:[ |
4944 ] ifTrue:[ |
4945 cls isLoaded ifTrue:[ |
4945 cls isLoaded ifTrue:[ |
4946 fileToLoad := nil |
4946 fileToLoad := nil |
4947 ] |
4947 ] |
4948 ] |
4948 ] |
4949 ]. |
4949 ]. |
4950 fileToLoad notNil ifTrue:[ |
4950 fileToLoad notNil ifTrue:[ |
4951 filesToLoad add:fileToLoad |
4951 filesToLoad add:fileToLoad |
4952 ]. |
4952 ]. |
4953 ]. |
4953 ]. |
4954 |
4954 |
4955 anyPatchClassMissing := false. |
4955 anyPatchClassMissing := false. |
4956 anyPatches := false. |
4956 anyPatches := false. |
4957 project methodInfo do:[:aMethodInfo | |
4957 project methodInfo do:[:aMethodInfo | |
4958 |className methodName mthd cls| |
4958 |className methodName mthd cls| |
4959 |
4959 |
4960 className := aMethodInfo className. |
4960 className := aMethodInfo className. |
4961 methodName := aMethodInfo methodName. |
4961 methodName := aMethodInfo methodName. |
4962 cls := Smalltalk at:className asSymbol. |
4962 cls := Smalltalk at:className asSymbol. |
4963 (cls isNil or:[cls isBehavior not or:[cls isLoaded not]]) ifTrue:[ |
4963 (cls isNil or:[cls isBehavior not or:[cls isLoaded not]]) ifTrue:[ |
4964 self warn:('Missing class: ' , className , ' (required for patches)'). |
4964 self warn:('Missing class: ' , className , ' (required for patches)'). |
4965 anyPatchClassMissing := anyPatches := true. |
4965 anyPatchClassMissing := anyPatches := true. |
4966 ] ifFalse:[ |
4966 ] ifFalse:[ |
4967 "/ already present ? |
4967 "/ already present ? |
4968 (cls compiledMethodAt:methodName asSymbol) isNil ifTrue:[ |
4968 (cls compiledMethodAt:methodName asSymbol) isNil ifTrue:[ |
4969 anyPatches := true. |
4969 anyPatches := true. |
4970 ] |
4970 ] |
4971 ] |
4971 ] |
4972 ]. |
4972 ]. |
4973 |
4973 |
4974 (methodsFile := project propertyAt:#methodsFile) notNil ifTrue:[ |
4974 (methodsFile := project propertyAt:#methodsFile) notNil ifTrue:[ |
4975 anyPatches ifTrue:[ |
4975 anyPatches ifTrue:[ |
4976 anyPatchClassMissing ifTrue:[ |
4976 anyPatchClassMissing ifTrue:[ |
4977 self warn:('Cannot load patches & extensions, due to missing class(es)') |
4977 self warn:('Cannot load patches & extensions, due to missing class(es)') |
4978 ] ifFalse:[ |
4978 ] ifFalse:[ |
4979 filesToLoad add:methodsFile |
4979 filesToLoad add:methodsFile |
4980 ] |
4980 ] |
4981 ] |
4981 ] |
4982 ] ifFalse:[ |
4982 ] ifFalse:[ |
4983 anyPatches ifTrue:[ |
4983 anyPatches ifTrue:[ |
4984 self warn:('No file for methods (patches & extensions) is defined in project') |
4984 self warn:('No file for methods (patches & extensions) is defined in project') |
4985 ]. |
4985 ]. |
4986 ]. |
4986 ]. |
4987 |
4987 |
4988 filesToLoad size == 0 ifTrue:[ |
4988 filesToLoad size == 0 ifTrue:[ |
4989 self information:'Projects code is already loaded.' |
4989 self information:'Projects code is already loaded.' |
4990 ] ifFalse:[ |
4990 ] ifFalse:[ |
4991 "/ load as long as superclasses are missing |
4991 "/ load as long as superclasses are missing |
4992 "/ (since the load order could be incorrect) |
4992 "/ (since the load order could be incorrect) |
4993 prevNMissingSuper := nil. |
4993 prevNMissingSuper := nil. |
4994 nMissingSuper := 1. |
4994 nMissingSuper := 1. |
4995 [nMissingSuper > 0 and:[nMissingSuper ~~ prevNMissingSuper]] |
4995 [nMissingSuper > 0 and:[nMissingSuper ~~ prevNMissingSuper]] |
4996 whileTrue:[ |
4996 whileTrue:[ |
4997 nMissingSuper := 0. |
4997 nMissingSuper := 0. |
4998 Parser::UndefinedSuperclassError handle:[:ex | |
4998 Parser::UndefinedSuperclassError handle:[:ex | |
4999 nMissingSuper := nMissingSuper + 1. |
4999 nMissingSuper := nMissingSuper + 1. |
5000 ex proceed |
5000 ex proceed |
5001 ] do:[ |
5001 ] do:[ |
5002 Class packageQuerySignal answer:project package asSymbol |
5002 Class packageQuerySignal answer:project package asSymbol |
5003 do:[ |
5003 do:[ |
5004 filesToLoad do:[:fileToLoad | |
5004 filesToLoad do:[:fileToLoad | |
5005 Smalltalk fileIn:(project directory asFilename construct:fileToLoad) pathName |
5005 Smalltalk fileIn:(project directory asFilename construct:fileToLoad) pathName |
5006 ] |
5006 ] |
5007 ] |
5007 ] |
5008 ]. |
5008 ]. |
5009 prevNMissingSuper := nMissingSuper. |
5009 prevNMissingSuper := nMissingSuper. |
5010 ]. |
5010 ]. |
5011 ]. |
5011 ]. |
5012 project isLoaded:true. |
5012 project isLoaded:true. |
5013 self readAspectsFromProject |
5013 self readAspectsFromProject |
5014 ] |
5014 ] |
5015 ! |
5015 ! |
5016 |
5016 |
5017 methodPatchDoubleClick:arg |
5017 methodPatchDoubleClick:arg |
5018 self halt. |
5018 self halt. |
5224 nMissing := 0. |
5224 nMissing := 0. |
5225 allInPre := self listOfAllClassesInPrerequisites value. |
5225 allInPre := self listOfAllClassesInPrerequisites value. |
5226 requiredInPre := self listOfRequiredClassesInPrerequisites value. |
5226 requiredInPre := self listOfRequiredClassesInPrerequisites value. |
5227 |
5227 |
5228 self currentProjectsClassNames do:[:aClassName | |
5228 self currentProjectsClassNames do:[:aClassName | |
5229 |cls| |
5229 |cls| |
5230 |
5230 |
5231 cls := Smalltalk at:aClassName asSymbol. |
5231 cls := Smalltalk at:aClassName asSymbol. |
5232 (cls notNil and:[cls isLoaded]) ifTrue:[ |
5232 (cls notNil and:[cls isLoaded]) ifTrue:[ |
5233 cls allSuperclasses do:[:superClass | |
5233 cls allSuperclasses do:[:superClass | |
5234 |sName idx| |
5234 |sName idx| |
5235 |
5235 |
5236 (superClass notNil |
5236 (superClass notNil |
5237 and:[superClass isLoaded |
5237 and:[superClass isLoaded |
5238 and:[superClass wasAutoloaded]]) ifTrue:[ |
5238 and:[superClass wasAutoloaded]]) ifTrue:[ |
5239 |sName entry| |
5239 |sName entry| |
5240 |
5240 |
5241 sName := superClass name. |
5241 sName := superClass name. |
5242 idx := allInPre findFirst:[:item | item string = sName]. |
5242 idx := allInPre findFirst:[:item | item string = sName]. |
5243 idx ~~ 0 ifTrue:[ |
5243 idx ~~ 0 ifTrue:[ |
5244 allInPre removeIndex:idx. |
5244 allInPre removeIndex:idx. |
5245 requiredInPre add:sName asText allBold. |
5245 requiredInPre add:sName asText allBold. |
5246 anyChange := true. |
5246 anyChange := true. |
5247 ] |
5247 ] |
5248 ] |
5248 ] |
5249 ] |
5249 ] |
5250 ] ifFalse:[ |
5250 ] ifFalse:[ |
5251 nMissing := nMissing + 1. |
5251 nMissing := nMissing + 1. |
5252 ]. |
5252 ]. |
5253 nTotal := nTotal + 1. |
5253 nTotal := nTotal + 1. |
5254 ]. |
5254 ]. |
5255 |
5255 |
5256 anyChange ifTrue:[ |
5256 anyChange ifTrue:[ |
5257 self listOfRequiredClassesInPrerequisites changed. |
5257 self listOfRequiredClassesInPrerequisites changed. |
5258 self listOfAllClassesInPrerequisites changed. |
5258 self listOfAllClassesInPrerequisites changed. |
5259 ]. |
5259 ]. |
5260 nMissing ~~ 0 ifTrue:[ |
5260 nMissing ~~ 0 ifTrue:[ |
5261 nMissing == nTotal ifTrue:[ |
5261 nMissing == nTotal ifTrue:[ |
5262 msg := 'Project is not loaded (' , nMissing printString |
5262 msg := 'Project is not loaded (' , nMissing printString |
5263 , ' unloaded classes)'. |
5263 , ' unloaded classes)'. |
5264 ] ifFalse:[ |
5264 ] ifFalse:[ |
5265 msg := 'Project is not loaded completely - ' , nMissing printString |
5265 msg := 'Project is not loaded completely - ' , nMissing printString |
5266 , ' of the projects ' , nTotal printString , ' classes are not loaded'. |
5266 , ' of the projects ' , nTotal printString , ' classes are not loaded'. |
5267 ]. |
5267 ]. |
5268 "/ self notify:msg. |
5268 "/ self notify:msg. |
5269 ]. |
5269 ]. |
5270 modifiedChannel value:false. |
5270 modifiedChannel value:false. |
5271 ! |
5271 ! |
5272 |
5272 |
5409 sel := self selectedRequiredClassInPrerequisites value. |
5409 sel := self selectedRequiredClassInPrerequisites value. |
5410 cls := Smalltalk at:sel asSymbol. |
5410 cls := Smalltalk at:sel asSymbol. |
5411 |
5411 |
5412 "/ check if this affects my classes |
5412 "/ check if this affects my classes |
5413 (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[ |
5413 (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[ |
5414 myClasses := self currentProjectsClassNames. |
5414 myClasses := self currentProjectsClassNames. |
5415 cls allSubclassesDo:[:cls | |
5415 cls allSubclassesDo:[:cls | |
5416 (myClasses includes:cls name) ifTrue:[ |
5416 (myClasses includes:cls name) ifTrue:[ |
5417 self valueOfInfoLabel value:'Attention - this class is required by ' , cls name. |
5417 self valueOfInfoLabel value:'Attention - this class is required by ' , cls name. |
5418 (self confirm:'Attention - this class is required by ' , cls name asText allBold, '.\(The project could later fail to load correctly)\\Really remove ?' withCRs) ifFalse:[ |
5418 (self confirm:'Attention - this class is required by ' , cls name asText allBold, '.\(The project could later fail to load correctly)\\Really remove ?' withCRs) ifFalse:[ |
5419 ^ self |
5419 ^ self |
5420 ]. |
5420 ]. |
5421 ]. |
5421 ]. |
5422 ] |
5422 ] |
5423 ]. |
5423 ]. |
5424 |
5424 |
5425 self listOfAllClassesInPrerequisites value add:sel. |
5425 self listOfAllClassesInPrerequisites value add:sel. |
5426 self listOfRequiredClassesInPrerequisites value remove:sel. |
5426 self listOfRequiredClassesInPrerequisites value remove:sel. |
5427 self selectedRequiredClassInPrerequisites value:nil. |
5427 self selectedRequiredClassInPrerequisites value:nil. |
5428 |
5428 |
5429 "/ also remove any autoloaded subclass(es) |
5429 "/ also remove any autoloaded subclass(es) |
5430 |
5430 |
5431 (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[ |
5431 (cls notNil and:[cls isLoaded and:[cls wasAutoloaded]]) ifTrue:[ |
5432 cls allSubclassesDo:[:cls | |
5432 cls allSubclassesDo:[:cls | |
5433 |entry| |
5433 |entry| |
5434 |
5434 |
5435 entry := self listOfRequiredClassesInPrerequisites value remove:cls name ifAbsent:nil. |
5435 entry := self listOfRequiredClassesInPrerequisites value remove:cls name ifAbsent:nil. |
5436 entry notNil ifTrue:[ |
5436 entry notNil ifTrue:[ |
5437 self listOfAllClassesInPrerequisites value add:cls name. |
5437 self listOfAllClassesInPrerequisites value add:cls name. |
5438 ] |
5438 ] |
5439 ] |
5439 ] |
5440 ]. |
5440 ]. |
5441 |
5441 |
5442 self listOfRequiredClassesInPrerequisites changed. |
5442 self listOfRequiredClassesInPrerequisites changed. |
5443 self listOfAllClassesInPrerequisites changed. |
5443 self listOfAllClassesInPrerequisites changed. |
5444 self accept |
5444 self accept |
5541 anyChange := false. |
5541 anyChange := false. |
5542 numSTFilesFound := 0. |
5542 numSTFilesFound := 0. |
5543 |
5543 |
5544 prjDirectory := project directory asFilename. |
5544 prjDirectory := project directory asFilename. |
5545 (prjDirectory exists and:[prjDirectory isDirectory]) ifFalse:[ |
5545 (prjDirectory exists and:[prjDirectory isDirectory]) ifFalse:[ |
5546 self warn:'Invalid project directory: ' , prjDirectory pathName. |
5546 self warn:'Invalid project directory: ' , prjDirectory pathName. |
5547 ^ self |
5547 ^ self |
5548 ]. |
5548 ]. |
5549 |
5549 |
5550 prjDirectory directoryContents do:[:fn | |
5550 prjDirectory directoryContents do:[:fn | |
5551 |f oldInfo cls| |
5551 |f oldInfo cls| |
5552 |
5552 |
5553 f := prjDirectory construct:fn. |
5553 f := prjDirectory construct:fn. |
5554 (f hasSuffix:'st') ifTrue:[ |
5554 (f hasSuffix:'st') ifTrue:[ |
5555 numSTFilesFound := numSTFilesFound + 1. |
5555 numSTFilesFound := numSTFilesFound + 1. |
5556 |
5556 |
5557 oldInfo := existingClasses |
5557 oldInfo := existingClasses |
5558 detect:[:clsInfo | |
5558 detect:[:clsInfo | |
5559 clsInfo classFileName = fn |
5559 clsInfo classFileName = fn |
5560 ] |
5560 ] |
5561 ifNone:nil. |
5561 ifNone:nil. |
5562 oldInfo isNil ifTrue:[ |
5562 oldInfo isNil ifTrue:[ |
5563 "/ extract className from fileName ... |
5563 "/ extract className from fileName ... |
5564 cls := Smalltalk filenameAbbreviations keyAtValue:(f withoutSuffix baseName ). |
5564 cls := Smalltalk filenameAbbreviations keyAtValue:(f withoutSuffix baseName ). |
5565 cls isNil ifTrue:[ |
5565 cls isNil ifTrue:[ |
5566 cls := f withoutSuffix baseName asSymbol. |
5566 cls := f withoutSuffix baseName asSymbol. |
5567 project defaultNameSpace notNil ifTrue:[ |
5567 project defaultNameSpace notNil ifTrue:[ |
5568 cls := (project defaultNameSpace name , '::' , cls) asSymbol |
5568 cls := (project defaultNameSpace name , '::' , cls) asSymbol |
5569 ] |
5569 ] |
5570 ]. |
5570 ]. |
5571 (aFilterBlockOrNil isNil |
5571 (aFilterBlockOrNil isNil |
5572 or:[aFilterBlockOrNil value:cls]) ifTrue:[ |
5572 or:[aFilterBlockOrNil value:cls]) ifTrue:[ |
5573 project addClass:cls classFileName:fn. |
5573 project addClass:cls classFileName:fn. |
5574 anyChange := true. |
5574 anyChange := true. |
5575 Transcript showCR:'added ' , fn , ' as class: ' , cls printString. |
5575 Transcript showCR:'added ' , fn , ' as class: ' , cls printString. |
5576 ] ifFalse:[ |
5576 ] ifFalse:[ |
5577 Transcript showCR:'skipped ' , fn , ' as class: ' , cls printString. |
5577 Transcript showCR:'skipped ' , fn , ' as class: ' , cls printString. |
5578 ] |
5578 ] |
5579 |
5579 |
5580 ] |
5580 ] |
5581 ] |
5581 ] |
5582 ]. |
5582 ]. |
5583 |
5583 |
5584 anyChange ifTrue:[ |
5584 anyChange ifTrue:[ |
5585 self updateClassListForProject:project |
5585 self updateClassListForProject:project |
5586 ] ifFalse:[ |
5586 ] ifFalse:[ |
5587 numSTFilesFound == 0 ifTrue:[ |
5587 numSTFilesFound == 0 ifTrue:[ |
5588 self information:'No st-sourcefiles found in ' , prjDirectory pathName. |
5588 self information:'No st-sourcefiles found in ' , prjDirectory pathName. |
5589 ] |
5589 ] |
5590 ] |
5590 ] |
5591 ! |
5591 ! |
5592 |
5592 |
5593 addClassesFromImage |
5593 addClassesFromImage |
5594 "add classes with this packageId found in the image" |
5594 "add classes with this packageId found in the image" |
5595 |
5595 |
5596 |project| |
5596 |project| |
5597 |
5597 |
5598 project := self currentProject. |
5598 project := self currentProject. |
5599 Smalltalk allClassesDo:[:aClass | |
5599 Smalltalk allClassesDo:[:aClass | |
5600 aClass isMeta ifFalse:[ |
5600 aClass isMeta ifFalse:[ |
5601 (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[ |
5601 (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[ |
5602 aClass package = project package ifTrue:[ |
5602 aClass package = project package ifTrue:[ |
5603 (project classInfoFor:aClass) isNil ifTrue:[ |
5603 (project classInfoFor:aClass) isNil ifTrue:[ |
5604 project |
5604 project |
5605 addClass:aClass name |
5605 addClass:aClass name |
5606 classFileName:(aClass classFilename |
5606 classFileName:(aClass classFilename |
5607 ? ((Smalltalk fileNameForClass:aClass) , '.st')). |
5607 ? ((Smalltalk fileNameForClass:aClass) , '.st')). |
5608 ] |
5608 ] |
5609 ] |
5609 ] |
5610 ] |
5610 ] |
5611 ] |
5611 ] |
5612 ]. |
5612 ]. |
5613 |
5613 |
5614 self updateClassListForProject:project |
5614 self updateClassListForProject:project |
5615 |
5615 |
5616 ! |
5616 ! |
6150 |
6150 |
6151 openProject |
6151 openProject |
6152 |fn| |
6152 |fn| |
6153 |
6153 |
6154 fn := Dialog |
6154 fn := Dialog |
6155 requestFileName:'filename:' |
6155 requestFileName:'filename:' |
6156 default:nil |
6156 default:nil |
6157 ifFail:nil |
6157 ifFail:nil |
6158 pattern:'*.prj' |
6158 pattern:'*.prj' |
6159 fromDirectory:(FileSelectionBox lastFileSelectionDirectory). |
6159 fromDirectory:(FileSelectionBox lastFileSelectionDirectory). |
6160 |
6160 |
6161 fn notNil ifTrue:[ |
6161 fn notNil ifTrue:[ |
6162 self loadFromProjectFile:fn. |
6162 self loadFromProjectFile:fn. |
6163 ] |
6163 ] |
6164 ! |
6164 ! |
6165 |
6165 |
6166 removeMethod |
6166 removeMethod |
6167 |p mthd| |
6167 |p mthd| |
6168 |
6168 |
6169 p := self currentProject. |
6169 p := self currentProject. |
6170 |
6170 |
6171 mthd := self selectedMethod. |
6171 mthd := self selectedMethod. |
6172 mthd notNil ifTrue:[ |
6172 mthd notNil ifTrue:[ |
6173 (self confirm:'Really remove the method (from both project and image) ?') ifTrue:[ |
6173 (self confirm:'Really remove the method (from both project and image) ?') ifTrue:[ |
6174 p removeMethod:mthd. |
6174 p removeMethod:mthd. |
6175 mthd who methodClass removeSelector:mthd who methodSelector. |
6175 mthd who methodClass removeSelector:mthd who methodSelector. |
6176 self updatePatchesListForProject:p. |
6176 self updatePatchesListForProject:p. |
6177 self projectTree remove:self selectedTreeNode. |
6177 self projectTree remove:self selectedTreeNode. |
6178 ] |
6178 ] |
6179 ] ifFalse:[ |
6179 ] ifFalse:[ |
6180 self information:'No such method in the image (yet)'. |
6180 self information:'No such method in the image (yet)'. |
6181 ] |
6181 ] |
6182 ! |
6182 ! |
6183 |
6183 |
6184 removeMethodFromProject |
6184 removeMethodFromProject |
6185 |p mthd| |
6185 |p mthd| |
6186 |
6186 |
6187 p := self currentProject. |
6187 p := self currentProject. |
6188 |
6188 |
6189 mthd := self selectedMethod. |
6189 mthd := self selectedMethod. |
6190 mthd notNil ifTrue:[ |
6190 mthd notNil ifTrue:[ |
6191 (self confirm:'Really remove the method (from the project) ?') ifTrue:[ |
6191 (self confirm:'Really remove the method (from the project) ?') ifTrue:[ |
6192 mthd package:#unknown. |
6192 mthd package:#unknown. |
6193 p removeMethod:mthd. |
6193 p removeMethod:mthd. |
6194 self updatePatchesListForProject:p. |
6194 self updatePatchesListForProject:p. |
6195 self projectTree remove:self selectedTreeNode. |
6195 self projectTree remove:self selectedTreeNode. |
6196 ] |
6196 ] |
6197 ]. |
6197 ]. |
6198 ! |
6198 ! |
6199 |
6199 |
6200 removeProject |
6200 removeProject |
6201 |projectToRemove selectedNode subNode newNode parentNode parentProject newProject| |
6201 |projectToRemove selectedNode subNode newNode parentNode parentProject newProject| |
6202 |
6202 |
6203 self hasProjectNodeSelected ifTrue:[ |
6203 self hasProjectNodeSelected ifTrue:[ |
6204 selectedNode := self selectedTreeNode. |
6204 selectedNode := self selectedTreeNode. |
6205 projectToRemove := selectedNode contents. |
6205 projectToRemove := selectedNode contents. |
6206 |
6206 |
6207 (self confirm:'Really remove the project ?') ifTrue:[ |
6207 (self confirm:'Really remove the project ?') ifTrue:[ |
6208 self withExecuteCursorDo:[ |
6208 self withExecuteCursorDo:[ |
6209 self projectTreeHolder removeSelection. |
6209 self projectTreeHolder removeSelection. |
6210 projectToRemove removeFromSystem. |
6210 projectToRemove removeFromSystem. |
6211 ] |
6211 ] |
6212 ] |
6212 ] |
6213 ] |
6213 ] |
6214 ! |
6214 ! |
6215 |
6215 |
6216 renameProject |
6216 renameProject |
6217 |nm projectNode selectedProject| |
6217 |nm projectNode selectedProject| |
6218 |
6218 |
6219 projectNode := self currentProjectNode. |
6219 projectNode := self currentProjectNode. |
6220 projectNode notNil ifTrue:[ |
6220 projectNode notNil ifTrue:[ |
6221 selectedProject := projectNode contents. |
6221 selectedProject := projectNode contents. |
6222 |
6222 |
6223 nm := Dialog |
6223 nm := Dialog |
6224 request:'Rename to:' |
6224 request:'Rename to:' |
6225 initialAnswer:selectedProject name. |
6225 initialAnswer:selectedProject name. |
6226 |
6226 |
6227 nm size > 0 ifTrue:[ |
6227 nm size > 0 ifTrue:[ |
6228 selectedProject name:nm. |
6228 selectedProject name:nm. |
6229 "/ selectedNode name:nm. |
6229 "/ selectedNode name:nm. |
6230 "/ selectedNode changed. |
6230 "/ selectedNode changed. |
6231 ] |
6231 ] |
6232 ] |
6232 ] |
6233 ! |
6233 ! |
6234 |
6234 |
6235 saveProjectFile |
6235 saveProjectFile |
6236 "save the project file in the project directory" |
6236 "save the project file in the project directory" |
6237 |
6237 |
6238 |d p| |
6238 |d p| |
6239 |
6239 |
6240 self modifiedChannel value ifTrue:[ |
6240 self modifiedChannel value ifTrue:[ |
6241 (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self] |
6241 (self confirm:'Changes not confirmed; save anyway ?') ifFalse:[^ self] |
6242 ]. |
6242 ]. |
6243 |
6243 |
6244 p := self currentProject. |
6244 p := self currentProject. |
6245 p isNil ifTrue:[ |
6245 p isNil ifTrue:[ |
6246 self information:'Select a project first.'. |
6246 self information:'Select a project first.'. |
6247 ^self |
6247 ^self |
6248 ]. |
6248 ]. |
6249 p directory isNil ifTrue:[ |
6249 p directory isNil ifTrue:[ |
6250 d := (Dialog request:'Project Directory:'). |
6250 d := (Dialog request:'Project Directory:'). |
6251 d size == 0 ifTrue:[ |
6251 d size == 0 ifTrue:[ |
6252 ^ self |
6252 ^ self |
6253 ]. |
6253 ]. |
6254 p directory:d |
6254 p directory:d |
6255 ]. |
6255 ]. |
6256 |
6256 |
6257 self withCursor:Cursor write do:[ |
6257 self withCursor:Cursor write do:[ |
6258 p saveAsProjectFile. |
6258 p saveAsProjectFile. |
6259 ] |
6259 ] |
6260 |
6260 |
6261 "Modified: / 26.4.1999 / 22:43:57 / cg" |
6261 "Modified: / 26.4.1999 / 22:43:57 / cg" |
6262 ! |
6262 ! |
6263 |
6263 |
6269 project := self currentProject. |
6269 project := self currentProject. |
6270 classesInImageOnly := IdentitySet new. |
6270 classesInImageOnly := IdentitySet new. |
6271 classesInProjectOnly := IdentitySet new. |
6271 classesInProjectOnly := IdentitySet new. |
6272 |
6272 |
6273 Smalltalk allClassesDo:[:aClass | |
6273 Smalltalk allClassesDo:[:aClass | |
6274 aClass isMeta ifFalse:[ |
6274 aClass isMeta ifFalse:[ |
6275 (aClass isNamespace not or:[aClass == Smalltalk]) ifTrue:[ |
6275 (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[ |
6276 aClass package = project package ifTrue:[ |
6276 aClass package = project package ifTrue:[ |
6277 (project classInfoFor:aClass) isNil ifTrue:[ |
6277 (project classInfoFor:aClass) isNil ifTrue:[ |
6278 classesInImageOnly add:aClass name. |
6278 classesInImageOnly add:aClass name. |
6279 ] |
6279 ] |
6280 ] |
6280 ] |
6281 ] |
6281 ] |
6282 ] |
6282 ] |
6283 ]. |
6283 ]. |
6284 project classInfo do:[:clsInfo | |
6284 project classInfo do:[:clsInfo | |
6285 |clsName cls| |
6285 |clsName cls| |
6286 |
6286 |
6287 clsName := clsInfo className. |
6287 clsName := clsInfo className. |
6288 cls := Smalltalk at:clsName asSymbol. |
6288 cls := Smalltalk at:clsName asSymbol. |
6289 (cls isBehavior not) ifTrue:[ |
6289 (cls isBehavior not) ifTrue:[ |
6290 classesInProjectOnly add:clsName |
6290 classesInProjectOnly add:clsName |
6291 ]. |
6291 ]. |
6292 ]. |
6292 ]. |
6293 |
6293 |
6294 (classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[ |
6294 (classesInImageOnly isEmpty and:[classesInProjectOnly isEmpty]) ifTrue:[ |
6295 self information:'Set of classes in project and image are equal.'. |
6295 self information:'Set of classes in project and image are equal.'. |
6296 ^ self. |
6296 ^ self. |
6297 ]. |
6297 ]. |
6298 |
6298 |
6299 classesInImageOnly := classesInImageOnly asOrderedCollection sort. |
6299 classesInImageOnly := classesInImageOnly asOrderedCollection sort. |
6300 classesInProjectOnly := classesInProjectOnly asOrderedCollection sort. |
6300 classesInProjectOnly := classesInProjectOnly asOrderedCollection sort. |
6301 |
6301 |
6302 bindings := IdentityDictionary new. |
6302 bindings := IdentityDictionary new. |
6303 bindings at:#classesInImageOnly put:classesInImageOnly. |
6303 bindings at:#classesInImageOnly put:classesInImageOnly. |
6304 bindings at:#classesInProjectOnly put:classesInProjectOnly. |
6304 bindings at:#classesInProjectOnly put:classesInProjectOnly. |
6305 |
6305 |
6306 SimpleDialog |
6306 SimpleDialog |
6307 openDialogInterfaceSpec:(self class classValidationDialogSpec) |
6307 openDialogInterfaceSpec:(self class classValidationDialogSpec) |
6308 withBindings:bindings |
6308 withBindings:bindings |
6309 |
6309 |
6310 "Modified: / 26.9.1999 / 16:03:50 / cg" |
6310 "Modified: / 26.9.1999 / 16:03:50 / cg" |
6311 ! |
6311 ! |
6312 |
6312 |
6313 validateAgainstMethodsInImage |
6313 validateAgainstMethodsInImage |
6320 |
6320 |
6321 methodsInImageOnly := IdentitySet new. |
6321 methodsInImageOnly := IdentitySet new. |
6322 methodsInProjectOnly := IdentitySet new. |
6322 methodsInProjectOnly := IdentitySet new. |
6323 |
6323 |
6324 Method allSubInstancesDo:[:aMethod | |
6324 Method allSubInstancesDo:[:aMethod | |
6325 aMethod package = package ifTrue:[ |
6325 aMethod package = package ifTrue:[ |
6326 who := aMethod who. |
6326 who := aMethod who. |
6327 who notNil ifTrue:[ |
6327 who notNil ifTrue:[ |
6328 (project classInfoFor:who methodClass) isNil ifTrue:[ |
6328 (project classInfoFor:who methodClass) isNil ifTrue:[ |
6329 "/ is it in the projects methodList ? |
6329 "/ is it in the projects methodList ? |
6330 (project includesMethod:aMethod) ifFalse:[ |
6330 (project includesMethod:aMethod) ifFalse:[ |
6331 methodsInImageOnly add:(who methodClass name , ' ' , who methodSelector). |
6331 methodsInImageOnly add:(who methodClass name , ' ' , who methodSelector). |
6332 ] |
6332 ] |
6333 ] |
6333 ] |
6334 ] |
6334 ] |
6335 ] |
6335 ] |
6336 ]. |
6336 ]. |
6337 |
6337 |
6338 project methodInfo do:[:mthdInfo | |
6338 project methodInfo do:[:mthdInfo | |
6339 |clsName sel cls m| |
6339 |clsName sel cls m| |
6340 |
6340 |
6341 clsName := mthdInfo className. |
6341 clsName := mthdInfo className. |
6342 sel := mthdInfo methodName. |
6342 sel := mthdInfo methodName. |
6343 cls := Smalltalk at:clsName asSymbol. |
6343 cls := Smalltalk at:clsName asSymbol. |
6344 (project includesClass:clsName) ifFalse:[ |
6344 (project includesClass:clsName) ifFalse:[ |
6345 (cls isBehavior not |
6345 (cls isBehavior not |
6346 or:[(m := cls compiledMethodAt:sel) isNil |
6346 or:[(m := cls compiledMethodAt:sel) isNil |
6347 or:[m package ~= package]]) ifTrue:[ |
6347 or:[m package ~= package]]) ifTrue:[ |
6348 methodsInProjectOnly add:(clsName , ' ' , sel) |
6348 methodsInProjectOnly add:(clsName , ' ' , sel) |
6349 ]. |
6349 ]. |
6350 ]. |
6350 ]. |
6351 ]. |
6351 ]. |
6352 |
6352 |
6353 (methodsInImageOnly isEmpty and:[methodsInProjectOnly isEmpty]) ifTrue:[ |
6353 (methodsInImageOnly isEmpty and:[methodsInProjectOnly isEmpty]) ifTrue:[ |
6354 self information:'Set of methods in project and image are equal.'. |
6354 self information:'Set of methods in project and image are equal.'. |
6355 ^ self. |
6355 ^ self. |
6356 ]. |
6356 ]. |
6357 |
6357 |
6358 methodsInImageOnly := methodsInImageOnly asOrderedCollection sort:[:a :b | a printString < b printString]. |
6358 methodsInImageOnly := methodsInImageOnly asOrderedCollection sort:[:a :b | a printString < b printString]. |
6359 methodsInProjectOnly := methodsInProjectOnly asOrderedCollection sort:[:a :b | a printString < b printString]. |
6359 methodsInProjectOnly := methodsInProjectOnly asOrderedCollection sort:[:a :b | a printString < b printString]. |
6360 |
6360 |
6361 bindings := IdentityDictionary new. |
6361 bindings := IdentityDictionary new. |
6362 bindings at:#methodsInImageOnly put:methodsInImageOnly. |
6362 bindings at:#methodsInImageOnly put:methodsInImageOnly. |
6363 bindings at:#methodsInProjectOnly put:methodsInProjectOnly. |
6363 bindings at:#methodsInProjectOnly put:methodsInProjectOnly. |
6364 |
6364 |
6365 SimpleDialog |
6365 SimpleDialog |
6366 openDialogInterfaceSpec:(self class methodValidationDialogSpec) |
6366 openDialogInterfaceSpec:(self class methodValidationDialogSpec) |
6367 withBindings:bindings |
6367 withBindings:bindings |
6368 |
6368 |
6369 "Modified: / 26.9.1999 / 16:03:50 / cg" |
6369 "Modified: / 26.9.1999 / 16:03:50 / cg" |
6370 ! ! |
6370 ! ! |
6371 |
6371 |
6372 !ProjectBrowser::ProjectTreeItem methodsFor:'accessing'! |
6372 !ProjectBrowser::ProjectTreeItem methodsFor:'accessing'! |