Hi Any idea why the "aString isKindOf: RemoteString" is there?
In TClassDescription: 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." > > >> | pointer header file oldCommentRemoteString oldComment oldStamp | > > oldComment := self organization classComment. > > oldStamp := self organization commentStamp. > > >> (aString isKindOf: RemoteString) ifTrue: [ > > SystemAnnouncer uniqueInstance > > class: self > > oldComment: oldComment > > newComment: aString string > > oldStamp: oldStamp > > newStamp: aStamp. > > ^ self organization classComment: aString stamp: aStamp]. > > >> oldCommentRemoteString := self organization commentRemoteStr. > > (aString size = 0) & (oldCommentRemoteString isNil) ifTrue: [^ self >> organization classComment: nil]. > > "never had a class comment, no need to write empty string out" > > >> pointer := oldCommentRemoteString > > ifNil: [0] > > ifNotNil: [oldCommentRemoteString sourcePointer]. > > (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: pointer printString]. > > file nextChunkPut: header]. > > self organization > > classComment: (RemoteString newString: aString onFileNumber: 2) > > stamp: aStamp. > > SystemAnnouncer uniqueInstance > > class: self > > oldComment: oldComment > > newComment: aString > > oldStamp: oldStamp > > newStamp: aStamp > > (nice method eh!) Martín
