--- deliantra/Deliantra-Client/DC/Protocol.pm	2007/12/27 18:35:56	1.184
+++ deliantra/Deliantra-Client/DC/Protocol.pm	2007/12/29 13:44:30	1.187
@@ -196,46 +196,9 @@
 
 # widgetset create template
 sub ext_ws_ct {
-   my ($self, $ws, $template, $cfg) = @_;
+   my ($self, $ws, $type, $template, $done_cb, $cfg) = @_;
 
-   $template = eval <<EOF;
-[
-   Toplevel => {
-      s_id  => "toplevel",
-      title => "Character Creation",
-      x     => "center",
-      y     => "center",
-      z     => 5,
-      s_cl => [VBox => {s_cl => [
-         Label => {
-            text     => "Character Creation",
-            fontsize => 1,
-            align    => 0,
-         },
-         Label => {
-            markup   => "View or Edit your character attributes below, then press <b>Finish</b> to create your character",
-            fontsize => 0.8,
-            align    => 0,
-         },
-         Notebook => {
-            s_cl => [
-               Label => {
-                  text => "hulla-hoop"
-               },
-               Entry => {
-                  s_id => "entry",
-               },
-            ],
-         },
-         Button => {
-            s_id  => "finish",
-            title => "Finish",
-         },
-      ]}],
-   },
-]
-EOF
-   die if $@;
+   $done_cb ||= sub { };
 
    my $parse_list; $parse_list = sub {
       my ($list) = @_;
@@ -262,8 +225,21 @@
       @w
    };
 
-   $parse_list->($template);
-
+   # either array reference, or face #
+   if ($type eq "inline") {
+      $done_cb->();
+      $parse_list->($template);
+   } elsif ($type eq "face") {
+      my $handler; $handler = $self->register_face_handler ($template, sub {
+         my ($face) = @_;
+
+         undef $handler;
+         $done_cb->();
+         $parse_list->($self->{json_coder}->decode ($face->{data}));
+      });
+   } else {
+      $done_cb->(0);
+   }
 }
 
 # widgetset associate
@@ -551,12 +527,12 @@
       my $sw = $self->{skillwid}{""} ||= [
          0, 0, (new DC::UI::Label text => "Experience", align => 1),
          1, 0, (new DC::UI::Label text => "Lvl.", align => 1),
-         2, 0, (new DC::UI::Label text => "Progress", align => 0),
-         3, 0, (new DC::UI::Label text => "Skill", expand => 1),
+         2, 0, (new DC::UI::Label text => "Progress"),
+         3, 0, (new DC::UI::Label text => "Skill", expand => 1, align => 0),
          4, 0, (new DC::UI::Label text => "Experience", align => 1),
          5, 0, (new DC::UI::Label text => "Lvl.", align => 1),
-         6, 0, (new DC::UI::Label text => "Progress", align => 0),
-         7, 0, (new DC::UI::Label text => "Skill", expand => 1),
+         6, 0, (new DC::UI::Label text => "Progress"),
+         7, 0, (new DC::UI::Label text => "Skill", expand => 1, align => 0),
       ];
 
       my @add = @$sw;
@@ -605,7 +581,7 @@
             (new DC::UI::ExperienceProgress),
 
             # label
-            (new DC::UI::Label text => $name, on_button_down => $spell_cb,
+            (new DC::UI::Label text => $name, on_button_down => $spell_cb, align => 0,
              can_events => 1, can_hover => 1, tooltip => (DC::Pod::section_label skill_description => $name) . $TOOLTIP_ALL),
          ];
 
@@ -1233,7 +1209,7 @@
    update_floorbox;
 
    $::INVR_HB->clear ();
-   $::INVR_HB->add (new DC::UI::Label align => 0, expand => 1, text => $name);
+   $::INVR_HB->add (new DC::UI::Label expand => 1, text => $name);
 
    if ($tag != 0) { # Floor isn't closable, is it?
       $::INVR_HB->add (new DC::UI::Button
@@ -1327,7 +1303,7 @@
    my $limit  = .001 * $self->{stat}{+CS_STAT_WEIGHT_LIM};
 
    $::STATWIDS->{weight}->set_text (sprintf "Weight: %.1fkg", $weight);
-   $::STATWIDS->{m_weight}->set_text (sprintf "%.1fkg", $limit);
+   $::STATWIDS->{m_weight}->set_text (sprintf "Max Weight: %.1fkg", $limit);
    $::STATWIDS->{i_weight}->set_text (sprintf "%.1f/%.1fkg", $weight, $limit);
 }