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

Comparing deliantra/Deliantra-Client/DC/MapWidget.pm (file contents):
Revision 1.19 by root, Tue Apr 25 13:51:48 2006 UTC vs.
Revision 1.20 by root, Tue Apr 25 14:04:37 2006 UTC

 our @ISA = CFClient::UI::Base::;
 sub new {
    my $class = shift;
-   $class->SUPER::new (
+   my $self = $class->SUPER::new (
       z         => -1,
       can_focus => 1,
       list      => glGenList,
       @_
-   )
+   );
+   $self->add_command ("killpets", "kills all your summoned and charmed creates");
+   $self
 }
 sub DESTROY {
    my $self = shift;
 sub add_command {
    my ($self, $command, $tooltip, $widget, $cb) = @_;
    (my $abbrev = $command) =~ s/(\S)[^[:space:]_]*[[:space:]_]+/$1/g;
+   $self->{command} = [
-   push @{$self->{command}}, [$abbrev, $command, $tooltip, $widget, $cb];
+      [$abbrev, $command, $tooltip, $widget, $cb],
+      grep $_->[1] ne $command, @{ $self->{command} },
+   ];
 }
 package CFClient::MapWidget::MapMap;
 our @ISA = CFClient::UI::Base::;
    my @found;
    for (@$command) {
       if ($_->[0] =~ $search_abbrev) {
          push @found, [$_->[0], $_];
-      } elsif ($_->[1] =~ $search_full) {
+      } elsif (2 < length $self->{search} and $_->[1] =~ $search_full) {
          push @found, [$_->[1], $_];
       }
    }
    @found = sort { $a->[0] cmp $b->[0] } @found;

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