module GI.WebKit2WebExtension.Objects.DOMStyleSheet
(
DOMStyleSheet(..) ,
IsDOMStyleSheet ,
toDOMStyleSheet ,
noDOMStyleSheet ,
DOMStyleSheetGetContentTypeMethodInfo ,
dOMStyleSheetGetContentType ,
DOMStyleSheetGetDisabledMethodInfo ,
dOMStyleSheetGetDisabled ,
DOMStyleSheetGetHrefMethodInfo ,
dOMStyleSheetGetHref ,
DOMStyleSheetGetMediaMethodInfo ,
dOMStyleSheetGetMedia ,
DOMStyleSheetGetOwnerNodeMethodInfo ,
dOMStyleSheetGetOwnerNode ,
DOMStyleSheetGetParentStyleSheetMethodInfo,
dOMStyleSheetGetParentStyleSheet ,
DOMStyleSheetGetTitleMethodInfo ,
dOMStyleSheetGetTitle ,
DOMStyleSheetSetDisabledMethodInfo ,
dOMStyleSheetSetDisabled ,
DOMStyleSheetDisabledPropertyInfo ,
constructDOMStyleSheetDisabled ,
dOMStyleSheetDisabled ,
getDOMStyleSheetDisabled ,
setDOMStyleSheetDisabled ,
DOMStyleSheetHrefPropertyInfo ,
dOMStyleSheetHref ,
getDOMStyleSheetHref ,
DOMStyleSheetMediaPropertyInfo ,
dOMStyleSheetMedia ,
getDOMStyleSheetMedia ,
DOMStyleSheetOwnerNodePropertyInfo ,
dOMStyleSheetOwnerNode ,
getDOMStyleSheetOwnerNode ,
DOMStyleSheetParentStyleSheetPropertyInfo,
dOMStyleSheetParentStyleSheet ,
getDOMStyleSheetParentStyleSheet ,
DOMStyleSheetTitlePropertyInfo ,
dOMStyleSheetTitle ,
getDOMStyleSheetTitle ,
DOMStyleSheetTypePropertyInfo ,
dOMStyleSheetType ,
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.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.DOMMediaList as WebKit2WebExtension.DOMMediaList
import qualified GI.WebKit2WebExtension.Objects.DOMNode as WebKit2WebExtension.DOMNode
import 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 => IsDOMStyleSheet o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMStyleSheet a) =>
IsDOMStyleSheet a
#endif
instance IsDOMStyleSheet DOMStyleSheet
instance WebKit2WebExtension.DOMObject.IsDOMObject DOMStyleSheet
instance GObject.Object.IsObject DOMStyleSheet
toDOMStyleSheet :: IsDOMStyleSheet o => o -> IO DOMStyleSheet
toDOMStyleSheet = unsafeCastTo DOMStyleSheet
noDOMStyleSheet :: Maybe DOMStyleSheet
noDOMStyleSheet = Nothing
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 "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 "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMStyleSheetMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
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) => O.IsLabelProxy t (DOMStyleSheet -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMStyleSheetMethod t DOMStyleSheet, O.MethodInfo info DOMStyleSheet p) => O.IsLabel t (DOMStyleSheet -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getDOMStyleSheetDisabled :: (MonadIO m, IsDOMStyleSheet o) => o -> m Bool
getDOMStyleSheetDisabled obj = liftIO $ getObjectPropertyBool obj "disabled"
setDOMStyleSheetDisabled :: (MonadIO m, IsDOMStyleSheet o) => o -> Bool -> m ()
setDOMStyleSheetDisabled obj val = liftIO $ setObjectPropertyBool obj "disabled" val
constructDOMStyleSheetDisabled :: (IsDOMStyleSheet o) => Bool -> IO (GValueConstruct o)
constructDOMStyleSheetDisabled val = constructObjectPropertyBool "disabled" val
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
getDOMStyleSheetHref :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe T.Text)
getDOMStyleSheetHref obj = liftIO $ getObjectPropertyString obj "href"
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
getDOMStyleSheetMedia :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe WebKit2WebExtension.DOMMediaList.DOMMediaList)
getDOMStyleSheetMedia obj = liftIO $ getObjectPropertyObject obj "media" WebKit2WebExtension.DOMMediaList.DOMMediaList
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
getDOMStyleSheetOwnerNode :: (MonadIO m, IsDOMStyleSheet o) => o -> m WebKit2WebExtension.DOMNode.DOMNode
getDOMStyleSheetOwnerNode obj = liftIO $ checkUnexpectedNothing "getDOMStyleSheetOwnerNode" $ getObjectPropertyObject obj "owner-node" WebKit2WebExtension.DOMNode.DOMNode
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
getDOMStyleSheetParentStyleSheet :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe DOMStyleSheet)
getDOMStyleSheetParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMStyleSheet
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
getDOMStyleSheetTitle :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe T.Text)
getDOMStyleSheetTitle obj = liftIO $ getObjectPropertyString obj "title"
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
getDOMStyleSheetType :: (MonadIO m, IsDOMStyleSheet o) => o -> m (Maybe T.Text)
getDOMStyleSheetType obj = liftIO $ getObjectPropertyString obj "type"
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
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, *)])
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
type instance O.SignalList DOMStyleSheet = DOMStyleSheetSignalList
type DOMStyleSheetSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_style_sheet_get_content_type" webkit_dom_style_sheet_get_content_type ::
Ptr DOMStyleSheet ->
IO CString
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'
data DOMStyleSheetGetContentTypeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetContentTypeMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetContentType
foreign import ccall "webkit_dom_style_sheet_get_disabled" webkit_dom_style_sheet_get_disabled ::
Ptr DOMStyleSheet ->
IO CInt
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'
data DOMStyleSheetGetDisabledMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetDisabledMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetDisabled
foreign import ccall "webkit_dom_style_sheet_get_href" webkit_dom_style_sheet_get_href ::
Ptr DOMStyleSheet ->
IO CString
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'
data DOMStyleSheetGetHrefMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetHrefMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetHref
foreign import ccall "webkit_dom_style_sheet_get_media" webkit_dom_style_sheet_get_media ::
Ptr DOMStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMMediaList.DOMMediaList)
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'
data DOMStyleSheetGetMediaMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMMediaList.DOMMediaList), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetMediaMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetMedia
foreign import ccall "webkit_dom_style_sheet_get_owner_node" webkit_dom_style_sheet_get_owner_node ::
Ptr DOMStyleSheet ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
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'
data DOMStyleSheetGetOwnerNodeMethodInfo
instance (signature ~ (m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetOwnerNodeMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetOwnerNode
foreign import ccall "webkit_dom_style_sheet_get_parent_style_sheet" webkit_dom_style_sheet_get_parent_style_sheet ::
Ptr DOMStyleSheet ->
IO (Ptr DOMStyleSheet)
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'
data DOMStyleSheetGetParentStyleSheetMethodInfo
instance (signature ~ (m DOMStyleSheet), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetParentStyleSheetMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetParentStyleSheet
foreign import ccall "webkit_dom_style_sheet_get_title" webkit_dom_style_sheet_get_title ::
Ptr DOMStyleSheet ->
IO CString
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'
data DOMStyleSheetGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetGetTitleMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetGetTitle
foreign import ccall "webkit_dom_style_sheet_set_disabled" webkit_dom_style_sheet_set_disabled ::
Ptr DOMStyleSheet ->
CInt ->
IO ()
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 ()
data DOMStyleSheetSetDisabledMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsDOMStyleSheet a) => O.MethodInfo DOMStyleSheetSetDisabledMethodInfo a signature where
overloadedMethod _ = dOMStyleSheetSetDisabled