Draw image on a canvas : Canvas « GUI « Perl






  1. Perl
  2. GUI
  3. Canvas

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;








Related examples in the same category

1.Create Oval
2.Create Polygon
3.Create Rectangle
4.Draw line
5.Set 'fill' for shape
6.Using a canvas control