--- deliantra/Deliantra-Client/DC/Util.pm	2006/04/07 16:04:03	1.1
+++ deliantra/Deliantra-Client/DC/Util.pm	2006/04/07 17:37:11	1.6
@@ -1,4 +1,5 @@
 package Client::Util;
+use Gtk2;
 
 sub read_cfg {
    my ($file) = @_;
@@ -6,7 +7,8 @@
    open CFG, $file
       or return;
 
-   $::CFG = eval join '', <CFG>;
+   local $/;
+   $::CFG = eval <CFG>;
 
    close CFG;
 }
@@ -26,4 +28,70 @@
    close CFG;
 }
 
+
+sub gtk_add_cfg_field {
+   my ($tbl, $cfg, $klbl, $key, $value) = @_;
+   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) = @_;
+         $cfg->{$key} = $ent->get_text;
+      });
+}
+
+sub run_config_dialog {
+   my (%events) = @_;
+
+   my $w = Gtk2::Window->new;
+
+   my @cfg = (
+      [qw/Width    width/],
+      [qw/Height   height/],
+      [qw/Host     host/],
+      [qw/Port     port/],
+      [qw/Username user/],
+      [qw/Password password/],
+   );
+
+   my $cfg = {};
+
+   $w->add (my $vb = Gtk2::VBox->new);
+      $vb->pack_start (my $t = Gtk2::Table->new (2, scalar @cfg), 0, 0, 0);
+         for (@cfg) {
+            gtk_add_cfg_field ($t, $cfg, $_->[0], $_->[1], $::CFG->{$_->[1]});
+         }
+
+      $vb->pack_start (my $hb = Gtk2::HBox->new, 0, 0, 0);
+         $hb->pack_start (my $cb = Gtk2::Button->new ("save"), 1, 1, 5);
+            $cb->signal_connect (clicked => sub {
+               for (keys %$cfg) {
+                  $::CFG->{$_} = $cfg->{$_}
+                     if $_ ne '_i';
+               }
+            });
+         $hb->pack_start (my $cb = Gtk2::Button->new ("login"), 1, 1, 5);
+            $cb->signal_connect (clicked => sub {
+               for (keys %$cfg) {
+                  $::CFG->{$_} = $cfg->{$_}
+                     if $_ ne '_i';
+               }
+               my $cb = $events{login} || sub {};
+               $cb->($::CFG->{user}, $::CFG->{password});
+            });
+         $hb->pack_start (my $cb = Gtk2::Button->new ("logout"), 1, 1, 5);
+            $cb->signal_connect (clicked => sub {
+               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;
+
+   $w->signal_connect (destroy => sub { Gtk2->main_quit });
+}
+
 1;