What: AniGif
 Where: http://cardtable.go.to/tcltk/ 
 Description: Tk extension allowing you to create, start, stop, restart
        and destroy animated GIFs.  Supports single play images as well as
        images without full image data on each frame.
        Use gifsicle to uncompress compressed/interlaced GIFs before
        subsequent processing.
        Currently at version 1.3 .
 Updated: 03/2002
 Contact: mailto:scfiead_spammenot@hotmail.com 

----
[RS] 2004-07-27: Also, using the widespread [Img] extension, you have access to the partial images of an animated [GIF]. This code was enough for me:
package require Img

 proc anigif file {
    set index 0
    set results {}
    while 1 {
	if [catch {
	    image create photo -file $file -format "gif -index $index"
	} res] {
	    return $results
	}
	lappend results $res
	incr index
    }    
 }

#-- Testing (dumping the animation phases, one next to the other, into a text widget):
 set file [lindex $argv 0]

 pack [text .t]
 foreach img [anigif $file] {
    .t image create end -image $img
 }

----
[Category Package] [Category Graphics]