¡Hola!
Estoy tratando de pasarle más de un parámetro a una función definida por mi en la llamada signal_connect(). He visto muchos manuales pero no me doy cuenta de cómo hacerlo...
Esto es lo que quiero hacer:
Using perl Syntax Highlighting
my $usr_entry = Gtk2::Entry->new;
my $boton_btn = Gtk2::Button->new_from_stock('Boton');
my $usr=$usr_entry->get_text();
my $lista = Gtk2::SimpleList->new(
Nombre => 'text',
Apellido => 'text'
);
$boton_btn->signal_connect( clicked => \&func,[$lista,$usr_entry->get_text()]);
sub func{
my $boton = shift;
my $p2 = shift;
#aquí es donde no sé cómo capturar los parámetros para manipularlos...
my $p3 = shift; #creo que los datos ingresados como parámetros vienen aquí
my $lista=???;
my $texto=???; #sería el texto de la entrada
push @{$lista->{data}}, [ "nombre", $texto ];
}
¡Muchas gracias!
2011-12-15 13:49 @617
