[Pkg] The Trunk: System-ar.355.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 10 05:15:09 UTC 2010

Andreas Raab uploaded a new version of System to project The Trunk:

==================== 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') -----
  	"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  
  	| 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]!

More information about the Packages mailing list