--- deliantra/server/ext/widget.ext	2007/06/25 07:40:53	1.2
+++ deliantra/server/ext/widget.ext	2007/06/26 04:50:05	1.3
@@ -39,6 +39,10 @@
       x     => "center",
       y     => "center",
       title => "Character Creation",
+      has_close_button => 1,
+      on_delete => sub {
+         $ws->destroy;
+      },
    );
 
    $w->add (my $ntb = $ws->new (Notebook => expand => 1));
@@ -48,15 +52,15 @@
    $stats->add (0, 0, (my $statstable = $ws->new ("Table")));
 
    for (
-      [0, "Str", "Strength"],
-      [1, "Dex", "Dexterity"],
-      [2, "Con", "Constitution"],
-      [3, "Int", "Intelligence"],
-      [4, "Wis", "Wisdom"],
-      [5, "Pow", "Power"],
-      [6, "Cha", "Charisma"],
+      [0, "Str"],
+      [1, "Dex"],
+      [2, "Con"],
+      [3, "Int"],
+      [4, "Wis"],
+      [5, "Pow"],
+      [6, "Cha"],
    ) {
-      my ($x, $label, $description) = @$_;
+      my ($x, $label) = @$_;
 
       $statstable->add ($x, 0, $ws->new (Label =>
          can_hover => 1, can_events => 1,