tz@402: "
tz@772:  COPYRIGHT (c) 1997-1998 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: 
cg@1428: "{ Package: 'stx:libtool2' }"
cg@1428: 
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@772:  COPYRIGHT (c) 1997-1998 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@772:     The abstract superclass for the ResourceSelectionBrowser
tz@772:     and the FileSelectionBrowser.
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@772:     "returns the last selection; file path or resource class"
tz@402: 
tz@402:     ^lastSelection
tz@402: !
tz@402: 
tz@402: lastSelection: aString
tz@772:     "sets the last selection; file path or resource class"
tz@402: 
tz@402:     lastSelection := aString
tz@402: ! !
tz@402: 
tz@772: !SelectionBrowser class methodsFor:'queries'!
tz@772: 
tz@772: isVisualStartable
cg@1428:     "return true, if this application can be started via #open.
cg@1428:      (to allow start of a change browser via double-click in the browser)"
tz@772: 
tz@772:     self == SelectionBrowser ifTrue:[^false].
tz@772:     ^super isVisualStartable
tz@772: ! !
tz@772: 
tz@402: !SelectionBrowser methodsFor:'accessing'!
tz@402: 
tz@402: title: aString
tz@772:     "sets the title"
tz@402: 
tz@402:     title := aString
tz@402: 
tz@402: ! !
tz@402: 
tz@773: !SelectionBrowser methodsFor:'help'!
tz@773: 
tz@773: openHTMLDocument: aHTMLFilename
tz@773:     "open a HTMLDocumentView on aHTMLFilename"
tz@773: 
tz@773:     HTMLDocumentView openFullOnDocumentationFile: aHTMLFilename
tz@773: ! !
tz@773: 
cg@1716: !SelectionBrowser methodsFor:'startup & release'!
tz@402: 
tz@402: postBuildWith:aBuilder
tz@772:     "sets the title (can be defined)"
tz@402: 
tz@631:     builder window label: title ? builder window label.
tz@402: 
cg@2028:     super postBuildWith:aBuilder
tz@402: ! !
tz@402: 
tz@402: !SelectionBrowser class methodsFor:'documentation'!
tz@402: 
tz@402: version
tz@402:     ^ '$Header$'
tz@402: ! !