Parent Directory | Revision Log | 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, |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |