/[VRac]/Screen.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /Screen.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 212 by dpavlin, Mon Apr 14 21:26:32 2008 UTC revision 216 by dpavlin, Thu Sep 3 10:24:34 2009 UTC
# Line 92  sub open_screen { Line 92  sub open_screen {
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 );
# Line 302  sub key_pressed { Line 302  sub key_pressed {
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;
# Line 319  sub key_pressed { Line 319  sub key_pressed {
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 );

Legend:
Removed from v.212  
changed lines
  Added in v.216

  ViewVC Help
Powered by ViewVC 1.1.26