#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMStyleSheet
(
DOMStyleSheet(..) ,
IsDOMStyleSheet ,
toDOMStyleSheet ,
noDOMStyleSheet ,
#if ENABLE_OVERLOADING
DOMStyleSheetGetContentTypeMethodInfo ,
#endif
dOMStyleSheetGetContentType ,
#if ENABLE_OVERLOADING
DOMStyleSheetGetDisabledMethodInfo ,
#endif
dOMStyleSheetGetDisabled ,
#if ENABLE_OVERLOADING
DOMStyleSheetGetHrefMethodInfo ,
#endif
dOMStyleSheetGetHref ,
#if ENABLE_OVERLOADING
DOMStyleSheetGetMediaMethodInfo ,
#endif
dOMStyleSheetGetMedia ,
#if ENABLE_OVERLOADING
DOMStyleSheetGetOwnerNodeMethodInfo ,
#endif
dOMStyleSheetGetOwnerNode ,
#if ENABLE_OVERLOADING
DOMStyleSheetGetParentStyleSheetMethodInfo,
#endif
dOMStyleSheetGetParentStyleSheet ,
#if ENABLE_OVERLOADING
DOMStyleSheetGetTitleMethodInfo ,
#endif
dOMStyleSheetGetTitle ,
#if ENABLE_OVERLOADING
DOMStyleSheetSetDisabledMethodInfo ,
#endif
dOMStyleSheetSetDisabled ,
#if ENABLE_OVERLOADING
DOMStyleSheetDisabledPropertyInfo ,
#endif
constructDOMStyleSheetDisabled ,
#if ENABLE_OVERLOADING
dOMStyleSheetDisabled ,
#endif
getDOMStyleSheetDisabled ,
setDOMStyleSheetDisabled ,
#if ENABLE_OVERLOADING
DOMStyleSheetHrefPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMStyleSheetHref ,
#endif
getDOMStyleSheetHref ,
#if ENABLE_OVERLOADING
DOMStyleSheetMediaPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMStyleSheetMedia ,
#endif
getDOMStyleSheetMedia ,
#if ENABLE_OVERLOADING
DOMStyleSheetOwnerNodePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMStyleSheetOwnerNode ,
#endif
getDOMStyleSheetOwnerNode ,
#if ENABLE_OVERLOADING
DOMStyleSheetParentStyleSheetPropertyInfo,
#endif
#if ENABLE_OVERLOADING
dOMStyleSheetParentStyleSheet ,
#endif
getDOMStyleSheetParentStyleSheet ,
#if ENABLE_OVERLOADING
DOMStyleSheetTitlePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMStyleSheetTitle ,
#endif
getDOMStyleSheetTitle ,
#if ENABLE_OVERLOADING
DOMStyleSheetTypePropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMStyleSheetType ,
#endif
getDOMStyleSheetType ,
) 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.DOMMediaList as WebKit2WebExtension.DOMMediaList
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMStyleSheet = DOMStyleSheet (ManagedPtr DOMStyleSheet)
foreign import ccall "webkit_dom_style_sheet_get_type"
c_webkit_dom_style_sheet_get_type :: IO GType
instance GObject DOMStyleSheet where
gobjectType = c_webkit_dom_style_sheet_get_type
class (GObject o, O.IsDescendantOf DOMStyleSheet o) => IsDOMStyleSheet o
instance (GObject o, O.IsDescendantOf DOMStyleSheet o) => IsDOMStyleSheet o
instance O.HasParentTypes DOMStyleSheet
type instance O.ParentTypes DOMStyleSheet = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMStyleSheet :: (MonadIO m, IsDOMStyleSheet o) => o -> m DOMStyleSheet
toDOMStyleSheet = liftIO . unsafeCastTo DOMStyleSheet
noDOMStyleSheet :: Maybe DOMStyleSheet
noDOMStyleSheet = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMStyleSheetMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMStyleSheetMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMStyleSheetMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMStyleSheetMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMStyleSheetMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMStyleSheetMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMStyleSheetMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMStyleSheetMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMStyleSheetMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMStyleSheetMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMStyleSheetMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMStyleSheetMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMStyleSheetMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMStyleSheetMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMStyleSheetMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMStyleSheetMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMStyleSheetMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMStyleSheetMethod "getContentType" o = DOMStyleSheetGetContentTypeMethodInfo
ResolveDOMStyleSheetMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMStyleSheetMethod "getDisabled" o = DOMStyleSheetGetDisabledMethodInfo
ResolveDOMStyleSheetMethod "getHref" o = DOMStyleSheetGetHrefMethodInfo
ResolveDOMStyleSheetMethod "getMedia" o = DOMStyleSheetGetMediaMethodInfo
ResolveDOMStyleSheetMethod "getOwnerNode" o = DOMStyleSheetGetOwnerNodeMethodInfo
ResolveDOMStyleSheetMethod "getParentStyleSheet" o = DOMStyleSheetGetParentStyleSheetMethodInfo
ResolveDOMStyleSheetMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMStyleSheetMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMStyleSheetMethod "getTitle" o = DOMStyleSheetGetTitleMethodInfo
ResolveDOMStyleSheetMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMStyleSheetMethod "setDisabled" o = DOMStyleSheetSetDisabledMethodInfo
ResolveDOMStyleSheetMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMStyleSheetMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMStyleSheetMethod t DOMStyleSheet, O.MethodInfo info DOMStyleSheet p) => OL.IsLabel t (DOMStyleSheet -> 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
getDOMStyleSheetDisabled :: (MonadIO m, IsDOMStyleSheet o) => o -> m Bool
getDOMStyleSheetDisabled obj = liftIO $ B.Properties.getObjectPropertyBool obj "disabled"
setDOMStyleSheetDisabled :: (MonadIO m, IsDOMStyleSheet o) => o -> Bool -> m ()
setDOMStyleSheetDisabled obj val = liftIO $ B.Properties.setObjectPropertyBool obj "disabled" val
constructDOMStyleSheetDisabled :: (IsDOMStyleSheet o) => Bool -> IO (GValueConstruct o)
constructDOMStyleSheetDisabled val = B.Properties.constructObjectPropertyBool "disabled" val
#if ENABLE_OVERLOADING
data DOMStyleSheetDisabledPropertyInfo
instance AttrInfo DOMStyleSheetDisabledPropertyInfo where
type AttrAllowedOps DOMStyleSheetDisabledPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMStyleSheetDisabledPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMStyleSheetDisabledPropertyInfo = IsDOMStyleSheet
type AttrGetType DOMStyleSheetDisabledPropertyInfo = Bool
type AttrLabel DOMStyleSheetDisabledPropertyInfo = "disabled"
type AttrOrigin DOMStyleSheetDisabledPropertyInfo = DOMStyleSheet
attrGet _ = getDOMStyleSheetDisabled
attrSet _ = setDOMStyleSheetDisabled
attrConstruct _ = constructDOMStyleSheetDisabled
attrClear _ = undefined
#endif
getDOMStyleSheetHref :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe T.Text)
getDOMStyleSheetHref obj = liftIO $ B.Properties.getObjectPropertyString obj "href"
#if ENABLE_OVERLOADING
data DOMStyleSheetHrefPropertyInfo
instance AttrInfo DOMStyleSheetHrefPropertyInfo where
type AttrAllowedOps DOMStyleSheetHrefPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMStyleSheetHrefPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMStyleSheetHrefPropertyInfo = IsDOMStyleSheet
type AttrGetType DOMStyleSheetHrefPropertyInfo = (Maybe T.Text)
type AttrLabel DOMStyleSheetHrefPropertyInfo = "href"
type AttrOrigin DOMStyleSheetHrefPropertyInfo = DOMStyleSheet
attrGet _ = getDOMStyleSheetHref
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMStyleSheetMedia :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMMediaList.DOMMediaList)
getDOMStyleSheetMedia obj = liftIO $ B.Properties.getObjectPropertyObject obj "media" WebKit2WebExtension.DOMMediaList.DOMMediaList
#if ENABLE_OVERLOADING
data DOMStyleSheetMediaPropertyInfo
instance AttrInfo DOMStyleSheetMediaPropertyInfo where
type AttrAllowedOps DOMStyleSheetMediaPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMStyleSheetMediaPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMStyleSheetMediaPropertyInfo = IsDOMStyleSheet
type AttrGetType DOMStyleSheetMediaPropertyInfo = (Maybe WebKit2WebExtension.DOMMediaList.DOMMediaList)
type AttrLabel DOMStyleSheetMediaPropertyInfo = "media"
type AttrOrigin DOMStyleSheetMediaPropertyInfo = DOMStyleSheet
attrGet _ = getDOMStyleSheetMedia
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMStyleSheetOwnerNode :: (MonadIO m, IsDOMStyleSheet o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMStyleSheetOwnerNode obj = liftIO $ checkUnexpectedNothing "getDOMStyleSheetOwnerNode" $ B.Properties.getObjectPropertyObject obj "owner-node" WebKit2WebExtension.DOMNode.DOMNode
#if ENABLE_OVERLOADING
data DOMStyleSheetOwnerNodePropertyInfo
instance AttrInfo DOMStyleSheetOwnerNodePropertyInfo where
type AttrAllowedOps DOMStyleSheetOwnerNodePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMStyleSheetOwnerNodePropertyInfo = IsDOMStyleSheet
type AttrGetType DOMStyleSheetOwnerNodePropertyInfo = WebKit2WebExtension.DOMNode.DOMNode
type AttrLabel DOMStyleSheetOwnerNodePropertyInfo = "owner-node"
type AttrOrigin DOMStyleSheetOwnerNodePropertyInfo = DOMStyleSheet
attrGet _ = getDOMStyleSheetOwnerNode
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMStyleSheetParentStyleSheet :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe DOMStyleSheet)
getDOMStyleSheetParentStyleSheet obj = liftIO $ B.Properties.getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet
#if ENABLE_OVERLOADING
data DOMStyleSheetParentStyleSheetPropertyInfo
instance AttrInfo DOMStyleSheetParentStyleSheetPropertyInfo where
type AttrAllowedOps DOMStyleSheetParentStyleSheetPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMStyleSheetParentStyleSheetPropertyInfo = IsDOMStyleSheet
type AttrGetType DOMStyleSheetParentStyleSheetPropertyInfo = (Maybe DOMStyleSheet)
type AttrLabel DOMStyleSheetParentStyleSheetPropertyInfo = "parent-style-sheet"
type AttrOrigin DOMStyleSheetParentStyleSheetPropertyInfo = DOMStyleSheet
attrGet _ = getDOMStyleSheetParentStyleSheet
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMStyleSheetTitle :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe T.Text)
getDOMStyleSheetTitle obj = liftIO $ B.Properties.getObjectPropertyString obj "title"
#if ENABLE_OVERLOADING
data DOMStyleSheetTitlePropertyInfo
instance AttrInfo DOMStyleSheetTitlePropertyInfo where
type AttrAllowedOps DOMStyleSheetTitlePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMStyleSheetTitlePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMStyleSheetTitlePropertyInfo = IsDOMStyleSheet
type AttrGetType DOMStyleSheetTitlePropertyInfo = (Maybe T.Text)
type AttrLabel DOMStyleSheetTitlePropertyInfo = "title"
type AttrOrigin DOMStyleSheetTitlePropertyInfo = DOMStyleSheet
attrGet _ = getDOMStyleSheetTitle
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMStyleSheetType :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe T.Text)
getDOMStyleSheetType obj = liftIO $ B.Properties.getObjectPropertyString obj "type"
#if ENABLE_OVERLOADING
data DOMStyleSheetTypePropertyInfo
instance AttrInfo DOMStyleSheetTypePropertyInfo where
type AttrAllowedOps DOMStyleSheetTypePropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMStyleSheetTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMStyleSheetTypePropertyInfo = IsDOMStyleSheet
type AttrGetType DOMStyleSheetTypePropertyInfo = (Maybe T.Text)
type AttrLabel DOMStyleSheetTypePropertyInfo = "type"
type AttrOrigin DOMStyleSheetTypePropertyInfo = DOMStyleSheet
attrGet _ = getDOMStyleSheetType
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMStyleSheet
type instance O.AttributeList DOMStyleSheet = DOMStyleSheetAttributeList
type DOMStyleSheetAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("disabled", DOMStyleSheetDisabledPropertyInfo), '("href", DOMStyleSheetHrefPropertyInfo), '("media", DOMStyleSheetMediaPropertyInfo), '("ownerNode", DOMStyleSheetOwnerNodePropertyInfo), '("parentStyleSheet", DOMStyleSheetParentStyleSheetPropertyInfo), '("title", DOMStyleSheetTitlePropertyInfo), '("type", DOMStyleSheetTypePropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMStyleSheetDisabled :: AttrLabelProxy "disabled"
dOMStyleSheetDisabled = AttrLabelProxy
dOMStyleSheetHref :: AttrLabelProxy "href"
dOMStyleSheetHref = AttrLabelProxy
dOMStyleSheetMedia :: AttrLabelProxy "media"
dOMStyleSheetMedia = AttrLabelProxy
dOMStyleSheetOwnerNode :: AttrLabelProxy "ownerNode"
dOMStyleSheetOwnerNode = AttrLabelProxy
dOMStyleSheetParentStyleSheet :: AttrLabelProxy "parentStyleSheet"
dOMStyleSheetParentStyleSheet = AttrLabelProxy
dOMStyleSheetTitle :: AttrLabelProxy "title"
dOMStyleSheetTitle = AttrLabelProxy
dOMStyleSheetType :: AttrLabelProxy "type"
dOMStyleSheetType = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMStyleSheet = DOMStyleSheetSignalList
type DOMStyleSheetSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_style_sheet_get_content_type" webkit_dom_style_sheet_get_content_type ::
Ptr DOMStyleSheet ->
IO CString
{-# DEPRECATED dOMStyleSheetGetContentType ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetGetContentType ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> m T.Text
dOMStyleSheetGetContentType self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_style_sheet_get_content_type self'
checkUnexpectedReturnNULL "dOMStyleSheetGetContentType" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMStyleSheetGetContentTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetContentTypeMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetContentType
#endif
foreign import ccall "webkit_dom_style_sheet_get_disabled" webkit_dom_style_sheet_get_disabled ::
Ptr DOMStyleSheet ->
IO CInt
{-# DEPRECATED dOMStyleSheetGetDisabled ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetGetDisabled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> m Bool
dOMStyleSheetGetDisabled self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_style_sheet_get_disabled self'
let result' = (/= 0) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMStyleSheetGetDisabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetDisabledMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetDisabled
#endif
foreign import ccall "webkit_dom_style_sheet_get_href" webkit_dom_style_sheet_get_href ::
Ptr DOMStyleSheet ->
IO CString
{-# DEPRECATED dOMStyleSheetGetHref ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetGetHref ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> m T.Text
dOMStyleSheetGetHref self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_style_sheet_get_href self'
checkUnexpectedReturnNULL "dOMStyleSheetGetHref" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMStyleSheetGetHrefMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetHrefMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetHref
#endif
foreign import ccall "webkit_dom_style_sheet_get_media" webkit_dom_style_sheet_get_media ::
Ptr DOMStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMMediaList.DOMMediaList)
{-# DEPRECATED dOMStyleSheetGetMedia ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetGetMedia ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMMediaList.DOMMediaList
dOMStyleSheetGetMedia self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_style_sheet_get_media self'
checkUnexpectedReturnNULL "dOMStyleSheetGetMedia" result
result' <- (wrapObject WebKit2WebExtension.DOMMediaList.DOMMediaList) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMStyleSheetGetMediaMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMMediaList.DOMMediaList), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetMediaMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetMedia
#endif
foreign import ccall "webkit_dom_style_sheet_get_owner_node" webkit_dom_style_sheet_get_owner_node ::
Ptr DOMStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMStyleSheetGetOwnerNode ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetGetOwnerNode ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMStyleSheetGetOwnerNode self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_style_sheet_get_owner_node self'
checkUnexpectedReturnNULL "dOMStyleSheetGetOwnerNode" result
result' <- (newObject WebKit2WebExtension.DOMNode.DOMNode) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMStyleSheetGetOwnerNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetOwnerNodeMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetOwnerNode
#endif
foreign import ccall "webkit_dom_style_sheet_get_parent_style_sheet" webkit_dom_style_sheet_get_parent_style_sheet ::
Ptr DOMStyleSheet ->
IO (Ptr DOMStyleSheet)
{-# DEPRECATED dOMStyleSheetGetParentStyleSheet ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetGetParentStyleSheet ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> m DOMStyleSheet
dOMStyleSheetGetParentStyleSheet self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_style_sheet_get_parent_style_sheet self'
checkUnexpectedReturnNULL "dOMStyleSheetGetParentStyleSheet" result
result' <- (wrapObject DOMStyleSheet) result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMStyleSheetGetParentStyleSheetMethodInfo
instance (signature ~ (m DOMStyleSheet), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetParentStyleSheetMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetParentStyleSheet
#endif
foreign import ccall "webkit_dom_style_sheet_get_title" webkit_dom_style_sheet_get_title ::
Ptr DOMStyleSheet ->
IO CString
{-# DEPRECATED dOMStyleSheetGetTitle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> m T.Text
dOMStyleSheetGetTitle self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_style_sheet_get_title self'
checkUnexpectedReturnNULL "dOMStyleSheetGetTitle" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMStyleSheetGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetTitleMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetTitle
#endif
foreign import ccall "webkit_dom_style_sheet_set_disabled" webkit_dom_style_sheet_set_disabled ::
Ptr DOMStyleSheet ->
CInt ->
IO ()
{-# DEPRECATED dOMStyleSheetSetDisabled ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMStyleSheetSetDisabled ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMStyleSheet a) =>
a
-> Bool
-> m ()
dOMStyleSheetSetDisabled self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
let value' = (fromIntegral . fromEnum) value
webkit_dom_style_sheet_set_disabled self' value'
touchManagedPtr self
return ()
#if ENABLE_OVERLOADING
data DOMStyleSheetSetDisabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetSetDisabledMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetSetDisabled
#endif