{-# LANGUAGE TypeApplications #-}
#if !defined(__HADDOCK_VERSION__)
#define ENABLE_OVERLOADING
#endif
module GI.Gsk.Objects.FillNode
(
FillNode(..) ,
IsFillNode ,
toFillNode ,
#if defined(ENABLE_OVERLOADING)
ResolveFillNodeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
FillNodeGetChildMethodInfo ,
#endif
fillNodeGetChild ,
#if defined(ENABLE_OVERLOADING)
FillNodeGetFillRuleMethodInfo ,
#endif
fillNodeGetFillRule ,
#if defined(ENABLE_OVERLOADING)
FillNodeGetPathMethodInfo ,
#endif
fillNodeGetPath ,
fillNodeNew ,
) 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.GLib.Structs.String as GLib.String
import qualified GI.Graphene.Structs.Point as Graphene.Point
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.Flags as Gsk.Flags
import {-# SOURCE #-} qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import {-# SOURCE #-} qualified GI.Gsk.Structs.Path as Gsk.Path
import {-# SOURCE #-} qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
#else
import {-# SOURCE #-} qualified GI.Gsk.Enums as Gsk.Enums
import {-# SOURCE #-} qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import {-# SOURCE #-} qualified GI.Gsk.Structs.Path as Gsk.Path
#endif
newtype FillNode = FillNode (SP.ManagedPtr FillNode)
deriving (FillNode -> FillNode -> Bool
(FillNode -> FillNode -> Bool)
-> (FillNode -> FillNode -> Bool) -> Eq FillNode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: FillNode -> FillNode -> Bool
== :: FillNode -> FillNode -> Bool
$c/= :: FillNode -> FillNode -> Bool
/= :: FillNode -> FillNode -> Bool
Eq)
instance SP.ManagedPtrNewtype FillNode where
toManagedPtr :: FillNode -> ManagedPtr FillNode
toManagedPtr (FillNode ManagedPtr FillNode
p) = ManagedPtr FillNode
p
foreign import ccall "gsk_fill_node_get_type"
c_gsk_fill_node_get_type :: IO B.Types.GType
instance B.Types.TypedObject FillNode where
glibType :: IO GType
glibType = IO GType
c_gsk_fill_node_get_type
class (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf FillNode o) => IsFillNode o
instance (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf FillNode o) => IsFillNode o
instance O.HasParentTypes FillNode
type instance O.ParentTypes FillNode = '[Gsk.RenderNode.RenderNode]
toFillNode :: (MIO.MonadIO m, IsFillNode o) => o -> m FillNode
toFillNode :: forall (m :: * -> *) o.
(MonadIO m, IsFillNode o) =>
o -> m FillNode
toFillNode = IO FillNode -> m FillNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO FillNode -> m FillNode)
-> (o -> IO FillNode) -> o -> m FillNode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr FillNode -> FillNode) -> o -> IO FillNode
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr FillNode -> FillNode
FillNode
#if defined(ENABLE_OVERLOADING)
type family ResolveFillNodeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveFillNodeMethod "draw" o = Gsk.RenderNode.RenderNodeDrawMethodInfo
ResolveFillNodeMethod "ref" o = Gsk.RenderNode.RenderNodeRefMethodInfo
ResolveFillNodeMethod "serialize" o = Gsk.RenderNode.RenderNodeSerializeMethodInfo
ResolveFillNodeMethod "unref" o = Gsk.RenderNode.RenderNodeUnrefMethodInfo
ResolveFillNodeMethod "writeToFile" o = Gsk.RenderNode.RenderNodeWriteToFileMethodInfo
ResolveFillNodeMethod "getBounds" o = Gsk.RenderNode.RenderNodeGetBoundsMethodInfo
ResolveFillNodeMethod "getChild" o = FillNodeGetChildMethodInfo
ResolveFillNodeMethod "getFillRule" o = FillNodeGetFillRuleMethodInfo
ResolveFillNodeMethod "getNodeType" o = Gsk.RenderNode.RenderNodeGetNodeTypeMethodInfo
ResolveFillNodeMethod "getOpaqueRect" o = Gsk.RenderNode.RenderNodeGetOpaqueRectMethodInfo
ResolveFillNodeMethod "getPath" o = FillNodeGetPathMethodInfo
ResolveFillNodeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFillNodeMethod t FillNode, O.OverloadedMethod info FillNode p) => OL.IsLabel t (FillNode -> 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 ~ ResolveFillNodeMethod t FillNode, O.OverloadedMethod info FillNode p, R.HasField t FillNode p) => R.HasField t FillNode p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveFillNodeMethod t FillNode, O.OverloadedMethodInfo info FillNode) => OL.IsLabel t (O.MethodProxy info FillNode) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
instance BoxedPtr FillNode where
boxedPtrCopy :: FillNode -> IO FillNode
boxedPtrCopy = FillNode -> IO FillNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: FillNode -> IO ()
boxedPtrFree = \FillNode
_x -> () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gsk_fill_node_new" gsk_fill_node_new ::
Ptr Gsk.RenderNode.RenderNode ->
Ptr Gsk.Path.Path ->
CUInt ->
IO (Ptr FillNode)
fillNodeNew ::
(B.CallStack.HasCallStack, MonadIO m, Gsk.RenderNode.IsRenderNode a) =>
a
-> Gsk.Path.Path
-> Gsk.Enums.FillRule
-> m FillNode
fillNodeNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsRenderNode a) =>
a -> Path -> FillRule -> m FillNode
fillNodeNew a
child Path
path FillRule
fillRule = IO FillNode -> m FillNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FillNode -> m FillNode) -> IO FillNode -> m FillNode
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
path' <- unsafeManagedPtrGetPtr path
let fillRule' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (FillRule -> Int) -> FillRule -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. FillRule -> Int
forall a. Enum a => a -> Int
fromEnum) FillRule
fillRule
result <- gsk_fill_node_new child' path' fillRule'
checkUnexpectedReturnNULL "fillNodeNew" result
result' <- (newPtr FillNode) result
touchManagedPtr child
touchManagedPtr path
return result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gsk_fill_node_get_child" gsk_fill_node_get_child ::
Ptr FillNode ->
IO (Ptr Gsk.RenderNode.RenderNode)
fillNodeGetChild ::
(B.CallStack.HasCallStack, MonadIO m, IsFillNode a) =>
a
-> m Gsk.RenderNode.RenderNode
fillNodeGetChild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFillNode a) =>
a -> m RenderNode
fillNodeGetChild 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 FillNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
result <- gsk_fill_node_get_child node'
checkUnexpectedReturnNULL "fillNodeGetChild" result
result' <- (newPtr Gsk.RenderNode.RenderNode) result
touchManagedPtr node
return result'
#if defined(ENABLE_OVERLOADING)
data FillNodeGetChildMethodInfo
instance (signature ~ (m Gsk.RenderNode.RenderNode), MonadIO m, IsFillNode a) => O.OverloadedMethod FillNodeGetChildMethodInfo a signature where
overloadedMethod = fillNodeGetChild
instance O.OverloadedMethodInfo FillNodeGetChildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.FillNode.fillNodeGetChild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Objects-FillNode.html#v:fillNodeGetChild"
})
#endif
foreign import ccall "gsk_fill_node_get_fill_rule" gsk_fill_node_get_fill_rule ::
Ptr FillNode ->
IO CUInt
fillNodeGetFillRule ::
(B.CallStack.HasCallStack, MonadIO m, IsFillNode a) =>
a
-> m Gsk.Enums.FillRule
fillNodeGetFillRule :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFillNode a) =>
a -> m FillRule
fillNodeGetFillRule a
node = IO FillRule -> m FillRule
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO FillRule -> m FillRule) -> IO FillRule -> m FillRule
forall a b. (a -> b) -> a -> b
$ do
node' <- a -> IO (Ptr FillNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
result <- gsk_fill_node_get_fill_rule node'
let result' = (Int -> FillRule
forall a. Enum a => Int -> a
toEnum (Int -> FillRule) -> (CUInt -> Int) -> CUInt -> FillRule
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 FillNodeGetFillRuleMethodInfo
instance (signature ~ (m Gsk.Enums.FillRule), MonadIO m, IsFillNode a) => O.OverloadedMethod FillNodeGetFillRuleMethodInfo a signature where
overloadedMethod = fillNodeGetFillRule
instance O.OverloadedMethodInfo FillNodeGetFillRuleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.FillNode.fillNodeGetFillRule",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Objects-FillNode.html#v:fillNodeGetFillRule"
})
#endif
foreign import ccall "gsk_fill_node_get_path" gsk_fill_node_get_path ::
Ptr FillNode ->
IO (Ptr Gsk.Path.Path)
fillNodeGetPath ::
(B.CallStack.HasCallStack, MonadIO m, IsFillNode a) =>
a
-> m Gsk.Path.Path
fillNodeGetPath :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsFillNode a) =>
a -> m Path
fillNodeGetPath a
node = IO Path -> m Path
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Path -> m Path) -> IO Path -> m Path
forall a b. (a -> b) -> a -> b
$ do
node' <- a -> IO (Ptr FillNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
result <- gsk_fill_node_get_path node'
checkUnexpectedReturnNULL "fillNodeGetPath" result
result' <- (newBoxed Gsk.Path.Path) result
touchManagedPtr node
return result'
#if defined(ENABLE_OVERLOADING)
data FillNodeGetPathMethodInfo
instance (signature ~ (m Gsk.Path.Path), MonadIO m, IsFillNode a) => O.OverloadedMethod FillNodeGetPathMethodInfo a signature where
overloadedMethod = fillNodeGetPath
instance O.OverloadedMethodInfo FillNodeGetPathMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.FillNode.fillNodeGetPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Objects-FillNode.html#v:fillNodeGetPath"
})
#endif