Fixed a bug where the pie height could not be set to 0

This commit is contained in:
Martin Kamerbeek 2006-05-09 16:10:38 +00:00
parent 7d061da0f9
commit b6cbd68529

View file

@ -1027,7 +1027,8 @@ Returns the thickness of the top of the pie in pixels. Defaults to 20 pixels.
sub getTopHeight {
my $self = shift;
return $self->{_pieProperties}->{topHeight} || 20;
return 20 unless (defined $self->{_pieProperties}->{topHeight});
return $self->{_pieProperties}->{topHeight};
}
#-------------------------------------------------------------------