module GI.WebKit.Objects.DOMGamepadList
(
DOMGamepadList(..) ,
DOMGamepadListK ,
toDOMGamepadList ,
noDOMGamepadList ,
dOMGamepadListGetLength ,
dOMGamepadListItem ,
DOMGamepadListLengthPropertyInfo ,
getDOMGamepadListLength ,
) 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 DOMGamepadList = DOMGamepadList (ForeignPtr DOMGamepadList)
foreign import ccall "webkit_dom_gamepad_list_get_type"
c_webkit_dom_gamepad_list_get_type :: IO GType
type instance ParentTypes DOMGamepadList = DOMGamepadListParentTypes
type DOMGamepadListParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMGamepadList where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_gamepad_list_get_type
class GObject o => DOMGamepadListK o
instance (GObject o, IsDescendantOf DOMGamepadList o) => DOMGamepadListK o
toDOMGamepadList :: DOMGamepadListK o => o -> IO DOMGamepadList
toDOMGamepadList = unsafeCastTo DOMGamepadList
noDOMGamepadList :: Maybe DOMGamepadList
noDOMGamepadList = Nothing
getDOMGamepadListLength :: (MonadIO m, DOMGamepadListK o) => o -> m Word64
getDOMGamepadListLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMGamepadListLengthPropertyInfo
instance AttrInfo DOMGamepadListLengthPropertyInfo where
type AttrAllowedOps DOMGamepadListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMGamepadListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMGamepadListLengthPropertyInfo = DOMGamepadListK
type AttrGetType DOMGamepadListLengthPropertyInfo = Word64
type AttrLabel DOMGamepadListLengthPropertyInfo = "DOMGamepadList::length"
attrGet _ = getDOMGamepadListLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMGamepadList = DOMGamepadListAttributeList
type DOMGamepadListAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMGamepadListLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMGamepadList = DOMGamepadListSignalList
type DOMGamepadListSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_gamepad_list_get_length" webkit_dom_gamepad_list_get_length ::
Ptr DOMGamepadList ->
IO Word64
dOMGamepadListGetLength ::
(MonadIO m, DOMGamepadListK a) =>
a ->
m Word64
dOMGamepadListGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_gamepad_list_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_gamepad_list_item" webkit_dom_gamepad_list_item ::
Ptr DOMGamepadList ->
Word64 ->
IO (Ptr DOMGamepad)
dOMGamepadListItem ::
(MonadIO m, DOMGamepadListK a) =>
a ->
Word64 ->
m DOMGamepad
dOMGamepadListItem _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_gamepad_list_item _obj' index
checkUnexpectedReturnNULL "webkit_dom_gamepad_list_item" result
result' <- (wrapObject DOMGamepad) result
touchManagedPtr _obj
return result'