ProjectBuilder.st
changeset 2896 6ed90332dbda
parent 2895 2b939399b83b
child 2898 c7f6c498df6a
     1.1 --- a/ProjectBuilder.st	Fri Jul 20 15:30:07 2012 +0200
     1.2 +++ b/ProjectBuilder.st	Fri Jul 20 20:15:40 2012 +0200
     1.3 @@ -296,16 +296,23 @@
     1.4              ].
     1.5          ].
     1.6          dllRelativePaths do:[:dllRelativePath|
     1.7 -            ((packageTargetDir / dllRelativePath) exists not
     1.8 -             or:[(dllSourceDir / dllRelativePath) fileSize ~= (packageTargetDir / dllRelativePath) fileSize
     1.9 -             or:[(dllSourceDir / dllRelativePath) modificationTime >= (packageTargetDir / dllRelativePath) modificationTime
    1.10 +            |source dest|
    1.11 +
    1.12 +            source := dllSourceDir / dllRelativePath.
    1.13 +            dest := packageTargetDir / dllRelativePath.
    1.14 +            (dest exists not
    1.15 +             or:[source fileSize ~= dest fileSize
    1.16 +             or:[source modificationTime >= dest modificationTime
    1.17               "/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ]
    1.18              ]]) ifTrue:[
    1.19 -                (packageTargetDir / dllRelativePath) directory recursiveMakeDirectory.
    1.20 -                (dllSourceDir / dllRelativePath) copyTo:(packageTargetDir / dllRelativePath).    
    1.21 +                Transcript showCR:'updating ',dllRelativePath.
    1.22 +                dest directory recursiveMakeDirectory.
    1.23 +                source copyTo:dest.    
    1.24              ].
    1.25          ].
    1.26      ].
    1.27 +
    1.28 +    "Modified: / 20-07-2012 / 18:30:06 / cg"
    1.29  !
    1.30  
    1.31  copyDirectory:relativepath
    1.32 @@ -806,6 +813,10 @@
    1.33  
    1.34  !ProjectBuilder class methodsFor:'documentation'!
    1.35  
    1.36 +version
    1.37 +    ^ '$Header$'
    1.38 +!
    1.39 +
    1.40  version_CVS
    1.41      ^ '$Header$'
    1.42  ! !