#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2WebExtension.Objects.DOMDOMTokenList
(
DOMDOMTokenList(..) ,
IsDOMDOMTokenList ,
toDOMDOMTokenList ,
noDOMDOMTokenList ,
#if ENABLE_OVERLOADING
DOMDOMTokenListContainsMethodInfo ,
#endif
dOMDOMTokenListContains ,
#if ENABLE_OVERLOADING
DOMDOMTokenListGetLengthMethodInfo ,
#endif
dOMDOMTokenListGetLength ,
#if ENABLE_OVERLOADING
DOMDOMTokenListGetValueMethodInfo ,
#endif
dOMDOMTokenListGetValue ,
#if ENABLE_OVERLOADING
DOMDOMTokenListItemMethodInfo ,
#endif
dOMDOMTokenListItem ,
#if ENABLE_OVERLOADING
DOMDOMTokenListReplaceMethodInfo ,
#endif
dOMDOMTokenListReplace ,
#if ENABLE_OVERLOADING
DOMDOMTokenListSetValueMethodInfo ,
#endif
dOMDOMTokenListSetValue ,
#if ENABLE_OVERLOADING
DOMDOMTokenListToggleMethodInfo ,
#endif
dOMDOMTokenListToggle ,
#if ENABLE_OVERLOADING
DOMDOMTokenListLengthPropertyInfo ,
#endif
#if ENABLE_OVERLOADING
dOMDOMTokenListLength ,
#endif
getDOMDOMTokenListLength ,
#if ENABLE_OVERLOADING
DOMDOMTokenListValuePropertyInfo ,
#endif
constructDOMDOMTokenListValue ,
#if ENABLE_OVERLOADING
dOMDOMTokenListValue ,
#endif
getDOMDOMTokenListValue ,
setDOMDOMTokenListValue ,
) 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.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMDOMTokenList = DOMDOMTokenList (ManagedPtr DOMDOMTokenList)
foreign import ccall "webkit_dom_dom_token_list_get_type"
c_webkit_dom_dom_token_list_get_type :: IO GType
instance GObject DOMDOMTokenList where
gobjectType = c_webkit_dom_dom_token_list_get_type
class (GObject o, O.IsDescendantOf DOMDOMTokenList o) => IsDOMDOMTokenList o
instance (GObject o, O.IsDescendantOf DOMDOMTokenList o) => IsDOMDOMTokenList o
instance O.HasParentTypes DOMDOMTokenList
type instance O.ParentTypes DOMDOMTokenList = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMDOMTokenList :: (MonadIO m, IsDOMDOMTokenList o) => o -> m DOMDOMTokenList
toDOMDOMTokenList = liftIO . unsafeCastTo DOMDOMTokenList
noDOMDOMTokenList :: Maybe DOMDOMTokenList
noDOMDOMTokenList = Nothing
#if ENABLE_OVERLOADING
type family ResolveDOMDOMTokenListMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMDOMTokenListMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMDOMTokenListMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMDOMTokenListMethod "contains" o = DOMDOMTokenListContainsMethodInfo
ResolveDOMDOMTokenListMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMDOMTokenListMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMDOMTokenListMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMDOMTokenListMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMDOMTokenListMethod "item" o = DOMDOMTokenListItemMethodInfo
ResolveDOMDOMTokenListMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMDOMTokenListMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMDOMTokenListMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMDOMTokenListMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMDOMTokenListMethod "replace" o = DOMDOMTokenListReplaceMethodInfo
ResolveDOMDOMTokenListMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMDOMTokenListMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMDOMTokenListMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMDOMTokenListMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMDOMTokenListMethod "toggle" o = DOMDOMTokenListToggleMethodInfo
ResolveDOMDOMTokenListMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMDOMTokenListMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMDOMTokenListMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMDOMTokenListMethod "getLength" o = DOMDOMTokenListGetLengthMethodInfo
ResolveDOMDOMTokenListMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMDOMTokenListMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMDOMTokenListMethod "getValue" o = DOMDOMTokenListGetValueMethodInfo
ResolveDOMDOMTokenListMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMDOMTokenListMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMDOMTokenListMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMDOMTokenListMethod "setValue" o = DOMDOMTokenListSetValueMethodInfo
ResolveDOMDOMTokenListMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMDOMTokenListMethod t DOMDOMTokenList, O.MethodInfo info DOMDOMTokenList p) => OL.IsLabel t (DOMDOMTokenList -> 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
getDOMDOMTokenListLength :: (MonadIO m, IsDOMDOMTokenList o) => o -> m CULong
getDOMDOMTokenListLength obj = liftIO $ B.Properties.getObjectPropertyULong obj "length"
#if ENABLE_OVERLOADING
data DOMDOMTokenListLengthPropertyInfo
instance AttrInfo DOMDOMTokenListLengthPropertyInfo where
type AttrAllowedOps DOMDOMTokenListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMTokenListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMTokenListLengthPropertyInfo = IsDOMDOMTokenList
type AttrGetType DOMDOMTokenListLengthPropertyInfo = CULong
type AttrLabel DOMDOMTokenListLengthPropertyInfo = "length"
type AttrOrigin DOMDOMTokenListLengthPropertyInfo = DOMDOMTokenList
attrGet _ = getDOMDOMTokenListLength
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getDOMDOMTokenListValue :: (MonadIO m, IsDOMDOMTokenList o) => o -> m (Maybe T.Text)
getDOMDOMTokenListValue obj = liftIO $ B.Properties.getObjectPropertyString obj "value"
setDOMDOMTokenListValue :: (MonadIO m, IsDOMDOMTokenList o) => o -> T.Text -> m ()
setDOMDOMTokenListValue obj val = liftIO $ B.Properties.setObjectPropertyString obj "value" (Just val)
constructDOMDOMTokenListValue :: (IsDOMDOMTokenList o) => T.Text -> IO (GValueConstruct o)
constructDOMDOMTokenListValue val = B.Properties.constructObjectPropertyString "value" (Just val)
#if ENABLE_OVERLOADING
data DOMDOMTokenListValuePropertyInfo
instance AttrInfo DOMDOMTokenListValuePropertyInfo where
type AttrAllowedOps DOMDOMTokenListValuePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMDOMTokenListValuePropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMDOMTokenListValuePropertyInfo = IsDOMDOMTokenList
type AttrGetType DOMDOMTokenListValuePropertyInfo = (Maybe T.Text)
type AttrLabel DOMDOMTokenListValuePropertyInfo = "value"
type AttrOrigin DOMDOMTokenListValuePropertyInfo = DOMDOMTokenList
attrGet _ = getDOMDOMTokenListValue
attrSet _ = setDOMDOMTokenListValue
attrConstruct _ = constructDOMDOMTokenListValue
attrClear _ = undefined
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList DOMDOMTokenList
type instance O.AttributeList DOMDOMTokenList = DOMDOMTokenListAttributeList
type DOMDOMTokenListAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMTokenListLengthPropertyInfo), '("value", DOMDOMTokenListValuePropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
dOMDOMTokenListLength :: AttrLabelProxy "length"
dOMDOMTokenListLength = AttrLabelProxy
dOMDOMTokenListValue :: AttrLabelProxy "value"
dOMDOMTokenListValue = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList DOMDOMTokenList = DOMDOMTokenListSignalList
type DOMDOMTokenListSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_dom_token_list_contains" webkit_dom_dom_token_list_contains ::
Ptr DOMDOMTokenList ->
CString ->
IO CInt
{-# DEPRECATED dOMDOMTokenListContains ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMTokenListContains ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMTokenList a) =>
a
-> T.Text
-> m Bool
dOMDOMTokenListContains self token = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
token' <- textToCString token
result <- webkit_dom_dom_token_list_contains self' token'
let result' = (/= 0) result
touchManagedPtr self
freeMem token'
return result'
#if ENABLE_OVERLOADING
data DOMDOMTokenListContainsMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsDOMDOMTokenList a) => O.MethodInfo DOMDOMTokenListContainsMethodInfo a signature where
overloadedMethod _ = dOMDOMTokenListContains
#endif
foreign import ccall "webkit_dom_dom_token_list_get_length" webkit_dom_dom_token_list_get_length ::
Ptr DOMDOMTokenList ->
IO CULong
{-# DEPRECATED dOMDOMTokenListGetLength ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMTokenListGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMTokenList a) =>
a
-> m CULong
dOMDOMTokenListGetLength self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_token_list_get_length self'
touchManagedPtr self
return result
#if ENABLE_OVERLOADING
data DOMDOMTokenListGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMDOMTokenList a) => O.MethodInfo DOMDOMTokenListGetLengthMethodInfo a signature where
overloadedMethod _ = dOMDOMTokenListGetLength
#endif
foreign import ccall "webkit_dom_dom_token_list_get_value" webkit_dom_dom_token_list_get_value ::
Ptr DOMDOMTokenList ->
IO CString
{-# DEPRECATED dOMDOMTokenListGetValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMTokenListGetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMTokenList a) =>
a
-> m T.Text
dOMDOMTokenListGetValue self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_token_list_get_value self'
checkUnexpectedReturnNULL "dOMDOMTokenListGetValue" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMTokenListGetValueMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMDOMTokenList a) => O.MethodInfo DOMDOMTokenListGetValueMethodInfo a signature where
overloadedMethod _ = dOMDOMTokenListGetValue
#endif
foreign import ccall "webkit_dom_dom_token_list_item" webkit_dom_dom_token_list_item ::
Ptr DOMDOMTokenList ->
CULong ->
IO CString
{-# DEPRECATED dOMDOMTokenListItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMTokenListItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMTokenList a) =>
a
-> CULong
-> m T.Text
dOMDOMTokenListItem self index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_dom_token_list_item self' index
checkUnexpectedReturnNULL "dOMDOMTokenListItem" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
#if ENABLE_OVERLOADING
data DOMDOMTokenListItemMethodInfo
instance (signature ~ (CULong -> m T.Text), MonadIO m, IsDOMDOMTokenList a) => O.MethodInfo DOMDOMTokenListItemMethodInfo a signature where
overloadedMethod _ = dOMDOMTokenListItem
#endif
foreign import ccall "webkit_dom_dom_token_list_replace" webkit_dom_dom_token_list_replace ::
Ptr DOMDOMTokenList ->
CString ->
CString ->
Ptr (Ptr GError) ->
IO ()
{-# DEPRECATED dOMDOMTokenListReplace ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMTokenListReplace ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMTokenList a) =>
a
-> T.Text
-> T.Text
-> m ()
dOMDOMTokenListReplace self token newToken = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
token' <- textToCString token
newToken' <- textToCString newToken
onException (do
propagateGError $ webkit_dom_dom_token_list_replace self' token' newToken'
touchManagedPtr self
freeMem token'
freeMem newToken'
return ()
) (do
freeMem token'
freeMem newToken'
)
#if ENABLE_OVERLOADING
data DOMDOMTokenListReplaceMethodInfo
instance (signature ~ (T.Text -> T.Text -> m ()), MonadIO m, IsDOMDOMTokenList a) => O.MethodInfo DOMDOMTokenListReplaceMethodInfo a signature where
overloadedMethod _ = dOMDOMTokenListReplace
#endif
foreign import ccall "webkit_dom_dom_token_list_set_value" webkit_dom_dom_token_list_set_value ::
Ptr DOMDOMTokenList ->
CString ->
IO ()
{-# DEPRECATED dOMDOMTokenListSetValue ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMTokenListSetValue ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMTokenList a) =>
a
-> T.Text
-> m ()
dOMDOMTokenListSetValue self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
webkit_dom_dom_token_list_set_value self' value'
touchManagedPtr self
freeMem value'
return ()
#if ENABLE_OVERLOADING
data DOMDOMTokenListSetValueMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMDOMTokenList a) => O.MethodInfo DOMDOMTokenListSetValueMethodInfo a signature where
overloadedMethod _ = dOMDOMTokenListSetValue
#endif
foreign import ccall "webkit_dom_dom_token_list_toggle" webkit_dom_dom_token_list_toggle ::
Ptr DOMDOMTokenList ->
CString ->
CInt ->
Ptr (Ptr GError) ->
IO CInt
{-# DEPRECATED dOMDOMTokenListToggle ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMDOMTokenListToggle ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMDOMTokenList a) =>
a
-> T.Text
-> Bool
-> m ()
dOMDOMTokenListToggle self token force = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
token' <- textToCString token
let force' = (fromIntegral . fromEnum) force
onException (do
_ <- propagateGError $ webkit_dom_dom_token_list_toggle self' token' force'
touchManagedPtr self
freeMem token'
return ()
) (do
freeMem token'
)
#if ENABLE_OVERLOADING
data DOMDOMTokenListToggleMethodInfo
instance (signature ~ (T.Text -> Bool -> m ()), MonadIO m, IsDOMDOMTokenList a) => O.MethodInfo DOMDOMTokenListToggleMethodInfo a signature where
overloadedMethod _ = dOMDOMTokenListToggle
#endif