[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