{-# LANGUAGE TypeApplications #-}
#if !defined(__HADDOCK_VERSION__)
#define ENABLE_OVERLOADING
#endif
module GI.Gsk.Objects.CompositeNode
(
CompositeNode(..) ,
IsCompositeNode ,
toCompositeNode ,
#if defined(ENABLE_OVERLOADING)
ResolveCompositeNodeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
CompositeNodeGetChildMethodInfo ,
#endif
compositeNodeGetChild ,
#if defined(ENABLE_OVERLOADING)
CompositeNodeGetMaskMethodInfo ,
#endif
compositeNodeGetMask ,
#if defined(ENABLE_OVERLOADING)
CompositeNodeGetOperatorMethodInfo ,
#endif
compositeNodeGetOperator ,
compositeNodeNew ,
) 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.GHashTable as B.GHT
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.Kind as DK
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 qualified Data.Word as DW
import qualified Data.Int as DI
import qualified System.Posix.Types as SPT
import qualified Foreign.C.Types as FCT
#if MIN_VERSION_base(4,18,0)
import qualified GI.Cairo.Structs.Context as Cairo.Context
import qualified GI.GLib.Structs.Bytes as GLib.Bytes
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import qualified GI.Gsk.Callbacks as Gsk.Callbacks
import {-# SOURCE #-} qualified GI.Gsk.Enums as Gsk.Enums
import {-# SOURCE #-} qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
#else
import {-# SOURCE #-} qualified GI.Gsk.Enums as Gsk.Enums
import {-# SOURCE #-} qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
#endif
newtype CompositeNode = CompositeNode (SP.ManagedPtr CompositeNode)
deriving (CompositeNode -> CompositeNode -> Bool
(CompositeNode -> CompositeNode -> Bool)
-> (CompositeNode -> CompositeNode -> Bool) -> Eq CompositeNode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: CompositeNode -> CompositeNode -> Bool
== :: CompositeNode -> CompositeNode -> Bool
$c/= :: CompositeNode -> CompositeNode -> Bool
/= :: CompositeNode -> CompositeNode -> Bool
Eq)
instance SP.ManagedPtrNewtype CompositeNode where
toManagedPtr :: CompositeNode -> ManagedPtr CompositeNode
toManagedPtr (CompositeNode ManagedPtr CompositeNode
p) = ManagedPtr CompositeNode
p
foreign import ccall "gsk_composite_node_get_type"
c_gsk_composite_node_get_type :: IO B.Types.GType
instance B.Types.TypedObject CompositeNode where
glibType :: IO GType
glibType = IO GType
c_gsk_composite_node_get_type
class (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf CompositeNode o) => IsCompositeNode o
instance (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf CompositeNode o) => IsCompositeNode o
instance O.HasParentTypes CompositeNode
type instance O.ParentTypes CompositeNode = '[Gsk.RenderNode.RenderNode]
toCompositeNode :: (MIO.MonadIO m, IsCompositeNode o) => o -> m CompositeNode
toCompositeNode :: forall (m :: * -> *) o.
(MonadIO m, IsCompositeNode o) =>
o -> m CompositeNode
toCompositeNode = IO CompositeNode -> m CompositeNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CompositeNode -> m CompositeNode)
-> (o -> IO CompositeNode) -> o -> m CompositeNode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr CompositeNode -> CompositeNode)
-> o -> IO CompositeNode
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr CompositeNode -> CompositeNode
CompositeNode
#if defined(ENABLE_OVERLOADING)
type family ResolveCompositeNodeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveCompositeNodeMethod "draw" o = Gsk.RenderNode.RenderNodeDrawMethodInfo
ResolveCompositeNodeMethod "ref" o = Gsk.RenderNode.RenderNodeRefMethodInfo
ResolveCompositeNodeMethod "serialize" o = Gsk.RenderNode.RenderNodeSerializeMethodInfo
ResolveCompositeNodeMethod "unref" o = Gsk.RenderNode.RenderNodeUnrefMethodInfo
ResolveCompositeNodeMethod "writeToFile" o = Gsk.RenderNode.RenderNodeWriteToFileMethodInfo
ResolveCompositeNodeMethod "getBounds" o = Gsk.RenderNode.RenderNodeGetBoundsMethodInfo
ResolveCompositeNodeMethod "getChild" o = CompositeNodeGetChildMethodInfo
ResolveCompositeNodeMethod "getMask" o = CompositeNodeGetMaskMethodInfo
ResolveCompositeNodeMethod "getNodeType" o = Gsk.RenderNode.RenderNodeGetNodeTypeMethodInfo
ResolveCompositeNodeMethod "getOpaqueRect" o = Gsk.RenderNode.RenderNodeGetOpaqueRectMethodInfo
ResolveCompositeNodeMethod "getOperator" o = CompositeNodeGetOperatorMethodInfo
ResolveCompositeNodeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveCompositeNodeMethod t CompositeNode, O.OverloadedMethod info CompositeNode p) => OL.IsLabel t (CompositeNode -> 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 ~ ResolveCompositeNodeMethod t CompositeNode, O.OverloadedMethod info CompositeNode p, R.HasField t CompositeNode p) => R.HasField t CompositeNode p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveCompositeNodeMethod t CompositeNode, O.OverloadedMethodInfo info CompositeNode) => OL.IsLabel t (O.MethodProxy info CompositeNode) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
instance BoxedPtr CompositeNode where
boxedPtrCopy :: CompositeNode -> IO CompositeNode
boxedPtrCopy = CompositeNode -> IO CompositeNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: CompositeNode -> IO ()
boxedPtrFree = \CompositeNode
_x -> () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gsk_composite_node_new" gsk_composite_node_new ::
Ptr Gsk.RenderNode.RenderNode ->
Ptr Gsk.RenderNode.RenderNode ->
CUInt ->
IO (Ptr CompositeNode)
compositeNodeNew ::
(B.CallStack.HasCallStack, MonadIO m, Gsk.RenderNode.IsRenderNode a, Gsk.RenderNode.IsRenderNode b) =>
a
-> b
-> Gsk.Enums.PorterDuff
-> m CompositeNode
compositeNodeNew :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsRenderNode a, IsRenderNode b) =>
a -> b -> PorterDuff -> m CompositeNode
compositeNodeNew a
child b
mask PorterDuff
op = IO CompositeNode -> m CompositeNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CompositeNode -> m CompositeNode)
-> IO CompositeNode -> m CompositeNode
forall a b. (a -> b) -> a -> b
$ do
child' <- a -> IO (Ptr RenderNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
mask' <- unsafeManagedPtrCastPtr mask
let op' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (PorterDuff -> Int) -> PorterDuff -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. PorterDuff -> Int
forall a. Enum a => a -> Int
fromEnum) PorterDuff
op
result <- gsk_composite_node_new child' mask' op'
checkUnexpectedReturnNULL "compositeNodeNew" result
result' <- (wrapPtr CompositeNode) result
touchManagedPtr child
touchManagedPtr mask
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gsk_composite_node_get_child" gsk_composite_node_get_child ::
Ptr CompositeNode ->
IO (Ptr Gsk.RenderNode.RenderNode)
compositeNodeGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsCompositeNode a) =>
a
-> m Gsk.RenderNode.RenderNode
compositeNodeGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompositeNode a) =>
a -> m RenderNode
compositeNodeGetChild a
node = IO RenderNode -> m RenderNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RenderNode -> m RenderNode) -> IO RenderNode -> m RenderNode
forall a b. (a -> b) -> a -> b
$ do
node' <- a -> IO (Ptr CompositeNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
result <- gsk_composite_node_get_child node'
checkUnexpectedReturnNULL "compositeNodeGetChild" result
result' <- (newPtr Gsk.RenderNode.RenderNode) result
touchManagedPtr node
return result'
#if defined(ENABLE_OVERLOADING)
data CompositeNodeGetChildMethodInfo
instance (signature ~ (m Gsk.RenderNode.RenderNode), MonadIO m, IsCompositeNode a) => O.OverloadedMethod CompositeNodeGetChildMethodInfo a signature where
overloadedMethod = compositeNodeGetChild
instance O.OverloadedMethodInfo CompositeNodeGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.CompositeNode.compositeNodeGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Objects-CompositeNode.html#v:compositeNodeGetChild"
})
#endif
foreign import ccall "gsk_composite_node_get_mask" gsk_composite_node_get_mask ::
Ptr CompositeNode ->
IO (Ptr Gsk.RenderNode.RenderNode)
compositeNodeGetMask ::
(B.CallStack.HasCallStack, MonadIO m, IsCompositeNode a) =>
a
-> m Gsk.RenderNode.RenderNode
compositeNodeGetMask :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompositeNode a) =>
a -> m RenderNode
compositeNodeGetMask a
node = IO RenderNode -> m RenderNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RenderNode -> m RenderNode) -> IO RenderNode -> m RenderNode
forall a b. (a -> b) -> a -> b
$ do
node' <- a -> IO (Ptr CompositeNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
result <- gsk_composite_node_get_mask node'
checkUnexpectedReturnNULL "compositeNodeGetMask" result
result' <- (newPtr Gsk.RenderNode.RenderNode) result
touchManagedPtr node
return result'
#if defined(ENABLE_OVERLOADING)
data CompositeNodeGetMaskMethodInfo
instance (signature ~ (m Gsk.RenderNode.RenderNode), MonadIO m, IsCompositeNode a) => O.OverloadedMethod CompositeNodeGetMaskMethodInfo a signature where
overloadedMethod = compositeNodeGetMask
instance O.OverloadedMethodInfo CompositeNodeGetMaskMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.CompositeNode.compositeNodeGetMask",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Objects-CompositeNode.html#v:compositeNodeGetMask"
})
#endif
foreign import ccall "gsk_composite_node_get_operator" gsk_composite_node_get_operator ::
Ptr CompositeNode ->
IO CUInt
compositeNodeGetOperator ::
(B.CallStack.HasCallStack, MonadIO m, IsCompositeNode a) =>
a
-> m Gsk.Enums.PorterDuff
compositeNodeGetOperator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCompositeNode a) =>
a -> m PorterDuff
compositeNodeGetOperator a
node = IO PorterDuff -> m PorterDuff
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PorterDuff -> m PorterDuff) -> IO PorterDuff -> m PorterDuff
forall a b. (a -> b) -> a -> b
$ do
node' <- a -> IO (Ptr CompositeNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
result <- gsk_composite_node_get_operator node'
let result' = (Int -> PorterDuff
forall a. Enum a => Int -> a
toEnum (Int -> PorterDuff) -> (CUInt -> Int) -> CUInt -> PorterDuff
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
touchManagedPtr node
return result'
#if defined(ENABLE_OVERLOADING)
data CompositeNodeGetOperatorMethodInfo
instance (signature ~ (m Gsk.Enums.PorterDuff), MonadIO m, IsCompositeNode a) => O.OverloadedMethod CompositeNodeGetOperatorMethodInfo a signature where
overloadedMethod = compositeNodeGetOperator
instance O.OverloadedMethodInfo CompositeNodeGetOperatorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.CompositeNode.compositeNodeGetOperator",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Objects-CompositeNode.html#v:compositeNodeGetOperator"
})
#endif