Bert Freudenberg uploaded a new version of Graphics to project The Inbox:
http://source.squeak.org/inbox/Graphics-tk.309.mcz==================== Summary ====================
Name: Graphics-tk.309
Author: bf
Time: 8 April 2015, 1:56:21.259 pm
UUID: 413e3a6e-07a2-4dbc-ae77-7686b831bfee
Ancestors: Graphics-tfel.308
Some Mac applications won't let you drop in those files because they have the wrong Type and Creator. Here is a fix that makes the Type and Creator be ' ' and ' '. This is for filing out an image of a morph.
=============== Diff against Graphics-tfel.308 ===============
Item was changed:
----- Method: ImageReadWriter class>>putForm:onFileNamed: (in category 'image reading/writing') -----
putForm: aForm onFileNamed: fileName
"Store the given form on a file of the given name."
+ | writer theFile |
+ theFile := FileStream newFileNamed: fileName.
+ writer := self on: theFile binary.
- | writer |
- writer := self on: (FileStream newFileNamed: fileName) binary.
Cursor write showWhile: [writer nextPutImage: aForm].
writer close.
+ theFile directory setMacFileNamed: theFile localName type: ' ' creator: ' '.!
- !
Item was changed:
----- Method: JPEGReadWriter2 class>>putForm:quality:progressiveJPEG:onFileNamed: (in category 'image reading/writing') -----
putForm: aForm quality: quality progressiveJPEG: progressiveFlag onFileNamed: fileName
"Store the given Form as a JPEG file of the given name, overwriting any existing file of that name. Quality goes from 0 (low) to 100 (high), where -1 means default. If progressiveFlag is true, encode as a progressive JPEG."
+ | writer theFile |
- | writer |
FileDirectory deleteFilePath: fileName.
+ theFile := FileStream newFileNamed: fileName.
+ writer := self on: theFile binary.
- writer := self on: (FileStream newFileNamed: fileName) binary.
Cursor write showWhile: [
writer nextPutImage: aForm quality: quality progressiveJPEG: progressiveFlag].
writer close.
+ theFile directory setMacFileNamed: theFile localName type: ' ' creator: ' '.!
- !
Locked
