… | |
… | |
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 |