--- deliantra/Deliantra-Client/DC/Util.pm	2006/04/07 16:36:44	1.4
+++ deliantra/Deliantra-Client/DC/Util.pm	2006/04/07 17:18:22	1.5
@@ -34,6 +34,7 @@
    my $i = $cfg->{_i}++;
    $tbl->attach_defaults (my $lbl = Gtk2::Label->new ($klbl), 0, 1, $i, $i + 1);
    $tbl->attach_defaults (my $ent = Gtk2::Entry->new,         1, 2, $i, $i + 1);
+      if ($key eq 'password') { $ent->set_invisible_char ("*") }
       $ent->set_text ($value);
       $ent->signal_connect (changed => sub {
          my ($ent) = @_;
@@ -51,7 +52,7 @@
       [qw/Height   height/],
       [qw/Host     host/],
       [qw/Port     port/],
-      [qw/Username     user/],
+      [qw/Username user/],
       [qw/Password password/],
    );
 
@@ -64,8 +65,6 @@
          }
 
       $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
-         $hb->pack_start (my $cb = Gtk2::Button->new ("close"), 1, 1, 5);
-            $cb->signal_connect (clicked => sub { $w->destroy });
          $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
             $cb->signal_connect (clicked => sub {
                for (keys %$cfg) {
@@ -87,6 +86,8 @@
                my $cb = $events{login} || sub {};
                $cb->();
             });
+         $hb->pack_start (my $cb = Gtk2::Button->new ("quit"), 1, 1, 5);
+            $cb->signal_connect (clicked => sub { $w->destroy });
 
    $w->show_all;