|
Lines 166-172
Link Here
|
| 166 |
if (ref($sound) eq 'HASH') { |
166 |
if (ref($sound) eq 'HASH') { |
| 167 |
return $sound{$_}{-data}; |
167 |
return $sound{$_}{-data}; |
| 168 |
} else { |
168 |
} else { |
| 169 |
return $$sound; |
169 |
return $sound; |
| 170 |
} |
170 |
} |
| 171 |
} |
171 |
} |
| 172 |
|
172 |
|
|
Lines 233-241
Link Here
|
| 233 |
|
233 |
|
| 234 |
#- ----------- graphics related stuff -------------------------------------- |
234 |
#- ----------- graphics related stuff -------------------------------------- |
| 235 |
|
235 |
|
| 236 |
# Perhaps this should be exported by SDL::SFont |
|
|
| 237 |
sub SDL_TEXTWIDTH { |
236 |
sub SDL_TEXTWIDTH { |
| 238 |
SDL::SFont::SDL_TEXTWIDTH(@_); |
237 |
SDL::App::SDL_TEXTWIDTH(@_); |
| 239 |
} |
238 |
} |
| 240 |
|
239 |
|
| 241 |
sub add_default_rect($) { |
240 |
sub add_default_rect($) { |
