--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/ComboListV.st Wed Feb 28 15:26:06 1996 +0100
@@ -0,0 +1,130 @@
+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/Attic/ComboListV.st,v 1.1 1996-02-28 14:26:06 cg Exp $'
+! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/ComboListView.st Wed Feb 28 15:26:06 1996 +0100
@@ -0,0 +1,130 @@
+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 $'
+! !