-- 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/HTMLScriptElement.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.HTMLScriptElement(
setText,
getText,
setHtmlFor,
getHtmlFor,
setEvent,
getEvent,
setCharset,
getCharset,
setAsync,
getAsync,
setDefer,
getDefer,
setSrc,
getSrc,
setCrossOrigin,
getCrossOrigin,
setNonce,
getNonce,
HTMLScriptElement,
castToHTMLScriptElement,
gTypeHTMLScriptElement,
HTMLScriptElementClass,
toHTMLScriptElement,
) 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/HTMLScriptElement.chs" #-}
import Graphics.UI.Gtk.WebKit.DOM.Enums

 
setText ::
        (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
          self -> (Maybe string) -> m ()
setText self val
  = liftIO
      (maybeWith withUTFString val $
         \ valPtr ->
           (\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_text argPtr1 arg2)
{-# LINE 50 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
             (toHTMLScriptElement self)
             valPtr)
 
getText ::
        (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
          self -> m (Maybe string)
getText self
  = liftIO
      (((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_text argPtr1)
{-# LINE 59 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
          (toHTMLScriptElement self))
         >>=
         maybePeek readUTFString)
 
setHtmlFor ::
           (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
             self -> string -> m ()
setHtmlFor self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_html_for argPtr1 arg2)
{-# LINE 71 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
             (toHTMLScriptElement self)
             valPtr)
 
getHtmlFor ::
           (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
             self -> m string
getHtmlFor self
  = liftIO
      (((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_html_for argPtr1)
{-# LINE 80 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
          (toHTMLScriptElement self))
         >>=
         readUTFString)
 
setEvent ::
         (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
           self -> string -> m ()
setEvent self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_event argPtr1 arg2)
{-# LINE 92 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
             (toHTMLScriptElement self)
             valPtr)
 
getEvent ::
         (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
           self -> m string
getEvent self
  = liftIO
      (((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_event argPtr1)
{-# LINE 101 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
          (toHTMLScriptElement self))
         >>=
         readUTFString)
 
setCharset ::
           (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
             self -> string -> m ()
setCharset self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_charset argPtr1 arg2)
{-# LINE 113 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
             (toHTMLScriptElement self)
             valPtr)
 
getCharset ::
           (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
             self -> m string
getCharset self
  = liftIO
      (((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_charset argPtr1)
{-# LINE 122 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
          (toHTMLScriptElement self))
         >>=
         readUTFString)
 
setAsync ::
         (MonadIO m, HTMLScriptElementClass self) => self -> Bool -> m ()
setAsync self val
  = liftIO
      ((\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_async argPtr1 arg2)
{-# LINE 131 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
         (toHTMLScriptElement self)
         (fromBool val))
 
getAsync ::
         (MonadIO m, HTMLScriptElementClass self) => self -> m Bool
getAsync self
  = liftIO
      (toBool <$>
         ((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_async argPtr1)
{-# LINE 140 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
            (toHTMLScriptElement self)))
 
setDefer ::
         (MonadIO m, HTMLScriptElementClass self) => self -> Bool -> m ()
setDefer self val
  = liftIO
      ((\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_defer argPtr1 arg2)
{-# LINE 147 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
         (toHTMLScriptElement self)
         (fromBool val))
 
getDefer ::
         (MonadIO m, HTMLScriptElementClass self) => self -> m Bool
getDefer self
  = liftIO
      (toBool <$>
         ((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_defer argPtr1)
{-# LINE 156 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
            (toHTMLScriptElement self)))
 
setSrc ::
       (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
         self -> string -> m ()
setSrc self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_src argPtr1 arg2)
{-# LINE 166 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
             (toHTMLScriptElement self)
             valPtr)
 
getSrc ::
       (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
         self -> m string
getSrc self
  = liftIO
      (((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_src argPtr1)
{-# LINE 175 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
          (toHTMLScriptElement self))
         >>=
         readUTFString)

setCrossOrigin ::
               (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
                 self -> string -> m ()
setCrossOrigin self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_cross_origin argPtr1 arg2)
{-# LINE 188 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
             (toHTMLScriptElement self)
             valPtr)
 
getCrossOrigin ::
               (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
                 self -> m string
getCrossOrigin self
  = liftIO
      (((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_cross_origin argPtr1)
{-# LINE 197 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
          (toHTMLScriptElement self))
         >>=
         readUTFString)
 
setNonce ::
         (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
           self -> string -> m ()
setNonce self val
  = liftIO
      (withUTFString val $
         \ valPtr ->
           (\(HTMLScriptElement arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_set_nonce argPtr1 arg2)
{-# LINE 209 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
             (toHTMLScriptElement self)
             valPtr)
 
getNonce ::
         (MonadIO m, HTMLScriptElementClass self, GlibString string) =>
           self -> m string
getNonce self
  = liftIO
      (((\(HTMLScriptElement arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_html_script_element_get_nonce argPtr1)
{-# LINE 218 "./Graphics/UI/Gtk/WebKit/DOM/HTMLScriptElement.chs" #-}
          (toHTMLScriptElement self))
         >>=
         readUTFString)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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