perl - 循环在 Perl / Tkx 中定义按钮

Question

我正在尝试通过循环使用 Tkx 在 Perl 中定义一系列按钮；每个按钮的文本和操作都在哈希表数组中定义。

但是，无论我点击哪个按钮，都只会触发最后一个按钮的动作。

这是我使用的代码。

use strict;
use Tkx;

my @Buttons = (
    { 'descr'=> "Button #0", 'cmd'=> sub { print "TODO: to implement (button #0)\n\n"; } },
    { 'descr'=> "Button #1", 'cmd'=> sub { print "TODO: to implement (button #1)\n\n"; } }
);

my %Widg;
$Widg{"."}= Tkx::widget->new(".");
$Widg{"."}->g_wm_title("List of buttons"); 
$Widg{"."}->g_wm_minsize(350, 300);

Tkx::font_create("H4", -family => "Helvetica", -size => 8);

$Widg{".fButton"} = $Widg{"."}->new_ttk__frame( -padding => "2 2 5 5");
$Widg{".fButton"}->g_grid(-row => 1, -sticky => "w");

my $id=-1;
foreach my $rh_measure (@Buttons) {
    ++$id;
    $Widg{".fButton.bRun$id"}=$Widg{".fButton"}->new_ttk__button(-text => $rh_measure->{'descr'}, -command => sub { &wrapper($id); });
    $Widg{".fButton.bRun$id"}->g_grid( -row => $id, -column => 1, -sticky => "w");
} 

Tkx::MainLoop;


sub wrapper {
    my $id=shift;
    print "Process command for button #$id\n";
    &{$Buttons[$id]->{'cmd'}}();
}

Answer 1

实际上，您只需要通过引用调用命令并且不引用参数即可。

$Widg{".fButton.bRun$id"}=$Widg{".fButton"}->new_ttk__button(-text => $rh_measure->{'descr'}, -command => [\&wrapper, $id]);