{-# 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.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
newtype Requisition = Requisition (SP.ManagedPtr Requisition)
deriving (Requisition -> Requisition -> Bool
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 = forall a. Ptr GValue -> Ptr a -> IO ()
B.GValue.set_boxed Ptr GValue
gv (forall a. Ptr a
FP.nullPtr :: FP.Ptr Requisition)
gvalueSet_ Ptr GValue
gv (P.Just Requisition
obj) = forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Requisition
obj (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 <- forall b. Ptr GValue -> IO (Ptr b)
B.GValue.get_boxed Ptr GValue
gv :: IO (Ptr Requisition)
if Ptr Requisition
ptr forall a. Eq a => a -> a -> Bool
/= forall a. Ptr a
FP.nullPtr
then forall a. a -> Maybe a
P.Just forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
B.ManagedPtr.newBoxed ManagedPtr Requisition -> Requisition
Requisition Ptr Requisition
ptr
else forall (m :: * -> *) a. Monad m => a -> m a
return forall a. Maybe a
P.Nothing
newZeroRequisition :: MonadIO m => m Requisition
newZeroRequisition :: forall (m :: * -> *). MonadIO m => m Requisition
newZeroRequisition = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a. GBoxed a => Int -> IO (Ptr a)
callocBoxedBytes Int
8 forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= 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 <- forall (m :: * -> *). MonadIO m => m Requisition
newZeroRequisition
forall o (m :: * -> *).
MonadIO m =>
o -> [AttrOp o 'AttrSet] -> m ()
GI.Attributes.set Requisition
o [AttrOp Requisition tag]
attrs
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
Int32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr Requisition
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
0) :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr Requisition
ptr 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.Requisition.width"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-Requisition.html#g:attr:width"
})
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
Int32
val <- forall a. Storable a => Ptr a -> IO a
peek (Ptr Requisition
ptr forall a b. Ptr a -> Int -> Ptr b
`plusPtr` Int
4) :: 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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
withManagedPtr Requisition
s forall a b. (a -> b) -> a -> b
$ \Ptr Requisition
ptr -> do
forall a. Storable a => Ptr a -> a -> IO ()
poke (Ptr Requisition
ptr 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
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.Requisition.height"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-Requisition.html#g:attr:height"
})
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, DK.Type)])
#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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Requisition
result <- IO (Ptr Requisition)
gtk_requisition_new
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"requisitionNew" Ptr Requisition
result
Requisition
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Requisition) Ptr Requisition
result
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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Requisition
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'
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"requisitionCopy" Ptr Requisition
result
Requisition
result' <- (forall a.
(HasCallStack, GBoxed a) =>
(ManagedPtr a -> a) -> Ptr a -> IO a
wrapBoxed ManagedPtr Requisition -> Requisition
Requisition) Ptr Requisition
result
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Requisition
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.Requisition.requisitionCopy",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/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 = forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO forall a b. (a -> b) -> a -> b
$ do
Ptr Requisition
requisition' <- forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Requisition
requisition
Ptr Requisition -> IO ()
gtk_requisition_free Ptr Requisition
requisition'
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Requisition
requisition
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 = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Structs.Requisition.requisitionFree",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-3.0.39/docs/GI-Gtk-Structs-Requisition.html#v:requisitionFree"
})
#endif
#if defined(ENABLE_OVERLOADING)
type family ResolveRequisitionMethod (t :: Symbol) (o :: DK.Type) :: DK.Type 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