[ViewVC] Diff of: cvs/deliantra/server/ext/widget.ext

Comparing deliantra/server/ext/widget.ext (file contents):
Revision 1.11 by root, Sat Jul 21 18:01:26 2007 UTC vs.
Revision 1.12 by root, Sun Jul 22 20:08:38 2007 UTC

    my $id = ++$self->{id};
    my $ws = bless {
       id => $id,
       ns => $self,
-      w  => {},
+      _w => {},
    }, "ext::widget::set";
    $ws->msg (ws_n => id => $id);
    $ws
 sub new {
    my ($self, $class, %args) = @_;
    my $id = ++$self->{ns}{id};
-   my $proxy = $self->{w}{$id} = bless {
+   my $proxy = $self->{_w}{$id} = bless {
       id => $id,
    }, "ext::widget::proxy";
    Scalar::Util::weaken ($proxy->{ws} = $self);
    Scalar::Util::weaken ($proxy->{ns} = $self->{ns});
       push @{$proxy->{ev}{$ev}}, $args{$ev};
       $args{$ev} = 0;
    }
    $self->msg (ws_c =>
-      ws    => $self->{w}{id},
+      ws    => $proxy->{id},
       id    => $id,
       class => $class,
       args  => \%args,
    );
 sub DESTROY {
    my ($self) = @_;
    delete $self->{ns}{widget}{$self->{id}};
+   #warn "DES<$self> $self->{ws}\n";#d#
    if (my $ws = $self->{ws}) {
-      delete $ws->{w}{$self->{id}};
       $self->msg (w_c => name => "destroy");
+      delete $ws->{_w}{$self->{id}};
    }
 }
 sub msg {
    my ($self, $type, %msg) = @_;
    ()
 }
 sub set {
-   my ($self, $member, $value) = @_;
+   my ($self, @kv) = @_;
-   $self->msg (w_s => attr => [ [$member, $value] ]);
+   $self->msg (w_s => attr => \@kv);
 }
 sub get {
    my ($self, $member, $cb) = @_;

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