The Trunk: Kernel-ul.910.mcz

Levente Uzonyi uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ul.910.mcz

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

Name: Kernel-ul.910
Author: ul
Time: 9 March 2015, 2:24:39.637 am
UUID: 8c3e3968-8e23-4e8c-a875-deff467edebb
Ancestors: Kernel-mt.909

When saving a class comment, flush the changes file, unless we're doing a file-in.

=============== Diff against Kernel-mt.909 ===============

Item was changed:
  ----- Method: ClassDescription>>classComment:stamp: (in category 'fileIn/Out') -----
  classComment: aString stamp: aStamp
  "Store the comment, aString or Text or RemoteString, associated with the class we are organizing.  Empty string gets stored only if had a non-empty one before."
 
  | ptr header file oldCommentRemoteStr |
  (aString isKindOf: RemoteString) ifTrue:
  [SystemChangeNotifier uniqueInstance classCommented: self.
  ^ self organization classComment: aString stamp: aStamp].
 
  oldCommentRemoteStr := self organization commentRemoteStr.
  (aString size = 0) & (oldCommentRemoteStr == nil) ifTrue: [^ self organization classComment: nil].
  "never had a class comment, no need to write empty string out"
 
  ptr := oldCommentRemoteStr ifNil: [0] ifNotNil: [oldCommentRemoteStr sourcePointer].
  SourceFiles ifNotNil: [(file := SourceFiles at: 2) ifNotNil:
  [file setToEnd; cr; nextPut: $!!. "directly"
  "Should be saying (file command: 'H3') for HTML, but ignoring it here"
  header := String streamContents: [:strm | strm nextPutAll: self name;
  nextPutAll: ' commentStamp: '.
  aStamp storeOn: strm.
  strm nextPutAll: ' prior: '; nextPutAll: ptr printString].
  file nextChunkPut: header]].
  self organization classComment: (RemoteString newString: aString onFileNumber: 2) stamp: aStamp.
+ file ifNotNil: [ InMidstOfFileinNotification signal ifFalse: [ file flush ] ].
  SystemChangeNotifier uniqueInstance classCommented: self.
  !