--- 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.