-- GENERATED by C->Haskell Compiler, version 0.13.11 (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)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 15 "./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 22 "./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 30 "./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 38 "./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 45 "./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 55 "./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 62 "./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 72 "./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 79 "./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 89 "./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 96 "./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 106 "./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 113 "./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 123 "./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 130 "./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 140 "./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 147 "./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 156 "./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)))