Bert Freudenberg uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/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: ' '.! - !
squeak-dev@lists.squeakfoundation.org