AbstractFileBrowser.st
changeset 14360 7459355f5a90
parent 14308 192c81c86815
child 14362 b03192e7a145
equal deleted inserted replaced
14359:5aabf81db0a0 14360:7459355f5a90
  8078                     JavaVM loadClassesIn: fileName.  
  8078                     JavaVM loadClassesIn: fileName.  
  8079                 ]
  8079                 ]
  8080             ] ifFalse:[
  8080             ] ifFalse:[
  8081                 "/ ask programming languages...
  8081                 "/ ask programming languages...
  8082                 lang := ProgrammingLanguage allDetect:[:l | l canReadSourceFile:fileName] ifNone:nil.
  8082                 lang := ProgrammingLanguage allDetect:[:l | l canReadSourceFile:fileName] ifNone:nil.
       
  8083                 (lang isNil and:[(fileName hasSuffix:'js')]) ifTrue:[
       
  8084                     Smalltalk loadPackage:'stx_libjavascript'.
       
  8085                     lang := ProgrammingLanguage allDetect:[:l | l canReadSourceFile:fileName] ifNone:nil.
       
  8086                 ].
  8083                 (lang notNil and:[lang ~= SmalltalkLanguage]) ifTrue:[
  8087                 (lang notNil and:[lang ~= SmalltalkLanguage]) ifTrue:[
  8084                     lang fileIn:fileName.
  8088                     lang fileIn:fileName.
  8085                 ] ifFalse:[
  8089                 ] ifFalse:[
  8086                     "/ loading a regular (chunk) or xml source file
  8090                     "/ loading a regular (chunk) or xml source file
  8087                     Error handle:[:ex |
  8091                     Error handle:[:ex |
  9445 ! !
  9449 ! !
  9446 
  9450 
  9447 !AbstractFileBrowser class methodsFor:'documentation'!
  9451 !AbstractFileBrowser class methodsFor:'documentation'!
  9448 
  9452 
  9449 version
  9453 version
  9450     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.553 2014-05-06 19:39:35 cg Exp $'
  9454     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.554 2014-05-13 22:05:36 cg Exp $'
  9451 !
  9455 !
  9452 
  9456 
  9453 version_CVS
  9457 version_CVS
  9454     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.553 2014-05-06 19:39:35 cg Exp $'
  9458     ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.554 2014-05-13 22:05:36 cg Exp $'
  9455 ! !
  9459 ! !
  9456 
  9460