{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Clutter.Objects.TableLayout
(
TableLayout(..) ,
IsTableLayout ,
toTableLayout ,
#if defined(ENABLE_OVERLOADING)
ResolveTableLayoutMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TableLayoutGetAlignmentMethodInfo ,
#endif
tableLayoutGetAlignment ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetColumnCountMethodInfo ,
#endif
tableLayoutGetColumnCount ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetColumnSpacingMethodInfo ,
#endif
tableLayoutGetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetEasingDurationMethodInfo ,
#endif
tableLayoutGetEasingDuration ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetEasingModeMethodInfo ,
#endif
tableLayoutGetEasingMode ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetExpandMethodInfo ,
#endif
tableLayoutGetExpand ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetFillMethodInfo ,
#endif
tableLayoutGetFill ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetRowCountMethodInfo ,
#endif
tableLayoutGetRowCount ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetRowSpacingMethodInfo ,
#endif
tableLayoutGetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetSpanMethodInfo ,
#endif
tableLayoutGetSpan ,
#if defined(ENABLE_OVERLOADING)
TableLayoutGetUseAnimationsMethodInfo ,
#endif
tableLayoutGetUseAnimations ,
tableLayoutNew ,
#if defined(ENABLE_OVERLOADING)
TableLayoutPackMethodInfo ,
#endif
tableLayoutPack ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetAlignmentMethodInfo ,
#endif
tableLayoutSetAlignment ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetColumnSpacingMethodInfo ,
#endif
tableLayoutSetColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetEasingDurationMethodInfo ,
#endif
tableLayoutSetEasingDuration ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetEasingModeMethodInfo ,
#endif
tableLayoutSetEasingMode ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetExpandMethodInfo ,
#endif
tableLayoutSetExpand ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetFillMethodInfo ,
#endif
tableLayoutSetFill ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetRowSpacingMethodInfo ,
#endif
tableLayoutSetRowSpacing ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetSpanMethodInfo ,
#endif
tableLayoutSetSpan ,
#if defined(ENABLE_OVERLOADING)
TableLayoutSetUseAnimationsMethodInfo ,
#endif
tableLayoutSetUseAnimations ,
#if defined(ENABLE_OVERLOADING)
TableLayoutColumnSpacingPropertyInfo ,
#endif
constructTableLayoutColumnSpacing ,
getTableLayoutColumnSpacing ,
setTableLayoutColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
tableLayoutColumnSpacing ,
#endif
#if defined(ENABLE_OVERLOADING)
TableLayoutEasingDurationPropertyInfo ,
#endif
constructTableLayoutEasingDuration ,
getTableLayoutEasingDuration ,
setTableLayoutEasingDuration ,
#if defined(ENABLE_OVERLOADING)
tableLayoutEasingDuration ,
#endif
#if defined(ENABLE_OVERLOADING)
TableLayoutEasingModePropertyInfo ,
#endif
constructTableLayoutEasingMode ,
getTableLayoutEasingMode ,
setTableLayoutEasingMode ,
#if defined(ENABLE_OVERLOADING)
tableLayoutEasingMode ,
#endif
#if defined(ENABLE_OVERLOADING)
TableLayoutRowSpacingPropertyInfo ,
#endif
constructTableLayoutRowSpacing ,
getTableLayoutRowSpacing ,
setTableLayoutRowSpacing ,
#if defined(ENABLE_OVERLOADING)
tableLayoutRowSpacing ,
#endif
#if defined(ENABLE_OVERLOADING)
TableLayoutUseAnimationsPropertyInfo ,
#endif
constructTableLayoutUseAnimations ,
getTableLayoutUseAnimations ,
setTableLayoutUseAnimations ,
#if defined(ENABLE_OVERLOADING)
tableLayoutUseAnimations ,
#endif
) 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 {-# 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 TableLayout = TableLayout (SP.ManagedPtr TableLayout)
deriving (TableLayout -> TableLayout -> Bool
(TableLayout -> TableLayout -> Bool)
-> (TableLayout -> TableLayout -> Bool) -> Eq TableLayout
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: TableLayout -> TableLayout -> Bool
== :: TableLayout -> TableLayout -> Bool
$c/= :: TableLayout -> TableLayout -> Bool
/= :: TableLayout -> TableLayout -> Bool
Eq)
instance SP.ManagedPtrNewtype TableLayout where
toManagedPtr :: TableLayout -> ManagedPtr TableLayout
toManagedPtr (TableLayout ManagedPtr TableLayout
p) = ManagedPtr TableLayout
p
foreign import ccall "clutter_table_layout_get_type"
c_clutter_table_layout_get_type :: IO B.Types.GType
instance B.Types.TypedObject TableLayout where
glibType :: IO GType
glibType = IO GType
c_clutter_table_layout_get_type
instance B.Types.GObject TableLayout
class (SP.GObject o, O.IsDescendantOf TableLayout o) => IsTableLayout o
instance (SP.GObject o, O.IsDescendantOf TableLayout o) => IsTableLayout o
instance O.HasParentTypes TableLayout
type instance O.ParentTypes TableLayout = '[Clutter.LayoutManager.LayoutManager, GObject.Object.Object]
toTableLayout :: (MIO.MonadIO m, IsTableLayout o) => o -> m TableLayout
toTableLayout :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> m TableLayout
toTableLayout = IO TableLayout -> m TableLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TableLayout -> m TableLayout)
-> (o -> IO TableLayout) -> o -> m TableLayout
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TableLayout -> TableLayout) -> o -> IO TableLayout
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TableLayout -> TableLayout
TableLayout
instance B.GValue.IsGValue (Maybe TableLayout) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_clutter_table_layout_get_type
gvalueSet_ :: Ptr GValue -> Maybe TableLayout -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TableLayout
P.Nothing = Ptr GValue -> Ptr TableLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TableLayout
forall a. Ptr a
FP.nullPtr :: FP.Ptr TableLayout)
gvalueSet_ Ptr GValue
gv (P.Just TableLayout
obj) = TableLayout -> (Ptr TableLayout -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TableLayout
obj (Ptr GValue -> Ptr TableLayout -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TableLayout)
gvalueGet_ Ptr GValue
gv = do
Ptr TableLayout
ptr <- Ptr GValue -> IO (Ptr TableLayout)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TableLayout)
if Ptr TableLayout
ptr Ptr TableLayout -> Ptr TableLayout -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TableLayout
forall a. Ptr a
FP.nullPtr
then TableLayout -> Maybe TableLayout
forall a. a -> Maybe a
P.Just (TableLayout -> Maybe TableLayout)
-> IO TableLayout -> IO (Maybe TableLayout)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TableLayout -> TableLayout)
-> Ptr TableLayout -> IO TableLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TableLayout -> TableLayout
TableLayout Ptr TableLayout
ptr
else Maybe TableLayout -> IO (Maybe TableLayout)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TableLayout
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTableLayoutMethod (t :: Symbol) (o :: *) :: * where
ResolveTableLayoutMethod "allocate" o = Clutter.LayoutManager.LayoutManagerAllocateMethodInfo
ResolveTableLayoutMethod "beginAnimation" o = Clutter.LayoutManager.LayoutManagerBeginAnimationMethodInfo
ResolveTableLayoutMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTableLayoutMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTableLayoutMethod "childGetProperty" o = Clutter.LayoutManager.LayoutManagerChildGetPropertyMethodInfo
ResolveTableLayoutMethod "childSetProperty" o = Clutter.LayoutManager.LayoutManagerChildSetPropertyMethodInfo
ResolveTableLayoutMethod "endAnimation" o = Clutter.LayoutManager.LayoutManagerEndAnimationMethodInfo
ResolveTableLayoutMethod "findChildProperty" o = Clutter.LayoutManager.LayoutManagerFindChildPropertyMethodInfo
ResolveTableLayoutMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTableLayoutMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTableLayoutMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTableLayoutMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTableLayoutMethod "layoutChanged" o = Clutter.LayoutManager.LayoutManagerLayoutChangedMethodInfo
ResolveTableLayoutMethod "listChildProperties" o = Clutter.LayoutManager.LayoutManagerListChildPropertiesMethodInfo
ResolveTableLayoutMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTableLayoutMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTableLayoutMethod "pack" o = TableLayoutPackMethodInfo
ResolveTableLayoutMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTableLayoutMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTableLayoutMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTableLayoutMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTableLayoutMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTableLayoutMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTableLayoutMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTableLayoutMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTableLayoutMethod "getAlignment" o = TableLayoutGetAlignmentMethodInfo
ResolveTableLayoutMethod "getAnimationProgress" o = Clutter.LayoutManager.LayoutManagerGetAnimationProgressMethodInfo
ResolveTableLayoutMethod "getChildMeta" o = Clutter.LayoutManager.LayoutManagerGetChildMetaMethodInfo
ResolveTableLayoutMethod "getColumnCount" o = TableLayoutGetColumnCountMethodInfo
ResolveTableLayoutMethod "getColumnSpacing" o = TableLayoutGetColumnSpacingMethodInfo
ResolveTableLayoutMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTableLayoutMethod "getEasingDuration" o = TableLayoutGetEasingDurationMethodInfo
ResolveTableLayoutMethod "getEasingMode" o = TableLayoutGetEasingModeMethodInfo
ResolveTableLayoutMethod "getExpand" o = TableLayoutGetExpandMethodInfo
ResolveTableLayoutMethod "getFill" o = TableLayoutGetFillMethodInfo
ResolveTableLayoutMethod "getPreferredHeight" o = Clutter.LayoutManager.LayoutManagerGetPreferredHeightMethodInfo
ResolveTableLayoutMethod "getPreferredWidth" o = Clutter.LayoutManager.LayoutManagerGetPreferredWidthMethodInfo
ResolveTableLayoutMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTableLayoutMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTableLayoutMethod "getRowCount" o = TableLayoutGetRowCountMethodInfo
ResolveTableLayoutMethod "getRowSpacing" o = TableLayoutGetRowSpacingMethodInfo
ResolveTableLayoutMethod "getSpan" o = TableLayoutGetSpanMethodInfo
ResolveTableLayoutMethod "getUseAnimations" o = TableLayoutGetUseAnimationsMethodInfo
ResolveTableLayoutMethod "setAlignment" o = TableLayoutSetAlignmentMethodInfo
ResolveTableLayoutMethod "setColumnSpacing" o = TableLayoutSetColumnSpacingMethodInfo
ResolveTableLayoutMethod "setContainer" o = Clutter.LayoutManager.LayoutManagerSetContainerMethodInfo
ResolveTableLayoutMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTableLayoutMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTableLayoutMethod "setEasingDuration" o = TableLayoutSetEasingDurationMethodInfo
ResolveTableLayoutMethod "setEasingMode" o = TableLayoutSetEasingModeMethodInfo
ResolveTableLayoutMethod "setExpand" o = TableLayoutSetExpandMethodInfo
ResolveTableLayoutMethod "setFill" o = TableLayoutSetFillMethodInfo
ResolveTableLayoutMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTableLayoutMethod "setRowSpacing" o = TableLayoutSetRowSpacingMethodInfo
ResolveTableLayoutMethod "setSpan" o = TableLayoutSetSpanMethodInfo
ResolveTableLayoutMethod "setUseAnimations" o = TableLayoutSetUseAnimationsMethodInfo
ResolveTableLayoutMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTableLayoutMethod t TableLayout, O.OverloadedMethod info TableLayout p) => OL.IsLabel t (TableLayout -> 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 ~ ResolveTableLayoutMethod t TableLayout, O.OverloadedMethod info TableLayout p, R.HasField t TableLayout p) => R.HasField t TableLayout p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTableLayoutMethod t TableLayout, O.OverloadedMethodInfo info TableLayout) => OL.IsLabel t (O.MethodProxy info TableLayout) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getTableLayoutColumnSpacing :: (MonadIO m, IsTableLayout o) => o -> m Word32
getTableLayoutColumnSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> m Word32
getTableLayoutColumnSpacing 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"
setTableLayoutColumnSpacing :: (MonadIO m, IsTableLayout o) => o -> Word32 -> m ()
setTableLayoutColumnSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> Word32 -> m ()
setTableLayoutColumnSpacing 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
constructTableLayoutColumnSpacing :: (IsTableLayout o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTableLayoutColumnSpacing :: forall o (m :: * -> *).
(IsTableLayout o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTableLayoutColumnSpacing 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 TableLayoutColumnSpacingPropertyInfo
instance AttrInfo TableLayoutColumnSpacingPropertyInfo where
type AttrAllowedOps TableLayoutColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TableLayoutColumnSpacingPropertyInfo = IsTableLayout
type AttrSetTypeConstraint TableLayoutColumnSpacingPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TableLayoutColumnSpacingPropertyInfo = (~) Word32
type AttrTransferType TableLayoutColumnSpacingPropertyInfo = Word32
type AttrGetType TableLayoutColumnSpacingPropertyInfo = Word32
type AttrLabel TableLayoutColumnSpacingPropertyInfo = "column-spacing"
type AttrOrigin TableLayoutColumnSpacingPropertyInfo = TableLayout
attrGet = getTableLayoutColumnSpacing
attrSet = setTableLayoutColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructTableLayoutColumnSpacing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.columnSpacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#g:attr:columnSpacing"
})
#endif
getTableLayoutEasingDuration :: (MonadIO m, IsTableLayout o) => o -> m Word32
getTableLayoutEasingDuration :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> m Word32
getTableLayoutEasingDuration 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
"easing-duration"
setTableLayoutEasingDuration :: (MonadIO m, IsTableLayout o) => o -> Word32 -> m ()
setTableLayoutEasingDuration :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> Word32 -> m ()
setTableLayoutEasingDuration 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
"easing-duration" Word32
val
constructTableLayoutEasingDuration :: (IsTableLayout o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTableLayoutEasingDuration :: forall o (m :: * -> *).
(IsTableLayout o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTableLayoutEasingDuration 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
"easing-duration" Word32
val
#if defined(ENABLE_OVERLOADING)
data TableLayoutEasingDurationPropertyInfo
instance AttrInfo TableLayoutEasingDurationPropertyInfo where
type AttrAllowedOps TableLayoutEasingDurationPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TableLayoutEasingDurationPropertyInfo = IsTableLayout
type AttrSetTypeConstraint TableLayoutEasingDurationPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TableLayoutEasingDurationPropertyInfo = (~) Word32
type AttrTransferType TableLayoutEasingDurationPropertyInfo = Word32
type AttrGetType TableLayoutEasingDurationPropertyInfo = Word32
type AttrLabel TableLayoutEasingDurationPropertyInfo = "easing-duration"
type AttrOrigin TableLayoutEasingDurationPropertyInfo = TableLayout
attrGet = getTableLayoutEasingDuration
attrSet = setTableLayoutEasingDuration
attrTransfer _ v = do
return v
attrConstruct = constructTableLayoutEasingDuration
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.easingDuration"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#g:attr:easingDuration"
})
#endif
getTableLayoutEasingMode :: (MonadIO m, IsTableLayout o) => o -> m CULong
getTableLayoutEasingMode :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> m CULong
getTableLayoutEasingMode o
obj = IO CULong -> m CULong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ o -> String -> IO CULong
forall a. GObject a => a -> String -> IO CULong
B.Properties.getObjectPropertyULong o
obj String
"easing-mode"
setTableLayoutEasingMode :: (MonadIO m, IsTableLayout o) => o -> CULong -> m ()
setTableLayoutEasingMode :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> CULong -> m ()
setTableLayoutEasingMode o
obj CULong
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 -> CULong -> IO ()
forall a. GObject a => a -> String -> CULong -> IO ()
B.Properties.setObjectPropertyULong o
obj String
"easing-mode" CULong
val
constructTableLayoutEasingMode :: (IsTableLayout o, MIO.MonadIO m) => CULong -> m (GValueConstruct o)
constructTableLayoutEasingMode :: forall o (m :: * -> *).
(IsTableLayout o, MonadIO m) =>
CULong -> m (GValueConstruct o)
constructTableLayoutEasingMode CULong
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 -> CULong -> IO (GValueConstruct o)
forall o. String -> CULong -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyULong String
"easing-mode" CULong
val
#if defined(ENABLE_OVERLOADING)
data TableLayoutEasingModePropertyInfo
instance AttrInfo TableLayoutEasingModePropertyInfo where
type AttrAllowedOps TableLayoutEasingModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TableLayoutEasingModePropertyInfo = IsTableLayout
type AttrSetTypeConstraint TableLayoutEasingModePropertyInfo = (~) CULong
type AttrTransferTypeConstraint TableLayoutEasingModePropertyInfo = (~) CULong
type AttrTransferType TableLayoutEasingModePropertyInfo = CULong
type AttrGetType TableLayoutEasingModePropertyInfo = CULong
type AttrLabel TableLayoutEasingModePropertyInfo = "easing-mode"
type AttrOrigin TableLayoutEasingModePropertyInfo = TableLayout
attrGet = getTableLayoutEasingMode
attrSet = setTableLayoutEasingMode
attrTransfer _ v = do
return v
attrConstruct = constructTableLayoutEasingMode
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.easingMode"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#g:attr:easingMode"
})
#endif
getTableLayoutRowSpacing :: (MonadIO m, IsTableLayout o) => o -> m Word32
getTableLayoutRowSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> m Word32
getTableLayoutRowSpacing 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"
setTableLayoutRowSpacing :: (MonadIO m, IsTableLayout o) => o -> Word32 -> m ()
setTableLayoutRowSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> Word32 -> m ()
setTableLayoutRowSpacing 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
constructTableLayoutRowSpacing :: (IsTableLayout o, MIO.MonadIO m) => Word32 -> m (GValueConstruct o)
constructTableLayoutRowSpacing :: forall o (m :: * -> *).
(IsTableLayout o, MonadIO m) =>
Word32 -> m (GValueConstruct o)
constructTableLayoutRowSpacing 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 TableLayoutRowSpacingPropertyInfo
instance AttrInfo TableLayoutRowSpacingPropertyInfo where
type AttrAllowedOps TableLayoutRowSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TableLayoutRowSpacingPropertyInfo = IsTableLayout
type AttrSetTypeConstraint TableLayoutRowSpacingPropertyInfo = (~) Word32
type AttrTransferTypeConstraint TableLayoutRowSpacingPropertyInfo = (~) Word32
type AttrTransferType TableLayoutRowSpacingPropertyInfo = Word32
type AttrGetType TableLayoutRowSpacingPropertyInfo = Word32
type AttrLabel TableLayoutRowSpacingPropertyInfo = "row-spacing"
type AttrOrigin TableLayoutRowSpacingPropertyInfo = TableLayout
attrGet = getTableLayoutRowSpacing
attrSet = setTableLayoutRowSpacing
attrTransfer _ v = do
return v
attrConstruct = constructTableLayoutRowSpacing
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.rowSpacing"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#g:attr:rowSpacing"
})
#endif
getTableLayoutUseAnimations :: (MonadIO m, IsTableLayout o) => o -> m Bool
getTableLayoutUseAnimations :: forall (m :: * -> *) o. (MonadIO m, IsTableLayout o) => o -> m Bool
getTableLayoutUseAnimations 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
"use-animations"
setTableLayoutUseAnimations :: (MonadIO m, IsTableLayout o) => o -> Bool -> m ()
setTableLayoutUseAnimations :: forall (m :: * -> *) o.
(MonadIO m, IsTableLayout o) =>
o -> Bool -> m ()
setTableLayoutUseAnimations 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
"use-animations" Bool
val
constructTableLayoutUseAnimations :: (IsTableLayout o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTableLayoutUseAnimations :: forall o (m :: * -> *).
(IsTableLayout o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTableLayoutUseAnimations 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
"use-animations" Bool
val
#if defined(ENABLE_OVERLOADING)
data TableLayoutUseAnimationsPropertyInfo
instance AttrInfo TableLayoutUseAnimationsPropertyInfo where
type AttrAllowedOps TableLayoutUseAnimationsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TableLayoutUseAnimationsPropertyInfo = IsTableLayout
type AttrSetTypeConstraint TableLayoutUseAnimationsPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TableLayoutUseAnimationsPropertyInfo = (~) Bool
type AttrTransferType TableLayoutUseAnimationsPropertyInfo = Bool
type AttrGetType TableLayoutUseAnimationsPropertyInfo = Bool
type AttrLabel TableLayoutUseAnimationsPropertyInfo = "use-animations"
type AttrOrigin TableLayoutUseAnimationsPropertyInfo = TableLayout
attrGet = getTableLayoutUseAnimations
attrSet = setTableLayoutUseAnimations
attrTransfer _ v = do
return v
attrConstruct = constructTableLayoutUseAnimations
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.useAnimations"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#g:attr:useAnimations"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TableLayout
type instance O.AttributeList TableLayout = TableLayoutAttributeList
type TableLayoutAttributeList = ('[ '("columnSpacing", TableLayoutColumnSpacingPropertyInfo), '("easingDuration", TableLayoutEasingDurationPropertyInfo), '("easingMode", TableLayoutEasingModePropertyInfo), '("rowSpacing", TableLayoutRowSpacingPropertyInfo), '("useAnimations", TableLayoutUseAnimationsPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
tableLayoutColumnSpacing :: AttrLabelProxy "columnSpacing"
tableLayoutColumnSpacing = AttrLabelProxy
tableLayoutEasingDuration :: AttrLabelProxy "easingDuration"
tableLayoutEasingDuration = AttrLabelProxy
tableLayoutEasingMode :: AttrLabelProxy "easingMode"
tableLayoutEasingMode = AttrLabelProxy
tableLayoutRowSpacing :: AttrLabelProxy "rowSpacing"
tableLayoutRowSpacing = AttrLabelProxy
tableLayoutUseAnimations :: AttrLabelProxy "useAnimations"
tableLayoutUseAnimations = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TableLayout = TableLayoutSignalList
type TableLayoutSignalList = ('[ '("layoutChanged", Clutter.LayoutManager.LayoutManagerLayoutChangedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "clutter_table_layout_new" clutter_table_layout_new ::
IO (Ptr TableLayout)
{-# DEPRECATED tableLayoutNew ["(Since version 1.18)","Use t'GI.Clutter.Objects.GridLayout.GridLayout' instead"] #-}
tableLayoutNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TableLayout
tableLayoutNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m TableLayout
tableLayoutNew = IO TableLayout -> m TableLayout
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TableLayout -> m TableLayout)
-> IO TableLayout -> m TableLayout
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
result <- IO (Ptr TableLayout)
clutter_table_layout_new
Text -> Ptr TableLayout -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"tableLayoutNew" Ptr TableLayout
result
TableLayout
result' <- ((ManagedPtr TableLayout -> TableLayout)
-> Ptr TableLayout -> IO TableLayout
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TableLayout -> TableLayout
TableLayout) Ptr TableLayout
result
TableLayout -> IO TableLayout
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return TableLayout
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "clutter_table_layout_get_alignment" clutter_table_layout_get_alignment ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
Ptr CUInt ->
Ptr CUInt ->
IO ()
{-# DEPRECATED tableLayoutGetAlignment ["(Since version 1.12)","Use 'GI.Clutter.Objects.Actor.actorGetXAlign' and"," 'GI.Clutter.Objects.Actor.actorGetYAlign' instead."] #-}
tableLayoutGetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> m ((Clutter.Enums.TableAlignment, Clutter.Enums.TableAlignment))
tableLayoutGetAlignment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> m (TableAlignment, TableAlignment)
tableLayoutGetAlignment a
layout b
actor = IO (TableAlignment, TableAlignment)
-> m (TableAlignment, TableAlignment)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (TableAlignment, TableAlignment)
-> m (TableAlignment, TableAlignment))
-> IO (TableAlignment, TableAlignment)
-> m (TableAlignment, TableAlignment)
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
Ptr CUInt
xAlign <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
Ptr CUInt
yAlign <- IO (Ptr CUInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CUInt)
Ptr TableLayout -> Ptr Actor -> Ptr CUInt -> Ptr CUInt -> IO ()
clutter_table_layout_get_alignment Ptr TableLayout
layout' Ptr Actor
actor' Ptr CUInt
xAlign Ptr CUInt
yAlign
CUInt
xAlign' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
xAlign
let xAlign'' :: TableAlignment
xAlign'' = (Int -> TableAlignment
forall a. Enum a => Int -> a
toEnum (Int -> TableAlignment)
-> (CUInt -> Int) -> CUInt -> TableAlignment
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
xAlign'
CUInt
yAlign' <- Ptr CUInt -> IO CUInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CUInt
yAlign
let yAlign'' :: TableAlignment
yAlign'' = (Int -> TableAlignment
forall a. Enum a => Int -> a
toEnum (Int -> TableAlignment)
-> (CUInt -> Int) -> CUInt -> TableAlignment
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
yAlign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
xAlign
Ptr CUInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CUInt
yAlign
(TableAlignment, TableAlignment)
-> IO (TableAlignment, TableAlignment)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (TableAlignment
xAlign'', TableAlignment
yAlign'')
#if defined(ENABLE_OVERLOADING)
data TableLayoutGetAlignmentMethodInfo
instance (signature ~ (b -> m ((Clutter.Enums.TableAlignment, Clutter.Enums.TableAlignment))), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutGetAlignmentMethodInfo a signature where
overloadedMethod = tableLayoutGetAlignment
instance O.OverloadedMethodInfo TableLayoutGetAlignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetAlignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetAlignment"
})
#endif
foreign import ccall "clutter_table_layout_get_column_count" clutter_table_layout_get_column_count ::
Ptr TableLayout ->
IO Int32
{-# DEPRECATED tableLayoutGetColumnCount ["(Since version 1.18)","No direct replacement is available"] #-}
tableLayoutGetColumnCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> m Int32
tableLayoutGetColumnCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> m Int32
tableLayoutGetColumnCount a
layout = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Int32
result <- Ptr TableLayout -> IO Int32
clutter_table_layout_get_column_count Ptr TableLayout
layout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TableLayoutGetColumnCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutGetColumnCountMethodInfo a signature where
overloadedMethod = tableLayoutGetColumnCount
instance O.OverloadedMethodInfo TableLayoutGetColumnCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetColumnCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetColumnCount"
})
#endif
foreign import ccall "clutter_table_layout_get_column_spacing" clutter_table_layout_get_column_spacing ::
Ptr TableLayout ->
IO Word32
{-# DEPRECATED tableLayoutGetColumnSpacing ["(Since version 1.18)","Use [GridLayout:columnSpacing](\"GI.Clutter.Objects.GridLayout#g:attr:columnSpacing\")"] #-}
tableLayoutGetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> m Word32
tableLayoutGetColumnSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> m Word32
tableLayoutGetColumnSpacing 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Word32
result <- Ptr TableLayout -> IO Word32
clutter_table_layout_get_column_spacing Ptr TableLayout
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 TableLayoutGetColumnSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutGetColumnSpacingMethodInfo a signature where
overloadedMethod = tableLayoutGetColumnSpacing
instance O.OverloadedMethodInfo TableLayoutGetColumnSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetColumnSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetColumnSpacing"
})
#endif
foreign import ccall "clutter_table_layout_get_easing_duration" clutter_table_layout_get_easing_duration ::
Ptr TableLayout ->
IO Word32
{-# DEPRECATED tableLayoutGetEasingDuration ["(Since version 1.12)","t'GI.Clutter.Objects.TableLayout.TableLayout' will honour the easing state"," of the children when allocating them. See 'GI.Clutter.Objects.Actor.actorSetEasingMode'"," and 'GI.Clutter.Objects.Actor.actorSetEasingDuration'."] #-}
tableLayoutGetEasingDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> m Word32
tableLayoutGetEasingDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> m Word32
tableLayoutGetEasingDuration 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Word32
result <- Ptr TableLayout -> IO Word32
clutter_table_layout_get_easing_duration Ptr TableLayout
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 TableLayoutGetEasingDurationMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutGetEasingDurationMethodInfo a signature where
overloadedMethod = tableLayoutGetEasingDuration
instance O.OverloadedMethodInfo TableLayoutGetEasingDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetEasingDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetEasingDuration"
})
#endif
foreign import ccall "clutter_table_layout_get_easing_mode" clutter_table_layout_get_easing_mode ::
Ptr TableLayout ->
IO CULong
{-# DEPRECATED tableLayoutGetEasingMode ["(Since version 1.12)","t'GI.Clutter.Objects.TableLayout.TableLayout' will honour the easing state"," of the children when allocating them. See 'GI.Clutter.Objects.Actor.actorSetEasingMode'"," and 'GI.Clutter.Objects.Actor.actorSetEasingDuration'."] #-}
tableLayoutGetEasingMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> m CULong
tableLayoutGetEasingMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> m CULong
tableLayoutGetEasingMode a
layout = IO CULong -> m CULong
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO CULong -> m CULong) -> IO CULong -> m CULong
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
CULong
result <- Ptr TableLayout -> IO CULong
clutter_table_layout_get_easing_mode Ptr TableLayout
layout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
CULong -> IO CULong
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return CULong
result
#if defined(ENABLE_OVERLOADING)
data TableLayoutGetEasingModeMethodInfo
instance (signature ~ (m CULong), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutGetEasingModeMethodInfo a signature where
overloadedMethod = tableLayoutGetEasingMode
instance O.OverloadedMethodInfo TableLayoutGetEasingModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetEasingMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetEasingMode"
})
#endif
foreign import ccall "clutter_table_layout_get_expand" clutter_table_layout_get_expand ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
Ptr CInt ->
Ptr CInt ->
IO ()
{-# DEPRECATED tableLayoutGetExpand ["(Since version 1.12)","Use 'GI.Clutter.Objects.Actor.actorGetXExpand' and"," 'GI.Clutter.Objects.Actor.actorGetYExpand' instead."] #-}
tableLayoutGetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> m ((Bool, Bool))
tableLayoutGetExpand :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> m (Bool, Bool)
tableLayoutGetExpand a
layout b
actor = IO (Bool, Bool) -> m (Bool, Bool)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Bool) -> m (Bool, Bool))
-> IO (Bool, Bool) -> m (Bool, Bool)
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
Ptr CInt
xExpand <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr CInt
yExpand <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr TableLayout -> Ptr Actor -> Ptr CInt -> Ptr CInt -> IO ()
clutter_table_layout_get_expand Ptr TableLayout
layout' Ptr Actor
actor' Ptr CInt
xExpand Ptr CInt
yExpand
CInt
xExpand' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
xExpand
let xExpand'' :: Bool
xExpand'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
xExpand'
CInt
yExpand' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
yExpand
let yExpand'' :: Bool
yExpand'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
yExpand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
xExpand
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
yExpand
(Bool, Bool) -> IO (Bool, Bool)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
xExpand'', Bool
yExpand'')
#if defined(ENABLE_OVERLOADING)
data TableLayoutGetExpandMethodInfo
instance (signature ~ (b -> m ((Bool, Bool))), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutGetExpandMethodInfo a signature where
overloadedMethod = tableLayoutGetExpand
instance O.OverloadedMethodInfo TableLayoutGetExpandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetExpand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetExpand"
})
#endif
foreign import ccall "clutter_table_layout_get_fill" clutter_table_layout_get_fill ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
Ptr CInt ->
Ptr CInt ->
IO ()
{-# DEPRECATED tableLayoutGetFill ["(Since version 1.12)","Use 'GI.Clutter.Objects.Actor.actorGetXAlign' and"," 'GI.Clutter.Objects.Actor.actorGetYAlign' instead."] #-}
tableLayoutGetFill ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> m ((Bool, Bool))
tableLayoutGetFill :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> m (Bool, Bool)
tableLayoutGetFill a
layout b
actor = IO (Bool, Bool) -> m (Bool, Bool)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Bool) -> m (Bool, Bool))
-> IO (Bool, Bool) -> m (Bool, Bool)
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
Ptr CInt
xFill <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr CInt
yFill <- IO (Ptr CInt)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr CInt)
Ptr TableLayout -> Ptr Actor -> Ptr CInt -> Ptr CInt -> IO ()
clutter_table_layout_get_fill Ptr TableLayout
layout' Ptr Actor
actor' Ptr CInt
xFill Ptr CInt
yFill
CInt
xFill' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
xFill
let xFill'' :: Bool
xFill'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
xFill'
CInt
yFill' <- Ptr CInt -> IO CInt
forall a. Storable a => Ptr a -> IO a
peek Ptr CInt
yFill
let yFill'' :: Bool
yFill'' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
yFill'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
xFill
Ptr CInt -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CInt
yFill
(Bool, Bool) -> IO (Bool, Bool)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
xFill'', Bool
yFill'')
#if defined(ENABLE_OVERLOADING)
data TableLayoutGetFillMethodInfo
instance (signature ~ (b -> m ((Bool, Bool))), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutGetFillMethodInfo a signature where
overloadedMethod = tableLayoutGetFill
instance O.OverloadedMethodInfo TableLayoutGetFillMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetFill",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetFill"
})
#endif
foreign import ccall "clutter_table_layout_get_row_count" clutter_table_layout_get_row_count ::
Ptr TableLayout ->
IO Int32
{-# DEPRECATED tableLayoutGetRowCount ["(Since version 1.18)","No direct replacement is available"] #-}
tableLayoutGetRowCount ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> m Int32
tableLayoutGetRowCount :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> m Int32
tableLayoutGetRowCount a
layout = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Int32
result <- Ptr TableLayout -> IO Int32
clutter_table_layout_get_row_count Ptr TableLayout
layout'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TableLayoutGetRowCountMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutGetRowCountMethodInfo a signature where
overloadedMethod = tableLayoutGetRowCount
instance O.OverloadedMethodInfo TableLayoutGetRowCountMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetRowCount",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetRowCount"
})
#endif
foreign import ccall "clutter_table_layout_get_row_spacing" clutter_table_layout_get_row_spacing ::
Ptr TableLayout ->
IO Word32
{-# DEPRECATED tableLayoutGetRowSpacing ["(Since version 1.18)","Use [GridLayout:rowSpacing](\"GI.Clutter.Objects.GridLayout#g:attr:rowSpacing\") instead"] #-}
tableLayoutGetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> m Word32
tableLayoutGetRowSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> m Word32
tableLayoutGetRowSpacing 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Word32
result <- Ptr TableLayout -> IO Word32
clutter_table_layout_get_row_spacing Ptr TableLayout
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 TableLayoutGetRowSpacingMethodInfo
instance (signature ~ (m Word32), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutGetRowSpacingMethodInfo a signature where
overloadedMethod = tableLayoutGetRowSpacing
instance O.OverloadedMethodInfo TableLayoutGetRowSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetRowSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetRowSpacing"
})
#endif
foreign import ccall "clutter_table_layout_get_span" clutter_table_layout_get_span ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
{-# DEPRECATED tableLayoutGetSpan ["(Since version 1.18)","Use the @width@ and @height@ layout properties"," of t'GI.Clutter.Objects.GridLayout.GridLayout' instead"] #-}
tableLayoutGetSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> m ((Int32, Int32))
tableLayoutGetSpan :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> m (Int32, Int32)
tableLayoutGetSpan a
layout b
actor = IO (Int32, Int32) -> m (Int32, Int32)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32) -> m (Int32, Int32))
-> IO (Int32, Int32) -> m (Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
Ptr Int32
columnSpan <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
rowSpan <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TableLayout -> Ptr Actor -> Ptr Int32 -> Ptr Int32 -> IO ()
clutter_table_layout_get_span Ptr TableLayout
layout' Ptr Actor
actor' Ptr Int32
columnSpan Ptr Int32
rowSpan
Int32
columnSpan' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
columnSpan
Int32
rowSpan' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
rowSpan
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
columnSpan
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
rowSpan
(Int32, Int32) -> IO (Int32, Int32)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
columnSpan', Int32
rowSpan')
#if defined(ENABLE_OVERLOADING)
data TableLayoutGetSpanMethodInfo
instance (signature ~ (b -> m ((Int32, Int32))), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutGetSpanMethodInfo a signature where
overloadedMethod = tableLayoutGetSpan
instance O.OverloadedMethodInfo TableLayoutGetSpanMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetSpan",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetSpan"
})
#endif
foreign import ccall "clutter_table_layout_get_use_animations" clutter_table_layout_get_use_animations ::
Ptr TableLayout ->
IO CInt
{-# DEPRECATED tableLayoutGetUseAnimations ["(Since version 1.12)","t'GI.Clutter.Objects.TableLayout.TableLayout' will honour the easing state"," of the children when allocating them. See 'GI.Clutter.Objects.Actor.actorSetEasingMode'"," and 'GI.Clutter.Objects.Actor.actorSetEasingDuration'."] #-}
tableLayoutGetUseAnimations ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> m Bool
tableLayoutGetUseAnimations :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> m Bool
tableLayoutGetUseAnimations 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
CInt
result <- Ptr TableLayout -> IO CInt
clutter_table_layout_get_use_animations Ptr TableLayout
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 TableLayoutGetUseAnimationsMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutGetUseAnimationsMethodInfo a signature where
overloadedMethod = tableLayoutGetUseAnimations
instance O.OverloadedMethodInfo TableLayoutGetUseAnimationsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutGetUseAnimations",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutGetUseAnimations"
})
#endif
foreign import ccall "clutter_table_layout_pack" clutter_table_layout_pack ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED tableLayoutPack ["(Since version 1.18)","Use 'GI.Clutter.Objects.GridLayout.gridLayoutAttach' instead"] #-}
tableLayoutPack ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> Int32
-> Int32
-> m ()
tableLayoutPack :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> Int32 -> Int32 -> m ()
tableLayoutPack a
layout b
actor Int32
column Int32
row = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
Ptr TableLayout -> Ptr Actor -> Int32 -> Int32 -> IO ()
clutter_table_layout_pack Ptr TableLayout
layout' Ptr Actor
actor' Int32
column Int32
row
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TableLayoutPackMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutPackMethodInfo a signature where
overloadedMethod = tableLayoutPack
instance O.OverloadedMethodInfo TableLayoutPackMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutPack",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutPack"
})
#endif
foreign import ccall "clutter_table_layout_set_alignment" clutter_table_layout_set_alignment ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
CUInt ->
CUInt ->
IO ()
{-# DEPRECATED tableLayoutSetAlignment ["(Since version 1.12)","Use 'GI.Clutter.Objects.Actor.actorSetXAlign' and"," 'GI.Clutter.Objects.Actor.actorSetYAlign' instead."] #-}
tableLayoutSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> Clutter.Enums.TableAlignment
-> Clutter.Enums.TableAlignment
-> m ()
tableLayoutSetAlignment :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> TableAlignment -> TableAlignment -> m ()
tableLayoutSetAlignment a
layout b
actor TableAlignment
xAlign TableAlignment
yAlign = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
let xAlign' :: CUInt
xAlign' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TableAlignment -> Int) -> TableAlignment -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TableAlignment -> Int
forall a. Enum a => a -> Int
fromEnum) TableAlignment
xAlign
let yAlign' :: CUInt
yAlign' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TableAlignment -> Int) -> TableAlignment -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TableAlignment -> Int
forall a. Enum a => a -> Int
fromEnum) TableAlignment
yAlign
Ptr TableLayout -> Ptr Actor -> CUInt -> CUInt -> IO ()
clutter_table_layout_set_alignment Ptr TableLayout
layout' Ptr Actor
actor' CUInt
xAlign' CUInt
yAlign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TableLayoutSetAlignmentMethodInfo
instance (signature ~ (b -> Clutter.Enums.TableAlignment -> Clutter.Enums.TableAlignment -> m ()), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutSetAlignmentMethodInfo a signature where
overloadedMethod = tableLayoutSetAlignment
instance O.OverloadedMethodInfo TableLayoutSetAlignmentMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetAlignment",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetAlignment"
})
#endif
foreign import ccall "clutter_table_layout_set_column_spacing" clutter_table_layout_set_column_spacing ::
Ptr TableLayout ->
Word32 ->
IO ()
{-# DEPRECATED tableLayoutSetColumnSpacing ["(Since version 1.18)","Use [GridLayout:columnSpacing](\"GI.Clutter.Objects.GridLayout#g:attr:columnSpacing\") instead"] #-}
tableLayoutSetColumnSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> Word32
-> m ()
tableLayoutSetColumnSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> Word32 -> m ()
tableLayoutSetColumnSpacing 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr TableLayout -> Word32 -> IO ()
clutter_table_layout_set_column_spacing Ptr TableLayout
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 TableLayoutSetColumnSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutSetColumnSpacingMethodInfo a signature where
overloadedMethod = tableLayoutSetColumnSpacing
instance O.OverloadedMethodInfo TableLayoutSetColumnSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetColumnSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetColumnSpacing"
})
#endif
foreign import ccall "clutter_table_layout_set_easing_duration" clutter_table_layout_set_easing_duration ::
Ptr TableLayout ->
Word32 ->
IO ()
{-# DEPRECATED tableLayoutSetEasingDuration ["(Since version 1.12)","t'GI.Clutter.Objects.TableLayout.TableLayout' will honour the easing state"," of the children when allocating them. See 'GI.Clutter.Objects.Actor.actorSetEasingMode'"," and 'GI.Clutter.Objects.Actor.actorSetEasingDuration'."] #-}
tableLayoutSetEasingDuration ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> Word32
-> m ()
tableLayoutSetEasingDuration :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> Word32 -> m ()
tableLayoutSetEasingDuration a
layout Word32
msecs = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr TableLayout -> Word32 -> IO ()
clutter_table_layout_set_easing_duration Ptr TableLayout
layout' Word32
msecs
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 TableLayoutSetEasingDurationMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutSetEasingDurationMethodInfo a signature where
overloadedMethod = tableLayoutSetEasingDuration
instance O.OverloadedMethodInfo TableLayoutSetEasingDurationMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetEasingDuration",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetEasingDuration"
})
#endif
foreign import ccall "clutter_table_layout_set_easing_mode" clutter_table_layout_set_easing_mode ::
Ptr TableLayout ->
CULong ->
IO ()
{-# DEPRECATED tableLayoutSetEasingMode ["(Since version 1.12)","t'GI.Clutter.Objects.TableLayout.TableLayout' will honour the easing state"," of the children when allocating them. See 'GI.Clutter.Objects.Actor.actorSetEasingMode'"," and 'GI.Clutter.Objects.Actor.actorSetEasingDuration'."] #-}
tableLayoutSetEasingMode ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> CULong
-> m ()
tableLayoutSetEasingMode :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> CULong -> m ()
tableLayoutSetEasingMode a
layout CULong
mode = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr TableLayout -> CULong -> IO ()
clutter_table_layout_set_easing_mode Ptr TableLayout
layout' CULong
mode
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 TableLayoutSetEasingModeMethodInfo
instance (signature ~ (CULong -> m ()), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutSetEasingModeMethodInfo a signature where
overloadedMethod = tableLayoutSetEasingMode
instance O.OverloadedMethodInfo TableLayoutSetEasingModeMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetEasingMode",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetEasingMode"
})
#endif
foreign import ccall "clutter_table_layout_set_expand" clutter_table_layout_set_expand ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
CInt ->
CInt ->
IO ()
{-# DEPRECATED tableLayoutSetExpand ["(Since version 1.12)","Use 'GI.Clutter.Objects.Actor.actorSetXExpand' or"," 'GI.Clutter.Objects.Actor.actorSetYExpand' instead."] #-}
tableLayoutSetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> Bool
-> Bool
-> m ()
tableLayoutSetExpand :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> Bool -> Bool -> m ()
tableLayoutSetExpand a
layout b
actor Bool
xExpand Bool
yExpand = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
let xExpand' :: CInt
xExpand' = (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
xExpand
let yExpand' :: CInt
yExpand' = (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
yExpand
Ptr TableLayout -> Ptr Actor -> CInt -> CInt -> IO ()
clutter_table_layout_set_expand Ptr TableLayout
layout' Ptr Actor
actor' CInt
xExpand' CInt
yExpand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TableLayoutSetExpandMethodInfo
instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutSetExpandMethodInfo a signature where
overloadedMethod = tableLayoutSetExpand
instance O.OverloadedMethodInfo TableLayoutSetExpandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetExpand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetExpand"
})
#endif
foreign import ccall "clutter_table_layout_set_fill" clutter_table_layout_set_fill ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
CInt ->
CInt ->
IO ()
{-# DEPRECATED tableLayoutSetFill ["(Since version 1.12)","Use 'GI.Clutter.Objects.Actor.actorSetXAlign' and"," 'GI.Clutter.Objects.Actor.actorSetYAlign' instead."] #-}
tableLayoutSetFill ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> Bool
-> Bool
-> m ()
tableLayoutSetFill :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> Bool -> Bool -> m ()
tableLayoutSetFill a
layout b
actor Bool
xFill Bool
yFill = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
let xFill' :: CInt
xFill' = (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
xFill
let yFill' :: CInt
yFill' = (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
yFill
Ptr TableLayout -> Ptr Actor -> CInt -> CInt -> IO ()
clutter_table_layout_set_fill Ptr TableLayout
layout' Ptr Actor
actor' CInt
xFill' CInt
yFill'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TableLayoutSetFillMethodInfo
instance (signature ~ (b -> Bool -> Bool -> m ()), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutSetFillMethodInfo a signature where
overloadedMethod = tableLayoutSetFill
instance O.OverloadedMethodInfo TableLayoutSetFillMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetFill",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetFill"
})
#endif
foreign import ccall "clutter_table_layout_set_row_spacing" clutter_table_layout_set_row_spacing ::
Ptr TableLayout ->
Word32 ->
IO ()
{-# DEPRECATED tableLayoutSetRowSpacing ["(Since version 1.18)","Use [GridLayout:rowSpacing](\"GI.Clutter.Objects.GridLayout#g:attr:rowSpacing\") instead"] #-}
tableLayoutSetRowSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> Word32
-> m ()
tableLayoutSetRowSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> Word32 -> m ()
tableLayoutSetRowSpacing 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr TableLayout -> Word32 -> IO ()
clutter_table_layout_set_row_spacing Ptr TableLayout
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 TableLayoutSetRowSpacingMethodInfo
instance (signature ~ (Word32 -> m ()), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutSetRowSpacingMethodInfo a signature where
overloadedMethod = tableLayoutSetRowSpacing
instance O.OverloadedMethodInfo TableLayoutSetRowSpacingMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetRowSpacing",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetRowSpacing"
})
#endif
foreign import ccall "clutter_table_layout_set_span" clutter_table_layout_set_span ::
Ptr TableLayout ->
Ptr Clutter.Actor.Actor ->
Int32 ->
Int32 ->
IO ()
{-# DEPRECATED tableLayoutSetSpan ["(Since version 1.18)","Use the @width@ and @height@ layout properties"," of t'GI.Clutter.Objects.GridLayout.GridLayout' instead"] #-}
tableLayoutSetSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) =>
a
-> b
-> Int32
-> Int32
-> m ()
tableLayoutSetSpan :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTableLayout a, IsActor b) =>
a -> b -> Int32 -> Int32 -> m ()
tableLayoutSetSpan a
layout b
actor Int32
columnSpan Int32
rowSpan = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
Ptr Actor
actor' <- b -> IO (Ptr Actor)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
actor
Ptr TableLayout -> Ptr Actor -> Int32 -> Int32 -> IO ()
clutter_table_layout_set_span Ptr TableLayout
layout' Ptr Actor
actor' Int32
columnSpan Int32
rowSpan
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
layout
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
actor
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TableLayoutSetSpanMethodInfo
instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, IsTableLayout a, Clutter.Actor.IsActor b) => O.OverloadedMethod TableLayoutSetSpanMethodInfo a signature where
overloadedMethod = tableLayoutSetSpan
instance O.OverloadedMethodInfo TableLayoutSetSpanMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetSpan",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetSpan"
})
#endif
foreign import ccall "clutter_table_layout_set_use_animations" clutter_table_layout_set_use_animations ::
Ptr TableLayout ->
CInt ->
IO ()
{-# DEPRECATED tableLayoutSetUseAnimations ["(Since version 1.12)","t'GI.Clutter.Objects.TableLayout.TableLayout' will honour the easing state"," of the children when allocating them. See 'GI.Clutter.Objects.Actor.actorSetEasingMode'"," and 'GI.Clutter.Objects.Actor.actorSetEasingDuration'."] #-}
tableLayoutSetUseAnimations ::
(B.CallStack.HasCallStack, MonadIO m, IsTableLayout a) =>
a
-> Bool
-> m ()
tableLayoutSetUseAnimations :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTableLayout a) =>
a -> Bool -> m ()
tableLayoutSetUseAnimations a
layout Bool
animate = 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 TableLayout
layout' <- a -> IO (Ptr TableLayout)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
layout
let animate' :: CInt
animate' = (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
animate
Ptr TableLayout -> CInt -> IO ()
clutter_table_layout_set_use_animations Ptr TableLayout
layout' CInt
animate'
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 TableLayoutSetUseAnimationsMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTableLayout a) => O.OverloadedMethod TableLayoutSetUseAnimationsMethodInfo a signature where
overloadedMethod = tableLayoutSetUseAnimations
instance O.OverloadedMethodInfo TableLayoutSetUseAnimationsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Clutter.Objects.TableLayout.tableLayoutSetUseAnimations",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-clutter-1.0.3/docs/GI-Clutter-Objects-TableLayout.html#v:tableLayoutSetUseAnimations"
})
#endif