-- 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/TextTrackCueList.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.TextTrackCueList(
item,
getCueById,
getLength,
TextTrackCueList,
castToTextTrackCueList,
gTypeTextTrackCueList,
TextTrackCueListClass,
toTextTrackCueList,
) 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 25 "./Graphics/UI/Gtk/WebKit/DOM/TextTrackCueList.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
item ::
     (MonadIO m, TextTrackCueListClass self) =>
       self -> Word -> m (Maybe TextTrackCue)
item self index
  = liftIO
      (maybeNull (makeNewGObject mkTextTrackCue)
         ((\(TextTrackCueList arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_text_track_cue_list_item argPtr1 arg2)
{-# LINE 35 "./Graphics/UI/Gtk/WebKit/DOM/TextTrackCueList.chs" #-}
            (toTextTrackCueList self)
            (fromIntegral index)))
 
getCueById ::
           (MonadIO m, TextTrackCueListClass self, GlibString string) =>
             self -> string -> m (Maybe TextTrackCue)
getCueById self id
  = liftIO
      (maybeNull (makeNewGObject mkTextTrackCue)
         (withUTFString id $
            \ idPtr ->
              (\(TextTrackCueList arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_text_track_cue_list_get_cue_by_id argPtr1 arg2)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/TextTrackCueList.chs" #-}
                (toTextTrackCueList self)
                idPtr))
 
getLength ::
          (MonadIO m, TextTrackCueListClass self) => self -> m Word
getLength self
  = liftIO
      (fromIntegral <$>
         ((\(TextTrackCueList arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_text_track_cue_list_get_length argPtr1)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/TextTrackCueList.chs" #-}
            (toTextTrackCueList self)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/TextTrackCueList.h webkit_dom_text_track_cue_list_item"
  webkit_dom_text_track_cue_list_item :: ((Ptr TextTrackCueList) -> (CULong -> (IO (Ptr TextTrackCue))))

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

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/TextTrackCueList.h webkit_dom_text_track_cue_list_get_length"
  webkit_dom_text_track_cue_list_get_length :: ((Ptr TextTrackCueList) -> (IO CULong))