#!/usr/bin/perl -w

use Tk;
use strict;

# Main program / GUI setup
my $mw = MainWindow->new;
my $c = $mw->Scrolled('Canvas', -width => 200, -height => 200)->grid;
$c->configure(-background =>'blue', -scrollregion => [ 0, 0, 500, 500 ]);

#Grid
$c->createGrid(0, 0, 10, 10);
$c->createGrid(0, 0, 100, 100, -lines => 1, -dash => '.-');

$c->pack(-expand => 1, -fill => 'both');

my $rect = $c->createRectangle(20, 20, 40, 40, 
	-outline => 'yellow', 
	-fill => 'yellow');

MainLoop;