Select Code to Download

sub new
{
 my ($class,$widget,%args) = @_;
...
 $obj->_get_gif_info;
 return $obj;
}

sub start_animation
{
 my ($obj,$period) = @_;
...
 $obj->{'_period_'} = $period if $period;
 $obj->{'_NextId_'} = $w->repeat($obj->{'_period_'},[$obj,'next_image_
+in_animation']);
}