module GI.WebKit.Objects.DOMHTMLPropertiesCollection
(
DOMHTMLPropertiesCollection(..) ,
DOMHTMLPropertiesCollectionK ,
toDOMHTMLPropertiesCollection ,
noDOMHTMLPropertiesCollection ,
dOMHTMLPropertiesCollectionGetLength ,
dOMHTMLPropertiesCollectionGetNames ,
dOMHTMLPropertiesCollectionItem ,
dOMHTMLPropertiesCollectionNamedItem ,
DOMHTMLPropertiesCollectionLengthPropertyInfo,
getDOMHTMLPropertiesCollectionLength ,
DOMHTMLPropertiesCollectionNamesPropertyInfo,
getDOMHTMLPropertiesCollectionNames ,
) 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 DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollection (ForeignPtr DOMHTMLPropertiesCollection)
foreign import ccall "webkit_dom_html_properties_collection_get_type"
c_webkit_dom_html_properties_collection_get_type :: IO GType
type instance ParentTypes DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionParentTypes
type DOMHTMLPropertiesCollectionParentTypes = '[DOMHTMLCollection, DOMObject, GObject.Object]
instance GObject DOMHTMLPropertiesCollection where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_html_properties_collection_get_type
class GObject o => DOMHTMLPropertiesCollectionK o
instance (GObject o, IsDescendantOf DOMHTMLPropertiesCollection o) => DOMHTMLPropertiesCollectionK o
toDOMHTMLPropertiesCollection :: DOMHTMLPropertiesCollectionK o => o -> IO DOMHTMLPropertiesCollection
toDOMHTMLPropertiesCollection = unsafeCastTo DOMHTMLPropertiesCollection
noDOMHTMLPropertiesCollection :: Maybe DOMHTMLPropertiesCollection
noDOMHTMLPropertiesCollection = Nothing
getDOMHTMLPropertiesCollectionLength :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m Word64
getDOMHTMLPropertiesCollectionLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMHTMLPropertiesCollectionLengthPropertyInfo
instance AttrInfo DOMHTMLPropertiesCollectionLengthPropertyInfo where
type AttrAllowedOps DOMHTMLPropertiesCollectionLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionLengthPropertyInfo = DOMHTMLPropertiesCollectionK
type AttrGetType DOMHTMLPropertiesCollectionLengthPropertyInfo = Word64
type AttrLabel DOMHTMLPropertiesCollectionLengthPropertyInfo = "DOMHTMLPropertiesCollection::length"
attrGet _ = getDOMHTMLPropertiesCollectionLength
attrSet _ = undefined
attrConstruct _ = undefined
getDOMHTMLPropertiesCollectionNames :: (MonadIO m, DOMHTMLPropertiesCollectionK o) => o -> m DOMDOMStringList
getDOMHTMLPropertiesCollectionNames obj = liftIO $ getObjectPropertyObject obj "names" DOMDOMStringList
data DOMHTMLPropertiesCollectionNamesPropertyInfo
instance AttrInfo DOMHTMLPropertiesCollectionNamesPropertyInfo where
type AttrAllowedOps DOMHTMLPropertiesCollectionNamesPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMHTMLPropertiesCollectionK
type AttrGetType DOMHTMLPropertiesCollectionNamesPropertyInfo = DOMDOMStringList
type AttrLabel DOMHTMLPropertiesCollectionNamesPropertyInfo = "DOMHTMLPropertiesCollection::names"
attrGet _ = getDOMHTMLPropertiesCollectionNames
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionAttributeList
type DOMHTMLPropertiesCollectionAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMHTMLPropertiesCollectionLengthPropertyInfo), '("names", DOMHTMLPropertiesCollectionNamesPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMHTMLPropertiesCollection = DOMHTMLPropertiesCollectionSignalList
type DOMHTMLPropertiesCollectionSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_html_properties_collection_get_length" webkit_dom_html_properties_collection_get_length ::
Ptr () ->
IO Word64
dOMHTMLPropertiesCollectionGetLength ::
(MonadIO m) =>
Ptr () ->
m Word64
dOMHTMLPropertiesCollectionGetLength self = liftIO $ do
result <- webkit_dom_html_properties_collection_get_length self
return result
foreign import ccall "webkit_dom_html_properties_collection_get_names" webkit_dom_html_properties_collection_get_names ::
Ptr () ->
IO (Ptr DOMDOMStringList)
dOMHTMLPropertiesCollectionGetNames ::
(MonadIO m) =>
Ptr () ->
m DOMDOMStringList
dOMHTMLPropertiesCollectionGetNames self = liftIO $ do
result <- webkit_dom_html_properties_collection_get_names self
checkUnexpectedReturnNULL "webkit_dom_html_properties_collection_get_names" result
result' <- (newObject DOMDOMStringList) result
return result'
foreign import ccall "webkit_dom_html_properties_collection_item" webkit_dom_html_properties_collection_item ::
Ptr () ->
Word64 ->
IO (Ptr DOMNode)
dOMHTMLPropertiesCollectionItem ::
(MonadIO m) =>
Ptr () ->
Word64 ->
m DOMNode
dOMHTMLPropertiesCollectionItem self index = liftIO $ do
result <- webkit_dom_html_properties_collection_item self index
checkUnexpectedReturnNULL "webkit_dom_html_properties_collection_item" result
result' <- (newObject DOMNode) result
return result'
foreign import ccall "webkit_dom_html_properties_collection_named_item" webkit_dom_html_properties_collection_named_item ::
Ptr () ->
CString ->
IO ()
dOMHTMLPropertiesCollectionNamedItem ::
(MonadIO m) =>
Ptr () ->
T.Text ->
m ()
dOMHTMLPropertiesCollectionNamedItem self name = liftIO $ do
name' <- textToCString name
webkit_dom_html_properties_collection_named_item self name'
freeMem name'
return ()