| … | |
… | |
| 351 | } elsif ($uni == 13) { |
351 | } elsif ($uni == 13) { |
| 352 | $::CONN->user_send ("examine"); |
352 | $::CONN->user_send ("examine"); |
| 353 | } elsif ($uni == ord ".") { |
353 | } elsif ($uni == ord ".") { |
| 354 | $::CONN->user_send ($self->{completer}{last_command}) |
354 | $::CONN->user_send ($self->{completer}{last_command}) |
| 355 | if exists $self->{completer}{last_command}; |
355 | if exists $self->{completer}{last_command}; |
| 356 | } elsif (my $macro = CFPlus::Macro::match_event $ev) { |
356 | } elsif (my @macros = CFPlus::Macro::match_event $ev) { |
|
|
357 | warn "<@macros>\n";#d# |
| 357 | $::CONN->macro_send ($macro); |
358 | $::CONN->macro_send ($_) for @macros; |
| 358 | } elsif (($sym == CFPlus::SDLK_KP_PLUS && !$mod) || $uni == ord "+") { |
359 | } elsif (($sym == CFPlus::SDLK_KP_PLUS && !$mod) || $uni == ord "+") { |
| 359 | $::CONN->user_send ("rotateshoottype +"); |
360 | $::CONN->user_send ("rotateshoottype +"); |
| 360 | } elsif (($sym == CFPlus::SDLK_KP_MINUS && !$mod) || $uni == ord "-") { |
361 | } elsif (($sym == CFPlus::SDLK_KP_MINUS && !$mod) || $uni == ord "-") { |
| 361 | $::CONN->user_send ("rotateshoottype -"); |
362 | $::CONN->user_send ("rotateshoottype -"); |
| 362 | } elsif ($uni == ord '"') { |
363 | } elsif ($uni == ord '"') { |
