{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet
(
DOMCSSStyleSheet(..) ,
IsDOMCSSStyleSheet ,
toDOMCSSStyleSheet ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMCSSStyleSheetMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetAddRuleMethodInfo ,
#endif
dOMCSSStyleSheetAddRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetDeleteRuleMethodInfo ,
#endif
dOMCSSStyleSheetDeleteRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetGetCssRulesMethodInfo ,
#endif
dOMCSSStyleSheetGetCssRules ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetGetOwnerRuleMethodInfo ,
#endif
dOMCSSStyleSheetGetOwnerRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetGetRulesMethodInfo ,
#endif
dOMCSSStyleSheetGetRules ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetInsertRuleMethodInfo ,
#endif
dOMCSSStyleSheetInsertRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetRemoveRuleMethodInfo ,
#endif
dOMCSSStyleSheetRemoveRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetCssRulesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSStyleSheetCssRules ,
#endif
getDOMCSSStyleSheetCssRules ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetOwnerRulePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSStyleSheetOwnerRule ,
#endif
getDOMCSSStyleSheetOwnerRule ,
#if defined(ENABLE_OVERLOADING)
DOMCSSStyleSheetRulesPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSStyleSheetRules ,
#endif
getDOMCSSStyleSheetRules ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
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 Control.Monad.IO.Class as MIO
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 GHC.Records as R
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.DOMCSSRuleList as WebKit2WebExtension.DOMCSSRuleList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMStyleSheet as WebKit2WebExtension.DOMStyleSheet
newtype DOMCSSStyleSheet = DOMCSSStyleSheet (SP.ManagedPtr DOMCSSStyleSheet)
deriving (DOMCSSStyleSheet -> DOMCSSStyleSheet -> Bool
(DOMCSSStyleSheet -> DOMCSSStyleSheet -> Bool)
-> (DOMCSSStyleSheet -> DOMCSSStyleSheet -> Bool)
-> Eq DOMCSSStyleSheet
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMCSSStyleSheet -> DOMCSSStyleSheet -> Bool
$c/= :: DOMCSSStyleSheet -> DOMCSSStyleSheet -> Bool
== :: DOMCSSStyleSheet -> DOMCSSStyleSheet -> Bool
$c== :: DOMCSSStyleSheet -> DOMCSSStyleSheet -> Bool
Eq)
instance SP.ManagedPtrNewtype DOMCSSStyleSheet where
toManagedPtr :: DOMCSSStyleSheet -> ManagedPtr DOMCSSStyleSheet
toManagedPtr (DOMCSSStyleSheet ManagedPtr DOMCSSStyleSheet
p) = ManagedPtr DOMCSSStyleSheet
p
foreign import ccall "webkit_dom_css_style_sheet_get_type"
c_webkit_dom_css_style_sheet_get_type :: IO B.Types.GType
instance B.Types.TypedObject DOMCSSStyleSheet where
glibType :: IO GType
glibType = IO GType
c_webkit_dom_css_style_sheet_get_type
instance B.Types.GObject DOMCSSStyleSheet
class (SP.GObject o, O.IsDescendantOf DOMCSSStyleSheet o) => IsDOMCSSStyleSheet o
instance (SP.GObject o, O.IsDescendantOf DOMCSSStyleSheet o) => IsDOMCSSStyleSheet o
instance O.HasParentTypes DOMCSSStyleSheet
type instance O.ParentTypes DOMCSSStyleSheet = '[WebKit2WebExtension.DOMStyleSheet.DOMStyleSheet, WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMCSSStyleSheet :: (MIO.MonadIO m, IsDOMCSSStyleSheet o) => o -> m DOMCSSStyleSheet
toDOMCSSStyleSheet :: forall (m :: * -> *) o.
(MonadIO m, IsDOMCSSStyleSheet o) =>
o -> m DOMCSSStyleSheet
toDOMCSSStyleSheet = IO DOMCSSStyleSheet -> m DOMCSSStyleSheet
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO DOMCSSStyleSheet -> m DOMCSSStyleSheet)
-> (o -> IO DOMCSSStyleSheet) -> o -> m DOMCSSStyleSheet
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet)
-> o -> IO DOMCSSStyleSheet
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet
DOMCSSStyleSheet
instance B.GValue.IsGValue (Maybe DOMCSSStyleSheet) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_webkit_dom_css_style_sheet_get_type
gvalueSet_ :: Ptr GValue -> Maybe DOMCSSStyleSheet -> IO ()
gvalueSet_ Ptr GValue
gv Maybe DOMCSSStyleSheet
P.Nothing = Ptr GValue -> Ptr DOMCSSStyleSheet -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr DOMCSSStyleSheet
forall a. Ptr a
FP.nullPtr :: FP.Ptr DOMCSSStyleSheet)
gvalueSet_ Ptr GValue
gv (P.Just DOMCSSStyleSheet
obj) = DOMCSSStyleSheet -> (Ptr DOMCSSStyleSheet -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMCSSStyleSheet
obj (Ptr GValue -> Ptr DOMCSSStyleSheet -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe DOMCSSStyleSheet)
gvalueGet_ Ptr GValue
gv = do
Ptr DOMCSSStyleSheet
ptr <- Ptr GValue -> IO (Ptr DOMCSSStyleSheet)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr DOMCSSStyleSheet)
if Ptr DOMCSSStyleSheet
ptr Ptr DOMCSSStyleSheet -> Ptr DOMCSSStyleSheet -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr DOMCSSStyleSheet
forall a. Ptr a
FP.nullPtr
then DOMCSSStyleSheet -> Maybe DOMCSSStyleSheet
forall a. a -> Maybe a
P.Just (DOMCSSStyleSheet -> Maybe DOMCSSStyleSheet)
-> IO DOMCSSStyleSheet -> IO (Maybe DOMCSSStyleSheet)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet)
-> Ptr DOMCSSStyleSheet -> IO DOMCSSStyleSheet
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMCSSStyleSheet -> DOMCSSStyleSheet
DOMCSSStyleSheet Ptr DOMCSSStyleSheet
ptr
else Maybe DOMCSSStyleSheet -> IO (Maybe DOMCSSStyleSheet)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe DOMCSSStyleSheet
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMCSSStyleSheetMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMCSSStyleSheetMethod "addRule" o = DOMCSSStyleSheetAddRuleMethodInfo
ResolveDOMCSSStyleSheetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMCSSStyleSheetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMCSSStyleSheetMethod "deleteRule" o = DOMCSSStyleSheetDeleteRuleMethodInfo
ResolveDOMCSSStyleSheetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMCSSStyleSheetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMCSSStyleSheetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMCSSStyleSheetMethod "insertRule" o = DOMCSSStyleSheetInsertRuleMethodInfo
ResolveDOMCSSStyleSheetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMCSSStyleSheetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMCSSStyleSheetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMCSSStyleSheetMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMCSSStyleSheetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMCSSStyleSheetMethod "removeRule" o = DOMCSSStyleSheetRemoveRuleMethodInfo
ResolveDOMCSSStyleSheetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMCSSStyleSheetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMCSSStyleSheetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMCSSStyleSheetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMCSSStyleSheetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMCSSStyleSheetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMCSSStyleSheetMethod "getContentType" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetGetContentTypeMethodInfo
ResolveDOMCSSStyleSheetMethod "getCssRules" o = DOMCSSStyleSheetGetCssRulesMethodInfo
ResolveDOMCSSStyleSheetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMCSSStyleSheetMethod "getDisabled" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetGetDisabledMethodInfo
ResolveDOMCSSStyleSheetMethod "getHref" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetGetHrefMethodInfo
ResolveDOMCSSStyleSheetMethod "getMedia" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetGetMediaMethodInfo
ResolveDOMCSSStyleSheetMethod "getOwnerNode" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetGetOwnerNodeMethodInfo
ResolveDOMCSSStyleSheetMethod "getOwnerRule" o = DOMCSSStyleSheetGetOwnerRuleMethodInfo
ResolveDOMCSSStyleSheetMethod "getParentStyleSheet" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetGetParentStyleSheetMethodInfo
ResolveDOMCSSStyleSheetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMCSSStyleSheetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMCSSStyleSheetMethod "getRules" o = DOMCSSStyleSheetGetRulesMethodInfo
ResolveDOMCSSStyleSheetMethod "getTitle" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetGetTitleMethodInfo
ResolveDOMCSSStyleSheetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMCSSStyleSheetMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMCSSStyleSheetMethod "setDisabled" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetSetDisabledMethodInfo
ResolveDOMCSSStyleSheetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMCSSStyleSheetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMCSSStyleSheetMethod t DOMCSSStyleSheet, O.OverloadedMethod info DOMCSSStyleSheet p) => OL.IsLabel t (DOMCSSStyleSheet -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveDOMCSSStyleSheetMethod t DOMCSSStyleSheet, O.OverloadedMethod info DOMCSSStyleSheet p, R.HasField t DOMCSSStyleSheet p) => R.HasField t DOMCSSStyleSheet p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveDOMCSSStyleSheetMethod t DOMCSSStyleSheet, O.OverloadedMethodInfo info DOMCSSStyleSheet) => OL.IsLabel t (O.MethodProxy info DOMCSSStyleSheet) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getDOMCSSStyleSheetCssRules :: (MonadIO m, IsDOMCSSStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
getDOMCSSStyleSheetCssRules :: forall (m :: * -> *) o.
(MonadIO m, IsDOMCSSStyleSheet o) =>
o -> m (Maybe DOMCSSRuleList)
getDOMCSSStyleSheetCssRules o
obj = IO (Maybe DOMCSSRuleList) -> m (Maybe DOMCSSRuleList)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DOMCSSRuleList) -> m (Maybe DOMCSSRuleList))
-> IO (Maybe DOMCSSRuleList) -> m (Maybe DOMCSSRuleList)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMCSSRuleList -> DOMCSSRuleList)
-> IO (Maybe DOMCSSRuleList)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"css-rules" ManagedPtr DOMCSSRuleList -> DOMCSSRuleList
WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetCssRulesPropertyInfo
instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where
type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = IsDOMCSSStyleSheet
type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) ()
type AttrTransferType DOMCSSStyleSheetCssRulesPropertyInfo = ()
type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "css-rules"
type AttrOrigin DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheet
attrGet = getDOMCSSStyleSheetCssRules
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMCSSStyleSheetOwnerRule :: (MonadIO m, IsDOMCSSStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
getDOMCSSStyleSheetOwnerRule :: forall (m :: * -> *) o.
(MonadIO m, IsDOMCSSStyleSheet o) =>
o -> m (Maybe DOMCSSRule)
getDOMCSSStyleSheetOwnerRule o
obj = IO (Maybe DOMCSSRule) -> m (Maybe DOMCSSRule)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.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 String
"owner-rule" ManagedPtr DOMCSSRule -> DOMCSSRule
WebKit2WebExtension.DOMCSSRule.DOMCSSRule
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetOwnerRulePropertyInfo
instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where
type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = IsDOMCSSStyleSheet
type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) ()
type AttrTransferType DOMCSSStyleSheetOwnerRulePropertyInfo = ()
type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = (Maybe WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "owner-rule"
type AttrOrigin DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheet
attrGet = getDOMCSSStyleSheetOwnerRule
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getDOMCSSStyleSheetRules :: (MonadIO m, IsDOMCSSStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
getDOMCSSStyleSheetRules :: forall (m :: * -> *) o.
(MonadIO m, IsDOMCSSStyleSheet o) =>
o -> m (Maybe DOMCSSRuleList)
getDOMCSSStyleSheetRules o
obj = IO (Maybe DOMCSSRuleList) -> m (Maybe DOMCSSRuleList)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe DOMCSSRuleList) -> m (Maybe DOMCSSRuleList))
-> IO (Maybe DOMCSSRuleList) -> m (Maybe DOMCSSRuleList)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr DOMCSSRuleList -> DOMCSSRuleList)
-> IO (Maybe DOMCSSRuleList)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"rules" ManagedPtr DOMCSSRuleList -> DOMCSSRuleList
WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetRulesPropertyInfo
instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where
type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = IsDOMCSSStyleSheet
type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) ()
type AttrTransferType DOMCSSStyleSheetRulesPropertyInfo = ()
type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "rules"
type AttrOrigin DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheet
attrGet = getDOMCSSStyleSheetRules
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMCSSStyleSheet
type instance O.AttributeList DOMCSSStyleSheet = DOMCSSStyleSheetAttributeList
type DOMCSSStyleSheetAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("cssRules", DOMCSSStyleSheetCssRulesPropertyInfo), '("disabled", WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetDisabledPropertyInfo), '("href", WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetHrefPropertyInfo), '("media", WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetMediaPropertyInfo), '("ownerNode", WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetOwnerNodePropertyInfo), '("ownerRule", DOMCSSStyleSheetOwnerRulePropertyInfo), '("parentStyleSheet", WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetParentStyleSheetPropertyInfo), '("rules", DOMCSSStyleSheetRulesPropertyInfo), '("title", WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetTitlePropertyInfo), '("type", WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMCSSStyleSheetCssRules :: AttrLabelProxy "cssRules"
dOMCSSStyleSheetCssRules = AttrLabelProxy
dOMCSSStyleSheetOwnerRule :: AttrLabelProxy "ownerRule"
dOMCSSStyleSheetOwnerRule = AttrLabelProxy
dOMCSSStyleSheetRules :: AttrLabelProxy "rules"
dOMCSSStyleSheetRules = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMCSSStyleSheet = DOMCSSStyleSheetSignalList
type DOMCSSStyleSheetSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_css_style_sheet_add_rule" webkit_dom_css_style_sheet_add_rule ::
Ptr DOMCSSStyleSheet ->
CString ->
CString ->
CULong ->
Ptr (Ptr GError) ->
IO CLong
{-# DEPRECATED dOMCSSStyleSheetAddRule ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleSheetAddRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> T.Text
-> T.Text
-> CULong
-> m CLong
dOMCSSStyleSheetAddRule :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a -> Text -> Text -> CULong -> m CLong
dOMCSSStyleSheetAddRule a
self Text
selector Text
style CULong
index = IO CLong -> m CLong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CLong -> m CLong) -> IO CLong -> m CLong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSStyleSheet
self' <- a -> IO (Ptr DOMCSSStyleSheet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
selector' <- Text -> IO CString
textToCString Text
selector
CString
style' <- Text -> IO CString
textToCString Text
style
IO CLong -> IO () -> IO CLong
forall a b. IO a -> IO b -> IO a
onException (do
CLong
result <- (Ptr (Ptr GError) -> IO CLong) -> IO CLong
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CLong) -> IO CLong)
-> (Ptr (Ptr GError) -> IO CLong) -> IO CLong
forall a b. (a -> b) -> a -> b
$ Ptr DOMCSSStyleSheet
-> CString -> CString -> CULong -> Ptr (Ptr GError) -> IO CLong
webkit_dom_css_style_sheet_add_rule Ptr DOMCSSStyleSheet
self' CString
selector' CString
style' CULong
index
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selector'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
style'
CLong -> IO CLong
forall (m :: * -> *) a. Monad m => a -> m a
return CLong
result
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
selector'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
style'
)
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetAddRuleMethodInfo
instance (signature ~ (T.Text -> T.Text -> CULong -> m CLong), MonadIO m, IsDOMCSSStyleSheet a) => O.OverloadedMethod DOMCSSStyleSheetAddRuleMethodInfo a signature where
overloadedMethod = dOMCSSStyleSheetAddRule
instance O.OverloadedMethodInfo DOMCSSStyleSheetAddRuleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet.dOMCSSStyleSheetAddRule",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMCSSStyleSheet.html#v:dOMCSSStyleSheetAddRule"
}
#endif
foreign import ccall "webkit_dom_css_style_sheet_delete_rule" webkit_dom_css_style_sheet_delete_rule ::
Ptr DOMCSSStyleSheet ->
CULong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCSSStyleSheetDeleteRule ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleSheetDeleteRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> CULong
-> m ()
dOMCSSStyleSheetDeleteRule :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a -> CULong -> m ()
dOMCSSStyleSheetDeleteRule a
self CULong
index = 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 DOMCSSStyleSheet
self' <- a -> IO (Ptr DOMCSSStyleSheet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 DOMCSSStyleSheet -> CULong -> Ptr (Ptr GError) -> IO ()
webkit_dom_css_style_sheet_delete_rule Ptr DOMCSSStyleSheet
self' CULong
index
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetDeleteRuleMethodInfo
instance (signature ~ (CULong -> m ()), MonadIO m, IsDOMCSSStyleSheet a) => O.OverloadedMethod DOMCSSStyleSheetDeleteRuleMethodInfo a signature where
overloadedMethod = dOMCSSStyleSheetDeleteRule
instance O.OverloadedMethodInfo DOMCSSStyleSheetDeleteRuleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet.dOMCSSStyleSheetDeleteRule",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMCSSStyleSheet.html#v:dOMCSSStyleSheetDeleteRule"
}
#endif
foreign import ccall "webkit_dom_css_style_sheet_get_css_rules" webkit_dom_css_style_sheet_get_css_rules ::
Ptr DOMCSSStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
{-# DEPRECATED dOMCSSStyleSheetGetCssRules ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleSheetGetCssRules ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
dOMCSSStyleSheetGetCssRules :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a -> m DOMCSSRuleList
dOMCSSStyleSheetGetCssRules a
self = IO DOMCSSRuleList -> m DOMCSSRuleList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCSSRuleList -> m DOMCSSRuleList)
-> IO DOMCSSRuleList -> m DOMCSSRuleList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSStyleSheet
self' <- a -> IO (Ptr DOMCSSStyleSheet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMCSSRuleList
result <- Ptr DOMCSSStyleSheet -> IO (Ptr DOMCSSRuleList)
webkit_dom_css_style_sheet_get_css_rules Ptr DOMCSSStyleSheet
self'
Text -> Ptr DOMCSSRuleList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMCSSStyleSheetGetCssRules" Ptr DOMCSSRuleList
result
DOMCSSRuleList
result' <- ((ManagedPtr DOMCSSRuleList -> DOMCSSRuleList)
-> Ptr DOMCSSRuleList -> IO DOMCSSRuleList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMCSSRuleList -> DOMCSSRuleList
WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList) Ptr DOMCSSRuleList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMCSSRuleList -> IO DOMCSSRuleList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMCSSRuleList
result'
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetGetCssRulesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList), MonadIO m, IsDOMCSSStyleSheet a) => O.OverloadedMethod DOMCSSStyleSheetGetCssRulesMethodInfo a signature where
overloadedMethod = dOMCSSStyleSheetGetCssRules
instance O.OverloadedMethodInfo DOMCSSStyleSheetGetCssRulesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet.dOMCSSStyleSheetGetCssRules",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMCSSStyleSheet.html#v:dOMCSSStyleSheetGetCssRules"
}
#endif
foreign import ccall "webkit_dom_css_style_sheet_get_owner_rule" webkit_dom_css_style_sheet_get_owner_rule ::
Ptr DOMCSSStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
{-# DEPRECATED dOMCSSStyleSheetGetOwnerRule ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleSheetGetOwnerRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMCSSRule.DOMCSSRule
dOMCSSStyleSheetGetOwnerRule :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a -> m DOMCSSRule
dOMCSSStyleSheetGetOwnerRule 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 DOMCSSStyleSheet
self' <- a -> IO (Ptr DOMCSSStyleSheet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMCSSRule
result <- Ptr DOMCSSStyleSheet -> IO (Ptr DOMCSSRule)
webkit_dom_css_style_sheet_get_owner_rule Ptr DOMCSSStyleSheet
self'
Text -> Ptr DOMCSSRule -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMCSSStyleSheetGetOwnerRule" 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
WebKit2WebExtension.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 DOMCSSStyleSheetGetOwnerRuleMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSRule.DOMCSSRule), MonadIO m, IsDOMCSSStyleSheet a) => O.OverloadedMethod DOMCSSStyleSheetGetOwnerRuleMethodInfo a signature where
overloadedMethod = dOMCSSStyleSheetGetOwnerRule
instance O.OverloadedMethodInfo DOMCSSStyleSheetGetOwnerRuleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet.dOMCSSStyleSheetGetOwnerRule",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMCSSStyleSheet.html#v:dOMCSSStyleSheetGetOwnerRule"
}
#endif
foreign import ccall "webkit_dom_css_style_sheet_get_rules" webkit_dom_css_style_sheet_get_rules ::
Ptr DOMCSSStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
{-# DEPRECATED dOMCSSStyleSheetGetRules ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleSheetGetRules ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
dOMCSSStyleSheetGetRules :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a -> m DOMCSSRuleList
dOMCSSStyleSheetGetRules a
self = IO DOMCSSRuleList -> m DOMCSSRuleList
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMCSSRuleList -> m DOMCSSRuleList)
-> IO DOMCSSRuleList -> m DOMCSSRuleList
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSStyleSheet
self' <- a -> IO (Ptr DOMCSSStyleSheet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMCSSRuleList
result <- Ptr DOMCSSStyleSheet -> IO (Ptr DOMCSSRuleList)
webkit_dom_css_style_sheet_get_rules Ptr DOMCSSStyleSheet
self'
Text -> Ptr DOMCSSRuleList -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"dOMCSSStyleSheetGetRules" Ptr DOMCSSRuleList
result
DOMCSSRuleList
result' <- ((ManagedPtr DOMCSSRuleList -> DOMCSSRuleList)
-> Ptr DOMCSSRuleList -> IO DOMCSSRuleList
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr DOMCSSRuleList -> DOMCSSRuleList
WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList) Ptr DOMCSSRuleList
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMCSSRuleList -> IO DOMCSSRuleList
forall (m :: * -> *) a. Monad m => a -> m a
return DOMCSSRuleList
result'
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetGetRulesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList), MonadIO m, IsDOMCSSStyleSheet a) => O.OverloadedMethod DOMCSSStyleSheetGetRulesMethodInfo a signature where
overloadedMethod = dOMCSSStyleSheetGetRules
instance O.OverloadedMethodInfo DOMCSSStyleSheetGetRulesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet.dOMCSSStyleSheetGetRules",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMCSSStyleSheet.html#v:dOMCSSStyleSheetGetRules"
}
#endif
foreign import ccall "webkit_dom_css_style_sheet_insert_rule" webkit_dom_css_style_sheet_insert_rule ::
Ptr DOMCSSStyleSheet ->
CString ->
CULong ->
Ptr (Ptr GError) ->
IO CULong
{-# DEPRECATED dOMCSSStyleSheetInsertRule ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleSheetInsertRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> T.Text
-> CULong
-> m CULong
dOMCSSStyleSheetInsertRule :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a -> Text -> CULong -> m CULong
dOMCSSStyleSheetInsertRule a
self Text
rule CULong
index = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMCSSStyleSheet
self' <- a -> IO (Ptr DOMCSSStyleSheet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
rule' <- Text -> IO CString
textToCString Text
rule
IO CULong -> IO () -> IO CULong
forall a b. IO a -> IO b -> IO a
onException (do
CULong
result <- (Ptr (Ptr GError) -> IO CULong) -> IO CULong
forall a. (Ptr (Ptr GError) -> IO a) -> IO a
propagateGError ((Ptr (Ptr GError) -> IO CULong) -> IO CULong)
-> (Ptr (Ptr GError) -> IO CULong) -> IO CULong
forall a b. (a -> b) -> a -> b
$ Ptr DOMCSSStyleSheet
-> CString -> CULong -> Ptr (Ptr GError) -> IO CULong
webkit_dom_css_style_sheet_insert_rule Ptr DOMCSSStyleSheet
self' CString
rule' CULong
index
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
rule'
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
) (do
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
rule'
)
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetInsertRuleMethodInfo
instance (signature ~ (T.Text -> CULong -> m CULong), MonadIO m, IsDOMCSSStyleSheet a) => O.OverloadedMethod DOMCSSStyleSheetInsertRuleMethodInfo a signature where
overloadedMethod = dOMCSSStyleSheetInsertRule
instance O.OverloadedMethodInfo DOMCSSStyleSheetInsertRuleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet.dOMCSSStyleSheetInsertRule",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMCSSStyleSheet.html#v:dOMCSSStyleSheetInsertRule"
}
#endif
foreign import ccall "webkit_dom_css_style_sheet_remove_rule" webkit_dom_css_style_sheet_remove_rule ::
Ptr DOMCSSStyleSheet ->
CULong ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMCSSStyleSheetRemoveRule ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMCSSStyleSheetRemoveRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> CULong
-> m ()
dOMCSSStyleSheetRemoveRule :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a -> CULong -> m ()
dOMCSSStyleSheetRemoveRule a
self CULong
index = 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 DOMCSSStyleSheet
self' <- a -> IO (Ptr DOMCSSStyleSheet)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
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 DOMCSSStyleSheet -> CULong -> Ptr (Ptr GError) -> IO ()
webkit_dom_css_style_sheet_remove_rule Ptr DOMCSSStyleSheet
self' CULong
index
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
) (do
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
)
#if defined(ENABLE_OVERLOADING)
data DOMCSSStyleSheetRemoveRuleMethodInfo
instance (signature ~ (CULong -> m ()), MonadIO m, IsDOMCSSStyleSheet a) => O.OverloadedMethod DOMCSSStyleSheetRemoveRuleMethodInfo a signature where
overloadedMethod = dOMCSSStyleSheetRemoveRule
instance O.OverloadedMethodInfo DOMCSSStyleSheetRemoveRuleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet.dOMCSSStyleSheetRemoveRule",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-webkit2webextension-4.0.26/docs/GI-WebKit2WebExtension-Objects-DOMCSSStyleSheet.html#v:dOMCSSStyleSheetRemoveRule"
}
#endif