… | |
… | |
921 | $QUIT_DIALOG->show; |
921 | $QUIT_DIALOG->show; |
922 | } |
922 | } |
923 | |
923 | |
924 | sub make_inventory_window { |
924 | sub make_inventory_window { |
925 | my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame |
925 | my $invwin = $INV_WINDOW = new CFClient::UI::FancyFrame |
926 | x => "center", |
926 | x => "center", |
927 | y => "center", |
927 | y => "center", |
928 | def_w => $WIDTH * 9/10, |
928 | force_w => $WIDTH * 9/10, |
929 | def_h => $HEIGHT * 9/10, |
929 | force_h => $HEIGHT * 9/10, |
930 | title => "Inventory", |
930 | title => "Inventory", |
931 | name => "inventory_window", |
931 | name => "inventory_window", |
932 | ; |
932 | ; |
933 | |
933 | |
934 | $invwin->add (my $hb = new CFClient::UI::HBox homogeneous => 1); |
934 | $invwin->add (my $hb = new CFClient::UI::HBox homogeneous => 1); |
935 | |
935 | |
936 | $hb->add (my $vb1 = new CFClient::UI::VBox); |
936 | $hb->add (my $vb1 = new CFClient::UI::VBox); |