SimpleDialog subclass:#SelectionBrowser
instanceVariableNames:'title'
classVariableNames:''
poolDictionaries:''
category:'Interface-Advanced-Tools'
!
SelectionBrowser class instanceVariableNames:'lastSelection'
"
The following class instance variables are inherited by this class:
SimpleDialog -
ApplicationModel - ClassResources
Model -
Object -
"
!
!SelectionBrowser class methodsFor:'accessing'!
label
|label|
label := ''.
self name do:
[:c|
c isUppercase ifTrue: [label := label, $ ].
label := label, c
].
^label trimBlanks
!
lastSelection
^lastSelection
!
lastSelection: aString
lastSelection := aString
! !
!SelectionBrowser methodsFor:'initialization'!
postBuildWith:aBuilder
self setLabel.
^super postBuildWith:aBuilder
!
setLabel
builder window label: title ? self class label
! !
!SelectionBrowser class methodsFor:'documentation'!
version
^ '$Header$'
! !