The Trunk: Kernel-bf.707.mcz

Bert Freudenberg uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-bf.707.mcz

==================== 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]]]!