ComboView subclass:#ComboListView
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'Views-Interactors'
!
!ComboListView class methodsFor:'documentation'!
documentation
"
A ComboListView combines an label with a drop down list of default inputs;
choosing any from the pulled list sets the string in the label.
This is the same as a PopUpList or SelectionInListView, bit looks different.
Not yet finished.
"
!
examples
"
|top b|
top := StandardSystemView new.
top extent:(300 @ 200).
b := ComboListView in:top.
b origin:(0.0 @ 0.0) corner:(1.0 @ 0.0).
b bottomInset:(b preferredExtent y negated).
b list:#('hello' 'world' 'this' 'is' 'st/x').
top open.
model operation:
|model top b|
model := 'foo' asValue.
top := StandardSystemView new.
top extent:(300 @ 200).
b := ComboListView in:top.
b origin:(0.0 @ 0.0) corner:(1.0 @ 0.0).
b bottomInset:(b preferredExtent y negated).
b list:#('hello' 'world' 'this' 'is' 'st/x').
b model:model.
top openModal.
Transcript showCr:('comboBox''s value: ' , model value).
in a dialog:
|model1 model2 dialog b|
model1 := 'foo' asValue.
model2 := 'bar' asValue.
dialog := Dialog new.
(dialog addTextLabel:'ComboList example:') adjust:#left.
dialog addVerticalSpace.
(b := dialog addComboListOn:model1 tabable:true).
b list:#('fee' 'foe' 'foo').
dialog addVerticalSpace.
(b := dialog addComboListOn:model2 tabable:true).
b list:#('bar' 'baz' 'baloo').
dialog addVerticalSpace.
dialog addOkButton.
dialog open.
Transcript showCr:('1st comboBox''s value: ' , model1 value).
Transcript showCr:('2nd comboBox''s value: ' , model2 value).
"
! !
!ComboListView methodsFor:'accessing-components'!
label
"return the inputField component"
^ field
"Modified: 28.2.1996 / 15:10:50 / cg"
"Created: 28.2.1996 / 15:13:51 / cg"
! !
!ComboListView methodsFor:'initialization'!
initializeField
field := Label in:self.
field level:-1.
field adjust:#left.
"
|b|
b := ComboListView new.
b list:#('hello' 'world' 'this' 'is' 'st/x').
b open
"
"Created: 28.2.1996 / 15:13:46 / cg"
"Modified: 28.2.1996 / 15:18:40 / cg"
! !
!ComboListView methodsFor:'user interaction'!
entryChanged:what
field label:what.
model notNil ifTrue:[model value:what].
pullDownButton turnOff.
"Created: 28.2.1996 / 15:13:46 / cg"
"Modified: 28.2.1996 / 15:19:00 / cg"
! !
!ComboListView class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libwidg2/ComboListView.st,v 1.1 1996-02-28 14:26:06 cg Exp $'
! !