module GI.WebKit.Objects.DOMDOMNamedFlowCollection
(
DOMDOMNamedFlowCollection(..) ,
DOMDOMNamedFlowCollectionK ,
toDOMDOMNamedFlowCollection ,
noDOMDOMNamedFlowCollection ,
dOMDOMNamedFlowCollectionGetLength ,
dOMDOMNamedFlowCollectionItem ,
dOMDOMNamedFlowCollectionNamedItem ,
DOMDOMNamedFlowCollectionLengthPropertyInfo,
getDOMDOMNamedFlowCollectionLength ,
) 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 DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollection (ForeignPtr DOMDOMNamedFlowCollection)
foreign import ccall "webkit_dom_dom_named_flow_collection_get_type"
c_webkit_dom_dom_named_flow_collection_get_type :: IO GType
type instance ParentTypes DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionParentTypes
type DOMDOMNamedFlowCollectionParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMDOMNamedFlowCollection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_dom_named_flow_collection_get_type
class GObject o => DOMDOMNamedFlowCollectionK o
instance (GObject o, IsDescendantOf DOMDOMNamedFlowCollection o) => DOMDOMNamedFlowCollectionK o
toDOMDOMNamedFlowCollection :: DOMDOMNamedFlowCollectionK o => o -> IO DOMDOMNamedFlowCollection
toDOMDOMNamedFlowCollection = unsafeCastTo DOMDOMNamedFlowCollection
noDOMDOMNamedFlowCollection :: Maybe DOMDOMNamedFlowCollection
noDOMDOMNamedFlowCollection = Nothing
getDOMDOMNamedFlowCollectionLength :: (MonadIO m, DOMDOMNamedFlowCollectionK o) => o -> m Word64
getDOMDOMNamedFlowCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMDOMNamedFlowCollectionLengthPropertyInfo
instance AttrInfo DOMDOMNamedFlowCollectionLengthPropertyInfo where
type AttrAllowedOps DOMDOMNamedFlowCollectionLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMDOMNamedFlowCollectionLengthPropertyInfo = DOMDOMNamedFlowCollectionK
type AttrGetType DOMDOMNamedFlowCollectionLengthPropertyInfo = Word64
type AttrLabel DOMDOMNamedFlowCollectionLengthPropertyInfo = "DOMDOMNamedFlowCollection::length"
attrGet _ = getDOMDOMNamedFlowCollectionLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionAttributeList
type DOMDOMNamedFlowCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMDOMNamedFlowCollectionLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMDOMNamedFlowCollection = DOMDOMNamedFlowCollectionSignalList
type DOMDOMNamedFlowCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_dom_named_flow_collection_get_length" webkit_dom_dom_named_flow_collection_get_length ::
Ptr DOMDOMNamedFlowCollection ->
IO Word64
dOMDOMNamedFlowCollectionGetLength ::
(MonadIO m, DOMDOMNamedFlowCollectionK a) =>
a ->
m Word64
dOMDOMNamedFlowCollectionGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_named_flow_collection_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_dom_named_flow_collection_item" webkit_dom_dom_named_flow_collection_item ::
Ptr DOMDOMNamedFlowCollection ->
Word64 ->
IO (Ptr DOMWebKitNamedFlow)
dOMDOMNamedFlowCollectionItem ::
(MonadIO m, DOMDOMNamedFlowCollectionK a) =>
a ->
Word64 ->
m DOMWebKitNamedFlow
dOMDOMNamedFlowCollectionItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_dom_named_flow_collection_item _obj' index
checkUnexpectedReturnNULL "webkit_dom_dom_named_flow_collection_item" result
result' <- (wrapObject DOMWebKitNamedFlow) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_dom_named_flow_collection_named_item" webkit_dom_dom_named_flow_collection_named_item ::
Ptr DOMDOMNamedFlowCollection ->
CString ->
IO (Ptr DOMWebKitNamedFlow)
dOMDOMNamedFlowCollectionNamedItem ::
(MonadIO m, DOMDOMNamedFlowCollectionK a) =>
a ->
T.Text ->
m DOMWebKitNamedFlow
dOMDOMNamedFlowCollectionNamedItem _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
result <- webkit_dom_dom_named_flow_collection_named_item _obj' name'
checkUnexpectedReturnNULL "webkit_dom_dom_named_flow_collection_named_item" result
result' <- (wrapObject DOMWebKitNamedFlow) result
touchManagedPtr _obj
freeMem name'
return result'