AbstractFileBrowser.st
changeset 14360 7459355f5a90
parent 14308 192c81c86815
child 14362 b03192e7a145
--- a/AbstractFileBrowser.st	Tue May 13 21:24:02 2014 +0200
+++ b/AbstractFileBrowser.st	Wed May 14 00:05:36 2014 +0200
@@ -8080,6 +8080,10 @@
             ] ifFalse:[
                 "/ ask programming languages...
                 lang := ProgrammingLanguage allDetect:[:l | l canReadSourceFile:fileName] ifNone:nil.
+                (lang isNil and:[(fileName hasSuffix:'js')]) ifTrue:[
+                    Smalltalk loadPackage:'stx_libjavascript'.
+                    lang := ProgrammingLanguage allDetect:[:l | l canReadSourceFile:fileName] ifNone:nil.
+                ].
                 (lang notNil and:[lang ~= SmalltalkLanguage]) ifTrue:[
                     lang fileIn:fileName.
                 ] ifFalse:[
@@ -9447,10 +9451,10 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.553 2014-05-06 19:39:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.554 2014-05-13 22:05:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.553 2014-05-06 19:39:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.554 2014-05-13 22:05:36 cg Exp $'
 ! !