module GI.GObject.Structs.CClosure
(
CClosure(..) ,
noCClosure ,
cClosureReadCallback ,
cClosureReadClosure ,
) 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.GObject.Types
import GI.GObject.Callbacks
newtype CClosure = CClosure (ForeignPtr CClosure)
noCClosure :: Maybe CClosure
noCClosure = Nothing
cClosureReadClosure :: CClosure -> IO Closure
cClosureReadClosure s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO (Ptr Closure)
val' <- (newBoxed Closure) val
return val'
cClosureReadCallback :: CClosure -> IO (Ptr ())
cClosureReadCallback s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 64) :: IO (Ptr ())
return val