在perl Tk中,我想问如何在使用-command选项时获取调用小部件。
我有一个对话框小部件,它是由先前未知数量的条目动态创建的。每个条目旁边都有一个按钮,可以浏览Entry中可能(有用的)字符串。
因此,如果按下第2个Entry旁边的按钮,则应将结果存储在第2个Entry中,依此类推。
代码如下。
然而,由于&select是在完整对话框构建后调用的,$count总是处于最后一个值,并且我无法获得我按下了哪个按钮的信息。代码行如下:
我有一个对话框小部件,它是由先前未知数量的条目动态创建的。每个条目旁边都有一个按钮,可以浏览Entry中可能(有用的)字符串。
因此,如果按下第2个Entry旁边的按钮,则应将结果存储在第2个Entry中,依此类推。
代码如下。
my $count = 0;
my @name = ();
my @val = ();
my @edit = ();
my @button = ();
my $fr = $wind->Frame->pack;
foreach ( @outputs ) {
$name[$count] = helper::trim($_);
$val[$count] = '';
$fr->Label(-text => $name[$count])->grid(-row => $count, -column => 0, -sticky => 'w');
$edit[$count] = $fr->Entry(-textvariable => \$val[$count], -width => 30)->grid(-row => $count, -column => 1);
$button[$count] = $fr->Button(-width => 20, -text => 'Select',
-command => sub { &select(\$val[$count], \$edit[$count]); }
)->grid(-row => $count, -column => 2);
$count++;
}
然而,由于&select是在完整对话框构建后调用的,$count总是处于最后一个值,并且我无法获得我按下了哪个按钮的信息。代码行如下:
-command => sub { &select(\@val, \@edit, $count); }
同样没有起作用。
有什么办法可以获取调用子例程的小部件(这样我就可以在相应的按钮中存储必要的信息)或者在这种调用中使用实际值(如此处的 $count 值)?
最好的问候。