AbstractFileBrowser.st
changeset 5356 d08261ab1567
parent 5334 637f49d94b1b
child 5360 1f2f874c8c9a
--- a/AbstractFileBrowser.st	Tue Nov 18 09:04:04 2003 +0100
+++ b/AbstractFileBrowser.st	Tue Nov 18 13:07:43 2003 +0100
@@ -189,7 +189,9 @@
     |bookmarks s fileName|
 
     fileName := aFileNameOrString asFilename.
-    s := fileName readStream.
+    FileStream openErrorSignal catch:[
+        s := fileName readStream.
+    ].
     s isNil ifTrue:[
         ^ self.
     ].
@@ -5461,12 +5463,7 @@
 !
 
 canRemoveCVSContainer
-
-    |selectedFiles|
-
-    selectedFiles := self currentSelectedFiles.
-
-    ^ selectedFiles 
+    ^ self currentSelectedFiles 
         contains:[:fileName|
             |dirOfFile cvsDir|
 
@@ -6476,5 +6473,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.183 2003-11-11 09:50:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.184 2003-11-18 12:07:43 cg Exp $'
 ! !