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.'!