Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.355.mcz==================== Summary ====================
Name: System-ar.355
Author: ar
Time: 9 August 2010, 10:13:55.423 pm
UUID: 861d5068-588a-c045-93b6-a1228ccee7a3
Ancestors: System-dtl.354
Don't let ChangeSet compute the full name for the fileout since this will conflict with the fixName: usage in writeSourceCodeFrom: (it's no longer necessary to do that since FileStream>>writeSourceCodeFrom:... now vectors to the right place).
=============== Diff against System-dtl.354 ===============
Item was changed:
----- Method: ChangeSet>>fileOut (in category 'fileIn/Out') -----
fileOut
"File out the receiver, to a file whose name is a function of the
change-set name and either of the date & time or chosen to have a
unique numeric tag, depending on the preference
'changeSetVersionNumbers'"
| slips nameToUse |
self checkForConversionMethods.
ChangeSet promptForDefaultChangeSetDirectoryIfNecessary.
nameToUse := Preferences changeSetVersionNumbers
ifTrue: [self defaultChangeSetDirectory nextNameFor: self name extension: FileStream cs]
ifFalse: [self name , FileDirectory dot , Utilities dateTimeSuffix, FileDirectory dot , FileStream cs].
- nameToUse := self defaultChangeSetDirectory fullNameFor: nameToUse.
Cursor write showWhile: [ | internalStream |
internalStream := WriteStream on: (String new: 10000).
internalStream header; timeStamp.
self fileOutPreambleOn: internalStream.
self fileOutOn: internalStream.
self fileOutPostscriptOn: internalStream.
internalStream trailer.
FileStream writeSourceCodeFrom: internalStream baseName: (nameToUse copyFrom: 1 to: nameToUse size - 3) isSt: false useHtml: false.
].
Preferences checkForSlips
ifFalse: [^ self].
slips := self checkForSlips.
(slips size > 0
and: [(UIManager default chooseFrom: #('Ignore' 'Browse slips')
title: 'Methods in this fileOut have halts
or references to the Transcript
or other ''slips'' in them.
Would you like to browse them?')
= 2])
ifTrue: [self systemNavigation browseMessageList: slips name: 'Possible slips in ' , name]!
Locked
