… | |
… | |
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 @macros = CFPlus::Macro::match_event $ev) { |
356 | } elsif (my @macros = CFPlus::Macro::match_event $ev) { |
357 | warn "<@macros>\n";#d# |
|
|
358 | $::CONN->macro_send ($_) for @macros; |
357 | $::CONN->macro_send ($_) for @macros; |
359 | } elsif (($sym == CFPlus::SDLK_KP_PLUS && !$mod) || $uni == ord "+") { |
358 | } elsif (($sym == CFPlus::SDLK_KP_PLUS && !$mod) || $uni == ord "+") { |
360 | $::CONN->user_send ("rotateshoottype +"); |
359 | $::CONN->user_send ("rotateshoottype +"); |
361 | } elsif (($sym == CFPlus::SDLK_KP_MINUS && !$mod) || $uni == ord "-") { |
360 | } elsif (($sym == CFPlus::SDLK_KP_MINUS && !$mod) || $uni == ord "-") { |
362 | $::CONN->user_send ("rotateshoottype -"); |
361 | $::CONN->user_send ("rotateshoottype -"); |