ProjectBuilder.st
changeset 3338 c62417f88241
parent 3333 32dc40dc06cf
child 3343 ad0041b8f3d2
equal deleted inserted replaced
3337:f9ec2e76c54c 3338:c62417f88241
   422                 self activityNotification:'   skip missing file: ',source pathName.
   422                 self activityNotification:'   skip missing file: ',source pathName.
   423             ] ifTrue:[
   423             ] ifTrue:[
   424                 dest := packageTargetDir / dllRelativeDestPath.
   424                 dest := packageTargetDir / dllRelativeDestPath.
   425                 (dest exists not
   425                 (dest exists not
   426                  or:[source fileSize ~= dest fileSize
   426                  or:[source fileSize ~= dest fileSize
   427                  or:[source modificationTime >= dest modificationTime
   427                  or:[source modificationTime > dest modificationTime
   428                  "/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ]
   428                  "/ or:[ ((dllSourceDir / dllRelativePath) sameContentsAs:(packageTargetDir / dllRelativePath)) not ]
   429                 ]]) ifTrue:[
   429                 ]]) ifTrue:[
   430                     Transcript showCR:'updating ',dllRelativeDestPath.
   430                     Transcript showCR:'updating ',dllRelativeDestPath.
   431                     dest directory recursiveMakeDirectory.
   431                     dest directory recursiveMakeDirectory.
   432                     source copyTo:dest.
   432                     source copyTo:dest.
   596 !
   596 !
   597 
   597 
   598 copySupportFilesForLinkage
   598 copySupportFilesForLinkage
   599     "copy additional files which are req'd for linkage to the build directory"
   599     "copy additional files which are req'd for linkage to the build directory"
   600 
   600 
   601     |files|
   601     |files fn|
   602 
   602 
   603     OperatingSystem isMSWINDOWSlike ifTrue:[
   603     OperatingSystem isMSWINDOWSlike ifTrue:[
   604         files := #( 
   604         files := #( 
   605                     'librun/genDate.com'
   605                     'librun/genDate.com'
   606                     'librun/main.c'
   606                     'librun/main.c'
   650                 )
   650                 )
   651     ].
   651     ].
   652     files := files asOrderedCollection.
   652     files := files asOrderedCollection.
   653 
   653 
   654     OperatingSystem isMSWINDOWSlike ifTrue:[
   654     OperatingSystem isMSWINDOWSlike ifTrue:[
   655         projectDefinitionClass applicationIconFileName notNil ifTrue:[
   655         (fn := projectDefinitionClass applicationIconFileNameWindows) notNil ifTrue:[
   656             files add:('projects/smalltalk/',projectDefinitionClass applicationIconFileName,'.ico')
   656             fn asFilename suffix isEmptyOrNil ifTrue:[
   657         ].
   657                 fn := fn,'.ico'
   658         projectDefinitionClass splashFileName notNil ifTrue:[
   658             ].    
   659             files add:('projects/smalltalk/',projectDefinitionClass splashFileName,'.bmp')
   659             files add:('projects/smalltalk/',fn)
       
   660         ].
       
   661         (fn := projectDefinitionClass splashFileName) notNil ifTrue:[
       
   662             files add:('projects/smalltalk/',fn,'.bmp')
       
   663         ].
       
   664     ].
       
   665     OperatingSystem isOSXlike ifTrue:[
       
   666         (fn := projectDefinitionClass applicationIconFileNameOSX) notNil ifTrue:[
       
   667             fn asFilename suffix isEmptyOrNil ifTrue:[
       
   668                 fn := fn,'.icns'
       
   669             ].    
       
   670             files add:('projects/smalltalk/',fn)
   660         ].
   671         ].
   661     ].
   672     ].
   662 
   673 
   663     files do:[:relativePath |
   674     files do:[:relativePath |
   664         (mySTXTopDirectory / relativePath) exists ifTrue:[
   675         (mySTXTopDirectory / relativePath) exists ifTrue:[