module GI.WebKit2WebExtension.Objects.DOMMediaList
(
DOMMediaList(..) ,
IsDOMMediaList ,
toDOMMediaList ,
noDOMMediaList ,
DOMMediaListAppendMediumMethodInfo ,
dOMMediaListAppendMedium ,
DOMMediaListDeleteMediumMethodInfo ,
dOMMediaListDeleteMedium ,
DOMMediaListGetLengthMethodInfo ,
dOMMediaListGetLength ,
DOMMediaListGetMediaTextMethodInfo ,
dOMMediaListGetMediaText ,
DOMMediaListItemMethodInfo ,
dOMMediaListItem ,
DOMMediaListSetMediaTextMethodInfo ,
dOMMediaListSetMediaText ,
DOMMediaListLengthPropertyInfo ,
dOMMediaListLength ,
getDOMMediaListLength ,
DOMMediaListMediaTextPropertyInfo ,
clearDOMMediaListMediaText ,
constructDOMMediaListMediaText ,
dOMMediaListMediaText ,
getDOMMediaListMediaText ,
setDOMMediaListMediaText ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.WebKit2WebExtension.Objects.DOMObject as WebKit2WebExtension.DOMObject
newtype DOMMediaList = DOMMediaList (ManagedPtr DOMMediaList)
foreign import ccall "webkit_dom_media_list_get_type"
c_webkit_dom_media_list_get_type :: IO GType
instance GObject DOMMediaList where
gobjectType _ = c_webkit_dom_media_list_get_type
class GObject o => IsDOMMediaList o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError DOMMediaList a) =>
IsDOMMediaList a
#endif
instance IsDOMMediaList DOMMediaList
instance WebKit2WebExtension.DOMObject.IsDOMObject DOMMediaList
instance GObject.Object.IsObject DOMMediaList
toDOMMediaList :: IsDOMMediaList o => o -> IO DOMMediaList
toDOMMediaList = unsafeCastTo DOMMediaList
noDOMMediaList :: Maybe DOMMediaList
noDOMMediaList = Nothing
type family ResolveDOMMediaListMethod (t :: Symbol) (o :: *) :: * where
ResolveDOMMediaListMethod "appendMedium" o = DOMMediaListAppendMediumMethodInfo
ResolveDOMMediaListMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveDOMMediaListMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveDOMMediaListMethod "deleteMedium" o = DOMMediaListDeleteMediumMethodInfo
ResolveDOMMediaListMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveDOMMediaListMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveDOMMediaListMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveDOMMediaListMethod "item" o = DOMMediaListItemMethodInfo
ResolveDOMMediaListMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveDOMMediaListMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveDOMMediaListMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveDOMMediaListMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveDOMMediaListMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveDOMMediaListMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveDOMMediaListMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveDOMMediaListMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveDOMMediaListMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveDOMMediaListMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveDOMMediaListMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveDOMMediaListMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveDOMMediaListMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveDOMMediaListMethod "getLength" o = DOMMediaListGetLengthMethodInfo
ResolveDOMMediaListMethod "getMediaText" o = DOMMediaListGetMediaTextMethodInfo
ResolveDOMMediaListMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveDOMMediaListMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveDOMMediaListMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveDOMMediaListMethod "setMediaText" o = DOMMediaListSetMediaTextMethodInfo
ResolveDOMMediaListMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveDOMMediaListMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveDOMMediaListMethod t DOMMediaList, O.MethodInfo info DOMMediaList p) => O.IsLabelProxy t (DOMMediaList -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMMediaListMethod t DOMMediaList, O.MethodInfo info DOMMediaList p) => O.IsLabel t (DOMMediaList -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getDOMMediaListLength :: (MonadIO m, IsDOMMediaList o) => o -> m CULong
getDOMMediaListLength obj = liftIO $ getObjectPropertyULong obj "length"
data DOMMediaListLengthPropertyInfo
instance AttrInfo DOMMediaListLengthPropertyInfo where
type AttrAllowedOps DOMMediaListLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMMediaListLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMMediaListLengthPropertyInfo = IsDOMMediaList
type AttrGetType DOMMediaListLengthPropertyInfo = CULong
type AttrLabel DOMMediaListLengthPropertyInfo = "length"
type AttrOrigin DOMMediaListLengthPropertyInfo = DOMMediaList
attrGet _ = getDOMMediaListLength
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
getDOMMediaListMediaText :: (MonadIO m, IsDOMMediaList o) => o -> m (Maybe T.Text)
getDOMMediaListMediaText obj = liftIO $ getObjectPropertyString obj "media-text"
setDOMMediaListMediaText :: (MonadIO m, IsDOMMediaList o) => o -> T.Text -> m ()
setDOMMediaListMediaText obj val = liftIO $ setObjectPropertyString obj "media-text" (Just val)
constructDOMMediaListMediaText :: (IsDOMMediaList o) => T.Text -> IO (GValueConstruct o)
constructDOMMediaListMediaText val = constructObjectPropertyString "media-text" (Just val)
clearDOMMediaListMediaText :: (MonadIO m, IsDOMMediaList o) => o -> m ()
clearDOMMediaListMediaText obj = liftIO $ setObjectPropertyString obj "media-text" (Nothing :: Maybe T.Text)
data DOMMediaListMediaTextPropertyInfo
instance AttrInfo DOMMediaListMediaTextPropertyInfo where
type AttrAllowedOps DOMMediaListMediaTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint DOMMediaListMediaTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMMediaListMediaTextPropertyInfo = IsDOMMediaList
type AttrGetType DOMMediaListMediaTextPropertyInfo = (Maybe T.Text)
type AttrLabel DOMMediaListMediaTextPropertyInfo = "media-text"
type AttrOrigin DOMMediaListMediaTextPropertyInfo = DOMMediaList
attrGet _ = getDOMMediaListMediaText
attrSet _ = setDOMMediaListMediaText
attrConstruct _ = constructDOMMediaListMediaText
attrClear _ = clearDOMMediaListMediaText
instance O.HasAttributeList DOMMediaList
type instance O.AttributeList DOMMediaList = DOMMediaListAttributeList
type DOMMediaListAttributeList = ('[ '("coreObject", WebKit2WebExtension.DOMObject.DOMObjectCoreObjectPropertyInfo), '("length", DOMMediaListLengthPropertyInfo), '("mediaText", DOMMediaListMediaTextPropertyInfo)] :: [(Symbol, *)])
dOMMediaListLength :: AttrLabelProxy "length"
dOMMediaListLength = AttrLabelProxy
dOMMediaListMediaText :: AttrLabelProxy "mediaText"
dOMMediaListMediaText = AttrLabelProxy
type instance O.SignalList DOMMediaList = DOMMediaListSignalList
type DOMMediaListSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_media_list_append_medium" webkit_dom_media_list_append_medium ::
Ptr DOMMediaList ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMMediaListAppendMedium ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaList a) =>
a
-> T.Text
-> m ()
dOMMediaListAppendMedium self newMedium = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
newMedium' <- textToCString newMedium
onException (do
propagateGError $ webkit_dom_media_list_append_medium self' newMedium'
touchManagedPtr self
freeMem newMedium'
return ()
) (do
freeMem newMedium'
)
data DOMMediaListAppendMediumMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMMediaList a) => O.MethodInfo DOMMediaListAppendMediumMethodInfo a signature where
overloadedMethod _ = dOMMediaListAppendMedium
foreign import ccall "webkit_dom_media_list_delete_medium" webkit_dom_media_list_delete_medium ::
Ptr DOMMediaList ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMMediaListDeleteMedium ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaList a) =>
a
-> T.Text
-> m ()
dOMMediaListDeleteMedium self oldMedium = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
oldMedium' <- textToCString oldMedium
onException (do
propagateGError $ webkit_dom_media_list_delete_medium self' oldMedium'
touchManagedPtr self
freeMem oldMedium'
return ()
) (do
freeMem oldMedium'
)
data DOMMediaListDeleteMediumMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMMediaList a) => O.MethodInfo DOMMediaListDeleteMediumMethodInfo a signature where
overloadedMethod _ = dOMMediaListDeleteMedium
foreign import ccall "webkit_dom_media_list_get_length" webkit_dom_media_list_get_length ::
Ptr DOMMediaList ->
IO CULong
dOMMediaListGetLength ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaList a) =>
a
-> m CULong
dOMMediaListGetLength self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_list_get_length self'
touchManagedPtr self
return result
data DOMMediaListGetLengthMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsDOMMediaList a) => O.MethodInfo DOMMediaListGetLengthMethodInfo a signature where
overloadedMethod _ = dOMMediaListGetLength
foreign import ccall "webkit_dom_media_list_get_media_text" webkit_dom_media_list_get_media_text ::
Ptr DOMMediaList ->
IO CString
dOMMediaListGetMediaText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaList a) =>
a
-> m T.Text
dOMMediaListGetMediaText self = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_list_get_media_text self'
checkUnexpectedReturnNULL "dOMMediaListGetMediaText" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMMediaListGetMediaTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMMediaList a) => O.MethodInfo DOMMediaListGetMediaTextMethodInfo a signature where
overloadedMethod _ = dOMMediaListGetMediaText
foreign import ccall "webkit_dom_media_list_item" webkit_dom_media_list_item ::
Ptr DOMMediaList ->
CULong ->
IO CString
dOMMediaListItem ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaList a) =>
a
-> CULong
-> m T.Text
dOMMediaListItem self index = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
result <- webkit_dom_media_list_item self' index
checkUnexpectedReturnNULL "dOMMediaListItem" result
result' <- cstringToText result
freeMem result
touchManagedPtr self
return result'
data DOMMediaListItemMethodInfo
instance (signature ~ (CULong -> m T.Text), MonadIO m, IsDOMMediaList a) => O.MethodInfo DOMMediaListItemMethodInfo a signature where
overloadedMethod _ = dOMMediaListItem
foreign import ccall "webkit_dom_media_list_set_media_text" webkit_dom_media_list_set_media_text ::
Ptr DOMMediaList ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMMediaListSetMediaText ::
(B.CallStack.HasCallStack, MonadIO m, IsDOMMediaList a) =>
a
-> T.Text
-> m ()
dOMMediaListSetMediaText self value = liftIO $ do
self' <- unsafeManagedPtrCastPtr self
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_media_list_set_media_text self' value'
touchManagedPtr self
freeMem value'
return ()
) (do
freeMem value'
)
data DOMMediaListSetMediaTextMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsDOMMediaList a) => O.MethodInfo DOMMediaListSetMediaTextMethodInfo a signature where
overloadedMethod _ = dOMMediaListSetMediaText