--- 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 $'
! !