… | |
… | |
385 | |
385 | |
386 | sub make_gauge_window { |
386 | sub make_gauge_window { |
387 | my $gh = int $HEIGHT * $CFG->{gauge_size}; |
387 | my $gh = int $HEIGHT * $CFG->{gauge_size}; |
388 | |
388 | |
389 | my $win = new CFClient::UI::Frame ( |
389 | my $win = new CFClient::UI::Frame ( |
|
|
390 | req_x => 0, |
390 | req_y => -1, |
391 | req_y => -1, |
391 | user_w => $WIDTH, |
392 | def_w => $WIDTH, |
392 | user_h => $gh, |
393 | def_h => $gh, |
393 | ); |
394 | ); |
394 | |
395 | |
395 | $win->add (my $hbox = new CFClient::UI::HBox |
396 | $win->add (my $hbox = new CFClient::UI::HBox |
396 | children => [ |
397 | children => [ |
397 | (new CFClient::UI::HBox expand => 1), |
398 | (new CFClient::UI::HBox expand => 1), |
… | |
… | |
833 | name => "message_window", |
834 | name => "message_window", |
834 | title => "Messages", |
835 | title => "Messages", |
835 | border_bg => [1, 1, 1, 1], |
836 | border_bg => [1, 1, 1, 1], |
836 | bg => [0, 0, 0, 0.75], |
837 | bg => [0, 0, 0, 0.75], |
837 | req_x => -1, |
838 | req_x => -1, |
|
|
839 | req_y => 0, |
838 | user_w => int $::WIDTH / 3, |
840 | def_w => int $::WIDTH / 3, |
839 | user_h => int $::HEIGHT / 5, |
841 | def_h => int $::HEIGHT / 5, |
840 | child => (my $vbox = new CFClient::UI::VBox); |
842 | child => (my $vbox = new CFClient::UI::VBox); |
841 | |
843 | |
842 | $vbox->add ($LOGVIEW); |
844 | $vbox->add ($LOGVIEW); |
843 | |
845 | |
844 | $vbox->add (my $input = new CFClient::UI::Entry |
846 | $vbox->add (my $input = new CFClient::UI::Entry |
… | |
… | |
914 | } |
916 | } |
915 | } |
917 | } |
916 | |
918 | |
917 | sub make_inventory_window { |
919 | sub make_inventory_window { |
918 | my $invwin = new CFClient::UI::FancyFrame |
920 | my $invwin = new CFClient::UI::FancyFrame |
919 | user_w => $WIDTH * (7/8), |
921 | def_w => $WIDTH * (7/8), |
920 | user_h => $HEIGHT * (7/8), |
922 | def_h => $HEIGHT * (7/8), |
921 | title => "Inventory", |
923 | title => "Inventory", |
922 | name => "inventory_window", |
924 | name => "inventory_window", |
923 | on_visibility_change => sub { |
925 | on_visibility_change => sub { |
924 | $_[0]->show_centered if $_[1] |
926 | $_[0]->show_centered if $_[1] |
925 | }; |
927 | }; |
926 | |
928 | |
927 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
929 | $invwin->add (my $hb = new CFClient::UI::HBox expand => 1); |
… | |
… | |
950 | $invwin |
952 | $invwin |
951 | } |
953 | } |
952 | |
954 | |
953 | sub make_help_window { |
955 | sub make_help_window { |
954 | my $win = new CFClient::UI::FancyFrame |
956 | my $win = new CFClient::UI::FancyFrame |
955 | user_w => $WIDTH * (7/8), user_h => $HEIGHT * (7/8), title => "Documentation"; |
957 | def_w => int $WIDTH * 7/8, |
|
|
958 | def_h => int $HEIGHT * 7/8, |
|
|
959 | title => "Documentation"; |
956 | |
960 | |
957 | $win->add (my $vbox = new CFClient::UI::VBox); |
961 | $win->add (my $vbox = new CFClient::UI::VBox); |
958 | |
962 | |
959 | $vbox->add (my $buttons = new CFClient::UI::HBox); |
963 | $vbox->add (my $buttons = new CFClient::UI::HBox); |
960 | $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); |
964 | $vbox->add (my $viewer = new CFClient::UI::TextView expand => 1, fontsize => 0.8); |