{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Structs.Requisition
(
Requisition(..) ,
newZeroRequisition ,
#if defined(ENABLE_OVERLOADING)
ResolveRequisitionMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
RequisitionCopyMethodInfo ,
#endif
requisitionCopy ,
#if defined(ENABLE_OVERLOADING)
RequisitionFreeMethodInfo ,
#endif
requisitionFree ,
requisitionNew ,
getRequisitionHeight ,
#if defined(ENABLE_OVERLOADING)
requisition_height ,
#endif
setRequisitionHeight ,
getRequisitionWidth ,
#if defined(ENABLE_OVERLOADING)
requisition_width ,
#endif
setRequisitionWidth ,
) 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.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.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
import qualified GHC.Records as R
newtype Requisition = Requisition (SP.ManagedPtr Requisition)
deriving (Requisition -> Requisition -> Bool
(Requisition -> Requisition -> Bool)
-> (Requisition -> Requisition -> Bool) -> Eq Requisition
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Requisition -> Requisition -> Bool
$c/= :: Requisition -> Requisition -> Bool
== :: Requisition -> Requisition -> Bool
$c== :: Requisition -> Requisition -> Bool
Eq)
instance SP.ManagedPtrNewtype Requisition where
toManagedPtr :: Requisition -> ManagedPtr Requisition
toManagedPtr (Requisition ManagedPtr Requisition
p) = ManagedPtr Requisition
p
foreign import ccall "gtk_requisition_get_type" c_gtk_requisition_get_type ::
IO GType
type instance O.ParentTypes Requisition = '[]
instance O.HasParentTypes Requisition
instance B.Types.TypedObject Requisition where
glibType :: IO GType
glibType = IO GType
c_gtk_requisition_get_type
instance B.Types.GBoxed Requisition
instance B.GValue.IsGValue (Maybe Requisition) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_requisition_get_type
gvalueSet_ :: Ptr GValue -> Maybe Requisition -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Requisition
P.Nothing = Ptr GValue -> Ptr Requisition -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (Ptr Requisition
forall a. Ptr a
FP.nullPtr :: FP.Ptr Requisition)
gvalueSet_ Ptr GValue
gv (P.Just Requisition
obj) = Requisition -> (Ptr Requisition -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Requisition
obj (Ptr GValue -> Ptr Requisition -> IO ()
forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Requisition)
gvalueGet_ Ptr GValue
gv = do
Ptr Requisition
ptr <- Ptr GValue -> IO (Ptr Requisition)
forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr Requisition)
if Ptr Requisition
ptr Ptr Requisition -> Ptr Requisition -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Requisition
forall a. Ptr a
FP.nullPtr
then Requisition -> Maybe Requisition
forall a. a -> Maybe a
P.Just (Requisition -> Maybe Requisition)
-> IO Requisition -> IO (Maybe Requisition)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr Requisition -> Requisition
Requisition Ptr Requisition
ptr
else Maybe Requisition -> IO (Maybe Requisition)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Requisition
forall a. Maybe a
P.Nothing
newZeroRequisition :: MonadIO m => m Requisition
newZeroRequisition :: forall (m :: * -> *). MonadIO m => m Requisition
newZeroRequisition = IO Requisition -> m Requisition
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Requisition -> m Requisition)
-> IO Requisition -> m Requisition
forall a b. (a -> b) -> a -> b
$ Int -> IO (Ptr Requisition)
forall a. GBoxed a => Int -> IO (Ptr a)
callocBoxedBytes Int
8 IO (Ptr Requisition)
-> (Ptr Requisition -> IO Requisition) -> IO Requisition
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= (ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Requisition
instance tag ~ 'AttrSet => Constructible Requisition tag where
new :: forall (m :: * -> *).
MonadIO m =>
(ManagedPtr Requisition -> Requisition)
-> [AttrOp Requisition tag] -> m Requisition
new ManagedPtr Requisition -> Requisition
_ [AttrOp Requisition tag]
attrs = do
Requisition
o <- m Requisition
forall (m :: * -> *). MonadIO m => m Requisition
newZeroRequisition
Requisition -> [AttrOp Requisition 'AttrSet] -> m ()
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set Requisition
o [AttrOp Requisition tag]
[AttrOp Requisition 'AttrSet]
attrs
Requisition -> m Requisition
forall (m :: * -> *) a. Monad m => a -> m a
return Requisition
o
getRequisitionWidth :: MonadIO m => Requisition -> m Int32
getRequisitionWidth :: forall (m :: * -> *). MonadIO m => Requisition -> m Int32
getRequisitionWidth Requisition
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
$ Requisition -> (Ptr Requisition -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s ((Ptr Requisition -> IO Int32) -> IO Int32)
-> (Ptr Requisition -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr Requisition
ptr Ptr Requisition -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setRequisitionWidth :: MonadIO m => Requisition -> Int32 -> m ()
setRequisitionWidth :: forall (m :: * -> *). MonadIO m => Requisition -> Int32 -> m ()
setRequisitionWidth Requisition
s 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
$ Requisition -> (Ptr Requisition -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s ((Ptr Requisition -> IO ()) -> IO ())
-> (Ptr Requisition -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr Requisition
ptr Ptr Requisition -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) (Int32
val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RequisitionWidthFieldInfo
instance AttrInfo RequisitionWidthFieldInfo where
type AttrBaseTypeConstraint RequisitionWidthFieldInfo = (~) Requisition
type AttrAllowedOps RequisitionWidthFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RequisitionWidthFieldInfo = (~) Int32
type AttrTransferTypeConstraint RequisitionWidthFieldInfo = (~)Int32
type AttrTransferType RequisitionWidthFieldInfo = Int32
type AttrGetType RequisitionWidthFieldInfo = Int32
type AttrLabel RequisitionWidthFieldInfo = "width"
type AttrOrigin RequisitionWidthFieldInfo = Requisition
attrGet = getRequisitionWidth
attrSet = setRequisitionWidth
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
requisition_width :: AttrLabelProxy "width"
requisition_width = AttrLabelProxy
#endif
getRequisitionHeight :: MonadIO m => Requisition -> m Int32
getRequisitionHeight :: forall (m :: * -> *). MonadIO m => Requisition -> m Int32
getRequisitionHeight Requisition
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
$ Requisition -> (Ptr Requisition -> IO Int32) -> IO Int32
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s ((Ptr Requisition -> IO Int32) -> IO Int32)
-> (Ptr Requisition -> IO Int32) -> IO Int32
forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
Int32
val <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek (Ptr Requisition
ptr Ptr Requisition -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: IO Int32
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
val
setRequisitionHeight :: MonadIO m => Requisition -> Int32 -> m ()
setRequisitionHeight :: forall (m :: * -> *). MonadIO m => Requisition -> Int32 -> m ()
setRequisitionHeight Requisition
s 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
$ Requisition -> (Ptr Requisition -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s ((Ptr Requisition -> IO ()) -> IO ())
-> (Ptr Requisition -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
Ptr Int32 -> Int32 -> IO ()
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr Requisition
ptr Ptr Requisition -> Int -> Ptr Int32
forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) (Int32
val :: Int32)
#if defined(ENABLE_OVERLOADING)
data RequisitionHeightFieldInfo
instance AttrInfo RequisitionHeightFieldInfo where
type AttrBaseTypeConstraint RequisitionHeightFieldInfo = (~) Requisition
type AttrAllowedOps RequisitionHeightFieldInfo = '[ 'AttrSet, 'AttrGet]
type AttrSetTypeConstraint RequisitionHeightFieldInfo = (~) Int32
type AttrTransferTypeConstraint RequisitionHeightFieldInfo = (~)Int32
type AttrTransferType RequisitionHeightFieldInfo = Int32
type AttrGetType RequisitionHeightFieldInfo = Int32
type AttrLabel RequisitionHeightFieldInfo = "height"
type AttrOrigin RequisitionHeightFieldInfo = Requisition
attrGet = getRequisitionHeight
attrSet = setRequisitionHeight
attrConstruct = undefined
attrClear = undefined
attrTransfer _ v = do
return v
requisition_height :: AttrLabelProxy "height"
requisition_height = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Requisition
type instance O.AttributeList Requisition = RequisitionAttributeList
type RequisitionAttributeList = ('[ '("width", RequisitionWidthFieldInfo), '("height", RequisitionHeightFieldInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_requisition_new" gtk_requisition_new ::
IO (Ptr Requisition)
requisitionNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m Requisition
requisitionNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m Requisition
requisitionNew = IO Requisition -> m Requisition
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Requisition -> m Requisition)
-> IO Requisition -> m Requisition
forall a b. (a -> b) -> a -> b
$ do
Ptr Requisition
result <- IO (Ptr Requisition)
gtk_requisition_new
Text -> Ptr Requisition -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"requisitionNew" Ptr Requisition
result
Requisition
result' <- ((ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Requisition) Ptr Requisition
result
Requisition -> IO Requisition
forall (m :: * -> *) a. Monad m => a -> m a
return Requisition
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_requisition_copy" gtk_requisition_copy ::
Ptr Requisition ->
IO (Ptr Requisition)
requisitionCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
Requisition
-> m Requisition
requisitionCopy :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Requisition -> m Requisition
requisitionCopy Requisition
requisition = IO Requisition -> m Requisition
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Requisition -> m Requisition)
-> IO Requisition -> m Requisition
forall a b. (a -> b) -> a -> b
$ do
Ptr Requisition
requisition' <- Requisition -> IO (Ptr Requisition)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Requisition
requisition
Ptr Requisition
result <- Ptr Requisition -> IO (Ptr Requisition)
gtk_requisition_copy Ptr Requisition
requisition'
Text -> Ptr Requisition -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"requisitionCopy" Ptr Requisition
result
Requisition
result' <- ((ManagedPtr Requisition -> Requisition)
-> Ptr Requisition -> IO Requisition
forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Requisition) Ptr Requisition
result
Requisition -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Requisition
requisition
Requisition -> IO Requisition
forall (m :: * -> *) a. Monad m => a -> m a
return Requisition
result'
#if defined(ENABLE_OVERLOADING)
data RequisitionCopyMethodInfo
instance (signature ~ (m Requisition), MonadIO m) => O.OverloadedMethod RequisitionCopyMethodInfo Requisition signature where
overloadedMethod = requisitionCopy
instance O.OverloadedMethodInfo RequisitionCopyMethodInfo Requisition where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.Requisition.requisitionCopy",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-Requisition.html#v:requisitionCopy"
}
#endif
foreign import ccall "gtk_requisition_free" gtk_requisition_free ::
Ptr Requisition ->
IO ()
requisitionFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
Requisition
-> m ()
requisitionFree :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Requisition -> m ()
requisitionFree Requisition
requisition = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Requisition
requisition' <- Requisition -> IO (Ptr Requisition)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Requisition
requisition
Ptr Requisition -> IO ()
gtk_requisition_free Ptr Requisition
requisition'
Requisition -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Requisition
requisition
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data RequisitionFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.OverloadedMethod RequisitionFreeMethodInfo Requisition signature where
overloadedMethod = requisitionFree
instance O.OverloadedMethodInfo RequisitionFreeMethodInfo Requisition where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Structs.Requisition.requisitionFree",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Structs-Requisition.html#v:requisitionFree"
}
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRequisitionMethod (t :: Symbol) (o :: *) :: * where
ResolveRequisitionMethod "copy" o = RequisitionCopyMethodInfo
ResolveRequisitionMethod "free" o = RequisitionFreeMethodInfo
ResolveRequisitionMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveRequisitionMethod t Requisition, O.OverloadedMethod info Requisition p) => OL.IsLabel t (Requisition -> 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 ~ ResolveRequisitionMethod t Requisition, O.OverloadedMethod info Requisition p, R.HasField t Requisition p) => R.HasField t Requisition p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveRequisitionMethod t Requisition, O.OverloadedMethodInfo info Requisition) => OL.IsLabel t (O.MethodProxy info Requisition) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif