1925 builder aspectAt:#noteBookView put:noteBook. |
1925 builder aspectAt:#noteBookView put:noteBook. |
1926 |
1926 |
1927 layoutTool := UILayoutTool new. |
1927 layoutTool := UILayoutTool new. |
1928 layoutTool createBuilder. |
1928 layoutTool createBuilder. |
1929 applBuilder := layoutTool builder. |
1929 applBuilder := layoutTool builder. |
1930 applWindow := SimpleView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1930 applWindow := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1931 applWindow level:0. |
1931 applWindow level:0. |
1932 layoutTool masterApplication:self. |
1932 layoutTool masterApplication:self. |
1933 applBuilder window:applWindow. |
1933 applBuilder window:applWindow. |
1934 applWindow client:layoutTool spec:#windowSpec builder:applBuilder. |
1934 applWindow client:layoutTool spec:#windowSpec builder:applBuilder. |
1935 applBuilder window:applWindow. |
1935 applBuilder window:applWindow. |
1936 layoutTool modifiedHolder:modifiedChannel. |
1936 layoutTool modifiedHolder:modifiedChannel. |
1937 |
1937 |
1938 helpTool := UIHelpTool new. |
1938 helpTool := UIHelpTool new. |
1939 helpTool createBuilder. |
1939 helpTool createBuilder. |
1940 applBuilder := helpTool builder. |
1940 applBuilder := helpTool builder. |
1941 applWindow := SimpleView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1941 applWindow := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1942 applWindow level:0. |
1942 applWindow level:0. |
1943 helpTool buildFromClass:specClass. |
1943 helpTool buildFromClass:specClass. |
1944 helpTool masterApplication:self. |
1944 helpTool masterApplication:self. |
1945 applBuilder window:applWindow. |
1945 applBuilder window:applWindow. |
1946 applWindow client:helpTool spec:#windowSpec builder:applBuilder. |
1946 applWindow client:helpTool spec:#windowSpec builder:applBuilder. |
1948 helpTool modifiedHolder:modifiedChannel. |
1948 helpTool modifiedHolder:modifiedChannel. |
1949 |
1949 |
1950 specTool := UISpecificationTool new. |
1950 specTool := UISpecificationTool new. |
1951 specTool createBuilder. |
1951 specTool createBuilder. |
1952 applBuilder := specTool builder. |
1952 applBuilder := specTool builder. |
1953 applWindow := SimpleView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1953 applWindow := ApplicationSubView origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1954 specTool masterApplication:self. |
1954 specTool masterApplication:self. |
1955 applWindow level:0. |
1955 applWindow level:0. |
1956 |
1956 |
1957 applBuilder window:applWindow. |
1957 applBuilder window:applWindow. |
1958 applWindow client:specTool spec:#windowSpec builder:applBuilder. |
1958 applWindow client:specTool spec:#windowSpec builder:applBuilder. |