[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
|