UISelectionPanel.st
changeset 2009 b919406a99f8
parent 1953 3b5022bccca4
child 2025 3889f308e6f7
equal deleted inserted replaced
2008:a2906aabdbb1 2009:b919406a99f8
  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