#define ENABLE_OVERLOADING \
(!defined(__HADDOCK_VERSION__))
module GI.Cairo.Structs.RectangleInt
(
RectangleInt(..) ,
newZeroRectangleInt ,
noRectangleInt ,
getRectangleIntHeight ,
#if ENABLE_OVERLOADING
rectangleInt_height ,
#endif
setRectangleIntHeight ,
getRectangleIntWidth ,
#if ENABLE_OVERLOADING
rectangleInt_width ,
#endif
setRectangleIntWidth ,
getRectangleIntX ,
#if ENABLE_OVERLOADING
rectangleInt_x ,
#endif
setRectangleIntX ,
getRectangleIntY ,
#if 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
newtype RectangleInt = RectangleInt (ManagedPtr RectangleInt)
foreign import ccall "cairo_gobject_rectangle_int_get_type" c_cairo_gobject_rectangle_int_get_type ::
IO GType
instance BoxedObject RectangleInt where
boxedType :: RectangleInt -> IO GType
boxedType _ = IO GType
c_cairo_gobject_rectangle_int_get_type
newZeroRectangleInt :: MonadIO m => m RectangleInt
newZeroRectangleInt :: m RectangleInt
newZeroRectangleInt = IO RectangleInt -> m RectangleInt
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO RectangleInt -> m RectangleInt)
-> IO RectangleInt -> m RectangleInt
forall a b. (a -> b) -> a -> b
$ Int -> IO (Ptr RectangleInt)
forall a. BoxedObject a => Int -> IO (Ptr a)
callocBoxedBytes 16 IO (Ptr RectangleInt)
-> (Ptr RectangleInt -> IO RectangleInt) -> IO RectangleInt
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr RectangleInt -> RectangleInt)
-> Ptr RectangleInt -> IO RectangleInt
forall a.
(HasCallStack, BoxedObject a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr RectangleInt -> RectangleInt
RectangleInt
instance tag ~ 'AttrSet => Constructible RectangleInt tag where
new :: (ManagedPtr RectangleInt -> RectangleInt)
-> [AttrOp RectangleInt tag] -> m RectangleInt
new _ attrs :: [AttrOp RectangleInt tag]
attrs = do
RectangleInt
o <- m RectangleInt
forall (m :: * -> *). MonadIO m => m RectangleInt
newZeroRectangleInt
RectangleInt -> [AttrOp RectangleInt 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set RectangleInt
o [AttrOp RectangleInt tag]
[AttrOp RectangleInt 'AttrSet]
attrs
RectangleInt -> m RectangleInt
forall (m :: * -> *) a. Monad m => a -> m a
return RectangleInt
o
noRectangleInt :: Maybe RectangleInt
noRectangleInt :: Maybe RectangleInt
noRectangleInt = Maybe RectangleInt
forall a. Maybe a
Nothing
getRectangleIntX :: MonadIO m => RectangleInt -> m Int32
getRectangleIntX :: RectangleInt -> m Int32
getRectangleIntX s :: RectangleInt
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO Int32) -> IO Int32)
-> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setRectangleIntX :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntX :: RectangleInt -> Int32 -> m ()
setRectangleIntX s :: RectangleInt
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO ()) -> IO ())
-> (Ptr RectangleInt -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 0) (Int32
val :: Int32)
#if ENABLE_OVERLOADING
data RectangleIntXFieldInfo
instance AttrInfo RectangleIntXFieldInfo where
type AttrAllowedOps RectangleIntXFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntXFieldInfo = (~) Int32
type AttrBaseTypeConstraint RectangleIntXFieldInfo = (~) RectangleInt
type AttrGetType RectangleIntXFieldInfo = Int32
type AttrLabel RectangleIntXFieldInfo = "x"
type AttrOrigin RectangleIntXFieldInfo = RectangleInt
attrGet _ = getRectangleIntX
attrSet _ = setRectangleIntX
attrConstruct = undefined
attrClear _ = undefined
rectangleInt_x :: AttrLabelProxy "x"
rectangleInt_x = AttrLabelProxy
#endif
getRectangleIntY :: MonadIO m => RectangleInt -> m Int32
getRectangleIntY :: RectangleInt -> m Int32
getRectangleIntY s :: RectangleInt
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO Int32) -> IO Int32)
-> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 4) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setRectangleIntY :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntY :: RectangleInt -> Int32 -> m ()
setRectangleIntY s :: RectangleInt
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO ()) -> IO ())
-> (Ptr RectangleInt -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 4) (Int32
val :: Int32)
#if ENABLE_OVERLOADING
data RectangleIntYFieldInfo
instance AttrInfo RectangleIntYFieldInfo where
type AttrAllowedOps RectangleIntYFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntYFieldInfo = (~) Int32
type AttrBaseTypeConstraint RectangleIntYFieldInfo = (~) RectangleInt
type AttrGetType RectangleIntYFieldInfo = Int32
type AttrLabel RectangleIntYFieldInfo = "y"
type AttrOrigin RectangleIntYFieldInfo = RectangleInt
attrGet _ = getRectangleIntY
attrSet _ = setRectangleIntY
attrConstruct = undefined
attrClear _ = undefined
rectangleInt_y :: AttrLabelProxy "y"
rectangleInt_y = AttrLabelProxy
#endif
getRectangleIntWidth :: MonadIO m => RectangleInt -> m Int32
getRectangleIntWidth :: RectangleInt -> m Int32
getRectangleIntWidth s :: RectangleInt
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO Int32) -> IO Int32)
-> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setRectangleIntWidth :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntWidth :: RectangleInt -> Int32 -> m ()
setRectangleIntWidth s :: RectangleInt
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO ()) -> IO ())
-> (Ptr RectangleInt -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 8) (Int32
val :: Int32)
#if ENABLE_OVERLOADING
data RectangleIntWidthFieldInfo
instance AttrInfo RectangleIntWidthFieldInfo where
type AttrAllowedOps RectangleIntWidthFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntWidthFieldInfo = (~) Int32
type AttrBaseTypeConstraint RectangleIntWidthFieldInfo = (~) RectangleInt
type AttrGetType RectangleIntWidthFieldInfo = Int32
type AttrLabel RectangleIntWidthFieldInfo = "width"
type AttrOrigin RectangleIntWidthFieldInfo = RectangleInt
attrGet _ = getRectangleIntWidth
attrSet _ = setRectangleIntWidth
attrConstruct = undefined
attrClear _ = undefined
rectangleInt_width :: AttrLabelProxy "width"
rectangleInt_width = AttrLabelProxy
#endif
getRectangleIntHeight :: MonadIO m => RectangleInt -> m Int32
getRectangleIntHeight :: RectangleInt -> m Int32
getRectangleIntHeight s :: RectangleInt
s = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO Int32) -> IO Int32)
-> (Ptr RectangleInt -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 12) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setRectangleIntHeight :: MonadIO m => RectangleInt -> Int32 -> m ()
setRectangleIntHeight :: RectangleInt -> Int32 -> m ()
setRectangleIntHeight s :: RectangleInt
s val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ RectangleInt -> (Ptr RectangleInt -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr RectangleInt
s ((Ptr RectangleInt -> IO ()) -> IO ())
-> (Ptr RectangleInt -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \ptr :: Ptr RectangleInt
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr RectangleInt
ptr Ptr RectangleInt -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` 12) (Int32
val :: Int32)
#if ENABLE_OVERLOADING
data RectangleIntHeightFieldInfo
instance AttrInfo RectangleIntHeightFieldInfo where
type AttrAllowedOps RectangleIntHeightFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RectangleIntHeightFieldInfo = (~) Int32
type AttrBaseTypeConstraint RectangleIntHeightFieldInfo = (~) RectangleInt
type AttrGetType RectangleIntHeightFieldInfo = Int32
type AttrLabel RectangleIntHeightFieldInfo = "height"
type AttrOrigin RectangleIntHeightFieldInfo = RectangleInt
attrGet _ = getRectangleIntHeight
attrSet _ = setRectangleIntHeight
attrConstruct = undefined
attrClear _ = undefined
rectangleInt_height :: AttrLabelProxy "height"
rectangleInt_height = AttrLabelProxy
#endif
#if 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 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) => O.IsLabelProxy t (RectangleInt -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveRectangleIntMethod t RectangleInt, O.MethodInfo info RectangleInt p) => O.IsLabel t (RectangleInt -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#endif