Like so...?
########################
use Tk;
$mw=tkinit;
$mw->Button(
-image=> $mw->Photo(-file=> Tk->findINC('Camel.xpm'))
)->pack;
MainLoop;
########################
Jack
> -----Original Message-----
> From: Marcus [mailto:[EMAIL PROTECTED]]
> Sent: February 1, 2001 2:05 PM
> To: [EMAIL PROTECTED]
> Subject: PTk: button images
>
>
>
> I could use some help settings background images for buttons with
> Perl/Tk. The image attribute only works for me with the built in
> bitmaps, like so:
> -bitmap => '@' . Tk->findINC('demos/images/noletters'),
>
> How do I get the following image though?
>
> -image =>'d:/ptk/Camel.xpm',
>
>
> I also tried this, but I don't think it's correct, is it.
>
> $button_26->Photo(-file =>("d:/ptk/Picture8.ppm"));
>
>
> Thanks for any help,
>
> Marcus Friedlaender
>
>
> _______________________________________________
> Perl-Win32-Users mailing list
> [EMAIL PROTECTED]
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
