{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMCSSRule
(
DOMCSSRule(..) ,
IsDOMCSSRule ,
toDOMCSSRule ,
noDOMCSSRule ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMCSSRuleMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleGetCssTextMethodInfo ,
#endif
dOMCSSRuleGetCssText ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleGetParentRuleMethodInfo ,
#endif
dOMCSSRuleGetParentRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleGetParentStyleSheetMethodInfo ,
#endif
dOMCSSRuleGetParentStyleSheet ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleGetRuleTypeMethodInfo ,
#endif
dOMCSSRuleGetRuleType ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleSetCssTextMethodInfo ,
#endif
dOMCSSRuleSetCssText ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleCssTextPropertyInfo ,
#endif
clearDOMCSSRuleCssText ,
constructDOMCSSRuleCssText ,
#if defined(ENABLE_OVERLOADING)
dOMCSSRuleCssText ,
#endif
getDOMCSSRuleCssText ,
setDOMCSSRuleCssText ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleParentRulePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSRuleParentRule ,
#endif
getDOMCSSRuleParentRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleParentStyleSheetPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSRuleParentStyleSheet ,
#endif
getDOMCSSRuleParentStyleSheet ,
#if defined(ENABLE_OVERLOADING)
DOMCSSRuleTypePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSRuleType ,
#endif
getDOMCSSRuleType ,
) 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.GI.Base.Signals as B.Signals
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.DOMCSSStyleSheet as WebKit2WebExtension.DOMCSSStyleSheet
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMCSSRule = DOMCSSRule (ManagedPtr DOMCSSRule)
deriving (DOMCSSRule -> DOMCSSRule -> Bool
(DOMCSSRule -> DOMCSSRule -> Bool)
-> (DOMCSSRule -> DOMCSSRule -> Bool) -> Eq DOMCSSRule
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMCSSRule -> DOMCSSRule -> Bool
$c/= :: DOMCSSRule -> DOMCSSRule -> Bool
== :: DOMCSSRule -> DOMCSSRule -> Bool
$c== :: DOMCSSRule -> DOMCSSRule -> Bool
Eq)
foreign import ccall "webkit_dom_css_rule_get_type"
c_webkit_dom_css_rule_get_type :: IO GType
instance GObject DOMCSSRule where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_css_rule_get_type
instance B.GValue.IsGValue DOMCSSRule where
toGValue :: DOMCSSRule -> IO GValue
toGValue o :: DOMCSSRule
o = do
GType
gtype <- IO GType
c_webkit_dom_css_rule_get_type
DOMCSSRule -> (Ptr DOMCSSRule -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMCSSRule
o (GType
-> (GValue -> Ptr DOMCSSRule -> IO ())
-> Ptr DOMCSSRule
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMCSSRule -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMCSSRule
fromGValue gv :: GValue
gv = do
Ptr DOMCSSRule
ptr <- GValue -> IO (Ptr DOMCSSRule)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMCSSRule)
(ManagedPtr DOMCSSRule -> DOMCSSRule)
-> Ptr DOMCSSRule -> IO DOMCSSRule
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMCSSRule -> DOMCSSRule
DOMCSSRule Ptr DOMCSSRule
ptr
class (GObject o, O.IsDescendantOf DOMCSSRule o) => IsDOMCSSRule o
instance (GObject o, O.IsDescendantOf DOMCSSRule o) => IsDOMCSSRule o
instance O.HasParentTypes DOMCSSRule
type instance O.ParentTypes DOMCSSRule = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMCSSRule :: (MonadIO m, IsDOMCSSRule o) => o -> m DOMCSSRule
toDOMCSSRule :: o -> m DOMCSSRule
toDOMCSSRule = IO DOMCSSRule -> m DOMCSSRule
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCSSRule -> m DOMCSSRule)
-> (o -> IO DOMCSSRule) -> o -> m DOMCSSRule
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMCSSRule -> DOMCSSRule) -> o -> IO DOMCSSRule
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMCSSRule -> DOMCSSRule
DOMCSSRule
noDOMCSSRule :: Maybe DOMCSSRule
noDOMCSSRule :: Maybe DOMCSSRule
noDOMCSSRule = Maybe DOMCSSRule
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMCSSRuleMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMCSSRuleMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMCSSRuleMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMCSSRuleMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMCSSRuleMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMCSSRuleMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMCSSRuleMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMCSSRuleMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMCSSRuleMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMCSSRuleMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMCSSRuleMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMCSSRuleMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMCSSRuleMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMCSSRuleMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMCSSRuleMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMCSSRuleMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMCSSRuleMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMCSSRuleMethod "getCssText" o = DOMCSSRuleGetCssTextMethodInfo
ResolveDOMCSSRuleMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMCSSRuleMethod "getParentRule" o = DOMCSSRuleGetParentRuleMethodInfo
ResolveDOMCSSRuleMethod "getParentStyleSheet" o = DOMCSSRuleGetParentStyleSheetMethodInfo
ResolveDOMCSSRuleMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMCSSRuleMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMCSSRuleMethod "getRuleType" o = DOMCSSRuleGetRuleTypeMethodInfo
ResolveDOMCSSRuleMethod "setCssText" o = DOMCSSRuleSetCssTextMethodInfo
ResolveDOMCSSRuleMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMCSSRuleMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMCSSRuleMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMCSSRuleMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMCSSRuleMethod t DOMCSSRule, O.MethodInfo info DOMCSSRule p) => OL.IsLabel t (DOMCSSRule -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMCSSRuleCssText :: (MonadIO m, IsDOMCSSRule o) => o -> m (Maybe T.Text)
getDOMCSSRuleCssText :: o -> m (Maybe Text)
getDOMCSSRuleCssText obj :: o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj "css-text"
setDOMCSSRuleCssText :: (MonadIO m, IsDOMCSSRule o) => o -> T.Text -> m ()
setDOMCSSRuleCssText :: o -> Text -> m ()
setDOMCSSRuleCssText obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "css-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructDOMCSSRuleCssText :: (IsDOMCSSRule o) => T.Text -> IO (GValueConstruct o)
constructDOMCSSRuleCssText :: Text -> IO (GValueConstruct o)
constructDOMCSSRuleCssText val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "css-text" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
clearDOMCSSRuleCssText :: (MonadIO m, IsDOMCSSRule o) => o -> m ()
clearDOMCSSRuleCssText :: o -> m ()
clearDOMCSSRuleCssText obj :: o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "css-text" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleCssTextPropertyInfo
instance AttrInfo DOMCSSRuleCssTextPropertyInfo where
type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = IsDOMCSSRule
type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text
type AttrTransferType DOMCSSRuleCssTextPropertyInfo = T.Text
type AttrGetType DOMCSSRuleCssTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMCSSRuleCssTextPropertyInfo = "css-text"
type AttrOrigin DOMCSSRuleCssTextPropertyInfo = DOMCSSRule
attrGet = getDOMCSSRuleCssText
attrSet = setDOMCSSRuleCssText
attrTransfer _ v = do
return v
attrConstruct = constructDOMCSSRuleCssText
attrClear = clearDOMCSSRuleCssText
#endif
getDOMCSSRuleParentRule :: (MonadIO m, IsDOMCSSRule o) => o -> m (Maybe DOMCSSRule)
getDOMCSSRuleParentRule :: o -> m (Maybe DOMCSSRule)
getDOMCSSRuleParentRule obj :: o
obj = IO (Maybe DOMCSSRule) -> m (Maybe DOMCSSRule)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMCSSRule) -> m (Maybe DOMCSSRule))
-> IO (Maybe DOMCSSRule) -> m (Maybe DOMCSSRule)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMCSSRule -> DOMCSSRule)
-> IO (Maybe DOMCSSRule)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "parent-rule" ManagedPtr DOMCSSRule -> DOMCSSRule
DOMCSSRule
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleParentRulePropertyInfo
instance AttrInfo DOMCSSRuleParentRulePropertyInfo where
type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = IsDOMCSSRule
type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) ()
type AttrTransferType DOMCSSRuleParentRulePropertyInfo = ()
type AttrGetType DOMCSSRuleParentRulePropertyInfo = (Maybe DOMCSSRule)
type AttrLabel DOMCSSRuleParentRulePropertyInfo = "parent-rule"
type AttrOrigin DOMCSSRuleParentRulePropertyInfo = DOMCSSRule
attrGet = getDOMCSSRuleParentRule
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMCSSRuleParentStyleSheet :: (MonadIO m, IsDOMCSSRule o) => o -> m (Maybe WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet)
getDOMCSSRuleParentStyleSheet :: o -> m (Maybe DOMCSSStyleSheet)
getDOMCSSRuleParentStyleSheet obj :: o
obj = IO (Maybe DOMCSSStyleSheet) -> m (Maybe DOMCSSStyleSheet)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe DOMCSSStyleSheet) -> m (Maybe DOMCSSStyleSheet))
-> IO (Maybe DOMCSSStyleSheet) -> m (Maybe DOMCSSStyleSheet)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet)
-> IO (Maybe DOMCSSStyleSheet)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj "parent-style-sheet" ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet
WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleParentStyleSheetPropertyInfo
instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where
type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = IsDOMCSSRule
type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) ()
type AttrTransferType DOMCSSRuleParentStyleSheetPropertyInfo = ()
type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = (Maybe WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet)
type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "parent-style-sheet"
type AttrOrigin DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRule
attrGet = getDOMCSSRuleParentStyleSheet
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMCSSRuleType :: (MonadIO m, IsDOMCSSRule o) => o -> m Word32
getDOMCSSRuleType :: o -> m Word32
getDOMCSSRuleType obj :: o
obj = IO Word32 -> m Word32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj "type"
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleTypePropertyInfo
instance AttrInfo DOMCSSRuleTypePropertyInfo where
type AttrAllowedOps DOMCSSRuleTypePropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMCSSRuleTypePropertyInfo = IsDOMCSSRule
type AttrSetTypeConstraint DOMCSSRuleTypePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMCSSRuleTypePropertyInfo = (~) ()
type AttrTransferType DOMCSSRuleTypePropertyInfo = ()
type AttrGetType DOMCSSRuleTypePropertyInfo = Word32
type AttrLabel DOMCSSRuleTypePropertyInfo = "type"
type AttrOrigin DOMCSSRuleTypePropertyInfo = DOMCSSRule
attrGet = getDOMCSSRuleType
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMCSSRule
type instance O.AttributeList DOMCSSRule = DOMCSSRuleAttributeList
type DOMCSSRuleAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("cssText", DOMCSSRuleCssTextPropertyInfo), '("parentRule", DOMCSSRuleParentRulePropertyInfo), '("parentStyleSheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSRuleCssText :: AttrLabelProxy "cssText"
dOMCSSRuleCssText = AttrLabelProxy
dOMCSSRuleParentRule :: AttrLabelProxy "parentRule"
dOMCSSRuleParentRule = AttrLabelProxy
dOMCSSRuleParentStyleSheet :: AttrLabelProxy "parentStyleSheet"
dOMCSSRuleParentStyleSheet = AttrLabelProxy
dOMCSSRuleType :: AttrLabelProxy "type"
dOMCSSRuleType = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMCSSRule = DOMCSSRuleSignalList
type DOMCSSRuleSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_css_rule_get_css_text" webkit_dom_css_rule_get_css_text ::
Ptr DOMCSSRule ->
IO CString
{-# DEPRECATED dOMCSSRuleGetCssText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSRuleGetCssText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSRule a) =>
a
-> m T.Text
dOMCSSRuleGetCssText :: a -> m Text
dOMCSSRuleGetCssText self :: a
self = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSRule
self' <- a -> IO (Ptr DOMCSSRule)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
result <- Ptr DOMCSSRule -> IO CString
webkit_dom_css_rule_get_css_text Ptr DOMCSSRule
self'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMCSSRuleGetCssText" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleGetCssTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMCSSRule a) => O.MethodInfo DOMCSSRuleGetCssTextMethodInfo a signature where
overloadedMethod = dOMCSSRuleGetCssText
#endif
foreign import ccall "webkit_dom_css_rule_get_parent_rule" webkit_dom_css_rule_get_parent_rule ::
Ptr DOMCSSRule ->
IO (Ptr DOMCSSRule)
{-# DEPRECATED dOMCSSRuleGetParentRule ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSRuleGetParentRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSRule a) =>
a
-> m DOMCSSRule
dOMCSSRuleGetParentRule :: a -> m DOMCSSRule
dOMCSSRuleGetParentRule self :: a
self = IO DOMCSSRule -> m DOMCSSRule
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCSSRule -> m DOMCSSRule) -> IO DOMCSSRule -> m DOMCSSRule
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSRule
self' <- a -> IO (Ptr DOMCSSRule)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMCSSRule
result <- Ptr DOMCSSRule -> IO (Ptr DOMCSSRule)
webkit_dom_css_rule_get_parent_rule Ptr DOMCSSRule
self'
Text -> Ptr DOMCSSRule -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMCSSRuleGetParentRule" Ptr DOMCSSRule
result
DOMCSSRule
result' <- ((ManagedPtr DOMCSSRule -> DOMCSSRule)
-> Ptr DOMCSSRule -> IO DOMCSSRule
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMCSSRule -> DOMCSSRule
DOMCSSRule) Ptr DOMCSSRule
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMCSSRule -> IO DOMCSSRule
forall (m :: * -> *) a. Monad m => a -> m a
return DOMCSSRule
result'
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleGetParentRuleMethodInfo
instance (signature ~ (m DOMCSSRule), MonadIO m, IsDOMCSSRule a) => O.MethodInfo DOMCSSRuleGetParentRuleMethodInfo a signature where
overloadedMethod = dOMCSSRuleGetParentRule
#endif
foreign import ccall "webkit_dom_css_rule_get_parent_style_sheet" webkit_dom_css_rule_get_parent_style_sheet ::
Ptr DOMCSSRule ->
IO (Ptr WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet)
{-# DEPRECATED dOMCSSRuleGetParentStyleSheet ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSRuleGetParentStyleSheet ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSRule a) =>
a
-> m WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet
dOMCSSRuleGetParentStyleSheet :: a -> m DOMCSSStyleSheet
dOMCSSRuleGetParentStyleSheet self :: a
self = IO DOMCSSStyleSheet -> m DOMCSSStyleSheet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCSSStyleSheet -> m DOMCSSStyleSheet)
-> IO DOMCSSStyleSheet -> m DOMCSSStyleSheet
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSRule
self' <- a -> IO (Ptr DOMCSSRule)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMCSSStyleSheet
result <- Ptr DOMCSSRule -> IO (Ptr DOMCSSStyleSheet)
webkit_dom_css_rule_get_parent_style_sheet Ptr DOMCSSRule
self'
Text -> Ptr DOMCSSStyleSheet -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMCSSRuleGetParentStyleSheet" Ptr DOMCSSStyleSheet
result
DOMCSSStyleSheet
result' <- ((ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet)
-> Ptr DOMCSSStyleSheet -> IO DOMCSSStyleSheet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet
WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet) Ptr DOMCSSStyleSheet
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMCSSStyleSheet -> IO DOMCSSStyleSheet
forall (m :: * -> *) a. Monad m => a -> m a
return DOMCSSStyleSheet
result'
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleGetParentStyleSheetMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSStyleSheet.DOMCSSStyleSheet), MonadIO m, IsDOMCSSRule a) => O.MethodInfo DOMCSSRuleGetParentStyleSheetMethodInfo a signature where
overloadedMethod = dOMCSSRuleGetParentStyleSheet
#endif
foreign import ccall "webkit_dom_css_rule_get_rule_type" webkit_dom_css_rule_get_rule_type ::
Ptr DOMCSSRule ->
IO Word16
{-# DEPRECATED dOMCSSRuleGetRuleType ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSRuleGetRuleType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSRule a) =>
a
-> m Word16
dOMCSSRuleGetRuleType :: a -> m Word16
dOMCSSRuleGetRuleType self :: a
self = IO Word16 -> m Word16
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word16 -> m Word16) -> IO Word16 -> m Word16
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSRule
self' <- a -> IO (Ptr DOMCSSRule)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Word16
result <- Ptr DOMCSSRule -> IO Word16
webkit_dom_css_rule_get_rule_type Ptr DOMCSSRule
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Word16 -> IO Word16
forall (m :: * -> *) a. Monad m => a -> m a
return Word16
result
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleGetRuleTypeMethodInfo
instance (signature ~ (m Word16), MonadIO m, IsDOMCSSRule a) => O.MethodInfo DOMCSSRuleGetRuleTypeMethodInfo a signature where
overloadedMethod = dOMCSSRuleGetRuleType
#endif
foreign import ccall "webkit_dom_css_rule_set_css_text" webkit_dom_css_rule_set_css_text ::
Ptr DOMCSSRule ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCSSRuleSetCssText ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSRuleSetCssText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSRule a) =>
a
-> T.Text
-> m ()
dOMCSSRuleSetCssText :: a -> Text -> m ()
dOMCSSRuleSetCssText self :: a
self value :: Text
value = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSRule
self' <- a -> IO (Ptr DOMCSSRule)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
value' <- Text -> IO CString
textToCString Text
value
IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO a
onException (do
(Ptr (Ptr GError) -> IO ()) -> IO ()
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO ()) -> IO ())
-> (Ptr (Ptr GError) -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ Ptr DOMCSSRule -> CString -> Ptr (Ptr GError) -> IO ()
webkit_dom_css_rule_set_css_text Ptr DOMCSSRule
self' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
)
#if defined(ENABLE_OVERLOADING)
data DOMCSSRuleSetCssTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMCSSRule a) => O.MethodInfo DOMCSSRuleSetCssTextMethodInfo a signature where
overloadedMethod = dOMCSSRuleSetCssText
#endif