… | |
… | |
156 | $::CONN->user_send ("run $DIR{$sym}[0]"); |
156 | $::CONN->user_send ("run $DIR{$sym}[0]"); |
157 | } else { |
157 | } else { |
158 | $::CONN->user_send ("$DIR{$sym}[1]"); |
158 | $::CONN->user_send ("$DIR{$sym}[1]"); |
159 | } |
159 | } |
160 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
160 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
161 | CFClient::Recorder::start (1); |
161 | $::BIND_EDITOR->set_binding (undef, undef, [], |
|
|
162 | sub { |
|
|
163 | my ($mod, $sym, $cmds) = @_; |
|
|
164 | $::CFG->{bindings}->{$mod}->{$sym} = $cmds; |
|
|
165 | }); |
|
|
166 | $::BIND_EDITOR->start; |
|
|
167 | $::BIND_EDITOR->show; |
162 | } elsif ($sym == CFClient::SDLK_INSERT && not ($mod & CFClient::KMOD_CTRL)) { |
168 | } elsif ($sym == CFClient::SDLK_INSERT && not ($mod & CFClient::KMOD_CTRL)) { |
163 | CFClient::Recorder::stop (1); |
169 | $::BIND_EDITOR->stop; |
|
|
170 | $::BIND_EDITOR->ask_for_bind (1); |
|
|
171 | $::BIND_EDITOR->hide; |
164 | } elsif (my $bind_cmd = $::CFG->{bindings}->{$mod}->{$sym}) { |
172 | } elsif (my $bind_cmd = $::CFG->{bindings}->{$mod}->{$sym}) { |
165 | $::CONN->user_send ($_) for @$bind_cmd; |
173 | $::CONN->user_send ($_) for @$bind_cmd; |
166 | } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) { |
174 | } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) { |
167 | $self->{completer}->key_down ($ev); |
175 | $self->{completer}->key_down ($ev); |
168 | $self->{completer}->show; |
176 | $self->{completer}->show; |