#!/usr/bin/env perl
#
# Viewer.pl
#
#	This is just a simple image viewer that will load an image
# passed as an arg on the command line.
#
# usage: 	./Viewer.pl yomama.jpg
#
use SDL::App;
use SDL::Surface;
use SDL::Event;

my $fname = $ARGV[0];
if ("" eq $fname ) { 
	print "Usage:	./Viewer.pl filename\n"; 
	exit(1); 
}

$img = new SDL::Surface -name => $fname;

$app = new SDL::App -title => $fname, 
		-icon_title => "Viewer.pl",
		-icon => "wilbur.png",
		-width => $img->width, 
		-height => $img->height;

$srect = new SDL::Rect -height => $img->height, -width => $img->width;
$drect = new SDL::Rect -height => $img->height, -width => $img->width;

$img->blit($srect,$app,$drect);

$app->flip();

$event = new SDL::Event;
$event->set(SDL_SYSWMEVENT,SDL_IGNORE);
while (1) {
	$event->wait;
	if ( $event->type == SDL_QUIT ) { exit; }
	if ( $event->type == SDL_KEYDOWN ) {
		if ($event->key_sym() == SDLK_ESCAPE) { exit; }
	}
}