Fixed WebGUI::Image->new doesn't obey width and height settings

This commit is contained in:
Martin Kamerbeek 2007-04-20 15:00:15 +00:00
parent 400ceb4cdc
commit dcf64ed83b
2 changed files with 6 additions and 2 deletions

View file

@ -173,7 +173,10 @@ sub new {
my $width = shift || 300;
my $height = shift || 300;
my $img = Image::Magick->new;
my $img = Image::Magick->new(
size => $width.'x'.$height,
);
$img->Read(filename => 'xc:white');
bless {_image => $img, _session => $session, _properties => {