module GI.WebKit.Objects.DOMPerformanceEntryList
(
DOMPerformanceEntryList(..) ,
DOMPerformanceEntryListK ,
toDOMPerformanceEntryList ,
noDOMPerformanceEntryList ,
dOMPerformanceEntryListGetLength ,
dOMPerformanceEntryListItem ,
DOMPerformanceEntryListLengthPropertyInfo,
getDOMPerformanceEntryListLength ,
) 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 DOMPerformanceEntryList = DOMPerformanceEntryList (ForeignPtr DOMPerformanceEntryList)
foreign import ccall "webkit_dom_performance_entry_list_get_type"
c_webkit_dom_performance_entry_list_get_type :: IO GType
type instance ParentTypes DOMPerformanceEntryList = DOMPerformanceEntryListParentTypes
type DOMPerformanceEntryListParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMPerformanceEntryList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_performance_entry_list_get_type
class GObject o => DOMPerformanceEntryListK o
instance (GObject o, IsDescendantOf DOMPerformanceEntryList o) => DOMPerformanceEntryListK o
toDOMPerformanceEntryList :: DOMPerformanceEntryListK o => o -> IO DOMPerformanceEntryList
toDOMPerformanceEntryList = unsafeCastTo DOMPerformanceEntryList
noDOMPerformanceEntryList :: Maybe DOMPerformanceEntryList
noDOMPerformanceEntryList = Nothing
getDOMPerformanceEntryListLength :: (MonadIO m, DOMPerformanceEntryListK o) => o -> m Word64
getDOMPerformanceEntryListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMPerformanceEntryListLengthPropertyInfo
instance AttrInfo DOMPerformanceEntryListLengthPropertyInfo where
type AttrAllowedOps DOMPerformanceEntryListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMPerformanceEntryListLengthPropertyInfo = DOMPerformanceEntryListK
type AttrGetType DOMPerformanceEntryListLengthPropertyInfo = Word64
type AttrLabel DOMPerformanceEntryListLengthPropertyInfo = "DOMPerformanceEntryList::length"
attrGet _ = getDOMPerformanceEntryListLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMPerformanceEntryList = DOMPerformanceEntryListAttributeList
type DOMPerformanceEntryListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMPerformanceEntryListLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMPerformanceEntryList = DOMPerformanceEntryListSignalList
type DOMPerformanceEntryListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_performance_entry_list_get_length" webkit_dom_performance_entry_list_get_length ::
Ptr DOMPerformanceEntryList ->
IO Word64
dOMPerformanceEntryListGetLength ::
(MonadIO m, DOMPerformanceEntryListK a) =>
a ->
m Word64
dOMPerformanceEntryListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_list_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_performance_entry_list_item" webkit_dom_performance_entry_list_item ::
Ptr DOMPerformanceEntryList ->
Word64 ->
IO (Ptr DOMPerformanceEntry)
dOMPerformanceEntryListItem ::
(MonadIO m, DOMPerformanceEntryListK a) =>
a ->
Word64 ->
m DOMPerformanceEntry
dOMPerformanceEntryListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_performance_entry_list_item _obj' index
checkUnexpectedReturnNULL "webkit_dom_performance_entry_list_item" result
result' <- (wrapObject DOMPerformanceEntry) result
touchManagedPtr _obj
return result'