{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.WebKit2WebExtension.Objects.DOMHTMLCollection
(
DOMHTMLCollection(..) ,
IsDOMHTMLCollection ,
toDOMHTMLCollection ,
noDOMHTMLCollection ,
#if defined(ENABLE_OVERLOADING)
ResolveDOMHTMLCollectionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
DOMHTMLCollectionGetLengthMethodInfo ,
#endif
dOMHTMLCollectionGetLength ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLCollectionItemMethodInfo ,
#endif
dOMHTMLCollectionItem ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLCollectionNamedItemMethodInfo ,
#endif
dOMHTMLCollectionNamedItem ,
#if defined(ENABLE_OVERLOADING)
DOMHTMLCollectionLengthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
dOMHTMLCollectionLength ,
#endif
getDOMHTMLCollectionLength ,
) 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.GI.Base.Signals as B.Signals
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.DOMNode as WebKit2WebExtension.DOMNode
import {-# SOURCE #-} qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMHTMLCollection = DOMHTMLCollection (ManagedPtr DOMHTMLCollection)
deriving (DOMHTMLCollection -> DOMHTMLCollection -> Bool
(DOMHTMLCollection -> DOMHTMLCollection -> Bool)
-> (DOMHTMLCollection -> DOMHTMLCollection -> Bool)
-> Eq DOMHTMLCollection
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DOMHTMLCollection -> DOMHTMLCollection -> Bool
$c/= :: DOMHTMLCollection -> DOMHTMLCollection -> Bool
== :: DOMHTMLCollection -> DOMHTMLCollection -> Bool
$c== :: DOMHTMLCollection -> DOMHTMLCollection -> Bool
Eq)
foreign import ccall "webkit_dom_html_collection_get_type"
c_webkit_dom_html_collection_get_type :: IO GType
instance GObject DOMHTMLCollection where
gobjectType :: IO GType
gobjectType = IO GType
c_webkit_dom_html_collection_get_type
instance B.GValue.IsGValue DOMHTMLCollection where
toGValue :: DOMHTMLCollection -> IO GValue
toGValue o :: DOMHTMLCollection
o = do
GType
gtype <- IO GType
c_webkit_dom_html_collection_get_type
DOMHTMLCollection
-> (Ptr DOMHTMLCollection -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr DOMHTMLCollection
o (GType
-> (GValue -> Ptr DOMHTMLCollection -> IO ())
-> Ptr DOMHTMLCollection
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr DOMHTMLCollection -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO DOMHTMLCollection
fromGValue gv :: GValue
gv = do
Ptr DOMHTMLCollection
ptr <- GValue -> IO (Ptr DOMHTMLCollection)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr DOMHTMLCollection)
(ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> Ptr DOMHTMLCollection -> IO DOMHTMLCollection
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
DOMHTMLCollection Ptr DOMHTMLCollection
ptr
class (GObject o, O.IsDescendantOf DOMHTMLCollection o) => IsDOMHTMLCollection o
instance (GObject o, O.IsDescendantOf DOMHTMLCollection o) => IsDOMHTMLCollection o
instance O.HasParentTypes DOMHTMLCollection
type instance O.ParentTypes DOMHTMLCollection = '[WebKit2WebExtension.DOMObject.DOMObject, GObject.Object.Object]
toDOMHTMLCollection :: (MonadIO m, IsDOMHTMLCollection o) => o -> m DOMHTMLCollection
toDOMHTMLCollection :: o -> m DOMHTMLCollection
toDOMHTMLCollection = IO DOMHTMLCollection -> m DOMHTMLCollection
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMHTMLCollection -> m DOMHTMLCollection)
-> (o -> IO DOMHTMLCollection) -> o -> m DOMHTMLCollection
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr DOMHTMLCollection -> DOMHTMLCollection)
-> o -> IO DOMHTMLCollection
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr DOMHTMLCollection -> DOMHTMLCollection
DOMHTMLCollection
noDOMHTMLCollection :: Maybe DOMHTMLCollection
noDOMHTMLCollection :: Maybe DOMHTMLCollection
noDOMHTMLCollection = Maybe DOMHTMLCollection
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveDOMHTMLCollectionMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMHTMLCollectionMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMHTMLCollectionMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMHTMLCollectionMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMHTMLCollectionMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMHTMLCollectionMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveDOMHTMLCollectionMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMHTMLCollectionMethod "item" o = DOMHTMLCollectionItemMethodInfo
ResolveDOMHTMLCollectionMethod "namedItem" o = DOMHTMLCollectionNamedItemMethodInfo
ResolveDOMHTMLCollectionMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMHTMLCollectionMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMHTMLCollectionMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMHTMLCollectionMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMHTMLCollectionMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMHTMLCollectionMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMHTMLCollectionMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMHTMLCollectionMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMHTMLCollectionMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMHTMLCollectionMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMHTMLCollectionMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMHTMLCollectionMethod "getLength" o = DOMHTMLCollectionGetLengthMethodInfo
ResolveDOMHTMLCollectionMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMHTMLCollectionMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMHTMLCollectionMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMHTMLCollectionMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveDOMHTMLCollectionMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMHTMLCollectionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMHTMLCollectionMethod t DOMHTMLCollection, O.MethodInfo info DOMHTMLCollection p) => OL.IsLabel t (DOMHTMLCollection -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getDOMHTMLCollectionLength :: (MonadIO m, IsDOMHTMLCollection o) => o -> m CULong
getDOMHTMLCollectionLength :: o -> m CULong
getDOMHTMLCollectionLength obj :: o
obj = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj "length"
#if defined(ENABLE_OVERLOADING)
data DOMHTMLCollectionLengthPropertyInfo
instance AttrInfo DOMHTMLCollectionLengthPropertyInfo where
type AttrAllowedOps DOMHTMLCollectionLengthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint DOMHTMLCollectionLengthPropertyInfo = IsDOMHTMLCollection
type AttrSetTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) ()
type AttrTransferTypeConstraint DOMHTMLCollectionLengthPropertyInfo = (~) ()
type AttrTransferType DOMHTMLCollectionLengthPropertyInfo = ()
type AttrGetType DOMHTMLCollectionLengthPropertyInfo = CULong
type AttrLabel DOMHTMLCollectionLengthPropertyInfo = "length"
type AttrOrigin DOMHTMLCollectionLengthPropertyInfo = DOMHTMLCollection
attrGet = getDOMHTMLCollectionLength
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList DOMHTMLCollection
type instance O.AttributeList DOMHTMLCollection = DOMHTMLCollectionAttributeList
type DOMHTMLCollectionAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLCollectionLengthPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
dOMHTMLCollectionLength :: AttrLabelProxy "length"
dOMHTMLCollectionLength = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList DOMHTMLCollection = DOMHTMLCollectionSignalList
type DOMHTMLCollectionSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_dom_html_collection_get_length" webkit_dom_html_collection_get_length ::
Ptr DOMHTMLCollection ->
IO CULong
{-# DEPRECATED dOMHTMLCollectionGetLength ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLCollectionGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLCollection a) =>
a
-> m CULong
dOMHTMLCollectionGetLength :: a -> m CULong
dOMHTMLCollectionGetLength self :: a
self = IO CULong -> m CULong
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLCollection
self' <- a -> IO (Ptr DOMHTMLCollection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CULong
result <- Ptr DOMHTMLCollection -> IO CULong
webkit_dom_html_collection_get_length Ptr DOMHTMLCollection
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CULong -> IO CULong
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data DOMHTMLCollectionGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMHTMLCollection a) => O.MethodInfo DOMHTMLCollectionGetLengthMethodInfo a signature where
overloadedMethod = dOMHTMLCollectionGetLength
#endif
foreign import ccall "webkit_dom_html_collection_item" webkit_dom_html_collection_item ::
Ptr DOMHTMLCollection ->
CULong ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMHTMLCollectionItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLCollectionItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLCollection a) =>
a
-> CULong
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMHTMLCollectionItem :: a -> CULong -> m DOMNode
dOMHTMLCollectionItem self :: a
self index :: CULong
index = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLCollection
self' <- a -> IO (Ptr DOMHTMLCollection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr DOMNode
result <- Ptr DOMHTMLCollection -> CULong -> IO (Ptr DOMNode)
webkit_dom_html_collection_item Ptr DOMHTMLCollection
self' CULong
index
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMHTMLCollectionItem" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLCollectionItemMethodInfo
instance (signature ~ (CULong -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMHTMLCollection a) => O.MethodInfo DOMHTMLCollectionItemMethodInfo a signature where
overloadedMethod = dOMHTMLCollectionItem
#endif
foreign import ccall "webkit_dom_html_collection_named_item" webkit_dom_html_collection_named_item ::
Ptr DOMHTMLCollection ->
CString ->
IO (Ptr WebKit2WebExtension.DOMNode.DOMNode)
{-# DEPRECATED dOMHTMLCollectionNamedItem ["(Since version 2.22)","Use JavaScriptCore API instead"] #-}
dOMHTMLCollectionNamedItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMHTMLCollection a) =>
a
-> T.Text
-> m WebKit2WebExtension.DOMNode.DOMNode
dOMHTMLCollectionNamedItem :: a -> Text -> m DOMNode
dOMHTMLCollectionNamedItem self :: a
self name :: Text
name = IO DOMNode -> m DOMNode
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO DOMNode -> m DOMNode) -> IO DOMNode -> m DOMNode
forall a b. (a -> b) -> a -> b
$ do
Ptr DOMHTMLCollection
self' <- a -> IO (Ptr DOMHTMLCollection)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CString
name' <- Text -> IO CString
textToCString Text
name
Ptr DOMNode
result <- Ptr DOMHTMLCollection -> CString -> IO (Ptr DOMNode)
webkit_dom_html_collection_named_item Ptr DOMHTMLCollection
self' CString
name'
Text -> Ptr DOMNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "dOMHTMLCollectionNamedItem" Ptr DOMNode
result
DOMNode
result' <- ((ManagedPtr DOMNode -> DOMNode) -> Ptr DOMNode -> IO DOMNode
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr DOMNode -> DOMNode
WebKit2WebExtension.DOMNode.DOMNode) Ptr DOMNode
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
DOMNode -> IO DOMNode
forall (m :: * -> *) a. Monad m => a -> m a
return DOMNode
result'
#if defined(ENABLE_OVERLOADING)
data DOMHTMLCollectionNamedItemMethodInfo
instance (signature ~ (T.Text -> m WebKit2WebExtension.DOMNode.DOMNode), MonadIO m, IsDOMHTMLCollection a) => O.MethodInfo DOMHTMLCollectionNamedItemMethodInfo a signature where
overloadedMethod = dOMHTMLCollectionNamedItem
#endif