/[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 29 by dpavlin, Mon Jul 30 17:32:41 2007 UTC revision 31 by dpavlin, Mon Jul 30 18:07:29 2007 UTC
# Line 12  use SDL::Color; Line 12  use SDL::Color;
12  use base qw(Class::Accessor);  use base qw(Class::Accessor);
13  __PACKAGE__->mk_accessors(qw(debug scale show_mem run_for mem_dump trace));  __PACKAGE__->mk_accessors(qw(debug scale show_mem run_for mem_dump trace));
14    
15  =head2 init  =head2 open_screen
16    
17  Open simulated screen  Open simulated screen
18    
# Line 20  Open simulated screen Line 20  Open simulated screen
20    
21  our $app;  our $app;
22    
23  sub init {  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.29  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.26