The Trunk: MorphicExtras-eem.220.mcz

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