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

Comparing deliantra/Deliantra-Client/DC/MapWidget.pm (file contents):
Revision 1.11 by root, Mon Apr 24 03:33:51 2006 UTC vs.
Revision 1.15 by root, Mon Apr 24 13:01:13 2006 UTC

 package CFClient::MapWidget;
 use strict;
+use utf8;
 use List::Util qw(min max);
 use CFClient::OpenGL;
    my $mod = $ev->{mod};
    my $sym = $ev->{sym};
    if ($sym == CFClient::SDLK_KP5) {
       $::CONN->user_send ("stay fire");
+   } elsif ($sym == ord ",") {
+      $::CONN->user_send ("take");
    } elsif ($sym == ord "a") {
       $::CONN->user_send ("apply");
    } elsif ($sym == ord "'") {
       $self->emit ('activate_console');
    } elsif ($sym == ord "/") {
                (delete $self->{command_widget})->hide;
                $self->focus_in;
             },
       ;
       $self->{command_widget}->key_down ($ev);
+      return unless $self->{command_widget};
       $self->{command_widget}->show;
       $self->{command_widget}->focus_in;
    }
 }
    my @found;
    for (@$command) {
       if ($_->[0] =~ $search_abbrev) {
          push @found, [$_->[0], $_];
-      } elsif ($_[1] =~ $search_full) {
+      } elsif ($_->[1] =~ $search_full) {
          push @found, [$_->[1], $_];
       }
    }
    @found = sort { $a->[0] cmp $b->[0] } @found;
          $self->emit (execute => $self->{select});
          $self->emit ("close");
       }
    } elsif ($ev->{sym} == 27) {
       $self->emit ("close");
+      return;
    } elsif ((chr $ev->{unicode}) =~ /^[[:alpha:]]$/) {
       $self->{search} .= chr $ev->{unicode};
       $self->update_labels;
    }

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