--- deliantra/server/ext/widget.ext	2007/07/21 18:01:26	1.11
+++ deliantra/server/ext/widget.ext	2007/07/22 20:08:38	1.12
@@ -127,7 +127,7 @@
    my $ws = bless {
       id => $id,
       ns => $self,
-      w  => {},
+      _w => {},
    }, "ext::widget::set";
 
    $ws->msg (ws_n => id => $id);
@@ -166,7 +166,7 @@
 
    my $id = ++$self->{ns}{id};
 
-   my $proxy = $self->{w}{$id} = bless {
+   my $proxy = $self->{_w}{$id} = bless {
       id => $id,
    }, "ext::widget::proxy";
 
@@ -180,7 +180,7 @@
    }
 
    $self->msg (ws_c =>
-      ws    => $self->{w}{id},
+      ws    => $proxy->{id},
       id    => $id,
       class => $class,
       args  => \%args,
@@ -198,9 +198,10 @@
 
    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}};
    }
 }
 
@@ -245,9 +246,9 @@
 }
 
 sub set {
-   my ($self, $member, $value) = @_;
+   my ($self, @kv) = @_;
 
-   $self->msg (w_s => attr => [ [$member, $value] ]);
+   $self->msg (w_s => attr => \@kv);
 }
 
 sub get {