Displaying a photo from hard drive

[HermannJens]

Im using Perl with Tk.
Im creating a graphical user interface for my computer program.

I have this file called "sunset.jpg" and i want it to be displayed in my graphical user interface for my program.

How do i get photos displayed in perl tk?

[Rykus]

Im using Perl with Tk.
Im creating a graphical user interface for my computer program.

I have this file called "sunset.jpg" and i want it to be displayed in my graphical user interface for my program.

How do i get photos displayed in perl tk?

You need the Tk::JPEG module.

here is a snippet from a web browser I wrote about 5 or 6 years ago. Hopefully it's still relevant.

sub open_image
#opens single image and displays it
{
    my ($main, $window_id, $status_window, $bar, $address_bar, $filename) = @_;
    $window[$window_id]->delete('1.0', 'end');
    my $frame = $window[$window_id]->Frame;
    my $label = $frame->Label->pack;
    my $image = $label->Photo(-file=>$filename);
    $label->configure(-image=>$image);
    $width = $image->width();
    $height = $image->height();
    $x = $width/2;
    $y = $height/2;
    #$window[$window_id]->imageCreate(end, -image=>$image);
    $window[$window_id]->windowCreate('end', -align=>center, -window=>$frame);
 
    $saved[$window_id] = 0;
    open(OUT, "<$filename");
    $curr_code[$window_id] = <OUT>;
    close(OUT);
}