Conectando señales con Perl y GtkBuilder
-
27-10-2019 - |
Pregunta
Estoy tratando de imaginar cómo acceder a un widget desde un manejador de señal.
Tengo una etiqueta llamada "lblverify" que solo quiero cambiar el texto a "verificado" cuando hago clic en el botón. Sé que necesito usar algo como gtk2 :: etiqueta-> set_text, pero no estoy completamente seguro de cómo acceder a las propiedades del widget desde la función on_btnverify_clicked.
#!/usr/bin/perl
use strict;
use warnings;
use Glib qw{ TRUE FALSE };
use Gtk2 '-init';
my $builder;
my $window;
# get a new builder object
$builder = Gtk2::Builder->new();
# load the Gtk File from GLADE
$builder->add_from_file( "testglade.xml" )
or die "Error loading GLADE file";
# create the main window
$window = $builder->get_object( "window1" )
or die "Error while creating Main Window";
# connect the event handlers
$builder->connect_signals( undef );
$window->show_all();
$builder = undef;
Gtk2->main();
exit;
sub on_btnVerify_clicked
{
}
Solución
Debe pasar los widgets a los que desea acceder como un parámetro de "datos de usuario" al controlador de señal. En este caso, harías algo como
$label = $builder->get_object("lblVerify");
$builder->connect_signals($label);
que pasa la etiqueta como el parámetro de datos del usuario a todos tus manejadores de señal. Entonces los argumentos pasaron a on_btnVerify_clicked
será el botón en sí y la etiqueta. (Perdón por cualquier error, mi Perl está bastante oxidado).
Otros consejos
Gracias Ptomato.
Eso era lo que necesitaba para pasar el widget a la función. En cuanto a la función en sí, esto funcionó:
sub on_btnSpacewalkVerify_clicked
{
my $self = shift;
my $label = shift;
$label->set_text("Verified");
}