Alexander Lazarević uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-laza.266.mcz
==================== Summary ====================
Name: System-laza.266 Author: laza Time: 25 February 2010, 11:00:30.863 pm UUID: aadb051d-e903-694c-8b57-4df33f99423f Ancestors: System-bf.265
Changed SystemDictionary>>condenseSources to wirte the source file to the default directory
=============== Diff against System-bf.265 ===============
Item was changed: ----- Method: SystemDictionary>>condenseSources (in category 'housekeeping') ----- + condenseSources - condenseSources "Move all the changes onto a compacted sources file." "Smalltalk condenseSources"
+ | newSourcesFile defaultDirectory newVersion currentVersion | - | f dir newVersionString | Utilities fixUpProblemsWithAllCategory. "The above removes any concrete, spurious '-- all --' categories, which mess up the process." + defaultDirectory := FileDirectory default. + currentVersion := SmalltalkImage current sourceFileVersionString. + newVersion := UIManager default + request: 'Please designate the version\for the new source code file...' withCRs + initialAnswer: currentVersion. + newVersion ifEmpty: [ ^ self ]. + newVersion = currentVersion ifTrue: [ ^ self error: 'The new source file must not be the same as the old.' ]. + SmalltalkImage current sourceFileVersionString: newVersion. - dir := FileDirectory default. - newVersionString := UIManager default request: 'Please designate the version - for the new source code file...' initialAnswer: SmalltalkImage current sourceFileVersionString. - newVersionString ifNil: [^ self]. - newVersionString = SmalltalkImage current sourceFileVersionString ifTrue: - [^ self error: 'The new source file must not be the same as the old.']. - SmalltalkImage current sourceFileVersionString: newVersionString.
"Write all sources with fileIndex 1" + newSourcesFile := defaultDirectory newFileNamed: (defaultDirectory localNameFor: SmalltalkImage current sourcesName). + newSourcesFile ifNil: [ ^ self error: 'Couldn''t create source code file in' withCRs, defaultDirectory name]. + newSourcesFile + header; + timeStamp. + 'Condensing Sources File...' + displayProgressAt: Sensor cursorPoint + from: 0 + to: self classNames size + self traitNames size + during: + [ :bar | + | count | + count := 0. + Smalltalk allClassesAndTraitsDo: + [ :classOrTrait | + bar value: (count := count + 1). + classOrTrait + fileOutOn: newSourcesFile + moveSource: true + toFile: 1 ] ]. + newSourcesFile + trailer; + close. + - f := FileStream newFileNamed: SmalltalkImage current sourcesName. - f header; timeStamp. - 'Condensing Sources File...' - displayProgressAt: Sensor cursorPoint - from: 0 to: self classNames size + self traitNames size - during: - [:bar | | count | count := 0. - Smalltalk allClassesAndTraitsDo: - [:classOrTrait | bar value: (count := count + 1). - classOrTrait fileOutOn: f moveSource: true toFile: 1]]. - f trailer; close. - "Make a new empty changes file" SmalltalkImage current closeSourceFiles. + defaultDirectory + rename: SmalltalkImage current changesName - dir rename: SmalltalkImage current changesName toBe: SmalltalkImage current changesName , '.old'. (FileStream newFileNamed: SmalltalkImage current changesName) + header; + timeStamp; + close. - header; timeStamp; close. SmalltalkImage current lastQuitLogPosition: 0. - self setMacFileInfoOn: SmalltalkImage current changesName. + self setMacFileInfoOn: newSourcesFile name. - self setMacFileInfoOn: SmalltalkImage current sourcesName. SmalltalkImage current openSourceFiles. + self inform: 'Source files have been rewritten to' withCRs, newSourcesFile name, '\Check that all is well,\and then save/quit.' withCRs! - self inform: 'Source files have been rewritten!! - Check that all is well, - and then save/quit.'!