equal
deleted
inserted
replaced
1902 "initialize value holders for the attributes of the menu components" |
1902 "initialize value holders for the attributes of the menu components" |
1903 |
1903 |
1904 |holder| |
1904 |holder| |
1905 |
1905 |
1906 super initialize. |
1906 super initialize. |
|
1907 self createBuilder. |
1907 |
1908 |
1908 aspects at:#seperatorSelection put:(holder := SelectionInList new). |
1909 aspects at:#seperatorSelection put:(holder := SelectionInList new). |
1909 holder list: Item separatorList. |
1910 holder list: Item separatorList. |
1910 holder addDependent:self. |
1911 holder addDependent:self. |
1911 |
1912 |
|
1913 "Modified: / 20.6.1998 / 14:21:49 / cg" |
1912 ! |
1914 ! |
1913 |
1915 |
1914 openModalOnMenu: aMenu |
1916 openModalOnMenu: aMenu |
1915 "build a tree from aMenu and open it modal" |
1917 "build a tree from aMenu and open it modal" |
1916 |
1918 |