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