-- 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/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, GlibString string) =>
                            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 40 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetCharset ::
                          (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetCharset self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_charset argPtr1)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetHref ::
                       (HTMLLinkElementClass self, GlibString string) =>
                         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 58 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetHref ::
                       (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetHref self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_href argPtr1)
{-# LINE 65 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetHreflang ::
                           (HTMLLinkElementClass self, GlibString string) =>
                             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 76 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetHreflang ::
                           (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetHreflang self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_hreflang argPtr1)
{-# LINE 83 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetMedia ::
                        (HTMLLinkElementClass self, GlibString string) =>
                          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 94 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetMedia ::
                        (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetMedia self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_media argPtr1)
{-# LINE 101 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetRel ::
                      (HTMLLinkElementClass self, GlibString string) =>
                        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 112 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetRel ::
                      (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetRel self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_rel argPtr1)
{-# LINE 119 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetRev ::
                      (HTMLLinkElementClass self, GlibString string) =>
                        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 130 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetRev ::
                      (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetRev self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_rev argPtr1)
{-# LINE 137 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetTarget ::
                         (HTMLLinkElementClass self, GlibString string) =>
                           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 148 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetTarget ::
                         (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetTarget self
  = ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_target argPtr1)
{-# LINE 155 "./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 164 "./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)))