equal
deleted
inserted
replaced
1794 "initialize my default user-def from the superclasses specs. |
1794 "initialize my default user-def from the superclasses specs. |
1795 I.e. provide a clocks entry" |
1795 I.e. provide a clocks entry" |
1796 |
1796 |
1797 LabelList := self defaultListOfLabels asOrderedCollection. |
1797 LabelList := self defaultListOfLabels asOrderedCollection. |
1798 SelectorList := self defaultListOfSelectors asOrderedCollection. |
1798 SelectorList := self defaultListOfSelectors asOrderedCollection. |
1799 HolderList := OrderedCollection new grow:(SelectorList size). |
1799 HolderList := OrderedCollection withSize:(SelectorList size). |
1800 NextUniqueNumber := 1. |
1800 NextUniqueNumber := 1. |
1801 |
1801 |
1802 UISelectionPanel |
1802 UISelectionPanel |
1803 userClass:self |
1803 userClass:self |
1804 specSelector:#listOfSelectors |
1804 specSelector:#listOfSelectors |