11 |
|
|
12 |
our @ISA = ('neb::Tree::LayoutBox'); |
our @ISA = ('neb::Tree::LayoutBox'); |
13 |
|
|
14 |
|
sub computed_height |
15 |
|
{ |
16 |
|
my $self = shift; |
17 |
|
my $height = $self->SUPER::computed_height; |
18 |
|
|
19 |
|
return defined($height) ? $height+2 : undef; |
20 |
|
} |
21 |
|
|
22 |
|
sub computed_width |
23 |
|
{ |
24 |
|
my $self = shift; |
25 |
|
my $width = $self->SUPER::computed_width; |
26 |
|
|
27 |
|
return defined($width) ? $width+3 : undef; |
28 |
|
} |
29 |
|
|
30 |
# The line uses up a row/column on each side of the box |
# The line uses up a row/column on each side of the box |
31 |
sub contents_width |
sub contents_width |
32 |
{ |
{ |