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

Question

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

例如

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

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

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

Answer 1

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

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

Answer 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。在那个过程中，你可以做必要的事情。