/[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 30 by dpavlin, Mon Jul 30 17:56:13 2007 UTC revision 31 by dpavlin, Mon Jul 30 18:07:29 2007 UTC
# Line 22  our $app; Line 22  our $app;
22    
23  sub open_screen {  sub open_screen {
24          my $self = shift;          my $self = shift;
25    
26            if ( ! $self->scale ) {
27                    $self->scale( 1 );
28                    warn "using default unscaled display\n";
29            }
30    
31          $app = SDL::App->new(          $app = SDL::App->new(
32                  -width  => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ),                  -width  => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ),
33                  -height => 256 * $self->scale,                  -height => 256 * $self->scale,
Legend:
Removed from v.30  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.26