[squeak-dev] The Trunk: Kernel-ul.910.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 9 01:41:42 UTC 2015


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.
  !



More information about the Squeak-dev mailing list