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


{-# LINE 1 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLBaseFontElement
       (htmlBaseFontElementSetColor, htmlBaseFontElementGetColor,
        htmlBaseFontElementSetFace, htmlBaseFontElementGetFace,
        htmlBaseFontElementSetSize, htmlBaseFontElementGetSize,
        HTMLBaseFontElement, HTMLBaseFontElementClass,
        castToHTMLBaseFontElement, gTypeHTMLBaseFontElement,
        toHTMLBaseFontElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 12 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlBaseFontElementSetColor ::
                            (HTMLBaseFontElementClass self, GlibString string) =>
                              self -> string -> IO ()
htmlBaseFontElementSetColor self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBaseFontElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_base_font_element_set_color argPtr1 arg2)
{-# LINE 22 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
          (toHTMLBaseFontElement self)
          valPtr
 
htmlBaseFontElementGetColor ::
                            (HTMLBaseFontElementClass self, GlibString string) =>
                              self -> IO string
htmlBaseFontElementGetColor self
  = ((\(HTMLBaseFontElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_base_font_element_get_color argPtr1)
{-# LINE 30 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
       (toHTMLBaseFontElement self))
      >>=
      readUTFString
 
htmlBaseFontElementSetFace ::
                           (HTMLBaseFontElementClass self, GlibString string) =>
                             self -> string -> IO ()
htmlBaseFontElementSetFace self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLBaseFontElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_base_font_element_set_face argPtr1 arg2)
{-# LINE 41 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
          (toHTMLBaseFontElement self)
          valPtr
 
htmlBaseFontElementGetFace ::
                           (HTMLBaseFontElementClass self, GlibString string) =>
                             self -> IO string
htmlBaseFontElementGetFace self
  = ((\(HTMLBaseFontElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_base_font_element_get_face argPtr1)
{-# LINE 49 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
       (toHTMLBaseFontElement self))
      >>=
      readUTFString
 
htmlBaseFontElementSetSize ::
                           (HTMLBaseFontElementClass self) => self -> Int -> IO ()
htmlBaseFontElementSetSize self val
  = (\(HTMLBaseFontElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_base_font_element_set_size argPtr1 arg2)
{-# LINE 57 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
      (toHTMLBaseFontElement self)
      (fromIntegral val)
 
htmlBaseFontElementGetSize ::
                           (HTMLBaseFontElementClass self) => self -> IO Int
htmlBaseFontElementGetSize self
  = fromIntegral <$>
      ((\(HTMLBaseFontElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_base_font_element_get_size argPtr1)
{-# LINE 65 "./Graphics/UI/Gtk/WebKit/DOM/HTMLBaseFontElement.chs" #-}
         (toHTMLBaseFontElement self))

foreign import ccall safe "webkit_dom_html_base_font_element_set_color"
  webkit_dom_html_base_font_element_set_color :: ((Ptr HTMLBaseFontElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_base_font_element_get_color"
  webkit_dom_html_base_font_element_get_color :: ((Ptr HTMLBaseFontElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_base_font_element_set_face"
  webkit_dom_html_base_font_element_set_face :: ((Ptr HTMLBaseFontElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_base_font_element_get_face"
  webkit_dom_html_base_font_element_get_face :: ((Ptr HTMLBaseFontElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_base_font_element_set_size"
  webkit_dom_html_base_font_element_set_size :: ((Ptr HTMLBaseFontElement) -> (CLong -> (IO ())))

foreign import ccall safe "webkit_dom_html_base_font_element_get_size"
  webkit_dom_html_base_font_element_get_size :: ((Ptr HTMLBaseFontElement) -> (IO CLong))