diff -r e6cc565bff35 -r cc1eded4d84d UIListEditor.st
--- /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$'
+! !