-- 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/HTMLLinkElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLLinkElement
       (htmlLinkElementSetDisabled, htmlLinkElementGetDisabled,
        htmlLinkElementSetCharset, htmlLinkElementGetCharset,
        htmlLinkElementSetHref, htmlLinkElementGetHref,
        htmlLinkElementSetHreflang, htmlLinkElementGetHreflang,
        htmlLinkElementSetMedia, htmlLinkElementGetMedia,
        htmlLinkElementSetRel, htmlLinkElementGetRel,
        htmlLinkElementSetRev, htmlLinkElementGetRev,
        htmlLinkElementSetTarget, htmlLinkElementGetTarget,
        htmlLinkElementGetSheet, HTMLLinkElement, HTMLLinkElementClass,
        castToHTMLLinkElement, gTypeHTMLLinkElement, toHTMLLinkElement)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 16 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlLinkElementSetDisabled ::
                           (HTMLLinkElementClass self) => self -> Bool -> IO ()
htmlLinkElementSetDisabled self val
  = (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_disabled argPtr1 arg2)
{-# LINE 23 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
      (toHTMLLinkElement self)
      (fromBool val)
 
htmlLinkElementGetDisabled ::
                           (HTMLLinkElementClass self) => self -> IO Bool
htmlLinkElementGetDisabled self
  = toBool <$>
      ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_disabled argPtr1)
{-# LINE 31 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
         (toHTMLLinkElement self))
 
htmlLinkElementSetCharset ::
                          (HTMLLinkElementClass self) => self -> String -> IO ()
htmlLinkElementSetCharset self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_charset argPtr1 arg2)
{-# LINE 39 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetCharset ::
                          (HTMLLinkElementClass self) => self -> IO String
htmlLinkElementGetCharset self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_charset argPtr1)
{-# LINE 46 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetHref ::
                       (HTMLLinkElementClass self) => self -> String -> IO ()
htmlLinkElementSetHref self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_href argPtr1 arg2)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetHref ::
                       (HTMLLinkElementClass self) => self -> IO String
htmlLinkElementGetHref self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_href argPtr1)
{-# LINE 63 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetHreflang ::
                           (HTMLLinkElementClass self) => self -> String -> IO ()
htmlLinkElementSetHreflang self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_hreflang argPtr1 arg2)
{-# LINE 73 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetHreflang ::
                           (HTMLLinkElementClass self) => self -> IO String
htmlLinkElementGetHreflang self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_hreflang argPtr1)
{-# LINE 80 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetMedia ::
                        (HTMLLinkElementClass self) => self -> String -> IO ()
htmlLinkElementSetMedia self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_media argPtr1 arg2)
{-# LINE 90 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetMedia ::
                        (HTMLLinkElementClass self) => self -> IO String
htmlLinkElementGetMedia self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_media argPtr1)
{-# LINE 97 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetRel ::
                      (HTMLLinkElementClass self) => self -> String -> IO ()
htmlLinkElementSetRel self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_rel argPtr1 arg2)
{-# LINE 107 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetRel ::
                      (HTMLLinkElementClass self) => self -> IO String
htmlLinkElementGetRel self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_rel argPtr1)
{-# LINE 114 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetRev ::
                      (HTMLLinkElementClass self) => self -> String -> IO ()
htmlLinkElementSetRev self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_rev argPtr1 arg2)
{-# LINE 124 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetRev ::
                      (HTMLLinkElementClass self) => self -> IO String
htmlLinkElementGetRev self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_rev argPtr1)
{-# LINE 131 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetTarget ::
                         (HTMLLinkElementClass self) => self -> String -> IO ()
htmlLinkElementSetTarget self val
  = withUTFString val $
      \ valPtr ->
        (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_target argPtr1 arg2)
{-# LINE 141 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetTarget ::
                         (HTMLLinkElementClass self) => self -> IO String
htmlLinkElementGetTarget self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_target argPtr1)
{-# LINE 148 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementGetSheet ::
                        (HTMLLinkElementClass self) => self -> IO (Maybe StyleSheet)
htmlLinkElementGetSheet self
  = maybeNull (makeNewGObject mkStyleSheet)
      ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_sheet argPtr1)
{-# LINE 157 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
         (toHTMLLinkElement self))

foreign import ccall safe "webkit_dom_html_link_element_set_disabled"
  webkit_dom_html_link_element_set_disabled :: ((Ptr HTMLLinkElement) -> (CInt -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_disabled"
  webkit_dom_html_link_element_get_disabled :: ((Ptr HTMLLinkElement) -> (IO CInt))

foreign import ccall safe "webkit_dom_html_link_element_set_charset"
  webkit_dom_html_link_element_set_charset :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_charset"
  webkit_dom_html_link_element_get_charset :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_link_element_set_href"
  webkit_dom_html_link_element_set_href :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_href"
  webkit_dom_html_link_element_get_href :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_link_element_set_hreflang"
  webkit_dom_html_link_element_set_hreflang :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_hreflang"
  webkit_dom_html_link_element_get_hreflang :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_link_element_set_media"
  webkit_dom_html_link_element_set_media :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_media"
  webkit_dom_html_link_element_get_media :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_link_element_set_rel"
  webkit_dom_html_link_element_set_rel :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_rel"
  webkit_dom_html_link_element_get_rel :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_link_element_set_rev"
  webkit_dom_html_link_element_set_rev :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_rev"
  webkit_dom_html_link_element_get_rev :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_link_element_set_target"
  webkit_dom_html_link_element_set_target :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "webkit_dom_html_link_element_get_target"
  webkit_dom_html_link_element_get_target :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_html_link_element_get_sheet"
  webkit_dom_html_link_element_get_sheet :: ((Ptr HTMLLinkElement) -> (IO (Ptr StyleSheet)))