/[papo]/papo/neb/neb/Tree/ScreenBox.pm
ViewVC logotype

Diff of /papo/neb/neb/Tree/ScreenBox.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by fheinz, Wed Apr 16 14:07:05 2003 UTC revision 1.2 by fheinz, Wed Apr 16 18:19:03 2003 UTC
# Line 11  use neb::Tree::LayoutBox; Line 11  use neb::Tree::LayoutBox;
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  {  {

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26