use warnings;
use strict;
use Tk;

# Das mw erzeugen
my $mw = MainWindow->new();
$mw->Label(-text => '     Test für Canvas     ')->pack();

my $canvas = $mw->Scrolled('Canvas', -width => 300, -height => 300);
my $geiss = $mw->Photo(-file => 'ziege1.gif');
my $arc = $canvas->createArc(40, 40, 120, 180);
my $bm = $canvas->createBitmap(30, 30, -bitmap => 'questhead');
my $img = $canvas->createImage(60, 220, -image => $geiss);
my $line = $canvas->createLine(220, 220, 250, 280);
my $oval = $canvas->createOval(230, 80, 290, 150);
my $rec = $canvas->createRectangle(220, 200, 270, 290);
my $pol = $canvas->createPolygon(150, 20, 190, 60, 190, 120);
my $text = $canvas->createText(100, 290,  -text => 'Canvas-Beispiel');
$canvas->pack;

MainLoop;