--- a/ProjectBuilder.st Wed Mar 20 19:41:52 2013 +0100
+++ b/ProjectBuilder.st Thu Mar 21 18:30:30 2013 +0100
@@ -462,18 +462,18 @@
!
copyResourcesForPackage:aPackage
- |module directory|
+ |module directory myPackageDirectory rsrcDir stylesDir|
module := aPackage asPackageId module.
directory := aPackage asPackageId directory.
- (myTopDirectory / module / directory / 'resources' ) exists ifTrue:[
- (myTopDirectory / module / directory / 'resources' )
- recursiveCopyTo:(buildDirectory / module / directory)
+ myPackageDirectory := myTopDirectory / module / directory.
+
+ (rsrcDir := myPackageDirectory / 'resources' ) exists ifTrue:[
+ rsrcDir recursiveCopyTo:(buildDirectory / module / directory)
].
- (myTopDirectory / module / directory / 'styles' ) exists ifTrue:[
- (myTopDirectory / module / directory / 'styles' )
- recursiveCopyTo:(buildDirectory / module / directory)
+ (stylesDir := myPackageDirectory / 'styles' ) exists ifTrue:[
+ stylesDir recursiveCopyTo:(buildDirectory / module / directory)
].
!
@@ -804,7 +804,7 @@
"/ file out the package(s) which are to be built
((Array with:package))
do:[:eachPackageToFileout |
- |packageId packageModule packageDirectory packageTargetDir packageDef|
+ |packageId packageModule packageDirectory packageTargetDir packageDef extSource|
packageId := eachPackageToFileout asPackageId.
packageModule := packageId module.
@@ -830,6 +830,16 @@
].
].
+ packageDef hasExtensionMethods ifTrue:[
+ extSource :=
+ String streamContents:[:s |
+ packageDef extensionMethods do:[:eachMethod |
+ eachMethod mclass fileOutMethod:eachMethod on:s
+ ].
+ ].
+ (packageTargetDir asFilename construct:'extensions.st') contents:extSource
+ ].
+
"/ (Smalltalk allClassesInPackage:eachPackageToFileout) do:[:cls |
"/ cls isPrivate ifFalse:[
"/ cls isLoaded ifFalse:[