How to get label for Gtk2 OptionMenu menu items?

["steve madsen virgin net" <steve madsen virgin net>]

Hi everyone,

I've searched the archives but I'm still unsure how to get the underlying
state for a menu item?  In the sample program attached below, all I need
to do is find out what method to use to punch down inside the active menu
item and get its label.

Thank you for any ideas!

Steve


#!/usr/bin/perl -w
#
#   optionsmenu.pl
#
#   With thanks to:
#       http://gtk2-perl.sourceforge.net/doc/gtk2-perl-tut/sec-RangeWidgetsExample.
html
#
use strict;
use warnings;
use sigtrap;
use diagnostics;

use Glib qw/TRUE FALSE/;
use Gtk2 '-init';

my ( $window,
     $box1,
     $opt,
     $menu,
     $item,
     $button,
     $button_q,
            );

init();

Gtk2->main;

sub cb_pos_menu_select
{
        my ($widget, $data) = @_;
    print "\t\$widget = $widget, \$data = $data\n\n";
    
}

sub cb_button_clicked
{
    #  Want to retrieve the label for the active menu item here, but
    #  not sure what method(s) or extra setup to use to do this...
    my $selected_item           = $menu->get_active();

    print   "\tcb_button_clicked, selected: $selected_item\n";
    
}

# Convenience functions
sub make_menu_item
{
        my ($name, $func, $data) = @_;
        $item = Gtk2::MenuItem->new_with_label($name);
        $item->signal_connect(activate => $func, $data);
        $item->show;

        return $item;
}

sub init
{
        $window = Gtk2::Window->new('toplevel');
        $window->signal_connect(destroy => sub { Gtk2->main_quit; });
        $window->set_title("optionsmenu test");

        $box1 = Gtk2::VBox->new(FALSE, 0);
        $window->add($box1);
        $box1->show;

        $opt = Gtk2::OptionMenu->new;
        $menu = Gtk2::Menu->new;

        $item = make_menu_item("Item One", \&cb_pos_menu_select, 'item_one');
        $menu->append($item);
        
        $item = make_menu_item("Next item", \&cb_pos_menu_select, 'next_item');
        $menu->append($item);

        $item = make_menu_item("Another item", \&cb_pos_menu_select, 'another_item');
        $menu->append($item);

        $item = make_menu_item("Last item", \&cb_pos_menu_select, 'last_item');
        $menu->append($item);

        $opt->set_menu($menu);
        $box1->pack_start($opt, TRUE, TRUE, 0);
        $opt->show;

        $button = Gtk2::Button->new("Get selected menu item!");
        $button->signal_connect(clicked => \&cb_button_clicked );
        $box1->pack_start($button, TRUE, TRUE, 0);
        $button->can_default(TRUE);
        $button->grab_default;
        $button->show;

        $button_q = Gtk2::Button->new("Quit");
        $button_q->signal_connect(clicked => sub { Gtk2->main_quit; });
        $box1->pack_start($button_q, TRUE, TRUE, 0);
        $button_q->can_default(TRUE);
        $button_q->grab_default;
        $button_q->show;

        $window->show;
}