Added Mix_VolumeChunk to SDL::Mixer + tests

[sdlgit/SDL_perl.git] / lib / SDL / Mixer.pm

diff --git a/lib/SDL/Mixer.pm b/lib/SDL/Mixer.pm
index d84dd3a..a578126 100644 (file)
--- a/lib/SDL/Mixer.pm
+++ b/lib/SDL/Mixer.pm
@@ -1,8 +1,9 @@
 #      Mixer.pm
 #
 #      a SDL module for manipulating the SDL_mixer lib.
-#
+#      
 #      Copyright (C) 2000,2002 David J. Goehrig
+#      Copyright (C) 2009 Kartik Thakore
 
 package SDL::Mixer;
 use strict;
@@ -123,6 +124,7 @@ sub music_volume ($$) {
        return SDL::MixVolumeMusic($volume);
 }
 
+
 sub halt_channel ($$) {
        my ($self,$channel) = @_;
        return SDL::MixHaltChannel($channel);
@@ -202,6 +204,11 @@ sub playing ($$) {
        return SDL::MixPlaying($channel);
 }
 
+sub mix_volume_chunk($$$) {
+       my ($self, $chunk, $volume) = @_;
+       return SDL::MixVolumeChunk($chunk, $volume);
+}
+
 sub playing_music () {
        return SDL::MixPlayingMusic();
 }