equal
deleted
inserted
replaced
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:[ |