view release on metacpan or  search on metacpan

examples/graph-gd-demo.pl  view on Meta::CPAN

use strict;
use warnings;

use Gtk2::Ex::Graph::GD;
use GD::Graph::Data;
use Gtk2 -init;
use Glib qw /TRUE FALSE/;
use Data::Dumper;

my $graph = Gtk2::Ex::Graph::GD->new(500, 300, 'bars');

# All the properties set here go straight into the GD::Graph::* object created inside.
# Therefore, any property acceptable to the GD::Graph::* object can be passed through here
$graph->set (
	title           => 'Mice, Fish and Lobsters',
	x_labels_vertical => TRUE,
	bar_spacing     => 1,
	shadowclr       => 'dred',
	transparent     => 0,
	# cumulate		=> TRUE,
	type => ['lisen', 'bars', 'bars'],
);

my @legend_keys = ('Field Mice Population', 'Fish Population', 'Lobster Growth in millions');
$graph->set_legend(@legend_keys);

my $data = GD::Graph::Data->new([
    [ 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,],
    [  1,  2,  5, 8,  3, 4.5,  1, 3,  4],
    [1.4,  4, 15, 6, 13, 1.5, 11, 3,  4],
    [11.4,  14, 22, 16, 1.3, 15, 1, 13,  14],
]) or die GD::Graph::Data->error;

$graph->signal_connect ('mouse-over' =>
	sub {
		#print Dumper @_;
	}
);

$graph->signal_connect ('clicked' =>
	sub {
		print Dumper @_;
	}
);

# This actually returns an eventbox instead of an image. 
# But you don't <really> care either way, do you ?
my $image = $graph->get_image($data);

my $window = Gtk2::Window->new;
$window->signal_connect(destroy => sub { Gtk2->main_quit; });
$window->set_default_size(700, 500);
$window->add($image);
$window->show_all;
Gtk2->main;