Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 30 Mar 1999 11:18:54 +0200
changeset 2091 17cad39945c8
parent 2090 2be63e632db1
child 2092 d03703adf471
checkin from browser
FBrowser.st file | annotate | diff | comparison | revisions
FileBrowser.st file | annotate | diff | comparison | revisions 
--- a/FBrowser.st	Tue Mar 30 10:02:24 1999 +0200
+++ b/FBrowser.st	Tue Mar 30 11:18:54 1999 +0200
@@ -4375,16 +4375,21 @@
 
     fullPath := currentDirectory filenameFor:aFilename.
     ((fullPath hasSuffix:'htm') or:[fullPath hasSuffix:'html']) ifTrue:[
-	HTMLDocumentView openOn:fullPath pathName.
-	^ true
+        HTMLDocumentView openOn:fullPath pathName.
+        ^ true
+    ].
+    ((fullPath hasSuffix:'prj')  
+    and:[ProjectBrowser notNil]) ifTrue:[
+        ProjectBrowser openOnFile:fullPath pathName.
+        ^ true
     ].
 
     OperatingSystem isUNIXlike ifTrue:[
-	(#('.man' '.1' '.2' '.3') findFirst:[:suff | fullPath hasSuffix:suff]) ~~ 0 
-	ifTrue:[
-	     HTMLDocumentView openFullOnText:(HTMLDocGenerator manPageForFile:fullPath pathName).
-	    ^ true
-	]
+        (#('.man' '.1' '.2' '.3') findFirst:[:suff | fullPath hasSuffix:suff]) ~~ 0 
+        ifTrue:[
+             HTMLDocumentView openFullOnText:(HTMLDocGenerator manPageForFile:fullPath pathName).
+            ^ true
+        ]
     ].
     ^ self imageAction:aFilename
 
@@ -6344,5 +6349,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.301 1999-03-29 21:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.302 1999-03-30 09:18:54 cg Exp $'
 ! !
--- a/FileBrowser.st	Tue Mar 30 10:02:24 1999 +0200
+++ b/FileBrowser.st	Tue Mar 30 11:18:54 1999 +0200
@@ -4375,16 +4375,21 @@
 
     fullPath := currentDirectory filenameFor:aFilename.
     ((fullPath hasSuffix:'htm') or:[fullPath hasSuffix:'html']) ifTrue:[
-	HTMLDocumentView openOn:fullPath pathName.
-	^ true
+        HTMLDocumentView openOn:fullPath pathName.
+        ^ true
+    ].
+    ((fullPath hasSuffix:'prj')  
+    and:[ProjectBrowser notNil]) ifTrue:[
+        ProjectBrowser openOnFile:fullPath pathName.
+        ^ true
     ].
 
     OperatingSystem isUNIXlike ifTrue:[
-	(#('.man' '.1' '.2' '.3') findFirst:[:suff | fullPath hasSuffix:suff]) ~~ 0 
-	ifTrue:[
-	     HTMLDocumentView openFullOnText:(HTMLDocGenerator manPageForFile:fullPath pathName).
-	    ^ true
-	]
+        (#('.man' '.1' '.2' '.3') findFirst:[:suff | fullPath hasSuffix:suff]) ~~ 0 
+        ifTrue:[
+             HTMLDocumentView openFullOnText:(HTMLDocGenerator manPageForFile:fullPath pathName).
+            ^ true
+        ]
     ].
     ^ self imageAction:aFilename
 
@@ -6344,5 +6349,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.301 1999-03-29 21:49:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.302 1999-03-30 09:18:54 cg Exp $'
 ! !
hg/stx-libtool