-- 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/VideoTrack.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.VideoTrack(
getId,
getLabel,
setSelected,
getSelected,
VideoTrack,
castToVideoTrack,
gTypeVideoTrack,
VideoTrackClass,
toVideoTrack,
) 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/VideoTrack.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
getId ::
      (MonadIO m, VideoTrackClass self, GlibString string) =>
        self -> m string
getId self
  = liftIO
      (((\(VideoTrack arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_video_track_get_id argPtr1) (toVideoTrack self)) >>=
         readUTFString)
 
getLabel ::
         (MonadIO m, VideoTrackClass self, GlibString string) =>
           self -> m string
getLabel self
  = liftIO
      (((\(VideoTrack arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_video_track_get_label argPtr1) (toVideoTrack self))
         >>=
         readUTFString)
 
setSelected ::
            (MonadIO m, VideoTrackClass self) => self -> Bool -> m ()
setSelected self val
  = liftIO
      ((\(VideoTrack arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_video_track_set_selected argPtr1 arg2) (toVideoTrack self)
         (fromBool val))
 
getSelected :: (MonadIO m, VideoTrackClass self) => self -> m Bool
getSelected self
  = liftIO
      (toBool <$>
         ((\(VideoTrack arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_video_track_get_selected argPtr1)
{-# LINE 58 "./Graphics/UI/Gtk/WebKit/DOM/VideoTrack.chs" #-}
            (toVideoTrack self)))

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

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

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

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