The Trunk: Tools-eem.427.mcz

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