1 SimpleDialog subclass:#SelectionBrowser

     2 	instanceVariableNames:'title'

     3 	classVariableNames:''

     4 	poolDictionaries:''

     5 	category:'Interface-Advanced-Tools'

     6 !

     7 

     8 SelectionBrowser class instanceVariableNames:'lastSelection'

     9 

    10 "

    11  The following class instance variables are inherited by this class:

    12 

    13 	SimpleDialog - 

    14 	ApplicationModel - ClassResources

    15 	Model - 

    16 	Object - 

    17 "

    18 !

    19 

    20 

    21 !SelectionBrowser class methodsFor:'accessing'!

    22 

    23 label

    24 

    25     |label|

    26     label := ''.

    27     self name do:

    28     [:c|

    29         c isUppercase ifTrue: [label := label, $ ].

    30         label := label, c

    31     ].

    32     ^label trimBlanks

    33 

    34 !

    35 

    36 lastSelection

    37 

    38     ^lastSelection

    39 !

    40 

    41 lastSelection: aString

    42 

    43     lastSelection := aString

    44 ! !

    45 

    46 !SelectionBrowser methodsFor:'initialization'!

    47 

    48 postBuildWith:aBuilder

    49 

    50     self setLabel.

    51     ^super postBuildWith:aBuilder

    52 

    53 !

    54 

    55 setLabel

    56 

    57     builder window label: title ? self class label

    58 

    59 ! !

    60 

    61 !SelectionBrowser class methodsFor:'documentation'!

    62 

    63 version

    64     ^ '$Header$'

    65 ! !