-- 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
       (htmlDocumentOpen, 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)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 19 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlDocumentOpen :: (HTMLDocumentClass self) => self -> IO ()
htmlDocumentOpen self
  = (\(HTMLDocument arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_document_open argPtr1) (toHTMLDocument self)
 
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 38 "./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 44 "./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 50 "./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 57 "./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 64 "./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 71 "./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 77 "./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 83 "./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 96 "./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 106 "./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 113 "./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 121 "./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 130 "./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 138 "./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 145 "./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 155 "./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 162 "./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 172 "./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 179 "./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 189 "./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 196 "./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 206 "./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 213 "./Graphics/UI/Gtk/WebKit/DOM/HTMLDocument.chs" #-}
       (toHTMLDocument self))
      >>=
      readUTFString

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

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)))