SelectionBrowser.st
author tz
Sat, 14 Feb 1998 17:50:43 +0100
changeset 631 52824496093d
parent 619 36c9d07f7dc3
child 647 4a16c0a3be56
permissions -rw-r--r--
*** empty log message ***
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
lastSelection
tz@402
    64
tz@402
    65
    ^lastSelection
tz@402
    66
!
tz@402
    67
tz@402
    68
lastSelection: aString
tz@402
    69
tz@402
    70
    lastSelection := aString
tz@402
    71
! !
tz@402
    72
tz@402
    73
!SelectionBrowser methodsFor:'accessing'!
tz@402
    74
tz@402
    75
title: aString
tz@402
    76
tz@402
    77
    title := aString
tz@402
    78
tz@402
    79
! !
tz@402
    80
tz@402
    81
!SelectionBrowser methodsFor:'initialization'!
tz@402
    82
tz@402
    83
postBuildWith:aBuilder
tz@402
    84
tz@631
    85
    builder window label: title ? builder window label.
tz@402
    86
tz@402
    87
    ^super postBuildWith:aBuilder
tz@402
    88
tz@402
    89
! !
tz@402
    90
tz@402
    91
!SelectionBrowser class methodsFor:'documentation'!
tz@402
    92
tz@402
    93
version
tz@402
    94
    ^ '$Header$'
tz@402
    95
! !