module GI.WebKit.Objects.DOMTextTrackCue
(
DOMTextTrackCue(..) ,
DOMTextTrackCueK ,
toDOMTextTrackCue ,
noDOMTextTrackCue ,
dOMTextTrackCueDispatchEvent ,
dOMTextTrackCueGetAlign ,
dOMTextTrackCueGetCueAsHtml ,
dOMTextTrackCueGetEndTime ,
dOMTextTrackCueGetId ,
dOMTextTrackCueGetLine ,
dOMTextTrackCueGetPauseOnExit ,
dOMTextTrackCueGetPosition ,
dOMTextTrackCueGetSize ,
dOMTextTrackCueGetSnapToLines ,
dOMTextTrackCueGetStartTime ,
dOMTextTrackCueGetText ,
dOMTextTrackCueGetTrack ,
dOMTextTrackCueGetVertical ,
dOMTextTrackCueSetAlign ,
dOMTextTrackCueSetEndTime ,
dOMTextTrackCueSetId ,
dOMTextTrackCueSetLine ,
dOMTextTrackCueSetPauseOnExit ,
dOMTextTrackCueSetPosition ,
dOMTextTrackCueSetSize ,
dOMTextTrackCueSetSnapToLines ,
dOMTextTrackCueSetStartTime ,
dOMTextTrackCueSetText ,
dOMTextTrackCueSetVertical ,
DOMTextTrackCueAlignPropertyInfo ,
constructDOMTextTrackCueAlign ,
getDOMTextTrackCueAlign ,
setDOMTextTrackCueAlign ,
DOMTextTrackCueEndTimePropertyInfo ,
constructDOMTextTrackCueEndTime ,
getDOMTextTrackCueEndTime ,
setDOMTextTrackCueEndTime ,
DOMTextTrackCueIdPropertyInfo ,
constructDOMTextTrackCueId ,
getDOMTextTrackCueId ,
setDOMTextTrackCueId ,
DOMTextTrackCueLinePropertyInfo ,
constructDOMTextTrackCueLine ,
getDOMTextTrackCueLine ,
setDOMTextTrackCueLine ,
DOMTextTrackCuePauseOnExitPropertyInfo ,
constructDOMTextTrackCuePauseOnExit ,
getDOMTextTrackCuePauseOnExit ,
setDOMTextTrackCuePauseOnExit ,
DOMTextTrackCuePositionPropertyInfo ,
constructDOMTextTrackCuePosition ,
getDOMTextTrackCuePosition ,
setDOMTextTrackCuePosition ,
DOMTextTrackCueSizePropertyInfo ,
constructDOMTextTrackCueSize ,
getDOMTextTrackCueSize ,
setDOMTextTrackCueSize ,
DOMTextTrackCueSnapToLinesPropertyInfo ,
constructDOMTextTrackCueSnapToLines ,
getDOMTextTrackCueSnapToLines ,
setDOMTextTrackCueSnapToLines ,
DOMTextTrackCueStartTimePropertyInfo ,
constructDOMTextTrackCueStartTime ,
getDOMTextTrackCueStartTime ,
setDOMTextTrackCueStartTime ,
DOMTextTrackCueTextPropertyInfo ,
constructDOMTextTrackCueText ,
getDOMTextTrackCueText ,
setDOMTextTrackCueText ,
DOMTextTrackCueTrackPropertyInfo ,
getDOMTextTrackCueTrack ,
DOMTextTrackCueVerticalPropertyInfo ,
constructDOMTextTrackCueVertical ,
getDOMTextTrackCueVertical ,
setDOMTextTrackCueVertical ,
) 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 DOMTextTrackCue = DOMTextTrackCue (ForeignPtr DOMTextTrackCue)
foreign import ccall "webkit_dom_text_track_cue_get_type"
c_webkit_dom_text_track_cue_get_type :: IO GType
type instance ParentTypes DOMTextTrackCue = DOMTextTrackCueParentTypes
type DOMTextTrackCueParentTypes = '[DOMObject, GObject.Object, DOMEventTarget]
instance GObject DOMTextTrackCue where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_text_track_cue_get_type
class GObject o => DOMTextTrackCueK o
instance (GObject o, IsDescendantOf DOMTextTrackCue o) => DOMTextTrackCueK o
toDOMTextTrackCue :: DOMTextTrackCueK o => o -> IO DOMTextTrackCue
toDOMTextTrackCue = unsafeCastTo DOMTextTrackCue
noDOMTextTrackCue :: Maybe DOMTextTrackCue
noDOMTextTrackCue = Nothing
getDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text
getDOMTextTrackCueAlign obj = liftIO $ getObjectPropertyString obj "align"
setDOMTextTrackCueAlign :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m ()
setDOMTextTrackCueAlign obj val = liftIO $ setObjectPropertyString obj "align" val
constructDOMTextTrackCueAlign :: T.Text -> IO ([Char], GValue)
constructDOMTextTrackCueAlign val = constructObjectPropertyString "align" val
data DOMTextTrackCueAlignPropertyInfo
instance AttrInfo DOMTextTrackCueAlignPropertyInfo where
type AttrAllowedOps DOMTextTrackCueAlignPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueAlignPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMTextTrackCueAlignPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueAlignPropertyInfo = T.Text
type AttrLabel DOMTextTrackCueAlignPropertyInfo = "DOMTextTrackCue::align"
attrGet _ = getDOMTextTrackCueAlign
attrSet _ = setDOMTextTrackCueAlign
attrConstruct _ = constructDOMTextTrackCueAlign
getDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double
getDOMTextTrackCueEndTime obj = liftIO $ getObjectPropertyDouble obj "end-time"
setDOMTextTrackCueEndTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m ()
setDOMTextTrackCueEndTime obj val = liftIO $ setObjectPropertyDouble obj "end-time" val
constructDOMTextTrackCueEndTime :: Double -> IO ([Char], GValue)
constructDOMTextTrackCueEndTime val = constructObjectPropertyDouble "end-time" val
data DOMTextTrackCueEndTimePropertyInfo
instance AttrInfo DOMTextTrackCueEndTimePropertyInfo where
type AttrAllowedOps DOMTextTrackCueEndTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueEndTimePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMTextTrackCueEndTimePropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueEndTimePropertyInfo = Double
type AttrLabel DOMTextTrackCueEndTimePropertyInfo = "DOMTextTrackCue::end-time"
attrGet _ = getDOMTextTrackCueEndTime
attrSet _ = setDOMTextTrackCueEndTime
attrConstruct _ = constructDOMTextTrackCueEndTime
getDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text
getDOMTextTrackCueId obj = liftIO $ getObjectPropertyString obj "id"
setDOMTextTrackCueId :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m ()
setDOMTextTrackCueId obj val = liftIO $ setObjectPropertyString obj "id" val
constructDOMTextTrackCueId :: T.Text -> IO ([Char], GValue)
constructDOMTextTrackCueId val = constructObjectPropertyString "id" val
data DOMTextTrackCueIdPropertyInfo
instance AttrInfo DOMTextTrackCueIdPropertyInfo where
type AttrAllowedOps DOMTextTrackCueIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueIdPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMTextTrackCueIdPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueIdPropertyInfo = T.Text
type AttrLabel DOMTextTrackCueIdPropertyInfo = "DOMTextTrackCue::id"
attrGet _ = getDOMTextTrackCueId
attrSet _ = setDOMTextTrackCueId
attrConstruct _ = constructDOMTextTrackCueId
getDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64
getDOMTextTrackCueLine obj = liftIO $ getObjectPropertyInt64 obj "line"
setDOMTextTrackCueLine :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m ()
setDOMTextTrackCueLine obj val = liftIO $ setObjectPropertyInt64 obj "line" val
constructDOMTextTrackCueLine :: Int64 -> IO ([Char], GValue)
constructDOMTextTrackCueLine val = constructObjectPropertyInt64 "line" val
data DOMTextTrackCueLinePropertyInfo
instance AttrInfo DOMTextTrackCueLinePropertyInfo where
type AttrAllowedOps DOMTextTrackCueLinePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueLinePropertyInfo = (~) Int64
type AttrBaseTypeConstraint DOMTextTrackCueLinePropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueLinePropertyInfo = Int64
type AttrLabel DOMTextTrackCueLinePropertyInfo = "DOMTextTrackCue::line"
attrGet _ = getDOMTextTrackCueLine
attrSet _ = setDOMTextTrackCueLine
attrConstruct _ = constructDOMTextTrackCueLine
getDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool
getDOMTextTrackCuePauseOnExit obj = liftIO $ getObjectPropertyBool obj "pause-on-exit"
setDOMTextTrackCuePauseOnExit :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m ()
setDOMTextTrackCuePauseOnExit obj val = liftIO $ setObjectPropertyBool obj "pause-on-exit" val
constructDOMTextTrackCuePauseOnExit :: Bool -> IO ([Char], GValue)
constructDOMTextTrackCuePauseOnExit val = constructObjectPropertyBool "pause-on-exit" val
data DOMTextTrackCuePauseOnExitPropertyInfo
instance AttrInfo DOMTextTrackCuePauseOnExitPropertyInfo where
type AttrAllowedOps DOMTextTrackCuePauseOnExitPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMTextTrackCuePauseOnExitPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCuePauseOnExitPropertyInfo = Bool
type AttrLabel DOMTextTrackCuePauseOnExitPropertyInfo = "DOMTextTrackCue::pause-on-exit"
attrGet _ = getDOMTextTrackCuePauseOnExit
attrSet _ = setDOMTextTrackCuePauseOnExit
attrConstruct _ = constructDOMTextTrackCuePauseOnExit
getDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64
getDOMTextTrackCuePosition obj = liftIO $ getObjectPropertyInt64 obj "position"
setDOMTextTrackCuePosition :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m ()
setDOMTextTrackCuePosition obj val = liftIO $ setObjectPropertyInt64 obj "position" val
constructDOMTextTrackCuePosition :: Int64 -> IO ([Char], GValue)
constructDOMTextTrackCuePosition val = constructObjectPropertyInt64 "position" val
data DOMTextTrackCuePositionPropertyInfo
instance AttrInfo DOMTextTrackCuePositionPropertyInfo where
type AttrAllowedOps DOMTextTrackCuePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCuePositionPropertyInfo = (~) Int64
type AttrBaseTypeConstraint DOMTextTrackCuePositionPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCuePositionPropertyInfo = Int64
type AttrLabel DOMTextTrackCuePositionPropertyInfo = "DOMTextTrackCue::position"
attrGet _ = getDOMTextTrackCuePosition
attrSet _ = setDOMTextTrackCuePosition
attrConstruct _ = constructDOMTextTrackCuePosition
getDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> m Int64
getDOMTextTrackCueSize obj = liftIO $ getObjectPropertyInt64 obj "size"
setDOMTextTrackCueSize :: (MonadIO m, DOMTextTrackCueK o) => o -> Int64 -> m ()
setDOMTextTrackCueSize obj val = liftIO $ setObjectPropertyInt64 obj "size" val
constructDOMTextTrackCueSize :: Int64 -> IO ([Char], GValue)
constructDOMTextTrackCueSize val = constructObjectPropertyInt64 "size" val
data DOMTextTrackCueSizePropertyInfo
instance AttrInfo DOMTextTrackCueSizePropertyInfo where
type AttrAllowedOps DOMTextTrackCueSizePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueSizePropertyInfo = (~) Int64
type AttrBaseTypeConstraint DOMTextTrackCueSizePropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueSizePropertyInfo = Int64
type AttrLabel DOMTextTrackCueSizePropertyInfo = "DOMTextTrackCue::size"
attrGet _ = getDOMTextTrackCueSize
attrSet _ = setDOMTextTrackCueSize
attrConstruct _ = constructDOMTextTrackCueSize
getDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> m Bool
getDOMTextTrackCueSnapToLines obj = liftIO $ getObjectPropertyBool obj "snap-to-lines"
setDOMTextTrackCueSnapToLines :: (MonadIO m, DOMTextTrackCueK o) => o -> Bool -> m ()
setDOMTextTrackCueSnapToLines obj val = liftIO $ setObjectPropertyBool obj "snap-to-lines" val
constructDOMTextTrackCueSnapToLines :: Bool -> IO ([Char], GValue)
constructDOMTextTrackCueSnapToLines val = constructObjectPropertyBool "snap-to-lines" val
data DOMTextTrackCueSnapToLinesPropertyInfo
instance AttrInfo DOMTextTrackCueSnapToLinesPropertyInfo where
type AttrAllowedOps DOMTextTrackCueSnapToLinesPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = (~) Bool
type AttrBaseTypeConstraint DOMTextTrackCueSnapToLinesPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueSnapToLinesPropertyInfo = Bool
type AttrLabel DOMTextTrackCueSnapToLinesPropertyInfo = "DOMTextTrackCue::snap-to-lines"
attrGet _ = getDOMTextTrackCueSnapToLines
attrSet _ = setDOMTextTrackCueSnapToLines
attrConstruct _ = constructDOMTextTrackCueSnapToLines
getDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> m Double
getDOMTextTrackCueStartTime obj = liftIO $ getObjectPropertyDouble obj "start-time"
setDOMTextTrackCueStartTime :: (MonadIO m, DOMTextTrackCueK o) => o -> Double -> m ()
setDOMTextTrackCueStartTime obj val = liftIO $ setObjectPropertyDouble obj "start-time" val
constructDOMTextTrackCueStartTime :: Double -> IO ([Char], GValue)
constructDOMTextTrackCueStartTime val = constructObjectPropertyDouble "start-time" val
data DOMTextTrackCueStartTimePropertyInfo
instance AttrInfo DOMTextTrackCueStartTimePropertyInfo where
type AttrAllowedOps DOMTextTrackCueStartTimePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueStartTimePropertyInfo = (~) Double
type AttrBaseTypeConstraint DOMTextTrackCueStartTimePropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueStartTimePropertyInfo = Double
type AttrLabel DOMTextTrackCueStartTimePropertyInfo = "DOMTextTrackCue::start-time"
attrGet _ = getDOMTextTrackCueStartTime
attrSet _ = setDOMTextTrackCueStartTime
attrConstruct _ = constructDOMTextTrackCueStartTime
getDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text
getDOMTextTrackCueText obj = liftIO $ getObjectPropertyString obj "text"
setDOMTextTrackCueText :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m ()
setDOMTextTrackCueText obj val = liftIO $ setObjectPropertyString obj "text" val
constructDOMTextTrackCueText :: T.Text -> IO ([Char], GValue)
constructDOMTextTrackCueText val = constructObjectPropertyString "text" val
data DOMTextTrackCueTextPropertyInfo
instance AttrInfo DOMTextTrackCueTextPropertyInfo where
type AttrAllowedOps DOMTextTrackCueTextPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueTextPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMTextTrackCueTextPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueTextPropertyInfo = T.Text
type AttrLabel DOMTextTrackCueTextPropertyInfo = "DOMTextTrackCue::text"
attrGet _ = getDOMTextTrackCueText
attrSet _ = setDOMTextTrackCueText
attrConstruct _ = constructDOMTextTrackCueText
getDOMTextTrackCueTrack :: (MonadIO m, DOMTextTrackCueK o) => o -> m DOMTextTrack
getDOMTextTrackCueTrack obj = liftIO $ getObjectPropertyObject obj "track" DOMTextTrack
data DOMTextTrackCueTrackPropertyInfo
instance AttrInfo DOMTextTrackCueTrackPropertyInfo where
type AttrAllowedOps DOMTextTrackCueTrackPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueTrackPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTextTrackCueTrackPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueTrackPropertyInfo = DOMTextTrack
type AttrLabel DOMTextTrackCueTrackPropertyInfo = "DOMTextTrackCue::track"
attrGet _ = getDOMTextTrackCueTrack
attrSet _ = undefined
attrConstruct _ = undefined
getDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> m T.Text
getDOMTextTrackCueVertical obj = liftIO $ getObjectPropertyString obj "vertical"
setDOMTextTrackCueVertical :: (MonadIO m, DOMTextTrackCueK o) => o -> T.Text -> m ()
setDOMTextTrackCueVertical obj val = liftIO $ setObjectPropertyString obj "vertical" val
constructDOMTextTrackCueVertical :: T.Text -> IO ([Char], GValue)
constructDOMTextTrackCueVertical val = constructObjectPropertyString "vertical" val
data DOMTextTrackCueVerticalPropertyInfo
instance AttrInfo DOMTextTrackCueVerticalPropertyInfo where
type AttrAllowedOps DOMTextTrackCueVerticalPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint DOMTextTrackCueVerticalPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint DOMTextTrackCueVerticalPropertyInfo = DOMTextTrackCueK
type AttrGetType DOMTextTrackCueVerticalPropertyInfo = T.Text
type AttrLabel DOMTextTrackCueVerticalPropertyInfo = "DOMTextTrackCue::vertical"
attrGet _ = getDOMTextTrackCueVertical
attrSet _ = setDOMTextTrackCueVertical
attrConstruct _ = constructDOMTextTrackCueVertical
type instance AttributeList DOMTextTrackCue = DOMTextTrackCueAttributeList
type DOMTextTrackCueAttributeList = ('[ '("align", DOMTextTrackCueAlignPropertyInfo), '("core-object", DOMObjectCoreObjectPropertyInfo), '("end-time", DOMTextTrackCueEndTimePropertyInfo), '("id", DOMTextTrackCueIdPropertyInfo), '("line", DOMTextTrackCueLinePropertyInfo), '("pause-on-exit", DOMTextTrackCuePauseOnExitPropertyInfo), '("position", DOMTextTrackCuePositionPropertyInfo), '("size", DOMTextTrackCueSizePropertyInfo), '("snap-to-lines", DOMTextTrackCueSnapToLinesPropertyInfo), '("start-time", DOMTextTrackCueStartTimePropertyInfo), '("text", DOMTextTrackCueTextPropertyInfo), '("track", DOMTextTrackCueTrackPropertyInfo), '("vertical", DOMTextTrackCueVerticalPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMTextTrackCue = DOMTextTrackCueSignalList
type DOMTextTrackCueSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_text_track_cue_dispatch_event" webkit_dom_text_track_cue_dispatch_event ::
Ptr DOMTextTrackCue ->
Ptr DOMEvent ->
Ptr (Ptr GError) ->
IO CInt
dOMTextTrackCueDispatchEvent ::
(MonadIO m, DOMTextTrackCueK a, DOMEventK b) =>
a ->
b ->
m ()
dOMTextTrackCueDispatchEvent _obj evt = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let evt' = unsafeManagedPtrCastPtr evt
onException (do
_ <- propagateGError $ webkit_dom_text_track_cue_dispatch_event _obj' evt'
touchManagedPtr _obj
touchManagedPtr evt
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_text_track_cue_get_align" webkit_dom_text_track_cue_get_align ::
Ptr DOMTextTrackCue ->
IO CString
dOMTextTrackCueGetAlign ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m T.Text
dOMTextTrackCueGetAlign _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_align _obj'
checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_align" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_cue_as_html" webkit_dom_text_track_cue_get_cue_as_html ::
Ptr DOMTextTrackCue ->
IO (Ptr DOMDocumentFragment)
dOMTextTrackCueGetCueAsHtml ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m DOMDocumentFragment
dOMTextTrackCueGetCueAsHtml _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_cue_as_html _obj'
checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_cue_as_html" result
result' <- (newObject DOMDocumentFragment) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_end_time" webkit_dom_text_track_cue_get_end_time ::
Ptr DOMTextTrackCue ->
IO CDouble
dOMTextTrackCueGetEndTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m Double
dOMTextTrackCueGetEndTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_end_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_id" webkit_dom_text_track_cue_get_id ::
Ptr DOMTextTrackCue ->
IO CString
dOMTextTrackCueGetId ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m T.Text
dOMTextTrackCueGetId _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_id _obj'
checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_id" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_line" webkit_dom_text_track_cue_get_line ::
Ptr DOMTextTrackCue ->
IO Int64
dOMTextTrackCueGetLine ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m Int64
dOMTextTrackCueGetLine _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_line _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_text_track_cue_get_pause_on_exit" webkit_dom_text_track_cue_get_pause_on_exit ::
Ptr DOMTextTrackCue ->
IO CInt
dOMTextTrackCueGetPauseOnExit ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m Bool
dOMTextTrackCueGetPauseOnExit _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_pause_on_exit _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_position" webkit_dom_text_track_cue_get_position ::
Ptr DOMTextTrackCue ->
IO Int64
dOMTextTrackCueGetPosition ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m Int64
dOMTextTrackCueGetPosition _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_position _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_text_track_cue_get_size" webkit_dom_text_track_cue_get_size ::
Ptr DOMTextTrackCue ->
IO Int64
dOMTextTrackCueGetSize ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m Int64
dOMTextTrackCueGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_size _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_text_track_cue_get_snap_to_lines" webkit_dom_text_track_cue_get_snap_to_lines ::
Ptr DOMTextTrackCue ->
IO CInt
dOMTextTrackCueGetSnapToLines ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m Bool
dOMTextTrackCueGetSnapToLines _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_snap_to_lines _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_start_time" webkit_dom_text_track_cue_get_start_time ::
Ptr DOMTextTrackCue ->
IO CDouble
dOMTextTrackCueGetStartTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m Double
dOMTextTrackCueGetStartTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_start_time _obj'
let result' = realToFrac result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_text" webkit_dom_text_track_cue_get_text ::
Ptr DOMTextTrackCue ->
IO CString
dOMTextTrackCueGetText ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m T.Text
dOMTextTrackCueGetText _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_text _obj'
checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_text" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_track" webkit_dom_text_track_cue_get_track ::
Ptr DOMTextTrackCue ->
IO (Ptr DOMTextTrack)
dOMTextTrackCueGetTrack ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m DOMTextTrack
dOMTextTrackCueGetTrack _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_track _obj'
checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_track" result
result' <- (wrapObject DOMTextTrack) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_get_vertical" webkit_dom_text_track_cue_get_vertical ::
Ptr DOMTextTrackCue ->
IO CString
dOMTextTrackCueGetVertical ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
m T.Text
dOMTextTrackCueGetVertical _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_text_track_cue_get_vertical _obj'
checkUnexpectedReturnNULL "webkit_dom_text_track_cue_get_vertical" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_dom_text_track_cue_set_align" webkit_dom_text_track_cue_set_align ::
Ptr DOMTextTrackCue ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackCueSetAlign ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
T.Text ->
m ()
dOMTextTrackCueSetAlign _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_align _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)
foreign import ccall "webkit_dom_text_track_cue_set_end_time" webkit_dom_text_track_cue_set_end_time ::
Ptr DOMTextTrackCue ->
CDouble ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackCueSetEndTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
Double ->
m ()
dOMTextTrackCueSetEndTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_end_time _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_text_track_cue_set_id" webkit_dom_text_track_cue_set_id ::
Ptr DOMTextTrackCue ->
CString ->
IO ()
dOMTextTrackCueSetId ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
T.Text ->
m ()
dOMTextTrackCueSetId _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_text_track_cue_set_id _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_text_track_cue_set_line" webkit_dom_text_track_cue_set_line ::
Ptr DOMTextTrackCue ->
Int64 ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackCueSetLine ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
Int64 ->
m ()
dOMTextTrackCueSetLine _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_text_track_cue_set_line _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_text_track_cue_set_pause_on_exit" webkit_dom_text_track_cue_set_pause_on_exit ::
Ptr DOMTextTrackCue ->
CInt ->
IO ()
dOMTextTrackCueSetPauseOnExit ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
Bool ->
m ()
dOMTextTrackCueSetPauseOnExit _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_text_track_cue_set_pause_on_exit _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_text_track_cue_set_position" webkit_dom_text_track_cue_set_position ::
Ptr DOMTextTrackCue ->
Int64 ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackCueSetPosition ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
Int64 ->
m ()
dOMTextTrackCueSetPosition _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_text_track_cue_set_position _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_text_track_cue_set_size" webkit_dom_text_track_cue_set_size ::
Ptr DOMTextTrackCue ->
Int64 ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackCueSetSize ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
Int64 ->
m ()
dOMTextTrackCueSetSize _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
propagateGError $ webkit_dom_text_track_cue_set_size _obj' value
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_text_track_cue_set_snap_to_lines" webkit_dom_text_track_cue_set_snap_to_lines ::
Ptr DOMTextTrackCue ->
CInt ->
IO ()
dOMTextTrackCueSetSnapToLines ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
Bool ->
m ()
dOMTextTrackCueSetSnapToLines _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = (fromIntegral . fromEnum) value
webkit_dom_text_track_cue_set_snap_to_lines _obj' value'
touchManagedPtr _obj
return ()
foreign import ccall "webkit_dom_text_track_cue_set_start_time" webkit_dom_text_track_cue_set_start_time ::
Ptr DOMTextTrackCue ->
CDouble ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackCueSetStartTime ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
Double ->
m ()
dOMTextTrackCueSetStartTime _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let value' = realToFrac value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_start_time _obj' value'
touchManagedPtr _obj
return ()
) (do
return ()
)
foreign import ccall "webkit_dom_text_track_cue_set_text" webkit_dom_text_track_cue_set_text ::
Ptr DOMTextTrackCue ->
CString ->
IO ()
dOMTextTrackCueSetText ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
T.Text ->
m ()
dOMTextTrackCueSetText _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
webkit_dom_text_track_cue_set_text _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
foreign import ccall "webkit_dom_text_track_cue_set_vertical" webkit_dom_text_track_cue_set_vertical ::
Ptr DOMTextTrackCue ->
CString ->
Ptr (Ptr GError) ->
IO ()
dOMTextTrackCueSetVertical ::
(MonadIO m, DOMTextTrackCueK a) =>
a ->
T.Text ->
m ()
dOMTextTrackCueSetVertical _obj value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
value' <- textToCString value
onException (do
propagateGError $ webkit_dom_text_track_cue_set_vertical _obj' value'
touchManagedPtr _obj
freeMem value'
return ()
) (do
freeMem value'
)