--- deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/26 19:14:33	1.2
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2006/05/28 19:25:55	1.8
@@ -27,13 +27,14 @@
       my @args = split /\|/, $2;
       @args = (".*") unless @args;
 
-      my $text = CFClient::pod_to_pango $head2->content;
+      $_ = $_ eq ".*" ? "" : " $_"
+         for @args;
 
-      for my $arg (@args) {
-         $arg = $arg eq ".*" ? "" : " $arg";
+      my $text = CFClient::pod_to_pango $head2->content;
 
-         $self->{map_widget}->add_command ("$cmd$arg", $text);
-      }
+      $self->{map_widget}->add_command ("$cmd$_", $text)
+         for sort { (length $a) <=> (length $b) }
+                  @args;
    }
 
    $self->{noface} = new_from_file CFClient::Texture
@@ -54,7 +55,7 @@
 sub stats_update {
    my ($self, $stats) = @_;
 
-   if (my $exp = $stats->{CS_STAT_EXP64}) {
+   if (my $exp = $stats->{+CS_STAT_EXP64}) {
       my $diff = $exp - $self->{prev_exp};
       $self->{statusbox}->add ("$diff experience gained", group => "experience $diff", fg => [0.5, 1, 0.5, 0.8], timeout => 5)
          if exists $self->{prev_exp} && $diff;
@@ -326,7 +327,12 @@
 
    my $dialog = new CFClient::UI::FancyFrame
       title => "Query",
-      child => my $vbox = new CFClient::UI::VBox;
+      child => my $vbox = new CFClient::UI::VBox,
+      on_visibility_change => sub {
+         my ($self, $visible) = @_;
+         $self->center if $visible;
+      },
+   ;
 
    $vbox->add (new CFClient::UI::Label
       max_w => $::WIDTH * 0.4,
@@ -337,7 +343,7 @@
       $vbox->add (my $hbox = new CFClient::UI::HBox);
       $hbox->add (new CFClient::UI::Button
          text => "No",
-         connect_activate => sub {
+         on_activate => sub {
             $self->send ("reply n");
             $dialog->destroy;
             $self->{map_widget}->focus_in;
@@ -345,7 +351,7 @@
       );
       $hbox->add (new CFClient::UI::Button
          text => "Yes",
-         connect_activate => sub {
+         on_activate => sub {
             $self->send ("reply y");
             $dialog->destroy;
          },
@@ -356,7 +362,7 @@
    } elsif ($flags & CS_QUERY_SINGLECHAR) {
       $dialog->{tooltip} = "Press a key (click on the entry to make sure it has keyboard focus)";
       $vbox->add (my $entry = new CFClient::UI::Entry
-         connect_changed => sub {
+         on_changed => sub {
             $self->send ("reply $_[1]");
             $dialog->destroy;
          },
@@ -369,7 +375,7 @@
 
       $vbox->add (my $entry = new CFClient::UI::Entry
          $flags & CS_QUERY_HIDEINPUT ? (hiddenchar => "*") : (),
-         connect_activate => sub {
+         on_activate => sub {
             $self->send ("reply $_[1]");
             $dialog->destroy;
          },
@@ -378,7 +384,7 @@
       $entry->focus_in;
    }
 
-   $dialog->show_centered;
+   $dialog->show;
 }
 
 sub drawinfo {
@@ -621,4 +627,9 @@
    }
 }
 
+sub player_update {
+   my ($self, $player) = @_;
+   $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $player->{weight} / 1000);
+}
+
 1;