[Pkg] The Trunk: Tools-eem.785.mcz

[commits at source.squeak.org]

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