[squeak-dev] The Trunk: System-nice.680.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jul 22 22:17:14 UTC 2014

Nicolas Cellier uploaded a new version of System to project The Trunk:

==================== Summary ====================

Name: System-nice.680
Author: nice
Time: 23 July 2014, 12:15:58.869 am
UUID: 46ed1f7b-d575-4d6d-9985-5e0e9a40143d
Ancestors: System-kfr.679

RWStream Shoot them up part 4:
How to drop an image without a RWBinaryOrTextStream.
I feel like applying a balm on chicken pox one by one. There are a lot of them, my image is crippled, and it's itching considerably!

=============== Diff against System-kfr.679 ===============

Item was changed:
  ----- Method: ExternalDropHandler class>>defaultImageHandler (in category 'private') -----
  		type: 'image/'
  		extension: nil
  		action: [:stream :pasteUp :event |
  			| image sketch |
  			stream binary.
+ 			image := Form fromBinaryStream: stream contents asByteArray readStream.
- 			image := Form fromBinaryStream: ((RWBinaryOrTextStream with: stream contents) reset).
  			Project current resourceManager 
  				addResource: image 
  				url: (FileDirectory urlForFileNamed: stream name) asString.
  			sketch := World drawingClass withForm: image.
  			pasteUp addMorph: sketch centeredNear: event position.
  			image := sketch := nil]!

More information about the Squeak-dev mailing list