--- deliantra/Deliantra-Client/DC/Protocol.pm	2007/08/22 21:27:13	1.164
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2007/09/02 03:55:03	1.172
@@ -23,7 +23,7 @@
       setup_req => {
          extmap => 1,
          excmd  => 1,
-         xwidget1 => 1,#d#
+         xwidget2 => 1,#d#
          %{$arg{setup_req} || {}},
       },
    );
@@ -52,8 +52,14 @@
 
    $self->{json_coder}
       ->convert_blessed
-      ->filter_json_single_key_object (__w_ => sub {
+      ->filter_json_single_key_object ("\fw" => sub {
          $self->{widget}{$_[0]}
+      })
+      ->filter_json_single_key_object ("\fc" => sub {
+         my ($id) = @_;
+         sub {
+            $self->send_exti_msg (w_e => $id, @_);
+         }
       });
 
    # destroy widgets on logout
@@ -140,29 +146,23 @@
 sub widget_associate {
    my ($self, $ws, $id, $widget) = @_;
 
-   if ($widget) {
-      $widget->{s_id} = $id;
-      $self->{widget}{$id} = $widget;
-
-      if ($ws) {
-         $widget->{s_ws} = $ws;
-         $self->{widgetset}{$ws}{w}{$id} = $widget;
-      }
+   $widget ||= new CFPlus::UI::Bin;
 
-      $widget->connect (on_destroy => sub {
-         my ($widget) = @_;
+   $widget->{s_id} = $id;
+   $self->{widget}{$id} = $widget;
 
-         delete $self->{widget}{$widget->{s_id}};
-         delete $self->{widgetset}{$widget->{s_ws}}{$widget->{s_id}}
-            if exists $widget->{s_ws};
-      });
+   if ($ws) {
+      $widget->{s_ws} = $ws;
+      $self->{widgetset}{$ws}{w}{$id} = $widget;
+   }
 
-      1
-   } else {
-      $self->send_exti_msg (w_e => $id, undef);
+   $widget->connect (on_destroy => sub {
+      my ($widget) = @_;
 
-      0
-   }
+      delete $self->{widget}{$widget->{s_id}};
+      delete $self->{widgetset}{$widget->{s_ws}}{$widget->{s_id}}
+         if exists $widget->{s_ws};
+   });
 }
 
 # widgetset new
@@ -189,22 +189,12 @@
 sub ext_ws_c {
    my ($self, $ws, $id, $class, $args) = @_;
 
-   for my $ev (grep /^on_/, keys %$args) {
-      my $rid = $args->{$ev};
-      $args->{$ev} = sub {
-         my $id = shift->{s_id};
-         $self->send_exti_msg (w_e => $id, $rid, @_);
-
-         1
-      };
-   }
-
    $self->widget_associate (
       $ws, $id => scalar eval {
          local $SIG{__DIE__};
          "CFPlus::UI::$class"->new (%$args)
       }
-   ) or warn "server failed creating client-side widget " . (CFPlus::to_json $class) . ": $@\n";
+   );
 }
 
 # widgetset associate
@@ -250,20 +240,19 @@
    );
 
    while (my ($id, $name) = each %ass) {
-      $self->widget_associate (undef, $id => $wkw{$name})
-         or warn "server failed to associate non-existent well-known widget $name\n";
+      $self->widget_associate (undef, $id => $wkw{$name});
    }
 }
 
 # widget call
 sub ext_w_c {
-   my ($self, $id, $rid, $method, @args) = @_;
+   my ($self, $id, $rcb, $method, @args) = @_;
 
    my $w = $self->{widget}{$id}
       or return;
 
-   if ($rid) {
-      $self->send_exti_msg (w_r => $rid, $w->$method (@args));
+   if ($rcb) {
+      $rcb->($w->$method (@args));
    } else {
       $w->$method (@args);
    }
@@ -289,12 +278,12 @@
 
 # widget get
 sub ext_w_g {
-   my ($self, $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]);
+   $self->send_exti_msg (w_e => $rid, map $w->{$_}, @attr);
 }
 
 # message window
@@ -403,7 +392,7 @@
       my @diffs = map $_->[1]->($self, $_->[2], $prev->{$_->[0]}, $stats->{$_->[0]}), @statchange
    ) {
       my $msg = "<b>stat change</b>: " . (join " ", @diffs);
-      $self->{statusbox}->add ($msg, group => "stat $msg", fg => [0.8, 1, 0.2, 1], timeout => 10);
+      $self->{statusbox}->add ($msg, group => "stat $msg", fg => [0.8, 1, 0.2, 1], timeout => 20);
    }
 
    $self->update_stats_window ($stats, $prev);
@@ -568,7 +557,7 @@
       my ($idx, $name) = @$_;
       my $val = $stats->{$idx};
 
-      next if $prev->{$idx}[1] == $val->[1];
+      next if $prev->{$idx}[1] eq $val->[1];
 
       my $sw = $self->{skillwid}{$idx};
       $sw->[0]->set_text (::formsep ($val->[1]));
@@ -580,14 +569,6 @@
    }
 }
 
-sub macro_send {
-   my ($self, $macro) = @_;
-
-   for my $cmd (@{ $macro->{action} }) {
-      $self->send_command ($cmd);
-   }
-}
-
 sub user_send {
    my ($self, $command) = @_;
 
@@ -596,7 +577,6 @@
 
    $self->logprint ("send: ", $command);
    $self->send_command ($command);
-   ::status ($command);
 }
 
 sub record {
@@ -889,23 +869,19 @@
          my ($meta, $data) = unpack "(w/a*)*", $face->{data};
          $face->{data} = $meta;
 
+         # rely on strict ordering here and also on later fetch
          CFPlus::DB::put res_data => $face->{name} => $data, sub { };
          CFPlus::DB::put res_meta => $face->{name} => $meta, sub { };
       }
 
       $face->{data} = $self->{json_coder}->decode ($face->{data});
-
       ::add_license ($face);
+      ::message ({ markup => CFPlus::asxml "downloaded resource '$face->{data}{name}', type $face->{type}." })
+         if $changed;
 
       if ($face->{type} == 3) { # FT_MUSIC
-         ::message ({ markup => "downloaded song #$facenum" })
-            if $changed;
-
          &::audio_music_push ($facenum);
       } elsif ($face->{type} == 5) { # FT_SOUND
-         ::message ({ markup => "downloaded sound #$facenum" })
-            if $changed;
-
          &::audio_sound_push ($facenum);
       }
 
@@ -1058,13 +1034,21 @@
       # no longer neecssary with TRT servers
       #$text =~ s/(?<=\S)\n(?=\w)/ /g;
 
-      ::message ({
-         fg          => $fg,
-         markup      => $_,
-         type        => $type,
-         extra       => [@extra],
-         color_flags => $color
-      }) for split /\n/, $text;
+      for (split /\n/, $text) {
+         ::message ({
+            fg     => $fg,
+            markup => $_,
+            type   => $type,
+            extra  => [@extra],
+            color_flags => $color, #d# ugly, kill
+         });
+
+         $color &= ~NDI_CLEAR; # only clear once for multiline messages
+         # actually, this is an ugly design. _we_ should control the channels,
+         # not some random other widget, as the channels are clearly protocol-specific.
+         # then we could also react to flags such as CLEAR without resorting to
+         # hacks such as color_flags, above.
+      }
 
       $self->{statusbox}->add ($text,
          group        => $text,