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


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLDocument
       (htmlDocumentClose, htmlDocumentClear, htmlDocumentCaptureEvents,
        htmlDocumentReleaseEvents, htmlDocumentHasFocus,
        htmlDocumentGetEmbeds, htmlDocumentGetPlugins,
        htmlDocumentGetScripts, htmlDocumentGetWidth,
        htmlDocumentGetHeight, htmlDocumentSetDir, htmlDocumentGetDir,
        htmlDocumentSetDesignMode, htmlDocumentGetDesignMode,
        htmlDocumentGetCompatMode, htmlDocumentGetActiveElement,
        htmlDocumentSetBgColor, htmlDocumentGetBgColor,
        htmlDocumentSetFgColor, htmlDocumentGetFgColor,
        htmlDocumentSetAlinkColor, htmlDocumentGetAlinkColor,
        htmlDocumentSetLinkColor, htmlDocumentGetLinkColor,
        htmlDocumentSetVlinkColor, htmlDocumentGetVlinkColor, HTMLDocument,
        HTMLDocumentClass, castToHTMLDocument, gTypeHTMLDocument,
        toHTMLDocument)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 20 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlDocumentClose :: (HTMLDocumentClass self) => self -> IO ()
htmlDocumentClose self
  = (\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_close argPtr1) (toHTMLDocument self)
 
htmlDocumentClear :: (HTMLDocumentClass self) => self -> IO ()
htmlDocumentClear self
  = (\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_clear argPtr1) (toHTMLDocument self)
 
htmlDocumentCaptureEvents ::
                          (HTMLDocumentClass self) => self -> IO ()
htmlDocumentCaptureEvents self
  = (\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_capture_events argPtr1)
{-# LINE 35 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
      (toHTMLDocument self)
 
htmlDocumentReleaseEvents ::
                          (HTMLDocumentClass self) => self -> IO ()
htmlDocumentReleaseEvents self
  = (\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_release_events argPtr1)
{-# LINE 41 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
      (toHTMLDocument self)
 
htmlDocumentHasFocus :: (HTMLDocumentClass self) => self -> IO Bool
htmlDocumentHasFocus self
  = toBool <$>
      ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_has_focus argPtr1)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
         (toHTMLDocument self))
 
htmlDocumentGetEmbeds ::
                      (HTMLDocumentClass self) => self -> IO (Maybe HTMLCollection)
htmlDocumentGetEmbeds self
  = maybeNull (makeNewGObject mkHTMLCollection)
      ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_embeds argPtr1)
{-# LINE 54 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
         (toHTMLDocument self))
 
htmlDocumentGetPlugins ::
                       (HTMLDocumentClass self) => self -> IO (Maybe HTMLCollection)
htmlDocumentGetPlugins self
  = maybeNull (makeNewGObject mkHTMLCollection)
      ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_plugins argPtr1)
{-# LINE 61 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
         (toHTMLDocument self))
 
htmlDocumentGetScripts ::
                       (HTMLDocumentClass self) => self -> IO (Maybe HTMLCollection)
htmlDocumentGetScripts self
  = maybeNull (makeNewGObject mkHTMLCollection)
      ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_scripts argPtr1)
{-# LINE 68 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
         (toHTMLDocument self))
 
htmlDocumentGetWidth :: (HTMLDocumentClass self) => self -> IO Int
htmlDocumentGetWidth self
  = fromIntegral <$>
      ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_width argPtr1)
{-# LINE 74 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
         (toHTMLDocument self))
 
htmlDocumentGetHeight :: (HTMLDocumentClass self) => self -> IO Int
htmlDocumentGetHeight self
  = fromIntegral <$>
      ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_height argPtr1)
{-# LINE 80 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
         (toHTMLDocument self))
 
htmlDocumentSetDir ::
                   (HTMLDocumentClass self) => self -> String -> IO ()
htmlDocumentSetDir self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLDocument arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_set_dir argPtr1 arg2) (toHTMLDocument self)
          valPtr
 
