$label->bind("<Any-KeyPress>" => [\&move, Ev('k')]);
sub move {
my $key = shift;
if ($key eq 'k') {
move_left();
} elsif ($key eq 'l') {
move_right();
}
}
Perl 回调函数例子
最新推荐文章于 2022-11-05 18:14:30 发布
$label->bind("<Any-KeyPress>" => [\&move, Ev('k')]);
sub move {
my $key = shift;
if ($key eq 'k') {
move_left();
} elsif ($key eq 'l') {
move_right();
}
}