--- a/ListEditor.st Sun Mar 07 14:36:14 1999 +0100
+++ b/ListEditor.st Sun Mar 07 14:39:54 1999 +0100
@@ -1,1 +1,171 @@
+ApplicationModel subclass:#ListEditor
+ instanceVariableNames:'choiceList choiceSelection selectionList selectionSelection'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Views-Lists'
+!
+
+!ListEditor class methodsFor:'interface specs'!
+
+windowSpec
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
+
+ "
+ UIPainter new openOnClass:ListEditor andSelector:#windowSpec
+ ListEditor new openInterface:#windowSpec
+ ListEditor open
+ "
+
+ <resource: #canvas>
+
+ ^
+
+ #(#FullSpec
+ #window:
+ #(#WindowSpec
+ #name: 'NewApplication'
+ #layout: #(#LayoutFrame 134 0 100 0 433 0 399 0)
+ #level: 0
+ #label: 'NewApplication'
+ #min: #(#Point 10 10)
+ #max: #(#Point 800 553)
+ #bounds: #(#Rectangle 134 100 434 400)
+ #usePreferredExtent: false
+ )
+ #component:
+ #(#SpecCollection
+ #collection:
+ #(
+ #(#SequenceViewSpec
+ #name: 'choiceList'
+ #layout: #(#LayoutFrame 0 0.0 30 0.0 -12 0.5 0 1.0)
+ #model: #choiceSelection
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: true
+ #sequenceList: #choiceList
+ )
+ #(#SequenceViewSpec
+ #name: 'selectionList'
+ #layout: #(#LayoutFrame 12 0.5 30 0.0 0 1.0 0 1.0)
+ #model: #selectionSelection
+ #hasHorizontalScrollBar: true
+ #hasVerticalScrollBar: true
+ #useIndex: true
+ #sequenceList: #selectionList
+ )
+ #(#LabelSpec
+ #name: 'choiceLabel'
+ #layout: #(#LayoutFrame 0 0.0 0 0 -20 0.5 30 0)
+ #label: 'Choices'
+ #translateLabel: true
+ )
+ #(#LabelSpec
+ #name: 'selectionLabel'
+ #layout: #(#LayoutFrame 20 0.5 0 0 0 1.0 30 0)
+ #label: 'Selected'
+ #translateLabel: true
+ )
+ #(#ArrowButtonSpec
+ #name: 'addButton'
+ #layout: #(#LayoutFrame -10 0.5 -25 0.5 10 0.5 -5 0.5)
+ #model: #addToSelection
+ #isTriggerOnDown: true
+ #direction: #right
+ )
+ #(#ArrowButtonSpec
+ #name: 'removeButton'
+ #layout: #(#LayoutFrame -10 0.5 5 0.5 10 0.5 25 0.5)
+ #model: #removeFromSelection
+ #isTriggerOnDown: true
+ #direction: #left
+ )
+ )
+ )
+ )
+
+ "Modified: / 7.3.1999 / 00:43:21 / cg"
+! !
+
+!ListEditor methodsFor:'actions'!
+
+addToSelection
+ "automatically generated by UIPainter ..."
+
+ "*** the code below performs no action"
+ "*** (except for some feedback on the Transcript)"
+ "*** Please change as required and accept in the browser."
+
+ "action to be added ..."
+
+ Transcript showCR:self class name, ': action for addToSelection ...'.
+
+ "Created: / 7.3.1999 / 00:44:23 / cg"
+!
+
+removeFromSelection
+ "automatically generated by UIPainter ..."
+
+ "*** the code below performs no action"
+ "*** (except for some feedback on the Transcript)"
+ "*** Please change as required and accept in the browser."
+
+ "action to be added ..."
+
+ Transcript showCR:self class name, ': action for removeFromSelection ...'.
+
+ "Created: / 7.3.1999 / 00:44:24 / cg"
+! !
+
+!ListEditor methodsFor:'aspects'!
+
+choiceList
+ choiceList isNil ifTrue:[
+ choiceList := ValueHolder new.
+ ].
+ ^ choiceList.
+
+ "Created: / 7.3.1999 / 00:44:23 / cg"
+ "Modified: / 7.3.1999 / 00:45:51 / cg"
+!
+
+choiceSelection
+ choiceSelection isNil ifTrue:[
+ choiceSelection := ValueHolder new.
+ ].
+ ^ choiceSelection.
+
+ "Created: / 7.3.1999 / 00:44:23 / cg"
+ "Modified: / 7.3.1999 / 00:46:29 / cg"
+!
+
+selectionList
+ selectionList isNil ifTrue:[
+ selectionList := ValueHolder new.
+ ].
+ ^ selectionList.
+
+ "Created: / 7.3.1999 / 00:44:23 / cg"
+ "Modified: / 7.3.1999 / 00:47:34 / cg"
+!
+
+selectionSelection
+ selectionSelection isNil ifTrue:[
+ selectionSelection := ValueHolder new.
+ ].
+ ^ selectionSelection.
+
+ "Created: / 7.3.1999 / 00:44:23 / cg"
+ "Modified: / 7.3.1999 / 00:48:27 / cg"
+! !
+
+!ListEditor class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libwidg2/ListEditor.st,v 1.2 1999-03-07 13:39:54 cg Exp $'
+! !