| … | |
… | |
| 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 | my $uni = $ev->{unicode}; |
76 | my $sym = $ev->{sym}; |
| 77 | my $mod = $ev->{mod}; |
77 | my $mod = $ev->{mod}; |
| 78 | |
78 | |
| 79 | if ($uni >= ord "0" && $uni <= ord "9" && $mod & DC::KMOD_ALT) { |
79 | if ($sym >= ord "0" && $sym <= ord "9" && $mod & DC::KMOD_ALT) { |
| 80 | $::MAPWIDGET->emit (key_down => $ev); |
80 | $::MAPWIDGET->emit (key_down => $ev); |
| 81 | return 1; |
81 | return 1; |
| 82 | } |
82 | } |
| 83 | |
83 | |
| 84 | 0 |
84 | 0 |
