module GI.WebKit2WebExtension.Objects.DOMCSSRule
(
DOMCSSRule(..) ,
DOMCSSRuleK ,
toDOMCSSRule ,
noDOMCSSRule ,
dOMCSSRuleGetCssText ,
dOMCSSRuleGetParentRule ,
dOMCSSRuleGetParentStyleSheet ,
dOMCSSRuleGetRuleType ,
dOMCSSRuleSetCssText ,
DOMCSSRuleCssTextPropertyInfo ,
constructDOMCSSRuleCssText ,
getDOMCSSRuleCssText ,
setDOMCSSRuleCssText ,
DOMCSSRuleParentRulePropertyInfo ,
getDOMCSSRuleParentRule ,
DOMCSSRuleParentStyleSheetPropertyInfo ,
getDOMCSSRuleParentStyleSheet ,
DOMCSSRuleTypePropertyInfo ,
getDOMCSSRuleType ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit2WebExtension.Types
import GI.WebKit2WebExtension.Callbacks
import qualified GI.GObject as GObject
newtype DOMCSSRule = DOMCSSRule (ForeignPtr DOMCSSRule)
foreign import ccall "webkit_dom_css_rule_get_type"
c_webkit_dom_css_rule_get_type :: IO GType
type instance ParentTypes DOMCSSRule = DOMCSSRuleParentTypes
type DOMCSSRuleParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMCSSRule where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_css_rule_get_type
class GObject o => DOMCSSRuleK o
instance (GObject o, IsDescendantOf DOMCSSRule o) => DOMCSSRuleK o
toDOMCSSRule :: DOMCSSRuleK o => o -> IO DOMCSSRule
toDOMCSSRule = unsafeCastTo DOMCSSRule
noDOMCSSRule :: Maybe DOMCSSRule
noDOMCSSRule = Nothing
getDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> m T.Text
getDOMCSSRuleCssText obj = liftIO $ getObjectPropertyString obj "css-text"
setDOMCSSRuleCssText :: (MonadIO m, DOMCSSRuleK o) => o -> T.Text -> m ()
setDOMCSSRuleCssText obj val = liftIO $ setObjectPropertyString obj "css-text" val
constructDOMCSSRuleCssText :: T.Text -> IO ([Char], GValue)
constructDOMCSSRuleCssText val = constructObjectPropertyString "css-text" val
data DOMCSSRuleCssTextPropertyInfo
instance AttrInfo DOMCSSRuleCssTextPropertyInfo where
type AttrAllowedOps DOMCSSRuleCssTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMCSSRuleCssTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMCSSRuleCssTextPropertyInfo = DOMCSSRuleK
type AttrGetType DOMCSSRuleCssTextPropertyInfo = T.Text
type AttrLabel DOMCSSRuleCssTextPropertyInfo = "DOMCSSRule::css-text"
attrGet _ = getDOMCSSRuleCssText
attrSet _ = setDOMCSSRuleCssText
attrConstruct _ = constructDOMCSSRuleCssText
getDOMCSSRuleParentRule :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSRule
getDOMCSSRuleParentRule obj = liftIO $ getObjectPropertyObject obj "parent-rule" DOMCSSRule
data DOMCSSRuleParentRulePropertyInfo
instance AttrInfo DOMCSSRuleParentRulePropertyInfo where
type AttrAllowedOps DOMCSSRuleParentRulePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMCSSRuleParentRulePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSRuleParentRulePropertyInfo = DOMCSSRuleK
type AttrGetType DOMCSSRuleParentRulePropertyInfo = DOMCSSRule
type AttrLabel DOMCSSRuleParentRulePropertyInfo = "DOMCSSRule::parent-rule"
attrGet _ = getDOMCSSRuleParentRule
attrSet _ = undefined
attrConstruct _ = undefined
getDOMCSSRuleParentStyleSheet :: (MonadIO m, DOMCSSRuleK o) => o -> m DOMCSSStyleSheet
getDOMCSSRuleParentStyleSheet obj = liftIO $ getObjectPropertyObject obj "parent-style-sheet" DOMCSSStyleSheet
data DOMCSSRuleParentStyleSheetPropertyInfo
instance AttrInfo DOMCSSRuleParentStyleSheetPropertyInfo where
type AttrAllowedOps DOMCSSRuleParentStyleSheetPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSRuleK
type AttrGetType DOMCSSRuleParentStyleSheetPropertyInfo = DOMCSSStyleSheet
type AttrLabel DOMCSSRuleParentStyleSheetPropertyInfo = "DOMCSSRule::parent-style-sheet"
attrGet _ = getDOMCSSRuleParentStyleSheet
attrSet _ = undefined
attrConstruct _ = undefined
getDOMCSSRuleType :: (MonadIO m, DOMCSSRuleK o) => o -> m Word32
getDOMCSSRuleType obj = liftIO $ getObjectPropertyCUInt obj "type"
data DOMCSSRuleTypePropertyInfo
instance AttrInfo DOMCSSRuleTypePropertyInfo where
type AttrAllowedOps DOMCSSRuleTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMCSSRuleTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMCSSRuleTypePropertyInfo = DOMCSSRuleK
type AttrGetType DOMCSSRuleTypePropertyInfo = Word32
type AttrLabel DOMCSSRuleTypePropertyInfo = "DOMCSSRule::type"
attrGet _ = getDOMCSSRuleType
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMCSSRule = DOMCSSRuleAttributeList
type DOMCSSRuleAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("css-text", DOMCSSRuleCssTextPropertyInfo), '("parent-rule", DOMCSSRuleParentRulePropertyInfo), '("parent-style-sheet", DOMCSSRuleParentStyleSheetPropertyInfo), '("type", DOMCSSRuleTypePropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMCSSRule = DOMCSSRuleSignalList
type DOMCSSRuleSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_css_rule_get_css_text" webkit_dom_css_rule_get_css_text ::
Ptr DOMCSSRule ->
IO CString
dOMCSSRuleGetCssText ::
(MonadIO m, DOMCSSRuleK a) =>
a ->
m T.Text
dOMCSSRuleGetCssText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_get_css_text _obj'
checkUnexpectedReturnNULL "webkit_dom_css_rule_get_css_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_css_rule_get_parent_rule" webkit_dom_css_rule_get_parent_rule ::
Ptr DOMCSSRule ->
IO (Ptr DOMCSSRule)
dOMCSSRuleGetParentRule ::
(MonadIO m, DOMCSSRuleK a) =>
a ->
m DOMCSSRule
dOMCSSRuleGetParentRule _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_get_parent_rule _obj'
checkUnexpectedReturnNULL "webkit_dom_css_rule_get_parent_rule" result
result' <- (wrapObject DOMCSSRule) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_css_rule_get_parent_style_sheet" webkit_dom_css_rule_get_parent_style_sheet ::
Ptr DOMCSSRule ->
IO (Ptr DOMCSSStyleSheet)
dOMCSSRuleGetParentStyleSheet ::
(MonadIO m, DOMCSSRuleK a) =>
a ->
m DOMCSSStyleSheet
dOMCSSRuleGetParentStyleSheet _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_get_parent_style_sheet _obj'
checkUnexpectedReturnNULL "webkit_dom_css_rule_get_parent_style_sheet" result
result' <- (wrapObject DOMCSSStyleSheet) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_css_rule_get_rule_type" webkit_dom_css_rule_get_rule_type ::
Ptr DOMCSSRule ->
IO Word16
dOMCSSRuleGetRuleType ::
(MonadIO m, DOMCSSRuleK a) =>
a ->
m Word16
dOMCSSRuleGetRuleType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_css_rule_get_rule_type _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_css_rule_set_css_text" webkit_dom_css_rule_set_css_text ::
Ptr DOMCSSRule ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMCSSRuleSetCssText ::
(MonadIO m, DOMCSSRuleK a) =>
a ->
T.Text ->
m ()
dOMCSSRuleSetCssText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_css_rule_set_css_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)