[squeak-dev] The Trunk: Tools-eem.301.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 22 00:20:45 UTC 2011
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]!
More information about the Squeak-dev
mailing list
|