equal
deleted
inserted
replaced
2246 "initialize my default user-def from the superclasses specs. |
2246 "initialize my default user-def from the superclasses specs. |
2247 I.e. provide a clocks entry" |
2247 I.e. provide a clocks entry" |
2248 |
2248 |
2249 LabelList := self defaultListOfLabels asOrderedCollection. |
2249 LabelList := self defaultListOfLabels asOrderedCollection. |
2250 SelectorList := self defaultListOfSelectors asOrderedCollection. |
2250 SelectorList := self defaultListOfSelectors asOrderedCollection. |
2251 HolderList := OrderedCollection withSize:(SelectorList size). |
2251 HolderList := OrderedCollection newWithSize:(SelectorList size). |
2252 NextUniqueNumber := 1. |
2252 NextUniqueNumber := 1. |
2253 |
2253 |
2254 UISelectionPanel |
2254 UISelectionPanel |
2255 userClass:self |
2255 userClass:self |
2256 specSelector:#listOfSelectors |
2256 specSelector:#listOfSelectors |