"{ 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$'

! !