--- sdlperl-1.20.3dfsg.orig/lib/SDL/TTFont.pm
+++ sdlperl-1.20.3dfsg/lib/SDL/TTFont.pm
@@ -23,7 +23,7 @@
 	my $self = {};
 	my %options;
 	(%options) = @_;
-	$self->{-mode} = $options{-mode} 	|| $options{-m}	 || main::TEXT_SHADED();
+	$self->{-mode} = $options{-mode} 	|| $options{-m}	 || SDL::Event::TEXT_SHADED();
 	$self->{-name} = $options{-name} 	|| $options{-n};
 	$self->{-size} = $options{-size} 	|| $options{-s};
 	$self->{-fg} = $options{-foreground} 	|| $options{-fg} || $SDL::Color::black;
@@ -87,68 +87,68 @@
 
 sub normal {
 	my ($self) = @_;
-	SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_NORMAL());
+	SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_NORMAL());
 }
 
 sub bold {
 	my ($self) = @_;
-	SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_BOLD());
+	SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_BOLD());
 }
 
 sub italic {
 	my ($self) = @_;
-	SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_ITALIC());
+	SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_ITALIC());
 
 }
 
 sub underline {
 	my ($self) = @_;
-	SDL::TTFSetFontStyle($$self{-font},main::TTF_STYLE_UNDERLINE());
+	SDL::TTFSetFontStyle($$self{-font},SDL::Event::TTF_STYLE_UNDERLINE());
 }
 
 sub text_shaded {
 	my ($self) = @_;
-	$$self{-mode} = main::TEXT_SHADED();
+	$$self{-mode} = SDL::Event::TEXT_SHADED();
 }
 
 sub text_solid {
 	my ($self) = @_;
-	$$self{-mode} = main::TEXT_SOLID();
+	$$self{-mode} = SDL::Event::TEXT_SOLID();
 }
 
 sub text_blended {
 	my ($self) = @_;
-	$$self{-mode} = main::TEXT_BLENDED();
+	$$self{-mode} = SDL::Event::TEXT_BLENDED();
 }
 
 sub utf8_shaded {
 	my ($self) = @_;
-	$$self{-mode} = main::UTF8_SHADED();
+	$$self{-mode} = SDL::Event::UTF8_SHADED();
 }
 
 sub utf8_solid {
 	my ($self) = @_;
-	$$self{-mode} = main::UTF8_SOLID();
+	$$self{-mode} = SDL::Event::UTF8_SOLID();
 }
 
 sub utf8_blended {
 	my ($self) = @_;
-	$$self{-mode} = main::UTF8_BLENDED();
+	$$self{-mode} = SDL::Event::UTF8_BLENDED();
 }
 
 sub unicode_shaded {
 	my ($self) = @_;
-	$$self{-mode} = main::UNICODE_SHADED();
+	$$self{-mode} = SDL::Event::UNICODE_SHADED();
 }
 
 sub unicode_solid {
 	my ($self) = @_;
-	$$self{-mode} = main::UNICODE_SOLID();
+	$$self{-mode} = SDL::Event::UNICODE_SOLID();
 }
 
 sub unicode_blended {
 	my ($self) = @_;
-	$$self{-mode} = main::UNICODE_BLENDED();
+	$$self{-mode} = SDL::Event::UNICODE_BLENDED();
 }
 
 die "Could not initialize True Type Fonts\n"