equal
deleted
inserted
replaced
676 #name: #windowSpec |
676 #name: #windowSpec |
677 #window: |
677 #window: |
678 #(#WindowSpec |
678 #(#WindowSpec |
679 #label: 'unnamed canvas' |
679 #label: 'unnamed canvas' |
680 #name: 'unnamed canvas' |
680 #name: 'unnamed canvas' |
681 #bounds: #(#Rectangle 30 217 330 517) |
681 #bounds: #(#Rectangle 12 22 312 322) |
682 ) |
682 ) |
683 #component: |
683 #component: |
684 #(#SpecCollection |
684 #(#SpecCollection |
685 #collection: #( |
685 #collection: #( |
686 #(#ArbitraryComponentSpec |
686 #(#ArbitraryComponentSpec |
687 #name: 'ArbitraryComponent1' |
687 #name: 'BuildInView' |
688 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
688 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
689 #hasVerticalScrollBar: true |
|
690 #miniScrollerVertical: true |
|
691 #autoHideScrollBars: true |
689 #hasBorder: false |
692 #hasBorder: false |
690 #component: #buildInViewTop |
693 #component: #buildInView |
691 ) |
694 ) |
692 ) |
695 ) |
693 |
696 |
694 ) |
697 ) |
695 ) |
698 ) |
796 ]. |
799 ]. |
797 ^ super aspectFor:aKey |
800 ^ super aspectFor:aKey |
798 |
801 |
799 ! |
802 ! |
800 |
803 |
801 buildInViewTop |
804 buildInView |
802 ^ buildInView superView |
805 |
803 |
806 buildInView isNil ifTrue:[ |
804 |
807 buildInView := BuildInView new. |
|
808 ]. |
|
809 ^ buildInView |
805 ! |
810 ! |
806 |
811 |
807 specificationChanged |
812 specificationChanged |
808 |
813 |
809 specChannel notNil ifTrue:[ |
814 specChannel notNil ifTrue:[ |
816 ]. |
821 ]. |
817 selection := nil. |
822 selection := nil. |
818 specification := nil. |
823 specification := nil. |
819 |
824 |
820 listOfSpecViews notNil ifTrue:[ |
825 listOfSpecViews notNil ifTrue:[ |
821 buildInView scrolledView:nil. |
826 self buildInView scrolledView:nil. |
822 |
827 |
823 listOfSpecViews do:[:aView| |
828 listOfSpecViews do:[:aView| |
824 aView notNil ifTrue:[ |
829 aView notNil ifTrue:[ |
825 aView destroy |
830 aView destroy |
826 ] |
831 ] |
861 |
866 |
862 modifiedHolder value:true |
867 modifiedHolder value:true |
863 ] |
868 ] |
864 |
869 |
865 "Modified: / 16.7.1998 / 19:25:59 / cg" |
870 "Modified: / 16.7.1998 / 19:25:59 / cg" |
866 ! ! |
|
867 |
|
868 !UISpecificationTool methodsFor:'initialization'! |
|
869 |
|
870 initialize |
|
871 |view| |
|
872 |
|
873 super initialize. |
|
874 view := ScrollableView for:BuildInView. |
|
875 view verticalScrollable:true. |
|
876 view verticalMini:true. |
|
877 view autoHideScrollBars:true. |
|
878 view level:0. |
|
879 buildInView := view scrolledView. |
|
880 ! ! |
871 ! ! |
881 |
872 |
882 !UISpecificationTool methodsFor:'selection'! |
873 !UISpecificationTool methodsFor:'selection'! |
883 |
874 |
884 selection:something |
875 selection:something |
905 window isNil ifTrue:[ |
896 window isNil ifTrue:[ |
906 builder buildFromSpec:spec in:(window := SimpleView new). |
897 builder buildFromSpec:spec in:(window := SimpleView new). |
907 listOfSpecViews at:index put:window. |
898 listOfSpecViews at:index put:window. |
908 ]. |
899 ]. |
909 ]. |
900 ]. |
910 buildInView scrolledView:window. |
901 self buildInView scrolledView:window. |
911 ]. |
902 ]. |
912 ! ! |
903 ! ! |
913 |
904 |
914 !UISpecificationTool::BuildInView methodsFor:'accessing'! |
905 !UISpecificationTool::BuildInView methodsFor:'accessing'! |
915 |
906 |
918 |scr| |
909 |scr| |
919 |
910 |
920 scrolledView == aView ifTrue:[^ self]. |
911 scrolledView == aView ifTrue:[^ self]. |
921 |
912 |
922 outerFrame isNil ifTrue:[ |
913 outerFrame isNil ifTrue:[ |
923 self level:0. |
|
924 outerFrame := SimpleView origin:0.0@0.0 corner:1.0@1.0 in:self. |
914 outerFrame := SimpleView origin:0.0@0.0 corner:1.0@1.0 in:self. |
|
915 outerFrame borderWidth:0; level:0. |
925 realized ifTrue:[outerFrame realize]. |
916 realized ifTrue:[outerFrame realize]. |
926 ]. |
917 ]. |
927 |
918 |
928 scrolledView notNil ifTrue:[scrolledView unmap]. |
919 scrolledView notNil ifTrue:[scrolledView unmap]. |
929 |
920 |
949 |
940 |
950 |
941 |
951 |
942 |
952 ! ! |
943 ! ! |
953 |
944 |
|
945 !UISpecificationTool::BuildInView methodsFor:'initialization'! |
|
946 |
|
947 level:aLevel |
|
948 super level:0 |
|
949 ! |
|
950 |
|
951 realize |
|
952 super realize. |
|
953 superView notNil ifTrue:[superView level:0]. |
|
954 ! ! |
|
955 |
954 !UISpecificationTool class methodsFor:'documentation'! |
956 !UISpecificationTool class methodsFor:'documentation'! |
955 |
957 |
956 version |
958 version |
957 ^ '$Header$' |
959 ^ '$Header$' |
958 ! ! |
960 ! ! |