hg/stx-libwidg2: comparison ComboListView.st

equal deleted inserted replaced

-:9afa8810a8be
+:bd0e422aab67
 "
 COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 !ComboListView class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1996 by eXept Software AG / Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 items in the popped menu;
 otherwise, if listMessage is nonNil, the model is assumed to also provide the
 list as displayed in the popped menu.
 [author:]
-Claus Gittinger
+	Claus Gittinger
 [see also:]
-ComboView
+	ComboView
-PopUpList SelectionInListView
+	PopUpList SelectionInListView
-ComboBoxView
+	ComboBoxView
-PullDownMenu Label EntryField
+	PullDownMenu Label EntryField
 "
 !
 examples
 "
 non-MVC use;
 set the list explicitely:
-[exBegin]
+							[exBegin]
 |top comboBox|
 top := StandardSystemView new.
 top extent:(300 @ 200).
 comboBox origin:(0.0 @ 0.0) corner:(1.0 @ 0.0).
 comboBox bottomInset:(comboBox preferredExtent y negated).
 comboBox list:#('hello' 'world' 'this' 'is' 'st/x').
 top open.
-[exEnd]
+								[exEnd]
 with callBack:
-[exBegin]
+								[exBegin]
 |top b|
 top := StandardSystemView new.
 top extent:(300 @ 200).
 b bottomInset:(b preferredExtent y negated).
 b list:#('hello' 'world' 'this' 'is' 'st/x').
 b action:[:selected | Transcript showCR:selected].
 top open.
-[exEnd]
+								[exEnd]
 with values different from the label strings:
-[exBegin]
+									[exBegin]
 |p|
 p := ComboListView label:'dummy'.
 p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').
 p selection:'apples'.
 p values:#(10 20 30 40 nil 50).
 p action:[:what | Transcript show:'you selected: '; showCR:what].
 p open
-[exEnd]
+									[exEnd]
 with separating lines:
-[exBegin]
+								[exBegin]
 |p|
 p := ComboListView label:'fruit'.
 p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').
 p selection:'apples'.
 p open
-[exEnd]
+								[exEnd]
 sometimes, you may like the index instead of the value:
 (notice, that the separating line counts, so you have to take care ...)
-[exBegin]
+								[exBegin]
 |p|
 p := ComboListView label:'dummy'.
 p list:#('apples' 'bananas' 'grape' 'lemon' '-' 'margaritas').
 p selection:'apples'.
 p action:[:what | Transcript show:'you selected: '; showCR:what].
 p useIndex:true.
 p open
-[exEnd]
+								[exEnd]
 since the list is actually represented by a menuView,
 which itself is inheriting from listView, which itself can display
 things different from strings, arbitrary lists can be constructed:
 (see ListEntry, LabelAndIcon and Text classes)
-[exBegin]
+									[exBegin]
 |p l|
 p := ComboListView label:'dummy'.
 l := OrderedCollection new.
 l add:(Text string:'apples' color:Color red).
 l add:(Text string:'c++' color:Color blue).
 l add:(Text string:'eiffel' color:Color blue).
 l add:(Text string:'java' color:Color blue).
 p list:l.
 p values:#(apples bananas grape lemon
-nil
+		nil
-'mhmh - so good' 'makes headache'
+		'mhmh - so good' 'makes headache'
-nil
+		nil
-'great' 'another headache' 'not bad' 'neat').
+		'great' 'another headache' 'not bad' 'neat').
 p selection:'apples'.
 p action:[:what | Transcript show:'you selected: '; showCR:what].
 p open
-[exEnd]
+									[exEnd]
 with values different from the label strings:
-[exBegin]
+									[exBegin]
 |p|
 p := PopUpList label:'language selection'.
 p list:( #(
-'usa'
+		'usa'
-'uk'
+		'uk'
-'france'
+		'france'
-'germany'
+		'germany'
-'italy'
+		'italy'
-) collect:[:country |
+	       ) collect:[:country |
-LabelAndIcon
+			    LabelAndIcon
-icon:(Image fromFile:'bitmaps/xpmBitmaps/countries/' , country , '.xpm')
+				icon:(Image fromFile:'bitmaps/xpmBitmaps/countries/' , country , '.xpm')
-string:country
+				string:country
-]
+			 ]
-).
+	    ).
 p values:#(us england france germany italy).
 p action:[:what | Transcript show:'you selected: '; showCR:what].
 p open
