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

Comparing deliantra/Deliantra-Client/DC/Protocol.pm (file contents):
Revision 1.110 by root, Tue Jun 26 05:06:01 2007 UTC vs.
Revision 1.111 by root, Mon Jul 2 02:58:51 2007 UTC

             $self->setup_req (mapsize => "${w}x${h}");
          }
       }
    });
+   $self->{json_coder}
+      ->convert_blessed
+      ->filter_json_single_key_object (__widget_ref__ => sub {
+         $self->{widget}{$_[0]}
+      });
    $self->connect_ext (ws_n => sub {
       my ($arg) = @_;
       $self->{widgetset}{$arg{id}} = {
       my $w = $self->{widget}{$arg->{id}}
          or return;
       my $m = $arg->{name};
-      my @a = map {
-         "HASH" eq ref && 1 == (scalar keys %$_) && exists $_->{__widget_ref__}
-            ? $self->{widget}{$_->{__widget_ref__}}
-            : $_
-      } @{ $arg->{args} || [] };
+      my $a = $arg->{args} || [];
       if (exists $arg->{rid}) {
-         $self->send_exti_msg (w_r => rid => $arg->{rid}, res => [$w->$m (@a)]);
+         $self->send_exti_msg (w_r => rid => $arg->{rid}, res => [$w->$m (@$a)]);
       } else {
-         $w->$m (@a);
+         $w->$m (@$a);
       }
    });
    $self->connect_ext (w_s => sub {
       my ($arg) = @_;
    (delete $self->{npc_dialog})->destroy
       if $self->{npc_dialog};
    $self->SUPER::destroy;
+   %$self = ();
 }
 package CFPlus::NPCDialog;
 our @ISA = 'CFPlus::UI::Toplevel';

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