#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMCSSStyleDeclaration
(
DOMCSSStyleDeclaration(..) ,
IsDOMCSSStyleDeclaration ,
toDOMCSSStyleDeclaration ,
noDOMCSSStyleDeclaration ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationGetCssTextMethodInfo,
#endif
dOMCSSStyleDeclarationGetCssText ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationGetLengthMethodInfo,
#endif
dOMCSSStyleDeclarationGetLength ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationGetParentRuleMethodInfo,
#endif
dOMCSSStyleDeclarationGetParentRule ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo,
#endif
dOMCSSStyleDeclarationGetPropertyPriority,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo,
#endif
dOMCSSStyleDeclarationGetPropertyShorthand,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationGetPropertyValueMethodInfo,
#endif
dOMCSSStyleDeclarationGetPropertyValue ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo,
#endif
dOMCSSStyleDeclarationIsPropertyImplicit,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationItemMethodInfo ,
#endif
dOMCSSStyleDeclarationItem ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationRemovePropertyMethodInfo,
#endif
dOMCSSStyleDeclarationRemoveProperty ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationSetCssTextMethodInfo,
#endif
dOMCSSStyleDeclarationSetCssText ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationSetPropertyMethodInfo,
#endif
dOMCSSStyleDeclarationSetProperty ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationCssTextPropertyInfo,
#endif
clearDOMCSSStyleDeclarationCssText ,
constructDOMCSSStyleDeclarationCssText ,
#if ENABLE_OVERLOADING
dOMCSSStyleDeclarationCssText ,
#endif
getDOMCSSStyleDeclarationCssText ,
setDOMCSSStyleDeclarationCssText ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationLengthPropertyInfo,
#endif
#if ENABLE_OVERLOADING
dOMCSSStyleDeclarationLength ,
#endif
getDOMCSSStyleDeclarationLength ,
#if ENABLE_OVERLOADING
DOMCSSStyleDeclarationParentRulePropertyInfo,
#endif
#if ENABLE_OVERLOADING
dOMCSSStyleDeclarationParentRule ,
#endif
getDOMCSSStyleDeclarationParentRule ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMCSSRule as WebKit2WebExtension.DOMCSSRule
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMCSSStyleDeclaration = DOMCSSStyleDeclaration (ManagedPtr DOMCSSStyleDeclaration)
foreign import ccall "webkit_dom_css_style_declaration_get_type"
c_webkit_dom_css_style_declaration_get_type :: IO GType
instance GObject DOMCSSStyleDeclaration where
gobjectType = c_webkit_dom_css_style_declaration_get_type
class (GObject o, O.IsDescendantOf DOMCSSStyleDeclaration o) => IsDOMCSSStyleDeclaration o
instance (GObject o, O.IsDescendantOf DOMCSSStyleDeclaration o) => IsDOMCSSStyleDeclaration o
instance O.HasParentTypes DOMCSSStyleDeclaration
type instance O.ParentTypes DOMCSSStyleDeclaration = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMCSSStyleDeclaration :: (MonadIO m, IsDOMCSSStyleDeclaration o) => o -> m DOMCSSStyleDeclaration
toDOMCSSStyleDeclaration = liftIO . unsafeCastTo DOMCSSStyleDeclaration
noDOMCSSStyleDeclaration :: Maybe DOMCSSStyleDeclaration
noDOMCSSStyleDeclaration = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMCSSStyleDeclarationMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMCSSStyleDeclarationMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMCSSStyleDeclarationMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMCSSStyleDeclarationMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMCSSStyleDeclarationMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMCSSStyleDeclarationMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMCSSStyleDeclarationMethod "isPropertyImplicit" o = DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo
ResolveDOMCSSStyleDeclarationMethod "item" o = DOMCSSStyleDeclarationItemMethodInfo
ResolveDOMCSSStyleDeclarationMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMCSSStyleDeclarationMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMCSSStyleDeclarationMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMCSSStyleDeclarationMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMCSSStyleDeclarationMethod "removeProperty" o = DOMCSSStyleDeclarationRemovePropertyMethodInfo
ResolveDOMCSSStyleDeclarationMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMCSSStyleDeclarationMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMCSSStyleDeclarationMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMCSSStyleDeclarationMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMCSSStyleDeclarationMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMCSSStyleDeclarationMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getCssText" o = DOMCSSStyleDeclarationGetCssTextMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getLength" o = DOMCSSStyleDeclarationGetLengthMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getParentRule" o = DOMCSSStyleDeclarationGetParentRuleMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getPropertyPriority" o = DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getPropertyShorthand" o = DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getPropertyValue" o = DOMCSSStyleDeclarationGetPropertyValueMethodInfo
ResolveDOMCSSStyleDeclarationMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMCSSStyleDeclarationMethod "setCssText" o = DOMCSSStyleDeclarationSetCssTextMethodInfo
ResolveDOMCSSStyleDeclarationMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMCSSStyleDeclarationMethod "setProperty" o = DOMCSSStyleDeclarationSetPropertyMethodInfo
ResolveDOMCSSStyleDeclarationMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMCSSStyleDeclarationMethod t DOMCSSStyleDeclaration, O.MethodInfo info DOMCSSStyleDeclaration p) => OL.IsLabel t (DOMCSSStyleDeclaration -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getDOMCSSStyleDeclarationCssText :: (MonadIO m, IsDOMCSSStyleDeclaration o) => o -> m (Maybe T.Text)
getDOMCSSStyleDeclarationCssText obj = liftIO $ B.Properties.getObjectPropertyString obj "css-text"
setDOMCSSStyleDeclarationCssText :: (MonadIO m, IsDOMCSSStyleDeclaration o) => o -> T.Text -> m ()
setDOMCSSStyleDeclarationCssText obj val = liftIO $ B.Properties.setObjectPropertyString obj "css-text" (Just val)
constructDOMCSSStyleDeclarationCssText :: (IsDOMCSSStyleDeclaration o) => T.Text -> IO (GValueConstruct o)
constructDOMCSSStyleDeclarationCssText val = B.Properties.constructObjectPropertyString "css-text" (Just val)
clearDOMCSSStyleDeclarationCssText :: (MonadIO m, IsDOMCSSStyleDeclaration o) => o -> m ()
clearDOMCSSStyleDeclarationCssText obj = liftIO $ B.Properties.setObjectPropertyString obj "css-text" (Nothing :: Maybe T.Text)
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationCssTextPropertyInfo
instance AttrInfo DOMCSSStyleDeclarationCssTextPropertyInfo where
type AttrAllowedOps DOMCSSStyleDeclarationCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMCSSStyleDeclarationCssTextPropertyInfo = IsDOMCSSStyleDeclaration
type AttrGetType DOMCSSStyleDeclarationCssTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMCSSStyleDeclarationCssTextPropertyInfo = "css-text"
type AttrOrigin DOMCSSStyleDeclarationCssTextPropertyInfo = DOMCSSStyleDeclaration
attrGet _ = getDOMCSSStyleDeclarationCssText
attrSet _ = setDOMCSSStyleDeclarationCssText
attrConstruct _ = constructDOMCSSStyleDeclarationCssText
attrClear _ = clearDOMCSSStyleDeclarationCssText
#endif
getDOMCSSStyleDeclarationLength :: (MonadIO m, IsDOMCSSStyleDeclaration o) => o -> m CULong
getDOMCSSStyleDeclarationLength obj = liftIO $ B.Properties.getObjectPropertyULong obj "length"
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationLengthPropertyInfo
instance AttrInfo DOMCSSStyleDeclarationLengthPropertyInfo where
type AttrAllowedOps DOMCSSStyleDeclarationLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSStyleDeclarationLengthPropertyInfo = IsDOMCSSStyleDeclaration
type AttrGetType DOMCSSStyleDeclarationLengthPropertyInfo = CULong
type AttrLabel DOMCSSStyleDeclarationLengthPropertyInfo = "length"
type AttrOrigin DOMCSSStyleDeclarationLengthPropertyInfo = DOMCSSStyleDeclaration
attrGet _ = getDOMCSSStyleDeclarationLength
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMCSSStyleDeclarationParentRule :: (MonadIO m, IsDOMCSSStyleDeclaration o) => o -> m (Maybe WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
getDOMCSSStyleDeclarationParentRule obj = liftIO $ B.Properties.getObjectPropertyObject obj "parent-rule" WebKit2WebExtension.DOMCSSRule.DOMCSSRule
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationParentRulePropertyInfo
instance AttrInfo DOMCSSStyleDeclarationParentRulePropertyInfo where
type AttrAllowedOps DOMCSSStyleDeclarationParentRulePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSStyleDeclarationParentRulePropertyInfo = IsDOMCSSStyleDeclaration
type AttrGetType DOMCSSStyleDeclarationParentRulePropertyInfo = (Maybe WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
type AttrLabel DOMCSSStyleDeclarationParentRulePropertyInfo = "parent-rule"
type AttrOrigin DOMCSSStyleDeclarationParentRulePropertyInfo = DOMCSSStyleDeclaration
attrGet _ = getDOMCSSStyleDeclarationParentRule
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMCSSStyleDeclaration
type instance O.AttributeList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationAttributeList
type DOMCSSStyleDeclarationAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSStyleDeclarationCssTextPropertyInfo), '("length", DOMCSSStyleDeclarationLengthPropertyInfo), '("parentRule", DOMCSSStyleDeclarationParentRulePropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMCSSStyleDeclarationCssText :: AttrLabelProxy "cssText"
dOMCSSStyleDeclarationCssText = AttrLabelProxy
dOMCSSStyleDeclarationLength :: AttrLabelProxy "length"
dOMCSSStyleDeclarationLength = AttrLabelProxy
dOMCSSStyleDeclarationParentRule :: AttrLabelProxy "parentRule"
dOMCSSStyleDeclarationParentRule = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMCSSStyleDeclaration = DOMCSSStyleDeclarationSignalList
type DOMCSSStyleDeclarationSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_css_style_declaration_get_css_text" webkit_dom_css_style_declaration_get_css_text ::
Ptr DOMCSSStyleDeclaration ->
IO CString
{-# DEPRECATED dOMCSSStyleDeclarationGetCssText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationGetCssText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> m T.Text
dOMCSSStyleDeclarationGetCssText self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_css_style_declaration_get_css_text self'
checkUnexpectedReturnNULL "dOMCSSStyleDeclarationGetCssText" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationGetCssTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationGetCssTextMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationGetCssText
#endif
foreign import ccall "webkit_dom_css_style_declaration_get_length" webkit_dom_css_style_declaration_get_length ::
Ptr DOMCSSStyleDeclaration ->
IO CULong
{-# DEPRECATED dOMCSSStyleDeclarationGetLength ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> m CULong
dOMCSSStyleDeclarationGetLength self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_css_style_declaration_get_length self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationGetLengthMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationGetLength
#endif
foreign import ccall "webkit_dom_css_style_declaration_get_parent_rule" webkit_dom_css_style_declaration_get_parent_rule ::
Ptr DOMCSSStyleDeclaration ->
IO (Ptr WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
{-# DEPRECATED dOMCSSStyleDeclarationGetParentRule ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationGetParentRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> m WebKit2WebExtension.DOMCSSRule.DOMCSSRule
dOMCSSStyleDeclarationGetParentRule self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_css_style_declaration_get_parent_rule self'
checkUnexpectedReturnNULL "dOMCSSStyleDeclarationGetParentRule" result
result' <- (wrapObject WebKit2WebExtension.DOMCSSRule.DOMCSSRule) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationGetParentRuleMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSRule.DOMCSSRule), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationGetParentRuleMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationGetParentRule
#endif
foreign import ccall "webkit_dom_css_style_declaration_get_property_priority" webkit_dom_css_style_declaration_get_property_priority ::
Ptr DOMCSSStyleDeclaration ->
CString ->
IO CString
{-# DEPRECATED dOMCSSStyleDeclarationGetPropertyPriority ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationGetPropertyPriority ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> T.Text
-> m T.Text
dOMCSSStyleDeclarationGetPropertyPriority self propertyName = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_get_property_priority self' propertyName'
checkUnexpectedReturnNULL "dOMCSSStyleDeclarationGetPropertyPriority" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem propertyName'
return result'
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationGetPropertyPriorityMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationGetPropertyPriority
#endif
foreign import ccall "webkit_dom_css_style_declaration_get_property_shorthand" webkit_dom_css_style_declaration_get_property_shorthand ::
Ptr DOMCSSStyleDeclaration ->
CString ->
IO CString
{-# DEPRECATED dOMCSSStyleDeclarationGetPropertyShorthand ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationGetPropertyShorthand ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> T.Text
-> m T.Text
dOMCSSStyleDeclarationGetPropertyShorthand self propertyName = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_get_property_shorthand self' propertyName'
checkUnexpectedReturnNULL "dOMCSSStyleDeclarationGetPropertyShorthand" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem propertyName'
return result'
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationGetPropertyShorthandMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationGetPropertyShorthand
#endif
foreign import ccall "webkit_dom_css_style_declaration_get_property_value" webkit_dom_css_style_declaration_get_property_value ::
Ptr DOMCSSStyleDeclaration ->
CString ->
IO CString
{-# DEPRECATED dOMCSSStyleDeclarationGetPropertyValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationGetPropertyValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> T.Text
-> m T.Text
dOMCSSStyleDeclarationGetPropertyValue self propertyName = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_get_property_value self' propertyName'
checkUnexpectedReturnNULL "dOMCSSStyleDeclarationGetPropertyValue" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem propertyName'
return result'
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationGetPropertyValueMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationGetPropertyValueMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationGetPropertyValue
#endif
foreign import ccall "webkit_dom_css_style_declaration_is_property_implicit" webkit_dom_css_style_declaration_is_property_implicit ::
Ptr DOMCSSStyleDeclaration ->
CString ->
IO CInt
{-# DEPRECATED dOMCSSStyleDeclarationIsPropertyImplicit ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationIsPropertyImplicit ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> T.Text
-> m Bool
dOMCSSStyleDeclarationIsPropertyImplicit self propertyName = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
propertyName' <- textToCString propertyName
result <- webkit_dom_css_style_declaration_is_property_implicit self' propertyName'
let result' = (/= 0) result
touchManagedPtr self
freeMem propertyName'
return result'
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationIsPropertyImplicitMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationIsPropertyImplicit
#endif
foreign import ccall "webkit_dom_css_style_declaration_item" webkit_dom_css_style_declaration_item ::
Ptr DOMCSSStyleDeclaration ->
CULong ->
IO CString
{-# DEPRECATED dOMCSSStyleDeclarationItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> CULong
-> m T.Text
dOMCSSStyleDeclarationItem self index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_css_style_declaration_item self' index
checkUnexpectedReturnNULL "dOMCSSStyleDeclarationItem" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationItemMethodInfo
instance (signature ~ (CULong -> m T.Text), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationItemMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationItem
#endif
foreign import ccall "webkit_dom_css_style_declaration_remove_property" webkit_dom_css_style_declaration_remove_property ::
Ptr DOMCSSStyleDeclaration ->
CString ->
Ptr (Ptr GError) ->
IO CString
{-# DEPRECATED dOMCSSStyleDeclarationRemoveProperty ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationRemoveProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> T.Text
-> m T.Text
dOMCSSStyleDeclarationRemoveProperty self propertyName = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
propertyName' <- textToCString propertyName
onException (do
result <- propagateGError $ webkit_dom_css_style_declaration_remove_property self' propertyName'
checkUnexpectedReturnNULL "dOMCSSStyleDeclarationRemoveProperty" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
freeMem propertyName'
return result'
) (do
freeMem propertyName'
)
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationRemovePropertyMethodInfo
instance (signature ~ (T.Text -> m T.Text), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationRemovePropertyMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationRemoveProperty
#endif
foreign import ccall "webkit_dom_css_style_declaration_set_css_text" webkit_dom_css_style_declaration_set_css_text ::
Ptr DOMCSSStyleDeclaration ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCSSStyleDeclarationSetCssText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationSetCssText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> T.Text
-> m ()
dOMCSSStyleDeclarationSetCssText self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_css_style_declaration_set_css_text self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationSetCssTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationSetCssTextMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationSetCssText
#endif
foreign import ccall "webkit_dom_css_style_declaration_set_property" webkit_dom_css_style_declaration_set_property ::
Ptr DOMCSSStyleDeclaration ->
CString ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCSSStyleDeclarationSetProperty ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleDeclarationSetProperty ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleDeclaration a) =>
a
-> T.Text
-> T.Text
-> T.Text
-> m ()
dOMCSSStyleDeclarationSetProperty self propertyName value priority = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
propertyName' <- textToCString propertyName
value' <- textToCString value
priority' <- textToCString priority
onException (do
propagateGError $ webkit_dom_css_style_declaration_set_property self' propertyName' value' priority'
touchManagedPtr self
freeMem propertyName'
freeMem value'
freeMem priority'
return ()
) (do
freeMem propertyName'
freeMem value'
freeMem priority'
)
#if ENABLE_OVERLOADING
data DOMCSSStyleDeclarationSetPropertyMethodInfo
instance (signature ~ (T.Text -> T.Text -> T.Text -> m ()), MonadIO m, IsDOMCSSStyleDeclaration a) => O.MethodInfo DOMCSSStyleDeclarationSetPropertyMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleDeclarationSetProperty
#endif