equal
deleted
inserted
replaced
441 |
441 |
442 installWhat == #full ifTrue:[ |
442 installWhat == #full ifTrue:[ |
443 "/ MUST be under stx (for packagePath stuff) |
443 "/ MUST be under stx (for packagePath stuff) |
444 fullDir asFilename baseName ~= 'stx' ifTrue:[ |
444 fullDir asFilename baseName ~= 'stx' ifTrue:[ |
445 fullDir := fullDir asFilename constructString:'stx'. |
445 fullDir := fullDir asFilename constructString:'stx'. |
|
446 ]. |
|
447 fullDir asFilename recursiveMakeDirectory. |
|
448 fullDir asFilename exists ifFalse:[ |
|
449 self warn:'Oops - failed to create directory: ' , fullDir. |
|
450 ^ false |
446 ]. |
451 ]. |
447 |
452 |
448 msg at:4 put:(' all from CD' asText allBold). |
453 msg at:4 put:(' all from CD' asText allBold). |
449 msg at:6 put:' ' , (fullDir asText allBold). |
454 msg at:6 put:' ' , (fullDir asText allBold). |
450 actionTextHolder value:nil. |
455 actionTextHolder value:nil. |