module GI.Gdk.Objects.FrameClock
(
FrameClock(..) ,
IsFrameClock ,
toFrameClock ,
noFrameClock ,
FrameClockBeginUpdatingMethodInfo ,
frameClockBeginUpdating ,
FrameClockEndUpdatingMethodInfo ,
frameClockEndUpdating ,
FrameClockGetCurrentTimingsMethodInfo ,
frameClockGetCurrentTimings ,
FrameClockGetFrameCounterMethodInfo ,
frameClockGetFrameCounter ,
FrameClockGetFrameTimeMethodInfo ,
frameClockGetFrameTime ,
FrameClockGetHistoryStartMethodInfo ,
frameClockGetHistoryStart ,
FrameClockGetRefreshInfoMethodInfo ,
frameClockGetRefreshInfo ,
FrameClockGetTimingsMethodInfo ,
frameClockGetTimings ,
FrameClockRequestPhaseMethodInfo ,
frameClockRequestPhase ,
C_FrameClockAfterPaintCallback ,
FrameClockAfterPaintCallback ,
FrameClockAfterPaintSignalInfo ,
afterFrameClockAfterPaint ,
genClosure_FrameClockAfterPaint ,
mk_FrameClockAfterPaintCallback ,
noFrameClockAfterPaintCallback ,
onFrameClockAfterPaint ,
wrap_FrameClockAfterPaintCallback ,
C_FrameClockBeforePaintCallback ,
FrameClockBeforePaintCallback ,
FrameClockBeforePaintSignalInfo ,
afterFrameClockBeforePaint ,
genClosure_FrameClockBeforePaint ,
mk_FrameClockBeforePaintCallback ,
noFrameClockBeforePaintCallback ,
onFrameClockBeforePaint ,
wrap_FrameClockBeforePaintCallback ,
C_FrameClockFlushEventsCallback ,
FrameClockFlushEventsCallback ,
FrameClockFlushEventsSignalInfo ,
afterFrameClockFlushEvents ,
genClosure_FrameClockFlushEvents ,
mk_FrameClockFlushEventsCallback ,
noFrameClockFlushEventsCallback ,
onFrameClockFlushEvents ,
wrap_FrameClockFlushEventsCallback ,
C_FrameClockLayoutCallback ,
FrameClockLayoutCallback ,
FrameClockLayoutSignalInfo ,
afterFrameClockLayout ,
genClosure_FrameClockLayout ,
mk_FrameClockLayoutCallback ,
noFrameClockLayoutCallback ,
onFrameClockLayout ,
wrap_FrameClockLayoutCallback ,
C_FrameClockPaintCallback ,
FrameClockPaintCallback ,
FrameClockPaintSignalInfo ,
afterFrameClockPaint ,
genClosure_FrameClockPaint ,
mk_FrameClockPaintCallback ,
noFrameClockPaintCallback ,
onFrameClockPaint ,
wrap_FrameClockPaintCallback ,
C_FrameClockResumeEventsCallback ,
FrameClockResumeEventsCallback ,
FrameClockResumeEventsSignalInfo ,
afterFrameClockResumeEvents ,
genClosure_FrameClockResumeEvents ,
mk_FrameClockResumeEventsCallback ,
noFrameClockResumeEventsCallback ,
onFrameClockResumeEvents ,
wrap_FrameClockResumeEventsCallback ,
C_FrameClockUpdateCallback ,
FrameClockUpdateCallback ,
FrameClockUpdateSignalInfo ,
afterFrameClockUpdate ,
genClosure_FrameClockUpdate ,
mk_FrameClockUpdateCallback ,
noFrameClockUpdateCallback ,
onFrameClockUpdate ,
wrap_FrameClockUpdateCallback ,
) 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.Gdk.Flags as Gdk.Flags
import qualified GI.Gdk.Structs.FrameTimings as Gdk.FrameTimings
newtype FrameClock = FrameClock (ManagedPtr FrameClock)
foreign import ccall "gdk_frame_clock_get_type"
c_gdk_frame_clock_get_type :: IO GType
instance GObject FrameClock where
gobjectType _ = c_gdk_frame_clock_get_type
class GObject o => IsFrameClock o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError FrameClock a) =>
IsFrameClock a
#endif
instance IsFrameClock FrameClock
instance GObject.Object.IsObject FrameClock
toFrameClock :: IsFrameClock o => o -> IO FrameClock
toFrameClock = unsafeCastTo FrameClock
noFrameClock :: Maybe FrameClock
noFrameClock = Nothing
type family ResolveFrameClockMethod (t :: Symbol) (o :: *) :: * where
ResolveFrameClockMethod "beginUpdating" o = FrameClockBeginUpdatingMethodInfo
ResolveFrameClockMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFrameClockMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFrameClockMethod "endUpdating" o = FrameClockEndUpdatingMethodInfo
ResolveFrameClockMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFrameClockMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFrameClockMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFrameClockMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFrameClockMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFrameClockMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFrameClockMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFrameClockMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveFrameClockMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveFrameClockMethod "requestPhase" o = FrameClockRequestPhaseMethodInfo
ResolveFrameClockMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFrameClockMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFrameClockMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFrameClockMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFrameClockMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFrameClockMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFrameClockMethod "getCurrentTimings" o = FrameClockGetCurrentTimingsMethodInfo
ResolveFrameClockMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFrameClockMethod "getFrameCounter" o = FrameClockGetFrameCounterMethodInfo
ResolveFrameClockMethod "getFrameTime" o = FrameClockGetFrameTimeMethodInfo
ResolveFrameClockMethod "getHistoryStart" o = FrameClockGetHistoryStartMethodInfo
ResolveFrameClockMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFrameClockMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFrameClockMethod "getRefreshInfo" o = FrameClockGetRefreshInfoMethodInfo
ResolveFrameClockMethod "getTimings" o = FrameClockGetTimingsMethodInfo
ResolveFrameClockMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFrameClockMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFrameClockMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFrameClockMethod t FrameClock, O.MethodInfo info FrameClock p) => O.IsLabelProxy t (FrameClock -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveFrameClockMethod t FrameClock, O.MethodInfo info FrameClock p) => O.IsLabel t (FrameClock -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
type FrameClockAfterPaintCallback =
IO ()
noFrameClockAfterPaintCallback :: Maybe FrameClockAfterPaintCallback
noFrameClockAfterPaintCallback = Nothing
type C_FrameClockAfterPaintCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FrameClockAfterPaintCallback :: C_FrameClockAfterPaintCallback -> IO (FunPtr C_FrameClockAfterPaintCallback)
genClosure_FrameClockAfterPaint :: FrameClockAfterPaintCallback -> IO Closure
genClosure_FrameClockAfterPaint cb = do
let cb' = wrap_FrameClockAfterPaintCallback cb
mk_FrameClockAfterPaintCallback cb' >>= newCClosure
wrap_FrameClockAfterPaintCallback ::
FrameClockAfterPaintCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FrameClockAfterPaintCallback _cb _ _ = do
_cb
onFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId
onFrameClockAfterPaint obj cb = liftIO $ connectFrameClockAfterPaint obj cb SignalConnectBefore
afterFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId
afterFrameClockAfterPaint obj cb = connectFrameClockAfterPaint obj cb SignalConnectAfter
connectFrameClockAfterPaint :: (GObject a, MonadIO m) =>
a -> FrameClockAfterPaintCallback -> SignalConnectMode -> m SignalHandlerId
connectFrameClockAfterPaint obj cb after = liftIO $ do
let cb' = wrap_FrameClockAfterPaintCallback cb
cb'' <- mk_FrameClockAfterPaintCallback cb'
connectSignalFunPtr obj "after-paint" cb'' after
type FrameClockBeforePaintCallback =
IO ()
noFrameClockBeforePaintCallback :: Maybe FrameClockBeforePaintCallback
noFrameClockBeforePaintCallback = Nothing
type C_FrameClockBeforePaintCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FrameClockBeforePaintCallback :: C_FrameClockBeforePaintCallback -> IO (FunPtr C_FrameClockBeforePaintCallback)
genClosure_FrameClockBeforePaint :: FrameClockBeforePaintCallback -> IO Closure
genClosure_FrameClockBeforePaint cb = do
let cb' = wrap_FrameClockBeforePaintCallback cb
mk_FrameClockBeforePaintCallback cb' >>= newCClosure
wrap_FrameClockBeforePaintCallback ::
FrameClockBeforePaintCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FrameClockBeforePaintCallback _cb _ _ = do
_cb
onFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId
onFrameClockBeforePaint obj cb = liftIO $ connectFrameClockBeforePaint obj cb SignalConnectBefore
afterFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId
afterFrameClockBeforePaint obj cb = connectFrameClockBeforePaint obj cb SignalConnectAfter
connectFrameClockBeforePaint :: (GObject a, MonadIO m) =>
a -> FrameClockBeforePaintCallback -> SignalConnectMode -> m SignalHandlerId
connectFrameClockBeforePaint obj cb after = liftIO $ do
let cb' = wrap_FrameClockBeforePaintCallback cb
cb'' <- mk_FrameClockBeforePaintCallback cb'
connectSignalFunPtr obj "before-paint" cb'' after
type FrameClockFlushEventsCallback =
IO ()
noFrameClockFlushEventsCallback :: Maybe FrameClockFlushEventsCallback
noFrameClockFlushEventsCallback = Nothing
type C_FrameClockFlushEventsCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FrameClockFlushEventsCallback :: C_FrameClockFlushEventsCallback -> IO (FunPtr C_FrameClockFlushEventsCallback)
genClosure_FrameClockFlushEvents :: FrameClockFlushEventsCallback -> IO Closure
genClosure_FrameClockFlushEvents cb = do
let cb' = wrap_FrameClockFlushEventsCallback cb
mk_FrameClockFlushEventsCallback cb' >>= newCClosure
wrap_FrameClockFlushEventsCallback ::
FrameClockFlushEventsCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FrameClockFlushEventsCallback _cb _ _ = do
_cb
onFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId
onFrameClockFlushEvents obj cb = liftIO $ connectFrameClockFlushEvents obj cb SignalConnectBefore
afterFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId
afterFrameClockFlushEvents obj cb = connectFrameClockFlushEvents obj cb SignalConnectAfter
connectFrameClockFlushEvents :: (GObject a, MonadIO m) =>
a -> FrameClockFlushEventsCallback -> SignalConnectMode -> m SignalHandlerId
connectFrameClockFlushEvents obj cb after = liftIO $ do
let cb' = wrap_FrameClockFlushEventsCallback cb
cb'' <- mk_FrameClockFlushEventsCallback cb'
connectSignalFunPtr obj "flush-events" cb'' after
type FrameClockLayoutCallback =
IO ()
noFrameClockLayoutCallback :: Maybe FrameClockLayoutCallback
noFrameClockLayoutCallback = Nothing
type C_FrameClockLayoutCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FrameClockLayoutCallback :: C_FrameClockLayoutCallback -> IO (FunPtr C_FrameClockLayoutCallback)
genClosure_FrameClockLayout :: FrameClockLayoutCallback -> IO Closure
genClosure_FrameClockLayout cb = do
let cb' = wrap_FrameClockLayoutCallback cb
mk_FrameClockLayoutCallback cb' >>= newCClosure
wrap_FrameClockLayoutCallback ::
FrameClockLayoutCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FrameClockLayoutCallback _cb _ _ = do
_cb
onFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId
onFrameClockLayout obj cb = liftIO $ connectFrameClockLayout obj cb SignalConnectBefore
afterFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId
afterFrameClockLayout obj cb = connectFrameClockLayout obj cb SignalConnectAfter
connectFrameClockLayout :: (GObject a, MonadIO m) =>
a -> FrameClockLayoutCallback -> SignalConnectMode -> m SignalHandlerId
connectFrameClockLayout obj cb after = liftIO $ do
let cb' = wrap_FrameClockLayoutCallback cb
cb'' <- mk_FrameClockLayoutCallback cb'
connectSignalFunPtr obj "layout" cb'' after
type FrameClockPaintCallback =
IO ()
noFrameClockPaintCallback :: Maybe FrameClockPaintCallback
noFrameClockPaintCallback = Nothing
type C_FrameClockPaintCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FrameClockPaintCallback :: C_FrameClockPaintCallback -> IO (FunPtr C_FrameClockPaintCallback)
genClosure_FrameClockPaint :: FrameClockPaintCallback -> IO Closure
genClosure_FrameClockPaint cb = do
let cb' = wrap_FrameClockPaintCallback cb
mk_FrameClockPaintCallback cb' >>= newCClosure
wrap_FrameClockPaintCallback ::
FrameClockPaintCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FrameClockPaintCallback _cb _ _ = do
_cb
onFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId
onFrameClockPaint obj cb = liftIO $ connectFrameClockPaint obj cb SignalConnectBefore
afterFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId
afterFrameClockPaint obj cb = connectFrameClockPaint obj cb SignalConnectAfter
connectFrameClockPaint :: (GObject a, MonadIO m) =>
a -> FrameClockPaintCallback -> SignalConnectMode -> m SignalHandlerId
connectFrameClockPaint obj cb after = liftIO $ do
let cb' = wrap_FrameClockPaintCallback cb
cb'' <- mk_FrameClockPaintCallback cb'
connectSignalFunPtr obj "paint" cb'' after
type FrameClockResumeEventsCallback =
IO ()
noFrameClockResumeEventsCallback :: Maybe FrameClockResumeEventsCallback
noFrameClockResumeEventsCallback = Nothing
type C_FrameClockResumeEventsCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FrameClockResumeEventsCallback :: C_FrameClockResumeEventsCallback -> IO (FunPtr C_FrameClockResumeEventsCallback)
genClosure_FrameClockResumeEvents :: FrameClockResumeEventsCallback -> IO Closure
genClosure_FrameClockResumeEvents cb = do
let cb' = wrap_FrameClockResumeEventsCallback cb
mk_FrameClockResumeEventsCallback cb' >>= newCClosure
wrap_FrameClockResumeEventsCallback ::
FrameClockResumeEventsCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FrameClockResumeEventsCallback _cb _ _ = do
_cb
onFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId
onFrameClockResumeEvents obj cb = liftIO $ connectFrameClockResumeEvents obj cb SignalConnectBefore
afterFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId
afterFrameClockResumeEvents obj cb = connectFrameClockResumeEvents obj cb SignalConnectAfter
connectFrameClockResumeEvents :: (GObject a, MonadIO m) =>
a -> FrameClockResumeEventsCallback -> SignalConnectMode -> m SignalHandlerId
connectFrameClockResumeEvents obj cb after = liftIO $ do
let cb' = wrap_FrameClockResumeEventsCallback cb
cb'' <- mk_FrameClockResumeEventsCallback cb'
connectSignalFunPtr obj "resume-events" cb'' after
type FrameClockUpdateCallback =
IO ()
noFrameClockUpdateCallback :: Maybe FrameClockUpdateCallback
noFrameClockUpdateCallback = Nothing
type C_FrameClockUpdateCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_FrameClockUpdateCallback :: C_FrameClockUpdateCallback -> IO (FunPtr C_FrameClockUpdateCallback)
genClosure_FrameClockUpdate :: FrameClockUpdateCallback -> IO Closure
genClosure_FrameClockUpdate cb = do
let cb' = wrap_FrameClockUpdateCallback cb
mk_FrameClockUpdateCallback cb' >>= newCClosure
wrap_FrameClockUpdateCallback ::
FrameClockUpdateCallback ->
Ptr () ->
Ptr () ->
IO ()
wrap_FrameClockUpdateCallback _cb _ _ = do
_cb
onFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId
onFrameClockUpdate obj cb = liftIO $ connectFrameClockUpdate obj cb SignalConnectBefore
afterFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId
afterFrameClockUpdate obj cb = connectFrameClockUpdate obj cb SignalConnectAfter
connectFrameClockUpdate :: (GObject a, MonadIO m) =>
a -> FrameClockUpdateCallback -> SignalConnectMode -> m SignalHandlerId
connectFrameClockUpdate obj cb after = liftIO $ do
let cb' = wrap_FrameClockUpdateCallback cb
cb'' <- mk_FrameClockUpdateCallback cb'
connectSignalFunPtr obj "update" cb'' after
instance O.HasAttributeList FrameClock
type instance O.AttributeList FrameClock = FrameClockAttributeList
type FrameClockAttributeList = ('[ ] :: [(Symbol, *)])
data FrameClockAfterPaintSignalInfo
instance SignalInfo FrameClockAfterPaintSignalInfo where
type HaskellCallbackType FrameClockAfterPaintSignalInfo = FrameClockAfterPaintCallback
connectSignal _ = connectFrameClockAfterPaint
data FrameClockBeforePaintSignalInfo
instance SignalInfo FrameClockBeforePaintSignalInfo where
type HaskellCallbackType FrameClockBeforePaintSignalInfo = FrameClockBeforePaintCallback
connectSignal _ = connectFrameClockBeforePaint
data FrameClockFlushEventsSignalInfo
instance SignalInfo FrameClockFlushEventsSignalInfo where
type HaskellCallbackType FrameClockFlushEventsSignalInfo = FrameClockFlushEventsCallback
connectSignal _ = connectFrameClockFlushEvents
data FrameClockLayoutSignalInfo
instance SignalInfo FrameClockLayoutSignalInfo where
type HaskellCallbackType FrameClockLayoutSignalInfo = FrameClockLayoutCallback
connectSignal _ = connectFrameClockLayout
data FrameClockPaintSignalInfo
instance SignalInfo FrameClockPaintSignalInfo where
type HaskellCallbackType FrameClockPaintSignalInfo = FrameClockPaintCallback
connectSignal _ = connectFrameClockPaint
data FrameClockResumeEventsSignalInfo
instance SignalInfo FrameClockResumeEventsSignalInfo where
type HaskellCallbackType FrameClockResumeEventsSignalInfo = FrameClockResumeEventsCallback
connectSignal _ = connectFrameClockResumeEvents
data FrameClockUpdateSignalInfo
instance SignalInfo FrameClockUpdateSignalInfo where
type HaskellCallbackType FrameClockUpdateSignalInfo = FrameClockUpdateCallback
connectSignal _ = connectFrameClockUpdate
type instance O.SignalList FrameClock = FrameClockSignalList
type FrameClockSignalList = ('[ '("afterPaint", FrameClockAfterPaintSignalInfo), '("beforePaint", FrameClockBeforePaintSignalInfo), '("flushEvents", FrameClockFlushEventsSignalInfo), '("layout", FrameClockLayoutSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("paint", FrameClockPaintSignalInfo), '("resumeEvents", FrameClockResumeEventsSignalInfo), '("update", FrameClockUpdateSignalInfo)] :: [(Symbol, *)])
foreign import ccall "gdk_frame_clock_begin_updating" gdk_frame_clock_begin_updating ::
Ptr FrameClock ->
IO ()
frameClockBeginUpdating ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> m ()
frameClockBeginUpdating frameClock = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
gdk_frame_clock_begin_updating frameClock'
touchManagedPtr frameClock
return ()
data FrameClockBeginUpdatingMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockBeginUpdatingMethodInfo a signature where
overloadedMethod _ = frameClockBeginUpdating
foreign import ccall "gdk_frame_clock_end_updating" gdk_frame_clock_end_updating ::
Ptr FrameClock ->
IO ()
frameClockEndUpdating ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> m ()
frameClockEndUpdating frameClock = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
gdk_frame_clock_end_updating frameClock'
touchManagedPtr frameClock
return ()
data FrameClockEndUpdatingMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockEndUpdatingMethodInfo a signature where
overloadedMethod _ = frameClockEndUpdating
foreign import ccall "gdk_frame_clock_get_current_timings" gdk_frame_clock_get_current_timings ::
Ptr FrameClock ->
IO (Ptr Gdk.FrameTimings.FrameTimings)
frameClockGetCurrentTimings ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> m (Maybe Gdk.FrameTimings.FrameTimings)
frameClockGetCurrentTimings frameClock = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
result <- gdk_frame_clock_get_current_timings frameClock'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Gdk.FrameTimings.FrameTimings) result'
return result''
touchManagedPtr frameClock
return maybeResult
data FrameClockGetCurrentTimingsMethodInfo
instance (signature ~ (m (Maybe Gdk.FrameTimings.FrameTimings)), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockGetCurrentTimingsMethodInfo a signature where
overloadedMethod _ = frameClockGetCurrentTimings
foreign import ccall "gdk_frame_clock_get_frame_counter" gdk_frame_clock_get_frame_counter ::
Ptr FrameClock ->
IO Int64
frameClockGetFrameCounter ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> m Int64
frameClockGetFrameCounter frameClock = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
result <- gdk_frame_clock_get_frame_counter frameClock'
touchManagedPtr frameClock
return result
data FrameClockGetFrameCounterMethodInfo
instance (signature ~ (m Int64), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockGetFrameCounterMethodInfo a signature where
overloadedMethod _ = frameClockGetFrameCounter
foreign import ccall "gdk_frame_clock_get_frame_time" gdk_frame_clock_get_frame_time ::
Ptr FrameClock ->
IO Int64
frameClockGetFrameTime ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> m Int64
frameClockGetFrameTime frameClock = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
result <- gdk_frame_clock_get_frame_time frameClock'
touchManagedPtr frameClock
return result
data FrameClockGetFrameTimeMethodInfo
instance (signature ~ (m Int64), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockGetFrameTimeMethodInfo a signature where
overloadedMethod _ = frameClockGetFrameTime
foreign import ccall "gdk_frame_clock_get_history_start" gdk_frame_clock_get_history_start ::
Ptr FrameClock ->
IO Int64
frameClockGetHistoryStart ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> m Int64
frameClockGetHistoryStart frameClock = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
result <- gdk_frame_clock_get_history_start frameClock'
touchManagedPtr frameClock
return result
data FrameClockGetHistoryStartMethodInfo
instance (signature ~ (m Int64), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockGetHistoryStartMethodInfo a signature where
overloadedMethod _ = frameClockGetHistoryStart
foreign import ccall "gdk_frame_clock_get_refresh_info" gdk_frame_clock_get_refresh_info ::
Ptr FrameClock ->
Int64 ->
Int64 ->
Int64 ->
IO ()
frameClockGetRefreshInfo ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> Int64
-> Int64
-> Int64
-> m ()
frameClockGetRefreshInfo frameClock baseTime refreshIntervalReturn presentationTimeReturn = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
gdk_frame_clock_get_refresh_info frameClock' baseTime refreshIntervalReturn presentationTimeReturn
touchManagedPtr frameClock
return ()
data FrameClockGetRefreshInfoMethodInfo
instance (signature ~ (Int64 -> Int64 -> Int64 -> m ()), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockGetRefreshInfoMethodInfo a signature where
overloadedMethod _ = frameClockGetRefreshInfo
foreign import ccall "gdk_frame_clock_get_timings" gdk_frame_clock_get_timings ::
Ptr FrameClock ->
Int64 ->
IO (Ptr Gdk.FrameTimings.FrameTimings)
frameClockGetTimings ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> Int64
-> m (Maybe Gdk.FrameTimings.FrameTimings)
frameClockGetTimings frameClock frameCounter = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
result <- gdk_frame_clock_get_timings frameClock' frameCounter
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Gdk.FrameTimings.FrameTimings) result'
return result''
touchManagedPtr frameClock
return maybeResult
data FrameClockGetTimingsMethodInfo
instance (signature ~ (Int64 -> m (Maybe Gdk.FrameTimings.FrameTimings)), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockGetTimingsMethodInfo a signature where
overloadedMethod _ = frameClockGetTimings
foreign import ccall "gdk_frame_clock_request_phase" gdk_frame_clock_request_phase ::
Ptr FrameClock ->
CUInt ->
IO ()
frameClockRequestPhase ::
(B.CallStack.HasCallStack, MonadIO m, IsFrameClock a) =>
a
-> [Gdk.Flags.FrameClockPhase]
-> m ()
frameClockRequestPhase frameClock phase = liftIO $ do
frameClock' <- unsafeManagedPtrCastPtr frameClock
let phase' = gflagsToWord phase
gdk_frame_clock_request_phase frameClock' phase'
touchManagedPtr frameClock
return ()
data FrameClockRequestPhaseMethodInfo
instance (signature ~ ([Gdk.Flags.FrameClockPhase] -> m ()), MonadIO m, IsFrameClock a) => O.MethodInfo FrameClockRequestPhaseMethodInfo a signature where
overloadedMethod _ = frameClockRequestPhase