… | |
… | |
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; |