FileBrowser.st
changeset 4837 a8bebcff556f
parent 4818 bc4df453f375
child 4858 6995b1a8eecd
--- a/FileBrowser.st	Wed Apr 23 16:49:54 2003 +0200
+++ b/FileBrowser.st	Wed Apr 23 16:51:28 2003 +0200
@@ -5858,7 +5858,7 @@
     OperatingSystem isUNIXlike ifTrue:[
         (#('.man' '.1' '.2' '.3') findFirst:[:suff | fullPath hasSuffix:suff]) ~~ 0 
         ifTrue:[
-             HTMLDocumentView openFullOnText:(HTMLDocGenerator manPageForFile:fullPath pathName).
+            HTMLDocumentView openFullOnText:(HTMLDocGenerator manPageForFile:fullPath pathName).
             ^ true
         ].
     ].
@@ -6958,7 +6958,9 @@
 showFile:fileName
     "show contents of fileName in subView"
 
-    fileListView selection:(fileList indexOf:fileName).
+    fileList notNil ifTrue:[
+        fileListView selection:(fileList indexOf:fileName).
+    ].
     self fileGet
 
     "Modified: / 17.6.1998 / 11:26:13 / cg"
@@ -7820,5 +7822,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.530 2003-04-11 17:29:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.531 2003-04-23 14:51:28 cg Exp $'
 ! !