{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ConstraintGuide
(
ConstraintGuide(..) ,
IsConstraintGuide ,
toConstraintGuide ,
#if defined(ENABLE_OVERLOADING)
ResolveConstraintGuideMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ConstraintGuideGetMaxSizeMethodInfo ,
#endif
constraintGuideGetMaxSize ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideGetMinSizeMethodInfo ,
#endif
constraintGuideGetMinSize ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideGetNameMethodInfo ,
#endif
constraintGuideGetName ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideGetNatSizeMethodInfo ,
#endif
constraintGuideGetNatSize ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideGetStrengthMethodInfo ,
#endif
constraintGuideGetStrength ,
constraintGuideNew ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideSetMaxSizeMethodInfo ,
#endif
constraintGuideSetMaxSize ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideSetMinSizeMethodInfo ,
#endif
constraintGuideSetMinSize ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideSetNameMethodInfo ,
#endif
constraintGuideSetName ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideSetNatSizeMethodInfo ,
#endif
constraintGuideSetNatSize ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideSetStrengthMethodInfo ,
#endif
constraintGuideSetStrength ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideMaxHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideMaxHeight ,
#endif
constructConstraintGuideMaxHeight ,
getConstraintGuideMaxHeight ,
setConstraintGuideMaxHeight ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideMaxWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideMaxWidth ,
#endif
constructConstraintGuideMaxWidth ,
getConstraintGuideMaxWidth ,
setConstraintGuideMaxWidth ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideMinHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideMinHeight ,
#endif
constructConstraintGuideMinHeight ,
getConstraintGuideMinHeight ,
setConstraintGuideMinHeight ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideMinWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideMinWidth ,
#endif
constructConstraintGuideMinWidth ,
getConstraintGuideMinWidth ,
setConstraintGuideMinWidth ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideNamePropertyInfo ,
#endif
clearConstraintGuideName ,
#if defined(ENABLE_OVERLOADING)
constraintGuideName ,
#endif
constructConstraintGuideName ,
getConstraintGuideName ,
setConstraintGuideName ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideNatHeightPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideNatHeight ,
#endif
constructConstraintGuideNatHeight ,
getConstraintGuideNatHeight ,
setConstraintGuideNatHeight ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideNatWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideNatWidth ,
#endif
constructConstraintGuideNatWidth ,
getConstraintGuideNatWidth ,
setConstraintGuideNatWidth ,
#if defined(ENABLE_OVERLOADING)
ConstraintGuideStrengthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideStrength ,
#endif
constructConstraintGuideStrength ,
getConstraintGuideStrength ,
setConstraintGuideStrength ,
) 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.Coerce as Coerce
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
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.ConstraintTarget as Gtk.ConstraintTarget
newtype ConstraintGuide = ConstraintGuide (SP.ManagedPtr ConstraintGuide)
deriving (ConstraintGuide -> ConstraintGuide -> Bool
(ConstraintGuide -> ConstraintGuide -> Bool)
-> (ConstraintGuide -> ConstraintGuide -> Bool)
-> Eq ConstraintGuide
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ConstraintGuide -> ConstraintGuide -> Bool
$c/= :: ConstraintGuide -> ConstraintGuide -> Bool
== :: ConstraintGuide -> ConstraintGuide -> Bool
$c== :: ConstraintGuide -> ConstraintGuide -> Bool
Eq)
instance SP.ManagedPtrNewtype ConstraintGuide where
toManagedPtr :: ConstraintGuide -> ManagedPtr ConstraintGuide
toManagedPtr (ConstraintGuide ManagedPtr ConstraintGuide
p) = ManagedPtr ConstraintGuide
p
foreign import ccall "gtk_constraint_guide_get_type"
c_gtk_constraint_guide_get_type :: IO B.Types.GType
instance B.Types.TypedObject ConstraintGuide where
glibType :: IO GType
glibType = IO GType
c_gtk_constraint_guide_get_type
instance B.Types.GObject ConstraintGuide
class (SP.GObject o, O.IsDescendantOf ConstraintGuide o) => IsConstraintGuide o
instance (SP.GObject o, O.IsDescendantOf ConstraintGuide o) => IsConstraintGuide o
instance O.HasParentTypes ConstraintGuide
type instance O.ParentTypes ConstraintGuide = '[GObject.Object.Object, Gtk.ConstraintTarget.ConstraintTarget]
toConstraintGuide :: (MIO.MonadIO m, IsConstraintGuide o) => o -> m ConstraintGuide
toConstraintGuide :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m ConstraintGuide
toConstraintGuide = IO ConstraintGuide -> m ConstraintGuide
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ConstraintGuide -> m ConstraintGuide)
-> (o -> IO ConstraintGuide) -> o -> m ConstraintGuide
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ConstraintGuide -> ConstraintGuide)
-> o -> IO ConstraintGuide
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ConstraintGuide -> ConstraintGuide
ConstraintGuide
instance B.GValue.IsGValue (Maybe ConstraintGuide) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_constraint_guide_get_type
gvalueSet_ :: Ptr GValue -> Maybe ConstraintGuide -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ConstraintGuide
P.Nothing = Ptr GValue -> Ptr ConstraintGuide -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ConstraintGuide
forall a. Ptr a
FP.nullPtr :: FP.Ptr ConstraintGuide)
gvalueSet_ Ptr GValue
gv (P.Just ConstraintGuide
obj) = ConstraintGuide -> (Ptr ConstraintGuide -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ConstraintGuide
obj (Ptr GValue -> Ptr ConstraintGuide -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ConstraintGuide)
gvalueGet_ Ptr GValue
gv = do
Ptr ConstraintGuide
ptr <- Ptr GValue -> IO (Ptr ConstraintGuide)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ConstraintGuide)
if Ptr ConstraintGuide
ptr Ptr ConstraintGuide -> Ptr ConstraintGuide -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ConstraintGuide
forall a. Ptr a
FP.nullPtr
then ConstraintGuide -> Maybe ConstraintGuide
forall a. a -> Maybe a
P.Just (ConstraintGuide -> Maybe ConstraintGuide)
-> IO ConstraintGuide -> IO (Maybe ConstraintGuide)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ConstraintGuide -> ConstraintGuide)
-> Ptr ConstraintGuide -> IO ConstraintGuide
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ConstraintGuide -> ConstraintGuide
ConstraintGuide Ptr ConstraintGuide
ptr
else Maybe ConstraintGuide -> IO (Maybe ConstraintGuide)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ConstraintGuide
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveConstraintGuideMethod (t :: Symbol) (o :: *) :: * where
ResolveConstraintGuideMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveConstraintGuideMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveConstraintGuideMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveConstraintGuideMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveConstraintGuideMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveConstraintGuideMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveConstraintGuideMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveConstraintGuideMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveConstraintGuideMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveConstraintGuideMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveConstraintGuideMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveConstraintGuideMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveConstraintGuideMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveConstraintGuideMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveConstraintGuideMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveConstraintGuideMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveConstraintGuideMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveConstraintGuideMethod "getMaxSize" o = ConstraintGuideGetMaxSizeMethodInfo
ResolveConstraintGuideMethod "getMinSize" o = ConstraintGuideGetMinSizeMethodInfo
ResolveConstraintGuideMethod "getName" o = ConstraintGuideGetNameMethodInfo
ResolveConstraintGuideMethod "getNatSize" o = ConstraintGuideGetNatSizeMethodInfo
ResolveConstraintGuideMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveConstraintGuideMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveConstraintGuideMethod "getStrength" o = ConstraintGuideGetStrengthMethodInfo
ResolveConstraintGuideMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveConstraintGuideMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveConstraintGuideMethod "setMaxSize" o = ConstraintGuideSetMaxSizeMethodInfo
ResolveConstraintGuideMethod "setMinSize" o = ConstraintGuideSetMinSizeMethodInfo
ResolveConstraintGuideMethod "setName" o = ConstraintGuideSetNameMethodInfo
ResolveConstraintGuideMethod "setNatSize" o = ConstraintGuideSetNatSizeMethodInfo
ResolveConstraintGuideMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveConstraintGuideMethod "setStrength" o = ConstraintGuideSetStrengthMethodInfo
ResolveConstraintGuideMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveConstraintGuideMethod t ConstraintGuide, O.OverloadedMethod info ConstraintGuide p) => OL.IsLabel t (ConstraintGuide -> 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 ~ ResolveConstraintGuideMethod t ConstraintGuide, O.OverloadedMethod info ConstraintGuide p, R.HasField t ConstraintGuide p) => R.HasField t ConstraintGuide p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveConstraintGuideMethod t ConstraintGuide, O.OverloadedMethodInfo info ConstraintGuide) => OL.IsLabel t (O.MethodProxy info ConstraintGuide) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getConstraintGuideMaxHeight :: (MonadIO m, IsConstraintGuide o) => o -> m Int32
getConstraintGuideMaxHeight :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m Int32
getConstraintGuideMaxHeight o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"max-height"
setConstraintGuideMaxHeight :: (MonadIO m, IsConstraintGuide o) => o -> Int32 -> m ()
setConstraintGuideMaxHeight :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> Int32 -> m ()
setConstraintGuideMaxHeight o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"max-height" Int32
val
constructConstraintGuideMaxHeight :: (IsConstraintGuide o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructConstraintGuideMaxHeight :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructConstraintGuideMaxHeight Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"max-height" Int32
val
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideMaxHeightPropertyInfo
instance AttrInfo ConstraintGuideMaxHeightPropertyInfo where
type AttrAllowedOps ConstraintGuideMaxHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ConstraintGuideMaxHeightPropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideMaxHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ConstraintGuideMaxHeightPropertyInfo = (~) Int32
type AttrTransferType ConstraintGuideMaxHeightPropertyInfo = Int32
type AttrGetType ConstraintGuideMaxHeightPropertyInfo = Int32
type AttrLabel ConstraintGuideMaxHeightPropertyInfo = "max-height"
type AttrOrigin ConstraintGuideMaxHeightPropertyInfo = ConstraintGuide
attrGet = getConstraintGuideMaxHeight
attrSet = setConstraintGuideMaxHeight
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideMaxHeight
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.maxHeight"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:maxHeight"
})
#endif
getConstraintGuideMaxWidth :: (MonadIO m, IsConstraintGuide o) => o -> m Int32
getConstraintGuideMaxWidth :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m Int32
getConstraintGuideMaxWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"max-width"
setConstraintGuideMaxWidth :: (MonadIO m, IsConstraintGuide o) => o -> Int32 -> m ()
setConstraintGuideMaxWidth :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> Int32 -> m ()
setConstraintGuideMaxWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"max-width" Int32
val
constructConstraintGuideMaxWidth :: (IsConstraintGuide o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructConstraintGuideMaxWidth :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructConstraintGuideMaxWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"max-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideMaxWidthPropertyInfo
instance AttrInfo ConstraintGuideMaxWidthPropertyInfo where
type AttrAllowedOps ConstraintGuideMaxWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ConstraintGuideMaxWidthPropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideMaxWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ConstraintGuideMaxWidthPropertyInfo = (~) Int32
type AttrTransferType ConstraintGuideMaxWidthPropertyInfo = Int32
type AttrGetType ConstraintGuideMaxWidthPropertyInfo = Int32
type AttrLabel ConstraintGuideMaxWidthPropertyInfo = "max-width"
type AttrOrigin ConstraintGuideMaxWidthPropertyInfo = ConstraintGuide
attrGet = getConstraintGuideMaxWidth
attrSet = setConstraintGuideMaxWidth
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideMaxWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.maxWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:maxWidth"
})
#endif
getConstraintGuideMinHeight :: (MonadIO m, IsConstraintGuide o) => o -> m Int32
getConstraintGuideMinHeight :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m Int32
getConstraintGuideMinHeight o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"min-height"
setConstraintGuideMinHeight :: (MonadIO m, IsConstraintGuide o) => o -> Int32 -> m ()
setConstraintGuideMinHeight :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> Int32 -> m ()
setConstraintGuideMinHeight o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"min-height" Int32
val
constructConstraintGuideMinHeight :: (IsConstraintGuide o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructConstraintGuideMinHeight :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructConstraintGuideMinHeight Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"min-height" Int32
val
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideMinHeightPropertyInfo
instance AttrInfo ConstraintGuideMinHeightPropertyInfo where
type AttrAllowedOps ConstraintGuideMinHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ConstraintGuideMinHeightPropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideMinHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ConstraintGuideMinHeightPropertyInfo = (~) Int32
type AttrTransferType ConstraintGuideMinHeightPropertyInfo = Int32
type AttrGetType ConstraintGuideMinHeightPropertyInfo = Int32
type AttrLabel ConstraintGuideMinHeightPropertyInfo = "min-height"
type AttrOrigin ConstraintGuideMinHeightPropertyInfo = ConstraintGuide
attrGet = getConstraintGuideMinHeight
attrSet = setConstraintGuideMinHeight
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideMinHeight
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.minHeight"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:minHeight"
})
#endif
getConstraintGuideMinWidth :: (MonadIO m, IsConstraintGuide o) => o -> m Int32
getConstraintGuideMinWidth :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m Int32
getConstraintGuideMinWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"min-width"
setConstraintGuideMinWidth :: (MonadIO m, IsConstraintGuide o) => o -> Int32 -> m ()
setConstraintGuideMinWidth :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> Int32 -> m ()
setConstraintGuideMinWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"min-width" Int32
val
constructConstraintGuideMinWidth :: (IsConstraintGuide o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructConstraintGuideMinWidth :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructConstraintGuideMinWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"min-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideMinWidthPropertyInfo
instance AttrInfo ConstraintGuideMinWidthPropertyInfo where
type AttrAllowedOps ConstraintGuideMinWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ConstraintGuideMinWidthPropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideMinWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ConstraintGuideMinWidthPropertyInfo = (~) Int32
type AttrTransferType ConstraintGuideMinWidthPropertyInfo = Int32
type AttrGetType ConstraintGuideMinWidthPropertyInfo = Int32
type AttrLabel ConstraintGuideMinWidthPropertyInfo = "min-width"
type AttrOrigin ConstraintGuideMinWidthPropertyInfo = ConstraintGuide
attrGet = getConstraintGuideMinWidth
attrSet = setConstraintGuideMinWidth
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideMinWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.minWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:minWidth"
})
#endif
getConstraintGuideName :: (MonadIO m, IsConstraintGuide o) => o -> m (Maybe T.Text)
getConstraintGuideName :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m (Maybe Text)
getConstraintGuideName o
obj = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"name"
setConstraintGuideName :: (MonadIO m, IsConstraintGuide o) => o -> T.Text -> m ()
setConstraintGuideName :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> Text -> m ()
setConstraintGuideName o
obj Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructConstraintGuideName :: (IsConstraintGuide o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructConstraintGuideName :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructConstraintGuideName Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"name" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearConstraintGuideName :: (MonadIO m, IsConstraintGuide o) => o -> m ()
clearConstraintGuideName :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m ()
clearConstraintGuideName o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"name" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideNamePropertyInfo
instance AttrInfo ConstraintGuideNamePropertyInfo where
type AttrAllowedOps ConstraintGuideNamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ConstraintGuideNamePropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideNamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ConstraintGuideNamePropertyInfo = (~) T.Text
type AttrTransferType ConstraintGuideNamePropertyInfo = T.Text
type AttrGetType ConstraintGuideNamePropertyInfo = (Maybe T.Text)
type AttrLabel ConstraintGuideNamePropertyInfo = "name"
type AttrOrigin ConstraintGuideNamePropertyInfo = ConstraintGuide
attrGet = getConstraintGuideName
attrSet = setConstraintGuideName
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideName
attrClear = clearConstraintGuideName
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.name"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:name"
})
#endif
getConstraintGuideNatHeight :: (MonadIO m, IsConstraintGuide o) => o -> m Int32
getConstraintGuideNatHeight :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m Int32
getConstraintGuideNatHeight o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"nat-height"
setConstraintGuideNatHeight :: (MonadIO m, IsConstraintGuide o) => o -> Int32 -> m ()
setConstraintGuideNatHeight :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> Int32 -> m ()
setConstraintGuideNatHeight o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"nat-height" Int32
val
constructConstraintGuideNatHeight :: (IsConstraintGuide o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructConstraintGuideNatHeight :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructConstraintGuideNatHeight Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"nat-height" Int32
val
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideNatHeightPropertyInfo
instance AttrInfo ConstraintGuideNatHeightPropertyInfo where
type AttrAllowedOps ConstraintGuideNatHeightPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ConstraintGuideNatHeightPropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideNatHeightPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ConstraintGuideNatHeightPropertyInfo = (~) Int32
type AttrTransferType ConstraintGuideNatHeightPropertyInfo = Int32
type AttrGetType ConstraintGuideNatHeightPropertyInfo = Int32
type AttrLabel ConstraintGuideNatHeightPropertyInfo = "nat-height"
type AttrOrigin ConstraintGuideNatHeightPropertyInfo = ConstraintGuide
attrGet = getConstraintGuideNatHeight
attrSet = setConstraintGuideNatHeight
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideNatHeight
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.natHeight"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:natHeight"
})
#endif
getConstraintGuideNatWidth :: (MonadIO m, IsConstraintGuide o) => o -> m Int32
getConstraintGuideNatWidth :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m Int32
getConstraintGuideNatWidth o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"nat-width"
setConstraintGuideNatWidth :: (MonadIO m, IsConstraintGuide o) => o -> Int32 -> m ()
setConstraintGuideNatWidth :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> Int32 -> m ()
setConstraintGuideNatWidth o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"nat-width" Int32
val
constructConstraintGuideNatWidth :: (IsConstraintGuide o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructConstraintGuideNatWidth :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructConstraintGuideNatWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"nat-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideNatWidthPropertyInfo
instance AttrInfo ConstraintGuideNatWidthPropertyInfo where
type AttrAllowedOps ConstraintGuideNatWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ConstraintGuideNatWidthPropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideNatWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ConstraintGuideNatWidthPropertyInfo = (~) Int32
type AttrTransferType ConstraintGuideNatWidthPropertyInfo = Int32
type AttrGetType ConstraintGuideNatWidthPropertyInfo = Int32
type AttrLabel ConstraintGuideNatWidthPropertyInfo = "nat-width"
type AttrOrigin ConstraintGuideNatWidthPropertyInfo = ConstraintGuide
attrGet = getConstraintGuideNatWidth
attrSet = setConstraintGuideNatWidth
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideNatWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.natWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:natWidth"
})
#endif
getConstraintGuideStrength :: (MonadIO m, IsConstraintGuide o) => o -> m Gtk.Enums.ConstraintStrength
getConstraintGuideStrength :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> m ConstraintStrength
getConstraintGuideStrength o
obj = IO ConstraintStrength -> m ConstraintStrength
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ConstraintStrength -> m ConstraintStrength)
-> IO ConstraintStrength -> m ConstraintStrength
forall a b. (a -> b) -> a -> b
$ o -> String -> IO ConstraintStrength
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"strength"
setConstraintGuideStrength :: (MonadIO m, IsConstraintGuide o) => o -> Gtk.Enums.ConstraintStrength -> m ()
setConstraintGuideStrength :: forall (m :: * -> *) o.
(MonadIO m, IsConstraintGuide o) =>
o -> ConstraintStrength -> m ()
setConstraintGuideStrength o
obj ConstraintStrength
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> ConstraintStrength -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"strength" ConstraintStrength
val
constructConstraintGuideStrength :: (IsConstraintGuide o, MIO.MonadIO m) => Gtk.Enums.ConstraintStrength -> m (GValueConstruct o)
constructConstraintGuideStrength :: forall o (m :: * -> *).
(IsConstraintGuide o, MonadIO m) =>
ConstraintStrength -> m (GValueConstruct o)
constructConstraintGuideStrength ConstraintStrength
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> ConstraintStrength -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"strength" ConstraintStrength
val
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideStrengthPropertyInfo
instance AttrInfo ConstraintGuideStrengthPropertyInfo where
type AttrAllowedOps ConstraintGuideStrengthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ConstraintGuideStrengthPropertyInfo = IsConstraintGuide
type AttrSetTypeConstraint ConstraintGuideStrengthPropertyInfo = (~) Gtk.Enums.ConstraintStrength
type AttrTransferTypeConstraint ConstraintGuideStrengthPropertyInfo = (~) Gtk.Enums.ConstraintStrength
type AttrTransferType ConstraintGuideStrengthPropertyInfo = Gtk.Enums.ConstraintStrength
type AttrGetType ConstraintGuideStrengthPropertyInfo = Gtk.Enums.ConstraintStrength
type AttrLabel ConstraintGuideStrengthPropertyInfo = "strength"
type AttrOrigin ConstraintGuideStrengthPropertyInfo = ConstraintGuide
attrGet = getConstraintGuideStrength
attrSet = setConstraintGuideStrength
attrTransfer _ v = do
return v
attrConstruct = constructConstraintGuideStrength
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.strength"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#g:attr:strength"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ConstraintGuide
type instance O.AttributeList ConstraintGuide = ConstraintGuideAttributeList
type ConstraintGuideAttributeList = ('[ '("maxHeight", ConstraintGuideMaxHeightPropertyInfo), '("maxWidth", ConstraintGuideMaxWidthPropertyInfo), '("minHeight", ConstraintGuideMinHeightPropertyInfo), '("minWidth", ConstraintGuideMinWidthPropertyInfo), '("name", ConstraintGuideNamePropertyInfo), '("natHeight", ConstraintGuideNatHeightPropertyInfo), '("natWidth", ConstraintGuideNatWidthPropertyInfo), '("strength", ConstraintGuideStrengthPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
constraintGuideMaxHeight :: AttrLabelProxy "maxHeight"
constraintGuideMaxHeight = AttrLabelProxy
constraintGuideMaxWidth :: AttrLabelProxy "maxWidth"
constraintGuideMaxWidth = AttrLabelProxy
constraintGuideMinHeight :: AttrLabelProxy "minHeight"
constraintGuideMinHeight = AttrLabelProxy
constraintGuideMinWidth :: AttrLabelProxy "minWidth"
constraintGuideMinWidth = AttrLabelProxy
constraintGuideName :: AttrLabelProxy "name"
constraintGuideName = AttrLabelProxy
constraintGuideNatHeight :: AttrLabelProxy "natHeight"
constraintGuideNatHeight = AttrLabelProxy
constraintGuideNatWidth :: AttrLabelProxy "natWidth"
constraintGuideNatWidth = AttrLabelProxy
constraintGuideStrength :: AttrLabelProxy "strength"
constraintGuideStrength = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ConstraintGuide = ConstraintGuideSignalList
type ConstraintGuideSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_constraint_guide_new" gtk_constraint_guide_new ::
IO (Ptr ConstraintGuide)
constraintGuideNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ConstraintGuide
constraintGuideNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
m ConstraintGuide
constraintGuideNew = IO ConstraintGuide -> m ConstraintGuide
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ConstraintGuide -> m ConstraintGuide)
-> IO ConstraintGuide -> m ConstraintGuide
forall a b. (a -> b) -> a -> b
$ do
Ptr ConstraintGuide
result <- IO (Ptr ConstraintGuide)
gtk_constraint_guide_new
Text -> Ptr ConstraintGuide -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"constraintGuideNew" Ptr ConstraintGuide
result
ConstraintGuide
result' <- ((ManagedPtr ConstraintGuide -> ConstraintGuide)
-> Ptr ConstraintGuide -> IO ConstraintGuide
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ConstraintGuide -> ConstraintGuide
ConstraintGuide) Ptr ConstraintGuide
result
ConstraintGuide -> IO ConstraintGuide
forall (m :: * -> *) a. Monad m => a -> m a
return ConstraintGuide
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_constraint_guide_get_max_size" gtk_constraint_guide_get_max_size ::
Ptr ConstraintGuide ->
Int32 ->
Int32 ->
IO ()
constraintGuideGetMaxSize ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Int32
-> Int32
-> m ()
constraintGuideGetMaxSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> Int32 -> Int32 -> m ()
constraintGuideGetMaxSize a
guide Int32
width Int32
height = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
Ptr ConstraintGuide -> Int32 -> Int32 -> IO ()
gtk_constraint_guide_get_max_size Ptr ConstraintGuide
guide' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideGetMaxSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideGetMaxSizeMethodInfo a signature where
overloadedMethod = constraintGuideGetMaxSize
instance O.OverloadedMethodInfo ConstraintGuideGetMaxSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideGetMaxSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideGetMaxSize"
})
#endif
foreign import ccall "gtk_constraint_guide_get_min_size" gtk_constraint_guide_get_min_size ::
Ptr ConstraintGuide ->
Int32 ->
Int32 ->
IO ()
constraintGuideGetMinSize ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Int32
-> Int32
-> m ()
constraintGuideGetMinSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> Int32 -> Int32 -> m ()
constraintGuideGetMinSize a
guide Int32
width Int32
height = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
Ptr ConstraintGuide -> Int32 -> Int32 -> IO ()
gtk_constraint_guide_get_min_size Ptr ConstraintGuide
guide' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideGetMinSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideGetMinSizeMethodInfo a signature where
overloadedMethod = constraintGuideGetMinSize
instance O.OverloadedMethodInfo ConstraintGuideGetMinSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideGetMinSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideGetMinSize"
})
#endif
foreign import ccall "gtk_constraint_guide_get_name" gtk_constraint_guide_get_name ::
Ptr ConstraintGuide ->
IO CString
constraintGuideGetName ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> m (Maybe T.Text)
constraintGuideGetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> m (Maybe Text)
constraintGuideGetName a
guide = IO (Maybe Text) -> m (Maybe Text)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
CString
result <- Ptr ConstraintGuide -> IO CString
gtk_constraint_guide_get_name Ptr ConstraintGuide
guide'
Maybe Text
maybeResult <- CString -> (CString -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull CString
result ((CString -> IO Text) -> IO (Maybe Text))
-> (CString -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \CString
result' -> do
Text
result'' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result'
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
Maybe Text -> IO (Maybe Text)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideGetNameMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideGetNameMethodInfo a signature where
overloadedMethod = constraintGuideGetName
instance O.OverloadedMethodInfo ConstraintGuideGetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideGetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideGetName"
})
#endif
foreign import ccall "gtk_constraint_guide_get_nat_size" gtk_constraint_guide_get_nat_size ::
Ptr ConstraintGuide ->
Int32 ->
Int32 ->
IO ()
constraintGuideGetNatSize ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Int32
-> Int32
-> m ()
constraintGuideGetNatSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> Int32 -> Int32 -> m ()
constraintGuideGetNatSize a
guide Int32
width Int32
height = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
Ptr ConstraintGuide -> Int32 -> Int32 -> IO ()
gtk_constraint_guide_get_nat_size Ptr ConstraintGuide
guide' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideGetNatSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideGetNatSizeMethodInfo a signature where
overloadedMethod = constraintGuideGetNatSize
instance O.OverloadedMethodInfo ConstraintGuideGetNatSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideGetNatSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideGetNatSize"
})
#endif
foreign import ccall "gtk_constraint_guide_get_strength" gtk_constraint_guide_get_strength ::
Ptr ConstraintGuide ->
IO CUInt
constraintGuideGetStrength ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> m Gtk.Enums.ConstraintStrength
constraintGuideGetStrength :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> m ConstraintStrength
constraintGuideGetStrength a
guide = IO ConstraintStrength -> m ConstraintStrength
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ConstraintStrength -> m ConstraintStrength)
-> IO ConstraintStrength -> m ConstraintStrength
forall a b. (a -> b) -> a -> b
$ do
Ptr ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
CUInt
result <- Ptr ConstraintGuide -> IO CUInt
gtk_constraint_guide_get_strength Ptr ConstraintGuide
guide'
let result' :: ConstraintStrength
result' = (Int -> ConstraintStrength
forall a. Enum a => Int -> a
toEnum (Int -> ConstraintStrength)
-> (CUInt -> Int) -> CUInt -> ConstraintStrength
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
ConstraintStrength -> IO ConstraintStrength
forall (m :: * -> *) a. Monad m => a -> m a
return ConstraintStrength
result'
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideGetStrengthMethodInfo
instance (signature ~ (m Gtk.Enums.ConstraintStrength), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideGetStrengthMethodInfo a signature where
overloadedMethod = constraintGuideGetStrength
instance O.OverloadedMethodInfo ConstraintGuideGetStrengthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideGetStrength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideGetStrength"
})
#endif
foreign import ccall "gtk_constraint_guide_set_max_size" gtk_constraint_guide_set_max_size ::
Ptr ConstraintGuide ->
Int32 ->
Int32 ->
IO ()
constraintGuideSetMaxSize ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Int32
-> Int32
-> m ()
constraintGuideSetMaxSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> Int32 -> Int32 -> m ()
constraintGuideSetMaxSize a
guide Int32
width Int32
height = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
Ptr ConstraintGuide -> Int32 -> Int32 -> IO ()
gtk_constraint_guide_set_max_size Ptr ConstraintGuide
guide' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideSetMaxSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideSetMaxSizeMethodInfo a signature where
overloadedMethod = constraintGuideSetMaxSize
instance O.OverloadedMethodInfo ConstraintGuideSetMaxSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideSetMaxSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideSetMaxSize"
})
#endif
foreign import ccall "gtk_constraint_guide_set_min_size" gtk_constraint_guide_set_min_size ::
Ptr ConstraintGuide ->
Int32 ->
Int32 ->
IO ()
constraintGuideSetMinSize ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Int32
-> Int32
-> m ()
constraintGuideSetMinSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> Int32 -> Int32 -> m ()
constraintGuideSetMinSize a
guide Int32
width Int32
height = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
Ptr ConstraintGuide -> Int32 -> Int32 -> IO ()
gtk_constraint_guide_set_min_size Ptr ConstraintGuide
guide' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideSetMinSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideSetMinSizeMethodInfo a signature where
overloadedMethod = constraintGuideSetMinSize
instance O.OverloadedMethodInfo ConstraintGuideSetMinSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideSetMinSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideSetMinSize"
})
#endif
foreign import ccall "gtk_constraint_guide_set_name" gtk_constraint_guide_set_name ::
Ptr ConstraintGuide ->
CString ->
IO ()
constraintGuideSetName ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Maybe (T.Text)
-> m ()
constraintGuideSetName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> Maybe Text -> m ()
constraintGuideSetName a
guide Maybe Text
name = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
CString
maybeName <- case Maybe Text
name of
Maybe Text
Nothing -> CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
forall a. Ptr a
nullPtr
Just Text
jName -> do
CString
jName' <- Text -> IO CString
textToCString Text
jName
CString -> IO CString
forall (m :: * -> *) a. Monad m => a -> m a
return CString
jName'
Ptr ConstraintGuide -> CString -> IO ()
gtk_constraint_guide_set_name Ptr ConstraintGuide
guide' CString
maybeName
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
maybeName
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideSetNameMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideSetNameMethodInfo a signature where
overloadedMethod = constraintGuideSetName
instance O.OverloadedMethodInfo ConstraintGuideSetNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideSetName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideSetName"
})
#endif
foreign import ccall "gtk_constraint_guide_set_nat_size" gtk_constraint_guide_set_nat_size ::
Ptr ConstraintGuide ->
Int32 ->
Int32 ->
IO ()
constraintGuideSetNatSize ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Int32
-> Int32
-> m ()
constraintGuideSetNatSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> Int32 -> Int32 -> m ()
constraintGuideSetNatSize a
guide Int32
width Int32
height = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
Ptr ConstraintGuide -> Int32 -> Int32 -> IO ()
gtk_constraint_guide_set_nat_size Ptr ConstraintGuide
guide' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideSetNatSizeMethodInfo
instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideSetNatSizeMethodInfo a signature where
overloadedMethod = constraintGuideSetNatSize
instance O.OverloadedMethodInfo ConstraintGuideSetNatSizeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideSetNatSize",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideSetNatSize"
})
#endif
foreign import ccall "gtk_constraint_guide_set_strength" gtk_constraint_guide_set_strength ::
Ptr ConstraintGuide ->
CUInt ->
IO ()
constraintGuideSetStrength ::
(B.CallStack.HasCallStack, MonadIO m, IsConstraintGuide a) =>
a
-> Gtk.Enums.ConstraintStrength
-> m ()
constraintGuideSetStrength :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsConstraintGuide a) =>
a -> ConstraintStrength -> m ()
constraintGuideSetStrength a
guide ConstraintStrength
strength = 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 ConstraintGuide
guide' <- a -> IO (Ptr ConstraintGuide)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
guide
let strength' :: CUInt
strength' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (ConstraintStrength -> Int) -> ConstraintStrength -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. ConstraintStrength -> Int
forall a. Enum a => a -> Int
fromEnum) ConstraintStrength
strength
Ptr ConstraintGuide -> CUInt -> IO ()
gtk_constraint_guide_set_strength Ptr ConstraintGuide
guide' CUInt
strength'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
guide
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ConstraintGuideSetStrengthMethodInfo
instance (signature ~ (Gtk.Enums.ConstraintStrength -> m ()), MonadIO m, IsConstraintGuide a) => O.OverloadedMethod ConstraintGuideSetStrengthMethodInfo a signature where
overloadedMethod = constraintGuideSetStrength
instance O.OverloadedMethodInfo ConstraintGuideSetStrengthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ConstraintGuide.constraintGuideSetStrength",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.5/docs/GI-Gtk-Objects-ConstraintGuide.html#v:constraintGuideSetStrength"
})
#endif