{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Cairo.Structs.RectangleInt
(
RectangleInt(..) ,
newZeroRectangleInt ,
noRectangleInt ,
#if defined(ENABLE_OVERLOADING)
ResolveRectangleIntMethod ,
#endif
getRectangleIntHeight ,
#if defined(ENABLE_OVERLOADING)
rectangleInt_height ,
#endif
setRectangleIntHeight ,
getRectangleIntWidth ,
#if defined(ENABLE_OVERLOADING)
rectangleInt_width ,
#endif
setRectangleIntWidth ,
getRectangleIntX ,
#if defined(ENABLE_OVERLOADING)
rectangleInt_x ,
#endif
setRectangleIntX ,
getRectangleIntY ,
#if defined(ENABLE_OVERLOADING)
rectangleInt_y ,
#endif
setRectangleIntY ,
) 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 RectangleInt = RectangleInt (ManagedPtr RectangleInt)
deriving (Eq)
foreign import ccall "cairo_gobject_rectangle_int_get_type" c_cairo_gobject_rectangle_int_get_type ::
IO GType
instance BoxedObject RectangleInt where
boxedType _ = c_cairo_gobject_rectangle_int_get_type
instance B.GValue.IsGValue RectangleInt where
toGValue o = do
gtype <- c_cairo_gobject_rectangle_int_get_type
B.ManagedPtr.withManagedPtr o (B.GValue.buildGValue gtype B.GValue.set_boxed)
fromGValue gv = do
ptr <- B.GValue.get_boxed gv :: IO (Ptr RectangleInt)
B.ManagedPtr.newBoxed RectangleInt ptr
newZeroRectangleInt :: MonadIO m => m RectangleInt
newZeroRectangleInt = liftIO $ callocBoxedBytes 16 >>= wrapBoxed RectangleInt
instance tag ~ 'AttrSet => Constructible RectangleInt tag where
new _ attrs = do
o <- newZeroRectangleInt
GI.Attributes.set o attrs
return o
noRectangleInt :: Maybe RectangleInt
noRectangleInt = Nothing
getRectangleIntX :: MonadIO m => RectangleInt -> m Int32
getRectangleIntX s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO Int32
return val
setRectangleIntX :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntX s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 0) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RectangleIntXFieldInfo
instance AttrInfo RectangleIntXFieldInfo where
type AttrBaseTypeConstraint RectangleIntXFieldInfo = (~) RectangleInt
type AttrAllowedOps RectangleIntXFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntXFieldInfo = (~) Int32
type AttrTransferTypeConstraint RectangleIntXFieldInfo = (~)Int32
type AttrTransferType RectangleIntXFieldInfo = Int32
type AttrGetType RectangleIntXFieldInfo = Int32
type AttrLabel RectangleIntXFieldInfo = "x"
type AttrOrigin RectangleIntXFieldInfo = RectangleInt
attrGet = getRectangleIntX
attrSet = setRectangleIntX
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rectangleInt_x :: AttrLabelProxy "x"
rectangleInt_x = AttrLabelProxy
#endif
getRectangleIntY :: MonadIO m => RectangleInt -> m Int32
getRectangleIntY s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 4) :: IO Int32
return val
setRectangleIntY :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntY s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 4) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RectangleIntYFieldInfo
instance AttrInfo RectangleIntYFieldInfo where
type AttrBaseTypeConstraint RectangleIntYFieldInfo = (~) RectangleInt
type AttrAllowedOps RectangleIntYFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntYFieldInfo = (~) Int32
type AttrTransferTypeConstraint RectangleIntYFieldInfo = (~)Int32
type AttrTransferType RectangleIntYFieldInfo = Int32
type AttrGetType RectangleIntYFieldInfo = Int32
type AttrLabel RectangleIntYFieldInfo = "y"
type AttrOrigin RectangleIntYFieldInfo = RectangleInt
attrGet = getRectangleIntY
attrSet = setRectangleIntY
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rectangleInt_y :: AttrLabelProxy "y"
rectangleInt_y = AttrLabelProxy
#endif
getRectangleIntWidth :: MonadIO m => RectangleInt -> m Int32
getRectangleIntWidth s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Int32
return val
setRectangleIntWidth :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntWidth s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 8) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RectangleIntWidthFieldInfo
instance AttrInfo RectangleIntWidthFieldInfo where
type AttrBaseTypeConstraint RectangleIntWidthFieldInfo = (~) RectangleInt
type AttrAllowedOps RectangleIntWidthFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntWidthFieldInfo = (~) Int32
type AttrTransferTypeConstraint RectangleIntWidthFieldInfo = (~)Int32
type AttrTransferType RectangleIntWidthFieldInfo = Int32
type AttrGetType RectangleIntWidthFieldInfo = Int32
type AttrLabel RectangleIntWidthFieldInfo = "width"
type AttrOrigin RectangleIntWidthFieldInfo = RectangleInt
attrGet = getRectangleIntWidth
attrSet = setRectangleIntWidth
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rectangleInt_width :: AttrLabelProxy "width"
rectangleInt_width = AttrLabelProxy
#endif
getRectangleIntHeight :: MonadIO m => RectangleInt -> m Int32
getRectangleIntHeight s = liftIO $ withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Int32
return val
setRectangleIntHeight :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntHeight s val = liftIO $ withManagedPtr s $ \ptr -> do
poke (ptr `plusPtr` 12) (val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RectangleIntHeightFieldInfo
instance AttrInfo RectangleIntHeightFieldInfo where
type AttrBaseTypeConstraint RectangleIntHeightFieldInfo = (~) RectangleInt
type AttrAllowedOps RectangleIntHeightFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntHeightFieldInfo = (~) Int32
type AttrTransferTypeConstraint RectangleIntHeightFieldInfo = (~)Int32
type AttrTransferType RectangleIntHeightFieldInfo = Int32
type AttrGetType RectangleIntHeightFieldInfo = Int32
type AttrLabel RectangleIntHeightFieldInfo = "height"
type AttrOrigin RectangleIntHeightFieldInfo = RectangleInt
attrGet = getRectangleIntHeight
attrSet = setRectangleIntHeight
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
rectangleInt_height :: AttrLabelProxy "height"
rectangleInt_height = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList RectangleInt
type instance O.AttributeList RectangleInt = RectangleIntAttributeList
type RectangleIntAttributeList = ('[ '("x", RectangleIntXFieldInfo), '("y", RectangleIntYFieldInfo), '("width", RectangleIntWidthFieldInfo), '("height", RectangleIntHeightFieldInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRectangleIntMethod (t :: Symbol) (o :: *) :: * where
ResolveRectangleIntMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRectangleIntMethod t RectangleInt, O.MethodInfo info RectangleInt p) => OL.IsLabel t (RectangleInt -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif