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