-- GENERATED by C->Haskell Compiler, version 0.13.13 (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(
setDisabled,
getDisabled,
setCharset,
getCharset,
setHref,
getHref,
setHreflang,
getHreflang,
setMedia,
getMedia,
setRel,
getRel,
setRev,
getRev,
setTarget,
getTarget,
getSheet,
HTMLLinkElement,
castToHTMLLinkElement,
gTypeHTMLLinkElement,
HTMLLinkElementClass,
toHTMLLinkElement,
) where
import Prelude hiding (drop, error, print)
import Data.Typeable (Typeable)
import Foreign.Marshal (maybePeek, maybeWith)
import System.Glib.FFI (maybeNull, withForeignPtr, nullForeignPtr, Ptr, nullPtr, castPtr, Word, Int64, Word64, CChar(..), CInt(..), CUInt(..), CLong(..), CULong(..), CLLong(..), CULLong(..), CShort(..), CUShort(..), CFloat(..), CDouble(..), toBool, fromBool)
import System.Glib.UTFString (GlibString(..), readUTFString)
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Monad.IO.Class (MonadIO(..))
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventTargetClosures
import Graphics.UI.Gtk.WebKit.DOM.EventM
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 39 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setDisabled ::
            (MonadIO m, HTMLLinkElementClass self) => self -> Bool -> m ()
setDisabled self val
  = liftIO
      ((\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_disabled argPtr1 arg2)
{-# LINE 47 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
         (toHTMLLinkElement self)
         (fromBool val))
 
getDisabled ::
            (MonadIO m, HTMLLinkElementClass self) => self -> m Bool
getDisabled self
  = liftIO
      (toBool <$>
         ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_disabled argPtr1)
{-# LINE 56 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
            (toHTMLLinkElement self)))
 
setCharset ::
           (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
             self -> string -> m ()
setCharset self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_charset argPtr1 arg2)
{-# LINE 66 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
             (toHTMLLinkElement self)
             valPtr)
 
getCharset ::
           (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
             self -> m string
getCharset self
  = liftIO
      (((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_charset argPtr1)
{-# LINE 75 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self))
         >>=
         readUTFString)
 
setHref ::
        (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
          self -> string -> m ()
setHref self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_href argPtr1 arg2)
{-# LINE 87 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
             (toHTMLLinkElement self)
             valPtr)
 
getHref ::
        (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
          self -> m string
getHref self
  = liftIO
      (((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_href argPtr1)
{-# LINE 96 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self))
         >>=
         readUTFString)
 
setHreflang ::
            (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
              self -> string -> m ()
setHreflang self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_hreflang argPtr1 arg2)
{-# LINE 108 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
             (toHTMLLinkElement self)
             valPtr)
 
getHreflang ::
            (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
              self -> m string
getHreflang self
  = liftIO
      (((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_hreflang argPtr1)
{-# LINE 117 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self))
         >>=
         readUTFString)
 
setMedia ::
         (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
           self -> string -> m ()
setMedia self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_media argPtr1 arg2)
{-# LINE 129 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
             (toHTMLLinkElement self)
             valPtr)
 
getMedia ::
         (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
           self -> m string
getMedia self
  = liftIO
      (((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_media argPtr1)
{-# LINE 138 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self))
         >>=
         readUTFString)
 
setRel ::
       (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
         self -> string -> m ()
setRel self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_rel argPtr1 arg2)
{-# LINE 150 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
             (toHTMLLinkElement self)
             valPtr)
 
getRel ::
       (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
         self -> m string
getRel self
  = liftIO
      (((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_rel argPtr1)
{-# LINE 159 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self))
         >>=
         readUTFString)
 
setRev ::
       (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
         self -> string -> m ()
setRev self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_rev argPtr1 arg2)
{-# LINE 171 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
             (toHTMLLinkElement self)
             valPtr)
 
getRev ::
       (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
         self -> m string
getRev self
  = liftIO
      (((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_rev argPtr1)
{-# LINE 180 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self))
         >>=
         readUTFString)
 
setTarget ::
          (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
            self -> string -> m ()
setTarget self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLLinkElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_set_target argPtr1 arg2)
{-# LINE 192 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
             (toHTMLLinkElement self)
             valPtr)
 
getTarget ::
          (MonadIO m, HTMLLinkElementClass self, GlibString string) =>
            self -> m string
getTarget self
  = liftIO
      (((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_target argPtr1)
{-# LINE 201 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
          (toHTMLLinkElement self))
         >>=
         readUTFString)
 
getSheet ::
         (MonadIO m, HTMLLinkElementClass self) =>
           self -> m (Maybe StyleSheet)
getSheet self
  = liftIO
      (maybeNull (makeNewGObject mkStyleSheet)
         ((\(HTMLLinkElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_link_element_get_sheet argPtr1)
{-# LINE 212 "./Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.chs" #-}
            (toHTMLLinkElement self)))


foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_disabled"
  webkit_dom_html_link_element_set_disabled :: ((Ptr HTMLLinkElement) -> (CInt -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_disabled"
  webkit_dom_html_link_element_get_disabled :: ((Ptr HTMLLinkElement) -> (IO CInt))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_charset"
  webkit_dom_html_link_element_set_charset :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_charset"
  webkit_dom_html_link_element_get_charset :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_href"
  webkit_dom_html_link_element_set_href :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_href"
  webkit_dom_html_link_element_get_href :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_hreflang"
  webkit_dom_html_link_element_set_hreflang :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_hreflang"
  webkit_dom_html_link_element_get_hreflang :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_media"
  webkit_dom_html_link_element_set_media :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_media"
  webkit_dom_html_link_element_get_media :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_rel"
  webkit_dom_html_link_element_set_rel :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_rel"
  webkit_dom_html_link_element_get_rel :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_rev"
  webkit_dom_html_link_element_set_rev :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_rev"
  webkit_dom_html_link_element_get_rev :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_set_target"
  webkit_dom_html_link_element_set_target :: ((Ptr HTMLLinkElement) -> ((Ptr CChar) -> (IO ())))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_target"
  webkit_dom_html_link_element_get_target :: ((Ptr HTMLLinkElement) -> (IO (Ptr CChar)))

foreign import ccall safe "dist/build/Graphics/UI/Gtk/WebKit/DOM/HTMLLinkElement.h webkit_dom_html_link_element_get_sheet"
  webkit_dom_html_link_element_get_sheet :: ((Ptr HTMLLinkElement) -> (IO (Ptr StyleSheet)))