[squeak-dev] The Trunk: MorphicExtras-eem.220.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Dec 31 00:33:41 UTC 2017


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



More information about the Squeak-dev mailing list