ProjectBuilder.st
changeset 3182 c7579f84fa6b
parent 3127 f28722d20fbb
child 3307 58f20c91f623
equal deleted inserted replaced
3181:21e690b923ed 3182:c7579f84fa6b
   847         (packageDef compiled_classNames_common ,
   847         (packageDef compiled_classNames_common ,
   848         packageDef compiled_classNamesForPlatform) do:[:eachClassName |
   848         packageDef compiled_classNamesForPlatform) do:[:eachClassName |
   849             |cls fileName newSource|
   849             |cls fileName newSource|
   850 
   850 
   851             cls := Smalltalk classNamed:eachClassName.
   851             cls := Smalltalk classNamed:eachClassName.
   852             self assert:cls isLoaded.
   852             (cls notNil and:[cls isLoaded]) ifFalse:[
       
   853                 self error:'missing class: ',eachClassName mayProceed:true
       
   854             ].
   853             fileName := (Smalltalk fileNameForClass:cls),'.st'.
   855             fileName := (Smalltalk fileNameForClass:cls),'.st'.
   854             fileName := packageTargetDir asFilename construct:fileName.
   856             fileName := packageTargetDir asFilename construct:fileName.
   855             fileName exists ifTrue:[
   857             fileName exists ifTrue:[
   856                 newSource := String streamContents:[:s | cls fileOutOn:s withTimeStamp:false].
   858                 newSource := String streamContents:[:s | cls fileOutOn:s withTimeStamp:false].
   857                 newSource = fileName contentsAsString ifFalse:[
   859                 newSource = fileName contentsAsString ifFalse:[