1872 "returns the notebook view; initialize the tools embedded in the notebook" |
1872 "returns the notebook view; initialize the tools embedded in the notebook" |
1873 |
1873 |
1874 |noteBook modifiedChannel helpTool layoutTool specTool| |
1874 |noteBook modifiedChannel helpTool layoutTool specTool| |
1875 |
1875 |
1876 (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[ |
1876 (noteBook := builder bindingAt:#noteBookView) isNil ifTrue:[ |
1877 noteBook := View new. |
1877 noteBook := View new. |
1878 layoutTool := UILayoutTool new. |
1878 layoutTool := UILayoutTool new. |
1879 helpTool := UIHelpTool new. |
1879 helpTool := UIHelpTool new. |
1880 helpTool buildFromClass:specClass. |
1880 helpTool buildFromClass:specClass. |
1881 specTool := UISpecificationTool new. |
1881 specTool := UISpecificationTool new. |
1882 modifiedChannel := self modifiedChannel. |
1882 modifiedChannel := self modifiedChannel. |
1883 |
1883 |
1884 layoutTool masterApplication:self. |
1884 layoutTool masterApplication:self. |
1885 specTool masterApplication:self. |
1885 specTool masterApplication:self. |
1886 helpTool masterApplication:self. |
1886 helpTool masterApplication:self. |
1887 |
1887 |
1888 layoutCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1888 layoutCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1889 helpCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1889 helpCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1890 specCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1890 specCanvas := SubCanvas origin:0.0@0.0 corner:1.0@1.0 in:noteBook. |
1891 |
1891 |
1892 layoutCanvas client:layoutTool. |
1892 layoutCanvas level:0. |
1893 helpCanvas client:helpTool. |
1893 helpCanvas level:0. |
1894 specTool builder:(specCanvas client:specTool). |
1894 specCanvas level:0. |
1895 |
1895 |
1896 layoutTool masterApplication:self. |
1896 layoutCanvas client:layoutTool. |
1897 specTool masterApplication:self. |
1897 helpCanvas client:helpTool. |
1898 helpTool masterApplication:self. |
1898 specTool builder:(specCanvas client:specTool). |
1899 |
1899 |
1900 layoutTool modifiedHolder:modifiedChannel. |
1900 layoutTool masterApplication:self. |
1901 helpTool modifiedHolder:modifiedChannel. |
1901 specTool masterApplication:self. |
1902 specTool modifiedHolder:modifiedChannel. |
1902 helpTool masterApplication:self. |
1903 |
1903 |
1904 builder aspectAt:#noteBookView put:noteBook. |
1904 layoutTool modifiedHolder:modifiedChannel. |
|
1905 helpTool modifiedHolder:modifiedChannel. |
|
1906 specTool modifiedHolder:modifiedChannel. |
|
1907 |
|
1908 builder aspectAt:#noteBookView put:noteBook. |
1905 ]. |
1909 ]. |
1906 ^ noteBook |
1910 ^ noteBook |
1907 ! |
1911 ! |
1908 |
1912 |
1909 painterShown |
1913 painterShown |