/[VRac]/M6502/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 /M6502/Screen.pm

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

revision 99 by dpavlin, Thu Aug 2 16:21:17 2007 UTC revision 101 by dpavlin, Thu Aug 2 17:15:07 2007 UTC
# Line 259  sub key_pressed { Line 259  sub key_pressed {
259          my $self = shift;          my $self = shift;
260    
261          # don't take key, just pull event          # don't take key, just pull event
262          my $just_checking = shift;          my $just_checking = shift || 0;
263    
264          my $event = $self->event || confess "no event?";          my $event = $self->event || confess "no event?";
265    
# Line 276  sub key_pressed { Line 276  sub key_pressed {
276                  if ( $k eq 'escape' ) {                  if ( $k eq 'escape' ) {
277                          $run_for = $self->cli;                          $run_for = $self->cli;
278                          warn "will check event loop every $run_for cycles\n";                          warn "will check event loop every $run_for cycles\n";
279                            $pending_key = '~';
280                  } else {                  } else {
281                          warn "SDL_KEYDOWN ($type) = '$k'\n";                          warn "SDL_KEYDOWN ($type) = '$k'", $just_checking ? ' fake' : '', "\n";
282                          $pending_key = $k if $just_checking;                          $pending_key = $k;
283                  }                  }
284          } elsif ( $type == SDL_KEYUP ) {          } elsif ( $type == SDL_KEYUP ) {
285                  my $up = $event->key_name();                  my $up = $event->key_name();
286                  warn "SDL_KEYUP ($type) = '$up'\n";                  warn "SDL_KEYUP ($type) = '$up'", $just_checking ? ' fake' : '', "\n";
287                  undef $pending_key;                  undef $pending_key;
288          }          }
289    
Legend:
Removed from v.99  
changed lines
  Added in v.101
  ViewVC Help
Powered by ViewVC 1.1.26