… | |
… | |
97 | |
97 | |
98 | our $ALT_ENTER_MESSAGE; |
98 | our $ALT_ENTER_MESSAGE; |
99 | our $STATUSBOX; |
99 | our $STATUSBOX; |
100 | our $DEBUG_STATUS; |
100 | our $DEBUG_STATUS; |
101 | |
101 | |
102 | our $INVWIN; |
|
|
103 | our $INV; |
102 | our $INV; |
104 | our $INVR; |
103 | our $INVR; |
105 | our $INVR_LBL; |
104 | our $INVR_LBL; |
106 | |
105 | |
107 | sub status { |
106 | sub status { |
… | |
… | |
910 | $vb1->add (my $lbl = new CFClient::UI::Label align => 0); |
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 align => 0); |
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 | } |