File: testshell.pl

package info (click to toggle)
sdlperl 1.20.3-1
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 1,804 kB
  • ctags: 2,169
  • sloc: perl: 7,397; ansic: 232; makefile: 72; sh: 1
file content (21 lines) | stat: -rwxr-xr-x 429 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/env perl

use SDL::App;
use SDL::Event;
use SDL::Shell;

my $app = new SDL::App -t => $0, -w => 1200, -h => 600, -d => 24;
my $rect = new SDL::Rect -w => 1200, -h => 600;
my $con = new SDL::Shell -surface => $app, -rect => $rect, 
		-font => "data/LargeFont.bmp", -lines => 100;
my $event = new SDL::Event;

$con->topmost();

for (;;) {
	if ($event->poll) {
		$con->process($event);
	}
	$app->sync();
	$con->draw();
}