module GI.WebKit.Objects.DOMPropertyNodeList
(
DOMPropertyNodeList(..) ,
DOMPropertyNodeListK ,
toDOMPropertyNodeList ,
noDOMPropertyNodeList ,
dOMPropertyNodeListGetLength ,
dOMPropertyNodeListItem ,
DOMPropertyNodeListLengthPropertyInfo ,
getDOMPropertyNodeListLength ,
) 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.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GObject as GObject
newtype DOMPropertyNodeList = DOMPropertyNodeList (ForeignPtr DOMPropertyNodeList)
foreign import ccall "webkit_dom_property_node_list_get_type"
c_webkit_dom_property_node_list_get_type :: IO GType
type instance ParentTypes DOMPropertyNodeList = DOMPropertyNodeListParentTypes
type DOMPropertyNodeListParentTypes = '[DOMNodeList, DOMObject, GObject.Object]
instance GObject DOMPropertyNodeList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_property_node_list_get_type
class GObject o => DOMPropertyNodeListK o
instance (GObject o, IsDescendantOf DOMPropertyNodeList o) => DOMPropertyNodeListK o
toDOMPropertyNodeList :: DOMPropertyNodeListK o => o -> IO DOMPropertyNodeList
toDOMPropertyNodeList = unsafeCastTo DOMPropertyNodeList
noDOMPropertyNodeList :: Maybe DOMPropertyNodeList
noDOMPropertyNodeList = Nothing
getDOMPropertyNodeListLength :: (MonadIO m, DOMPropertyNodeListK o) => o -> m Word64
getDOMPropertyNodeListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMPropertyNodeListLengthPropertyInfo
instance AttrInfo DOMPropertyNodeListLengthPropertyInfo where
type AttrAllowedOps DOMPropertyNodeListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMPropertyNodeListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMPropertyNodeListLengthPropertyInfo = DOMPropertyNodeListK
type AttrGetType DOMPropertyNodeListLengthPropertyInfo = Word64
type AttrLabel DOMPropertyNodeListLengthPropertyInfo = "DOMPropertyNodeList::length"
attrGet _ = getDOMPropertyNodeListLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMPropertyNodeList = DOMPropertyNodeListAttributeList
type DOMPropertyNodeListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPropertyNodeListLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMPropertyNodeList = DOMPropertyNodeListSignalList
type DOMPropertyNodeListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_property_node_list_get_length" webkit_dom_property_node_list_get_length ::
Ptr () ->
IO Word64
dOMPropertyNodeListGetLength ::
(MonadIO m) =>
Ptr () ->
m Word64
dOMPropertyNodeListGetLength self = liftIO $ do
result <- webkit_dom_property_node_list_get_length self
return result
foreign import ccall "webkit_dom_property_node_list_item" webkit_dom_property_node_list_item ::
Ptr () ->
Word64 ->
IO (Ptr DOMNode)
dOMPropertyNodeListItem ::
(MonadIO m) =>
Ptr () ->
Word64 ->
m DOMNode
dOMPropertyNodeListItem self index = liftIO $ do
result <- webkit_dom_property_node_list_item self index
checkUnexpectedReturnNULL "webkit_dom_property_node_list_item" result
result' <- (newObject DOMNode) result
return result'