use warnings;
use strict;
use Tk;

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


my $c = $mw->Scrolled('Canvas')->pack();
$c->configure(-scrollregion => [0,0, 400, 150]);

$c->createGrid(0, 0, 10, 10);
$c->createGrid(0, 0, 50, 50, -lines => 1, -dash => '-.');
$c->createGrid(0, 0, 100, 100, -width => 3, -lines => 1);

my $button = $c->Button(-text => "Exit", 
                           -command => sub { exit; });
                           
my $win = $c->createWindow(20, 10, -window => $button);

MainLoop;