… | … | ||
---|---|---|---|
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 |