Eliot Miranda uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-eem.220.mcz
==================== Summary ====================
Name: MorphicExtras-eem.220 Author: eem Time: 30 December 2017, 4:33:28.000844 pm UUID: b00fce10-0b97-4b3c-b933-a4d3ab0f12e6 Ancestors: MorphicExtras-tpr.219
Fix guards catching cancelling new file dialog.
=============== Diff against MorphicExtras-tpr.219 ===============
Item was changed: ----- Method: BookMorph>>printPSToFile (in category 'menus') ----- printPSToFile "Ask the user for a filename and print this morph as postscript."
| fileName rotateFlag | fileName := 'MyBook' translated asFileName. + fileName := UIManager default + saveFilenameRequest: 'Filename to save BookMorph' translated + initialAnswer: fileName. + fileName isEmptyOrNil ifTrue: [^ Beeper beep]. - fileName := UIManager default saveFilenameRequest: 'Filename to save BookMorph' translated - initialAnswer: fileName. - fileName isEmpty ifTrue: [^ Beeper beep]. (fileName endsWith: '.ps') ifFalse: [fileName := fileName,'.ps'].
rotateFlag := (UIManager default chooseFrom: { 'portrait (tall)' translated. 'landscape (wide)' translated } title: 'Choose orientation...' translated) = 2.
FileStream newFileNamed: fileName do: [:file| + file nextPutAll: (DSCPostscriptCanvas morphAsPostscript: self rotated: rotateFlag)]! - file nextPutAll: (DSCPostscriptCanvas morphAsPostscript: self rotated: rotateFlag)] - - !
Item was changed: ----- Method: EnvelopeEditorMorph>>saveToDisk: (in category 'menu') ----- saveToDisk: evt | newName | newName := UIManager default saveFilenameRequest: 'Please confirm name for save...' initialAnswer: soundName, '.fmp'. + newName isEmptyOrNil ifTrue: [^ self]. - newName isEmpty ifTrue: [^ self]. FileStream newFileNamed: newName do:[:f| sound storeOn: f]!