Tk: binding more than one action to a single key

[xwax]

Just curious how or if you can bind multiple events to a single keystroke.

This does not work!

$this->bind('<Return>', [$test, 'that', Tk::Ev(['post'])] && sub { $this->historyAdd(); });

Basically, I need to have two things happen on a single keystroke.

$this->bind('<Return>', [$test, 'that', Tk::Ev(['post'])]);

and...

$this->bind('<Return>', sub { $this->historyAdd(); });

 

[Kirsle]

Usually I would do something like

$this->bind('<Return>', \&someCallback);
# +
$this->bind('<Return>', sub { $this->historyAdd(); });

as...

$this->bind('<Return>', sub {
   &someCallback(@_);
   $this->historyAdd();
});

But it depends on what this here is supposed to be doing: $this->bind('<Return>', [$test, 'that', Tk::Ev(['post'])]);

Is $test a coderef and 'that' and Tk::Ev() are arguments to that?

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'