# HG changeset patch
# User tz
# Date 892149377 -7200
# Node ID 6cf444ab3cf5e16bc929989a38665c4c5b3377e0
# Parent  905c3b4ba56539bcbde8145000f7f587e84a1c05
revised

diff -r 905c3b4ba565 -r 6cf444ab3cf5 SelectionBrowser.st
--- 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.