#!/usr/bin/env perl

use 5.16.0;

use SDLx::App;
use SDL::Events;
use SDL::Event;

my $app = SDLx::App->new(width => 400, height => 300, gl => 1, title => 'abc');

sub _drawGLScene {

};

$app->add_event_handler( sub{ return 0 if $_[0]->type == SDL_QUIT; return 1});
#$app->add_show_handler(sub { $app->update; });
$app->add_show_handler(sub { _drawGLScene(); $app->sync;  });
$app->add_move_handler( sub { } );

$app->run;