Mega Code Archive

 

Categories / Perl / GUI

 

Draw image on a canvas

use Tk; my $main = MainWindow->new; $canvas = $main->Canvas('-width' => 330,     -height => 90);  $main->Photo('image1',      -file => 'image.gif'); $canvas->createImage(0, 0,      -anchor => 'nw',     -image => image1); $canvas->pack; MainLoop;