[etoys-dev] Etoys: MorphicExtras-kfr.7.mcz

[commits at source.squeak.org]

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

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

Name: MorphicExtras-kfr.7
Author: kfr
Time: 17 June 2010, 12:11:15 am
UUID: 581386bc-ce32-e94f-967f-c367f2c57047
Ancestors: MorphicExtras-kfr.6

 SQ-597

Animated Gif has several basic bugs

Some fixes harvested of Mantis made by Jerome Peace

=============== Diff against MorphicExtras-kfr.6 ===============

Item was changed:
  ----- Method: AnimatedImageMorph class>>services (in category 'fileIn/Out') -----
  services
+ 	^ Array
+ 		with: self serviceOpenGIFInWindow
+ 		"with: Form serviceImageImports"
+ 		"with: Form serviceImageAsBackground"!
- 	
- 	| a |
- 	a _ Array with: self serviceOpenGIFInWindow.
- 
- 	Preferences eToyFriendly ifFalse: [
- 		a _ (Array with: Form serviceImageAsBackground with: Form serviceImageImports), a.
- 	].
- 
- 	^ a.
- !

Item was changed:
  ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') -----
  step
- 	"Period action: animate the image."
- 
  	| d |
  	images isEmpty ifTrue: [^ self].
  		
  	nextTime > Time millisecondClockValue
  		ifTrue: [^self].
+ 	self changed .
+ 	self image: (images at:
+ 	(imageIndex _ imageIndex \\ images size + 1)).
- 	self image: (images at: (imageIndex _ imageIndex \\ images size + 1)).
  	self changed . 
  	d _ (delays at: imageIndex) ifNil: [0].
+ 	nextTime := Time millisecondClockValue + d
+ !
- 	nextTime := Time millisecondClockValue + d!

Item was changed:
  ----- Method: AnimatedImageMorph class>>serviceOpenGIFInWindow (in category 'fileIn/Out') -----
  serviceOpenGIFInWindow
  	"Answer a service for opening a gif graphic in a window"
+ 	^ (SimpleServiceEntry
+ 		provider: self
+ 		label: 'open the graphic as a morph'
- 
- 	^ (SimpleServiceEntry 
- 		provider: self 
- 		label: 'open graphic in a window' translatedNoop
  		selector: #openGIFInWindow:
+ 		description: 'open a GIF graphic file as a morph'
+ 		buttonLabel: 'open gif')
+ 		argumentGetter: [:fileList | fileList readOnlyStream]!
- 		description: 'open a GIF graphic file in a window' translatedNoop
- 		buttonLabel: 'open' translatedNoop)
- 		argumentGetter: [ :fileList | fileList readOnlyStream ]!