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