Perlおよびgtkbuilderとの信号を接続します

Question

信号ハンドラー内からウィジェットにアクセスする方法を理解しようとしています。

ボタンをクリックしたときにテキストを「検証」に変更したい「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
{



}   

Answer 1

アクセスするウィジェットを「ユーザーデータ」パラメーターとして信号ハンドラーに渡す必要があります。この場合、あなたはようなことをします

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

ユーザーデータパラメーターとしてラベルを渡す 全て あなたの信号ハンドラー。その後、議論は渡されました on_btnVerify_clicked ボタン自体とラベルになります。 （エラーがごめんなさい、私のPerlはかなり錆びています。）

Answer 2

ptomatoに感謝します。

それが、ウィジェットを関数に渡すために必要なものでした。関数自体については、これはうまくいきました。

sub on_btnSpacewalkVerify_clicked
{

    my $self = shift;
    my $label = shift;

    $label->set_text("Verified");

}