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

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

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

revision 1.3 by fheinz, Tue Apr 15 14:36:05 2003 UTC revision 1.4 by fheinz, Tue Apr 15 21:21:32 2003 UTC
# Line 29  sub auto_align Line 29  sub auto_align
29  sub align {}  sub align {}
30  sub layout {}  sub layout {}
31    
32    sub hidden
33    {
34        my $self = shift;
35    
36        return $self->attribute("hidden") || "n";
37    }
38    
39  sub lam_x  sub lam_x
40  {  {
41      my $self = shift;      my $self = shift;
# Line 47  sub lam_y Line 54  sub lam_y
54      return $self->attribute("lam:y");      return $self->attribute("lam:y");
55  }  }
56    
57    sub lam_width
58    {
59        my $self = shift;
60        my $width = shift;
61    
62        $self->attribute("lam:width", $width) if defined ($width);
63        return $self->attribute("lam:width");
64    }
65    
66    sub lam_height
67    {
68        my $self = shift;
69        my $height = shift;
70    
71        $self->attribute("lam:height", $height) if defined ($height);
72        return $self->attribute("lam:height");
73    }
74    
75  sub x  sub x
76  {  {
77      my $self = shift;      my $self = shift;
# Line 70  sub width Line 95  sub width
95      my $self = shift;      my $self = shift;
96      my $width = shift;      my $width = shift;
97    
98        return 0 if $self->hidden =~ /y/i;
99      $self->attribute("width", $width) if defined ($width);      $self->attribute("width", $width) if defined ($width);
100      return $self->attribute("width");      return defined($self->attribute("width")) ? $self->attribute("width") : $self->lam_width;
101  }  }
102    
103  sub height  sub height
# Line 79  sub height Line 105  sub height
105      my $self = shift;      my $self = shift;
106      my $height = shift;      my $height = shift;
107    
108        return 0 if $self->hidden =~ /y/i;
109      $self->attribute("height", $height) if defined ($height);      $self->attribute("height", $height) if defined ($height);
110      return $self->attribute("height");      return defined($self->attribute("height")) ? $self->attribute("height") : $self->lam_height;
111  }  }
112    
113  sub cleanup  sub cleanup

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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