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 ];
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¡Muchas gracias!
