# HG changeset patch # User Claus Gittinger # Date 1141634967 -3600 # Node ID 3889f308e6f7187316a2857826e912dc484e8d2f # Parent 6e9f614d6c9e28d25e718dfe8d4f2dde5a937845 *** empty log message *** diff -r 6e9f614d6c9e -r 3889f308e6f7 UISelectionPanel.st --- a/UISelectionPanel.st Mon Mar 06 09:49:20 2006 +0100 +++ b/UISelectionPanel.st Mon Mar 06 09:49:27 2006 +0100 @@ -1628,6 +1628,30 @@ "Modified: / 18.3.1999 / 18:29:19 / stefan" ! ! +!UISelectionPanel methodsFor:'initialization'! + +initialize + |holder| + + super initialize. + + userClass := UserClass. + userSpecs := UserSpecs. + userLabels := UserLabels. + + gallery := UIGalleryView new. + + gallery model:(ValueHolder new). + gallery listHolder:(ValueHolder new). + gallery minorKeysHolder:(ValueHolder new). + gallery menuSelector:#raiseMenu. + + gallery clientSpecHolder:(holder := ValueHolder new). + holder addDependent:self. + + majorSelection := 0. +! ! + !UISelectionPanel methodsFor:'queries'! canPaste:something @@ -1712,30 +1736,9 @@ "Modified: 28.7.1997 / 09:44:40 / cg" ! -initialize - |holder| - - super initialize. - - userClass := UserClass. - userSpecs := UserSpecs. - userLabels := UserLabels. - - gallery := UIGalleryView new. - - gallery model:(ValueHolder new). - gallery listHolder:(ValueHolder new). - gallery minorKeysHolder:(ValueHolder new). - gallery menuSelector:#raiseMenu. - - gallery clientSpecHolder:(holder := ValueHolder new). - holder addDependent:self. - - majorSelection := 0. -! - postOpenWith:aBuilder self majorChannel value:1. + super postOpenWith:aBuilder. ! ! !UISelectionPanel methodsFor:'user defined'!