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