SelectionBrowser.st
author tz
Sat, 07 Feb 1998 17:01:27 +0100
changeset 619 36c9d07f7dc3
parent 504 1ff52096d1d3
child 631 52824496093d
permissions -rw-r--r--
class category changed
tz@402
     1
"
tz@504
     2
 COPYRIGHT (c) 1997 by eXept Software AG
tz@402
     3
              All Rights Reserved
tz@402
     4
tz@402
     5
 This software is furnished under a license and may be used
tz@402
     6
 only in accordance with the terms of that license and with the
tz@402
     7
 inclusion of the above copyright notice. This software may not
tz@402
     8
 be provided or otherwise made available to, or used by, any
tz@402
     9
 other person. No title to or ownership of the software is
tz@402
    10
 hereby transferred.
tz@402
    11
"
tz@402
    12
tz@402
    13
tz@402
    14
tz@402
    15
SimpleDialog subclass:#SelectionBrowser
tz@402
    16
	instanceVariableNames:'title'
tz@402
    17
	classVariableNames:''
tz@402
    18
	poolDictionaries:''
tz@619
    19
	category:'Interface-Dialogs'
tz@402
    20
!
tz@402
    21
tz@402
    22
SelectionBrowser class instanceVariableNames:'lastSelection'
tz@402
    23
tz@402
    24
"
tz@402
    25
 The following class instance variables are inherited by this class:
tz@402
    26
tz@402
    27
	SimpleDialog - 
tz@402
    28
	ApplicationModel - ClassResources
tz@402
    29
	Model - 
tz@402
    30
	Object - 
tz@402
    31
"
tz@402
    32
!
tz@402
    33
tz@402
    34
!SelectionBrowser class methodsFor:'documentation'!
tz@402
    35
tz@402
    36
copyright
tz@402
    37
"
tz@504
    38
 COPYRIGHT (c) 1997 by eXept Software AG
tz@402
    39
              All Rights Reserved
tz@402
    40
tz@402
    41
 This software is furnished under a license and may be used
tz@402
    42
 only in accordance with the terms of that license and with the
tz@402
    43
 inclusion of the above copyright notice. This software may not
tz@402
    44
 be provided or otherwise made available to, or used by, any
tz@402
    45
 other person. No title to or ownership of the software is
tz@402
    46
 hereby transferred.
tz@402
    47
"
tz@402
    48
tz@402
    49
tz@402
    50
!
tz@402
    51
tz@402
    52
documentation
tz@402
    53
"
tz@402
    54
    documentation to be added.
tz@504
    55
tz@504
    56
    [author:]
tz@504
    57
       Thomas Zwick
tz@402
    58
"
tz@402
    59
! !
tz@402
    60
tz@402
    61
!SelectionBrowser class methodsFor:'accessing'!
tz@402
    62
tz@402
    63
label
tz@402
    64
tz@402
    65
    |label|
tz@402
    66
    label := ''.
tz@402
    67
    self name do:
tz@402
    68
    [:c|
tz@402
    69
        c isUppercase ifTrue: [label := label, $ ].
tz@402
    70
        label := label, c
tz@402
    71
    ].
tz@402
    72
    ^label trimBlanks
tz@402
    73
tz@402
    74
!
tz@402
    75
tz@402
    76
lastSelection
tz@402
    77
tz@402
    78
    ^lastSelection
tz@402
    79
!
tz@402
    80
tz@402
    81
lastSelection: aString
tz@402
    82
tz@402
    83
    lastSelection := aString
tz@402
    84
! !
tz@402
    85
tz@402
    86
!SelectionBrowser methodsFor:'accessing'!
tz@402
    87
tz@402
    88
title: aString
tz@402
    89
tz@402
    90
    title := aString
tz@402
    91
tz@402
    92
! !
tz@402
    93
tz@402
    94
!SelectionBrowser methodsFor:'initialization'!
tz@402
    95
tz@402
    96
postBuildWith:aBuilder
tz@402
    97
tz@402
    98
    builder window label: title ? self class label.
tz@402
    99
tz@402
   100
    ^super postBuildWith:aBuilder
tz@402
   101
tz@402
   102
! !
tz@402
   103
tz@402
   104
!SelectionBrowser class methodsFor:'documentation'!
tz@402
   105
tz@402
   106
version
tz@402
   107
    ^ '$Header$'
tz@402
   108
! !