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个参数的过程，假设row, abc, xyz。在这个过程中，你可以做必要的。