| … | |
… | |
| 8 | |
8 | |
| 9 | sub new { |
9 | sub new { |
| 10 | my $class = shift; |
10 | my $class = shift; |
| 11 | |
11 | |
| 12 | my $self = $class->SUPER::new ( |
12 | my $self = $class->SUPER::new ( |
| 13 | name => "message_window2", |
13 | name => "message_window2", |
| 14 | title => "Messages XXX", |
14 | title => "Messages XXX", |
| 15 | border_bg => [1, 1, 1, 1], |
15 | border_bg => [1, 1, 1, 1], |
| 16 | x => "max", |
16 | x => "max", |
| 17 | y => 20, |
17 | y => 0, |
| 18 | force_w => $::WIDTH * 0.4, |
18 | force_w => $::WIDTH * 0.4, |
| 19 | force_h => $::HEIGHT * 0.5, |
19 | force_h => $::HEIGHT * 0.5, |
| 20 | has_close_button => 1, |
20 | has_close_button => 1, |
| 21 | |
|
|
| 22 | child => (my $nb = DC::UI::Notebook->new (expand => 1)), |
21 | child => (my $nb = DC::UI::Notebook->new (expand => 1)), |
| 23 | @_, |
22 | @_, |
| 24 | ); |
23 | ); |
| 25 | |
24 | |
| 26 | $self->{notebook} = $nb; |
25 | $self->{notebook} = $nb; |