-[exEnd]
+									[exEnd]
 with a model (see in the inspector, how the index-holders value changes)
 the defaults are setup to allow a SelectionInList directly as model:
-[exBegin]
+									[exBegin]
 |p model|
 model := SelectionInList with:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').
 p := ComboListView label:'healthy fruit'.
 p model:model.
 p open.
 model inspect
-[exEnd]
+									[exEnd]
 model provides selection; list is explicit:
-[exBegin]
+								[exBegin]
 |model top b|
 model := 'foo' asValue.
 top := StandardSystemView new.
 b list:#('hello' 'world' 'this' 'is' 'st/x').
 b model:model.
 top openModal.
 Transcript showCR:('comboBox''s value: ' , model value).
-[exEnd]
+								[exEnd]
 a comboListView and a SelectionInListView on the same model:
-[exBegin]
+									[exBegin]
 |p slv model|
 model := SelectionInList with:#('apples' 'bananas' 'grape' 'lemon' 'margaritas').
 model selection:'apples'.
 p := ComboListView on:model.
 p open.
 slv := SelectionInListView on:model.
 slv open.
-[exEnd]
+									[exEnd]
 two comboListViews on the same model, different aspects:
-[exBegin]
+									[exBegin]
 |top panel p model|
 model := Plug new.
 model respondTo:#eat: with:[:val | Transcript showCR:'eat: ' , val].
 model respondTo:#drink: with:[:val | Transcript showCR:'drink: ' , val].
 p := ComboListView label:'drinks'.
 p model:model; listMessage:#drinks; aspect:nil; change:#drink:.
 panel add:p.
 top open
-[exEnd]
+									[exEnd]
 with separate list- and indexHolders:
-[exBegin]
+									[exBegin]
 |p selectionHolder listHolder|
 listHolder := #('apples' 'bananas' 'grape' 'lemon' 'margaritas') asValue.
 selectionHolder := 'apples' asValue.
 p := ComboListView label:'healthy fruit'.
 p listHolder:listHolder.
 p model:selectionHolder.
 p open.
 selectionHolder inspect
-[exEnd]
+									[exEnd]
 using different values:
-[exBegin]
+									[exBegin]
 |p selectionHolder listHolder values|
 listHolder := #('apples' 'bananas' 'grape' 'lemon' 'margaritas') asValue.
 values := #(apples bananas grape lemon alcohol).
 p listHolder:listHolder.
 p model:selectionHolder.
 p values:values.
 p open.
 selectionHolder inspect
-[exEnd]
+									[exEnd]
 in a dialog:
-[exBegin]
+								[exBegin]
 |model1 model2 dialog b|
 model1 := 'foo' asValue.
 model2 := 'bar' asValue.
 dialog open.
 Transcript showCR:('1st comboBox''s value: ' , model1 value).
 Transcript showCR:('2nd comboBox''s value: ' , model2 value).
-[exEnd]
+								[exEnd]
 "
 ! !
 !ComboListView class methodsFor:'defaults'!
 useIndex:aBoolean
 "specify, if the selected components value or its index in the
 list should be sent to the model. The default is its value."
 useIndex := aBoolean.
+"/ change the aspetMessage - but only if it has not yet been
+"/ changed explicitly
+useIndex ifTrue:[
+	aspectMsg == #selection ifTrue:[
+	    aspectMsg := #selectionIndex
+	]
+] ifFalse:[
+	aspectMsg == #selectionIndex ifTrue:[
+	    aspectMsg := #selection
+	]
+].
 "Created: 26.7.1996 / 17:44:18 / cg"
