… | |
… | |
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 |