{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Structs.PaintVolume
(
PaintVolume(..) ,
#if defined(ENABLE_OVERLOADING)
ResolvePaintVolumeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PaintVolumeCopyMethodInfo ,
#endif
paintVolumeCopy ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeFreeMethodInfo ,
#endif
paintVolumeFree ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeGetDepthMethodInfo ,
#endif
paintVolumeGetDepth ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeGetHeightMethodInfo ,
#endif
paintVolumeGetHeight ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeGetOriginMethodInfo ,
#endif
paintVolumeGetOrigin ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeGetWidthMethodInfo ,
#endif
paintVolumeGetWidth ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeSetDepthMethodInfo ,
#endif
paintVolumeSetDepth ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeSetFromAllocationMethodInfo ,
#endif
paintVolumeSetFromAllocation ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeSetHeightMethodInfo ,
#endif
paintVolumeSetHeight ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeSetOriginMethodInfo ,
#endif
paintVolumeSetOrigin ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeSetWidthMethodInfo ,
#endif
paintVolumeSetWidth ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeUnionMethodInfo ,
#endif
paintVolumeUnion ,
#if defined(ENABLE_OVERLOADING)
PaintVolumeUnionBoxMethodInfo ,
#endif
paintVolumeUnionBox ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
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 GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Clutter.Objects.Actor as Clutter.Actor
import {-# SOURCE #-} qualified GI.Clutter.Structs.ActorBox as Clutter.ActorBox
import {-# SOURCE #-} qualified GI.Clutter.Structs.Vertex as Clutter.Vertex
newtype PaintVolume = PaintVolume (SP.ManagedPtr PaintVolume)
deriving (PaintVolume -> PaintVolume -> Bool
(PaintVolume -> PaintVolume -> Bool)
-> (PaintVolume -> PaintVolume -> Bool) -> Eq PaintVolume
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PaintVolume -> PaintVolume -> Bool
$c/= :: PaintVolume -> PaintVolume -> Bool
== :: PaintVolume -> PaintVolume -> Bool
$c== :: PaintVolume -> PaintVolume -> Bool
Eq)
instance SP.ManagedPtrNewtype PaintVolume where
toManagedPtr :: PaintVolume -> ManagedPtr PaintVolume
toManagedPtr (PaintVolume ManagedPtr PaintVolume
p) = ManagedPtr PaintVolume
p
foreign import ccall "clutter_paint_volume_get_type" c_clutter_paint_volume_get_type ::
IO GType
type instance O.ParentTypes PaintVolume = '[]
instance O.HasParentTypes PaintVolume
instance B.Types.TypedObject PaintVolume where
glibType :: IO GType
glibType = IO GType
c_clutter_paint_volume_get_type
instance B.Types.GBoxed PaintVolume
instance B.GValue.IsGValue (Maybe PaintVolume) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_paint_volume_get_type
gvalueSet_ :: Ptr GValue -> Maybe PaintVolume -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PaintVolume
P.Nothing = Ptr GValue -> Ptr PaintVolume -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr PaintVolume
forall a. Ptr a
FP.nullPtr :: FP.Ptr PaintVolume)
gvalueSet_ Ptr GValue
gv (P.Just PaintVolume
obj) = PaintVolume -> (Ptr PaintVolume -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PaintVolume
obj (Ptr GValue -> Ptr PaintVolume -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PaintVolume)
gvalueGet_ Ptr GValue
gv = do
Ptr PaintVolume
ptr <- Ptr GValue -> IO (Ptr PaintVolume)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr PaintVolume)
if Ptr PaintVolume
ptr Ptr PaintVolume -> Ptr PaintVolume -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr PaintVolume
forall a. Ptr a
FP.nullPtr
then PaintVolume -> Maybe PaintVolume
forall a. a -> Maybe a
P.Just (PaintVolume -> Maybe PaintVolume)
-> IO PaintVolume -> IO (Maybe PaintVolume)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr PaintVolume -> PaintVolume)
-> Ptr PaintVolume -> IO PaintVolume
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr PaintVolume -> PaintVolume
PaintVolume Ptr PaintVolume
ptr
else Maybe PaintVolume -> IO (Maybe PaintVolume)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PaintVolume
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PaintVolume
type instance O.AttributeList PaintVolume = PaintVolumeAttributeList
type PaintVolumeAttributeList = ('[ ] :: [(Symbol, *)])
#endif
foreign import ccall "clutter_paint_volume_copy" clutter_paint_volume_copy ::
Ptr PaintVolume ->
IO (Ptr PaintVolume)
paintVolumeCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> m PaintVolume
paintVolumeCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> m PaintVolume
paintVolumeCopy PaintVolume
pv = IO PaintVolume -> m PaintVolume
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PaintVolume -> m PaintVolume)
-> IO PaintVolume -> m PaintVolume
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
Ptr PaintVolume
result <- Ptr PaintVolume -> IO (Ptr PaintVolume)
clutter_paint_volume_copy Ptr PaintVolume
pv'
Text -> Ptr PaintVolume -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"paintVolumeCopy" Ptr PaintVolume
result
PaintVolume
result' <- ((ManagedPtr PaintVolume -> PaintVolume)
-> Ptr PaintVolume -> IO PaintVolume
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr PaintVolume -> PaintVolume
PaintVolume) Ptr PaintVolume
result
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
PaintVolume -> IO PaintVolume
forall (m :: * -> *) a. Monad m => a -> m a
return PaintVolume
result'
#if defined(ENABLE_OVERLOADING)
data PaintVolumeCopyMethodInfo
instance (signature ~ (m PaintVolume), MonadIO m) => O.OverloadedMethod PaintVolumeCopyMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeCopy
instance O.OverloadedMethodInfo PaintVolumeCopyMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeCopy"
})
#endif
foreign import ccall "clutter_paint_volume_free" clutter_paint_volume_free ::
Ptr PaintVolume ->
IO ()
paintVolumeFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> m ()
paintVolumeFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> m ()
paintVolumeFree PaintVolume
pv = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
Ptr PaintVolume -> IO ()
clutter_paint_volume_free Ptr PaintVolume
pv'
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintVolumeFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod PaintVolumeFreeMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeFree
instance O.OverloadedMethodInfo PaintVolumeFreeMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeFree"
})
#endif
foreign import ccall "clutter_paint_volume_get_depth" clutter_paint_volume_get_depth ::
Ptr PaintVolume ->
IO CFloat
paintVolumeGetDepth ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> m Float
paintVolumeGetDepth :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> m Float
paintVolumeGetDepth PaintVolume
pv = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
CFloat
result <- Ptr PaintVolume -> IO CFloat
clutter_paint_volume_get_depth Ptr PaintVolume
pv'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
Float -> IO Float
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data PaintVolumeGetDepthMethodInfo
instance (signature ~ (m Float), MonadIO m) => O.OverloadedMethod PaintVolumeGetDepthMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeGetDepth
instance O.OverloadedMethodInfo PaintVolumeGetDepthMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeGetDepth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeGetDepth"
})
#endif
foreign import ccall "clutter_paint_volume_get_height" clutter_paint_volume_get_height ::
Ptr PaintVolume ->
IO CFloat
paintVolumeGetHeight ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> m Float
paintVolumeGetHeight :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> m Float
paintVolumeGetHeight PaintVolume
pv = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
CFloat
result <- Ptr PaintVolume -> IO CFloat
clutter_paint_volume_get_height Ptr PaintVolume
pv'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
Float -> IO Float
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data PaintVolumeGetHeightMethodInfo
instance (signature ~ (m Float), MonadIO m) => O.OverloadedMethod PaintVolumeGetHeightMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeGetHeight
instance O.OverloadedMethodInfo PaintVolumeGetHeightMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeGetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeGetHeight"
})
#endif
foreign import ccall "clutter_paint_volume_get_origin" clutter_paint_volume_get_origin ::
Ptr PaintVolume ->
Ptr Clutter.Vertex.Vertex ->
IO ()
paintVolumeGetOrigin ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> m (Clutter.Vertex.Vertex)
paintVolumeGetOrigin :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> m Vertex
paintVolumeGetOrigin PaintVolume
pv = IO Vertex -> m Vertex
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Vertex -> m Vertex) -> IO Vertex -> m Vertex
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
Ptr Vertex
vertex <- Int -> IO (Ptr Vertex)
forall a. GBoxed a => Int -> IO (Ptr a)
SP.callocBoxedBytes Int
12 :: IO (Ptr Clutter.Vertex.Vertex)
Ptr PaintVolume -> Ptr Vertex -> IO ()
clutter_paint_volume_get_origin Ptr PaintVolume
pv' Ptr Vertex
vertex
Vertex
vertex' <- ((ManagedPtr Vertex -> Vertex) -> Ptr Vertex -> IO Vertex
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Vertex -> Vertex
Clutter.Vertex.Vertex) Ptr Vertex
vertex
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
Vertex -> IO Vertex
forall (m :: * -> *) a. Monad m => a -> m a
return Vertex
vertex'
#if defined(ENABLE_OVERLOADING)
data PaintVolumeGetOriginMethodInfo
instance (signature ~ (m (Clutter.Vertex.Vertex)), MonadIO m) => O.OverloadedMethod PaintVolumeGetOriginMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeGetOrigin
instance O.OverloadedMethodInfo PaintVolumeGetOriginMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeGetOrigin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeGetOrigin"
})
#endif
foreign import ccall "clutter_paint_volume_get_width" clutter_paint_volume_get_width ::
Ptr PaintVolume ->
IO CFloat
paintVolumeGetWidth ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> m Float
paintVolumeGetWidth :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> m Float
paintVolumeGetWidth PaintVolume
pv = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
CFloat
result <- Ptr PaintVolume -> IO CFloat
clutter_paint_volume_get_width Ptr PaintVolume
pv'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
Float -> IO Float
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data PaintVolumeGetWidthMethodInfo
instance (signature ~ (m Float), MonadIO m) => O.OverloadedMethod PaintVolumeGetWidthMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeGetWidth
instance O.OverloadedMethodInfo PaintVolumeGetWidthMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeGetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeGetWidth"
})
#endif
foreign import ccall "clutter_paint_volume_set_depth" clutter_paint_volume_set_depth ::
Ptr PaintVolume ->
CFloat ->
IO ()
paintVolumeSetDepth ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> Float
-> m ()
paintVolumeSetDepth :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> Float -> m ()
paintVolumeSetDepth PaintVolume
pv Float
depth = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
let depth' :: CFloat
depth' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
depth
Ptr PaintVolume -> CFloat -> IO ()
clutter_paint_volume_set_depth Ptr PaintVolume
pv' CFloat
depth'
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintVolumeSetDepthMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m) => O.OverloadedMethod PaintVolumeSetDepthMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeSetDepth
instance O.OverloadedMethodInfo PaintVolumeSetDepthMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeSetDepth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeSetDepth"
})
#endif
foreign import ccall "clutter_paint_volume_set_from_allocation" clutter_paint_volume_set_from_allocation ::
Ptr PaintVolume ->
Ptr Clutter.Actor.Actor ->
IO CInt
paintVolumeSetFromAllocation ::
(B.CallStack.HasCallStack, MonadIO m, Clutter.Actor.IsActor a) =>
PaintVolume
-> a
-> m Bool
paintVolumeSetFromAllocation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsActor a) =>
PaintVolume -> a -> m Bool
paintVolumeSetFromAllocation PaintVolume
pv a
actor = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
Ptr Actor
actor' <- a -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
actor
CInt
result <- Ptr PaintVolume -> Ptr Actor -> IO CInt
clutter_paint_volume_set_from_allocation Ptr PaintVolume
pv' Ptr Actor
actor'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
actor
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data PaintVolumeSetFromAllocationMethodInfo
instance (signature ~ (a -> m Bool), MonadIO m, Clutter.Actor.IsActor a) => O.OverloadedMethod PaintVolumeSetFromAllocationMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeSetFromAllocation
instance O.OverloadedMethodInfo PaintVolumeSetFromAllocationMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeSetFromAllocation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeSetFromAllocation"
})
#endif
foreign import ccall "clutter_paint_volume_set_height" clutter_paint_volume_set_height ::
Ptr PaintVolume ->
CFloat ->
IO ()
paintVolumeSetHeight ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> Float
-> m ()
paintVolumeSetHeight :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> Float -> m ()
paintVolumeSetHeight PaintVolume
pv Float
height = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
let height' :: CFloat
height' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
height
Ptr PaintVolume -> CFloat -> IO ()
clutter_paint_volume_set_height Ptr PaintVolume
pv' CFloat
height'
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintVolumeSetHeightMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m) => O.OverloadedMethod PaintVolumeSetHeightMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeSetHeight
instance O.OverloadedMethodInfo PaintVolumeSetHeightMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeSetHeight",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeSetHeight"
})
#endif
foreign import ccall "clutter_paint_volume_set_origin" clutter_paint_volume_set_origin ::
Ptr PaintVolume ->
Ptr Clutter.Vertex.Vertex ->
IO ()
paintVolumeSetOrigin ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> Clutter.Vertex.Vertex
-> m ()
paintVolumeSetOrigin :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> Vertex -> m ()
paintVolumeSetOrigin PaintVolume
pv Vertex
origin = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
Ptr Vertex
origin' <- Vertex -> IO (Ptr Vertex)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Vertex
origin
Ptr PaintVolume -> Ptr Vertex -> IO ()
clutter_paint_volume_set_origin Ptr PaintVolume
pv' Ptr Vertex
origin'
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
Vertex -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Vertex
origin
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintVolumeSetOriginMethodInfo
instance (signature ~ (Clutter.Vertex.Vertex -> m ()), MonadIO m) => O.OverloadedMethod PaintVolumeSetOriginMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeSetOrigin
instance O.OverloadedMethodInfo PaintVolumeSetOriginMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeSetOrigin",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeSetOrigin"
})
#endif
foreign import ccall "clutter_paint_volume_set_width" clutter_paint_volume_set_width ::
Ptr PaintVolume ->
CFloat ->
IO ()
paintVolumeSetWidth ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> Float
-> m ()
paintVolumeSetWidth :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> Float -> m ()
paintVolumeSetWidth PaintVolume
pv Float
width = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
let width' :: CFloat
width' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
width
Ptr PaintVolume -> CFloat -> IO ()
clutter_paint_volume_set_width Ptr PaintVolume
pv' CFloat
width'
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintVolumeSetWidthMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m) => O.OverloadedMethod PaintVolumeSetWidthMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeSetWidth
instance O.OverloadedMethodInfo PaintVolumeSetWidthMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeSetWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeSetWidth"
})
#endif
foreign import ccall "clutter_paint_volume_union" clutter_paint_volume_union ::
Ptr PaintVolume ->
Ptr PaintVolume ->
IO ()
paintVolumeUnion ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> PaintVolume
-> m ()
paintVolumeUnion :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> PaintVolume -> m ()
paintVolumeUnion PaintVolume
pv PaintVolume
anotherPv = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
Ptr PaintVolume
anotherPv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
anotherPv
Ptr PaintVolume -> Ptr PaintVolume -> IO ()
clutter_paint_volume_union Ptr PaintVolume
pv' Ptr PaintVolume
anotherPv'
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
anotherPv
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintVolumeUnionMethodInfo
instance (signature ~ (PaintVolume -> m ()), MonadIO m) => O.OverloadedMethod PaintVolumeUnionMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeUnion
instance O.OverloadedMethodInfo PaintVolumeUnionMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeUnion",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeUnion"
})
#endif
foreign import ccall "clutter_paint_volume_union_box" clutter_paint_volume_union_box ::
Ptr PaintVolume ->
Ptr Clutter.ActorBox.ActorBox ->
IO ()
paintVolumeUnionBox ::
(B.CallStack.HasCallStack, MonadIO m) =>
PaintVolume
-> Clutter.ActorBox.ActorBox
-> m ()
paintVolumeUnionBox :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PaintVolume -> ActorBox -> m ()
paintVolumeUnionBox PaintVolume
pv ActorBox
box = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PaintVolume
pv' <- PaintVolume -> IO (Ptr PaintVolume)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PaintVolume
pv
Ptr ActorBox
box' <- ActorBox -> IO (Ptr ActorBox)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ActorBox
box
Ptr PaintVolume -> Ptr ActorBox -> IO ()
clutter_paint_volume_union_box Ptr PaintVolume
pv' Ptr ActorBox
box'
PaintVolume -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PaintVolume
pv
ActorBox -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ActorBox
box
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PaintVolumeUnionBoxMethodInfo
instance (signature ~ (Clutter.ActorBox.ActorBox -> m ()), MonadIO m) => O.OverloadedMethod PaintVolumeUnionBoxMethodInfo PaintVolume signature where
overloadedMethod = paintVolumeUnionBox
instance O.OverloadedMethodInfo PaintVolumeUnionBoxMethodInfo PaintVolume where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Structs.PaintVolume.paintVolumeUnionBox",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.2/docs/GI-Clutter-Structs-PaintVolume.html#v:paintVolumeUnionBox"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolvePaintVolumeMethod (t :: Symbol) (o :: *) :: * where
ResolvePaintVolumeMethod "copy" o = PaintVolumeCopyMethodInfo
ResolvePaintVolumeMethod "free" o = PaintVolumeFreeMethodInfo
ResolvePaintVolumeMethod "union" o = PaintVolumeUnionMethodInfo
ResolvePaintVolumeMethod "unionBox" o = PaintVolumeUnionBoxMethodInfo
ResolvePaintVolumeMethod "getDepth" o = PaintVolumeGetDepthMethodInfo
ResolvePaintVolumeMethod "getHeight" o = PaintVolumeGetHeightMethodInfo
ResolvePaintVolumeMethod "getOrigin" o = PaintVolumeGetOriginMethodInfo
ResolvePaintVolumeMethod "getWidth" o = PaintVolumeGetWidthMethodInfo
ResolvePaintVolumeMethod "setDepth" o = PaintVolumeSetDepthMethodInfo
ResolvePaintVolumeMethod "setFromAllocation" o = PaintVolumeSetFromAllocationMethodInfo
ResolvePaintVolumeMethod "setHeight" o = PaintVolumeSetHeightMethodInfo
ResolvePaintVolumeMethod "setOrigin" o = PaintVolumeSetOriginMethodInfo
ResolvePaintVolumeMethod "setWidth" o = PaintVolumeSetWidthMethodInfo
ResolvePaintVolumeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePaintVolumeMethod t PaintVolume, O.OverloadedMethod info PaintVolume p) => OL.IsLabel t (PaintVolume -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolvePaintVolumeMethod t PaintVolume, O.OverloadedMethod info PaintVolume p, R.HasField t PaintVolume p) => R.HasField t PaintVolume p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePaintVolumeMethod t PaintVolume, O.OverloadedMethodInfo info PaintVolume) => OL.IsLabel t (O.MethodProxy info PaintVolume) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif