… | … | ||
---|---|---|---|
9 | 9 | ||
10 | sub new { | 10 | sub new { |
11 | my $class = shift; | 11 | my $class = shift; |
12 | 12 | ||
13 | my $self = $class->SUPER::new ( | 13 | my $self = $class->SUPER::new ( |
14 | name => "message_window2", | ||
15 | title => "Messages XXX", | ||
16 | border_bg => [1, 1, 1, 1], | 14 | border_bg => [1, 1, 1, 1], |
17 | x => "max", | 15 | x => "max", |
18 | y => 0, | 16 | y => 0, |
19 | force_w => $::WIDTH * 0.4, | 17 | force_w => $::WIDTH * 0.4, |
20 | force_h => $::HEIGHT * 0.5, | 18 | force_h => $::HEIGHT * 0.5, |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |