Perl Tk/Tcl：小部件回调可以带参数吗答案

【问题标题】：Perl Tk/Tcl: Can widget callbacks take parametersPerl Tk/Tcl：小部件回调可以带参数吗
【发布时间】：2015-09-29 01:59:20
【问题描述】：

是否可以创建一个按钮，例如，其回调带参数？

例如

button(-text => 'Row1', -command => \&do_something_with('Row 1'));

在测试程序上尝试过，但似乎没有。如果是这种情况，是否有其他方法可以按照上面的示例执行我的意图？

我的程序需要创建按钮，但事先不知道数量（取决于 .cfg 文件）。

【问题讨论】：

标签： tcl tk tkx

【解决方案1】：

您可能需要一个匿名子例程，它使用至少一个参数调用您的子例程。

button(-text => 'Row1', -command => sub {do_something_with('Row 1', @_)});

【讨论】：

【解决方案2】：

我没能清楚地理解你的问题，但据我了解是这样的：

button(-text => 'Row1', -command => \&do_something_with('Row 1'));
ttk::button -text $row -command [list RowOpertaion $row $xyz $abc]

这里的 RowOperation 是一个带有 3 个参数的 proc，假设 row、abc、xyz。在那个过程中，你可以做必要的事情。

【讨论】：