view release on metacpan or  search on metacpan

bin/LPDS.pl  view on Meta::CPAN

    #
    # create canvas object
    #
    $CANVAS = Goo::Canvas->new();
    $CANVAS->set_size_request( 1000, 400 );
    $CANVAS->set_bounds( 0, 0, 1000, 400 );
    $BUILDER->get_object('CanvasParent')->add($CANVAS);

    #
    # renderer for combobox
    #
    my $data_func = sub {
        my ( undef, $cell, $data, $iter ) = @_;
        my $text = $data->get( $iter, 0 );
        say "set cell text: $text";
        $cell->set( text => $text );
    };

    my $cpu_combo    = $BUILDER->get_object('CPUComboBox');
    my $cpu_renderer = Gtk2::CellRendererText->new;