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#}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
 
htmlLinkElementSetDisabled ::
                           (HTMLLinkElementClass self) => self -> Bool -> IO ()
htmlLinkElementSetDisabled self val
  = {# call webkit_dom_html_link_element_set_disabled #}
      (toHTMLLinkElement self)
      (fromBool val)
 
htmlLinkElementGetDisabled ::
                           (HTMLLinkElementClass self) => self -> IO Bool
htmlLinkElementGetDisabled self
  = toBool <$>
      ({# call webkit_dom_html_link_element_get_disabled #}
         (toHTMLLinkElement self))
 
htmlLinkElementSetCharset ::
                          (HTMLLinkElementClass self, GlibString string) =>
                            self -> string -> IO ()
htmlLinkElementSetCharset self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_link_element_set_charset #}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetCharset ::
                          (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetCharset self
  = ({# call webkit_dom_html_link_element_get_charset #}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetHref ::
                       (HTMLLinkElementClass self, GlibString string) =>
                         self -> string -> IO ()
htmlLinkElementSetHref self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_link_element_set_href #}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetHref ::
                       (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetHref self
  = ({# call webkit_dom_html_link_element_get_href #}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetHreflang ::
                           (HTMLLinkElementClass self, GlibString string) =>
                             self -> string -> IO ()
htmlLinkElementSetHreflang self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_link_element_set_hreflang #}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetHreflang ::
                           (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetHreflang self
  = ({# call webkit_dom_html_link_element_get_hreflang #}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetMedia ::
                        (HTMLLinkElementClass self, GlibString string) =>
                          self -> string -> IO ()
htmlLinkElementSetMedia self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_link_element_set_media #}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetMedia ::
                        (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetMedia self
  = ({# call webkit_dom_html_link_element_get_media #}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetRel ::
                      (HTMLLinkElementClass self, GlibString string) =>
                        self -> string -> IO ()
htmlLinkElementSetRel self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_link_element_set_rel #}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetRel ::
                      (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetRel self
  = ({# call webkit_dom_html_link_element_get_rel #}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetRev ::
                      (HTMLLinkElementClass self, GlibString string) =>
                        self -> string -> IO ()
htmlLinkElementSetRev self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_link_element_set_rev #}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetRev ::
                      (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetRev self
  = ({# call webkit_dom_html_link_element_get_rev #}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementSetTarget ::
                         (HTMLLinkElementClass self, GlibString string) =>
                           self -> string -> IO ()
htmlLinkElementSetTarget self val
  = withUTFString val $
      \ valPtr ->
        {# call webkit_dom_html_link_element_set_target #}
          (toHTMLLinkElement self)
          valPtr
 
htmlLinkElementGetTarget ::
                         (HTMLLinkElementClass self, GlibString string) => self -> IO string
htmlLinkElementGetTarget self
  = ({# call webkit_dom_html_link_element_get_target #}
       (toHTMLLinkElement self))
      >>=
      readUTFString
 
htmlLinkElementGetSheet ::
                        (HTMLLinkElementClass self) => self -> IO (Maybe StyleSheet)
htmlLinkElementGetSheet self
  = maybeNull (makeNewGObject mkStyleSheet)
      ({# call webkit_dom_html_link_element_get_sheet #}
         (toHTMLLinkElement self))