{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gsk.Objects.OutsetShadowNode
(
OutsetShadowNode(..) ,
IsOutsetShadowNode ,
toOutsetShadowNode ,
#if defined(ENABLE_OVERLOADING)
ResolveOutsetShadowNodeMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
OutsetShadowNodeGetBlurRadiusMethodInfo ,
#endif
outsetShadowNodeGetBlurRadius ,
#if defined(ENABLE_OVERLOADING)
OutsetShadowNodeGetColorMethodInfo ,
#endif
outsetShadowNodeGetColor ,
#if defined(ENABLE_OVERLOADING)
OutsetShadowNodeGetDxMethodInfo ,
#endif
outsetShadowNodeGetDx ,
#if defined(ENABLE_OVERLOADING)
OutsetShadowNodeGetDyMethodInfo ,
#endif
outsetShadowNodeGetDy ,
#if defined(ENABLE_OVERLOADING)
OutsetShadowNodeGetOutlineMethodInfo ,
#endif
outsetShadowNodeGetOutline ,
#if defined(ENABLE_OVERLOADING)
OutsetShadowNodeGetSpreadMethodInfo ,
#endif
outsetShadowNodeGetSpread ,
outsetShadowNodeNew ,
) 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 GI.Gdk.Structs.RGBA as Gdk.RGBA
import {-# SOURCE #-} qualified GI.Gsk.Objects.RenderNode as Gsk.RenderNode
import {-# SOURCE #-} qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
newtype OutsetShadowNode = OutsetShadowNode (SP.ManagedPtr OutsetShadowNode)
deriving (OutsetShadowNode -> OutsetShadowNode -> Bool
(OutsetShadowNode -> OutsetShadowNode -> Bool)
-> (OutsetShadowNode -> OutsetShadowNode -> Bool)
-> Eq OutsetShadowNode
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: OutsetShadowNode -> OutsetShadowNode -> Bool
== :: OutsetShadowNode -> OutsetShadowNode -> Bool
$c/= :: OutsetShadowNode -> OutsetShadowNode -> Bool
/= :: OutsetShadowNode -> OutsetShadowNode -> Bool
Eq)
instance SP.ManagedPtrNewtype OutsetShadowNode where
toManagedPtr :: OutsetShadowNode -> ManagedPtr OutsetShadowNode
toManagedPtr (OutsetShadowNode ManagedPtr OutsetShadowNode
p) = ManagedPtr OutsetShadowNode
p
foreign import ccall "gsk_outset_shadow_node_get_type"
c_gsk_outset_shadow_node_get_type :: IO B.Types.GType
instance B.Types.TypedObject OutsetShadowNode where
glibType :: IO GType
glibType = IO GType
c_gsk_outset_shadow_node_get_type
class (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf OutsetShadowNode o) => IsOutsetShadowNode o
instance (SP.BoxedPtr o, SP.TypedObject o, O.IsDescendantOf OutsetShadowNode o) => IsOutsetShadowNode o
instance O.HasParentTypes OutsetShadowNode
type instance O.ParentTypes OutsetShadowNode = '[Gsk.RenderNode.RenderNode]
toOutsetShadowNode :: (MIO.MonadIO m, IsOutsetShadowNode o) => o -> m OutsetShadowNode
toOutsetShadowNode :: forall (m :: * -> *) o.
(MonadIO m, IsOutsetShadowNode o) =>
o -> m OutsetShadowNode
toOutsetShadowNode = IO OutsetShadowNode -> m OutsetShadowNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO OutsetShadowNode -> m OutsetShadowNode)
-> (o -> IO OutsetShadowNode) -> o -> m OutsetShadowNode
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr OutsetShadowNode -> OutsetShadowNode)
-> o -> IO OutsetShadowNode
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr OutsetShadowNode -> OutsetShadowNode
OutsetShadowNode
#if defined(ENABLE_OVERLOADING)
type family ResolveOutsetShadowNodeMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveOutsetShadowNodeMethod "draw" o = Gsk.RenderNode.RenderNodeDrawMethodInfo
ResolveOutsetShadowNodeMethod "ref" o = Gsk.RenderNode.RenderNodeRefMethodInfo
ResolveOutsetShadowNodeMethod "serialize" o = Gsk.RenderNode.RenderNodeSerializeMethodInfo
ResolveOutsetShadowNodeMethod "unref" o = Gsk.RenderNode.RenderNodeUnrefMethodInfo
ResolveOutsetShadowNodeMethod "writeToFile" o = Gsk.RenderNode.RenderNodeWriteToFileMethodInfo
ResolveOutsetShadowNodeMethod "getBlurRadius" o = OutsetShadowNodeGetBlurRadiusMethodInfo
ResolveOutsetShadowNodeMethod "getBounds" o = Gsk.RenderNode.RenderNodeGetBoundsMethodInfo
ResolveOutsetShadowNodeMethod "getColor" o = OutsetShadowNodeGetColorMethodInfo
ResolveOutsetShadowNodeMethod "getDx" o = OutsetShadowNodeGetDxMethodInfo
ResolveOutsetShadowNodeMethod "getDy" o = OutsetShadowNodeGetDyMethodInfo
ResolveOutsetShadowNodeMethod "getNodeType" o = Gsk.RenderNode.RenderNodeGetNodeTypeMethodInfo
ResolveOutsetShadowNodeMethod "getOutline" o = OutsetShadowNodeGetOutlineMethodInfo
ResolveOutsetShadowNodeMethod "getSpread" o = OutsetShadowNodeGetSpreadMethodInfo
ResolveOutsetShadowNodeMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveOutsetShadowNodeMethod t OutsetShadowNode, O.OverloadedMethod info OutsetShadowNode p) => OL.IsLabel t (OutsetShadowNode -> 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 ~ ResolveOutsetShadowNodeMethod t OutsetShadowNode, O.OverloadedMethod info OutsetShadowNode p, R.HasField t OutsetShadowNode p) => R.HasField t OutsetShadowNode p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveOutsetShadowNodeMethod t OutsetShadowNode, O.OverloadedMethodInfo info OutsetShadowNode) => OL.IsLabel t (O.MethodProxy info OutsetShadowNode) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
instance BoxedPtr OutsetShadowNode where
boxedPtrCopy :: OutsetShadowNode -> IO OutsetShadowNode
boxedPtrCopy = OutsetShadowNode -> IO OutsetShadowNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return
boxedPtrFree :: OutsetShadowNode -> IO ()
boxedPtrFree = \OutsetShadowNode
_x -> () -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
foreign import ccall "gsk_outset_shadow_node_new" gsk_outset_shadow_node_new ::
Ptr Gsk.RoundedRect.RoundedRect ->
Ptr Gdk.RGBA.RGBA ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO (Ptr OutsetShadowNode)
outsetShadowNodeNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gsk.RoundedRect.RoundedRect
-> Gdk.RGBA.RGBA
-> Float
-> Float
-> Float
-> Float
-> m OutsetShadowNode
outsetShadowNodeNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
RoundedRect
-> RGBA -> Float -> Float -> Float -> Float -> m OutsetShadowNode
outsetShadowNodeNew RoundedRect
outline RGBA
color Float
dx Float
dy Float
spread Float
blurRadius = IO OutsetShadowNode -> m OutsetShadowNode
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO OutsetShadowNode -> m OutsetShadowNode)
-> IO OutsetShadowNode -> m OutsetShadowNode
forall a b. (a -> b) -> a -> b
$ do
Ptr RoundedRect
outline' <- RoundedRect -> IO (Ptr RoundedRect)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RoundedRect
outline
Ptr RGBA
color' <- RGBA -> IO (Ptr RGBA)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RGBA
color
let dx' :: CFloat
dx' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
dx
let dy' :: CFloat
dy' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
dy
let spread' :: CFloat
spread' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
spread
let blurRadius' :: CFloat
blurRadius' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
blurRadius
Ptr OutsetShadowNode
result <- Ptr RoundedRect
-> Ptr RGBA
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> IO (Ptr OutsetShadowNode)
gsk_outset_shadow_node_new Ptr RoundedRect
outline' Ptr RGBA
color' CFloat
dx' CFloat
dy' CFloat
spread' CFloat
blurRadius'
Text -> Ptr OutsetShadowNode -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"outsetShadowNodeNew" Ptr OutsetShadowNode
result
OutsetShadowNode
result' <- ((ManagedPtr OutsetShadowNode -> OutsetShadowNode)
-> Ptr OutsetShadowNode -> IO OutsetShadowNode
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapPtr ManagedPtr OutsetShadowNode -> OutsetShadowNode
OutsetShadowNode) Ptr OutsetShadowNode
result
RoundedRect -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RoundedRect
outline
RGBA -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RGBA
color
OutsetShadowNode -> IO OutsetShadowNode
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return OutsetShadowNode
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gsk_outset_shadow_node_get_blur_radius" gsk_outset_shadow_node_get_blur_radius ::
Ptr OutsetShadowNode ->
IO CFloat
outsetShadowNodeGetBlurRadius ::
(B.CallStack.HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a
-> m Float
outsetShadowNodeGetBlurRadius :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a -> m Float
outsetShadowNodeGetBlurRadius a
node = IO Float -> m Float
forall a. IO a -> m a
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 OutsetShadowNode
node' <- a -> IO (Ptr OutsetShadowNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
CFloat
result <- Ptr OutsetShadowNode -> IO CFloat
gsk_outset_shadow_node_get_blur_radius Ptr OutsetShadowNode
node'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
node
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data OutsetShadowNodeGetBlurRadiusMethodInfo
instance (signature ~ (m Float), MonadIO m, IsOutsetShadowNode a) => O.OverloadedMethod OutsetShadowNodeGetBlurRadiusMethodInfo a signature where
overloadedMethod = outsetShadowNodeGetBlurRadius
instance O.OverloadedMethodInfo OutsetShadowNodeGetBlurRadiusMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.OutsetShadowNode.outsetShadowNodeGetBlurRadius",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.7/docs/GI-Gsk-Objects-OutsetShadowNode.html#v:outsetShadowNodeGetBlurRadius"
})
#endif
foreign import ccall "gsk_outset_shadow_node_get_color" gsk_outset_shadow_node_get_color ::
Ptr OutsetShadowNode ->
IO (Ptr Gdk.RGBA.RGBA)
outsetShadowNodeGetColor ::
(B.CallStack.HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a
-> m Gdk.RGBA.RGBA
outsetShadowNodeGetColor :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a -> m RGBA
outsetShadowNodeGetColor a
node = IO RGBA -> m RGBA
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RGBA -> m RGBA) -> IO RGBA -> m RGBA
forall a b. (a -> b) -> a -> b
$ do
Ptr OutsetShadowNode
node' <- a -> IO (Ptr OutsetShadowNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
Ptr RGBA
result <- Ptr OutsetShadowNode -> IO (Ptr RGBA)
gsk_outset_shadow_node_get_color Ptr OutsetShadowNode
node'
Text -> Ptr RGBA -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"outsetShadowNodeGetColor" Ptr RGBA
result
RGBA
result' <- ((ManagedPtr RGBA -> RGBA) -> Ptr RGBA -> IO RGBA
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr RGBA -> RGBA
Gdk.RGBA.RGBA) Ptr RGBA
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
node
RGBA -> IO RGBA
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RGBA
result'
#if defined(ENABLE_OVERLOADING)
data OutsetShadowNodeGetColorMethodInfo
instance (signature ~ (m Gdk.RGBA.RGBA), MonadIO m, IsOutsetShadowNode a) => O.OverloadedMethod OutsetShadowNodeGetColorMethodInfo a signature where
overloadedMethod = outsetShadowNodeGetColor
instance O.OverloadedMethodInfo OutsetShadowNodeGetColorMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.OutsetShadowNode.outsetShadowNodeGetColor",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.7/docs/GI-Gsk-Objects-OutsetShadowNode.html#v:outsetShadowNodeGetColor"
})
#endif
foreign import ccall "gsk_outset_shadow_node_get_dx" gsk_outset_shadow_node_get_dx ::
Ptr OutsetShadowNode ->
IO CFloat
outsetShadowNodeGetDx ::
(B.CallStack.HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a
-> m Float
outsetShadowNodeGetDx :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a -> m Float
outsetShadowNodeGetDx a
node = IO Float -> m Float
forall a. IO a -> m a
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 OutsetShadowNode
node' <- a -> IO (Ptr OutsetShadowNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
CFloat
result <- Ptr OutsetShadowNode -> IO CFloat
gsk_outset_shadow_node_get_dx Ptr OutsetShadowNode
node'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
node
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data OutsetShadowNodeGetDxMethodInfo
instance (signature ~ (m Float), MonadIO m, IsOutsetShadowNode a) => O.OverloadedMethod OutsetShadowNodeGetDxMethodInfo a signature where
overloadedMethod = outsetShadowNodeGetDx
instance O.OverloadedMethodInfo OutsetShadowNodeGetDxMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.OutsetShadowNode.outsetShadowNodeGetDx",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.7/docs/GI-Gsk-Objects-OutsetShadowNode.html#v:outsetShadowNodeGetDx"
})
#endif
foreign import ccall "gsk_outset_shadow_node_get_dy" gsk_outset_shadow_node_get_dy ::
Ptr OutsetShadowNode ->
IO CFloat
outsetShadowNodeGetDy ::
(B.CallStack.HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a
-> m Float
outsetShadowNodeGetDy :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a -> m Float
outsetShadowNodeGetDy a
node = IO Float -> m Float
forall a. IO a -> m a
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 OutsetShadowNode
node' <- a -> IO (Ptr OutsetShadowNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
CFloat
result <- Ptr OutsetShadowNode -> IO CFloat
gsk_outset_shadow_node_get_dy Ptr OutsetShadowNode
node'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
node
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data OutsetShadowNodeGetDyMethodInfo
instance (signature ~ (m Float), MonadIO m, IsOutsetShadowNode a) => O.OverloadedMethod OutsetShadowNodeGetDyMethodInfo a signature where
overloadedMethod = outsetShadowNodeGetDy
instance O.OverloadedMethodInfo OutsetShadowNodeGetDyMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.OutsetShadowNode.outsetShadowNodeGetDy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.7/docs/GI-Gsk-Objects-OutsetShadowNode.html#v:outsetShadowNodeGetDy"
})
#endif
foreign import ccall "gsk_outset_shadow_node_get_outline" gsk_outset_shadow_node_get_outline ::
Ptr OutsetShadowNode ->
IO (Ptr Gsk.RoundedRect.RoundedRect)
outsetShadowNodeGetOutline ::
(B.CallStack.HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a
-> m Gsk.RoundedRect.RoundedRect
outsetShadowNodeGetOutline :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a -> m RoundedRect
outsetShadowNodeGetOutline a
node = IO RoundedRect -> m RoundedRect
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RoundedRect -> m RoundedRect)
-> IO RoundedRect -> m RoundedRect
forall a b. (a -> b) -> a -> b
$ do
Ptr OutsetShadowNode
node' <- a -> IO (Ptr OutsetShadowNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
Ptr RoundedRect
result <- Ptr OutsetShadowNode -> IO (Ptr RoundedRect)
gsk_outset_shadow_node_get_outline Ptr OutsetShadowNode
node'
Text -> Ptr RoundedRect -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"outsetShadowNodeGetOutline" Ptr RoundedRect
result
RoundedRect
result' <- ((ManagedPtr RoundedRect -> RoundedRect)
-> Ptr RoundedRect -> IO RoundedRect
forall a.
(HasCallStack, BoxedPtr a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newPtr ManagedPtr RoundedRect -> RoundedRect
Gsk.RoundedRect.RoundedRect) Ptr RoundedRect
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
node
RoundedRect -> IO RoundedRect
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return RoundedRect
result'
#if defined(ENABLE_OVERLOADING)
data OutsetShadowNodeGetOutlineMethodInfo
instance (signature ~ (m Gsk.RoundedRect.RoundedRect), MonadIO m, IsOutsetShadowNode a) => O.OverloadedMethod OutsetShadowNodeGetOutlineMethodInfo a signature where
overloadedMethod = outsetShadowNodeGetOutline
instance O.OverloadedMethodInfo OutsetShadowNodeGetOutlineMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.OutsetShadowNode.outsetShadowNodeGetOutline",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.7/docs/GI-Gsk-Objects-OutsetShadowNode.html#v:outsetShadowNodeGetOutline"
})
#endif
foreign import ccall "gsk_outset_shadow_node_get_spread" gsk_outset_shadow_node_get_spread ::
Ptr OutsetShadowNode ->
IO CFloat
outsetShadowNodeGetSpread ::
(B.CallStack.HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a
-> m Float
outsetShadowNodeGetSpread :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsOutsetShadowNode a) =>
a -> m Float
outsetShadowNodeGetSpread a
node = IO Float -> m Float
forall a. IO a -> m a
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 OutsetShadowNode
node' <- a -> IO (Ptr OutsetShadowNode)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
node
CFloat
result <- Ptr OutsetShadowNode -> IO CFloat
gsk_outset_shadow_node_get_spread Ptr OutsetShadowNode
node'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
node
Float -> IO Float
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data OutsetShadowNodeGetSpreadMethodInfo
instance (signature ~ (m Float), MonadIO m, IsOutsetShadowNode a) => O.OverloadedMethod OutsetShadowNodeGetSpreadMethodInfo a signature where
overloadedMethod = outsetShadowNodeGetSpread
instance O.OverloadedMethodInfo OutsetShadowNodeGetSpreadMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Objects.OutsetShadowNode.outsetShadowNodeGetSpread",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.7/docs/GI-Gsk-Objects-OutsetShadowNode.html#v:outsetShadowNodeGetSpread"
})
#endif