consulta de gtk_notebook

[Alejandro Valdes Jimenez <avaldes utalca cl>]

Estimados...

Tengo un script el cual agrega en el label de un notebook una caja
conteniendo otro label y un boton. el tipico para cerrar una página de
un notebook.

ademas utilizo la función: gtk_notebook_page_num () que deviera devolver
el número de la  pagina en la que está el boton que presiono, sin
embargo simpre me devuelve el valor -1, el que indica que ese boton no
es un hijo del notebook.

el script está en perl:

.....
my $hbox_image = Gtk2::HBox->new(FALSE,0);
my $image = Gtk2::Image->new_from_stock
('gtk-cancel','GTK_ICON_SIZE_MENU');

$hbox_image->pack_start($image,TRUE,FALSE,FALSE);

my $button = Gtk2::Button->new;
$button->set_relief ('GTK_RELIEF_NONE');
$button->add ($hbox_image);

my $label = Gtk2::Label->new ($name);
my $hbox_b = Gtk2::HBox->new(FALSE,0);

$hbox_b->pack_start($label,TRUE, FALSE, FALSE);
$hbox_b->pack_start($button,TRUE, FALSE, FALSE);

$button->signal_connect (clicked => sub {
        my ($but,$user_data) = @_;
        my $page_num = $gevice{"notebook"}->page_num ($but);
        ###my $page_num = $gevice{"notebook"}->get_current_page;
        print $page_num."\n";

        return;
},undef);

my $id = $gevice{"notebook"}->append_page($hbox_s,$hbox_b);

.....

será un problema de perl??

Saludos!

-- 
Alejandro Valdés Jiménez.
Area Plataforma
DTI - Dirección de Tecnologías de Información
Universidad de Talca.
Talca - Chile.
Teléfono: (56) (71) 200408