… | |
… | |
1141 | sub message_window { |
1141 | sub message_window { |
1142 | my $window = new CFClient::UI::FancyFrame |
1142 | my $window = new CFClient::UI::FancyFrame |
1143 | name => "message_window", |
1143 | name => "message_window", |
1144 | title => "Messages", |
1144 | title => "Messages", |
1145 | border_bg => [1, 1, 1, 1], |
1145 | border_bg => [1, 1, 1, 1], |
1146 | bg => [0, 0, 0, 0.75], |
|
|
1147 | x => "max", |
1146 | x => "max", |
1148 | y => 0, |
1147 | y => 0, |
1149 | force_w => $::WIDTH * 0.4, |
1148 | force_w => $::WIDTH * 0.4, |
1150 | force_h => $::HEIGHT * 0.5, |
1149 | force_h => $::HEIGHT * 0.5, |
1151 | child => (my $vbox = new CFClient::UI::VBox), |
1150 | child => (my $vbox = new CFClient::UI::VBox), |