… | |
… | |
1968 | $self->{cursor} = 0; |
1968 | $self->{cursor} = 0; |
1969 | } elsif ($sym == CFPlus::SDLK_END) { |
1969 | } elsif ($sym == CFPlus::SDLK_END) { |
1970 | $self->{cursor} = length $text; |
1970 | $self->{cursor} = length $text; |
1971 | } elsif ($uni == 21) { # ctrl-u |
1971 | } elsif ($uni == 21) { # ctrl-u |
1972 | $text = ""; |
1972 | $text = ""; |
|
|
1973 | $self->{cursor} = 0; |
1973 | } elsif ($uni == 27) { |
1974 | } elsif ($uni == 27) { |
1974 | $self->emit ('escape'); |
1975 | $self->emit ('escape'); |
1975 | } elsif ($uni) { |
1976 | } elsif ($uni) { |
1976 | substr $text, $self->{cursor}++, 0, chr $uni; |
1977 | substr $text, $self->{cursor}++, 0, chr $uni; |
1977 | } else { |
1978 | } else { |