--- deliantra/Deliantra-Client/DC/Main.pm	2011/12/27 07:23:33	1.1
+++ deliantra/Deliantra-Client/DC/Main.pm	2011/12/27 09:17:27	1.2
@@ -1775,59 +1775,83 @@
 }
 
 sub client_setup {
-   my $table = new DC::UI::Table expand => 1, col_expand => [0, 1];
+   my $vbox = new DC::UI::VBox;
 
-   my $row = 0;
+   $vbox->add (my $top = new DC::UI::FancyFrame expand => 1, label => "Client Settings");
+   $vbox->add (my $bot = new DC::UI::FancyFrame expand => 1, label => "Client Info");
 
-   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Tip of the day");
-   $table->add_at (1, $row++, new DC::UI::CheckBox
-      c_colspan => 2,
-      state   => $CFG->{show_tips},
-      tooltip => "Show the <b>Tip of the day</b> window at startup?",
-      on_changed => sub {
-         my ($self, $value) = @_;
-         $CFG->{show_tips} = $value;
-         0
-      }
-   );
+   {
+      $top->add (my $table = new DC::UI::Table expand => 1, col_expand => [0, 1]);
 
-   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Message Window Size");
-   $table->add_at (1, $row++, my $saycmd = new DC::UI::Entry
-      c_colspan => 2,
-      text    => $CFG->{logview_max_par},
-      tooltip => "This is maximum number of messages remembered in the <b>Message</b> window. If the server "
-               . "sends more messages than this number, older messages get removed to save memory and "
-               . "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
-      on_changed => sub {
-         my ($self, $value) = @_;
-         $MESSAGE_DIST->set_max_par ($CFG->{logview_max_par} = $value*1);
-         0
-      },
-   );
+      my $row = 0;
 
-   $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Config Autosave");
-   $table->add_at (1, $row, new DC::UI::CheckBox
-      state   => $CFG->{config_autosave},
-      tooltip => "Normally, configuration settings and the user interface layout  "
-               . "are saved on client exit. You can disable this behaviour by "
-               . "unchecking this checkbox.",
-      on_changed => sub {
-         my ($self, $value) = @_;
-         $CFG->{config_autosave} = $value;
-         0
-      }
-   );
-   $table->add_at (2, $row++, new DC::UI::Button
-      text    => "Save Now",
-      tooltip => "Use this to manually save configuration and UI layout when "
-               . "autosave is disabled.",
-      on_activate => sub {
-         DC::write_cfg;
-         0
-      }
-   );
+      $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Tip of the day");
+      $table->add_at (1, $row++, new DC::UI::CheckBox
+         c_colspan => 2,
+         state   => $CFG->{show_tips},
+         tooltip => "Show the <b>Tip of the day</b> window at startup?",
+         on_changed => sub {
+            my ($self, $value) = @_;
+            $CFG->{show_tips} = $value;
+            0
+         }
+      );
+
+      $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Message Window Size");
+      $table->add_at (1, $row++, my $saycmd = new DC::UI::Entry
+         c_colspan => 2,
+         text    => $CFG->{logview_max_par},
+         tooltip => "This is maximum number of messages remembered in the <b>Message</b> window. If the server "
+                  . "sends more messages than this number, older messages get removed to save memory and "
+                  . "computing time. A value of <b>0</b> disables this feature, but that is not recommended.",
+         on_changed => sub {
+            my ($self, $value) = @_;
+            $MESSAGE_DIST->set_max_par ($CFG->{logview_max_par} = $value*1);
+            0
+         },
+      );
+
+      $table->add_at (0, $row, new DC::UI::Label align => 1, text => "Config Autosave");
+      $table->add_at (1, $row, new DC::UI::CheckBox
+         state   => $CFG->{config_autosave},
+         tooltip => "Normally, configuration settings and the user interface layout  "
+                  . "are saved on client exit. You can disable this behaviour by "
+                  . "unchecking this checkbox.",
+         on_changed => sub {
+            my ($self, $value) = @_;
+            $CFG->{config_autosave} = $value;
+            0
+         }
+      );
+      $table->add_at (2, $row++, new DC::UI::Button
+         text    => "Save Now",
+         tooltip => "Use this to manually save configuration and UI layout when "
+                  . "autosave is disabled.",
+         on_activate => sub {
+            DC::write_cfg;
+            0
+         }
+      );
+   }
+
+   {
+      $bot->add (my $table = new DC::UI::Table expand => 1, col_expand => [0, 1]);
+
+      my $row = 0;
+
+      $table->add_at (0, $row  , new DC::UI::Label align => 1, text => "Data Directory");
+      $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $Deliantra::VARDIR, tooltip => "");
+      $table->add_at (0, $row  , new DC::UI::Label align => 1, text => "Database Directory");
+      $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $DC::DB::DBDIR, tooltip => "");
+      $table->add_at (0, $row  , new DC::UI::Label align => 1, text => "Branch (Prebuilt)");
+      $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $::EXE_ID, tooltip => "");
+      $table->add_at (0, $row  , new DC::UI::Label align => 1, text => "Version (Prebuilt)");
+      $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $::EXE_VER, tooltip => "");
+      $table->add_at (0, $row  , new DC::UI::Label align => 1, text => "Update (Prebuilt)");
+      $table->add_at (1, $row++, new DC::UI::Label align => 0, text => $::UPDPAR, tooltip => "");
+   }
 
-   $table
+   $vbox
 }
 
 sub autopickup_setup {
@@ -2634,7 +2658,7 @@
    $NOW = EV::now;
 
    ($SDL_CB[$_->{type}] || sub { warn "unhandled event $_->{type}" })->($_)
-      for DC::poll_events;
+      for DC::peep_events;
 
    if (%animate_object) {
       $_->animate ($LAST_REFRESH - $NOW) for values %animate_object;