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