use strict;
use Tk;
use Tk::Canvas;

my $mw	= MainWindow->new();

# erstelle das canvas und einen pfeil mit der länge $length
my $length = 300;
my $canvas	= $mw->Canvas(-bg => 'white')->pack();
$canvas->createLine(
	0,200,$length,200,
	-arrowshape => [6,10,3],
	-width => 2,
	-arrow => 'last'
);

fill($canvas);

Tk::MainLoop();


sub fill{
	my $widget	= shift;
	my @dates = ([4,"Frisör"],[7,"Arzt"],[20,"Restaurant"]);
	
	my $unit	= $length / 30;	# teile die länge des zeitstrahles durch die anzahl der tage
	foreach my $date (@dates){
		$widget->createText($unit*$date->[0],180, -text => $date->[1]);
		$widget->createText($unit*$date->[0],210, -text => $date->[0]);
		$widget->createLine($unit*$date->[0],190,$unit*$date->[0],200);
	}
}