--- deliantra/Deliantra-Client/DC/Protocol.pm	2007/08/21 17:54:02	1.159
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2007/08/21 22:46:50	1.160
@@ -167,7 +167,7 @@
 
 # widgetset new
 sub ext_ws_n {
-   my ($id) = @_;
+   my ($self, $id) = @_;
 
    $self->{widgetset}{$id} = {
       w => {},
@@ -176,7 +176,7 @@
 
 # widgetset destroy
 sub ext_ws_d {
-   my ($id) = @_;
+   my ($self, $id) = @_;
 
    my $ws = delete $self->{widgetset}{$id}
       or return;
@@ -186,8 +186,8 @@
 }
 
 # widgetset create
-sub ext_ws_c => sub {
-   my ($ws, $id, $class, $args) = @_;
+sub ext_ws_c {
+   my ($self, $ws, $id, $class, $args) = @_;
 
    for my $ev (grep /^on_/, keys %$args) {
       my $rid = $args->{$ev};
@@ -209,7 +209,7 @@
 
 # widgetset associate
 sub ext_ws_a {
-   my (%ass) = @_;
+   my ($self, %ass) = @_;
 
    # everything that has a name, wether conceivably useful or not
    my %wkw = (
@@ -257,7 +257,7 @@
 
 # widget call
 sub ext_w_c {
-   my ($id, $rid, $method, @args) = @_;
+   my ($self, $id, $rid, $method, @args) = @_;
 
    my $w = $self->{widget}{$id}
       or return;
@@ -271,7 +271,7 @@
 
 # widget set
 sub ext_w_s {
-   my ($id, $attr) = @_;
+   my ($self, $id, $attr) = @_;
 
    my $w = $self->{widget}{$id}
       or return;
@@ -289,17 +289,17 @@
 
 # widget get
 sub ext_w_g {
-   my ($id, $rid, $attr) = @_;
+   my ($self, $id, $rid, $attr) = @_;
 
    my $w = $self->{widget}{$id}
       or return;
 
    $self->send_exti_msg (w_r => $rid, [map $w->{$_}, @$attr]);
-})
+}
 
 # message window
 sub ext_channel_info {
-   my ($info) = @_;
+   my ($self, $info) = @_;
    $self->{channels}->{$info->{id}} = $info;
    $::MESSAGE_WINDOW->add_channel ($info);
 }