| … | … | ||
|---|---|---|---|
| 71 | 71 | ||
| 72 | 0 | 72 | 0 |
| 73 | }, | 73 | }, |
| 74 | on_key_down => sub { | 74 | on_key_down => sub { |
| 75 | my ($input, $ev) = @_; | 75 | my ($input, $ev) = @_; |
| 76 | |||
| 76 | my $sym = $ev->{sym}; | 77 | my $sym = $ev->{sym}; |
| 77 | my $mod = $ev->{mod}; | 78 | my $mod = $ev->{mod}; |
| 78 | 79 | ||
| 79 | if ($sym >= ord "0" && $sym <= ord "9" && $mod & DC::KMOD_ALT) { | 80 | if ($sym >= ord "0" && $sym <= ord "9" && $mod & DC::KMOD_ALT) { |
| 80 | $::MAPWIDGET->emit (key_down => $ev); | 81 | $::MAPWIDGET->emit (key_down => $ev); |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |