| … | |
… | |
| 912 | $vb1->add (my $lbl = new CFClient::UI::Label align => 0); |
912 | $vb1->add (my $lbl = new CFClient::UI::Label align => 0); |
| 913 | $lbl->set_text ("Player"); |
913 | $lbl->set_text ("Player"); |
| 914 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
914 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
| 915 | |
915 | |
| 916 | $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1); |
916 | $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1); |
|
|
917 | |
| 917 | $vb2->add (my $hb2 = new CFClient::UI::HBox); |
918 | $vb2->add (my $hb2 = new CFClient::UI::HBox); |
|
|
919 | $hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0, expand => 1); |
| 918 | $hb2->add (new CFClient::UI::Button |
920 | $hb2->add (new CFClient::UI::Button |
| 919 | text => "Close", |
921 | text => "Close", |
| 920 | tooltip => "Close the currently open container (if one is open)", |
922 | tooltip => "Close the currently open container (if one is open)", |
| 921 | connect_activate => sub { |
923 | connect_activate => sub { |
| 922 | $CONN->send ("apply $CONN->{open_container}") |
924 | $CONN->send ("apply $CONN->{open_container}") |
| 923 | if $CONN->{open_container} != 0; |
925 | if $CONN->{open_container} != 0; |
| 924 | }, |
926 | }, |
| 925 | ); |
927 | ); |
| 926 | $hb2->add ($INVR_LBL = new CFClient::UI::Label align => 0); |
|
|
| 927 | |
928 | |
| 928 | $INVR_LBL->set_text ("Floor"); |
929 | $INVR_LBL->set_text ("Floor"); |
| 929 | $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); |
930 | $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); |
| 930 | |
931 | |
| 931 | $invwin |
932 | $invwin |
