--- deliantra/Deliantra-Client/bin/cfplus	2006/06/08 19:43:26	1.66
+++ deliantra/Deliantra-Client/bin/cfplus	2006/06/13 14:35:18	1.71
@@ -86,6 +86,7 @@
 our $LOGIN_BUTTON;
 our $QUIT_DIALOG;
 our $HOST_ENTRY;
+our $SERVER_INFO;
 
 our $SETUP_DIALOG;
 our $SETUP_NOTEBOOK;
@@ -364,6 +365,7 @@
    $SETUP_NOTEBOOK->set_current_page ($SETUP_SERVER);
    $SETUP_DIALOG->show;
    $INV_WINDOW->hide;
+   $SETUP_SPELLS->clear_spells;
 
    return unless $CONN;
 
@@ -1078,6 +1080,15 @@
       }
    );
 
+   $vbox->add (new CFClient::UI::Label
+      text      => "Server Info",
+      fontsize  => 1.2,
+      padding_y => 8,
+      fg        => [1, 1, 0, 1],
+   );
+
+   $vbox->add ($SERVER_INFO = new CFClient::UI::Label ellipsise => 0);
+
    $vbox
 }
 
@@ -1344,6 +1355,17 @@
    };
 
    my $vb = new CFClient::UI::VBox;
+   $vb->add (my $hb = new CFClient::UI::HBox);
+   $hb->add (new CFClient::UI::Label text => "only shift-up stops fire");
+   $hb->add (new CFClient::UI::CheckBox
+         expand => 1,
+         state => $CFG->{shift_fire_stop},
+         tooltip => "If this checkbox is enabled you will stop fire only if you stop pressing shift",
+         on_changed => sub {
+            my ($cbox, $value) = @_;
+            $CFG->{shift_fire_stop} = $value;
+         });
+
    $vb->add ($binding_list);
    $vb->add (my $hb = new CFClient::UI::HBox);
 
@@ -1496,6 +1518,7 @@
          y         => $FONTSIZE + 8,
          border_bg => [1, 1, 1, 192/255],
          bg        => [1, 1, 1, 0],
+         no_close_button => 1,
          child     => ($MAPMAP = new CFClient::MapWidget::MapMap
             tooltip => "<b>Map</b>. On servers that support this feature, this will display an overview of the surrounding areas.",
          ),
@@ -1914,6 +1937,8 @@
 }
 
 Event::loop;
+#CFClient::SDL_Quit;
+#CFClient::_exit 0;
 
 END { CFClient::SDL_Quit }