--- deliantra/server/ext/widget.ext	2007/06/26 04:50:05	1.3
+++ deliantra/server/ext/widget.ext	2007/07/02 03:15:30	1.4
@@ -16,7 +16,13 @@
    on_connect => sub {
       my ($ns) = @_;
 
+      Scalar::Util::weaken (my $weakns = $ns);
+
       $ns->{id} = "a";
+      $ns->{json_coder}->filter_json_single_key_object (__widget_ref__ => sub {
+        # cannot deserialise ATM
+        undef
+      });
    },
 );
 
@@ -152,7 +158,7 @@
 
    if (my $ns = shift->{ns}) {
       $msg{msgtype} = $type;
-      $ns->send_packet ("ext " . cf::to_json \%msg);
+      $ns->send_packet ("ext " . $ns->{json_coder}->encode (\%msg));
    }
 }