[ViewVC] Diff of: cvs/deliantra/Deliantra-Client/DC/UI.pm

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.358 by root, Fri Dec 8 14:59:54 2006 UTC vs.
Revision 1.360 by root, Fri Dec 8 22:25:32 2006 UTC

       ++$self->{cursor} if $self->{cursor} < length $self->{text};
    } elsif ($sym == CFPlus::SDLK_HOME) {
       $self->{cursor} = 0;
    } elsif ($sym == CFPlus::SDLK_END) {
       $self->{cursor} = length $text;
-   } elsif ($uni ==  21) { # ctrl-u
+   } elsif ($uni == 21) { # ctrl-u
       $text = "";
       $self->{cursor} = 0;
    } elsif ($uni == 27) {
       $self->emit ('escape');
-   } elsif ($uni >= 0x20) {
+   } elsif ($uni >= 0x20 || $uni == 0x0d) {
       substr $text, $self->{cursor}++, 0, chr $uni;
    } else {
       return 0;
    }
 sub invoke_key_down {
    my ($self, $ev) = @_;
    my $sym = $ev->{sym};
-   if ($sym == 13) {
+   if ($ev->{uni} == 0x0d || $sym == 13) {
       unshift @{$self->{history}},
          my $txt = $self->get_text;
       $self->{history_pointer} = -1;
       $self->{history_saveback} = '';
 sub move_cursor_ver {
    my ($self, $dy) = @_;
    my ($y, $x) = $self->{layout}->index_to_line_x ($self->{cursor});
-   do {
+   $y += $dy;
-      if (defined (my $index = $self->{layout}->line_x_to_index ($y + $dy, $x))) {
+   if (defined (my $index = $self->{layout}->line_x_to_index ($y, $x))) {
-         $self->{cursor} = $index;
+      $self->{cursor} = $index;
-         delete $self->{cur_h};
+      delete $self->{cur_h};
-         $self->update;
+      $self->update;
-         return;
+      return;
-      }
+   }
-   } while --$x >= 0;
 }
 sub invoke_key_down {
    my ($self, $ev) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines