Perl Tk/Tcl: Can widget callbacks take parameters

Question

Is it possible to create a button, for example, whose callback takes a parameters?

e.g.

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

Tried it on a test program and it doesn't seem to. If that is the case, is there some other way to do what I intend with the example above?

My program needs to create buttons but the number is not known beforehand (depends on a .cfg file).

You should be able to. I don't know the syntax in perl though. A temporary workaround could be to read the file from within the command you are calling? — Jerry, Sep 29 '15 at 05:58

score 1 · Accepted Answer · answered Sep 29 '15 at 13:14

1

You probably need an anonymous subroutine that invokes your subroutine with at least one parameter.

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

answered Sep 29 '15 at 13:14

glenn jackman

score 0 · Answer 2 · answered Sep 29 '15 at 10:15

I failed to understand your question clearly but from what i understood is it something like:

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

Here RowOperation is a proc with 3 parameters suppose row, abc, xyz. In that proc you can do the needful.

2 Answers2