ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/Deliantra-Client/bin/cfplus
(Generate patch)

Comparing deliantra/Deliantra-Client/bin/cfplus (file contents):
Revision 1.12 by root, Fri May 26 19:14:33 2006 UTC vs.
Revision 1.14 by elmex, Sat May 27 08:45:24 2006 UTC

… …
97 97
98our $ALT_ENTER_MESSAGE; 98our $ALT_ENTER_MESSAGE;
99our $STATUSBOX; 99our $STATUSBOX;
100our $DEBUG_STATUS; 100our $DEBUG_STATUS;
101 101
102our $INVWIN;
103our $INV; 102our $INV;
104our $INVR; 103our $INVR;
105our $INVR_LBL; 104our $INVR_LBL;
106 105
107sub status { 106sub status {
… …
905 user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory"; 904 user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory";
906 905
907 $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); 906 $invwin->add (my $hb = new CFClient::UI::HBox expand => 1);
908 907
909 $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); 908 $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1);
910 $vb1->add (my $lbl = new CFClient::UI::Label xalign => 0.5); 909 $vb1->add (my $lbl = new CFClient::UI::Label align => 0);
911 $lbl->set_text ("Player"); 910 $lbl->set_text ("Player");
912 $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); 911 $vb1->add ($INV = new CFClient::UI::Inventory expand => 1);
913 912
914 $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1); 913 $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1);
914 $vb2->add (my $hb2 = new CFClient::UI::HBox);
915 $hb2->add (new CFClient::UI::Button
916 text => "Close",
917 tooltip => "Close the currently open container (if one is open)",
918 connect_activate => sub {
919 $CONN->send ("apply $CONN->{open_container}")
920 if $CONN->{open_container} != 0;
921 },
922 );
915 $vb2->add ($INVR_LBL = new CFClient::UI::Label xalign => 0.5); 923 $hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0);
924
916 $INVR_LBL->set_text ("Floor"); 925 $INVR_LBL->set_text ("Floor");
917 $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); 926 $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1);
918 927
919 $invwin 928 $invwin
920} 929}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines