equal
deleted
inserted
replaced
844 ]. |
844 ]. |
845 |
845 |
846 packageDef hasExtensionMethods ifTrue:[ |
846 packageDef hasExtensionMethods ifTrue:[ |
847 extSource := |
847 extSource := |
848 String streamContents:[:s | |
848 String streamContents:[:s | |
|
849 s nextPutAll:('"{ Package: ''%1'' }" !!\\' bindWith:packageDef package) withCRs. |
|
850 |
849 packageDef extensionMethods do:[:eachMethod | |
851 packageDef extensionMethods do:[:eachMethod | |
850 eachMethod mclass fileOutMethod:eachMethod on:s |
852 eachMethod mclass fileOutMethod:eachMethod on:s |
851 ]. |
853 ]. |
852 ]. |
854 ]. |
853 (packageTargetDir asFilename construct:'extensions.st') contents:extSource |
855 (packageTargetDir asFilename construct:'extensions.st') contents:extSource |
854 ]. |
856 ]. |
855 |
857 |
856 "/ (Smalltalk allClassesInPackage:eachPackageToFileout) do:[:cls | |
858 "/ (Smalltalk allClassesInPackage:eachPackageToFileout) do:[:cls | |
857 "/ cls isPrivate ifFalse:[ |
859 "/ cls isPrivate ifFalse:[ |
858 "/ cls isLoaded ifFalse:[ |
860 "/ cls isLoaded ifFalse:[ |