使用Perl和GtkBuilder连接信号

2023年11月12日 251次阅读

我正在尝试计算如何从信号处理程序中访问小部件.

我有一个名为“lblVerify”的标签,我只想在单击按钮时将文本更改为“已验证”.我知道我需要使用像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
{



}

最佳答案 您需要将要访问的小部件作为“用户数据”参数传递给信号处理程序.在这种情况下,你会做类似的事情

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

它将标签作为用户数据参数传递给所有信号处理程序.然后传递给on_btnVerify_clicked的参数将是按钮本身和标签. (对不起,我的Perl非常生锈.)

点赞