--- deliantra/Deliantra-Client/bin/cfplus	2006/05/26 20:50:35	1.13
+++ deliantra/Deliantra-Client/bin/cfplus	2006/05/27 08:45:24	1.14
@@ -99,7 +99,6 @@
 our $STATUSBOX;
 our $DEBUG_STATUS;
 
-our $INVWIN;
 our $INV;
 our $INVR;
 our $INVR_LBL;
@@ -912,7 +911,17 @@
    $vb1->add ($INV  = new CFClient::UI::Inventory expand => 1);
 
    $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1);
-   $vb2->add ($INVR_LBL = new CFClient::UI::Label align => 0);
+   $vb2->add (my $hb2 = new CFClient::UI::HBox);
+   $hb2->add (new CFClient::UI::Button
+      text     => "Close",
+      tooltip  => "Close the currently open container (if one is open)",
+      connect_activate => sub {
+         $CONN->send ("apply $CONN->{open_container}")
+            if $CONN->{open_container} != 0;
+      },
+   );
+   $hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0);
+
    $INVR_LBL->set_text ("Floor");
    $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);