| … | |
… | |
| 38 | . "To enter a verbatim command to send to the server, just type the command, " |
38 | . "To enter a verbatim command to send to the server, just type the command, " |
| 39 | . "followed by a space, and press return. " |
39 | . "followed by a space, and press return. " |
| 40 | . "Typing the initial letters of words (or just any letters) displays guesses " |
40 | . "Typing the initial letters of words (or just any letters) displays guesses " |
| 41 | . "for commands you might want to use.\n" |
41 | . "for commands you might want to use.\n" |
| 42 | . "You can use the cursor-up and cursor-down keys to select between those guesses.\n" |
42 | . "You can use the cursor-up and cursor-down keys to select between those guesses.\n" |
| 43 | . "<b>Right-Click</b> opens a menu where you cna select further options, sich as redefining keybindings.", |
43 | . "<b>Right-Click</b> opens a menu where you cna select further options, sich as redefining key bindings.", |
| 44 | ; |
44 | ; |
| 45 | |
45 | |
| 46 | $self |
46 | $self |
| 47 | } |
47 | } |
| 48 | |
48 | |
| … | |
… | |
| 195 | } |
195 | } |
| 196 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
196 | } elsif ($sym == CFClient::SDLK_INSERT && $mod & CFClient::KMOD_CTRL) { |
| 197 | $::BIND_EDITOR->set_binding (undef, undef, [], |
197 | $::BIND_EDITOR->set_binding (undef, undef, [], |
| 198 | sub { |
198 | sub { |
| 199 | my ($mod, $sym, $cmds) = @_; |
199 | my ($mod, $sym, $cmds) = @_; |
| 200 | $::CFG->{bindings}->{$mod}->{$sym} = $cmds; |
200 | $::CFG->{profile}{default}{bindings}{$mod}{$sym} = $cmds; |
| 201 | }); |
201 | }); |
| 202 | $::BIND_EDITOR->start; |
202 | $::BIND_EDITOR->start; |
| 203 | $::BIND_EDITOR->show; |
203 | $::BIND_EDITOR->show; |
| 204 | } elsif ($sym == CFClient::SDLK_INSERT && not ($mod & CFClient::KMOD_CTRL)) { |
204 | } elsif ($sym == CFClient::SDLK_INSERT && not ($mod & CFClient::KMOD_CTRL)) { |
| 205 | $::BIND_EDITOR->stop; |
205 | $::BIND_EDITOR->stop; |
| 206 | $::BIND_EDITOR->ask_for_bind_and_commit; |
206 | $::BIND_EDITOR->ask_for_bind_and_commit; |
| 207 | $::BIND_EDITOR->hide; |
207 | $::BIND_EDITOR->hide; |
| 208 | } elsif (my $bind_cmd = $::CFG->{bindings}->{$mod}->{$sym}) { |
208 | } elsif (my $bind_cmd = $::CFG->{profile}{default}{bindings}{$mod}{$sym}) { |
| 209 | $::CONN->user_send ($_) for @$bind_cmd; |
209 | $::CONN->user_send ($_) for @$bind_cmd; |
| 210 | } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) { |
210 | } elsif ((ord 'a') <= $uni && $uni <= (ord 'z')) { |
| 211 | $self->{completer}->key_down ($ev); |
211 | $self->{completer}->key_down ($ev); |
| 212 | $self->{completer}->show; |
212 | $self->{completer}->show; |
| 213 | } else { |
213 | } else { |