+"Modified: / 24.1.1998 / 19:06:41 / cg"
 !
 values:aCollection
 "specify, which values are to be stuffed into the model or
 passed via the actionBlock."
 or directly"
 |m|
 (m := field model) notNil ifTrue:[
-^ m value
+	^ m value
 ] ifFalse:[
-^ field label
+	^ field label
 ]
 !
 contents:something
 "set the current value - either in the fields model
 or directly"
 |m|
 (m := field model) notNil ifTrue:[
-m value:something
+	m value:something
 ] ifFalse:[
-field label:something
+	field label:something
 ]
 "Created: 15.7.1996 / 13:16:49 / cg"
 "Modified: 5.1.1997 / 00:05:04 / cg"
 !
 getValueFromModel
 |selection idx aspect|
 (model notNil and:[aspectMsg notNil]) ifTrue:[
-"/ kludge - try #value if aspect is the default and
+	"/ kludge - try #value if aspect is the default and
-"/ not understood by the model
+	"/ not understood by the model
-"/ this allows a valueHolder to be used, even
+	"/ this allows a valueHolder to be used, even
-"/ if the aspectMessage was not setup correctly.
+	"/ if the aspectMessage was not setup correctly.
-aspect := aspectMsg.
+	aspect := aspectMsg.
-aspect == self class defaultAspectMessage ifTrue:[
+	aspect == self class defaultAspectMessage ifTrue:[
-(model respondsTo:aspect) ifFalse:[
+	    (model respondsTo:aspect) ifFalse:[
-aspect := #value
+		aspect := #value
-]
+	    ]
-].
+	].
-selection := model perform:aspect.
+	selection := model perform:aspect.
-selection notNil ifTrue:[
+	selection notNil ifTrue:[
-values notNil ifTrue:[
+	    values notNil ifTrue:[
-idx := values indexOf:selection
+		idx := values indexOf:selection
-] ifFalse:[
+	    ] ifFalse:[
-useIndex ifTrue:[
+		useIndex ifTrue:[
-idx := selection
+		    idx := selection
-] ifFalse:[
+		] ifFalse:[
-self contents:selection.
+		    self contents:selection.
-^ self.
+		    ^ self.
-]
+		]
-].
+	    ].
-self contents:(list at:idx ifAbsent:nil)
+	    self contents:(list at:idx ifAbsent:nil)
-]
+	]
 ].
 "Created: 15.7.1996 / 12:28:53 / cg"
 "Modified: 28.2.1997 / 13:41:02 / cg"
 ! !
 specClass
 "XXX no longer needed (inherited default works here)"
 self class == ComboListView ifTrue:[
-^ ComboListSpec
+	^ ComboListSpec
 ].
 ^ super specClass
 "Modified: / 31.10.1997 / 19:49:34 / cg"
 ! !
 "sent from the popped menu, when an item was selected"
 |label value chg|
 values isNil ifTrue:[
-value := anIndex.
+	value := anIndex.
-useIndex ifFalse:[
+	useIndex ifFalse:[
-value := list at:anIndex.
+	    value := list at:anIndex.
-]
+	]
 ] ifFalse:[
-value := values at:anIndex
+	value := values at:anIndex
 ].
 label := list at:anIndex.
 field label:label.
 "
 ST-80 style model notification ...
 this updates the model (typically, a ValueHolder)
 "
 (model notNil and:[changeMsg notNil]) ifTrue:[
-"/ kludge - try #value: if changeMsg is the default and
+	"/ kludge - try #value: if changeMsg is the default and
-"/ not understood by the model
+	"/ not understood by the model
-"/ this allows a valueHolder to be used, even
+	"/ this allows a valueHolder to be used, even
-"/ if the aspectMessage was not setup correctly.
+	"/ if the aspectMessage was not setup correctly.
-chg := changeMsg.
+	chg := changeMsg.
-chg == self class defaultChangeMessage ifTrue:[
+	chg == self class defaultChangeMessage ifTrue:[
-(model respondsTo:chg) ifFalse:[
+	    (model respondsTo:chg) ifFalse:[
-chg := #value:
+		chg := #value:
-]
+	    ]
-].
+	].
-self sendChangeMessage:chg with:value
+	self sendChangeMessage:chg with:value
 ].
 pullDownButton turnOff.
 "
 ST/X style actionBlock evaluation ...
 "
 action notNil ifTrue:[
-action value:value
+	action value:value
 ].
 "Created: 27.2.1997 / 15:18:44 / cg"
 "Modified: 28.2.1997 / 13:50:17 / cg"
 ! !
 !ComboListView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.25 1997-11-02 17:26:31 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.26 1998-01-25 14:14:42 cg Exp $'
 ! !

changeset 679	bd0e422aab67
parent 598	288e67e06da4
child 682	861e446e3b24