SelectionBrowser.st
author tz
Sat, 10 Jan 1998 11:25:55 +0100
changeset 402 246e36541b1b
child 504 1ff52096d1d3
permissions -rw-r--r--
intitial checkin
tz@402
     1
"
tz@402
     2
 COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
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@402
    19
	category:'Interface-Advanced-Tools'
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@402
    38
 COPYRIGHT (c) 1997 by eXept Software AG / Thomas Zwick
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@402
    55
"
tz@402
    56
!
tz@402
    57
tz@402
    58
history
tz@402
    59
    "Created: / 10.1.1998 / 11:00:51 / tz"
tz@402
    60
! !
tz@402
    61
tz@402
    62
!SelectionBrowser class methodsFor:'accessing'!
tz@402
    63
tz@402
    64
label
tz@402
    65
tz@402
    66
    |label|
tz@402
    67
    label := ''.
tz@402
    68
    self name do:
tz@402
    69
    [:c|
tz@402
    70
        c isUppercase ifTrue: [label := label, $ ].
tz@402
    71
        label := label, c
tz@402
    72
    ].
tz@402
    73
    ^label trimBlanks
tz@402
    74
tz@402
    75
!
tz@402
    76
tz@402
    77
lastSelection
tz@402
    78
tz@402
    79
    ^lastSelection
tz@402
    80
!
tz@402
    81
tz@402
    82
lastSelection: aString
tz@402
    83
tz@402
    84
    lastSelection := aString
tz@402
    85
! !
tz@402
    86
tz@402
    87
!SelectionBrowser methodsFor:'accessing'!
tz@402
    88
tz@402
    89
title: aString
tz@402
    90
tz@402
    91
    title := aString
tz@402
    92
tz@402
    93
! !
tz@402
    94
tz@402
    95
!SelectionBrowser methodsFor:'initialization'!
tz@402
    96
tz@402
    97
postBuildWith:aBuilder
tz@402
    98
tz@402
    99
    builder window label: title ? self class label.
tz@402
   100
tz@402
   101
    ^super postBuildWith:aBuilder
tz@402
   102
tz@402
   103
! !
tz@402
   104
tz@402
   105
!SelectionBrowser class methodsFor:'documentation'!
tz@402
   106
tz@402
   107
version
tz@402
   108
    ^ '$Header$'
tz@402
   109
! !