Thanks, I will check it out. Will this change be integrated into the next
release of Embperl?
Btw, when will the next release happen?
Yatin
----- Original Message -----
From: "Gerald Richter" <[EMAIL PROTECTED]>
To: "Yatin Chawathe" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Friday, February 14, 2003 2:01 PM
Subject: Re: Extending HTML syntax
>
>
> Hi,
> >
> > $self->AddTag('epimg', ['width', 'height'], ['src'], undef,
> > {
> > perlcode =>
> > 'my ($w, $h, $src);
> > $w = %&width%;
> > $h = %&height%;
> > $src = %&src%;
> > if (!defined $w && !defined $h) {
> > ($w, $h) = my_own_func_to_get_img_dimensions($src);
> > _ep_sa(%$t%, %$x%, "width", $w);
> > _ep_sa(%$t%, %$x%, "height", $h);
>
> XML::Embperl::DOM::iSetText(%$t%,%$x%, "img") ;
>
> > }',
> > });
> >
>
> Use the above addition with the DOM.xs I attach you then it should work
(but
> I have not fully tested it)
>
> Gerald
>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
