[etoys-dev] Etoys: Graphics-kfr.10.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Graphics to project Etoys:
http://source.squeak.org/etoys/Graphics-kfr.10.mcz

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

Name: Graphics-kfr.10
Author: kfr
Time: 9 March 2012, 11:17:14 am
UUID: e83f2b5f-32e7-4572-90c0-388f9b1ffb64
Ancestors: Graphics-kfr.9

Bug fixes for animated gif

=============== Diff against Graphics-kfr.9 ===============

Item was added:
+ ----- Method: AnimatedGIFReadWriter>>understandsImageFormat (in category 'accessing') -----
+ understandsImageFormat
+ 	
+ 	^('abc' collect: [:x | stream next asCharacter]) = 'GIF'!

Item was changed:
  ----- Method: Form class>>openImageInWindow: (in category 'file list services') -----
  openImageInWindow: fullName
  	"Handle five file formats: GIF, JPG, PNG, Form storeOn: (run coded), and BMP.
  	Fail if file format is not recognized.
  	Does nothing if called with nil filename."
  
  	| image myStream sketch |
  	fullName ifNil: [^ self].  
  	myStream _ (FileStream readOnlyFileNamed: fullName) binary.
  	image _ self fromBinaryStream: myStream.
  	myStream close.
  
  	Smalltalk isMorphic ifTrue:[
+ 		
  		Project current resourceManager 
  			addResource: image 
  			url: (FileDirectory urlForFileNamed: fullName) asString.
  	].
  
  	Smalltalk isMorphic
  		ifTrue: [
+                (image isKindOf: Array)
+ 			ifTrue:[sketch := (AnimatedImageMorph new fromArray: image) openInWorld]
+ 			ifFalse:[sketch := (World drawingClass withForm: image) openInWorld].
- 			sketch _ (World drawingClass withForm: image) openInWorld.
  			sketch setNamePropertyTo: (FileDirectory baseNameFor: (FileDirectory localNameFor: myStream fullName)).
  			sketch setProperty: #originalEncoding toValue: (FileDirectory extensionFor: myStream fullName)]
  		ifFalse: [FormView open: image named: fullName]!

Item was removed:
- ----- Method: GIFReadWriter>>understandsImageFormat (in category 'accessing') -----
- understandsImageFormat
- 	^('abc' collect: [:x | stream next asCharacter]) = 'GIF'!

Item was changed:
  ----- Method: ImageReadWriter class>>formFromStream: (in category 'image reading/writing') -----
  formFromStream: aBinaryStream
  	"Answer a ColorForm stored on the given stream.  closes the stream"
  	| reader readerClass form  |
  
+ 	readerClass := self withAllSubclasses
- 	readerClass _ self withAllSubclasses
  		detect: [:subclass | subclass understandsImageFormat: aBinaryStream]
  		ifNone: [
  			aBinaryStream close.
  			^self error: 'image format not recognized'].
+ 	reader := readerClass new on: aBinaryStream reset.
- 	reader _ readerClass new on: aBinaryStream reset.
  	Cursor read showWhile: [
+ 		(reader isKindOf: AnimatedGIFReadWriter)
+ 										ifTrue:[form := {reader allImages. reader delays}]
+ 										ifFalse:[form := reader nextImage].
- 		form _ reader nextImage.
  		reader close].
  	^ form
  !

Item was removed:
- ----- Method: InfiniteForm>>addFillStyleMenuItems:hand:from: (in category 'menu') -----
- addFillStyleMenuItems: aMenu hand: aHand from: aMorph
- 	"Add the items for changing the current fill style of the receiver"
- 
- 	"prevents a walkback when control menu is built for morph with me as color"!