view release on metacpan or  search on metacpan

Thumbnail.pm  view on Meta::CPAN

$Tk::Thumbnail::VERSION = '1.3';

package Tk::Thumbnail;

use Carp;
use File::Basename;
use Tk::widgets qw/ Animation JPEG LabEntry MultiMediaControls Pane PNG /;
use base qw/ Tk::Derived Tk::Pane /;
use vars qw/ $err $info /;
use strict;

Construct Tk::Widget 'Thumbnail';

sub ClassInit {

    my( $class, $mw ) = @_;

    $err  = $mw->Photo( -data => $class->err );