The Trunk: Tools-eem.301.mcz

Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.301.mcz

==================== Summary ====================

Name: Tools-eem.301
Author: eem
Time: 21 March 2011, 5:19:18.617 pm
UUID: de44f52b-43f4-44a1-8173-aa2f535fc71e
Ancestors: Tools-eem.295, Tools-cmm.300

Make MessageSet offer to file-out all methods if no method
is selected.

=============== Diff against Tools-cmm.300 ===============

Item was added:
+ ----- 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'.
+ Cursor write showWhile:
+ [| internalStream |
+ internalStream := WriteStream on: (String new: 1000).
+ internalStream header; timeStamp.
+ messageList do:
+ [:methodRef|
+ methodRef actualClass
+ printMethodChunk: methodRef methodSymbol
+ withPreamble: true
+ on: internalStream
+ moveSource: false
+ toFile: nil].
+ FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!