49 |
); |
); |
50 |
#$app->grab_input( SDL_GRAB_QUERY ); |
#$app->grab_input( SDL_GRAB_QUERY ); |
51 |
$app->grab_input( SDL_GRAB_OFF ); |
$app->grab_input( SDL_GRAB_OFF ); |
52 |
|
$app->title( ref($self) . ' ' . $self::VERSION ); |
53 |
|
|
54 |
$self->app( $app ); |
$self->app( $app ); |
55 |
|
|
263 |
undef $pending_key; |
undef $pending_key; |
264 |
} |
} |
265 |
|
|
266 |
warn "key_pressed = $pending_key\n" if $pending_key; |
if ( $pending_key ) { |
267 |
|
warn "key_pressed = $pending_key\n"; |
268 |
|
$self->record_session('key_pressed', $pending_key); |
269 |
|
} |
270 |
|
|
271 |
return $pending_key; |
return $pending_key; |
272 |
} |
} |