module GI.GdkPixbuf.Objects.PixbufAnimationIter
(
PixbufAnimationIter(..) ,
PixbufAnimationIterK ,
toPixbufAnimationIter ,
noPixbufAnimationIter ,
pixbufAnimationIterAdvance ,
pixbufAnimationIterGetDelayTime ,
pixbufAnimationIterGetPixbuf ,
pixbufAnimationIterOnCurrentlyLoadingFrame,
) 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.GdkPixbuf.Types
import GI.GdkPixbuf.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
newtype PixbufAnimationIter = PixbufAnimationIter (ForeignPtr PixbufAnimationIter)
foreign import ccall "gdk_pixbuf_animation_iter_get_type"
c_gdk_pixbuf_animation_iter_get_type :: IO GType
type instance ParentTypes PixbufAnimationIter = PixbufAnimationIterParentTypes
type PixbufAnimationIterParentTypes = '[GObject.Object]
instance GObject PixbufAnimationIter where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_gdk_pixbuf_animation_iter_get_type
class GObject o => PixbufAnimationIterK o
instance (GObject o, IsDescendantOf PixbufAnimationIter o) => PixbufAnimationIterK o
toPixbufAnimationIter :: PixbufAnimationIterK o => o -> IO PixbufAnimationIter
toPixbufAnimationIter = unsafeCastTo PixbufAnimationIter
noPixbufAnimationIter :: Maybe PixbufAnimationIter
noPixbufAnimationIter = Nothing
type instance AttributeList PixbufAnimationIter = PixbufAnimationIterAttributeList
type PixbufAnimationIterAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList PixbufAnimationIter = PixbufAnimationIterSignalList
type PixbufAnimationIterSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "gdk_pixbuf_animation_iter_advance" gdk_pixbuf_animation_iter_advance ::
Ptr PixbufAnimationIter ->
Ptr GLib.TimeVal ->
IO CInt
pixbufAnimationIterAdvance ::
(MonadIO m, PixbufAnimationIterK a) =>
a ->
Maybe (GLib.TimeVal) ->
m Bool
pixbufAnimationIterAdvance _obj current_time = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
maybeCurrent_time <- case current_time of
Nothing -> return nullPtr
Just jCurrent_time -> do
let jCurrent_time' = unsafeManagedPtrGetPtr jCurrent_time
return jCurrent_time'
result <- gdk_pixbuf_animation_iter_advance _obj' maybeCurrent_time
let result' = (/= 0) result
touchManagedPtr _obj
whenJust current_time touchManagedPtr
return result'
foreign import ccall "gdk_pixbuf_animation_iter_get_delay_time" gdk_pixbuf_animation_iter_get_delay_time ::
Ptr PixbufAnimationIter ->
IO Int32
pixbufAnimationIterGetDelayTime ::
(MonadIO m, PixbufAnimationIterK a) =>
a ->
m Int32
pixbufAnimationIterGetDelayTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_animation_iter_get_delay_time _obj'
touchManagedPtr _obj
return result
foreign import ccall "gdk_pixbuf_animation_iter_get_pixbuf" gdk_pixbuf_animation_iter_get_pixbuf ::
Ptr PixbufAnimationIter ->
IO (Ptr Pixbuf)
pixbufAnimationIterGetPixbuf ::
(MonadIO m, PixbufAnimationIterK a) =>
a ->
m Pixbuf
pixbufAnimationIterGetPixbuf _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_animation_iter_get_pixbuf _obj'
checkUnexpectedReturnNULL "gdk_pixbuf_animation_iter_get_pixbuf" result
result' <- (newObject Pixbuf) result
touchManagedPtr _obj
return result'
foreign import ccall "gdk_pixbuf_animation_iter_on_currently_loading_frame" gdk_pixbuf_animation_iter_on_currently_loading_frame ::
Ptr PixbufAnimationIter ->
IO CInt
pixbufAnimationIterOnCurrentlyLoadingFrame ::
(MonadIO m, PixbufAnimationIterK a) =>
a ->
m Bool
pixbufAnimationIterOnCurrentlyLoadingFrame _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- gdk_pixbuf_animation_iter_on_currently_loading_frame _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'