| … | … | ||
|---|---|---|---|
| 168 | $self->{cur}->focus_out; | 168 | $self->{cur}->focus_out; |
| 169 | 169 | ||
| 170 | () | 170 | () |
| 171 | } | 171 | } |
| 172 | 172 | ||
| 173 | sub on_tt_write { | ||
| 174 | my ($self, $octets) = @_; | ||
| 175 | |||
| 176 | $self->{cur}->tt_write ($octets); | ||
| 177 | |||
| 178 | 1 | ||
| 179 | } | ||
| 180 | |||
| 173 | sub on_key_press { | 181 | sub on_key_press { |
| 174 | my ($self, $event) = @_; | 182 | my ($self, $event) = @_; |
| 175 | 183 | ||
| 176 | $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time}); | 184 | $self->{cur}->key_press ($event->{state}, $event->{keycode}, $event->{time}); |
| 177 | 185 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |