--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/UIListEditor.st Mon Feb 25 20:11:20 2008 +0100
@@ -0,0 +1,176 @@
+"{ Package: 'stx:libtool2' }"
+
+SimpleDialog subclass:#UIListEditor
+ instanceVariableNames:'informationLabel listTextHolder useSymbolsHolder'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Interface-UIPainter'
+!
+
+
+!UIListEditor class methodsFor:'help specs'!
+
+helpSpec
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
+
+ "
+ UIHelpTool openOnClass:UIListEditor
+ "
+
+ <resource: #help>
+
+ ^ super helpSpec addPairsFrom:#(
+
+#useSymbols
+'Store list elements as symbols'
+
+)
+! !
+
+!UIListEditor 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:UIListEditor andSelector:#windowSpec
+ UIListEditor new openInterface:#windowSpec
+ UIListEditor open
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Edit List'
+ name: 'Edit List'
+ min: (Point 10 10)
+ bounds: (Rectangle 0 0 354 422)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 28 0)
+ translateLabel: true
+ labelChannel: informationLabel
+ )
+ (TextEditorSpec
+ name: 'TextEditor1'
+ layout: (LayoutFrame 0 0 30 0 0 1 -63 1)
+ model: listTextHolder
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ viewClassName: ''
+ )
+ (CheckBoxSpec
+ label: 'Use Symbols'
+ name: 'CheckBox1'
+ layout: (LayoutFrame 5 0 368 0 141 0 390 0)
+ activeHelpKey: useSymbols
+ model: useSymbolsHolder
+ translateLabel: true
+ )
+ (HorizontalPanelViewSpec
+ name: 'HorizontalPanel1'
+ layout: (LayoutFrame 0 0 -33 1 0 1 0 1)
+ horizontalLayout: fitSpace
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button1'
+ translateLabel: true
+ model: doCancel
+ extent: (Point 172 22)
+ )
+ (ActionButtonSpec
+ label: 'OK'
+ name: 'Button2'
+ translateLabel: true
+ model: doAccept
+ isDefault: true
+ extent: (Point 173 22)
+ )
+ )
+
+ )
+ )
+ )
+
+ )
+ )
+! !
+
+!UIListEditor methodsFor:'accessing'!
+
+informationLabel
+ ^ informationLabel
+!
+
+informationLabel:something
+ informationLabel := something.
+!
+
+list
+ "answer the list as an array"
+
+ |list|
+
+ list := self listTextHolder value asStringCollection asArray.
+ self useSymbolsHolder value ifTrue:[
+ list := list collect:[:e| e asSymbol].
+ ].
+
+ ^ list
+!
+
+list:anArray
+ self listTextHolder value:anArray asStringCollection asString.
+!
+
+useSymbols:aBoolean
+ self useSymbolsHolder value:aBoolean
+! !
+
+!UIListEditor methodsFor:'aspects'!
+
+listTextHolder
+ <resource: #uiAspect>
+
+ listTextHolder isNil ifTrue:[
+ listTextHolder := '' asValue.
+ ].
+ ^ listTextHolder.
+!
+
+useSymbolsHolder
+ <resource: #uiAspect>
+
+ useSymbolsHolder isNil ifTrue:[
+ useSymbolsHolder := false asValue.
+ ].
+ ^ useSymbolsHolder.
+! !
+
+!UIListEditor class methodsFor:'documentation'!
+
+version
+ ^ '$Header$'
+! !