#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Chart::Areas;
my $mw = MainWindow->new(
-title => 'Tk::Chart::Areas example',
-background => 'white',
);
my $chart = $mw->Areas(
-title => 'Tk::Chart::Areas',
-xlabel => 'X Label',
-ylabel => 'Y Label',
-linewidth => 1,
-background => 'snow',
)->pack(qw / -fill both -expand 1 /);
my @data = (
[ '1st', '2nd', '3rd', '4th', '5th', '6th', '7th', '8th', '9th' ],
[ 5, 12, 24, 33, 19, 8, 6, 15, 21 ],
[ -1, -2, -5, -6, -3, 1.5, 1, 1.3, 2 ]
);
# Add a legend to the graph
my @legends = ( 'legend 1', 'legend 2', );
$chart->set_legend(
-title => 'Title legend',
-data => \@legends,
-titlecolors => 'blue',
);
# Add help identification
$chart->set_balloon();
# Create the graph
$chart->plot( \@data );
MainLoop();