| … | |
… | |
| 867 | } |
867 | } |
| 868 | } |
868 | } |
| 869 | |
869 | |
| 870 | sub make_inventory_window { |
870 | sub make_inventory_window { |
| 871 | my $invwin = new CFClient::UI::FancyFrame |
871 | my $invwin = new CFClient::UI::FancyFrame |
| 872 | user_w => $WIDTH * (4/5), user_h => $HEIGHT * (4/5), title => "Inventory"; |
872 | user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Inventory"; |
| 873 | |
873 | |
| 874 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
874 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
| 875 | |
875 | |
| 876 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
876 | $hb->add (my $vb1 = new CFClient::UI::VBox expand => 1); |
| 877 | $vb1->add (my $lbl = new CFClient::UI::Label); |
877 | $vb1->add (my $lbl = new CFClient::UI::Label); |
