{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Pango.Structs.GlyphGeometry
(
GlyphGeometry(..) ,
newZeroGlyphGeometry ,
noGlyphGeometry ,
#if defined(ENABLE_OVERLOADING)
ResolveGlyphGeometryMethod ,
#endif
getGlyphGeometryWidth ,
#if defined(ENABLE_OVERLOADING)
glyphGeometry_width ,
#endif
setGlyphGeometryWidth ,
getGlyphGeometryXOffset ,
#if defined(ENABLE_OVERLOADING)
glyphGeometry_xOffset ,
#endif
setGlyphGeometryXOffset ,
getGlyphGeometryYOffset ,
#if defined(ENABLE_OVERLOADING)
glyphGeometry_yOffset ,
#endif
setGlyphGeometryYOffset ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
newtype GlyphGeometry = GlyphGeometry (ManagedPtr GlyphGeometry)
deriving (Eq)
instance WrappedPtr GlyphGeometry where
wrappedPtrCalloc = callocBytes 12
wrappedPtrCopy = \p -> withManagedPtr p (copyBytes 12 >=> wrapPtr GlyphGeometry)
wrappedPtrFree = Just ptr_to_g_free
newZeroGlyphGeometry :: MonadIO m => m GlyphGeometry
newZeroGlyphGeometry = liftIO $ wrappedPtrCalloc >>= wrapPtr GlyphGeometry
instance tag ~ 'AttrSet => Constructible GlyphGeometry tag where
new _ attrs = do
o <- newZeroGlyphGeometry
GI.Attributes.set o attrs
return o
noGlyphGeometry :: Maybe GlyphGeometry
noGlyphGeometry = Nothing
getGlyphGeometryWidth :: MonadIO m => GlyphGeometry -> m Int32
getGlyphGeometryWidth s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
setGlyphGeometryWidth :: MonadIO m => GlyphGeometry -> Int32 -> m ()
setGlyphGeometryWidth s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data GlyphGeometryWidthFieldInfo
instance AttrInfo GlyphGeometryWidthFieldInfo where
type AttrBaseTypeConstraint GlyphGeometryWidthFieldInfo = (~) GlyphGeometry
type AttrAllowedOps GlyphGeometryWidthFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint GlyphGeometryWidthFieldInfo = (~) Int32
type AttrTransferTypeConstraint GlyphGeometryWidthFieldInfo = (~)Int32
type AttrTransferType GlyphGeometryWidthFieldInfo = Int32
type AttrGetType GlyphGeometryWidthFieldInfo = Int32
type AttrLabel GlyphGeometryWidthFieldInfo = "width"
type AttrOrigin GlyphGeometryWidthFieldInfo = GlyphGeometry
attrGet = getGlyphGeometryWidth
attrSet = setGlyphGeometryWidth
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
glyphGeometry_width :: AttrLabelProxy "width"
glyphGeometry_width = AttrLabelProxy
#endif
getGlyphGeometryXOffset :: MonadIO m => GlyphGeometry -> m Int32
getGlyphGeometryXOffset s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Int32
return val
setGlyphGeometryXOffset :: MonadIO m => GlyphGeometry -> Int32 -> m ()
setGlyphGeometryXOffset s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data GlyphGeometryXOffsetFieldInfo
instance AttrInfo GlyphGeometryXOffsetFieldInfo where
type AttrBaseTypeConstraint GlyphGeometryXOffsetFieldInfo = (~) GlyphGeometry
type AttrAllowedOps GlyphGeometryXOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint GlyphGeometryXOffsetFieldInfo = (~) Int32
type AttrTransferTypeConstraint GlyphGeometryXOffsetFieldInfo = (~)Int32
type AttrTransferType GlyphGeometryXOffsetFieldInfo = Int32
type AttrGetType GlyphGeometryXOffsetFieldInfo = Int32
type AttrLabel GlyphGeometryXOffsetFieldInfo = "x_offset"
type AttrOrigin GlyphGeometryXOffsetFieldInfo = GlyphGeometry
attrGet = getGlyphGeometryXOffset
attrSet = setGlyphGeometryXOffset
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
glyphGeometry_xOffset :: AttrLabelProxy "xOffset"
glyphGeometry_xOffset = AttrLabelProxy
#endif
getGlyphGeometryYOffset :: MonadIO m => GlyphGeometry -> m Int32
getGlyphGeometryYOffset s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Int32
return val
setGlyphGeometryYOffset :: MonadIO m => GlyphGeometry -> Int32 -> m ()
setGlyphGeometryYOffset s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data GlyphGeometryYOffsetFieldInfo
instance AttrInfo GlyphGeometryYOffsetFieldInfo where
type AttrBaseTypeConstraint GlyphGeometryYOffsetFieldInfo = (~) GlyphGeometry
type AttrAllowedOps GlyphGeometryYOffsetFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint GlyphGeometryYOffsetFieldInfo = (~) Int32
type AttrTransferTypeConstraint GlyphGeometryYOffsetFieldInfo = (~)Int32
type AttrTransferType GlyphGeometryYOffsetFieldInfo = Int32
type AttrGetType GlyphGeometryYOffsetFieldInfo = Int32
type AttrLabel GlyphGeometryYOffsetFieldInfo = "y_offset"
type AttrOrigin GlyphGeometryYOffsetFieldInfo = GlyphGeometry
attrGet = getGlyphGeometryYOffset
attrSet = setGlyphGeometryYOffset
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
glyphGeometry_yOffset :: AttrLabelProxy "yOffset"
glyphGeometry_yOffset = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GlyphGeometry
type instance O.AttributeList GlyphGeometry = GlyphGeometryAttributeList
type GlyphGeometryAttributeList = ('[ '("width", GlyphGeometryWidthFieldInfo), '("xOffset", GlyphGeometryXOffsetFieldInfo), '("yOffset", GlyphGeometryYOffsetFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveGlyphGeometryMethod (t :: Symbol) (o :: *) :: * where
ResolveGlyphGeometryMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGlyphGeometryMethod t GlyphGeometry, O.MethodInfo info GlyphGeometry p) => OL.IsLabel t (GlyphGeometry -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif