| … | … | ||
|---|---|---|---|
| 65 | $::MAPWIDGET->focus_in | 65 | $::MAPWIDGET->focus_in |
| 66 | } | 66 | } |
| 67 | 67 | ||
| 68 | 0 | 68 | 0 |
| 69 | }, | 69 | }, |
| 70 | on_key_down => sub { | ||
| 71 | my ($input, $ev) = @_; | ||
| 72 | my $uni = $ev->{unicode}; | ||
| 73 | my $mod = $ev->{mod}; | ||
| 74 | |||
| 75 | if ($uni >= ord "0" && $uni <= ord "9" && $mod & CFPlus::KMOD_ALT) { | ||
| 76 | $::MAPWIDGET->emit (key_down => $ev); | ||
| 77 | return 1; | ||
| 78 | } | ||
| 79 | |||
| 80 | 0 | ||
| 81 | }, | ||
| 70 | on_escape => sub { | 82 | on_escape => sub { |
| 71 | $::MAPWIDGET->grab_focus; | 83 | $::MAPWIDGET->grab_focus; |
| 72 | 84 | ||
| 73 | 0 | 85 | 0 |
| 74 | }, | 86 | }, |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |