I am trying to build a two_axis graph using Gtk2__Ex::Graph::GD. I can't get the second axis to display on my test build. It is probably something simple that is wrong but I have been staring at it for awhile and can't find it. Any ideas?
#!/usr/bin/perl -w
use strict;
use Gtk2 '-init';
use Glib qw/TRUE FALSE/;
use Gtk2::Ex::Graph::GD;
use GD::Graph::Data;


&data_build;
Gtk2->main;


sub data_build {
    my $data_window = Gtk2::Window->new('toplevel');
    $data_window->signal_connect(delete_event=> sub{Gtk2->main_quit});
    $data_window->set_title('Sonde Data');
    $data_window->set_position('center');
    $data_window->set_default_size(350,350);
    
    my $data_table = Gtk2::Table->new(6,2,FALSE);
    
    my $utc_label = Gtk2::Label->new("UTC");
    my $utc_entry = Gtk2::Entry->new();
    $utc_entry->set_editable(0);
    
    my $temp_label = Gtk2::Label->new("Temperature");
    my $temp_entry = Gtk2::Entry->new();
    $temp_entry->set_editable(0);
    
    my  $pres_label = Gtk2::Label->new("Pressure");
    my  $pres_entry = Gtk2::Entry->new();
    $pres_entry->set_editable(0);
    
    my  $rh1_label = Gtk2::Label->new("Relative Humidity(1)");
    my  $rh1_entry = Gtk2::Entry->new();
    $rh1_entry->set_editable(0);
    
    my  $rh2_label = Gtk2::Label->new("Relative Humidity(2)");
    my  $rh2_entry = Gtk2::Entry->new();
    $rh2_entry->set_editable(0);
    
    my $met_data1 = GD::Graph::Data->new([
        [ 201002,201004,201006,201008,201010,201012],
        [ 0,10,20,30,40,50],
        [ 1000,975,950,925,920,910]
    ]) or die GD::Graph::Data->error;
    
    my $met_graph1 = Gtk2::Ex::Graph::GD->new(350, 200, 'lines');
    $met_graph1->set( 
        x_label => 'UTC',
        y1_label => 'Celcius',
        y2_label => 'Millibars',
        y1_max_value => 50,
        y1_min_value => 0,
        y2_max_value => 1000,
        y2_min_value => 900,
        y1_tick_number => 14,
        y2_tick_number => 14,
        two_axis => 2,
        line_width => 3,
        transparent => 0,
        dclrs => [ qw(red blue) ],
        x_label_position    => 1/2,
    );
    
    my $met_image1 = $met_graph1->get_image($met_data1);
    
    $data_table->attach_defaults($utc_label,0,1,0,1);
    $data_table->attach_defaults($utc_entry,1,2,0,1);
    $data_table->attach_defaults($temp_label,0,1,1,2);
    $data_table->attach_defaults($temp_entry,1,2,1,2);
    $data_table->attach_defaults($pres_label,0,1,2,3);
    $data_table->attach_defaults($pres_entry,1,2,2,3);
    $data_table->attach_defaults($rh1_label,0,1,3,4);
    $data_table->attach_defaults($rh1_entry,1,2,3,4);
    $data_table->attach_defaults($rh2_label,0,1,4,5);
    $data_table->attach_defaults($rh2_entry,1,2,4,5);
    $data_table->attach_defaults($met_image1,0,2,5,6);
   
    $data_window->add($data_table);
    $data_window->show_all;

    return 1;
}

[download]

In reply to Gtk2 of GD::Graph two_axis by deadpickle

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.