--- a/ProjectBuilder.st Fri Jul 20 15:30:07 2012 +0200
+++ b/ProjectBuilder.st Fri Jul 20 20:15:40 2012 +0200
@@ -296,16 +296,23 @@
].
].
dllRelativePaths do:[:dllRelativePath|
- ((packageTargetDir / dllRelativePath) exists not
- or:[(dllSourceDir / dllRelativePath) fileSize ~= (packageTargetDir / dllRelativePath) fileSize
- or:[(dllSourceDir / dllRelativePath) modificationTime >= (packageTargetDir / dllRelativePath) modificationTime
+ |source dest|
+
+ source := dllSourceDir / dllRelativePath.
+ dest := packageTargetDir / dllRelativePath.
+ (dest exists not
+ or:[source fileSize ~= dest fileSize
+ or:[source modificationTime >= dest modificationTime
"/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ]
]]) ifTrue:[
- (packageTargetDir / dllRelativePath) directory recursiveMakeDirectory.
- (dllSourceDir / dllRelativePath) copyTo:(packageTargetDir / dllRelativePath).
+ Transcript showCR:'updating ',dllRelativePath.
+ dest directory recursiveMakeDirectory.
+ source copyTo:dest.
].
].
].
+
+ "Modified: / 20-07-2012 / 18:30:06 / cg"
!
copyDirectory:relativepath
@@ -806,6 +813,10 @@
!ProjectBuilder class methodsFor:'documentation'!
+version
+ ^ '$Header$'
+!
+
version_CVS
^ '$Header$'
! !