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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.159 by root, Tue Aug 21 17:54:02 2007 UTC vs.
Revision 1.163 by root, Wed Aug 22 21:17:32 2007 UTC

    }
 }
 # widgetset new
 sub ext_ws_n {
-   my ($id) = @_;
+   my ($self, $id) = @_;
    $self->{widgetset}{$id} = {
       w => {},
    };
 }
 # widgetset destroy
 sub ext_ws_d {
-   my ($id) = @_;
+   my ($self, $id) = @_;
    my $ws = delete $self->{widgetset}{$id}
       or return;
    $_->destroy
       for values %{$ws->{w}};
 }
 # widgetset create
-sub ext_ws_c => sub {
+sub ext_ws_c {
-   my ($ws, $id, $class, $args) = @_;
+   my ($self, $ws, $id, $class, $args) = @_;
    for my $ev (grep /^on_/, keys %$args) {
       my $rid = $args->{$ev};
       $args->{$ev} = sub {
          my $id = shift->{s_id};
    ) or warn "server failed creating client-side widget " . (CFPlus::to_json $class) . ": $@\n";
 }
 # widgetset associate
 sub ext_ws_a {
-   my (%ass) = @_;
+   my ($self, %ass) = @_;
    # everything that has a name, wether conceivably useful or not
    my %wkw = (
       root           => $CFPlus::UI::ROOT,
       tooltip        => $CFPlus::UI::TOOLTIP,
    }
 }
 # widget call
 sub ext_w_c {
-   my ($id, $rid, $method, @args) = @_;
+   my ($self, $id, $rid, $method, @args) = @_;
    my $w = $self->{widget}{$id}
       or return;
    if ($rid) {
    }
 }
 # widget set
 sub ext_w_s {
-   my ($id, $attr) = @_;
+   my ($self, $id, $attr) = @_;
    my $w = $self->{widget}{$id}
       or return;
    for (my $i = 0; $i < $#$attr; $i += 2) {
    }
 }
 # widget get
 sub ext_w_g {
-   my ($id, $rid, $attr) = @_;
+   my ($self, $id, $rid, $attr) = @_;
    my $w = $self->{widget}{$id}
       or return;
    $self->send_exti_msg (w_r => $rid, [map $w->{$_}, @$attr]);
-})
+}
 # message window
 sub ext_channel_info {
-   my ($info) = @_;
+   my ($self, $info) = @_;
    $self->{channels}->{$info->{id}} = $info;
    $::MESSAGE_WINDOW->add_channel ($info);
 }
 #############################################################################
       for keys %RES_TBL;
    my $sktbl = $::STATWIDS->{skill_tbl};
    my @skills = keys %{ $self->{skill_info} };
-   if (grep +(exists $stats->{$_}) != (exists $prev->{$_}), @skills) {
+   my @order = sort { $stats->{$b->[0]}[1] <=> $stats->{$a->[0]}[1] or $a->[1] cmp $b->[1] }
+               map [$_, $self->{skill_info}{$_}],
+               grep exists $stats->{$_},
+               @skills;
+   if ($self->{stat_order} ne join ",", map $_->[0], @order) {
+      $self->{stat_order} = join ",", map $_->[0], @order;
       $sktbl->clear;
       my $sw = $self->{skillwid}{""} ||= [
          0, 0, (new CFPlus::UI::Label text => "Experience", align => 1),
          1, 0, (new CFPlus::UI::Label text => "Lvl.", align => 1),
       my @TOOLTIP_LVL  = (tooltip => "<b>Level</b>. The level of the skill.$TOOLTIP_ALL", can_events => 1, can_hover => 1);
       my @TOOLTIP_EXP  = (tooltip => "<b>Experience</b>. The experience points you have in this skill.$TOOLTIP_ALL", can_events => 1, can_hover => 1);
       my ($x, $y) = (0, 1);
-      for (
+      for (@order) {
-         sort { $stats->{$b->[0]}[1] <=> $stats->{$a->[0]}[1] or $a->[1] cmp $b->[1] }
-         map [$_, $self->{skill_info}{$_}],
-         grep exists $stats->{$_},
-           @skills
-      ) {
          my ($idx, $name) = @$_;
          my $spell_cb = sub {
             my ($widget, $ev) = @_;
       }
       $sktbl->add_at (@add);
    }
-   for (grep exists $stats->{$_}, @skills) {
+   for (@order) {
+      my ($idx, $name) = @$_;
+      my $val = $stats->{$idx};
+      next if $prev->{$idx}[1] == $val->[1];
-      my $sw = $self->{skillwid}{$_};
+      my $sw = $self->{skillwid}{$idx};
-      $sw->[0]->set_text (::formsep ($stats->{$_}[1]));
+      $sw->[0]->set_text (::formsep ($val->[1]));
-      $sw->[1]->set_text ($stats->{$_}[0] * 1);
+      $sw->[1]->set_text ($val->[0] * 1);
-      $sw->[2]->set_value (@{$stats->{$_}});
+      $sw->[2]->set_value (@$val);
+      #$::GAUGES->{sklprg}->set_label ($name);
+      $::GAUGES->{sklprg}->set_value (@$val);
    }
 }
 sub macro_send {
    my ($self, $macro) = @_;
    if ($delay) {
       # delay the map drawing a tiny bit in the hope of getting the missing fetched
       Event->timer (after => 0.03, cb => sub {
          $_[0]->w->cancel;
-         $self->{map_widget}->update;
+         $self->{map_widget}->update
+            if $self->{map_widget};
       });
    } else {
       $self->{map_widget}->update;
    }
 }

Diff Legend

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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents): Revision 1.159 by root, Tue Aug 21 17:54:02 2007 UTC vs. Revision 1.163 by root, Wed Aug 22 21:17:32 2007 UTC

Diff Legend

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.159 by root, Tue Aug 21 17:54:02 2007 UTC vs.
Revision 1.163 by root, Wed Aug 22 21:17:32 2007 UTC