… | |
… | |
726 | } |
726 | } |
727 | |
727 | |
728 | sub message_window { |
728 | sub message_window { |
729 | my $window = new CFClient::UI::FancyFrame |
729 | my $window = new CFClient::UI::FancyFrame |
730 | title => "Messages", |
730 | title => "Messages", |
731 | border_bg => [1, 1, 1, 0.5], |
731 | border_bg => [1, 1, 1, 1], |
732 | bg => [0.3, 0.3, 0.3, 0.8], |
732 | bg => [0, 0, 0, 0.5], |
733 | user_w => int $::WIDTH / 3, |
733 | user_w => int $::WIDTH / 3, |
734 | user_h => int $::HEIGHT / 5, |
734 | user_h => int $::HEIGHT / 5, |
735 | child => (my $vbox = new CFClient::UI::VBox); |
735 | child => (my $vbox = new CFClient::UI::VBox); |
736 | |
736 | |
737 | $vbox->add ($LOGVIEW = new CFClient::UI::TextView |
737 | $vbox->add ($LOGVIEW = new CFClient::UI::TextView |