{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.GridLayout
(
GridLayout(..) ,
IsGridLayout ,
toGridLayout ,
#if defined(ENABLE_OVERLOADING)
ResolveGridLayoutMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GridLayoutAttachMethodInfo ,
#endif
gridLayoutAttach ,
#if defined(ENABLE_OVERLOADING)
GridLayoutAttachNextToMethodInfo ,
#endif
gridLayoutAttachNextTo ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetChildAtMethodInfo ,
#endif
gridLayoutGetChildAt ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetColumnHomogeneousMethodInfo,
#endif
gridLayoutGetColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetColumnSpacingMethodInfo ,
#endif
gridLayoutGetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetOrientationMethodInfo ,
#endif
gridLayoutGetOrientation ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetRowHomogeneousMethodInfo ,
#endif
gridLayoutGetRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutGetRowSpacingMethodInfo ,
#endif
gridLayoutGetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutInsertColumnMethodInfo ,
#endif
gridLayoutInsertColumn ,
#if defined(ENABLE_OVERLOADING)
GridLayoutInsertNextToMethodInfo ,
#endif
gridLayoutInsertNextTo ,
#if defined(ENABLE_OVERLOADING)
GridLayoutInsertRowMethodInfo ,
#endif
gridLayoutInsertRow ,
gridLayoutNew ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetColumnHomogeneousMethodInfo,
#endif
gridLayoutSetColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetColumnSpacingMethodInfo ,
#endif
gridLayoutSetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetOrientationMethodInfo ,
#endif
gridLayoutSetOrientation ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetRowHomogeneousMethodInfo ,
#endif
gridLayoutSetRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutSetRowSpacingMethodInfo ,
#endif
gridLayoutSetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutColumnHomogeneousPropertyInfo ,
#endif
constructGridLayoutColumnHomogeneous ,
getGridLayoutColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
gridLayoutColumnHomogeneous ,
#endif
setGridLayoutColumnHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutColumnSpacingPropertyInfo ,
#endif
constructGridLayoutColumnSpacing ,
getGridLayoutColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
gridLayoutColumnSpacing ,
#endif
setGridLayoutColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
GridLayoutOrientationPropertyInfo ,
#endif
constructGridLayoutOrientation ,
getGridLayoutOrientation ,
#if defined(ENABLE_OVERLOADING)
gridLayoutOrientation ,
#endif
setGridLayoutOrientation ,
#if defined(ENABLE_OVERLOADING)
GridLayoutRowHomogeneousPropertyInfo ,
#endif
constructGridLayoutRowHomogeneous ,
getGridLayoutRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
gridLayoutRowHomogeneous ,
#endif
setGridLayoutRowHomogeneous ,
#if defined(ENABLE_OVERLOADING)
GridLayoutRowSpacingPropertyInfo ,
#endif
constructGridLayoutRowSpacing ,
getGridLayoutRowSpacing ,
#if defined(ENABLE_OVERLOADING)
gridLayoutRowSpacing ,
#endif
setGridLayoutRowSpacing ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import {-# SOURCE #-} qualified GI.Clutter.Enums as Clutter.Enums
import {-# SOURCE #-} qualified GI.Clutter.Objects.Actor as Clutter.Actor
import {-# SOURCE #-} qualified GI.Clutter.Objects.LayoutManager as Clutter.LayoutManager
import qualified GI.GObject.Objects.Object as GObject.Object
newtype GridLayout = GridLayout (SP.ManagedPtr GridLayout)
deriving (GridLayout -> GridLayout -> Bool
(GridLayout -> GridLayout -> Bool)
-> (GridLayout -> GridLayout -> Bool) -> Eq GridLayout
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GridLayout -> GridLayout -> Bool
== :: GridLayout -> GridLayout -> Bool
$c/= :: GridLayout -> GridLayout -> Bool
/= :: GridLayout -> GridLayout -> Bool
Eq)
instance SP.ManagedPtrNewtype GridLayout where
toManagedPtr :: GridLayout -> ManagedPtr GridLayout
toManagedPtr (GridLayout ManagedPtr GridLayout
p) = ManagedPtr GridLayout
p
foreign import ccall "clutter_grid_layout_get_type"
c_clutter_grid_layout_get_type :: IO B.Types.GType
instance B.Types.TypedObject GridLayout where
glibType :: IO GType
glibType = IO GType
c_clutter_grid_layout_get_type
instance B.Types.GObject GridLayout
class (SP.GObject o, O.IsDescendantOf GridLayout o) => IsGridLayout o
instance (SP.GObject o, O.IsDescendantOf GridLayout o) => IsGridLayout o
instance O.HasParentTypes GridLayout
type instance O.ParentTypes GridLayout = '[Clutter.LayoutManager.LayoutManager, GObject.Object.Object]
toGridLayout :: (MIO.MonadIO m, IsGridLayout o) => o -> m GridLayout
toGridLayout :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> m GridLayout
toGridLayout = IO GridLayout -> m GridLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO GridLayout -> m GridLayout)
-> (o -> IO GridLayout) -> o -> m GridLayout
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GridLayout -> GridLayout) -> o -> IO GridLayout
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr GridLayout -> GridLayout
GridLayout
instance B.GValue.IsGValue (Maybe GridLayout) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_grid_layout_get_type
gvalueSet_ :: Ptr GValue -> Maybe GridLayout -> IO ()
gvalueSet_ Ptr GValue
gv Maybe GridLayout
P.Nothing = Ptr GValue -> Ptr GridLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr GridLayout
forall a. Ptr a
FP.nullPtr :: FP.Ptr GridLayout)
gvalueSet_ Ptr GValue
gv (P.Just GridLayout
obj) = GridLayout -> (Ptr GridLayout -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GridLayout
obj (Ptr GValue -> Ptr GridLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe GridLayout)
gvalueGet_ Ptr GValue
gv = do
Ptr GridLayout
ptr <- Ptr GValue -> IO (Ptr GridLayout)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr GridLayout)
if Ptr GridLayout
ptr Ptr GridLayout -> Ptr GridLayout -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr GridLayout
forall a. Ptr a
FP.nullPtr
then GridLayout -> Maybe GridLayout
forall a. a -> Maybe a
P.Just (GridLayout -> Maybe GridLayout)
-> IO GridLayout -> IO (Maybe GridLayout)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr GridLayout -> GridLayout)
-> Ptr GridLayout -> IO GridLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GridLayout -> GridLayout
GridLayout Ptr GridLayout
ptr
else Maybe GridLayout -> IO (Maybe GridLayout)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe GridLayout
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGridLayoutMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveGridLayoutMethod "allocate" o = Clutter.LayoutManager.LayoutManagerAllocateMethodInfo
ResolveGridLayoutMethod "attach" o = GridLayoutAttachMethodInfo
ResolveGridLayoutMethod "attachNextTo" o = GridLayoutAttachNextToMethodInfo
ResolveGridLayoutMethod "beginAnimation" o = Clutter.LayoutManager.LayoutManagerBeginAnimationMethodInfo
ResolveGridLayoutMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGridLayoutMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGridLayoutMethod "childGetProperty" o = Clutter.LayoutManager.LayoutManagerChildGetPropertyMethodInfo
ResolveGridLayoutMethod "childSetProperty" o = Clutter.LayoutManager.LayoutManagerChildSetPropertyMethodInfo
ResolveGridLayoutMethod "endAnimation" o = Clutter.LayoutManager.LayoutManagerEndAnimationMethodInfo
ResolveGridLayoutMethod "findChildProperty" o = Clutter.LayoutManager.LayoutManagerFindChildPropertyMethodInfo
ResolveGridLayoutMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGridLayoutMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGridLayoutMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGridLayoutMethod "insertColumn" o = GridLayoutInsertColumnMethodInfo
ResolveGridLayoutMethod "insertNextTo" o = GridLayoutInsertNextToMethodInfo
ResolveGridLayoutMethod "insertRow" o = GridLayoutInsertRowMethodInfo
ResolveGridLayoutMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGridLayoutMethod "layoutChanged" o = Clutter.LayoutManager.LayoutManagerLayoutChangedMethodInfo
ResolveGridLayoutMethod "listChildProperties" o = Clutter.LayoutManager.LayoutManagerListChildPropertiesMethodInfo
ResolveGridLayoutMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGridLayoutMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGridLayoutMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGridLayoutMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGridLayoutMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGridLayoutMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGridLayoutMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGridLayoutMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGridLayoutMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGridLayoutMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGridLayoutMethod "getAnimationProgress" o = Clutter.LayoutManager.LayoutManagerGetAnimationProgressMethodInfo
ResolveGridLayoutMethod "getChildAt" o = GridLayoutGetChildAtMethodInfo
ResolveGridLayoutMethod "getChildMeta" o = Clutter.LayoutManager.LayoutManagerGetChildMetaMethodInfo
ResolveGridLayoutMethod "getColumnHomogeneous" o = GridLayoutGetColumnHomogeneousMethodInfo
ResolveGridLayoutMethod "getColumnSpacing" o = GridLayoutGetColumnSpacingMethodInfo
ResolveGridLayoutMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGridLayoutMethod "getOrientation" o = GridLayoutGetOrientationMethodInfo
ResolveGridLayoutMethod "getPreferredHeight" o = Clutter.LayoutManager.LayoutManagerGetPreferredHeightMethodInfo
ResolveGridLayoutMethod "getPreferredWidth" o = Clutter.LayoutManager.LayoutManagerGetPreferredWidthMethodInfo
ResolveGridLayoutMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGridLayoutMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGridLayoutMethod "getRowHomogeneous" o = GridLayoutGetRowHomogeneousMethodInfo
ResolveGridLayoutMethod "getRowSpacing" o = GridLayoutGetRowSpacingMethodInfo
ResolveGridLayoutMethod "setColumnHomogeneous" o = GridLayoutSetColumnHomogeneousMethodInfo
ResolveGridLayoutMethod "setColumnSpacing" o = GridLayoutSetColumnSpacingMethodInfo
ResolveGridLayoutMethod "setContainer" o = Clutter.LayoutManager.LayoutManagerSetContainerMethodInfo
ResolveGridLayoutMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGridLayoutMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGridLayoutMethod "setOrientation" o = GridLayoutSetOrientationMethodInfo
ResolveGridLayoutMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGridLayoutMethod "setRowHomogeneous" o = GridLayoutSetRowHomogeneousMethodInfo
ResolveGridLayoutMethod "setRowSpacing" o = GridLayoutSetRowSpacingMethodInfo
ResolveGridLayoutMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGridLayoutMethod t GridLayout, O.OverloadedMethod info GridLayout p) => OL.IsLabel t (GridLayout -> 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 ~ ResolveGridLayoutMethod t GridLayout, O.OverloadedMethod info GridLayout p, R.HasField t GridLayout p) => R.HasField t GridLayout p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveGridLayoutMethod t GridLayout, O.OverloadedMethodInfo info GridLayout) => OL.IsLabel t (O.MethodProxy info GridLayout) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getGridLayoutColumnHomogeneous :: (MonadIO m, IsGridLayout o) => o -> m Bool
getGridLayoutColumnHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsGridLayout o) => o -> m Bool
getGridLayoutColumnHomogeneous 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
"column-homogeneous"
setGridLayoutColumnHomogeneous :: (MonadIO m, IsGridLayout o) => o -> Bool -> m ()
setGridLayoutColumnHomogeneous :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> Bool -> m ()
setGridLayoutColumnHomogeneous 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
"column-homogeneous" Bool
val
constructGridLayoutColumnHomogeneous :: (IsGridLayout o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGridLayoutColumnHomogeneous :: forall o (m :: * -> *).
(IsGridLayout o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGridLayoutColumnHomogeneous 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
"column-homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutColumnHomogeneousPropertyInfo
instance AttrInfo GridLayoutColumnHomogeneousPropertyInfo where
type AttrAllowedOps GridLayoutColumnHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutColumnHomogeneousPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutColumnHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridLayoutColumnHomogeneousPropertyInfo = (~) Bool
type AttrTransferType GridLayoutColumnHomogeneousPropertyInfo = Bool
type AttrGetType GridLayoutColumnHomogeneousPropertyInfo = Bool
type AttrLabel GridLayoutColumnHomogeneousPropertyInfo = "column-homogeneous"
type AttrOrigin GridLayoutColumnHomogeneousPropertyInfo = GridLayout
attrGet = getGridLayoutColumnHomogeneous
attrSet = setGridLayoutColumnHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutColumnHomogeneous
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.columnHomogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#g:attr:columnHomogeneous"
})
#endif
getGridLayoutColumnSpacing :: (MonadIO m, IsGridLayout o) => o -> m Word32
getGridLayoutColumnSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> m Word32
getGridLayoutColumnSpacing o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"column-spacing"
setGridLayoutColumnSpacing :: (MonadIO m, IsGridLayout o) => o -> Word32 -> m ()
setGridLayoutColumnSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> Word32 -> m ()
setGridLayoutColumnSpacing o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"column-spacing" Word32
val
constructGridLayoutColumnSpacing :: (IsGridLayout o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructGridLayoutColumnSpacing :: forall o (m :: * -> *).
(IsGridLayout o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructGridLayoutColumnSpacing Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"column-spacing" Word32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutColumnSpacingPropertyInfo
instance AttrInfo GridLayoutColumnSpacingPropertyInfo where
type AttrAllowedOps GridLayoutColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutColumnSpacingPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutColumnSpacingPropertyInfo = (~) Word32
type AttrTransferTypeConstraint GridLayoutColumnSpacingPropertyInfo = (~) Word32
type AttrTransferType GridLayoutColumnSpacingPropertyInfo = Word32
type AttrGetType GridLayoutColumnSpacingPropertyInfo = Word32
type AttrLabel GridLayoutColumnSpacingPropertyInfo = "column-spacing"
type AttrOrigin GridLayoutColumnSpacingPropertyInfo = GridLayout
attrGet = getGridLayoutColumnSpacing
attrSet = setGridLayoutColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutColumnSpacing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.columnSpacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#g:attr:columnSpacing"
})
#endif
getGridLayoutOrientation :: (MonadIO m, IsGridLayout o) => o -> m Clutter.Enums.Orientation
getGridLayoutOrientation :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> m Orientation
getGridLayoutOrientation o
obj = IO Orientation -> m Orientation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Orientation -> m Orientation)
-> IO Orientation -> m Orientation
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Orientation
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"orientation"
setGridLayoutOrientation :: (MonadIO m, IsGridLayout o) => o -> Clutter.Enums.Orientation -> m ()
setGridLayoutOrientation :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> Orientation -> m ()
setGridLayoutOrientation o
obj Orientation
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 -> Orientation -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"orientation" Orientation
val
constructGridLayoutOrientation :: (IsGridLayout o, MIO.MonadIO m) => Clutter.Enums.Orientation -> m (GValueConstruct o)
constructGridLayoutOrientation :: forall o (m :: * -> *).
(IsGridLayout o, MonadIO m) =>
Orientation -> m (GValueConstruct o)
constructGridLayoutOrientation Orientation
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 -> Orientation -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"orientation" Orientation
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutOrientationPropertyInfo
instance AttrInfo GridLayoutOrientationPropertyInfo where
type AttrAllowedOps GridLayoutOrientationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutOrientationPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutOrientationPropertyInfo = (~) Clutter.Enums.Orientation
type AttrTransferTypeConstraint GridLayoutOrientationPropertyInfo = (~) Clutter.Enums.Orientation
type AttrTransferType GridLayoutOrientationPropertyInfo = Clutter.Enums.Orientation
type AttrGetType GridLayoutOrientationPropertyInfo = Clutter.Enums.Orientation
type AttrLabel GridLayoutOrientationPropertyInfo = "orientation"
type AttrOrigin GridLayoutOrientationPropertyInfo = GridLayout
attrGet = getGridLayoutOrientation
attrSet = setGridLayoutOrientation
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutOrientation
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.orientation"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#g:attr:orientation"
})
#endif
getGridLayoutRowHomogeneous :: (MonadIO m, IsGridLayout o) => o -> m Bool
getGridLayoutRowHomogeneous :: forall (m :: * -> *) o. (MonadIO m, IsGridLayout o) => o -> m Bool
getGridLayoutRowHomogeneous 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
"row-homogeneous"
setGridLayoutRowHomogeneous :: (MonadIO m, IsGridLayout o) => o -> Bool -> m ()
setGridLayoutRowHomogeneous :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> Bool -> m ()
setGridLayoutRowHomogeneous 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
"row-homogeneous" Bool
val
constructGridLayoutRowHomogeneous :: (IsGridLayout o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructGridLayoutRowHomogeneous :: forall o (m :: * -> *).
(IsGridLayout o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructGridLayoutRowHomogeneous 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
"row-homogeneous" Bool
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutRowHomogeneousPropertyInfo
instance AttrInfo GridLayoutRowHomogeneousPropertyInfo where
type AttrAllowedOps GridLayoutRowHomogeneousPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutRowHomogeneousPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutRowHomogeneousPropertyInfo = (~) Bool
type AttrTransferTypeConstraint GridLayoutRowHomogeneousPropertyInfo = (~) Bool
type AttrTransferType GridLayoutRowHomogeneousPropertyInfo = Bool
type AttrGetType GridLayoutRowHomogeneousPropertyInfo = Bool
type AttrLabel GridLayoutRowHomogeneousPropertyInfo = "row-homogeneous"
type AttrOrigin GridLayoutRowHomogeneousPropertyInfo = GridLayout
attrGet = getGridLayoutRowHomogeneous
attrSet = setGridLayoutRowHomogeneous
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutRowHomogeneous
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.rowHomogeneous"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#g:attr:rowHomogeneous"
})
#endif
getGridLayoutRowSpacing :: (MonadIO m, IsGridLayout o) => o -> m Word32
getGridLayoutRowSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> m Word32
getGridLayoutRowSpacing o
obj = IO Word32 -> m Word32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Word32 -> m Word32) -> IO Word32 -> m Word32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Word32
forall a. GObject a => a -> String -> IO Word32
B.Properties.getObjectPropertyUInt32 o
obj String
"row-spacing"
setGridLayoutRowSpacing :: (MonadIO m, IsGridLayout o) => o -> Word32 -> m ()
setGridLayoutRowSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsGridLayout o) =>
o -> Word32 -> m ()
setGridLayoutRowSpacing o
obj Word32
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 -> Word32 -> IO ()
forall a. GObject a => a -> String -> Word32 -> IO ()
B.Properties.setObjectPropertyUInt32 o
obj String
"row-spacing" Word32
val
constructGridLayoutRowSpacing :: (IsGridLayout o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructGridLayoutRowSpacing :: forall o (m :: * -> *).
(IsGridLayout o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructGridLayoutRowSpacing Word32
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 -> Word32 -> IO (GValueConstruct o)
forall o. String -> Word32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyUInt32 String
"row-spacing" Word32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutRowSpacingPropertyInfo
instance AttrInfo GridLayoutRowSpacingPropertyInfo where
type AttrAllowedOps GridLayoutRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutRowSpacingPropertyInfo = IsGridLayout
type AttrSetTypeConstraint GridLayoutRowSpacingPropertyInfo = (~) Word32
type AttrTransferTypeConstraint GridLayoutRowSpacingPropertyInfo = (~) Word32
type AttrTransferType GridLayoutRowSpacingPropertyInfo = Word32
type AttrGetType GridLayoutRowSpacingPropertyInfo = Word32
type AttrLabel GridLayoutRowSpacingPropertyInfo = "row-spacing"
type AttrOrigin GridLayoutRowSpacingPropertyInfo = GridLayout
attrGet = getGridLayoutRowSpacing
attrSet = setGridLayoutRowSpacing
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutRowSpacing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.rowSpacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#g:attr:rowSpacing"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GridLayout
type instance O.AttributeList GridLayout = GridLayoutAttributeList
type GridLayoutAttributeList = ('[ '("columnHomogeneous", GridLayoutColumnHomogeneousPropertyInfo), '("columnSpacing", GridLayoutColumnSpacingPropertyInfo), '("orientation", GridLayoutOrientationPropertyInfo), '("rowHomogeneous", GridLayoutRowHomogeneousPropertyInfo), '("rowSpacing", GridLayoutRowSpacingPropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
gridLayoutColumnHomogeneous :: AttrLabelProxy "columnHomogeneous"
gridLayoutColumnHomogeneous = AttrLabelProxy
gridLayoutColumnSpacing :: AttrLabelProxy "columnSpacing"
gridLayoutColumnSpacing = AttrLabelProxy
gridLayoutOrientation :: AttrLabelProxy "orientation"
gridLayoutOrientation = AttrLabelProxy
gridLayoutRowHomogeneous :: AttrLabelProxy "rowHomogeneous"
gridLayoutRowHomogeneous = AttrLabelProxy
gridLayoutRowSpacing :: AttrLabelProxy "rowSpacing"
gridLayoutRowSpacing = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GridLayout = GridLayoutSignalList
type GridLayoutSignalList = ('[ '("layoutChanged", Clutter.LayoutManager.LayoutManagerLayoutChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "clutter_grid_layout_new" clutter_grid_layout_new ::
IO (Ptr GridLayout)
gridLayoutNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m GridLayout
gridLayoutNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m GridLayout
gridLayoutNew = IO GridLayout -> m GridLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GridLayout -> m GridLayout) -> IO GridLayout -> m GridLayout
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayout
result <- IO (Ptr GridLayout)
clutter_grid_layout_new
Text -> Ptr GridLayout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gridLayoutNew" Ptr GridLayout
result
GridLayout
result' <- ((ManagedPtr GridLayout -> GridLayout)
-> Ptr GridLayout -> IO GridLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr GridLayout -> GridLayout
GridLayout) Ptr GridLayout
result
GridLayout -> IO GridLayout
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return GridLayout
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_grid_layout_attach" clutter_grid_layout_attach ::
Ptr GridLayout ->
Ptr Clutter.Actor.Actor ->
Int32 ->
Int32 ->
Int32 ->
Int32 ->
IO ()
gridLayoutAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> Int32
-> Int32
-> Int32
-> Int32
-> m ()
gridLayoutAttach :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGridLayout a, IsActor b) =>
a -> b -> Int32 -> Int32 -> Int32 -> Int32 -> m ()
gridLayoutAttach a
layout b
child Int32
left Int32
top Int32
width Int32
height = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
child' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr GridLayout
-> Ptr Actor -> Int32 -> Int32 -> Int32 -> Int32 -> IO ()
clutter_grid_layout_attach Ptr GridLayout
layout' Ptr Actor
child' Int32
left Int32
top Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutAttachMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, IsGridLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod GridLayoutAttachMethodInfo a signature where
overloadedMethod = gridLayoutAttach
instance O.OverloadedMethodInfo GridLayoutAttachMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutAttach",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutAttach"
})
#endif
foreign import ccall "clutter_grid_layout_attach_next_to" clutter_grid_layout_attach_next_to ::
Ptr GridLayout ->
Ptr Clutter.Actor.Actor ->
Ptr Clutter.Actor.Actor ->
CUInt ->
Int32 ->
Int32 ->
IO ()
gridLayoutAttachNextTo ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a, Clutter.Actor.IsActor b, Clutter.Actor.IsActor c) =>
a
-> b
-> Maybe (c)
-> Clutter.Enums.GridPosition
-> Int32
-> Int32
-> m ()
gridLayoutAttachNextTo :: forall (m :: * -> *) a b c.
(HasCallStack, MonadIO m, IsGridLayout a, IsActor b, IsActor c) =>
a -> b -> Maybe c -> GridPosition -> Int32 -> Int32 -> m ()
gridLayoutAttachNextTo a
layout b
child Maybe c
sibling GridPosition
side Int32
width Int32
height = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
child' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
child
Ptr Actor
maybeSibling <- case Maybe c
sibling of
Maybe c
Nothing -> Ptr Actor -> IO (Ptr Actor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Actor
forall a. Ptr a
nullPtr
Just c
jSibling -> do
Ptr Actor
jSibling' <- c -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr c
jSibling
Ptr Actor -> IO (Ptr Actor)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Actor
jSibling'
let side' :: CUInt
side' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (GridPosition -> Int) -> GridPosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GridPosition -> Int
forall a. Enum a => a -> Int
fromEnum) GridPosition
side
Ptr GridLayout
-> Ptr Actor -> Ptr Actor -> CUInt -> Int32 -> Int32 -> IO ()
clutter_grid_layout_attach_next_to Ptr GridLayout
layout' Ptr Actor
child' Ptr Actor
maybeSibling CUInt
side' Int32
width Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
child
Maybe c -> (c -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe c
sibling c -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutAttachNextToMethodInfo
instance (signature ~ (b -> Maybe (c) -> Clutter.Enums.GridPosition -> Int32 -> Int32 -> m ()), MonadIO m, IsGridLayout a, Clutter.Actor.IsActor b, Clutter.Actor.IsActor c) => O.OverloadedMethod GridLayoutAttachNextToMethodInfo a signature where
overloadedMethod = gridLayoutAttachNextTo
instance O.OverloadedMethodInfo GridLayoutAttachNextToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutAttachNextTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutAttachNextTo"
})
#endif
foreign import ccall "clutter_grid_layout_get_child_at" clutter_grid_layout_get_child_at ::
Ptr GridLayout ->
Int32 ->
Int32 ->
IO (Ptr Clutter.Actor.Actor)
gridLayoutGetChildAt ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Int32
-> Int32
-> m Clutter.Actor.Actor
gridLayoutGetChildAt :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Int32 -> Int32 -> m Actor
gridLayoutGetChildAt a
layout Int32
left Int32
top = IO Actor -> m Actor
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Actor -> m Actor) -> IO Actor -> m Actor
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
result <- Ptr GridLayout -> Int32 -> Int32 -> IO (Ptr Actor)
clutter_grid_layout_get_child_at Ptr GridLayout
layout' Int32
left Int32
top
Text -> Ptr Actor -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"gridLayoutGetChildAt" Ptr Actor
result
Actor
result' <- ((ManagedPtr Actor -> Actor) -> Ptr Actor -> IO Actor
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Actor -> Actor
Clutter.Actor.Actor) Ptr Actor
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
Actor -> IO Actor
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Actor
result'
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetChildAtMethodInfo
instance (signature ~ (Int32 -> Int32 -> m Clutter.Actor.Actor), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutGetChildAtMethodInfo a signature where
overloadedMethod = gridLayoutGetChildAt
instance O.OverloadedMethodInfo GridLayoutGetChildAtMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutGetChildAt",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutGetChildAt"
})
#endif
foreign import ccall "clutter_grid_layout_get_column_homogeneous" clutter_grid_layout_get_column_homogeneous ::
Ptr GridLayout ->
IO CInt
gridLayoutGetColumnHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Bool
gridLayoutGetColumnHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> m Bool
gridLayoutGetColumnHomogeneous a
layout = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
CInt
result <- Ptr GridLayout -> IO CInt
clutter_grid_layout_get_column_homogeneous Ptr GridLayout
layout'
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
layout
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetColumnHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutGetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutGetColumnHomogeneous
instance O.OverloadedMethodInfo GridLayoutGetColumnHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutGetColumnHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutGetColumnHomogeneous"
})
#endif
foreign import ccall "clutter_grid_layout_get_column_spacing" clutter_grid_layout_get_column_spacing ::
Ptr GridLayout ->
IO Word32
gridLayoutGetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Word32
gridLayoutGetColumnSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> m Word32
gridLayoutGetColumnSpacing a
layout = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Word32
result <- Ptr GridLayout -> IO Word32
clutter_grid_layout_get_column_spacing Ptr GridLayout
layout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetColumnSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutGetColumnSpacingMethodInfo a signature where
overloadedMethod = gridLayoutGetColumnSpacing
instance O.OverloadedMethodInfo GridLayoutGetColumnSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutGetColumnSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutGetColumnSpacing"
})
#endif
foreign import ccall "clutter_grid_layout_get_orientation" clutter_grid_layout_get_orientation ::
Ptr GridLayout ->
IO CUInt
gridLayoutGetOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Clutter.Enums.Orientation
gridLayoutGetOrientation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> m Orientation
gridLayoutGetOrientation a
layout = IO Orientation -> m Orientation
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Orientation -> m Orientation)
-> IO Orientation -> m Orientation
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
CUInt
result <- Ptr GridLayout -> IO CUInt
clutter_grid_layout_get_orientation Ptr GridLayout
layout'
let result' :: Orientation
result' = (Int -> Orientation
forall a. Enum a => Int -> a
toEnum (Int -> Orientation) -> (CUInt -> Int) -> CUInt -> Orientation
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
layout
Orientation -> IO Orientation
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Orientation
result'
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetOrientationMethodInfo
instance (signature ~ (m Clutter.Enums.Orientation), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutGetOrientationMethodInfo a signature where
overloadedMethod = gridLayoutGetOrientation
instance O.OverloadedMethodInfo GridLayoutGetOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutGetOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutGetOrientation"
})
#endif
foreign import ccall "clutter_grid_layout_get_row_homogeneous" clutter_grid_layout_get_row_homogeneous ::
Ptr GridLayout ->
IO CInt
gridLayoutGetRowHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Bool
gridLayoutGetRowHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> m Bool
gridLayoutGetRowHomogeneous a
layout = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
CInt
result <- Ptr GridLayout -> IO CInt
clutter_grid_layout_get_row_homogeneous Ptr GridLayout
layout'
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
layout
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetRowHomogeneousMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutGetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutGetRowHomogeneous
instance O.OverloadedMethodInfo GridLayoutGetRowHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutGetRowHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutGetRowHomogeneous"
})
#endif
foreign import ccall "clutter_grid_layout_get_row_spacing" clutter_grid_layout_get_row_spacing ::
Ptr GridLayout ->
IO Word32
gridLayoutGetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> m Word32
gridLayoutGetRowSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> m Word32
gridLayoutGetRowSpacing a
layout = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Word32
result <- Ptr GridLayout -> IO Word32
clutter_grid_layout_get_row_spacing Ptr GridLayout
layout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
Word32 -> IO Word32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Word32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutGetRowSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutGetRowSpacingMethodInfo a signature where
overloadedMethod = gridLayoutGetRowSpacing
instance O.OverloadedMethodInfo GridLayoutGetRowSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutGetRowSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutGetRowSpacing"
})
#endif
foreign import ccall "clutter_grid_layout_insert_column" clutter_grid_layout_insert_column ::
Ptr GridLayout ->
Int32 ->
IO ()
gridLayoutInsertColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Int32
-> m ()
gridLayoutInsertColumn :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Int32 -> m ()
gridLayoutInsertColumn a
layout Int32
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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr GridLayout -> Int32 -> IO ()
clutter_grid_layout_insert_column Ptr GridLayout
layout' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutInsertColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutInsertColumnMethodInfo a signature where
overloadedMethod = gridLayoutInsertColumn
instance O.OverloadedMethodInfo GridLayoutInsertColumnMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutInsertColumn",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutInsertColumn"
})
#endif
foreign import ccall "clutter_grid_layout_insert_next_to" clutter_grid_layout_insert_next_to ::
Ptr GridLayout ->
Ptr Clutter.Actor.Actor ->
CUInt ->
IO ()
gridLayoutInsertNextTo ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> Clutter.Enums.GridPosition
-> m ()
gridLayoutInsertNextTo :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsGridLayout a, IsActor b) =>
a -> b -> GridPosition -> m ()
gridLayoutInsertNextTo a
layout b
sibling GridPosition
side = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
sibling' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
sibling
let side' :: CUInt
side' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (GridPosition -> Int) -> GridPosition -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. GridPosition -> Int
forall a. Enum a => a -> Int
fromEnum) GridPosition
side
Ptr GridLayout -> Ptr Actor -> CUInt -> IO ()
clutter_grid_layout_insert_next_to Ptr GridLayout
layout' Ptr Actor
sibling' CUInt
side'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
sibling
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutInsertNextToMethodInfo
instance (signature ~ (b -> Clutter.Enums.GridPosition -> m ()), MonadIO m, IsGridLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod GridLayoutInsertNextToMethodInfo a signature where
overloadedMethod = gridLayoutInsertNextTo
instance O.OverloadedMethodInfo GridLayoutInsertNextToMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutInsertNextTo",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutInsertNextTo"
})
#endif
foreign import ccall "clutter_grid_layout_insert_row" clutter_grid_layout_insert_row ::
Ptr GridLayout ->
Int32 ->
IO ()
gridLayoutInsertRow ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Int32
-> m ()
gridLayoutInsertRow :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Int32 -> m ()
gridLayoutInsertRow a
layout Int32
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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr GridLayout -> Int32 -> IO ()
clutter_grid_layout_insert_row Ptr GridLayout
layout' Int32
position
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutInsertRowMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutInsertRowMethodInfo a signature where
overloadedMethod = gridLayoutInsertRow
instance O.OverloadedMethodInfo GridLayoutInsertRowMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutInsertRow",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutInsertRow"
})
#endif
foreign import ccall "clutter_grid_layout_set_column_homogeneous" clutter_grid_layout_set_column_homogeneous ::
Ptr GridLayout ->
CInt ->
IO ()
gridLayoutSetColumnHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Bool
-> m ()
gridLayoutSetColumnHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Bool -> m ()
gridLayoutSetColumnHomogeneous a
layout 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
let homogeneous' :: CInt
homogeneous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
homogeneous
Ptr GridLayout -> CInt -> IO ()
clutter_grid_layout_set_column_homogeneous Ptr GridLayout
layout' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetColumnHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutSetColumnHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutSetColumnHomogeneous
instance O.OverloadedMethodInfo GridLayoutSetColumnHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutSetColumnHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutSetColumnHomogeneous"
})
#endif
foreign import ccall "clutter_grid_layout_set_column_spacing" clutter_grid_layout_set_column_spacing ::
Ptr GridLayout ->
Word32 ->
IO ()
gridLayoutSetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Word32
-> m ()
gridLayoutSetColumnSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Word32 -> m ()
gridLayoutSetColumnSpacing a
layout 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr GridLayout -> Word32 -> IO ()
clutter_grid_layout_set_column_spacing Ptr GridLayout
layout' Word32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetColumnSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutSetColumnSpacingMethodInfo a signature where
overloadedMethod = gridLayoutSetColumnSpacing
instance O.OverloadedMethodInfo GridLayoutSetColumnSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutSetColumnSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutSetColumnSpacing"
})
#endif
foreign import ccall "clutter_grid_layout_set_orientation" clutter_grid_layout_set_orientation ::
Ptr GridLayout ->
CUInt ->
IO ()
gridLayoutSetOrientation ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Clutter.Enums.Orientation
-> m ()
gridLayoutSetOrientation :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Orientation -> m ()
gridLayoutSetOrientation a
layout Orientation
orientation = 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
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 GridLayout -> CUInt -> IO ()
clutter_grid_layout_set_orientation Ptr GridLayout
layout' CUInt
orientation'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetOrientationMethodInfo
instance (signature ~ (Clutter.Enums.Orientation -> m ()), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutSetOrientationMethodInfo a signature where
overloadedMethod = gridLayoutSetOrientation
instance O.OverloadedMethodInfo GridLayoutSetOrientationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutSetOrientation",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutSetOrientation"
})
#endif
foreign import ccall "clutter_grid_layout_set_row_homogeneous" clutter_grid_layout_set_row_homogeneous ::
Ptr GridLayout ->
CInt ->
IO ()
gridLayoutSetRowHomogeneous ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Bool
-> m ()
gridLayoutSetRowHomogeneous :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Bool -> m ()
gridLayoutSetRowHomogeneous a
layout 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
let homogeneous' :: CInt
homogeneous' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.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
P.fromEnum) Bool
homogeneous
Ptr GridLayout -> CInt -> IO ()
clutter_grid_layout_set_row_homogeneous Ptr GridLayout
layout' CInt
homogeneous'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetRowHomogeneousMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutSetRowHomogeneousMethodInfo a signature where
overloadedMethod = gridLayoutSetRowHomogeneous
instance O.OverloadedMethodInfo GridLayoutSetRowHomogeneousMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutSetRowHomogeneous",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutSetRowHomogeneous"
})
#endif
foreign import ccall "clutter_grid_layout_set_row_spacing" clutter_grid_layout_set_row_spacing ::
Ptr GridLayout ->
Word32 ->
IO ()
gridLayoutSetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayout a) =>
a
-> Word32
-> m ()
gridLayoutSetRowSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsGridLayout a) =>
a -> Word32 -> m ()
gridLayoutSetRowSpacing a
layout 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 GridLayout
layout' <- a -> IO (Ptr GridLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr GridLayout -> Word32 -> IO ()
clutter_grid_layout_set_row_spacing Ptr GridLayout
layout' Word32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutSetRowSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsGridLayout a) => O.OverloadedMethod GridLayoutSetRowSpacingMethodInfo a signature where
overloadedMethod = gridLayoutSetRowSpacing
instance O.OverloadedMethodInfo GridLayoutSetRowSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.GridLayout.gridLayoutSetRowSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.5/docs/GI-Clutter-Objects-GridLayout.html#v:gridLayoutSetRowSpacing"
})
#endif