{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gsk.Structs.PathBuilder
(
PathBuilder(..) ,
#if defined(ENABLE_OVERLOADING)
ResolvePathBuilderMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
PathBuilderAddCairoPathMethodInfo ,
#endif
pathBuilderAddCairoPath ,
#if defined(ENABLE_OVERLOADING)
PathBuilderAddCircleMethodInfo ,
#endif
pathBuilderAddCircle ,
#if defined(ENABLE_OVERLOADING)
PathBuilderAddLayoutMethodInfo ,
#endif
pathBuilderAddLayout ,
#if defined(ENABLE_OVERLOADING)
PathBuilderAddPathMethodInfo ,
#endif
pathBuilderAddPath ,
#if defined(ENABLE_OVERLOADING)
PathBuilderAddRectMethodInfo ,
#endif
pathBuilderAddRect ,
#if defined(ENABLE_OVERLOADING)
PathBuilderAddReversePathMethodInfo ,
#endif
pathBuilderAddReversePath ,
#if defined(ENABLE_OVERLOADING)
PathBuilderAddRoundedRectMethodInfo ,
#endif
pathBuilderAddRoundedRect ,
#if defined(ENABLE_OVERLOADING)
PathBuilderAddSegmentMethodInfo ,
#endif
pathBuilderAddSegment ,
#if defined(ENABLE_OVERLOADING)
PathBuilderArcToMethodInfo ,
#endif
pathBuilderArcTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderCloseMethodInfo ,
#endif
pathBuilderClose ,
#if defined(ENABLE_OVERLOADING)
PathBuilderConicToMethodInfo ,
#endif
pathBuilderConicTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderCubicToMethodInfo ,
#endif
pathBuilderCubicTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderGetCurrentPointMethodInfo ,
#endif
pathBuilderGetCurrentPoint ,
#if defined(ENABLE_OVERLOADING)
PathBuilderHtmlArcToMethodInfo ,
#endif
pathBuilderHtmlArcTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderLineToMethodInfo ,
#endif
pathBuilderLineTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderMoveToMethodInfo ,
#endif
pathBuilderMoveTo ,
pathBuilderNew ,
#if defined(ENABLE_OVERLOADING)
PathBuilderQuadToMethodInfo ,
#endif
pathBuilderQuadTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRefMethodInfo ,
#endif
pathBuilderRef ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelArcToMethodInfo ,
#endif
pathBuilderRelArcTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelConicToMethodInfo ,
#endif
pathBuilderRelConicTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelCubicToMethodInfo ,
#endif
pathBuilderRelCubicTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelHtmlArcToMethodInfo ,
#endif
pathBuilderRelHtmlArcTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelLineToMethodInfo ,
#endif
pathBuilderRelLineTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelMoveToMethodInfo ,
#endif
pathBuilderRelMoveTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelQuadToMethodInfo ,
#endif
pathBuilderRelQuadTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderRelSvgArcToMethodInfo ,
#endif
pathBuilderRelSvgArcTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderSvgArcToMethodInfo ,
#endif
pathBuilderSvgArcTo ,
#if defined(ENABLE_OVERLOADING)
PathBuilderToPathMethodInfo ,
#endif
pathBuilderToPath ,
#if defined(ENABLE_OVERLOADING)
PathBuilderUnrefMethodInfo ,
#endif
pathBuilderUnref ,
) 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.Cairo.Structs.Path as Cairo.Path
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.Graphene.Structs.Size as Graphene.Size
import qualified GI.Graphene.Structs.Vec2 as Graphene.Vec2
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.Structs.Path as Gsk.Path
import {-# SOURCE #-} qualified GI.Gsk.Structs.PathMeasure as Gsk.PathMeasure
import {-# SOURCE #-} qualified GI.Gsk.Structs.PathPoint as Gsk.PathPoint
import {-# SOURCE #-} qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import {-# SOURCE #-} qualified GI.Gsk.Structs.Stroke as Gsk.Stroke
import qualified GI.Pango.Objects.Layout as Pango.Layout
#else
import qualified GI.Cairo.Structs.Path as Cairo.Path
import qualified GI.Graphene.Structs.Point as Graphene.Point
import qualified GI.Graphene.Structs.Rect as Graphene.Rect
import {-# SOURCE #-} qualified GI.Gsk.Structs.Path as Gsk.Path
import {-# SOURCE #-} qualified GI.Gsk.Structs.PathPoint as Gsk.PathPoint
import {-# SOURCE #-} qualified GI.Gsk.Structs.RoundedRect as Gsk.RoundedRect
import qualified GI.Pango.Objects.Layout as Pango.Layout
#endif
newtype PathBuilder = PathBuilder (SP.ManagedPtr PathBuilder)
deriving (PathBuilder -> PathBuilder -> Bool
(PathBuilder -> PathBuilder -> Bool)
-> (PathBuilder -> PathBuilder -> Bool) -> Eq PathBuilder
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PathBuilder -> PathBuilder -> Bool
== :: PathBuilder -> PathBuilder -> Bool
$c/= :: PathBuilder -> PathBuilder -> Bool
/= :: PathBuilder -> PathBuilder -> Bool
Eq)
instance SP.ManagedPtrNewtype PathBuilder where
toManagedPtr :: PathBuilder -> ManagedPtr PathBuilder
toManagedPtr (PathBuilder ManagedPtr PathBuilder
p) = ManagedPtr PathBuilder
p
foreign import ccall "gsk_path_builder_get_type" c_gsk_path_builder_get_type ::
IO GType
type instance O.ParentTypes PathBuilder = '[]
instance O.HasParentTypes PathBuilder
instance B.Types.TypedObject PathBuilder where
glibType :: IO GType
glibType = IO GType
c_gsk_path_builder_get_type
instance B.Types.GBoxed PathBuilder
instance B.GValue.IsGValue (Maybe PathBuilder) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gsk_path_builder_get_type
gvalueSet_ :: Ptr GValue -> Maybe PathBuilder -> IO ()
gvalueSet_ Ptr GValue
gv Maybe PathBuilder
P.Nothing = Ptr GValue -> Ptr PathBuilder -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr PathBuilder
forall a. Ptr a
FP.nullPtr :: FP.Ptr PathBuilder)
gvalueSet_ Ptr GValue
gv (P.Just PathBuilder
obj) = PathBuilder -> (Ptr PathBuilder -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr PathBuilder
obj (Ptr GValue -> Ptr PathBuilder -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe PathBuilder)
gvalueGet_ Ptr GValue
gv = do
Ptr PathBuilder
ptr <- Ptr GValue -> IO (Ptr PathBuilder)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr PathBuilder)
if Ptr PathBuilder
ptr Ptr PathBuilder -> Ptr PathBuilder -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr PathBuilder
forall a. Ptr a
FP.nullPtr
then PathBuilder -> Maybe PathBuilder
forall a. a -> Maybe a
P.Just (PathBuilder -> Maybe PathBuilder)
-> IO PathBuilder -> IO (Maybe PathBuilder)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr PathBuilder -> PathBuilder)
-> Ptr PathBuilder -> IO PathBuilder
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr PathBuilder -> PathBuilder
PathBuilder Ptr PathBuilder
ptr
else Maybe PathBuilder -> IO (Maybe PathBuilder)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe PathBuilder
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList PathBuilder
type instance O.AttributeList PathBuilder = PathBuilderAttributeList
type PathBuilderAttributeList = ('[ ] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gsk_path_builder_new" gsk_path_builder_new ::
IO (Ptr PathBuilder)
pathBuilderNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m PathBuilder
pathBuilderNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m PathBuilder
pathBuilderNew = IO PathBuilder -> m PathBuilder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PathBuilder -> m PathBuilder)
-> IO PathBuilder -> m PathBuilder
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
result <- IO (Ptr PathBuilder)
gsk_path_builder_new
Text -> Ptr PathBuilder -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pathBuilderNew" Ptr PathBuilder
result
PathBuilder
result' <- ((ManagedPtr PathBuilder -> PathBuilder)
-> Ptr PathBuilder -> IO PathBuilder
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr PathBuilder -> PathBuilder
PathBuilder) Ptr PathBuilder
result
PathBuilder -> IO PathBuilder
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PathBuilder
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gsk_path_builder_add_cairo_path" gsk_path_builder_add_cairo_path ::
Ptr PathBuilder ->
Ptr Cairo.Path.Path ->
IO ()
pathBuilderAddCairoPath ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Cairo.Path.Path
-> m ()
pathBuilderAddCairoPath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Path -> m ()
pathBuilderAddCairoPath PathBuilder
self Path
path = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Path
path' <- Path -> IO (Ptr Path)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Path
path
Ptr PathBuilder -> Ptr Path -> IO ()
gsk_path_builder_add_cairo_path Ptr PathBuilder
self' Ptr Path
path'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Path -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Path
path
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddCairoPathMethodInfo
instance (signature ~ (Cairo.Path.Path -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderAddCairoPathMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddCairoPath
instance O.OverloadedMethodInfo PathBuilderAddCairoPathMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddCairoPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddCairoPath"
})
#endif
foreign import ccall "gsk_path_builder_add_circle" gsk_path_builder_add_circle ::
Ptr PathBuilder ->
Ptr Graphene.Point.Point ->
CFloat ->
IO ()
pathBuilderAddCircle ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Graphene.Point.Point
-> Float
-> m ()
pathBuilderAddCircle :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Point -> Float -> m ()
pathBuilderAddCircle PathBuilder
self Point
center Float
radius = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Point
center' <- Point -> IO (Ptr Point)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Point
center
let radius' :: CFloat
radius' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
radius
Ptr PathBuilder -> Ptr Point -> CFloat -> IO ()
gsk_path_builder_add_circle Ptr PathBuilder
self' Ptr Point
center' CFloat
radius'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Point -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Point
center
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddCircleMethodInfo
instance (signature ~ (Graphene.Point.Point -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderAddCircleMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddCircle
instance O.OverloadedMethodInfo PathBuilderAddCircleMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddCircle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddCircle"
})
#endif
foreign import ccall "gsk_path_builder_add_layout" gsk_path_builder_add_layout ::
Ptr PathBuilder ->
Ptr Pango.Layout.Layout ->
IO ()
pathBuilderAddLayout ::
(B.CallStack.HasCallStack, MonadIO m, Pango.Layout.IsLayout a) =>
PathBuilder
-> a
-> m ()
pathBuilderAddLayout :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsLayout a) =>
PathBuilder -> a -> m ()
pathBuilderAddLayout PathBuilder
self a
layout = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Layout
layout' <- a -> IO (Ptr Layout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr PathBuilder -> Ptr Layout -> IO ()
gsk_path_builder_add_layout Ptr PathBuilder
self' Ptr Layout
layout'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddLayoutMethodInfo
instance (signature ~ (a -> m ()), MonadIO m, Pango.Layout.IsLayout a) => O.OverloadedMethod PathBuilderAddLayoutMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddLayout
instance O.OverloadedMethodInfo PathBuilderAddLayoutMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddLayout",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddLayout"
})
#endif
foreign import ccall "gsk_path_builder_add_path" gsk_path_builder_add_path ::
Ptr PathBuilder ->
Ptr Gsk.Path.Path ->
IO ()
pathBuilderAddPath ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Gsk.Path.Path
-> m ()
pathBuilderAddPath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Path -> m ()
pathBuilderAddPath PathBuilder
self Path
path = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Path
path' <- Path -> IO (Ptr Path)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Path
path
Ptr PathBuilder -> Ptr Path -> IO ()
gsk_path_builder_add_path Ptr PathBuilder
self' Ptr Path
path'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Path -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Path
path
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddPathMethodInfo
instance (signature ~ (Gsk.Path.Path -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderAddPathMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddPath
instance O.OverloadedMethodInfo PathBuilderAddPathMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddPath"
})
#endif
foreign import ccall "gsk_path_builder_add_rect" gsk_path_builder_add_rect ::
Ptr PathBuilder ->
Ptr Graphene.Rect.Rect ->
IO ()
pathBuilderAddRect ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Graphene.Rect.Rect
-> m ()
pathBuilderAddRect :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Rect -> m ()
pathBuilderAddRect PathBuilder
self Rect
rect = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Rect
rect' <- Rect -> IO (Ptr Rect)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rect
rect
Ptr PathBuilder -> Ptr Rect -> IO ()
gsk_path_builder_add_rect Ptr PathBuilder
self' Ptr Rect
rect'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Rect -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Rect
rect
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddRectMethodInfo
instance (signature ~ (Graphene.Rect.Rect -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderAddRectMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddRect
instance O.OverloadedMethodInfo PathBuilderAddRectMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddRect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddRect"
})
#endif
foreign import ccall "gsk_path_builder_add_reverse_path" gsk_path_builder_add_reverse_path ::
Ptr PathBuilder ->
Ptr Gsk.Path.Path ->
IO ()
pathBuilderAddReversePath ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Gsk.Path.Path
-> m ()
pathBuilderAddReversePath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Path -> m ()
pathBuilderAddReversePath PathBuilder
self Path
path = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Path
path' <- Path -> IO (Ptr Path)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Path
path
Ptr PathBuilder -> Ptr Path -> IO ()
gsk_path_builder_add_reverse_path Ptr PathBuilder
self' Ptr Path
path'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Path -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Path
path
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddReversePathMethodInfo
instance (signature ~ (Gsk.Path.Path -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderAddReversePathMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddReversePath
instance O.OverloadedMethodInfo PathBuilderAddReversePathMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddReversePath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddReversePath"
})
#endif
foreign import ccall "gsk_path_builder_add_rounded_rect" gsk_path_builder_add_rounded_rect ::
Ptr PathBuilder ->
Ptr Gsk.RoundedRect.RoundedRect ->
IO ()
pathBuilderAddRoundedRect ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Gsk.RoundedRect.RoundedRect
-> m ()
pathBuilderAddRoundedRect :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> RoundedRect -> m ()
pathBuilderAddRoundedRect PathBuilder
self RoundedRect
rect = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr RoundedRect
rect' <- RoundedRect -> IO (Ptr RoundedRect)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr RoundedRect
rect
Ptr PathBuilder -> Ptr RoundedRect -> IO ()
gsk_path_builder_add_rounded_rect Ptr PathBuilder
self' Ptr RoundedRect
rect'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
RoundedRect -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr RoundedRect
rect
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddRoundedRectMethodInfo
instance (signature ~ (Gsk.RoundedRect.RoundedRect -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderAddRoundedRectMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddRoundedRect
instance O.OverloadedMethodInfo PathBuilderAddRoundedRectMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddRoundedRect",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddRoundedRect"
})
#endif
foreign import ccall "gsk_path_builder_add_segment" gsk_path_builder_add_segment ::
Ptr PathBuilder ->
Ptr Gsk.Path.Path ->
Ptr Gsk.PathPoint.PathPoint ->
Ptr Gsk.PathPoint.PathPoint ->
IO ()
pathBuilderAddSegment ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Gsk.Path.Path
-> Gsk.PathPoint.PathPoint
-> Gsk.PathPoint.PathPoint
-> m ()
pathBuilderAddSegment :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Path -> PathPoint -> PathPoint -> m ()
pathBuilderAddSegment PathBuilder
self Path
path PathPoint
start PathPoint
end = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Path
path' <- Path -> IO (Ptr Path)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Path
path
Ptr PathPoint
start' <- PathPoint -> IO (Ptr PathPoint)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathPoint
start
Ptr PathPoint
end' <- PathPoint -> IO (Ptr PathPoint)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathPoint
end
Ptr PathBuilder
-> Ptr Path -> Ptr PathPoint -> Ptr PathPoint -> IO ()
gsk_path_builder_add_segment Ptr PathBuilder
self' Ptr Path
path' Ptr PathPoint
start' Ptr PathPoint
end'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Path -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Path
path
PathPoint -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathPoint
start
PathPoint -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathPoint
end
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderAddSegmentMethodInfo
instance (signature ~ (Gsk.Path.Path -> Gsk.PathPoint.PathPoint -> Gsk.PathPoint.PathPoint -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderAddSegmentMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderAddSegment
instance O.OverloadedMethodInfo PathBuilderAddSegmentMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderAddSegment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderAddSegment"
})
#endif
foreign import ccall "gsk_path_builder_arc_to" gsk_path_builder_arc_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderArcTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderArcTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> m ()
pathBuilderArcTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
Ptr PathBuilder -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_arc_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderArcToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderArcToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderArcTo
instance O.OverloadedMethodInfo PathBuilderArcToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderArcTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderArcTo"
})
#endif
foreign import ccall "gsk_path_builder_close" gsk_path_builder_close ::
Ptr PathBuilder ->
IO ()
pathBuilderClose ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> m ()
pathBuilderClose :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> m ()
pathBuilderClose PathBuilder
self = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr PathBuilder -> IO ()
gsk_path_builder_close Ptr PathBuilder
self'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderCloseMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod PathBuilderCloseMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderClose
instance O.OverloadedMethodInfo PathBuilderCloseMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderClose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderClose"
})
#endif
foreign import ccall "gsk_path_builder_conic_to" gsk_path_builder_conic_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderConicTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderConicTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> Float -> m ()
pathBuilderConicTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 Float
weight = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
let weight' :: CFloat
weight' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
weight
Ptr PathBuilder
-> CFloat -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_conic_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2' CFloat
weight'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderConicToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderConicToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderConicTo
instance O.OverloadedMethodInfo PathBuilderConicToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderConicTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderConicTo"
})
#endif
foreign import ccall "gsk_path_builder_cubic_to" gsk_path_builder_cubic_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderCubicTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderCubicTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder
-> Float -> Float -> Float -> Float -> Float -> Float -> m ()
pathBuilderCubicTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 Float
x3 Float
y3 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
let x3' :: CFloat
x3' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x3
let y3' :: CFloat
y3' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y3
Ptr PathBuilder
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> IO ()
gsk_path_builder_cubic_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2' CFloat
x3' CFloat
y3'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderCubicToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderCubicToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderCubicTo
instance O.OverloadedMethodInfo PathBuilderCubicToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderCubicTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderCubicTo"
})
#endif
foreign import ccall "gsk_path_builder_get_current_point" gsk_path_builder_get_current_point ::
Ptr PathBuilder ->
IO (Ptr Graphene.Point.Point)
pathBuilderGetCurrentPoint ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> m Graphene.Point.Point
pathBuilderGetCurrentPoint :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> m Point
pathBuilderGetCurrentPoint PathBuilder
self = IO Point -> m Point
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Point -> m Point) -> IO Point -> m Point
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Point
result <- Ptr PathBuilder -> IO (Ptr Point)
gsk_path_builder_get_current_point Ptr PathBuilder
self'
Text -> Ptr Point -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pathBuilderGetCurrentPoint" Ptr Point
result
Point
result' <- ((ManagedPtr Point -> Point) -> Ptr Point -> IO Point
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr Point -> Point
Graphene.Point.Point) Ptr Point
result
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Point -> IO Point
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Point
result'
#if defined(ENABLE_OVERLOADING)
data PathBuilderGetCurrentPointMethodInfo
instance (signature ~ (m Graphene.Point.Point), MonadIO m) => O.OverloadedMethod PathBuilderGetCurrentPointMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderGetCurrentPoint
instance O.OverloadedMethodInfo PathBuilderGetCurrentPointMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderGetCurrentPoint",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderGetCurrentPoint"
})
#endif
foreign import ccall "gsk_path_builder_html_arc_to" gsk_path_builder_html_arc_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderHtmlArcTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderHtmlArcTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> Float -> m ()
pathBuilderHtmlArcTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 Float
radius = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
let radius' :: CFloat
radius' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
radius
Ptr PathBuilder
-> CFloat -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_html_arc_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2' CFloat
radius'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderHtmlArcToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderHtmlArcToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderHtmlArcTo
instance O.OverloadedMethodInfo PathBuilderHtmlArcToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderHtmlArcTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderHtmlArcTo"
})
#endif
foreign import ccall "gsk_path_builder_line_to" gsk_path_builder_line_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
IO ()
pathBuilderLineTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> m ()
pathBuilderLineTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> m ()
pathBuilderLineTo PathBuilder
self Float
x Float
y = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
Ptr PathBuilder -> CFloat -> CFloat -> IO ()
gsk_path_builder_line_to Ptr PathBuilder
self' CFloat
x' CFloat
y'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderLineToMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderLineToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderLineTo
instance O.OverloadedMethodInfo PathBuilderLineToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderLineTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderLineTo"
})
#endif
foreign import ccall "gsk_path_builder_move_to" gsk_path_builder_move_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
IO ()
pathBuilderMoveTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> m ()
pathBuilderMoveTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> m ()
pathBuilderMoveTo PathBuilder
self Float
x Float
y = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
Ptr PathBuilder -> CFloat -> CFloat -> IO ()
gsk_path_builder_move_to Ptr PathBuilder
self' CFloat
x' CFloat
y'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderMoveToMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderMoveToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderMoveTo
instance O.OverloadedMethodInfo PathBuilderMoveToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderMoveTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderMoveTo"
})
#endif
foreign import ccall "gsk_path_builder_quad_to" gsk_path_builder_quad_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderQuadTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderQuadTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> m ()
pathBuilderQuadTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
Ptr PathBuilder -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_quad_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderQuadToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderQuadToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderQuadTo
instance O.OverloadedMethodInfo PathBuilderQuadToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderQuadTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderQuadTo"
})
#endif
foreign import ccall "gsk_path_builder_ref" gsk_path_builder_ref ::
Ptr PathBuilder ->
IO (Ptr PathBuilder)
pathBuilderRef ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> m PathBuilder
pathBuilderRef :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> m PathBuilder
pathBuilderRef PathBuilder
self = IO PathBuilder -> m PathBuilder
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO PathBuilder -> m PathBuilder)
-> IO PathBuilder -> m PathBuilder
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr PathBuilder
result <- Ptr PathBuilder -> IO (Ptr PathBuilder)
gsk_path_builder_ref Ptr PathBuilder
self'
Text -> Ptr PathBuilder -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pathBuilderRef" Ptr PathBuilder
result
PathBuilder
result' <- ((ManagedPtr PathBuilder -> PathBuilder)
-> Ptr PathBuilder -> IO PathBuilder
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
newBoxed ManagedPtr PathBuilder -> PathBuilder
PathBuilder) Ptr PathBuilder
result
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
PathBuilder -> IO PathBuilder
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return PathBuilder
result'
#if defined(ENABLE_OVERLOADING)
data PathBuilderRefMethodInfo
instance (signature ~ (m PathBuilder), MonadIO m) => O.OverloadedMethod PathBuilderRefMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRef
instance O.OverloadedMethodInfo PathBuilderRefMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRef",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRef"
})
#endif
foreign import ccall "gsk_path_builder_rel_arc_to" gsk_path_builder_rel_arc_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelArcTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderRelArcTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> m ()
pathBuilderRelArcTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
Ptr PathBuilder -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_rel_arc_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelArcToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelArcToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelArcTo
instance O.OverloadedMethodInfo PathBuilderRelArcToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelArcTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelArcTo"
})
#endif
foreign import ccall "gsk_path_builder_rel_conic_to" gsk_path_builder_rel_conic_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelConicTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderRelConicTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> Float -> m ()
pathBuilderRelConicTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 Float
weight = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
let weight' :: CFloat
weight' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
weight
Ptr PathBuilder
-> CFloat -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_rel_conic_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2' CFloat
weight'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelConicToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelConicToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelConicTo
instance O.OverloadedMethodInfo PathBuilderRelConicToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelConicTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelConicTo"
})
#endif
foreign import ccall "gsk_path_builder_rel_cubic_to" gsk_path_builder_rel_cubic_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelCubicTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderRelCubicTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder
-> Float -> Float -> Float -> Float -> Float -> Float -> m ()
pathBuilderRelCubicTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 Float
x3 Float
y3 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
let x3' :: CFloat
x3' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x3
let y3' :: CFloat
y3' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y3
Ptr PathBuilder
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> CFloat
-> IO ()
gsk_path_builder_rel_cubic_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2' CFloat
x3' CFloat
y3'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelCubicToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelCubicToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelCubicTo
instance O.OverloadedMethodInfo PathBuilderRelCubicToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelCubicTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelCubicTo"
})
#endif
foreign import ccall "gsk_path_builder_rel_html_arc_to" gsk_path_builder_rel_html_arc_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelHtmlArcTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderRelHtmlArcTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> Float -> m ()
pathBuilderRelHtmlArcTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 Float
radius = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
let radius' :: CFloat
radius' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
radius
Ptr PathBuilder
-> CFloat -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_rel_html_arc_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2' CFloat
radius'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelHtmlArcToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelHtmlArcToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelHtmlArcTo
instance O.OverloadedMethodInfo PathBuilderRelHtmlArcToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelHtmlArcTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelHtmlArcTo"
})
#endif
foreign import ccall "gsk_path_builder_rel_line_to" gsk_path_builder_rel_line_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelLineTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> m ()
pathBuilderRelLineTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> m ()
pathBuilderRelLineTo PathBuilder
self Float
x Float
y = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
Ptr PathBuilder -> CFloat -> CFloat -> IO ()
gsk_path_builder_rel_line_to Ptr PathBuilder
self' CFloat
x' CFloat
y'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelLineToMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelLineToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelLineTo
instance O.OverloadedMethodInfo PathBuilderRelLineToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelLineTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelLineTo"
})
#endif
foreign import ccall "gsk_path_builder_rel_move_to" gsk_path_builder_rel_move_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelMoveTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> m ()
pathBuilderRelMoveTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> m ()
pathBuilderRelMoveTo PathBuilder
self Float
x Float
y = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
Ptr PathBuilder -> CFloat -> CFloat -> IO ()
gsk_path_builder_rel_move_to Ptr PathBuilder
self' CFloat
x' CFloat
y'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelMoveToMethodInfo
instance (signature ~ (Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelMoveToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelMoveTo
instance O.OverloadedMethodInfo PathBuilderRelMoveToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelMoveTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelMoveTo"
})
#endif
foreign import ccall "gsk_path_builder_rel_quad_to" gsk_path_builder_rel_quad_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelQuadTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Float
-> m ()
pathBuilderRelQuadTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> Float -> Float -> Float -> Float -> m ()
pathBuilderRelQuadTo PathBuilder
self Float
x1 Float
y1 Float
x2 Float
y2 = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let x1' :: CFloat
x1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x1
let y1' :: CFloat
y1' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y1
let x2' :: CFloat
x2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x2
let y2' :: CFloat
y2' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y2
Ptr PathBuilder -> CFloat -> CFloat -> CFloat -> CFloat -> IO ()
gsk_path_builder_rel_quad_to Ptr PathBuilder
self' CFloat
x1' CFloat
y1' CFloat
x2' CFloat
y2'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelQuadToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelQuadToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelQuadTo
instance O.OverloadedMethodInfo PathBuilderRelQuadToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelQuadTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelQuadTo"
})
#endif
foreign import ccall "gsk_path_builder_rel_svg_arc_to" gsk_path_builder_rel_svg_arc_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CInt ->
CInt ->
CFloat ->
CFloat ->
IO ()
pathBuilderRelSvgArcTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Bool
-> Bool
-> Float
-> Float
-> m ()
pathBuilderRelSvgArcTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Bool
-> Bool
-> Float
-> Float
-> m ()
pathBuilderRelSvgArcTo PathBuilder
self Float
rx Float
ry Float
xAxisRotation Bool
largeArc Bool
positiveSweep Float
x Float
y = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let rx' :: CFloat
rx' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
rx
let ry' :: CFloat
ry' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
ry
let xAxisRotation' :: CFloat
xAxisRotation' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xAxisRotation
let largeArc' :: CInt
largeArc' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
largeArc
let positiveSweep' :: CInt
positiveSweep' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
positiveSweep
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
Ptr PathBuilder
-> CFloat
-> CFloat
-> CFloat
-> CInt
-> CInt
-> CFloat
-> CFloat
-> IO ()
gsk_path_builder_rel_svg_arc_to Ptr PathBuilder
self' CFloat
rx' CFloat
ry' CFloat
xAxisRotation' CInt
largeArc' CInt
positiveSweep' CFloat
x' CFloat
y'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderRelSvgArcToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderRelSvgArcToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderRelSvgArcTo
instance O.OverloadedMethodInfo PathBuilderRelSvgArcToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderRelSvgArcTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderRelSvgArcTo"
})
#endif
foreign import ccall "gsk_path_builder_svg_arc_to" gsk_path_builder_svg_arc_to ::
Ptr PathBuilder ->
CFloat ->
CFloat ->
CFloat ->
CInt ->
CInt ->
CFloat ->
CFloat ->
IO ()
pathBuilderSvgArcTo ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Bool
-> Bool
-> Float
-> Float
-> m ()
pathBuilderSvgArcTo :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder
-> Float
-> Float
-> Float
-> Bool
-> Bool
-> Float
-> Float
-> m ()
pathBuilderSvgArcTo PathBuilder
self Float
rx Float
ry Float
xAxisRotation Bool
largeArc Bool
positiveSweep Float
x Float
y = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
let rx' :: CFloat
rx' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
rx
let ry' :: CFloat
ry' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
ry
let xAxisRotation' :: CFloat
xAxisRotation' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xAxisRotation
let largeArc' :: CInt
largeArc' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
largeArc
let positiveSweep' :: CInt
positiveSweep' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
positiveSweep
let x' :: CFloat
x' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
x
let y' :: CFloat
y' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
y
Ptr PathBuilder
-> CFloat
-> CFloat
-> CFloat
-> CInt
-> CInt
-> CFloat
-> CFloat
-> IO ()
gsk_path_builder_svg_arc_to Ptr PathBuilder
self' CFloat
rx' CFloat
ry' CFloat
xAxisRotation' CInt
largeArc' CInt
positiveSweep' CFloat
x' CFloat
y'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderSvgArcToMethodInfo
instance (signature ~ (Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> m ()), MonadIO m) => O.OverloadedMethod PathBuilderSvgArcToMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderSvgArcTo
instance O.OverloadedMethodInfo PathBuilderSvgArcToMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderSvgArcTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderSvgArcTo"
})
#endif
foreign import ccall "gsk_path_builder_to_path" gsk_path_builder_to_path ::
Ptr PathBuilder ->
IO (Ptr Gsk.Path.Path)
pathBuilderToPath ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> m Gsk.Path.Path
pathBuilderToPath :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> m Path
pathBuilderToPath PathBuilder
self = 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
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr Path
result <- Ptr PathBuilder -> IO (Ptr Path)
gsk_path_builder_to_path Ptr PathBuilder
self'
Text -> Ptr Path -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"pathBuilderToPath" Ptr Path
result
Path
result' <- ((ManagedPtr Path -> Path) -> Ptr Path -> IO Path
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Path -> Path
Gsk.Path.Path) Ptr Path
result
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
Path -> IO Path
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Path
result'
#if defined(ENABLE_OVERLOADING)
data PathBuilderToPathMethodInfo
instance (signature ~ (m Gsk.Path.Path), MonadIO m) => O.OverloadedMethod PathBuilderToPathMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderToPath
instance O.OverloadedMethodInfo PathBuilderToPathMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderToPath",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderToPath"
})
#endif
foreign import ccall "gsk_path_builder_unref" gsk_path_builder_unref ::
Ptr PathBuilder ->
IO ()
pathBuilderUnref ::
(B.CallStack.HasCallStack, MonadIO m) =>
PathBuilder
-> m ()
pathBuilderUnref :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
PathBuilder -> m ()
pathBuilderUnref PathBuilder
self = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr PathBuilder
self' <- PathBuilder -> IO (Ptr PathBuilder)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr PathBuilder
self
Ptr PathBuilder -> IO ()
gsk_path_builder_unref Ptr PathBuilder
self'
PathBuilder -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr PathBuilder
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data PathBuilderUnrefMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod PathBuilderUnrefMethodInfo PathBuilder signature where
overloadedMethod = pathBuilderUnref
instance O.OverloadedMethodInfo PathBuilderUnrefMethodInfo PathBuilder where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gsk.Structs.PathBuilder.pathBuilderUnref",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gsk-4.0.9/docs/GI-Gsk-Structs-PathBuilder.html#v:pathBuilderUnref"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolvePathBuilderMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolvePathBuilderMethod "addCairoPath" o = PathBuilderAddCairoPathMethodInfo
ResolvePathBuilderMethod "addCircle" o = PathBuilderAddCircleMethodInfo
ResolvePathBuilderMethod "addLayout" o = PathBuilderAddLayoutMethodInfo
ResolvePathBuilderMethod "addPath" o = PathBuilderAddPathMethodInfo
ResolvePathBuilderMethod "addRect" o = PathBuilderAddRectMethodInfo
ResolvePathBuilderMethod "addReversePath" o = PathBuilderAddReversePathMethodInfo
ResolvePathBuilderMethod "addRoundedRect" o = PathBuilderAddRoundedRectMethodInfo
ResolvePathBuilderMethod "addSegment" o = PathBuilderAddSegmentMethodInfo
ResolvePathBuilderMethod "arcTo" o = PathBuilderArcToMethodInfo
ResolvePathBuilderMethod "close" o = PathBuilderCloseMethodInfo
ResolvePathBuilderMethod "conicTo" o = PathBuilderConicToMethodInfo
ResolvePathBuilderMethod "cubicTo" o = PathBuilderCubicToMethodInfo
ResolvePathBuilderMethod "htmlArcTo" o = PathBuilderHtmlArcToMethodInfo
ResolvePathBuilderMethod "lineTo" o = PathBuilderLineToMethodInfo
ResolvePathBuilderMethod "moveTo" o = PathBuilderMoveToMethodInfo
ResolvePathBuilderMethod "quadTo" o = PathBuilderQuadToMethodInfo
ResolvePathBuilderMethod "ref" o = PathBuilderRefMethodInfo
ResolvePathBuilderMethod "relArcTo" o = PathBuilderRelArcToMethodInfo
ResolvePathBuilderMethod "relConicTo" o = PathBuilderRelConicToMethodInfo
ResolvePathBuilderMethod "relCubicTo" o = PathBuilderRelCubicToMethodInfo
ResolvePathBuilderMethod "relHtmlArcTo" o = PathBuilderRelHtmlArcToMethodInfo
ResolvePathBuilderMethod "relLineTo" o = PathBuilderRelLineToMethodInfo
ResolvePathBuilderMethod "relMoveTo" o = PathBuilderRelMoveToMethodInfo
ResolvePathBuilderMethod "relQuadTo" o = PathBuilderRelQuadToMethodInfo
ResolvePathBuilderMethod "relSvgArcTo" o = PathBuilderRelSvgArcToMethodInfo
ResolvePathBuilderMethod "svgArcTo" o = PathBuilderSvgArcToMethodInfo
ResolvePathBuilderMethod "toPath" o = PathBuilderToPathMethodInfo
ResolvePathBuilderMethod "unref" o = PathBuilderUnrefMethodInfo
ResolvePathBuilderMethod "getCurrentPoint" o = PathBuilderGetCurrentPointMethodInfo
ResolvePathBuilderMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolvePathBuilderMethod t PathBuilder, O.OverloadedMethod info PathBuilder p) => OL.IsLabel t (PathBuilder -> 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 ~ ResolvePathBuilderMethod t PathBuilder, O.OverloadedMethod info PathBuilder p, R.HasField t PathBuilder p) => R.HasField t PathBuilder p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolvePathBuilderMethod t PathBuilder, O.OverloadedMethodInfo info PathBuilder) => OL.IsLabel t (O.MethodProxy info PathBuilder) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif