-- 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/CSSValue.chs" #-}
module Graphics.UI.Gtk.WebKit.DOM.CSSValue
       (cCSS_INHERIT, cCSS_PRIMITIVE_VALUE, cCSS_VALUE_LIST, cCSS_CUSTOM,
        cssValueSetCssText, cssValueGetCssText, cssValueGetCssValueType,
        CSSValue, CSSValueClass, castToCSSValue, gTypeCSSValue, toCSSValue)
       where
import System.Glib.FFI
import System.Glib.UTFString
import Control.Applicative
import Graphics.UI.Gtk.WebKit.Types
{-# LINE 9 "./Graphics/UI/Gtk/WebKit/DOM/CSSValue.chs" #-}
import System.Glib.GError
import Graphics.UI.Gtk.WebKit.DOM.EventM
cCSS_INHERIT = 0
cCSS_PRIMITIVE_VALUE = 1
cCSS_VALUE_LIST = 2
cCSS_CUSTOM = 3
 
cssValueSetCssText ::
                   (CSSValueClass self, GlibString string) => self -> string -> IO ()
cssValueSetCssText self val
  = propagateGError $
      \ errorPtr_ ->
        withUTFString val $
          \ valPtr ->
            (\(CSSValue arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_css_value_set_css_text argPtr1 arg2 arg3) (toCSSValue self)
              valPtr
          errorPtr_
 
cssValueGetCssText ::
                   (CSSValueClass self, GlibString string) => self -> IO string
cssValueGetCssText self
  = ((\(CSSValue arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_css_value_get_css_text argPtr1) (toCSSValue self))
      >>=
      readUTFString
 
cssValueGetCssValueType :: (CSSValueClass self) => self -> IO Word
cssValueGetCssValueType self
  = fromIntegral <$>
      ((\(CSSValue arg1) -> withForeignPtr arg1 $ \argPtr1 ->webkit_dom_css_value_get_css_value_type argPtr1)
{-# LINE 38 "./Graphics/UI/Gtk/WebKit/DOM/CSSValue.chs" #-}
         (toCSSValue self))

foreign import ccall safe "webkit_dom_css_value_set_css_text"
  webkit_dom_css_value_set_css_text :: ((Ptr CSSValue) -> ((Ptr CChar) -> ((Ptr (Ptr ())) -> (IO ()))))

foreign import ccall safe "webkit_dom_css_value_get_css_text"
  webkit_dom_css_value_get_css_text :: ((Ptr CSSValue) -> (IO (Ptr CChar)))

foreign import ccall safe "webkit_dom_css_value_get_css_value_type"
  webkit_dom_css_value_get_css_value_type :: ((Ptr CSSValue) -> (IO CUShort))