688 <resource: #canvas> |
688 <resource: #canvas> |
689 |
689 |
690 ^ |
690 ^ |
691 |
691 |
692 #(#FullSpec |
692 #(#FullSpec |
693 #window: |
693 #window: |
694 #(#WindowSpec |
694 #(#WindowSpec |
695 #name: 'GUI Painter' |
695 #name: 'GUI Painter' |
696 #layout: #(#LayoutFrame 134 0 100 0 653 0 601 0) |
696 #layout: #(#LayoutFrame 134 0 100 0 653 0 601 0) |
697 #label: 'GUI Painter' |
697 #label: 'GUI Painter' |
698 #min: #(#Point 560 460) |
698 #min: #(#Point 560 460) |
699 #max: #(#Point 1160 870) |
699 #max: #(#Point 1160 870) |
700 #bounds: #(#Rectangle 134 100 654 602) |
700 #bounds: #(#Rectangle 134 100 754 602) |
701 #menu: #menu |
701 #menu: #menu |
702 #usePreferredExtent: false |
702 #usePreferredExtent: false |
703 ) |
703 ) |
704 #component: |
704 #component: |
705 #(#SpecCollection |
705 #(#SpecCollection |
706 #collection: |
706 #collection: |
707 #( |
707 #( |
708 #(#MenuPanelSpec |
708 #(#MenuPanelSpec |
709 #name: 'menuToolbarView' |
709 #name: 'menuToolbarView' |
710 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
710 #layout: #(#LayoutFrame 0 0.0 0 0 0 1.0 32 0) |
711 #tabable: true |
711 #tabable: true |
712 #menu: #menuToolbar |
712 #menu: #menuToolbar |
713 ) |
713 ) |
714 #(#VariableHorizontalPanelSpec |
714 #(#VariableHorizontalPanelSpec |
715 #name: 'hpanel' |
715 #name: 'hpanel' |
716 #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0) |
716 #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -26 1.0) |
717 #component: |
717 #component: |
718 #(#SpecCollection |
718 #(#SpecCollection |
719 #collection: |
719 #collection: |
720 #( |
720 #( |
721 #(#ArbitraryComponentSpec |
721 #(#ArbitraryComponentSpec |
722 #name: 'treeView' |
722 #name: 'treeView' |
723 #tabable: true |
723 #tabable: true |
724 #menu: #menuEdit |
724 #menu: #menuEdit |
725 #hasHorizontalScrollBar: true |
725 #hasHorizontalScrollBar: true |
726 #hasVerticalScrollBar: true |
726 #hasVerticalScrollBar: true |
727 #miniScrollerHorizontal: true |
727 #miniScrollerHorizontal: true |
728 #miniScrollerVertical: true |
728 #miniScrollerVertical: true |
729 #component: #treeView |
729 #component: #treeView |
730 #hasBorder: false |
730 #hasBorder: false |
731 ) |
731 ) |
732 #(#ViewSpec |
732 #(#ViewSpec |
733 #name: 'specHolderView' |
733 #name: 'specHolderView' |
734 #component: |
734 #component: |
735 #(#SpecCollection |
735 #(#SpecCollection |
736 #collection: |
736 #collection: |
737 #( |
737 #( |
738 #(#MenuPanelSpec |
738 #(#MenuPanelSpec |
739 #name: 'menuToolbar2View' |
739 #name: 'menuToolbar2View' |
740 #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0) |
740 #layout: #(#LayoutFrame -1 0.0 -2 0 -1 1.0 30 0) |
741 #enableChannel: #canMoveOrAlignSelection |
741 #enableChannel: #canMoveOrAlignSelection |
742 #tabable: true |
742 #tabable: true |
743 #menu: #menuToolbar2 |
743 #menu: #menuToolbar2 |
744 ) |
744 ) |
745 #(#NoteBookViewSpec |
745 #(#NoteBookViewSpec |
746 #name: 'noteBook' |
746 #name: 'noteBook' |
747 #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0) |
747 #layout: #(#LayoutFrame 0 0.0 34 0.0 0 1.0 -30 1.0) |
748 #enableChannel: #enableChannel |
748 #enableChannel: #enableChannel |
749 #tabable: true |
749 #tabable: true |
750 #model: #tabModel |
750 #model: #tabModel |
751 #menu: #tabList |
751 #menu: #tabList |
752 #canvas: #noteBookView |
752 #canvas: #noteBookView |
753 ) |
753 ) |
754 #(#HorizontalPanelViewSpec |
754 #(#HorizontalPanelViewSpec |
755 #name: 'horizontalPanelView1' |
755 #name: 'horizontalPanelView1' |
756 #layout: #(#LayoutFrame -163 1 -1 0 -35 1.0 31 0) |
756 #layout: #(#LayoutFrame -163 1 -1 0 -35 1.0 31 0) |
757 #component: |
757 #component: |
758 #(#SpecCollection |
758 #(#SpecCollection |
759 #collection: |
759 #collection: |
760 #( |
760 #( |
761 #(#ArrowButtonSpec |
761 #(#ArrowButtonSpec |
762 #name: 'MoveLeftButton' |
762 #name: 'MoveLeftButton' |
763 #activeHelpKey: #changePositionLeft |
763 #activeHelpKey: #changePositionLeft |
764 #tabable: true |
764 #tabable: true |
765 #model: #moveSelectionLeft |
765 #model: #moveSelectionLeft |
766 #enableChannel: #canMoveOrAlignSelection |
766 #enableChannel: #canMoveOrAlignSelection |
767 #isTriggerOnDown: true |
767 #isTriggerOnDown: true |
768 #direction: #left |
768 #direction: #left |
769 #extent: #(#Point 32 32) |
769 #extent: #(#Point 32 32) |
770 ) |
770 ) |
771 #(#ArrowButtonSpec |
771 #(#ArrowButtonSpec |
772 #name: 'MoveRightButton' |
772 #name: 'MoveRightButton' |
773 #activeHelpKey: #changePositionRight |
773 #activeHelpKey: #changePositionRight |
774 #model: #moveSelectionRight |
774 #model: #moveSelectionRight |
775 #enableChannel: #canMoveOrAlignSelection |
775 #enableChannel: #canMoveOrAlignSelection |
776 #isTriggerOnDown: true |
776 #isTriggerOnDown: true |
777 #direction: #right |
777 #direction: #right |
778 #extent: #(#Point 32 32) |
778 #extent: #(#Point 32 32) |
779 ) |
779 ) |
780 #(#ArrowButtonSpec |
780 #(#ArrowButtonSpec |
781 #name: 'MoveDownButton' |
781 #name: 'MoveDownButton' |
782 #activeHelpKey: #changePositionDown |
782 #activeHelpKey: #changePositionDown |
783 #model: #moveSelectionDown |
783 #model: #moveSelectionDown |
784 #enableChannel: #canMoveOrAlignSelection |
784 #enableChannel: #canMoveOrAlignSelection |
785 #isTriggerOnDown: true |
785 #isTriggerOnDown: true |
786 #direction: #down |
786 #direction: #down |
787 #extent: #(#Point 32 32) |
787 #extent: #(#Point 32 32) |
788 ) |
788 ) |
789 #(#ArrowButtonSpec |
789 #(#ArrowButtonSpec |
790 #name: 'MoveUpButton' |
790 #name: 'MoveUpButton' |
791 #activeHelpKey: #changePositionUp |
791 #activeHelpKey: #changePositionUp |
792 #model: #moveSelectionUp |
792 #model: #moveSelectionUp |
793 #enableChannel: #canMoveOrAlignSelection |
793 #enableChannel: #canMoveOrAlignSelection |
794 #isTriggerOnDown: true |
794 #isTriggerOnDown: true |
795 #direction: #up |
795 #direction: #up |
796 #extent: #(#Point 32 32) |
796 #extent: #(#Point 32 32) |
797 ) |
797 ) |
798 ) |
798 ) |
799 ) |
799 ) |
800 #horizontalLayout: #fit |
800 #horizontalLayout: #fit |
801 #verticalLayout: #fit |
801 #verticalLayout: #fit |
802 #horizontalSpace: 0 |
802 #horizontalSpace: 0 |
803 #verticalSpace: 0 |
803 #verticalSpace: 0 |
804 ) |
804 ) |
805 #(#ActionButtonSpec |
805 #(#ActionButtonSpec |
806 #name: 'openWidgetDocumentationButton' |
806 #name: 'openWidgetDocumentationButton' |
807 #layout: #(#LayoutFrame -32 1 -1 0 0 1 31 0) |
807 #layout: #(#LayoutFrame -32 1 -1 0 0 1 31 0) |
808 #activeHelpKey: #editOpenSpecDocumentation |
808 #activeHelpKey: #editOpenSpecDocumentation |
809 #hasCharacterOrientedLabel: false |
809 #hasCharacterOrientedLabel: false |
810 #label: 'helpIcon' |
810 #label: 'helpIcon' |
811 #model: #doOpenWidgetDocumentation |
811 #model: #doOpenWidgetDocumentation |
812 ) |
812 ) |
813 #(#ActionButtonSpec |
813 #(#ActionButtonSpec |
814 #name: 'cancelButton' |
814 #name: 'cancelButton' |
815 #layout: #(#LayoutFrame 2 0 -26 1 -1 0.5 -2 1) |
815 #layout: #(#LayoutFrame 2 0 -26 1 -1 0.5 -2 1) |
816 #activeHelpKey: #commitCancel |
816 #activeHelpKey: #commitCancel |
817 #label: 'Cancel' |
817 #label: 'Cancel' |
818 #tabable: true |
818 #tabable: true |
819 #model: #cancel |
819 #model: #cancel |
820 #enableChannel: #modifiedChannel |
820 #enableChannel: #modifiedChannel |
821 ) |
821 ) |
822 #(#ActionButtonSpec |
822 #(#ActionButtonSpec |
823 #name: 'acceptButton' |
823 #name: 'acceptButton' |
824 #layout: #(#LayoutFrame 1 0.5 -26 1 -2 1 -2 1) |
824 #layout: #(#LayoutFrame 1 0.5 -26 1 -2 1 -2 1) |
825 #activeHelpKey: #commitOK |
825 #activeHelpKey: #commitOK |
826 #label: 'OK' |
826 #label: 'OK' |
827 #tabable: true |
827 #tabable: true |
828 #model: #accept |
828 #model: #accept |
829 #enableChannel: #modifiedChannel |
829 #enableChannel: #modifiedChannel |
830 ) |
830 ) |
831 ) |
831 ) |
832 ) |
832 ) |
833 #borderWidth: 1 |
833 #borderWidth: 1 |
834 ) |
834 ) |
835 ) |
835 ) |
836 ) |
836 ) |
837 #level: 1 |
837 #level: 1 |
838 #handles: #(#Any 0.318868 1.0) |
838 #handles: #(#Any 0.318868 1.0) |
839 ) |
839 ) |
840 #(#UISubSpecification |
840 #(#UISubSpecification |
841 #name: 'infoBarSubSpec' |
841 #name: 'infoBarSubSpec' |
842 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
842 #layout: #(#LayoutFrame 0 0.0 -24 1 0 1.0 0 1.0) |
843 #majorKey: #ToolApplicationModel |
843 #majorKey: #ToolApplicationModel |
844 #minorKey: #windowSpecForInfoBar |
844 #minorKey: #windowSpecForInfoBar |
845 ) |
845 ) |
846 ) |
846 ) |
847 ) |
847 ) |
848 ) |
848 ) |
849 |
849 |
850 "Modified: / 5.9.1998 / 17:42:12 / cg" |
850 "Modified: / 5.9.1998 / 17:42:12 / cg" |
851 ! ! |
851 ! ! |
852 |
852 |
2891 |
2891 |
2892 super postOpenWith:aBuilder. |
2892 super postOpenWith:aBuilder. |
2893 |
2893 |
2894 cls := specClass. |
2894 cls := specClass. |
2895 cls isString ifTrue:[ |
2895 cls isString ifTrue:[ |
2896 cls := Smalltalk at:(cls string asSymbol) |
2896 cls := Smalltalk at:(cls string asSymbol) |
2897 ]. |
2897 ]. |
2898 sel := specSelector. |
2898 sel := specSelector. |
2899 specSelector := nil. |
2899 specSelector := nil. |
2900 specClass := nil. |
2900 specClass := nil. |
2901 |
2901 |
2902 painter := self painter. |
2902 painter := self painter. |
2903 settings := self class settings. |
2903 settings := self class settings. |
2904 gridPara := painter gridParameters copy. |
2904 gridPara := painter gridParameters copy. |
2905 hspace := settings at: #HGridSpace ifAbsent: [10]. |
2905 hspace := settings at: #HGridSpace ifAbsent:10. |
2906 vspace := settings at: #VGridSpace ifAbsent: [10]. |
2906 vspace := settings at: #VGridSpace ifAbsent:10. |
2907 gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace. |
2907 gridPara at:1 put:hspace; at:2 put:vspace; at:5 put:hspace; at:6 put:vspace. |
2908 painter gridParameters:gridPara. |
2908 painter gridParameters:gridPara. |
2909 painter gridShown: (settings at: #GridShown ifAbsent: [false]). |
2909 painter gridShown: (settings at: #GridShown ifAbsent:false). |
2910 painter gridAlign: (settings at: #GridAlign ifAbsent: [false]). |
2910 painter gridAlign: (settings at: #GridAlign ifAbsent:false). |
2911 painter clear. |
2911 painter clear. |
2912 |
2912 |
2913 cls notNil ifTrue:[ |
2913 cls notNil ifTrue:[ |
2914 self setClass:cls selector:sel. |
2914 self setClass:cls selector:sel. |
2915 |
2915 |
2916 (cls respondsTo:sel) ifTrue:[ |
2916 (cls respondsTo:sel) ifTrue:[ |
2917 painter setupFromSpec:(cls perform:sel). |
2917 painter setupFromSpec:(cls perform:sel). |
2918 ] |
2918 ] |
2919 ]. |
2919 ]. |
2920 treeView selection: #(1). |
2920 treeView selection: #(1). |
2921 |
2921 |
2922 "Modified: / 22.8.1998 / 17:41:34 / cg" |
2922 "Modified: / 22.8.1998 / 17:41:34 / cg" |
2923 ! ! |
2923 ! ! |