用Perl和GtkBuilder连接信号

Question

我正试图找出如何从信号处理程序内访问小部件。

我有一个名为"lblVerify"的标签，我只是想在点击按钮时将文本更改为"verified"。我知道我需要使用类似Gtk2::Label->set_text的东西，但我不完全确定如何从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
{

}   

Answer 1

您需要将想要访问的小部件作为"用户数据"参数传递给信号处理程序。在本例中，您将执行如下命令

$label = $builder->get_object("lblVerify");
$builder->connect_signals($label);

将标签作为用户数据参数传递给所有你的信号处理程序。然后传递给on_btnVerify_clicked的参数将是按钮本身和标签。

Answer 2

谢谢。

这就是将小部件传递给函数所需要的内容。对于函数本身，这是有效的:

sub on_btnSpacewalkVerify_clicked
{
    my $self = shift;
    my $label = shift;
    $label->set_text("Verified");
}