Subject: | Imager bug w32 Font bounding box |
Using Imager v.041 (which I think it's awesome)
perl, v5.6.1 built for MSWin32-x86-multi-thread
Binary build 635 provided by ActiveState Corp. http://www.ActiveState.com
My box: Win 2000 Professional Edition
Got an error using the bounding box function, I got this error:
Undefined subroutine &Imager::Font::Win32::i_wf_bbox called at C:/Perl/site/lib/Imager/Font/Win32.pm line 18, line 213.
My Code:
--------------------
use strict;
use Imager;
use Imager ':handy';
my $font1 = NF(face => 'Arial Bold Italic', size=> 15);
my @bbox_data = $font1->bounding_box(string=>"Hello",size=>15);
--------------------
I *humbly* modified the Font/Win32.pm module to the following and seems to be working...
sub _bounding_box {
my ($self, %opts) = @_;
return Imager::i_wf_bbox($self->{face}, $opts{size}, $opts{string});
#my @bbox = i_wf_bbox($self->{face}, $opts{size}, $opts{string});
}
Thanks for Imager!