/[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 55 by dpavlin, Tue Jul 31 13:56: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 trace app));  __PACKAGE__->mk_accessors(qw(app));
16    
17  =head1 NAME  =head1 NAME
18    
# Line 29  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";
Legend:
Removed from v.55  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.26