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

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

revision 45 by dpavlin, Tue Jul 31 09:43:50 2007 UTC revision 56 by dpavlin, Tue Jul 31 15:03:23 2007 UTC
# Line 11  use SDL::Color; Line 11  use SDL::Color;
11    
12  use Carp qw/confess/;  use Carp qw/confess/;
13    
14  use base qw(Class::Accessor);  use base qw(Class::Accessor Prefs);
15  __PACKAGE__->mk_accessors(qw(debug scale show_mem mem_dump trace app));  __PACKAGE__->mk_accessors(qw(app));
16    
17    =head1 NAME
18    
19    Screen - simulated 256*256 pixels monochrome screen using SDL
20    
21  =head2 open_screen  =head2 open_screen
22    
# Line 25  our $app; Line 29  our $app;
29  sub open_screen {  sub open_screen {
30          my $self = shift;          my $self = shift;
31    
32            $self->prefs;
33    
34          if ( ! $self->scale ) {          if ( ! $self->scale ) {
35                  $self->scale( 1 );                  $self->scale( 1 );
36                  warn "using default unscaled display\n";                  warn "using default unscaled display\n";
# Line 160  sub sync { Line 166  sub sync {
166          $app->sync;          $app->sync;
167  }  }
168    
169    =head1 SEE ALSO
170    
171    L<Orao> is sample implementation using this module
172    
173    =head1 AUTHOR
174    
175    Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
176    
177    =head1 COPYRIGHT & LICENSE
178    
179    Copyright 2007 Dobrica Pavlinusic, All Rights Reserved.
180    
181    This program is free software; you can redistribute it and/or modify it
182    under the same terms as Perl itself.
183    
184    =cut
185  1;  1;
Legend:
Removed from v.45  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.26