| … | … | ||
|---|---|---|---|
| 230 | if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) { | 230 | if (!($mod & KMOD_CTRL ) && delete $self->{ctrl}) { |
| 231 | $::CONN->user_send ("run_stop"); | 231 | $::CONN->user_send ("run_stop"); |
| 232 | } | 232 | } |
| 233 | } | 233 | } |
| 234 | 234 | ||
| 235 | sub add_command { | ||
| 236 | my ($self, $command, $widget, $cb) = @_; | ||
| 237 | |||
| 238 | (my $abbrev = $command) =~ s/(\S)[^[:space:]_]*[[:space:]_]*/$1/g; | ||
| 239 | warn "$command|$abbrev|$widget\n";#d# | ||
| 240 | } | ||
| 241 | |||
| 235 | 1 | 242 | 1 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |