Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.785.mcz==================== Summary ====================
Name: Tools-eem.785
Author: eem
Time: 30 December 2017, 4:37:31.81546 pm
UUID: bb456c9e-c2d0-4ab8-833d-d7cb3320b522
Ancestors: Tools-tpr.784
Add missing guard to catch cancelling new file dialog.
=============== Diff against Tools-tpr.784 ===============
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 saveFilenameRequest: 'File out on which file?' initialAnswer: 'methods'.
+ fileName isEmptyOrNil ifTrue: [^self].
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]].
FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!