buildMethodTopicsOn: topic for: aClass
| stream methodComment |
stream := String new writeStream.
aClass selectors asSortedCollection do: [:selector |
methodComment := (aClass>>selector) comment.
addMethodsWithoutComment | methodComment notNil ifTrue: [
stream
nextPutAll: '`';
nextPutAll: aClass name;
nextPutAll: '>>#';
nextPutAll: selector asString;
nextPutAll: '`';
cr.
methodComment ifNil: [ methodComment := 'Method has no comment.' ].
stream
nextPutAll: '_"';
nextPutAll: methodComment; nextPutAll: '"_';cr;cr ] ].
topic addNode: (MicroDownParser new parse: stream contents).