| Subject: | drawText not working with PDF::API2 gfx object |
This is PDF::API2, Version 0.40.101 (2005-03-23 17:42:29)
CreateSimple.pm:our $VERSION = '1.0.0.0';
Linux s1 2.4.27 #10 SMP Wed Sep 1 06:50:40 CEST 2004 i686 unknown (Debian testing)
This is perl, v5.8.6 built for i686-linux
sub drawText{
my ($self,$text,$font,$fontSize,$x,$y,$color,$align,$pageNo) = @_;
$pageNo = $self->_getCurPage unless $pageNo;
$align = 0 unless $align;
my $fontObj = $self->_getFont($font);
my $page = $self->_getPage($pageNo);
# Does not work!!!
# my $gfx = $page->gfx;
# C. Drauch, 2005-08-07
my $gfx = $page->text;
$self->_applyTransformation($gfx,$x,$y);
$gfx->fillcolor($color);
$gfx->font($fontObj,$fontSize);