module GI.WebKit.Objects.DOMMediaError
(
DOMMediaError(..) ,
DOMMediaErrorK ,
toDOMMediaError ,
noDOMMediaError ,
dOMMediaErrorGetCode ,
DOMMediaErrorCodePropertyInfo ,
getDOMMediaErrorCode ,
) 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 DOMMediaError = DOMMediaError (ForeignPtr DOMMediaError)
foreign import ccall "webkit_dom_media_error_get_type"
c_webkit_dom_media_error_get_type :: IO GType
type instance ParentTypes DOMMediaError = DOMMediaErrorParentTypes
type DOMMediaErrorParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMMediaError where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_media_error_get_type
class GObject o => DOMMediaErrorK o
instance (GObject o, IsDescendantOf DOMMediaError o) => DOMMediaErrorK o
toDOMMediaError :: DOMMediaErrorK o => o -> IO DOMMediaError
toDOMMediaError = unsafeCastTo DOMMediaError
noDOMMediaError :: Maybe DOMMediaError
noDOMMediaError = Nothing
getDOMMediaErrorCode :: (MonadIO m, DOMMediaErrorK o) => o -> m Word32
getDOMMediaErrorCode obj = liftIO $ getObjectPropertyCUInt obj "code"
data DOMMediaErrorCodePropertyInfo
instance AttrInfo DOMMediaErrorCodePropertyInfo where
type AttrAllowedOps DOMMediaErrorCodePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMediaErrorCodePropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaErrorCodePropertyInfo = DOMMediaErrorK
type AttrGetType DOMMediaErrorCodePropertyInfo = Word32
type AttrLabel DOMMediaErrorCodePropertyInfo = "DOMMediaError::code"
attrGet _ = getDOMMediaErrorCode
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMMediaError = DOMMediaErrorAttributeList
type DOMMediaErrorAttributeList = ('[ '("code", DOMMediaErrorCodePropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMMediaError = DOMMediaErrorSignalList
type DOMMediaErrorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_media_error_get_code" webkit_dom_media_error_get_code ::
Ptr DOMMediaError ->
IO Word16
dOMMediaErrorGetCode ::
(MonadIO m, DOMMediaErrorK a) =>
a ->
m Word16
dOMMediaErrorGetCode _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_media_error_get_code _obj'
touchManagedPtr _obj
return result