19 classVariableNames:'' |
19 classVariableNames:'' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
21 category:'Interface-UIPainter' |
21 category:'Interface-UIPainter' |
22 ! |
22 ! |
23 |
23 |
|
24 ApplicationModel subclass:#LayoutOrigin |
|
25 instanceVariableNames:'' |
|
26 classVariableNames:'' |
|
27 poolDictionaries:'' |
|
28 privateIn:UILayoutTool |
|
29 ! |
|
30 |
24 ApplicationModel subclass:#LayoutFrame |
31 ApplicationModel subclass:#LayoutFrame |
25 instanceVariableNames:'' |
32 instanceVariableNames:'' |
26 classVariableNames:'' |
33 classVariableNames:'' |
27 poolDictionaries:'' |
34 poolDictionaries:'' |
28 privateIn:UILayoutTool |
35 privateIn:UILayoutTool |
33 classVariableNames:'' |
40 classVariableNames:'' |
34 poolDictionaries:'' |
41 poolDictionaries:'' |
35 privateIn:UILayoutTool |
42 privateIn:UILayoutTool |
36 ! |
43 ! |
37 |
44 |
|
45 ApplicationModel subclass:#Point |
|
46 instanceVariableNames:'' |
|
47 classVariableNames:'' |
|
48 poolDictionaries:'' |
|
49 privateIn:UILayoutTool |
|
50 ! |
|
51 |
38 ApplicationModel subclass:#AlignmentOrigin |
52 ApplicationModel subclass:#AlignmentOrigin |
39 instanceVariableNames:'' |
53 instanceVariableNames:'' |
40 classVariableNames:'' |
54 classVariableNames:'' |
41 poolDictionaries:'' |
55 poolDictionaries:'' |
42 privateIn:UILayoutTool |
56 privateIn:UILayoutTool |
43 ! |
57 ! |
44 |
58 |
45 ApplicationModel subclass:#LayoutOrigin |
|
46 instanceVariableNames:'' |
|
47 classVariableNames:'' |
|
48 poolDictionaries:'' |
|
49 privateIn:UILayoutTool |
|
50 ! |
|
51 |
|
52 ApplicationModel subclass:#Extent |
59 ApplicationModel subclass:#Extent |
53 instanceVariableNames:'' |
|
54 classVariableNames:'' |
|
55 poolDictionaries:'' |
|
56 privateIn:UILayoutTool |
|
57 ! |
|
58 |
|
59 ApplicationModel subclass:#Point |
|
60 instanceVariableNames:'' |
60 instanceVariableNames:'' |
61 classVariableNames:'' |
61 classVariableNames:'' |
62 poolDictionaries:'' |
62 poolDictionaries:'' |
63 privateIn:UILayoutTool |
63 privateIn:UILayoutTool |
64 ! |
64 ! |
829 self layoutCanvasHolder value:view. |
829 self layoutCanvasHolder value:view. |
830 ]. |
830 ]. |
831 self update |
831 self update |
832 ! ! |
832 ! ! |
833 |
833 |
|
834 !UILayoutTool::LayoutOrigin class methodsFor:'interface specs'! |
|
835 |
|
836 windowSpec |
|
837 "This resource specification was automatically generated |
|
838 by the UIPainter of ST/X." |
|
839 |
|
840 "Do not manually edit this!! If it is corrupted, |
|
841 the UIPainter may not be able to read the specification." |
|
842 |
|
843 " |
|
844 UIPainter new openOnClass:UILayoutTool::LayoutOrigin andSelector:#windowSpec |
|
845 UILayoutTool::LayoutOrigin new openInterface:#windowSpec |
|
846 UILayoutTool::LayoutOrigin open |
|
847 " |
|
848 |
|
849 <resource: #canvas> |
|
850 |
|
851 ^ |
|
852 |
|
853 #(#FullSpec |
|
854 #window: |
|
855 #(#WindowSpec |
|
856 #name: 'UILayoutTool-LayoutOrigin' |
|
857 #layout: #(#LayoutFrame 290 0 420 0 647 0 565 0) |
|
858 #label: 'UILayoutTool-LayoutOrigin' |
|
859 #min: #(#Point 10 10) |
|
860 #max: #(#Point 1152 900) |
|
861 #bounds: #(#Rectangle 290 420 648 566) |
|
862 #usePreferredExtent: false |
|
863 ) |
|
864 #component: |
|
865 #(#SpecCollection |
|
866 #collection: |
|
867 #( |
|
868 #(#UISubSpecification |
|
869 #name: 'layoutOriginSpec' |
|
870 #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 110 0) |
|
871 #majorKey: #UILayoutTool |
|
872 #minorKey: #layoutOriginSpec |
|
873 ) |
|
874 ) |
|
875 ) |
|
876 ) |
|
877 ! ! |
|
878 |
|
879 !UILayoutTool::LayoutOrigin methodsFor:'accessing'! |
|
880 |
|
881 fetch:aView spec:aSpec |
|
882 "fetch layoutOrigin |
|
883 " |
|
884 |layout| |
|
885 |
|
886 layout := UIPainterView asLayoutFrameFromView:aView. |
|
887 |
|
888 (self aspectFor:#leftOffset) value:(layout leftOffset). |
|
889 (self aspectFor:#leftFraction) value:(layout leftFraction). |
|
890 (self aspectFor:#topOffset) value:(layout topOffset). |
|
891 (self aspectFor:#topFraction) value:(layout topFraction). |
|
892 |
|
893 |
|
894 ! |
|
895 |
|
896 layout |
|
897 "returns current layout as layoutOrigin |
|
898 " |
|
899 |layout| |
|
900 |
|
901 layout := Smalltalk::LayoutOrigin new. |
|
902 |
|
903 layout leftOffset:((self aspectFor:#leftOffset) value) ? 0. |
|
904 layout topOffset:((self aspectFor:#topOffset) value) ? 0. |
|
905 layout leftFraction:((self aspectFor:#leftFraction) value) ? 0. |
|
906 layout topFraction:((self aspectFor:#topFraction) value) ? 0. |
|
907 |
|
908 ^ layout |
|
909 |
|
910 ! ! |
|
911 |
834 !UILayoutTool::LayoutFrame class methodsFor:'help specs'! |
912 !UILayoutTool::LayoutFrame class methodsFor:'help specs'! |
835 |
913 |
836 helpSpec |
914 helpSpec |
837 "This resource specification was automatically generated |
915 "This resource specification was automatically generated |
838 by the UIHelpTool of ST/X." |
916 by the UIHelpTool of ST/X." |
1111 #(#WindowSpec |
1189 #(#WindowSpec |
1112 #label: 'UILayoutTool-LayoutFrame' |
1190 #label: 'UILayoutTool-LayoutFrame' |
1113 #name: 'UILayoutTool-LayoutFrame' |
1191 #name: 'UILayoutTool-LayoutFrame' |
1114 #min: #(#Point 10 10) |
1192 #min: #(#Point 10 10) |
1115 #max: #(#Point 1152 900) |
1193 #max: #(#Point 1152 900) |
1116 #bounds: #(#Rectangle 228 240 627 543) |
1194 #bounds: #(#Rectangle 12 22 411 325) |
1117 #forceRecursiveBackground: false |
1195 #forceRecursiveBackground: false |
1118 ) |
1196 ) |
1119 #component: |
1197 #component: |
1120 #(#SpecCollection |
1198 #(#SpecCollection |
1121 #collection: #( |
1199 #collection: #( |
1652 bottom:(((self aspectFor:#bottomOffset) value) ? 0) |
1735 bottom:(((self aspectFor:#bottomOffset) value) ? 0) |
1653 |
1736 |
1654 |
1737 |
1655 ! ! |
1738 ! ! |
1656 |
1739 |
|
1740 !UILayoutTool::Point class methodsFor:'interface specs'! |
|
1741 |
|
1742 windowSpec |
|
1743 "This resource specification was automatically generated |
|
1744 by the UIPainter of ST/X." |
|
1745 |
|
1746 "Do not manually edit this!! If it is corrupted, |
|
1747 the UIPainter may not be able to read the specification." |
|
1748 |
|
1749 " |
|
1750 UIPainter new openOnClass:UILayoutTool::Point andSelector:#windowSpec |
|
1751 UILayoutTool::Point new openInterface:#windowSpec |
|
1752 UILayoutTool::Point open |
|
1753 " |
|
1754 |
|
1755 <resource: #canvas> |
|
1756 |
|
1757 ^ |
|
1758 |
|
1759 #(#FullSpec |
|
1760 #window: |
|
1761 #(#WindowSpec |
|
1762 #name: 'UILayoutTool-Point' |
|
1763 #layout: #(#LayoutFrame 324 0 410 0 618 0 547 0) |
|
1764 #label: 'UILayoutTool-Point' |
|
1765 #min: #(#Point 10 10) |
|
1766 #max: #(#Point 1152 900) |
|
1767 #bounds: #(#Rectangle 324 410 619 548) |
|
1768 #usePreferredExtent: false |
|
1769 ) |
|
1770 #component: |
|
1771 #(#SpecCollection |
|
1772 #collection: |
|
1773 #( |
|
1774 #(#UISubSpecification |
|
1775 #name: 'layoutPointSpec' |
|
1776 #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 100 0) |
|
1777 #majorKey: #UILayoutTool |
|
1778 #minorKey: #layoutPointSpec |
|
1779 ) |
|
1780 ) |
|
1781 ) |
|
1782 ) |
|
1783 ! ! |
|
1784 |
|
1785 !UILayoutTool::Point methodsFor:'accessing'! |
|
1786 |
|
1787 fetch:aView spec:aSpec |
|
1788 "fetch point |
|
1789 " |
|
1790 |origin| |
|
1791 |
|
1792 origin := aView computeOrigin. |
|
1793 |
|
1794 (self aspectFor:#leftOffset) value:(origin x). |
|
1795 (self aspectFor:#topOffset) value:(origin y). |
|
1796 |
|
1797 |
|
1798 ! |
|
1799 |
|
1800 layout |
|
1801 "returns current layout as point |
|
1802 " |
|
1803 ^ Smalltalk::Point x:(((self aspectFor:#leftOffset) value) ? 0) |
|
1804 y:(((self aspectFor:#topOffset) value) ? 0) |
|
1805 |
|
1806 ! ! |
|
1807 |
1657 !UILayoutTool::AlignmentOrigin class methodsFor:'help specs'! |
1808 !UILayoutTool::AlignmentOrigin class methodsFor:'help specs'! |
1658 |
1809 |
1659 helpSpec |
1810 helpSpec |
1660 "This resource specification was automatically generated |
1811 "This resource specification was automatically generated |
1661 by the UIHelpTool of ST/X." |
1812 by the UIHelpTool of ST/X." |
2068 self makeAlignLeft:1 top:0 |
2219 self makeAlignLeft:1 top:0 |
2069 |
2220 |
2070 |
2221 |
2071 ! ! |
2222 ! ! |
2072 |
2223 |
2073 !UILayoutTool::LayoutOrigin class methodsFor:'interface specs'! |
|
2074 |
|
2075 windowSpec |
|
2076 "This resource specification was automatically generated |
|
2077 by the UIPainter of ST/X." |
|
2078 |
|
2079 "Do not manually edit this!! If it is corrupted, |
|
2080 the UIPainter may not be able to read the specification." |
|
2081 |
|
2082 " |
|
2083 UIPainter new openOnClass:UILayoutTool::LayoutOrigin andSelector:#windowSpec |
|
2084 UILayoutTool::LayoutOrigin new openInterface:#windowSpec |
|
2085 UILayoutTool::LayoutOrigin open |
|
2086 " |
|
2087 |
|
2088 <resource: #canvas> |
|
2089 |
|
2090 ^ |
|
2091 |
|
2092 #(#FullSpec |
|
2093 #window: |
|
2094 #(#WindowSpec |
|
2095 #name: 'UILayoutTool-LayoutOrigin' |
|
2096 #layout: #(#LayoutFrame 290 0 420 0 647 0 565 0) |
|
2097 #label: 'UILayoutTool-LayoutOrigin' |
|
2098 #min: #(#Point 10 10) |
|
2099 #max: #(#Point 1152 900) |
|
2100 #bounds: #(#Rectangle 290 420 648 566) |
|
2101 #usePreferredExtent: false |
|
2102 ) |
|
2103 #component: |
|
2104 #(#SpecCollection |
|
2105 #collection: |
|
2106 #( |
|
2107 #(#UISubSpecification |
|
2108 #name: 'layoutOriginSpec' |
|
2109 #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 110 0) |
|
2110 #majorKey: #UILayoutTool |
|
2111 #minorKey: #layoutOriginSpec |
|
2112 ) |
|
2113 ) |
|
2114 ) |
|
2115 ) |
|
2116 ! ! |
|
2117 |
|
2118 !UILayoutTool::LayoutOrigin methodsFor:'accessing'! |
|
2119 |
|
2120 fetch:aView spec:aSpec |
|
2121 "fetch layoutOrigin |
|
2122 " |
|
2123 |layout| |
|
2124 |
|
2125 layout := UIPainterView asLayoutFrameFromView:aView. |
|
2126 |
|
2127 (self aspectFor:#leftOffset) value:(layout leftOffset). |
|
2128 (self aspectFor:#leftFraction) value:(layout leftFraction). |
|
2129 (self aspectFor:#topOffset) value:(layout topOffset). |
|
2130 (self aspectFor:#topFraction) value:(layout topFraction). |
|
2131 |
|
2132 |
|
2133 ! |
|
2134 |
|
2135 layout |
|
2136 "returns current layout as layoutOrigin |
|
2137 " |
|
2138 |layout| |
|
2139 |
|
2140 layout := Smalltalk::LayoutOrigin new. |
|
2141 |
|
2142 layout leftOffset:((self aspectFor:#leftOffset) value) ? 0. |
|
2143 layout topOffset:((self aspectFor:#topOffset) value) ? 0. |
|
2144 layout leftFraction:((self aspectFor:#leftFraction) value) ? 0. |
|
2145 layout topFraction:((self aspectFor:#topFraction) value) ? 0. |
|
2146 |
|
2147 ^ layout |
|
2148 |
|
2149 ! ! |
|
2150 |
|
2151 !UILayoutTool::Extent class methodsFor:'help specs'! |
2224 !UILayoutTool::Extent class methodsFor:'help specs'! |
2152 |
2225 |
2153 helpSpec |
2226 helpSpec |
2154 "This resource specification was automatically generated |
2227 "This resource specification was automatically generated |
2155 by the UIHelpTool of ST/X." |
2228 by the UIHelpTool of ST/X." |
2305 ^ Smalltalk::Point x:(((self aspectFor:#leftOffset) value) ? 0) |
2378 ^ Smalltalk::Point x:(((self aspectFor:#leftOffset) value) ? 0) |
2306 y:(((self aspectFor:#rightOffset) value) ? 0) |
2379 y:(((self aspectFor:#rightOffset) value) ? 0) |
2307 |
2380 |
2308 ! ! |
2381 ! ! |
2309 |
2382 |
2310 !UILayoutTool::Point class methodsFor:'interface specs'! |
|
2311 |
|
2312 windowSpec |
|
2313 "This resource specification was automatically generated |
|
2314 by the UIPainter of ST/X." |
|
2315 |
|
2316 "Do not manually edit this!! If it is corrupted, |
|
2317 the UIPainter may not be able to read the specification." |
|
2318 |
|
2319 " |
|
2320 UIPainter new openOnClass:UILayoutTool::Point andSelector:#windowSpec |
|
2321 UILayoutTool::Point new openInterface:#windowSpec |
|
2322 UILayoutTool::Point open |
|
2323 " |
|
2324 |
|
2325 <resource: #canvas> |
|
2326 |
|
2327 ^ |
|
2328 |
|
2329 #(#FullSpec |
|
2330 #window: |
|
2331 #(#WindowSpec |
|
2332 #name: 'UILayoutTool-Point' |
|
2333 #layout: #(#LayoutFrame 324 0 410 0 618 0 547 0) |
|
2334 #label: 'UILayoutTool-Point' |
|
2335 #min: #(#Point 10 10) |
|
2336 #max: #(#Point 1152 900) |
|
2337 #bounds: #(#Rectangle 324 410 619 548) |
|
2338 #usePreferredExtent: false |
|
2339 ) |
|
2340 #component: |
|
2341 #(#SpecCollection |
|
2342 #collection: |
|
2343 #( |
|
2344 #(#UISubSpecification |
|
2345 #name: 'layoutPointSpec' |
|
2346 #layout: #(#LayoutFrame 1 0.0 6 0 0 1.0 100 0) |
|
2347 #majorKey: #UILayoutTool |
|
2348 #minorKey: #layoutPointSpec |
|
2349 ) |
|
2350 ) |
|
2351 ) |
|
2352 ) |
|
2353 ! ! |
|
2354 |
|
2355 !UILayoutTool::Point methodsFor:'accessing'! |
|
2356 |
|
2357 fetch:aView spec:aSpec |
|
2358 "fetch point |
|
2359 " |
|
2360 |origin| |
|
2361 |
|
2362 origin := aView computeOrigin. |
|
2363 |
|
2364 (self aspectFor:#leftOffset) value:(origin x). |
|
2365 (self aspectFor:#topOffset) value:(origin y). |
|
2366 |
|
2367 |
|
2368 ! |
|
2369 |
|
2370 layout |
|
2371 "returns current layout as point |
|
2372 " |
|
2373 ^ Smalltalk::Point x:(((self aspectFor:#leftOffset) value) ? 0) |
|
2374 y:(((self aspectFor:#topOffset) value) ? 0) |
|
2375 |
|
2376 ! ! |
|
2377 |
|
2378 !UILayoutTool class methodsFor:'documentation'! |
2383 !UILayoutTool class methodsFor:'documentation'! |
2379 |
2384 |
2380 version |
2385 version |
2381 ^ '$Header$' |
2386 ^ '$Header$' |
2382 ! ! |
2387 ! ! |