Re^5: Bitmap for beginners (Perl Tk)

by mawe (Hermit)

on Feb 16, 2005 at 10:21 UTC ( [id://431505]=note: print w/replies, xml )

Need Help??

Hi!

The data you receive from encode_photo_data() is not a file, so you have to use Photo(-data=>...):

$encoded_pic = encode_photo_data("up.bmp");
my $pic = $top->Photo(-data=>$encoded_pic);
[download]

or in one line:

my $pic = $top->Photo(-data=>encode_photo_data("up.bmp"));
[download]

Regards, mawe

Comment on Re^5: Bitmap for beginners (Perl Tk) Select or Download Code

Replies are listed 'Best First'.
Re^6: Bitmap for beginners (Perl Tk) by TonyDonker (Novice) on Feb 16, 2005 at 10:46 UTC
This works also fine: `use Tk;<br/> my $top = new MainWindow;<br/> my $pic = $top->Photo(-file=>"img/hals.gif");<br/> $top->Button(-image=>$pic)->pack();<br/> MainLoop();<br/><br/>` [download] a .GIF instead of a .BMP	[reply] [d/l]

Domain Nodelet^?

Node Status^?

node history
Node Type: note [id://431505]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others drinking their drinks and smoking their pipes about the Monastery: (1)

As of 2024-04-25 01:57 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found