/[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 101 by dpavlin, Thu Aug 2 17:15:07 2007 UTC revision 103 by dpavlin, Thu Aug 2 18:01:51 2007 UTC
# Line 255  Check SDL event loop if there are any pe Line 255  Check SDL event loop if there are any pe
255  my $pending_key;  my $pending_key;
256  my $run_for = 2000;  my $run_for = 2000;
257    
258    my $key_down;
259    
260    sub key_down {
261            my $self = shift;
262            my $key = shift;
263            warn "key_down($key) = ",$key_down->{$key}, "\n" if $self->debug;
264            return $key_down->{$key};
265    }
266    
267  sub key_pressed {  sub key_pressed {
268          my $self = shift;          my $self = shift;
269    
# Line 273  sub key_pressed { Line 282  sub key_pressed {
282    
283          if ($type == SDL_KEYDOWN) {          if ($type == SDL_KEYDOWN) {
284                  $k = $event->key_name();                  $k = $event->key_name();
285                    $key_down->{$k}++;
286                  if ( $k eq 'escape' ) {                  if ( $k eq 'escape' ) {
287                          $run_for = $self->cli;                          $run_for = $self->cli;
288                          warn "will check event loop every $run_for cycles\n";                          warn "will check event loop every $run_for cycles\n";
# Line 283  sub key_pressed { Line 293  sub key_pressed {
293                  }                  }
294          } elsif ( $type == SDL_KEYUP ) {          } elsif ( $type == SDL_KEYUP ) {
295                  my $up = $event->key_name();                  my $up = $event->key_name();
296                    $key_down->{$up} = 0;
297                  warn "SDL_KEYUP ($type) = '$up'", $just_checking ? ' fake' : '', "\n";                  warn "SDL_KEYUP ($type) = '$up'", $just_checking ? ' fake' : '', "\n";
298                  undef $pending_key;                  undef $pending_key;
299          }          }
Legend:
Removed from v.101  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.26