Connexion de signaux avec Perl et GtkBuilder
-
27-10-2019 - |
Question
Je suis en train de figure comment accéder à un widget à partir d'un gestionnaire de signal.
J'ai une étiquette appelée « lblVerify » que je veux juste changer le texte « vérifié » lorsque je clique sur le bouton. Je sais que je dois utiliser quelque chose comme Gtk2 :: Label-> set_text mais je ne suis pas tout à fait sûr comment accéder aux propriétés du widget à partir de la fonction 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
{
}
La solution
Vous devez passer les widgets que vous souhaitez accéder en tant que paramètre « données utilisateur » au gestionnaire de signal. Dans ce cas, vous feriez quelque chose comme
$label = $builder->get_object("lblVerify");
$builder->connect_signals($label);
qui passe l'étiquette comme paramètre de données d'utilisateur à tous vos gestionnaires de signaux. Ensuite, les arguments passés à on_btnVerify_clicked
seront le bouton lui-même et l'étiquette. (Désolé pour toute erreur, mon Perl est assez rouillé.)
Autres conseils
Merci ptomato.
C'était ce que je devais obtenir le widget passé à la fonction. Quant à la fonction elle-même, cela a fonctionné:
sub on_btnSpacewalkVerify_clicked
{
my $self = shift;
my $label = shift;
$label->set_text("Verified");
}