Permalink
Browse files

Getting pango to run, need to fix some more syntax

  • Loading branch information...
1 parent c8a5e29 commit 47f5115448b5663eae70d92bbd59c489605d0a03 @kthakore committed Oct 28, 2011
Showing with 8 additions and 8 deletions.
  1. +8 −8 bin/pangzero
View
@@ -2808,8 +2808,8 @@ sub LoadBackground {
}
sub TextWidth {
- if (defined(&SDL::App::SDL_TEXTWIDTH)) {
- SDL::App::SDL_TEXTWIDTH(@_); # perl-sdl-1.x
+ if (defined(&SDLx::App::SDL_TEXTWIDTH)) {
+ SDLx::App::SDL_TEXTWIDTH(@_); # perl-sdl-1.x
} else {
SDLx::SFont::SDL_TEXTWIDTH(@_); # perl-sdl-2.x
}
@@ -4900,12 +4900,12 @@ sub Initialize {
($PhysicalScreenWidth, $PhysicalScreenHeight) = &FindVideoMode();
($PhysicalScreenWidth, $PhysicalScreenHeight) = (640, 480);
- $App = new SDL::App(
- -flags => $sdlFlags,
- -title => "Pang Zero $::Version",
- -icon => "$DataDir/icon.png",
- -width => $PhysicalScreenWidth,
- -height => $PhysicalScreenHeight,
+ $App = SDLx::App->new(
+ flags => $sdlFlags,
+ title => "Pang Zero $::Version",
+ icon => "$DataDir/icon.png",
+ width => $PhysicalScreenWidth,
+ height => $PhysicalScreenHeight,
#-fullscreen => $FullScreen,
);

0 comments on commit 47f5115

Please sign in to comment.