equal
deleted
inserted
replaced
301 copyStartupFilesFromSmalltalk |
301 copyStartupFilesFromSmalltalk |
302 (buildDirectory / 'stx' / 'projects/smalltalk' ) exists ifFalse:[ |
302 (buildDirectory / 'stx' / 'projects/smalltalk' ) exists ifFalse:[ |
303 (buildDirectory / 'stx' / 'projects/smalltalk' ) recursiveMakeDirectory. |
303 (buildDirectory / 'stx' / 'projects/smalltalk' ) recursiveMakeDirectory. |
304 ]. |
304 ]. |
305 |
305 |
306 #( 'keyboard.rc' 'keyboardMacros.rc' 'display.rc' 'd_win32.rc' |
306 #( |
307 'host.rc' 'h_win32.rc' |
307 'keyboard.rc' |
|
308 'keyboardMacros.rc' |
|
309 'display.rc' |
|
310 'd_win32.rc' |
|
311 'host.rc' |
|
312 'h_win32.rc' |
|
313 'smalltalk.rc' |
|
314 'private.rc' |
308 ) do:[:fn | |
315 ) do:[:fn | |
309 (myTopDirectory / 'stx' / 'projects/smalltalk' / fn) |
316 (myTopDirectory / 'stx' / 'projects/smalltalk' / fn) |
310 copyTo: (buildDirectory / 'stx' / 'projects/smalltalk' / fn) |
317 copyTo: (buildDirectory / 'stx' / 'projects/smalltalk' / fn) |
311 ] |
318 ]. |
|
319 |
|
320 (myTopDirectory / 'stx' / 'doc/online/english/LICENCE_STX.html') |
|
321 copyTo: (buildDirectory / 'stx' / 'projects/smalltalk' / 'LICENCE_STX.html'). |
312 ! |
322 ! |
313 |
323 |
314 copySupportFilesForLinkage |
324 copySupportFilesForLinkage |
315 |files| |
325 |files| |
316 |
326 |
337 ]. |
347 ]. |
338 files := files asOrderedCollection. |
348 files := files asOrderedCollection. |
339 |
349 |
340 OperatingSystem isMSWINDOWSlike ifTrue:[ |
350 OperatingSystem isMSWINDOWSlike ifTrue:[ |
341 projectDefinitionClass applicationIconFileName notNil ifTrue:[ |
351 projectDefinitionClass applicationIconFileName notNil ifTrue:[ |
342 files add:(projectDefinitionClass applicationIconFileName,'.ico') |
352 files add:('projects/smalltalk/',projectDefinitionClass applicationIconFileName,'.ico') |
343 ] |
353 ]. |
|
354 projectDefinitionClass splashFileName notNil ifTrue:[ |
|
355 files add:('projects/smalltalk/',projectDefinitionClass splashFileName,'.bmp') |
|
356 ]. |
344 ]. |
357 ]. |
345 |
358 |
346 files do:[:dllRelativePath | |
359 files do:[:dllRelativePath | |
347 ((buildDirectory / 'stx' / dllRelativePath) exists |
360 ((buildDirectory / 'stx' / dllRelativePath) exists |
348 and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize |
361 and:[ (mySTXTopDirectory / dllRelativePath) fileSize = (buildDirectory / 'stx' / dllRelativePath) fileSize |