in reply to Which tk to use and how to show images?
#!/usr/bin/perl use Gtk2 '-init'; use GD::Graph; use GD::Graph::bars; # almost straignt from the pod @data = ( ["1st","2nd","3rd","4th","5th","6th","7th", "8th", "9th"], [ 1, 2, 5, 6, 3, 1.5, 1, 3, 4], ); my $graph = GD::Graph::bars->new(400, 300); $graph->set( x_label => 'X Label', y_label => 'Y label', title => 'Some simple graph', y_max_value => 8, y_tick_number => 8, y_label_skip => 2 ) or die $my_graph->error; my $gd = $graph->plot(\@data) or die $my_graph->error; open(IMG, '>file.png') or die $!; binmode IMG; print IMG $gd->png; close IMG; my $win = Gtk2::Window->new; my $pixbuf = Gtk2::Gdk::Pixbuf->new_from_file("file.png") or die "no g +raph"; my $img = Gtk2::Image->new_from_pixbuf($pixbuf); my $vbox = Gtk2::VBox->new(); $vbox->pack_start($img, 0,0,0); $win->add($vbox); $win->show_all(); Gtk2->main;
|
|---|