| … | |
… | |
| 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 { |
| … | |
… | |
| 3835 | } |
3836 | } |
| 3836 | |
3837 | |
| 3837 | 1 |
3838 | 1 |
| 3838 | }; |
3839 | }; |
| 3839 | |
3840 | |
| 3840 | my $tooltip = "$spell->{message}$TOOLTIP_ALL"; |
3841 | my $tooltip = (CFPlus::asxml $spell->{message}) . $TOOLTIP_ALL; |
| 3841 | |
3842 | |
| 3842 | #TODO: add path info to tooltip |
3843 | #TODO: add path info to tooltip |
| 3843 | #$self->add (6, $row, new CFPlus::UI::Label text => $spell->{path}); |
3844 | #$self->add (6, $row, new CFPlus::UI::Label text => $spell->{path}); |
| 3844 | |
3845 | |
| 3845 | $self->add (0, $row, new CFPlus::UI::Face |
3846 | $self->add (0, $row, new CFPlus::UI::Face |
