{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.BoxLayout
(
BoxLayout(..) ,
IsBoxLayout ,
toBoxLayout ,
#if defined(ENABLE_OVERLOADING)
ResolveBoxLayoutMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
BoxLayoutGetBaselinePositionMethodInfo ,
#endif
boxLayoutGetBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutGetHomogeneousMethodInfo ,
#endif
boxLayoutGetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutGetSpacingMethodInfo ,
#endif
boxLayoutGetSpacing ,
boxLayoutNew ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetBaselinePositionMethodInfo ,
#endif
boxLayoutSetBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetHomogeneousMethodInfo ,
#endif
boxLayoutSetHomogeneous ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSetSpacingMethodInfo ,
#endif
boxLayoutSetSpacing ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutBaselinePositionPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutBaselinePosition ,
#endif
constructBoxLayoutBaselinePosition ,
getBoxLayoutBaselinePosition ,
setBoxLayoutBaselinePosition ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutHomogeneousPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutHomogeneous ,
#endif
constructBoxLayoutHomogeneous ,
getBoxLayoutHomogeneous ,
setBoxLayoutHomogeneous ,
#if defined(ENABLE_OVERLOADING)
BoxLayoutSpacingPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutSpacing ,
#endif
constructBoxLayoutSpacing ,
getBoxLayoutSpacing ,
setBoxLayoutSpacing ,
) 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.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.Orientable as Gtk.Orientable
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutManager as Gtk.LayoutManager
newtype BoxLayout = BoxLayout (SP.ManagedPtr BoxLayout)
deriving (BoxLayout -> BoxLayout -> Bool
(BoxLayout -> BoxLayout -> Bool)
-> (BoxLayout -> BoxLayout -> Bool) -> Eq BoxLayout
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: BoxLayout -> BoxLayout -> Bool
== :: BoxLayout -> BoxLayout -> Bool
$c/= :: BoxLayout -> BoxLayout -> Bool
/= :: BoxLayout -> BoxLayout -> Bool
Eq)
instance SP.ManagedPtrNewtype BoxLayout where
toManagedPtr :: BoxLayout -> ManagedPtr BoxLayout
toManagedPtr (BoxLayout ManagedPtr BoxLayout
p) = ManagedPtr BoxLayout
p
foreign import ccall "gtk_box_layout_get_type"
c_gtk_box_layout_get_type :: IO B.Types.GType
instance B.Types.TypedObject BoxLayout where
glibType :: IO GType
glibType = IO GType
c_gtk_box_layout_get_type
instance B.Types.GObject BoxLayout
class (SP.GObject o, O.IsDescendantOf BoxLayout o) => IsBoxLayout o
instance (SP.GObject o, O.IsDescendantOf BoxLayout o) => IsBoxLayout o
instance O.HasParentTypes BoxLayout
type instance O.ParentTypes BoxLayout = '[Gtk.LayoutManager.LayoutManager, GObject.Object.Object, Gtk.Orientable.Orientable]
toBoxLayout :: (MIO.MonadIO m, IsBoxLayout o) => o -> m BoxLayout
toBoxLayout :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> m BoxLayout
toBoxLayout = IO BoxLayout -> m BoxLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO BoxLayout -> m BoxLayout)
-> (o -> IO BoxLayout) -> o -> m BoxLayout
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr BoxLayout -> BoxLayout) -> o -> IO BoxLayout
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr BoxLayout -> BoxLayout
BoxLayout
instance B.GValue.IsGValue (Maybe BoxLayout) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_box_layout_get_type
gvalueSet_ :: Ptr GValue -> Maybe BoxLayout -> IO ()
gvalueSet_ Ptr GValue
gv Maybe BoxLayout
P.Nothing = Ptr GValue -> Ptr BoxLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr BoxLayout
forall a. Ptr a
FP.nullPtr :: FP.Ptr BoxLayout)
gvalueSet_ Ptr GValue
gv (P.Just BoxLayout
obj) = BoxLayout -> (Ptr BoxLayout -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr BoxLayout
obj (Ptr GValue -> Ptr BoxLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe BoxLayout)
gvalueGet_ Ptr GValue
gv = do
Ptr BoxLayout
ptr <- Ptr GValue -> IO (Ptr BoxLayout)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr BoxLayout)
if Ptr BoxLayout
ptr Ptr BoxLayout -> Ptr BoxLayout -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr BoxLayout
forall a. Ptr a
FP.nullPtr
then BoxLayout -> Maybe BoxLayout
forall a. a -> Maybe a
P.Just (BoxLayout -> Maybe BoxLayout)
-> IO BoxLayout -> IO (Maybe BoxLayout)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr BoxLayout -> BoxLayout)
-> Ptr BoxLayout -> IO BoxLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr BoxLayout -> BoxLayout
BoxLayout Ptr BoxLayout
ptr
else Maybe BoxLayout -> IO (Maybe BoxLayout)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe BoxLayout
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveBoxLayoutMethod (t :: Symbol) (o :: *) :: * where
ResolveBoxLayoutMethod "allocate" o = Gtk.LayoutManager.LayoutManagerAllocateMethodInfo
ResolveBoxLayoutMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveBoxLayoutMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveBoxLayoutMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveBoxLayoutMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveBoxLayoutMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveBoxLayoutMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveBoxLayoutMethod "layoutChanged" o = Gtk.LayoutManager.LayoutManagerLayoutChangedMethodInfo
ResolveBoxLayoutMethod "measure" o = Gtk.LayoutManager.LayoutManagerMeasureMethodInfo
ResolveBoxLayoutMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveBoxLayoutMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveBoxLayoutMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveBoxLayoutMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveBoxLayoutMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveBoxLayoutMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveBoxLayoutMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveBoxLayoutMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveBoxLayoutMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveBoxLayoutMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveBoxLayoutMethod "getBaselinePosition" o = BoxLayoutGetBaselinePositionMethodInfo
ResolveBoxLayoutMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveBoxLayoutMethod "getHomogeneous" o = BoxLayoutGetHomogeneousMethodInfo
ResolveBoxLayoutMethod "getLayoutChild" o = Gtk.LayoutManager.LayoutManagerGetLayoutChildMethodInfo
ResolveBoxLayoutMethod "getOrientation" o = Gtk.Orientable.OrientableGetOrientationMethodInfo
ResolveBoxLayoutMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveBoxLayoutMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveBoxLayoutMethod "getRequestMode" o = Gtk.LayoutManager.LayoutManagerGetRequestModeMethodInfo
ResolveBoxLayoutMethod "getSpacing" o = BoxLayoutGetSpacingMethodInfo
ResolveBoxLayoutMethod "getWidget" o = Gtk.LayoutManager.LayoutManagerGetWidgetMethodInfo
ResolveBoxLayoutMethod "setBaselinePosition" o = BoxLayoutSetBaselinePositionMethodInfo
ResolveBoxLayoutMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveBoxLayoutMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveBoxLayoutMethod "setHomogeneous" o = BoxLayoutSetHomogeneousMethodInfo
ResolveBoxLayoutMethod "setOrientation" o = Gtk.Orientable.OrientableSetOrientationMethodInfo
ResolveBoxLayoutMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveBoxLayoutMethod "setSpacing" o = BoxLayoutSetSpacingMethodInfo
ResolveBoxLayoutMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveBoxLayoutMethod t BoxLayout, O.OverloadedMethod info BoxLayout p) => OL.IsLabel t (BoxLayout -> 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 ~ ResolveBoxLayoutMethod t BoxLayout, O.OverloadedMethod info BoxLayout p, R.HasField t BoxLayout p) => R.HasField t BoxLayout p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveBoxLayoutMethod t BoxLayout, O.OverloadedMethodInfo info BoxLayout) => OL.IsLabel t (O.MethodProxy info BoxLayout) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getBoxLayoutBaselinePosition :: (MonadIO m, IsBoxLayout o) => o -> m Gtk.Enums.BaselinePosition
getBoxLayoutBaselinePosition :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> m BaselinePosition
getBoxLayoutBaselinePosition o
obj = IO BaselinePosition -> m BaselinePosition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO BaselinePosition -> m BaselinePosition)
-> IO BaselinePosition -> m BaselinePosition
forall a b. (a -> b) -> a -> b
$ o -> String -> IO BaselinePosition
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"baseline-position"
setBoxLayoutBaselinePosition :: (MonadIO m, IsBoxLayout o) => o -> Gtk.Enums.BaselinePosition -> m ()
setBoxLayoutBaselinePosition :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> BaselinePosition -> m ()
setBoxLayoutBaselinePosition o
obj BaselinePosition
val = IO () -> m ()
forall a. IO a -> m a
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 -> BaselinePosition -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"baseline-position" BaselinePosition
val
constructBoxLayoutBaselinePosition :: (IsBoxLayout o, MIO.MonadIO m) => Gtk.Enums.BaselinePosition -> m (GValueConstruct o)
constructBoxLayoutBaselinePosition :: forall o (m :: * -> *).
(IsBoxLayout o, MonadIO m) =>
BaselinePosition -> m (GValueConstruct o)
constructBoxLayoutBaselinePosition BaselinePosition
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> BaselinePosition -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"baseline-position" BaselinePosition
val
#if defined(ENABLE_OVERLOADING)
data BoxLayoutBaselinePositionPropertyInfo
instance AttrInfo BoxLayoutBaselinePositionPropertyInfo where
type AttrAllowedOps BoxLayoutBaselinePositionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BoxLayoutBaselinePositionPropertyInfo = IsBoxLayout
type AttrSetTypeConstraint BoxLayoutBaselinePositionPropertyInfo = (~) Gtk.Enums.BaselinePosition
type AttrTransferTypeConstraint BoxLayoutBaselinePositionPropertyInfo = (~) Gtk.Enums.BaselinePosition
type AttrTransferType BoxLayoutBaselinePositionPropertyInfo = Gtk.Enums.BaselinePosition
type AttrGetType BoxLayoutBaselinePositionPropertyInfo = Gtk.Enums.BaselinePosition
type AttrLabel BoxLayoutBaselinePositionPropertyInfo = "baseline-position"
type AttrOrigin BoxLayoutBaselinePositionPropertyInfo = BoxLayout
attrGet = getBoxLayoutBaselinePosition
attrSet = setBoxLayoutBaselinePosition
attrTransfer _ v = do
return v
attrConstruct = constructBoxLayoutBaselinePosition
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.baselinePosition"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#g:attr:baselinePosition"
})
#endif
getBoxLayoutHomogeneous :: (MonadIO m, IsBoxLayout o) => o -> m Bool
getBoxLayoutHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsBoxLayout o) => o -> m Bool
getBoxLayoutHomogeneous o
obj = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj String
"homogeneous"
setBoxLayoutHomogeneous :: (MonadIO m, IsBoxLayout o) => o -> Bool -> m ()
setBoxLayoutHomogeneous :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> Bool -> m ()
setBoxLayoutHomogeneous o
obj Bool
val = IO () -> m ()
forall a. IO a -> m a
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 -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj String
"homogeneous" Bool
val
constructBoxLayoutHomogeneous :: (IsBoxLayout o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructBoxLayoutHomogeneous :: forall o (m :: * -> *).
(IsBoxLayout o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructBoxLayoutHomogeneous Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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 -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data BoxLayoutHomogeneousPropertyInfo
instance AttrInfo BoxLayoutHomogeneousPropertyInfo where
type AttrAllowedOps BoxLayoutHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BoxLayoutHomogeneousPropertyInfo = IsBoxLayout
type AttrSetTypeConstraint BoxLayoutHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint BoxLayoutHomogeneousPropertyInfo = (~) Bool
type AttrTransferType BoxLayoutHomogeneousPropertyInfo = Bool
type AttrGetType BoxLayoutHomogeneousPropertyInfo = Bool
type AttrLabel BoxLayoutHomogeneousPropertyInfo = "homogeneous"
type AttrOrigin BoxLayoutHomogeneousPropertyInfo = BoxLayout
attrGet = getBoxLayoutHomogeneous
attrSet = setBoxLayoutHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructBoxLayoutHomogeneous
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.homogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#g:attr:homogeneous"
})
#endif
getBoxLayoutSpacing :: (MonadIO m, IsBoxLayout o) => o -> m Int32
getBoxLayoutSpacing :: forall (m :: * -> *) o. (MonadIO m, IsBoxLayout o) => o -> m Int32
getBoxLayoutSpacing o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
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
"spacing"
setBoxLayoutSpacing :: (MonadIO m, IsBoxLayout o) => o -> Int32 -> m ()
setBoxLayoutSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsBoxLayout o) =>
o -> Int32 -> m ()
setBoxLayoutSpacing o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
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
"spacing" Int32
val
constructBoxLayoutSpacing :: (IsBoxLayout o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructBoxLayoutSpacing :: forall o (m :: * -> *).
(IsBoxLayout o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructBoxLayoutSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
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 a. IO a -> IO a
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
"spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data BoxLayoutSpacingPropertyInfo
instance AttrInfo BoxLayoutSpacingPropertyInfo where
type AttrAllowedOps BoxLayoutSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint BoxLayoutSpacingPropertyInfo = IsBoxLayout
type AttrSetTypeConstraint BoxLayoutSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint BoxLayoutSpacingPropertyInfo = (~) Int32
type AttrTransferType BoxLayoutSpacingPropertyInfo = Int32
type AttrGetType BoxLayoutSpacingPropertyInfo = Int32
type AttrLabel BoxLayoutSpacingPropertyInfo = "spacing"
type AttrOrigin BoxLayoutSpacingPropertyInfo = BoxLayout
attrGet = getBoxLayoutSpacing
attrSet = setBoxLayoutSpacing
attrTransfer _ v = do
return v
attrConstruct = constructBoxLayoutSpacing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.spacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#g:attr:spacing"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList BoxLayout
type instance O.AttributeList BoxLayout = BoxLayoutAttributeList
type BoxLayoutAttributeList = ('[ '("baselinePosition", BoxLayoutBaselinePositionPropertyInfo), '("homogeneous", BoxLayoutHomogeneousPropertyInfo), '("orientation", Gtk.Orientable.OrientableOrientationPropertyInfo), '("spacing", BoxLayoutSpacingPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
boxLayoutBaselinePosition :: AttrLabelProxy "baselinePosition"
boxLayoutBaselinePosition = AttrLabelProxy
boxLayoutHomogeneous :: AttrLabelProxy "homogeneous"
boxLayoutHomogeneous = AttrLabelProxy
boxLayoutSpacing :: AttrLabelProxy "spacing"
boxLayoutSpacing = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList BoxLayout = BoxLayoutSignalList
type BoxLayoutSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_box_layout_new" gtk_box_layout_new ::
CUInt ->
IO (Ptr BoxLayout)
boxLayoutNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
Gtk.Enums.Orientation
-> m BoxLayout
boxLayoutNew :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
Orientation -> m BoxLayout
boxLayoutNew Orientation
orientation = IO BoxLayout -> m BoxLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BoxLayout -> m BoxLayout) -> IO BoxLayout -> m BoxLayout
forall a b. (a -> b) -> a -> b
$ do
let orientation' :: CUInt
orientation' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (Orientation -> Int) -> Orientation -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Orientation -> Int
forall a. Enum a => a -> Int
fromEnum) Orientation
orientation
Ptr BoxLayout
result <- CUInt -> IO (Ptr BoxLayout)
gtk_box_layout_new CUInt
orientation'
Text -> Ptr BoxLayout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"boxLayoutNew" Ptr BoxLayout
result
BoxLayout
result' <- ((ManagedPtr BoxLayout -> BoxLayout)
-> Ptr BoxLayout -> IO BoxLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr BoxLayout -> BoxLayout
BoxLayout) Ptr BoxLayout
result
BoxLayout -> IO BoxLayout
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return BoxLayout
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_box_layout_get_baseline_position" gtk_box_layout_get_baseline_position ::
Ptr BoxLayout ->
IO CUInt
boxLayoutGetBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> m Gtk.Enums.BaselinePosition
boxLayoutGetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m BaselinePosition
boxLayoutGetBaselinePosition a
boxLayout = IO BaselinePosition -> m BaselinePosition
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO BaselinePosition -> m BaselinePosition)
-> IO BaselinePosition -> m BaselinePosition
forall a b. (a -> b) -> a -> b
$ do
Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
CUInt
result <- Ptr BoxLayout -> IO CUInt
gtk_box_layout_get_baseline_position Ptr BoxLayout
boxLayout'
let result' :: BaselinePosition
result' = (Int -> BaselinePosition
forall a. Enum a => Int -> a
toEnum (Int -> BaselinePosition)
-> (CUInt -> Int) -> CUInt -> BaselinePosition
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
boxLayout
BaselinePosition -> IO BaselinePosition
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return BaselinePosition
result'
#if defined(ENABLE_OVERLOADING)
data BoxLayoutGetBaselinePositionMethodInfo
instance (signature ~ (m Gtk.Enums.BaselinePosition), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutGetBaselinePositionMethodInfo a signature where
overloadedMethod = boxLayoutGetBaselinePosition
instance O.OverloadedMethodInfo BoxLayoutGetBaselinePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetBaselinePosition"
})
#endif
foreign import ccall "gtk_box_layout_get_homogeneous" gtk_box_layout_get_homogeneous ::
Ptr BoxLayout ->
IO CInt
boxLayoutGetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> m Bool
boxLayoutGetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m Bool
boxLayoutGetHomogeneous a
boxLayout = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
CInt
result <- Ptr BoxLayout -> IO CInt
gtk_box_layout_get_homogeneous Ptr BoxLayout
boxLayout'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data BoxLayoutGetHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutGetHomogeneousMethodInfo a signature where
overloadedMethod = boxLayoutGetHomogeneous
instance O.OverloadedMethodInfo BoxLayoutGetHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetHomogeneous"
})
#endif
foreign import ccall "gtk_box_layout_get_spacing" gtk_box_layout_get_spacing ::
Ptr BoxLayout ->
IO Word32
boxLayoutGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> m Word32
boxLayoutGetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> m Word32
boxLayoutGetSpacing a
boxLayout = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ do
Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
Word32
result <- Ptr BoxLayout -> IO Word32
gtk_box_layout_get_spacing Ptr BoxLayout
boxLayout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data BoxLayoutGetSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutGetSpacingMethodInfo a signature where
overloadedMethod = boxLayoutGetSpacing
instance O.OverloadedMethodInfo BoxLayoutGetSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutGetSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutGetSpacing"
})
#endif
foreign import ccall "gtk_box_layout_set_baseline_position" gtk_box_layout_set_baseline_position ::
Ptr BoxLayout ->
CUInt ->
IO ()
boxLayoutSetBaselinePosition ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> Gtk.Enums.BaselinePosition
-> m ()
boxLayoutSetBaselinePosition :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> BaselinePosition -> m ()
boxLayoutSetBaselinePosition a
boxLayout BaselinePosition
position = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
let position' :: CUInt
position' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (BaselinePosition -> Int) -> BaselinePosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. BaselinePosition -> Int
forall a. Enum a => a -> Int
fromEnum) BaselinePosition
position
Ptr BoxLayout -> CUInt -> IO ()
gtk_box_layout_set_baseline_position Ptr BoxLayout
boxLayout' CUInt
position'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BoxLayoutSetBaselinePositionMethodInfo
instance (signature ~ (Gtk.Enums.BaselinePosition -> m ()), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutSetBaselinePositionMethodInfo a signature where
overloadedMethod = boxLayoutSetBaselinePosition
instance O.OverloadedMethodInfo BoxLayoutSetBaselinePositionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetBaselinePosition",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetBaselinePosition"
})
#endif
foreign import ccall "gtk_box_layout_set_homogeneous" gtk_box_layout_set_homogeneous ::
Ptr BoxLayout ->
CInt ->
IO ()
boxLayoutSetHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> Bool
-> m ()
boxLayoutSetHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> Bool -> m ()
boxLayoutSetHomogeneous a
boxLayout Bool
homogeneous = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
let homogeneous' :: CInt
homogeneous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
homogeneous
Ptr BoxLayout -> CInt -> IO ()
gtk_box_layout_set_homogeneous Ptr BoxLayout
boxLayout' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BoxLayoutSetHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutSetHomogeneousMethodInfo a signature where
overloadedMethod = boxLayoutSetHomogeneous
instance O.OverloadedMethodInfo BoxLayoutSetHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetHomogeneous"
})
#endif
foreign import ccall "gtk_box_layout_set_spacing" gtk_box_layout_set_spacing ::
Ptr BoxLayout ->
Word32 ->
IO ()
boxLayoutSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsBoxLayout a) =>
a
-> Word32
-> m ()
boxLayoutSetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsBoxLayout a) =>
a -> Word32 -> m ()
boxLayoutSetSpacing a
boxLayout Word32
spacing = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr BoxLayout
boxLayout' <- a -> IO (Ptr BoxLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
boxLayout
Ptr BoxLayout -> Word32 -> IO ()
gtk_box_layout_set_spacing Ptr BoxLayout
boxLayout' Word32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
boxLayout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data BoxLayoutSetSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsBoxLayout a) => O.OverloadedMethod BoxLayoutSetSpacingMethodInfo a signature where
overloadedMethod = boxLayoutSetSpacing
instance O.OverloadedMethodInfo BoxLayoutSetSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.BoxLayout.boxLayoutSetSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.6/docs/GI-Gtk-Objects-BoxLayout.html#v:boxLayoutSetSpacing"
})
#endif