htmlDocumentGetDir :: (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetDir self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_dir argPtr1)
{-# LINE 93 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString
 
htmlDocumentSetDesignMode ::
                          (HTMLDocumentClass self) => self -> String -> IO ()
htmlDocumentSetDesignMode self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLDocument arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_set_design_mode argPtr1 arg2)
{-# LINE 103 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
          (toHTMLDocument self)
          valPtr
 
htmlDocumentGetDesignMode ::
                          (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetDesignMode self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_design_mode argPtr1)
{-# LINE 110 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString
 
htmlDocumentGetCompatMode ::
                          (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetCompatMode self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_compat_mode argPtr1)
{-# LINE 118 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString
 
htmlDocumentGetActiveElement ::
                             (HTMLDocumentClass self) => self -> IO (Maybe Element)
htmlDocumentGetActiveElement self
  = maybeNull (makeNewGObject mkElement)
      ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_active_element argPtr1)
{-# LINE 127 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
         (toHTMLDocument self))
 
htmlDocumentSetBgColor ::
                       (HTMLDocumentClass self) => self -> String -> IO ()
htmlDocumentSetBgColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLDocument arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_set_bg_color argPtr1 arg2)
{-# LINE 135 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
          (toHTMLDocument self)
          valPtr
 
htmlDocumentGetBgColor ::
                       (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetBgColor self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_bg_color argPtr1)
{-# LINE 142 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString
 
htmlDocumentSetFgColor ::
                       (HTMLDocumentClass self) => self -> String -> IO ()
htmlDocumentSetFgColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLDocument arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_set_fg_color argPtr1 arg2)
{-# LINE 152 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
          (toHTMLDocument self)
          valPtr
 
htmlDocumentGetFgColor ::
                       (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetFgColor self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_fg_color argPtr1)
{-# LINE 159 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString
 
htmlDocumentSetAlinkColor ::
                          (HTMLDocumentClass self) => self -> String -> IO ()
htmlDocumentSetAlinkColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLDocument arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_set_alink_color argPtr1 arg2)
{-# LINE 169 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
          (toHTMLDocument self)
          valPtr
 
htmlDocumentGetAlinkColor ::
                          (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetAlinkColor self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_alink_color argPtr1)
{-# LINE 176 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString
 
htmlDocumentSetLinkColor ::
                         (HTMLDocumentClass self) => self -> String -> IO ()
htmlDocumentSetLinkColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLDocument arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_set_link_color argPtr1 arg2)
{-# LINE 186 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
          (toHTMLDocument self)
          valPtr
 
htmlDocumentGetLinkColor ::
                         (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetLinkColor self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_link_color argPtr1)
{-# LINE 193 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString
 
htmlDocumentSetVlinkColor ::
                          (HTMLDocumentClass self) => self -> String -> IO ()
htmlDocumentSetVlinkColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLDocument arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_set_vlink_color argPtr1 arg2)
{-# LINE 203 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
          (toHTMLDocument self)
          valPtr
 
htmlDocumentGetVlinkColor ::
                          (HTMLDocumentClass self) => self -> IO String
htmlDocumentGetVlinkColor self
  = ((\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_get_vlink_color argPtr1)
{-# LINE 210 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString

foreign import ccall safe "webkit_dom_html_document_close"
  webkit_dom_html_document_close :: ((Ptr HTMLDocument) -> (IO ()))

foreign import ccall safe "webkit_dom_html_document_clear"
  webkit_dom_html_document_clear :: ((Ptr HTMLDocument) -> (IO ()))

foreign import ccall safe "webkit_dom_html_document_capture_events"
  webkit_dom_html_document_capture_events :: ((Ptr HTMLDocument) -> (IO ()))

foreign import ccall safe "webkit_dom_html_document_release_events"
  webkit_dom_html_document_release_events :: ((Ptr HTMLDocument) -> (IO ()))

foreign import ccall safe "webkit_dom_html_document_has_focus"
  webkit_dom_html_document_has_focus :: ((Ptr HTMLDocument) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_document_get_embeds"
  webkit_dom_html_document_get_embeds :: ((Ptr HTMLDocument) -> (IO (Ptr HTMLCollection)))

foreign import ccall safe "webkit_dom_html_document_get_plugins"
  webkit_dom_html_document_get_plugins :: ((Ptr HTMLDocument) -> (IO (Ptr HTMLCollection)))

foreign import ccall safe "webkit_dom_html_document_get_scripts"
  webkit_dom_html_document_get_scripts :: ((Ptr HTMLDocument) -> (IO (Ptr HTMLCollection)))

foreign import ccall safe "webkit_dom_html_document_get_width"
  webkit_dom_html_document_get_width :: ((Ptr HTMLDocument) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_document_get_height"
  webkit_dom_html_document_get_height :: ((Ptr HTMLDocument) -> (IO CLong))

foreign import ccall safe "webkit_dom_html_document_set_dir"
  webkit_dom_html_document_set_dir :: ((Ptr HTMLDocument) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_document_get_dir"
  webkit_dom_html_document_get_dir :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_document_set_design_mode"
  webkit_dom_html_document_set_design_mode :: ((Ptr HTMLDocument) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_document_get_design_mode"
  webkit_dom_html_document_get_design_mode :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_document_get_compat_mode"
  webkit_dom_html_document_get_compat_mode :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_document_get_active_element"
  webkit_dom_html_document_get_active_element :: ((Ptr HTMLDocument) -> (IO (Ptr Element)))

foreign import ccall safe "webkit_dom_html_document_set_bg_color"
  webkit_dom_html_document_set_bg_color :: ((Ptr HTMLDocument) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_document_get_bg_color"
  webkit_dom_html_document_get_bg_color :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_document_set_fg_color"
  webkit_dom_html_document_set_fg_color :: ((Ptr HTMLDocument) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_document_get_fg_color"
  webkit_dom_html_document_get_fg_color :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_document_set_alink_color"
  webkit_dom_html_document_set_alink_color :: ((Ptr HTMLDocument) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_document_get_alink_color"
  webkit_dom_html_document_get_alink_color :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_document_set_link_color"
  webkit_dom_html_document_set_link_color :: ((Ptr HTMLDocument) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_document_get_link_color"
  webkit_dom_html_document_get_link_color :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_document_set_vlink_color"
  webkit_dom_html_document_set_vlink_color :: ((Ptr HTMLDocument) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_document_get_vlink_color"
  webkit_dom_html_document_get_vlink_color :: ((Ptr HTMLDocument) -> (IO (Ptr CChar)))