-- GENERATED by C->Haskell Compiler, version 0.13.13 (gtk2hs branch) "Bin IO", 27 May 2012 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/AudioTrack.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.AudioTrack(
getId,
getLabel,
setEnabled,
getEnabled,
AudioTrack,
castToAudioTrack,
gTypeAudioTrack,
AudioTrackClass,
toAudioTrack,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 26 "./Graphics/UI/Gtk/WebKit/DOM/AudioTrack.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
getId ::
      (MonadIO m, AudioTrackClass self, GlibString string) =>
        self -> m string
getId self
  = liftIO
      (((\(AudioTrack arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_audio_track_get_id argPtr1) (toAudioTrack self)) >>=
         readUTFString)
 
getLabel ::
         (MonadIO m, AudioTrackClass self, GlibString string) =>
           self -> m string
getLabel self
  = liftIO
      (((\(AudioTrack arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_audio_track_get_label argPtr1) (toAudioTrack self))
         >>=
         readUTFString)
 
setEnabled ::
           (MonadIO m, AudioTrackClass self) => self -> Bool -> m ()
setEnabled self val
  = liftIO
      ((\(AudioTrack arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_audio_track_set_enabled argPtr1 arg2) (toAudioTrack self)
         (fromBool val))
 
getEnabled :: (MonadIO m, AudioTrackClass self) => self -> m Bool
getEnabled self
  = liftIO
      (toBool <$>
         ((\(AudioTrack arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_audio_track_get_enabled argPtr1)
{-# LINE 58 "./Graphics/UI/Gtk/WebKit/DOM/AudioTrack.chs" #-}
            (toAudioTrack self)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/AudioTrack.h webkit_dom_audio_track_get_id"
  webkit_dom_audio_track_get_id :: ((Ptr AudioTrack) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/AudioTrack.h webkit_dom_audio_track_get_label"
  webkit_dom_audio_track_get_label :: ((Ptr AudioTrack) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/AudioTrack.h webkit_dom_audio_track_set_enabled"
  webkit_dom_audio_track_set_enabled :: ((Ptr AudioTrack) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/AudioTrack.h webkit_dom_audio_track_get_enabled"
  webkit_dom_audio_track_get_enabled :: ((Ptr AudioTrack) -> (IO CInt))