"
COPYRIGHT (c) 2008 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libtool2' }"
SimpleDialog subclass:#UIListEditor
instanceVariableNames:'informationLabel listTextHolder useSymbolsHolder'
classVariableNames:''
poolDictionaries:''
category:'Interface-UIPainter'
!
!UIListEditor class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 2008 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
! !
!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$'
!
version_CVS
^ '$Header$'
! !