module GI.WebKit.Objects.DOMTimeRanges
(
DOMTimeRanges(..) ,
DOMTimeRangesK ,
toDOMTimeRanges ,
noDOMTimeRanges ,
dOMTimeRangesEnd ,
dOMTimeRangesGetLength ,
dOMTimeRangesStart ,
DOMTimeRangesLengthPropertyInfo ,
getDOMTimeRangesLength ,
) 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 DOMTimeRanges = DOMTimeRanges (ForeignPtr DOMTimeRanges)
foreign import ccall "webkit_dom_time_ranges_get_type"
c_webkit_dom_time_ranges_get_type :: IO GType
type instance ParentTypes DOMTimeRanges = DOMTimeRangesParentTypes
type DOMTimeRangesParentTypes = '[DOMObject, GObject.Object]
instance GObject DOMTimeRanges where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_dom_time_ranges_get_type
class GObject o => DOMTimeRangesK o
instance (GObject o, IsDescendantOf DOMTimeRanges o) => DOMTimeRangesK o
toDOMTimeRanges :: DOMTimeRangesK o => o -> IO DOMTimeRanges
toDOMTimeRanges = unsafeCastTo DOMTimeRanges
noDOMTimeRanges :: Maybe DOMTimeRanges
noDOMTimeRanges = Nothing
getDOMTimeRangesLength :: (MonadIO m, DOMTimeRangesK o) => o -> m Word64
getDOMTimeRangesLength obj = liftIO $ getObjectPropertyUInt64 obj "length"
data DOMTimeRangesLengthPropertyInfo
instance AttrInfo DOMTimeRangesLengthPropertyInfo where
type AttrAllowedOps DOMTimeRangesLengthPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint DOMTimeRangesLengthPropertyInfo = (~) ()
type AttrBaseTypeConstraint DOMTimeRangesLengthPropertyInfo = DOMTimeRangesK
type AttrGetType DOMTimeRangesLengthPropertyInfo = Word64
type AttrLabel DOMTimeRangesLengthPropertyInfo = "DOMTimeRanges::length"
attrGet _ = getDOMTimeRangesLength
attrSet _ = undefined
attrConstruct _ = undefined
type instance AttributeList DOMTimeRanges = DOMTimeRangesAttributeList
type DOMTimeRangesAttributeList = ('[ '("core-object", DOMObjectCoreObjectPropertyInfo), '("length", DOMTimeRangesLengthPropertyInfo)] :: [(Symbol, *)])
type instance SignalList DOMTimeRanges = DOMTimeRangesSignalList
type DOMTimeRangesSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_dom_time_ranges_end" webkit_dom_time_ranges_end ::
Ptr DOMTimeRanges ->
Word64 ->
Ptr (Ptr GError) ->
IO CDouble
dOMTimeRangesEnd ::
(MonadIO m, DOMTimeRangesK a) =>
a ->
Word64 ->
m Double
dOMTimeRangesEnd _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_time_ranges_end _obj' index
let result' = realToFrac result
touchManagedPtr _obj
return result'
) (do
return ()
)
foreign import ccall "webkit_dom_time_ranges_get_length" webkit_dom_time_ranges_get_length ::
Ptr DOMTimeRanges ->
IO Word64
dOMTimeRangesGetLength ::
(MonadIO m, DOMTimeRangesK a) =>
a ->
m Word64
dOMTimeRangesGetLength _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_dom_time_ranges_get_length _obj'
touchManagedPtr _obj
return result
foreign import ccall "webkit_dom_time_ranges_start" webkit_dom_time_ranges_start ::
Ptr DOMTimeRanges ->
Word64 ->
Ptr (Ptr GError) ->
IO CDouble
dOMTimeRangesStart ::
(MonadIO m, DOMTimeRangesK a) =>
a ->
Word64 ->
m Double
dOMTimeRangesStart _obj index = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
onException (do
result <- propagateGError $ webkit_dom_time_ranges_start _obj' index
let result' = realToFrac result
touchManagedPtr _obj
return result'
) (do
return ()
)