tz@402: "
tz@504:  COPYRIGHT (c) 1997 by eXept Software AG
tz@402:               All Rights Reserved
tz@402: 
tz@402:  This software is furnished under a license and may be used
tz@402:  only in accordance with the terms of that license and with the
tz@402:  inclusion of the above copyright notice. This software may not
tz@402:  be provided or otherwise made available to, or used by, any
tz@402:  other person. No title to or ownership of the software is
tz@402:  hereby transferred.
tz@402: "
tz@402: 
tz@402: 
tz@402: 
tz@402: SimpleDialog subclass:#SelectionBrowser
tz@402: 	instanceVariableNames:'title'
tz@402: 	classVariableNames:''
tz@402: 	poolDictionaries:''
tz@619: 	category:'Interface-Dialogs'
tz@402: !
tz@402: 
tz@402: SelectionBrowser class instanceVariableNames:'lastSelection'
tz@402: 
tz@402: "
tz@402:  The following class instance variables are inherited by this class:
tz@402: 
tz@402: 	SimpleDialog - 
tz@402: 	ApplicationModel - ClassResources
tz@402: 	Model - 
tz@402: 	Object - 
tz@402: "
tz@402: !
tz@402: 
tz@402: !SelectionBrowser class methodsFor:'documentation'!
tz@402: 
tz@402: copyright
tz@402: "
tz@504:  COPYRIGHT (c) 1997 by eXept Software AG
tz@402:               All Rights Reserved
tz@402: 
tz@402:  This software is furnished under a license and may be used
tz@402:  only in accordance with the terms of that license and with the
tz@402:  inclusion of the above copyright notice. This software may not
tz@402:  be provided or otherwise made available to, or used by, any
tz@402:  other person. No title to or ownership of the software is
tz@402:  hereby transferred.
tz@402: "
tz@402: 
tz@402: 
tz@402: !
tz@402: 
tz@402: documentation
tz@402: "
tz@402:     documentation to be added.
tz@504: 
tz@504:     [author:]
tz@504:        Thomas Zwick
tz@402: "
tz@402: ! !
tz@402: 
tz@402: !SelectionBrowser class methodsFor:'accessing'!
tz@402: 
tz@402: lastSelection
tz@402: 
tz@402:     ^lastSelection
tz@402: !
tz@402: 
tz@402: lastSelection: aString
tz@402: 
tz@402:     lastSelection := aString
tz@402: ! !
tz@402: 
tz@402: !SelectionBrowser methodsFor:'accessing'!
tz@402: 
tz@402: title: aString
tz@402: 
tz@402:     title := aString
tz@402: 
tz@402: ! !
tz@402: 
tz@402: !SelectionBrowser methodsFor:'initialization'!
tz@402: 
tz@402: postBuildWith:aBuilder
tz@402: 
tz@631:     builder window label: title ? builder window label.
tz@402: 
tz@402:     ^super postBuildWith:aBuilder
tz@402: 
tz@402: ! !
tz@402: 
tz@402: !SelectionBrowser class methodsFor:'documentation'!
tz@402: 
tz@402: version
tz@402:     ^ '$Header$'
tz@402: ! !