{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.GridLayoutChild
(
GridLayoutChild(..) ,
IsGridLayoutChild ,
toGridLayoutChild ,
noGridLayoutChild ,
#if defined(ENABLE_OVERLOADING)
ResolveGridLayoutChildMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
GridLayoutChildGetColumnSpanMethodInfo ,
#endif
gridLayoutChildGetColumnSpan ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildGetLeftAttachMethodInfo ,
#endif
gridLayoutChildGetLeftAttach ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildGetRowSpanMethodInfo ,
#endif
gridLayoutChildGetRowSpan ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildGetTopAttachMethodInfo ,
#endif
gridLayoutChildGetTopAttach ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildSetColumnSpanMethodInfo ,
#endif
gridLayoutChildSetColumnSpan ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildSetLeftAttachMethodInfo ,
#endif
gridLayoutChildSetLeftAttach ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildSetRowSpanMethodInfo ,
#endif
gridLayoutChildSetRowSpan ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildSetTopAttachMethodInfo ,
#endif
gridLayoutChildSetTopAttach ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildColumnSpanPropertyInfo ,
#endif
constructGridLayoutChildColumnSpan ,
getGridLayoutChildColumnSpan ,
#if defined(ENABLE_OVERLOADING)
gridLayoutChildColumnSpan ,
#endif
setGridLayoutChildColumnSpan ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildLeftAttachPropertyInfo ,
#endif
constructGridLayoutChildLeftAttach ,
getGridLayoutChildLeftAttach ,
#if defined(ENABLE_OVERLOADING)
gridLayoutChildLeftAttach ,
#endif
setGridLayoutChildLeftAttach ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildRowSpanPropertyInfo ,
#endif
constructGridLayoutChildRowSpan ,
getGridLayoutChildRowSpan ,
#if defined(ENABLE_OVERLOADING)
gridLayoutChildRowSpan ,
#endif
setGridLayoutChildRowSpan ,
#if defined(ENABLE_OVERLOADING)
GridLayoutChildTopAttachPropertyInfo ,
#endif
constructGridLayoutChildTopAttach ,
getGridLayoutChildTopAttach ,
#if defined(ENABLE_OVERLOADING)
gridLayoutChildTopAttach ,
#endif
setGridLayoutChildTopAttach ,
) 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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified 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 GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Gtk.Objects.LayoutChild as Gtk.LayoutChild
newtype GridLayoutChild = GridLayoutChild (ManagedPtr GridLayoutChild)
deriving (GridLayoutChild -> GridLayoutChild -> Bool
(GridLayoutChild -> GridLayoutChild -> Bool)
-> (GridLayoutChild -> GridLayoutChild -> Bool)
-> Eq GridLayoutChild
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GridLayoutChild -> GridLayoutChild -> Bool
$c/= :: GridLayoutChild -> GridLayoutChild -> Bool
== :: GridLayoutChild -> GridLayoutChild -> Bool
$c== :: GridLayoutChild -> GridLayoutChild -> Bool
Eq)
foreign import ccall "gtk_grid_layout_child_get_type"
c_gtk_grid_layout_child_get_type :: IO GType
instance GObject GridLayoutChild where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_grid_layout_child_get_type
instance B.GValue.IsGValue GridLayoutChild where
toGValue :: GridLayoutChild -> IO GValue
toGValue o :: GridLayoutChild
o = do
GType
gtype <- IO GType
c_gtk_grid_layout_child_get_type
GridLayoutChild -> (Ptr GridLayoutChild -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr GridLayoutChild
o (GType
-> (GValue -> Ptr GridLayoutChild -> IO ())
-> Ptr GridLayoutChild
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr GridLayoutChild -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO GridLayoutChild
fromGValue gv :: GValue
gv = do
Ptr GridLayoutChild
ptr <- GValue -> IO (Ptr GridLayoutChild)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr GridLayoutChild)
(ManagedPtr GridLayoutChild -> GridLayoutChild)
-> Ptr GridLayoutChild -> IO GridLayoutChild
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr GridLayoutChild -> GridLayoutChild
GridLayoutChild Ptr GridLayoutChild
ptr
class (GObject o, O.IsDescendantOf GridLayoutChild o) => IsGridLayoutChild o
instance (GObject o, O.IsDescendantOf GridLayoutChild o) => IsGridLayoutChild o
instance O.HasParentTypes GridLayoutChild
type instance O.ParentTypes GridLayoutChild = '[Gtk.LayoutChild.LayoutChild, GObject.Object.Object]
toGridLayoutChild :: (MonadIO m, IsGridLayoutChild o) => o -> m GridLayoutChild
toGridLayoutChild :: o -> m GridLayoutChild
toGridLayoutChild = IO GridLayoutChild -> m GridLayoutChild
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO GridLayoutChild -> m GridLayoutChild)
-> (o -> IO GridLayoutChild) -> o -> m GridLayoutChild
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr GridLayoutChild -> GridLayoutChild)
-> o -> IO GridLayoutChild
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr GridLayoutChild -> GridLayoutChild
GridLayoutChild
noGridLayoutChild :: Maybe GridLayoutChild
noGridLayoutChild :: Maybe GridLayoutChild
noGridLayoutChild = Maybe GridLayoutChild
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveGridLayoutChildMethod (t :: Symbol) (o :: *) :: * where
ResolveGridLayoutChildMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveGridLayoutChildMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveGridLayoutChildMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveGridLayoutChildMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveGridLayoutChildMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveGridLayoutChildMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveGridLayoutChildMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveGridLayoutChildMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveGridLayoutChildMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveGridLayoutChildMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveGridLayoutChildMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveGridLayoutChildMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveGridLayoutChildMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveGridLayoutChildMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveGridLayoutChildMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveGridLayoutChildMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveGridLayoutChildMethod "getChildWidget" o = Gtk.LayoutChild.LayoutChildGetChildWidgetMethodInfo
ResolveGridLayoutChildMethod "getColumnSpan" o = GridLayoutChildGetColumnSpanMethodInfo
ResolveGridLayoutChildMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveGridLayoutChildMethod "getLayoutManager" o = Gtk.LayoutChild.LayoutChildGetLayoutManagerMethodInfo
ResolveGridLayoutChildMethod "getLeftAttach" o = GridLayoutChildGetLeftAttachMethodInfo
ResolveGridLayoutChildMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveGridLayoutChildMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveGridLayoutChildMethod "getRowSpan" o = GridLayoutChildGetRowSpanMethodInfo
ResolveGridLayoutChildMethod "getTopAttach" o = GridLayoutChildGetTopAttachMethodInfo
ResolveGridLayoutChildMethod "setColumnSpan" o = GridLayoutChildSetColumnSpanMethodInfo
ResolveGridLayoutChildMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveGridLayoutChildMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveGridLayoutChildMethod "setLeftAttach" o = GridLayoutChildSetLeftAttachMethodInfo
ResolveGridLayoutChildMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveGridLayoutChildMethod "setRowSpan" o = GridLayoutChildSetRowSpanMethodInfo
ResolveGridLayoutChildMethod "setTopAttach" o = GridLayoutChildSetTopAttachMethodInfo
ResolveGridLayoutChildMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveGridLayoutChildMethod t GridLayoutChild, O.MethodInfo info GridLayoutChild p) => OL.IsLabel t (GridLayoutChild -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#endif
getGridLayoutChildColumnSpan :: (MonadIO m, IsGridLayoutChild o) => o -> m Int32
getGridLayoutChildColumnSpan :: o -> m Int32
getGridLayoutChildColumnSpan obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "column-span"
setGridLayoutChildColumnSpan :: (MonadIO m, IsGridLayoutChild o) => o -> Int32 -> m ()
setGridLayoutChildColumnSpan :: o -> Int32 -> m ()
setGridLayoutChildColumnSpan obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "column-span" Int32
val
constructGridLayoutChildColumnSpan :: (IsGridLayoutChild o) => Int32 -> IO (GValueConstruct o)
constructGridLayoutChildColumnSpan :: Int32 -> IO (GValueConstruct o)
constructGridLayoutChildColumnSpan val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "column-span" Int32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildColumnSpanPropertyInfo
instance AttrInfo GridLayoutChildColumnSpanPropertyInfo where
type AttrAllowedOps GridLayoutChildColumnSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutChildColumnSpanPropertyInfo = IsGridLayoutChild
type AttrSetTypeConstraint GridLayoutChildColumnSpanPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridLayoutChildColumnSpanPropertyInfo = (~) Int32
type AttrTransferType GridLayoutChildColumnSpanPropertyInfo = Int32
type AttrGetType GridLayoutChildColumnSpanPropertyInfo = Int32
type AttrLabel GridLayoutChildColumnSpanPropertyInfo = "column-span"
type AttrOrigin GridLayoutChildColumnSpanPropertyInfo = GridLayoutChild
attrGet = getGridLayoutChildColumnSpan
attrSet = setGridLayoutChildColumnSpan
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutChildColumnSpan
attrClear = undefined
#endif
getGridLayoutChildLeftAttach :: (MonadIO m, IsGridLayoutChild o) => o -> m Int32
getGridLayoutChildLeftAttach :: o -> m Int32
getGridLayoutChildLeftAttach obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "left-attach"
setGridLayoutChildLeftAttach :: (MonadIO m, IsGridLayoutChild o) => o -> Int32 -> m ()
setGridLayoutChildLeftAttach :: o -> Int32 -> m ()
setGridLayoutChildLeftAttach obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "left-attach" Int32
val
constructGridLayoutChildLeftAttach :: (IsGridLayoutChild o) => Int32 -> IO (GValueConstruct o)
constructGridLayoutChildLeftAttach :: Int32 -> IO (GValueConstruct o)
constructGridLayoutChildLeftAttach val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "left-attach" Int32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildLeftAttachPropertyInfo
instance AttrInfo GridLayoutChildLeftAttachPropertyInfo where
type AttrAllowedOps GridLayoutChildLeftAttachPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutChildLeftAttachPropertyInfo = IsGridLayoutChild
type AttrSetTypeConstraint GridLayoutChildLeftAttachPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridLayoutChildLeftAttachPropertyInfo = (~) Int32
type AttrTransferType GridLayoutChildLeftAttachPropertyInfo = Int32
type AttrGetType GridLayoutChildLeftAttachPropertyInfo = Int32
type AttrLabel GridLayoutChildLeftAttachPropertyInfo = "left-attach"
type AttrOrigin GridLayoutChildLeftAttachPropertyInfo = GridLayoutChild
attrGet = getGridLayoutChildLeftAttach
attrSet = setGridLayoutChildLeftAttach
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutChildLeftAttach
attrClear = undefined
#endif
getGridLayoutChildRowSpan :: (MonadIO m, IsGridLayoutChild o) => o -> m Int32
getGridLayoutChildRowSpan :: o -> m Int32
getGridLayoutChildRowSpan obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "row-span"
setGridLayoutChildRowSpan :: (MonadIO m, IsGridLayoutChild o) => o -> Int32 -> m ()
setGridLayoutChildRowSpan :: o -> Int32 -> m ()
setGridLayoutChildRowSpan obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "row-span" Int32
val
constructGridLayoutChildRowSpan :: (IsGridLayoutChild o) => Int32 -> IO (GValueConstruct o)
constructGridLayoutChildRowSpan :: Int32 -> IO (GValueConstruct o)
constructGridLayoutChildRowSpan val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "row-span" Int32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildRowSpanPropertyInfo
instance AttrInfo GridLayoutChildRowSpanPropertyInfo where
type AttrAllowedOps GridLayoutChildRowSpanPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutChildRowSpanPropertyInfo = IsGridLayoutChild
type AttrSetTypeConstraint GridLayoutChildRowSpanPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridLayoutChildRowSpanPropertyInfo = (~) Int32
type AttrTransferType GridLayoutChildRowSpanPropertyInfo = Int32
type AttrGetType GridLayoutChildRowSpanPropertyInfo = Int32
type AttrLabel GridLayoutChildRowSpanPropertyInfo = "row-span"
type AttrOrigin GridLayoutChildRowSpanPropertyInfo = GridLayoutChild
attrGet = getGridLayoutChildRowSpan
attrSet = setGridLayoutChildRowSpan
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutChildRowSpan
attrClear = undefined
#endif
getGridLayoutChildTopAttach :: (MonadIO m, IsGridLayoutChild o) => o -> m Int32
getGridLayoutChildTopAttach :: o -> m Int32
getGridLayoutChildTopAttach obj :: o
obj = IO Int32 -> m Int32
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
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "top-attach"
setGridLayoutChildTopAttach :: (MonadIO m, IsGridLayoutChild o) => o -> Int32 -> m ()
setGridLayoutChildTopAttach :: o -> Int32 -> m ()
setGridLayoutChildTopAttach obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "top-attach" Int32
val
constructGridLayoutChildTopAttach :: (IsGridLayoutChild o) => Int32 -> IO (GValueConstruct o)
constructGridLayoutChildTopAttach :: Int32 -> IO (GValueConstruct o)
constructGridLayoutChildTopAttach val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "top-attach" Int32
val
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildTopAttachPropertyInfo
instance AttrInfo GridLayoutChildTopAttachPropertyInfo where
type AttrAllowedOps GridLayoutChildTopAttachPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint GridLayoutChildTopAttachPropertyInfo = IsGridLayoutChild
type AttrSetTypeConstraint GridLayoutChildTopAttachPropertyInfo = (~) Int32
type AttrTransferTypeConstraint GridLayoutChildTopAttachPropertyInfo = (~) Int32
type AttrTransferType GridLayoutChildTopAttachPropertyInfo = Int32
type AttrGetType GridLayoutChildTopAttachPropertyInfo = Int32
type AttrLabel GridLayoutChildTopAttachPropertyInfo = "top-attach"
type AttrOrigin GridLayoutChildTopAttachPropertyInfo = GridLayoutChild
attrGet = getGridLayoutChildTopAttach
attrSet = setGridLayoutChildTopAttach
attrTransfer _ v = do
return v
attrConstruct = constructGridLayoutChildTopAttach
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList GridLayoutChild
type instance O.AttributeList GridLayoutChild = GridLayoutChildAttributeList
type GridLayoutChildAttributeList = ('[ '("childWidget", Gtk.LayoutChild.LayoutChildChildWidgetPropertyInfo), '("columnSpan", GridLayoutChildColumnSpanPropertyInfo), '("layoutManager", Gtk.LayoutChild.LayoutChildLayoutManagerPropertyInfo), '("leftAttach", GridLayoutChildLeftAttachPropertyInfo), '("rowSpan", GridLayoutChildRowSpanPropertyInfo), '("topAttach", GridLayoutChildTopAttachPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
gridLayoutChildColumnSpan :: AttrLabelProxy "columnSpan"
gridLayoutChildColumnSpan = AttrLabelProxy
gridLayoutChildLeftAttach :: AttrLabelProxy "leftAttach"
gridLayoutChildLeftAttach = AttrLabelProxy
gridLayoutChildRowSpan :: AttrLabelProxy "rowSpan"
gridLayoutChildRowSpan = AttrLabelProxy
gridLayoutChildTopAttach :: AttrLabelProxy "topAttach"
gridLayoutChildTopAttach = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList GridLayoutChild = GridLayoutChildSignalList
type GridLayoutChildSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_grid_layout_child_get_column_span" gtk_grid_layout_child_get_column_span ::
Ptr GridLayoutChild ->
IO Int32
gridLayoutChildGetColumnSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> m Int32
gridLayoutChildGetColumnSpan :: a -> m Int32
gridLayoutChildGetColumnSpan child :: a
child = IO Int32 -> m Int32
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 GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Int32
result <- Ptr GridLayoutChild -> IO Int32
gtk_grid_layout_child_get_column_span Ptr GridLayoutChild
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildGetColumnSpanMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildGetColumnSpanMethodInfo a signature where
overloadedMethod = gridLayoutChildGetColumnSpan
#endif
foreign import ccall "gtk_grid_layout_child_get_left_attach" gtk_grid_layout_child_get_left_attach ::
Ptr GridLayoutChild ->
IO Int32
gridLayoutChildGetLeftAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> m Int32
gridLayoutChildGetLeftAttach :: a -> m Int32
gridLayoutChildGetLeftAttach child :: a
child = IO Int32 -> m Int32
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 GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Int32
result <- Ptr GridLayoutChild -> IO Int32
gtk_grid_layout_child_get_left_attach Ptr GridLayoutChild
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildGetLeftAttachMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildGetLeftAttachMethodInfo a signature where
overloadedMethod = gridLayoutChildGetLeftAttach
#endif
foreign import ccall "gtk_grid_layout_child_get_row_span" gtk_grid_layout_child_get_row_span ::
Ptr GridLayoutChild ->
IO Int32
gridLayoutChildGetRowSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> m Int32
gridLayoutChildGetRowSpan :: a -> m Int32
gridLayoutChildGetRowSpan child :: a
child = IO Int32 -> m Int32
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 GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Int32
result <- Ptr GridLayoutChild -> IO Int32
gtk_grid_layout_child_get_row_span Ptr GridLayoutChild
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildGetRowSpanMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildGetRowSpanMethodInfo a signature where
overloadedMethod = gridLayoutChildGetRowSpan
#endif
foreign import ccall "gtk_grid_layout_child_get_top_attach" gtk_grid_layout_child_get_top_attach ::
Ptr GridLayoutChild ->
IO Int32
gridLayoutChildGetTopAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> m Int32
gridLayoutChildGetTopAttach :: a -> m Int32
gridLayoutChildGetTopAttach child :: a
child = IO Int32 -> m Int32
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 GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Int32
result <- Ptr GridLayoutChild -> IO Int32
gtk_grid_layout_child_get_top_attach Ptr GridLayoutChild
child'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildGetTopAttachMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildGetTopAttachMethodInfo a signature where
overloadedMethod = gridLayoutChildGetTopAttach
#endif
foreign import ccall "gtk_grid_layout_child_set_column_span" gtk_grid_layout_child_set_column_span ::
Ptr GridLayoutChild ->
Int32 ->
IO ()
gridLayoutChildSetColumnSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> Int32
-> m ()
gridLayoutChildSetColumnSpan :: a -> Int32 -> m ()
gridLayoutChildSetColumnSpan child :: a
child span :: Int32
span = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Ptr GridLayoutChild -> Int32 -> IO ()
gtk_grid_layout_child_set_column_span Ptr GridLayoutChild
child' Int32
span
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildSetColumnSpanMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildSetColumnSpanMethodInfo a signature where
overloadedMethod = gridLayoutChildSetColumnSpan
#endif
foreign import ccall "gtk_grid_layout_child_set_left_attach" gtk_grid_layout_child_set_left_attach ::
Ptr GridLayoutChild ->
Int32 ->
IO ()
gridLayoutChildSetLeftAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> Int32
-> m ()
gridLayoutChildSetLeftAttach :: a -> Int32 -> m ()
gridLayoutChildSetLeftAttach child :: a
child attach :: Int32
attach = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Ptr GridLayoutChild -> Int32 -> IO ()
gtk_grid_layout_child_set_left_attach Ptr GridLayoutChild
child' Int32
attach
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildSetLeftAttachMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildSetLeftAttachMethodInfo a signature where
overloadedMethod = gridLayoutChildSetLeftAttach
#endif
foreign import ccall "gtk_grid_layout_child_set_row_span" gtk_grid_layout_child_set_row_span ::
Ptr GridLayoutChild ->
Int32 ->
IO ()
gridLayoutChildSetRowSpan ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> Int32
-> m ()
gridLayoutChildSetRowSpan :: a -> Int32 -> m ()
gridLayoutChildSetRowSpan child :: a
child span :: Int32
span = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Ptr GridLayoutChild -> Int32 -> IO ()
gtk_grid_layout_child_set_row_span Ptr GridLayoutChild
child' Int32
span
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildSetRowSpanMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildSetRowSpanMethodInfo a signature where
overloadedMethod = gridLayoutChildSetRowSpan
#endif
foreign import ccall "gtk_grid_layout_child_set_top_attach" gtk_grid_layout_child_set_top_attach ::
Ptr GridLayoutChild ->
Int32 ->
IO ()
gridLayoutChildSetTopAttach ::
(B.CallStack.HasCallStack, MonadIO m, IsGridLayoutChild a) =>
a
-> Int32
-> m ()
gridLayoutChildSetTopAttach :: a -> Int32 -> m ()
gridLayoutChildSetTopAttach child :: a
child attach :: Int32
attach = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr GridLayoutChild
child' <- a -> IO (Ptr GridLayoutChild)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
child
Ptr GridLayoutChild -> Int32 -> IO ()
gtk_grid_layout_child_set_top_attach Ptr GridLayoutChild
child' Int32
attach
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
child
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data GridLayoutChildSetTopAttachMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsGridLayoutChild a) => O.MethodInfo GridLayoutChildSetTopAttachMethodInfo a signature where
overloadedMethod = gridLayoutChildSetTopAttach
#endif