[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.359 by root, Fri Dec 8 15:07:08 2006 UTC

    } elsif ($uni ==  21) { # ctrl-u
       $text = "";
       $self->{cursor} = 0;
    } elsif ($uni == 27) {
       $self->emit ('escape');
-   } elsif ($uni >= 0x20) {
+   } elsif ($uni) {
       substr $text, $self->{cursor}++, 0, chr $uni;
    } else {
       return 0;
    }
          $self->set_text ($self->{history}->[$self->{history_pointer}]);
       } else {
          $self->set_text ($self->{history_saveback});
       }
-   } else {
+   } elsif ($ev->{unicode} >= 0x20) {
       return $self->SUPER::invoke_key_down ($ev)
    }
    1
 }
 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