--- deliantra/server/ext/widget.ext	2007/07/22 20:08:38	1.12
+++ deliantra/server/ext/widget.ext	2007/07/23 21:02:50	1.13
@@ -12,6 +12,8 @@
 # w_r        rid res                           # widget call return
 # w_e        id name args                      # widget_event
 
+our $DEBUG = 1;
+
 cf::client->attach (
    on_connect => sub {
       my ($ns) = @_;
@@ -157,6 +159,7 @@
 
    if (my $ns = shift->{ns}) {
       $msg{msgtype} = $type;
+      warn "msg " . $ns->{json_coder}->encode (\%msg) if $DEBUG;#d#
       $ns->send_packet ("ext " . $ns->{json_coder}->encode (\%msg));
    }
 }
@@ -166,10 +169,11 @@
 
    my $id = ++$self->{ns}{id};
 
-   my $proxy = $self->{_w}{$id} = bless {
+   my $proxy = bless {
       id => $id,
    }, "ext::widget::proxy";
 
+   Scalar::Util::weaken ($self->{_w}{$id} = $proxy);
    Scalar::Util::weaken ($proxy->{ws} = $self);
    Scalar::Util::weaken ($proxy->{ns} = $self->{ns});
    Scalar::Util::weaken ($self->{ns}{widget}{$id} = $proxy);
@@ -198,7 +202,6 @@
 
    delete $self->{ns}{widget}{$self->{id}};
 
-   #warn "DES<$self> $self->{ws}\n";#d#
    if (my $ws = $self->{ws}) {
       $self->msg (w_c => name => "destroy");
       delete $ws->{_w}{$self->{id}};