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 ]!
etoys-dev@lists.squeakfoundation.org