Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.427.mcz
==================== Summary ====================
Name: Tools-eem.427 Author: eem Time: 12 November 2012, 9:50:37.504 am UUID: 119e2ba2-1a30-49db-bc40-043007618b42 Ancestors: Tools-ul.425
Include class comments when filing out recent changes
=============== Diff against Tools-ul.425 ===============
Item was changed: ----- Method: MessageSet>>fileOutMessage (in category 'message functions') ----- fileOutMessage "Put a description of the selected method on a file, or all methods if none selected."
| fileName | self selectedMessageName ifNotNil: [^super fileOutMessage]. + fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. - fileName := self request: 'File out on which file?' initialAnswer: 'methods'. Cursor write showWhile: [| internalStream | internalStream := WriteStream on: (String new: 1000). internalStream header; timeStamp. messageList do: [:methodRef| + methodRef methodSymbol == #Comment + ifTrue: + [methodRef actualClass organization + putCommentOnFile: internalStream + numbered: 1 + moveSource: false + forClass: methodRef actualClass] + ifFalse: + [methodRef actualClass + printMethodChunk: methodRef methodSymbol + withPreamble: true + on: internalStream + moveSource: false + toFile: nil]]. - methodRef actualClass - printMethodChunk: methodRef methodSymbol - withPreamble: true - on: internalStream - moveSource: false - toFile: nil]. FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!
packages@lists.squeakfoundation.org