[squeak-dev] The Inbox: Graphics-tk.309.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 8 11:56:34 UTC 2015


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



More information about the Squeak-dev mailing list