[squeak-dev] The Trunk: MorphicExtras-mt.310.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 10 14:21:58 UTC 2022


Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-mt.310.mcz

==================== Summary ====================

Name: MorphicExtras-mt.310
Author: mt
Time: 10 March 2022, 3:21:55.856178 pm
UUID: 1a70b6a7-c491-ef4a-9f70-37a0a6153327
Ancestors: MorphicExtras-mt.309

Locale clean-up. Complements Multilingual-mt.269 and System-mt.1318

=============== Diff against MorphicExtras-mt.309 ===============

Item was changed:
  ----- Method: Morph>>printPSToFileNamed: (in category '*MorphicExtras-menus') -----
  printPSToFileNamed: aString 
  	"Ask the user for a filename and print this morph as postscript."
  	| fileName rotateFlag psCanvasType psExtension |
  
  	psCanvasType := PostscriptCanvas defaultCanvasType.
  	psExtension := psCanvasType defaultExtension.
  	fileName := UIManager default saveFilenameRequest: 'File name? '
  			initialAnswer: (aString, psExtension) asFileName.
  	fileName ifNil: [^ Beeper beep].
  
  	rotateFlag := (UIManager default chooseFrom: {
  		'portrait (tall)' translated.
  		'landscape (wide)' translated.
  	} title: 'Choose orientation...' translated) = 2.
+ 	(FileStream newFileNamed: fileName)
- 	((FileStream newFileNamed: fileName) converter: TextConverter defaultSystemConverter)
  		nextPutAll: (psCanvasType morphAsPostscript: self rotated: rotateFlag);
  		 close!



More information about the Squeak-dev mailing list