module GI.WebKit2WebExtension.Objects.DOMCSSStyleSheet
(
DOMCSSStyleSheet(..) ,
IsDOMCSSStyleSheet ,
toDOMCSSStyleSheet ,
noDOMCSSStyleSheet ,
DOMCSSStyleSheetAddRuleMethodInfo ,
dOMCSSStyleSheetAddRule ,
DOMCSSStyleSheetDeleteRuleMethodInfo ,
dOMCSSStyleSheetDeleteRule ,
DOMCSSStyleSheetGetCssRulesMethodInfo ,
dOMCSSStyleSheetGetCssRules ,
DOMCSSStyleSheetGetOwnerRuleMethodInfo ,
dOMCSSStyleSheetGetOwnerRule ,
DOMCSSStyleSheetGetRulesMethodInfo ,
dOMCSSStyleSheetGetRules ,
DOMCSSStyleSheetInsertRuleMethodInfo ,
dOMCSSStyleSheetInsertRule ,
DOMCSSStyleSheetRemoveRuleMethodInfo ,
dOMCSSStyleSheetRemoveRule ,
DOMCSSStyleSheetCssRulesPropertyInfo ,
dOMCSSStyleSheetCssRules ,
getDOMCSSStyleSheetCssRules ,
DOMCSSStyleSheetOwnerRulePropertyInfo ,
dOMCSSStyleSheetOwnerRule ,
getDOMCSSStyleSheetOwnerRule ,
DOMCSSStyleSheetRulesPropertyInfo ,
dOMCSSStyleSheetRules ,
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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
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 GI.GObject.Objects.Object as GObject.Object
import qualified GI.WebKit2WebExtension.Objects.DOMCSSRule as WebKit2WebExtension.DOMCSSRule
import qualified GI.WebKit2WebExtension.Objects.DOMCSSRuleList as WebKit2WebExtension.DOMCSSRuleList
import qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
import qualified GI.WebKit2WebExtension.Objects.DOMStyleSheet as WebKit2WebExtension.DOMStyleSheet
newtype DOMCSSStyleSheet = DOMCSSStyleSheet (ManagedPtr DOMCSSStyleSheet)
foreign import ccall "webkit_dom_css_style_sheet_get_type"
c_webkit_dom_css_style_sheet_get_type :: IO GType
instance GObject DOMCSSStyleSheet where
gobjectType _ = c_webkit_dom_css_style_sheet_get_type
class GObject o => IsDOMCSSStyleSheet o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMCSSStyleSheet a) =>
IsDOMCSSStyleSheet a
#endif
instance IsDOMCSSStyleSheet DOMCSSStyleSheet
instance WebKit2WebExtension.DOMStyleSheet.IsDOMStyleSheet DOMCSSStyleSheet
instance WebKit2WebExtension.DOMObject.IsDOMObject DOMCSSStyleSheet
instance GObject.Object.IsObject DOMCSSStyleSheet
toDOMCSSStyleSheet :: IsDOMCSSStyleSheet o => o -> IO DOMCSSStyleSheet
toDOMCSSStyleSheet = unsafeCastTo DOMCSSStyleSheet
noDOMCSSStyleSheet :: Maybe DOMCSSStyleSheet
noDOMCSSStyleSheet = Nothing
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMCSSStyleSheetMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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 "setDisabled" o = WebKit2WebExtension.DOMStyleSheet.DOMStyleSheetSetDisabledMethodInfo
ResolveDOMCSSStyleSheetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMCSSStyleSheetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMCSSStyleSheetMethod t DOMCSSStyleSheet, O.MethodInfo info DOMCSSStyleSheet p) => O.IsLabelProxy t (DOMCSSStyleSheet -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMCSSStyleSheetMethod t DOMCSSStyleSheet, O.MethodInfo info DOMCSSStyleSheet p) => O.IsLabel t (DOMCSSStyleSheet -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getDOMCSSStyleSheetCssRules :: (MonadIO m, IsDOMCSSStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
getDOMCSSStyleSheetCssRules obj = liftIO $ getObjectPropertyObject obj "css-rules" WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
data DOMCSSStyleSheetCssRulesPropertyInfo
instance AttrInfo DOMCSSStyleSheetCssRulesPropertyInfo where
type AttrAllowedOps DOMCSSStyleSheetCssRulesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSStyleSheetCssRulesPropertyInfo = IsDOMCSSStyleSheet
type AttrGetType DOMCSSStyleSheetCssRulesPropertyInfo = (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
type AttrLabel DOMCSSStyleSheetCssRulesPropertyInfo = "css-rules"
type AttrOrigin DOMCSSStyleSheetCssRulesPropertyInfo = DOMCSSStyleSheet
attrGet _ = getDOMCSSStyleSheetCssRules
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMCSSStyleSheetOwnerRule :: (MonadIO m, IsDOMCSSStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
getDOMCSSStyleSheetOwnerRule obj = liftIO $ getObjectPropertyObject obj "owner-rule" WebKit2WebExtension.DOMCSSRule.DOMCSSRule
data DOMCSSStyleSheetOwnerRulePropertyInfo
instance AttrInfo DOMCSSStyleSheetOwnerRulePropertyInfo where
type AttrAllowedOps DOMCSSStyleSheetOwnerRulePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSStyleSheetOwnerRulePropertyInfo = IsDOMCSSStyleSheet
type AttrGetType DOMCSSStyleSheetOwnerRulePropertyInfo = (Maybe WebKit2WebExtension.DOMCSSRule.DOMCSSRule)
type AttrLabel DOMCSSStyleSheetOwnerRulePropertyInfo = "owner-rule"
type AttrOrigin DOMCSSStyleSheetOwnerRulePropertyInfo = DOMCSSStyleSheet
attrGet _ = getDOMCSSStyleSheetOwnerRule
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMCSSStyleSheetRules :: (MonadIO m, IsDOMCSSStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
getDOMCSSStyleSheetRules obj = liftIO $ getObjectPropertyObject obj "rules" WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
data DOMCSSStyleSheetRulesPropertyInfo
instance AttrInfo DOMCSSStyleSheetRulesPropertyInfo where
type AttrAllowedOps DOMCSSStyleSheetRulesPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSStyleSheetRulesPropertyInfo = IsDOMCSSStyleSheet
type AttrGetType DOMCSSStyleSheetRulesPropertyInfo = (Maybe WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
type AttrLabel DOMCSSStyleSheetRulesPropertyInfo = "rules"
type AttrOrigin DOMCSSStyleSheetRulesPropertyInfo = DOMCSSStyleSheet
attrGet _ = getDOMCSSStyleSheetRules
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
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, *)])
dOMCSSStyleSheetCssRules :: AttrLabelProxy "cssRules"
dOMCSSStyleSheetCssRules = AttrLabelProxy
dOMCSSStyleSheetOwnerRule :: AttrLabelProxy "ownerRule"
dOMCSSStyleSheetOwnerRule = AttrLabelProxy
dOMCSSStyleSheetRules :: AttrLabelProxy "rules"
dOMCSSStyleSheetRules = AttrLabelProxy
type instance O.SignalList DOMCSSStyleSheet = DOMCSSStyleSheetSignalList
type DOMCSSStyleSheetSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
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
dOMCSSStyleSheetAddRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> T.Text
-> T.Text
-> CULong
-> m CLong
dOMCSSStyleSheetAddRule self selector style index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
selector' <- textToCString selector
style' <- textToCString style
onException (do
result <- propagateGError $ webkit_dom_css_style_sheet_add_rule self' selector' style' index
touchManagedPtr self
freeMem selector'
freeMem style'
return result
) (do
freeMem selector'
freeMem style'
)
data DOMCSSStyleSheetAddRuleMethodInfo
instance (signature ~ (T.Text -> T.Text -> CULong -> m CLong), MonadIO m, IsDOMCSSStyleSheet a) => O.MethodInfo DOMCSSStyleSheetAddRuleMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleSheetAddRule
foreign import ccall "webkit_dom_css_style_sheet_delete_rule" webkit_dom_css_style_sheet_delete_rule ::
Ptr DOMCSSStyleSheet ->
CULong ->
Ptr (Ptr GError) ->
IO ()
dOMCSSStyleSheetDeleteRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> CULong
-> m ()
dOMCSSStyleSheetDeleteRule self index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
propagateGError $ webkit_dom_css_style_sheet_delete_rule self' index
touchManagedPtr self
return ()
) (do
return ()
)
data DOMCSSStyleSheetDeleteRuleMethodInfo
instance (signature ~ (CULong -> m ()), MonadIO m, IsDOMCSSStyleSheet a) => O.MethodInfo DOMCSSStyleSheetDeleteRuleMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleSheetDeleteRule
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)
dOMCSSStyleSheetGetCssRules ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
dOMCSSStyleSheetGetCssRules self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_css_style_sheet_get_css_rules self'
checkUnexpectedReturnNULL "dOMCSSStyleSheetGetCssRules" result
result' <- (wrapObject WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList) result
touchManagedPtr self
return result'
data DOMCSSStyleSheetGetCssRulesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList), MonadIO m, IsDOMCSSStyleSheet a) => O.MethodInfo DOMCSSStyleSheetGetCssRulesMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleSheetGetCssRules
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)
dOMCSSStyleSheetGetOwnerRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMCSSRule.DOMCSSRule
dOMCSSStyleSheetGetOwnerRule self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_css_style_sheet_get_owner_rule self'
checkUnexpectedReturnNULL "dOMCSSStyleSheetGetOwnerRule" result
result' <- (wrapObject WebKit2WebExtension.DOMCSSRule.DOMCSSRule) result
touchManagedPtr self
return result'
data DOMCSSStyleSheetGetOwnerRuleMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSRule.DOMCSSRule), MonadIO m, IsDOMCSSStyleSheet a) => O.MethodInfo DOMCSSStyleSheetGetOwnerRuleMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleSheetGetOwnerRule
foreign import ccall "webkit_dom_css_style_sheet_get_rules" webkit_dom_css_style_sheet_get_rules ::
Ptr DOMCSSStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList)
dOMCSSStyleSheetGetRules ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList
dOMCSSStyleSheetGetRules self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_css_style_sheet_get_rules self'
checkUnexpectedReturnNULL "dOMCSSStyleSheetGetRules" result
result' <- (wrapObject WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList) result
touchManagedPtr self
return result'
data DOMCSSStyleSheetGetRulesMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMCSSRuleList.DOMCSSRuleList), MonadIO m, IsDOMCSSStyleSheet a) => O.MethodInfo DOMCSSStyleSheetGetRulesMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleSheetGetRules
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
dOMCSSStyleSheetInsertRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> T.Text
-> CULong
-> m CULong
dOMCSSStyleSheetInsertRule self rule index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
rule' <- textToCString rule
onException (do
result <- propagateGError $ webkit_dom_css_style_sheet_insert_rule self' rule' index
touchManagedPtr self
freeMem rule'
return result
) (do
freeMem rule'
)
data DOMCSSStyleSheetInsertRuleMethodInfo
instance (signature ~ (T.Text -> CULong -> m CULong), MonadIO m, IsDOMCSSStyleSheet a) => O.MethodInfo DOMCSSStyleSheetInsertRuleMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleSheetInsertRule
foreign import ccall "webkit_dom_css_style_sheet_remove_rule" webkit_dom_css_style_sheet_remove_rule ::
Ptr DOMCSSStyleSheet ->
CULong ->
Ptr (Ptr GError) ->
IO ()
dOMCSSStyleSheetRemoveRule ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMCSSStyleSheet a) =>
a
-> CULong
-> m ()
dOMCSSStyleSheetRemoveRule self index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
onException (do
propagateGError $ webkit_dom_css_style_sheet_remove_rule self' index
touchManagedPtr self
return ()
) (do
return ()
)
data DOMCSSStyleSheetRemoveRuleMethodInfo
instance (signature ~ (CULong -> m ()), MonadIO m, IsDOMCSSStyleSheet a) => O.MethodInfo DOMCSSStyleSheetRemoveRuleMethodInfo a signature where
overloadedMethod _ = dOMCSSStyleSheetRemoveRule