-- 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/DOMStringList.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.DOMStringList(
item,
contains,
getLength,
DOMStringList,
castToDOMStringList,
gTypeDOMStringList,
DOMStringListClass,
toDOMStringList,
) 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 22 "./Graphics/UI/Gtk/WebKit/DOM/DOMStringList.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
item ::
     (MonadIO m, DOMStringListClass self, GlibString string) =>
       self -> Word -> m (Maybe string)
item self index
  = liftIO
      (((\(DOMStringList arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_dom_string_list_item argPtr1 arg2) (toDOMStringList self)
          (fromIntegral index))
         >>=
         maybePeek readUTFString)
 
contains ::
         (MonadIO m, DOMStringListClass self, GlibString string) =>
           self -> string -> m Bool
contains self string
  = liftIO
      (toBool <$>
         (withUTFString string $
            \ stringPtr ->
              (\(DOMStringList arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_dom_string_list_contains argPtr1 arg2)
{-# LINE 44 "./Graphics/UI/Gtk/WebKit/DOM/DOMStringList.chs" #-}
                (toDOMStringList self)
                stringPtr))
 
getLength :: (MonadIO m, DOMStringListClass self) => self -> m Word
getLength self
  = liftIO
      (fromIntegral <$>
         ((\(DOMStringList arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_dom_string_list_get_length argPtr1)
{-# LINE 52 "./Graphics/UI/Gtk/WebKit/DOM/DOMStringList.chs" #-}
            (toDOMStringList self)))

foreign import ccall safe "webkit_dom_dom_string_list_item"
  webkit_dom_dom_string_list_item :: ((Ptr DOMStringList) -> (CULong -> (IO (Ptr CChar))))

foreign import ccall safe "webkit_dom_dom_string_list_contains"
  webkit_dom_dom_string_list_contains :: ((Ptr DOMStringList) -> ((Ptr CChar) -> (IO CInt)))

foreign import ccall safe "webkit_dom_dom_string_list_get_length"
  webkit_dom_dom_string_list_get_length :: ((Ptr DOMStringList) -> (IO CULong))