/[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 30 by dpavlin, Mon Jul 30 17:56:13 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          $app = SDL::App->new(          $app = SDL::App->new(
26                  -width  => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ),                  -width  => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ),

Legend:
Removed from v.29  
changed lines
  Added in v.30

  ViewVC Help
Powered by ViewVC 1.1.26