--- a/FBrowser.st Tue Apr 29 21:19:09 1997 +0200
+++ b/FBrowser.st Tue Apr 29 21:57:13 1997 +0200
@@ -455,9 +455,8 @@
((currentDirectory typeOf:fileName) == #regular) ifTrue:[
here := currentDirectory pathName.
- ((fileName endsWith:'.o')
- or:[(fileName endsWith:'.so')
- or:[fileName endsWith:'.obj']]) ifTrue:[
+ (ObjectFileLoader notNil
+ and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
Object abortSignal catch:[
|p|
@@ -521,7 +520,7 @@
]
]
- "Modified: 5.11.1996 / 22:01:14 / cg"
+ "Modified: 29.4.1997 / 21:56:24 / cg"
!
fileGet
@@ -3501,6 +3500,6 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.155 1997-04-29 19:10:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/FBrowser.st,v 1.156 1997-04-29 19:57:13 cg Exp $'
! !
FileBrowser initialize!
--- a/FileBrowser.st Tue Apr 29 21:19:09 1997 +0200
+++ b/FileBrowser.st Tue Apr 29 21:57:13 1997 +0200
@@ -455,9 +455,8 @@
((currentDirectory typeOf:fileName) == #regular) ifTrue:[
here := currentDirectory pathName.
- ((fileName endsWith:'.o')
- or:[(fileName endsWith:'.so')
- or:[fileName endsWith:'.obj']]) ifTrue:[
+ (ObjectFileLoader notNil
+ and:[ObjectFileLoader hasValidBinaryExtension:fileName]) ifTrue:[
Object abortSignal catch:[
|p|
@@ -521,7 +520,7 @@
]
]
- "Modified: 5.11.1996 / 22:01:14 / cg"
+ "Modified: 29.4.1997 / 21:56:24 / cg"
!
fileGet
@@ -3501,6 +3500,6 @@
!FileBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.155 1997-04-29 19:10:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.156 1997-04-29 19:57:13 cg Exp $'
! !
FileBrowser initialize!