92 |
-width => $w, |
-width => $w, |
93 |
-height => $h, |
-height => $h, |
94 |
-depth => 16, |
-depth => 16, |
95 |
-flags=>SDL_DOUBLEBUF | SDL_HWSURFACE | SDL_HWACCEL, |
# -flags=>SDL_DOUBLEBUF | SDL_HWSURFACE | SDL_HWACCEL, |
96 |
); |
); |
97 |
#$app->grab_input( SDL_GRAB_QUERY ); |
#$app->grab_input( SDL_GRAB_QUERY ); |
98 |
$app->grab_input( SDL_GRAB_OFF ); |
$app->grab_input( SDL::App::SDL_GRAB_OFF ); |
99 |
$app->title( ref($self) ); |
$app->title( ref($self) ); |
100 |
|
|
101 |
$self->app( $app ); |
$self->app( $app ); |
302 |
|
|
303 |
my $type = $event->type(); |
my $type = $event->type(); |
304 |
|
|
305 |
exit if ($type == SDL_QUIT); |
exit if ($type == SDL::App::SDL_QUIT); |
306 |
|
|
307 |
my $k = $pending_key; |
my $k = $pending_key; |
308 |
|
|
309 |
if ($type == SDL_KEYDOWN) { |
if ($type == SDL::App::SDL_KEYDOWN) { |
310 |
$k = $event->key_name(); |
$k = $event->key_name(); |
311 |
if ( $k eq 'escape' ) { |
if ( $k eq 'escape' ) { |
312 |
$run_for = $self->cli; |
$run_for = $self->cli; |
319 |
$key_active->{$k} = 1; |
$key_active->{$k} = 1; |
320 |
$self->record_session('key_pressed', { $k => 1 }); |
$self->record_session('key_pressed', { $k => 1 }); |
321 |
} |
} |
322 |
} elsif ( $type == SDL_KEYUP ) { |
} elsif ( $type == SDL::App::SDL_KEYUP ) { |
323 |
my $up = $event->key_name(); |
my $up = $event->key_name(); |
324 |
warn "SDL_KEYUP ($type) = '$up'", $just_checking ? ' fake' : '', "\n"; |
warn "SDL_KEYUP ($type) = '$up'", $just_checking ? ' fake' : '', "\n"; |
325 |
$self->key_up( $up ); |
$self->key_up( $up ); |