| … | |
… | |
| 905 | user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory"; |
905 | user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory"; |
| 906 | |
906 | |
| 907 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
907 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
| 908 | |
908 | |
| 909 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
909 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
| 910 | $vb1->add (my $lbl = new CFClient::UI::Label xalign => 0.5); |
910 | $vb1->add (my $lbl = new CFClient::UI::Label align => 0); |
| 911 | $lbl->set_text ("Player"); |
911 | $lbl->set_text ("Player"); |
| 912 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
912 | $vb1->add ($INV = new CFClient::UI::Inventory expand => 1); |
| 913 | |
913 | |
| 914 | $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1); |
914 | $hb->add (my $vb2 = new CFClient::UI::VBox expand => 1); |
| 915 | $vb2->add ($INVR_LBL = new CFClient::UI::Label xalign => 0.5); |
915 | $vb2->add ($INVR_LBL = new CFClient::UI::Label align => 0); |
| 916 | $INVR_LBL->set_text ("Floor"); |
916 | $INVR_LBL->set_text ("Floor"); |
| 917 | $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); |
917 | $vb2->add ($INVR = new CFClient::UI::Inventory expand => 1); |
| 918 | |
918 | |
| 919 | $invwin |
919 | $invwin |
| 920 | } |
920 | } |
