ProjectBuilder.st
changeset 2987 f3895651ef5f
parent 2986 1175ca171983
child 2989 fce70ea7d5d7
equal deleted inserted replaced
2986:1175ca171983 2987:f3895651ef5f
   851 
   851 
   852                     packageDef extensionMethods do:[:eachMethod |
   852                     packageDef extensionMethods do:[:eachMethod |
   853                         eachMethod mclass fileOutMethod:eachMethod on:s
   853                         eachMethod mclass fileOutMethod:eachMethod on:s
   854                     ].
   854                     ].
   855                 ].
   855                 ].
       
   856             extSource isWideString ifTrue:[
       
   857                 extSource := ( '"{ Encoding: utf8 }"' , Character cr asString, Character cr asString, extSource).
       
   858                 extSource := extSource utf8Encoded.
       
   859             ].
   856             (packageTargetDir asFilename construct:'extensions.st') contents:extSource
   860             (packageTargetDir asFilename construct:'extensions.st') contents:extSource
   857         ].
   861         ].
   858 
   862 
   859 "/        (Smalltalk allClassesInPackage:eachPackageToFileout) do:[:cls |
   863 "/        (Smalltalk allClassesInPackage:eachPackageToFileout) do:[:cls |
   860 "/            cls isPrivate ifFalse:[
   864 "/            cls isPrivate ifFalse:[