I'll be doggoned! - I "missed the focus" ;)

With the

$f->focus;

in place, everything works nicely!

Btw., the "@_" is passed properly if you use callback syntax in the call to "bind", i.e.:

$f->bind('<Key>' => [sub {print "Key: $_1\n";}, Ev('K')]);

Cheers, Phil