The Inbox: Graphics-tk.309.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Graphics-tk.309.mcz

commits-2
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: '    '.!
- !