Help for this page
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']); }