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

Comparing deliantra/Deliantra-Client/DC/UI.pm (file contents):
Revision 1.362 by root, Sat Dec 9 21:26:46 2006 UTC vs.
Revision 1.364 by root, Sat Dec 23 10:18:27 2006 UTC

    } elsif ($sym == CFPlus::SDLK_LEFT) {
       --$self->{cursor} if $self->{cursor};
    } elsif ($sym == CFPlus::SDLK_RIGHT) {
       ++$self->{cursor} if $self->{cursor} < length $self->{text};
    } elsif ($sym == CFPlus::SDLK_HOME) {
+      # what a hack
-      $self->{cursor} = 0;
+      $self->{cursor} =
+         (substr $self->{text}, 0, $self->{cursor}) =~ /^(.*\012)/
+            ? length $1
+            : 0;
    } elsif ($sym == CFPlus::SDLK_END) {
+      # uh, again
+      $self->{cursor} =
+         (substr $self->{text}, $self->{cursor}) =~ /^([^\012]*)\012/
-      $self->{cursor} = length $text;
+            ? $self->{cursor} + length $1
+            : length $self->{text};
    } elsif ($uni == 21) { # ctrl-u
       $text = "";
       $self->{cursor} = 0;
    } elsif ($uni == 27) {
       $self->emit ('escape');
-   } elsif ($uni >= 0x20 || $uni == 0x0d) {
+   } elsif ($uni == 0x0d) {
+      substr $text, $self->{cursor}++, 0, "\012";
+   } elsif ($uni >= 0x20) {
       substr $text, $self->{cursor}++, 0, chr $uni;
    } else {
       return 0;
    }
 sub invoke_mouse_wheel {
    my ($self, $ev) = @_;
    my $delta = $self->{vertical} ? $ev->{dy} : $ev->{dx};
+   my $pagepart = $ev->{mod} & CFPlus::KMOD_SHIFT ? 1 : 0.2;
-   $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * 0.2);
+   $self->set_value ($self->{range}[0] + $delta * $self->{range}[3] * $pagepart);
    ! ! $delta
 }
 sub update {

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