[squeak-dev] The Trunk: Kernel-bf.707.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 24 18:05:59 UTC 2012

Bert Freudenberg uploaded a new version of Kernel to project The Trunk:

==================== Summary ====================

Name: Kernel-bf.707
Author: bf
Time: 24 July 2012, 11:05:11.73 am
UUID: 52d2a763-5135-4fb5-9c1c-cdcdd13013a6
Ancestors: Kernel-eem.706

Fix fileout of changeset missing override methods.

=============== Diff against Kernel-eem.706 ===============

Item was changed:
  ----- Method: ClassDescription>>fileOutChangedMessages:on:moveSource:toFile: (in category 'fileIn/Out') -----
  fileOutChangedMessages: aSet on: aFileStream moveSource: moveSource toFile: fileIndex 
  	"File a description of the messages of this class that have been 
  	changed (i.e., are entered into the argument, aSet) onto aFileStream.  If 
  	moveSource, is true, then set the method source pointer to the new file position.
  	Note when this method is called with moveSource=true, it is condensing the
  	.changes file, and should only write a preamble for every method."
  	| org |
  	(org := self organization) categories do: 
  		[:cat | 
  		| sels |
  		sels := (org listAtCategoryNamed: cat) select: [:sel | aSet includes: sel].
+ 		(moveSource and: [(cat beginsWith: '*') and: [cat endsWith: '-override']])
+ 			ifTrue: ["when condensing sources/changes, preserve overridden methods"
- 		((cat beginsWith: '*') and: [cat endsWith: '-override'])
- 			ifTrue: [
  				sels do:
  					[:sel |  self printMethodChunkHistorically: sel on: aFileStream
  						moveSource: moveSource toFile: fileIndex]]
  			ifFalse: [
  				sels do:
  					[:sel |  self printMethodChunk: sel withPreamble: true on: aFileStream
  						moveSource: moveSource toFile: fileIndex]]]!

More information about the Squeak-dev mailing list