ProjectBuilder.st
changeset 2896 6ed90332dbda
parent 2895 2b939399b83b
child 2898 c7f6c498df6a
--- 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$'
 ! !