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 ); |
$app->title( ref($self) ); |
53 |
|
|
54 |
$self->app( $app ); |
$self->app( $app ); |
55 |
|
|
238 |
my $event = $self->event || confess "no event?"; |
my $event = $self->event || confess "no event?"; |
239 |
|
|
240 |
if ( ! $event->poll ) { |
if ( ! $event->poll ) { |
241 |
|
return $pending_key unless $self->can('session_event'); |
242 |
if ( my $h = $self->session_event('key_pressed') ) { |
if ( my $h = $self->session_event('key_pressed') ) { |
243 |
my ( $key, $state ) = %$h; |
my ( $key, $state ) = %$h; |
244 |
if ( $state ) { |
if ( $state ) { |