1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
--- 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"
|
