--- a/SelectionBrowser.st Thu Apr 09 21:12:59 1998 +0200
+++ b/SelectionBrowser.st Thu Apr 09 21:16:17 1998 +0200
@@ -1,5 +1,5 @@
"
- COPYRIGHT (c) 1997 by eXept Software AG
+ COPYRIGHT (c) 1997-1998 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
@@ -35,7 +35,7 @@
copyright
"
- COPYRIGHT (c) 1997 by eXept Software AG
+ COPYRIGHT (c) 1997-1998 by eXept Software AG
All Rights Reserved
This software is furnished under a license and may be used
@@ -51,7 +51,8 @@
documentation
"
- documentation to be added.
+ The abstract superclass for the ResourceSelectionBrowser
+ and the FileSelectionBrowser.
[author:]
Thomas Zwick
@@ -61,18 +62,31 @@
!SelectionBrowser class methodsFor:'accessing'!
lastSelection
+ "returns the last selection; file path or resource class"
^lastSelection
!
lastSelection: aString
+ "sets the last selection; file path or resource class"
lastSelection := aString
! !
+!SelectionBrowser class methodsFor:'queries'!
+
+isVisualStartable
+ "returns whether this application class can be started via #open"
+
+ self == SelectionBrowser ifTrue:[^false].
+ ^super isVisualStartable
+
+! !
+
!SelectionBrowser methodsFor:'accessing'!
title: aString
+ "sets the title"
title := aString
@@ -81,6 +95,7 @@
!SelectionBrowser methodsFor:'startup / release'!
postBuildWith:aBuilder
+ "sets the title (can be defined)"
builder window label: title ? builder window label.