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