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);
}