循环以在Perl / Tkx中定义按钮。

Question

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

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

这是我使用的代码。

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]);