{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.ColumnViewColumn
(
ColumnViewColumn(..) ,
IsColumnViewColumn ,
toColumnViewColumn ,
#if defined(ENABLE_OVERLOADING)
ResolveColumnViewColumnMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetColumnViewMethodInfo ,
#endif
columnViewColumnGetColumnView ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetExpandMethodInfo ,
#endif
columnViewColumnGetExpand ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetFactoryMethodInfo ,
#endif
columnViewColumnGetFactory ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetFixedWidthMethodInfo ,
#endif
columnViewColumnGetFixedWidth ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetHeaderMenuMethodInfo ,
#endif
columnViewColumnGetHeaderMenu ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetIdMethodInfo ,
#endif
columnViewColumnGetId ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetResizableMethodInfo ,
#endif
columnViewColumnGetResizable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetSorterMethodInfo ,
#endif
columnViewColumnGetSorter ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetTitleMethodInfo ,
#endif
columnViewColumnGetTitle ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnGetVisibleMethodInfo ,
#endif
columnViewColumnGetVisible ,
columnViewColumnNew ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetExpandMethodInfo ,
#endif
columnViewColumnSetExpand ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetFactoryMethodInfo ,
#endif
columnViewColumnSetFactory ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetFixedWidthMethodInfo ,
#endif
columnViewColumnSetFixedWidth ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetHeaderMenuMethodInfo ,
#endif
columnViewColumnSetHeaderMenu ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetIdMethodInfo ,
#endif
columnViewColumnSetId ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetResizableMethodInfo ,
#endif
columnViewColumnSetResizable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetSorterMethodInfo ,
#endif
columnViewColumnSetSorter ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetTitleMethodInfo ,
#endif
columnViewColumnSetTitle ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSetVisibleMethodInfo ,
#endif
columnViewColumnSetVisible ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnColumnViewPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumnColumnView ,
#endif
getColumnViewColumnColumnView ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnExpandPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumnExpand ,
#endif
constructColumnViewColumnExpand ,
getColumnViewColumnExpand ,
setColumnViewColumnExpand ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnFactoryPropertyInfo ,
#endif
clearColumnViewColumnFactory ,
#if defined(ENABLE_OVERLOADING)
columnViewColumnFactory ,
#endif
constructColumnViewColumnFactory ,
getColumnViewColumnFactory ,
setColumnViewColumnFactory ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnFixedWidthPropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumnFixedWidth ,
#endif
constructColumnViewColumnFixedWidth ,
getColumnViewColumnFixedWidth ,
setColumnViewColumnFixedWidth ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnHeaderMenuPropertyInfo ,
#endif
clearColumnViewColumnHeaderMenu ,
#if defined(ENABLE_OVERLOADING)
columnViewColumnHeaderMenu ,
#endif
constructColumnViewColumnHeaderMenu ,
getColumnViewColumnHeaderMenu ,
setColumnViewColumnHeaderMenu ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnIdPropertyInfo ,
#endif
clearColumnViewColumnId ,
#if defined(ENABLE_OVERLOADING)
columnViewColumnId ,
#endif
constructColumnViewColumnId ,
getColumnViewColumnId ,
setColumnViewColumnId ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnResizablePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumnResizable ,
#endif
constructColumnViewColumnResizable ,
getColumnViewColumnResizable ,
setColumnViewColumnResizable ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnSorterPropertyInfo ,
#endif
clearColumnViewColumnSorter ,
#if defined(ENABLE_OVERLOADING)
columnViewColumnSorter ,
#endif
constructColumnViewColumnSorter ,
getColumnViewColumnSorter ,
setColumnViewColumnSorter ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnTitlePropertyInfo ,
#endif
clearColumnViewColumnTitle ,
#if defined(ENABLE_OVERLOADING)
columnViewColumnTitle ,
#endif
constructColumnViewColumnTitle ,
getColumnViewColumnTitle ,
setColumnViewColumnTitle ,
#if defined(ENABLE_OVERLOADING)
ColumnViewColumnVisiblePropertyInfo ,
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumnVisible ,
#endif
constructColumnViewColumnVisible ,
getColumnViewColumnVisible ,
setColumnViewColumnVisible ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Objects.MenuModel as Gio.MenuModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.ColumnView as Gtk.ColumnView
import {-# SOURCE #-} qualified GI.Gtk.Objects.ListItemFactory as Gtk.ListItemFactory
import {-# SOURCE #-} qualified GI.Gtk.Objects.Sorter as Gtk.Sorter
newtype ColumnViewColumn = ColumnViewColumn (SP.ManagedPtr ColumnViewColumn)
deriving (ColumnViewColumn -> ColumnViewColumn -> Bool
(ColumnViewColumn -> ColumnViewColumn -> Bool)
-> (ColumnViewColumn -> ColumnViewColumn -> Bool)
-> Eq ColumnViewColumn
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: ColumnViewColumn -> ColumnViewColumn -> Bool
== :: ColumnViewColumn -> ColumnViewColumn -> Bool
$c/= :: ColumnViewColumn -> ColumnViewColumn -> Bool
/= :: ColumnViewColumn -> ColumnViewColumn -> Bool
Eq)
instance SP.ManagedPtrNewtype ColumnViewColumn where
toManagedPtr :: ColumnViewColumn -> ManagedPtr ColumnViewColumn
toManagedPtr (ColumnViewColumn ManagedPtr ColumnViewColumn
p) = ManagedPtr ColumnViewColumn
p
foreign import ccall "gtk_column_view_column_get_type"
c_gtk_column_view_column_get_type :: IO B.Types.GType
instance B.Types.TypedObject ColumnViewColumn where
glibType :: IO GType
glibType = IO GType
c_gtk_column_view_column_get_type
instance B.Types.GObject ColumnViewColumn
class (SP.GObject o, O.IsDescendantOf ColumnViewColumn o) => IsColumnViewColumn o
instance (SP.GObject o, O.IsDescendantOf ColumnViewColumn o) => IsColumnViewColumn o
instance O.HasParentTypes ColumnViewColumn
type instance O.ParentTypes ColumnViewColumn = '[GObject.Object.Object]
toColumnViewColumn :: (MIO.MonadIO m, IsColumnViewColumn o) => o -> m ColumnViewColumn
toColumnViewColumn :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m ColumnViewColumn
toColumnViewColumn = IO ColumnViewColumn -> m ColumnViewColumn
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO ColumnViewColumn -> m ColumnViewColumn)
-> (o -> IO ColumnViewColumn) -> o -> m ColumnViewColumn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr ColumnViewColumn -> ColumnViewColumn)
-> o -> IO ColumnViewColumn
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr ColumnViewColumn -> ColumnViewColumn
ColumnViewColumn
instance B.GValue.IsGValue (Maybe ColumnViewColumn) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_column_view_column_get_type
gvalueSet_ :: Ptr GValue -> Maybe ColumnViewColumn -> IO ()
gvalueSet_ Ptr GValue
gv Maybe ColumnViewColumn
P.Nothing = Ptr GValue -> Ptr ColumnViewColumn -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr ColumnViewColumn
forall a. Ptr a
FP.nullPtr :: FP.Ptr ColumnViewColumn)
gvalueSet_ Ptr GValue
gv (P.Just ColumnViewColumn
obj) = ColumnViewColumn -> (Ptr ColumnViewColumn -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr ColumnViewColumn
obj (Ptr GValue -> Ptr ColumnViewColumn -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe ColumnViewColumn)
gvalueGet_ Ptr GValue
gv = do
Ptr ColumnViewColumn
ptr <- Ptr GValue -> IO (Ptr ColumnViewColumn)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr ColumnViewColumn)
if Ptr ColumnViewColumn
ptr Ptr ColumnViewColumn -> Ptr ColumnViewColumn -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr ColumnViewColumn
forall a. Ptr a
FP.nullPtr
then ColumnViewColumn -> Maybe ColumnViewColumn
forall a. a -> Maybe a
P.Just (ColumnViewColumn -> Maybe ColumnViewColumn)
-> IO ColumnViewColumn -> IO (Maybe ColumnViewColumn)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr ColumnViewColumn -> ColumnViewColumn)
-> Ptr ColumnViewColumn -> IO ColumnViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr ColumnViewColumn -> ColumnViewColumn
ColumnViewColumn Ptr ColumnViewColumn
ptr
else Maybe ColumnViewColumn -> IO (Maybe ColumnViewColumn)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ColumnViewColumn
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveColumnViewColumnMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveColumnViewColumnMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveColumnViewColumnMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveColumnViewColumnMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveColumnViewColumnMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveColumnViewColumnMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveColumnViewColumnMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveColumnViewColumnMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveColumnViewColumnMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveColumnViewColumnMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveColumnViewColumnMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveColumnViewColumnMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveColumnViewColumnMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveColumnViewColumnMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveColumnViewColumnMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveColumnViewColumnMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveColumnViewColumnMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveColumnViewColumnMethod "getColumnView" o = ColumnViewColumnGetColumnViewMethodInfo
ResolveColumnViewColumnMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveColumnViewColumnMethod "getExpand" o = ColumnViewColumnGetExpandMethodInfo
ResolveColumnViewColumnMethod "getFactory" o = ColumnViewColumnGetFactoryMethodInfo
ResolveColumnViewColumnMethod "getFixedWidth" o = ColumnViewColumnGetFixedWidthMethodInfo
ResolveColumnViewColumnMethod "getHeaderMenu" o = ColumnViewColumnGetHeaderMenuMethodInfo
ResolveColumnViewColumnMethod "getId" o = ColumnViewColumnGetIdMethodInfo
ResolveColumnViewColumnMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveColumnViewColumnMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveColumnViewColumnMethod "getResizable" o = ColumnViewColumnGetResizableMethodInfo
ResolveColumnViewColumnMethod "getSorter" o = ColumnViewColumnGetSorterMethodInfo
ResolveColumnViewColumnMethod "getTitle" o = ColumnViewColumnGetTitleMethodInfo
ResolveColumnViewColumnMethod "getVisible" o = ColumnViewColumnGetVisibleMethodInfo
ResolveColumnViewColumnMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveColumnViewColumnMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveColumnViewColumnMethod "setExpand" o = ColumnViewColumnSetExpandMethodInfo
ResolveColumnViewColumnMethod "setFactory" o = ColumnViewColumnSetFactoryMethodInfo
ResolveColumnViewColumnMethod "setFixedWidth" o = ColumnViewColumnSetFixedWidthMethodInfo
ResolveColumnViewColumnMethod "setHeaderMenu" o = ColumnViewColumnSetHeaderMenuMethodInfo
ResolveColumnViewColumnMethod "setId" o = ColumnViewColumnSetIdMethodInfo
ResolveColumnViewColumnMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveColumnViewColumnMethod "setResizable" o = ColumnViewColumnSetResizableMethodInfo
ResolveColumnViewColumnMethod "setSorter" o = ColumnViewColumnSetSorterMethodInfo
ResolveColumnViewColumnMethod "setTitle" o = ColumnViewColumnSetTitleMethodInfo
ResolveColumnViewColumnMethod "setVisible" o = ColumnViewColumnSetVisibleMethodInfo
ResolveColumnViewColumnMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveColumnViewColumnMethod t ColumnViewColumn, O.OverloadedMethod info ColumnViewColumn p) => OL.IsLabel t (ColumnViewColumn -> 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 ~ ResolveColumnViewColumnMethod t ColumnViewColumn, O.OverloadedMethod info ColumnViewColumn p, R.HasField t ColumnViewColumn p) => R.HasField t ColumnViewColumn p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveColumnViewColumnMethod t ColumnViewColumn, O.OverloadedMethodInfo info ColumnViewColumn) => OL.IsLabel t (O.MethodProxy info ColumnViewColumn) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
getColumnViewColumnColumnView :: (MonadIO m, IsColumnViewColumn o) => o -> m (Maybe Gtk.ColumnView.ColumnView)
getColumnViewColumnColumnView :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m (Maybe ColumnView)
getColumnViewColumnColumnView o
obj = IO (Maybe ColumnView) -> m (Maybe ColumnView)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe ColumnView) -> m (Maybe ColumnView))
-> IO (Maybe ColumnView) -> m (Maybe ColumnView)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ColumnView -> ColumnView)
-> IO (Maybe ColumnView)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"column-view" ManagedPtr ColumnView -> ColumnView
Gtk.ColumnView.ColumnView
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnColumnViewPropertyInfo
instance AttrInfo ColumnViewColumnColumnViewPropertyInfo where
type AttrAllowedOps ColumnViewColumnColumnViewPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewColumnColumnViewPropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnColumnViewPropertyInfo = (~) ()
type AttrTransferTypeConstraint ColumnViewColumnColumnViewPropertyInfo = (~) ()
type AttrTransferType ColumnViewColumnColumnViewPropertyInfo = ()
type AttrGetType ColumnViewColumnColumnViewPropertyInfo = (Maybe Gtk.ColumnView.ColumnView)
type AttrLabel ColumnViewColumnColumnViewPropertyInfo = "column-view"
type AttrOrigin ColumnViewColumnColumnViewPropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnColumnView
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnView"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:columnView"
})
#endif
getColumnViewColumnExpand :: (MonadIO m, IsColumnViewColumn o) => o -> m Bool
getColumnViewColumnExpand :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m Bool
getColumnViewColumnExpand 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
"expand"
setColumnViewColumnExpand :: (MonadIO m, IsColumnViewColumn o) => o -> Bool -> m ()
setColumnViewColumnExpand :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> Bool -> m ()
setColumnViewColumnExpand 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
"expand" Bool
val
constructColumnViewColumnExpand :: (IsColumnViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewColumnExpand :: forall o (m :: * -> *).
(IsColumnViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewColumnExpand 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
"expand" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnExpandPropertyInfo
instance AttrInfo ColumnViewColumnExpandPropertyInfo where
type AttrAllowedOps ColumnViewColumnExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewColumnExpandPropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnExpandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewColumnExpandPropertyInfo = (~) Bool
type AttrTransferType ColumnViewColumnExpandPropertyInfo = Bool
type AttrGetType ColumnViewColumnExpandPropertyInfo = Bool
type AttrLabel ColumnViewColumnExpandPropertyInfo = "expand"
type AttrOrigin ColumnViewColumnExpandPropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnExpand
attrSet = setColumnViewColumnExpand
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewColumnExpand
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.expand"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:expand"
})
#endif
getColumnViewColumnFactory :: (MonadIO m, IsColumnViewColumn o) => o -> m (Maybe Gtk.ListItemFactory.ListItemFactory)
getColumnViewColumnFactory :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m (Maybe ListItemFactory)
getColumnViewColumnFactory o
obj = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr ListItemFactory -> ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"factory" ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory
setColumnViewColumnFactory :: (MonadIO m, IsColumnViewColumn o, Gtk.ListItemFactory.IsListItemFactory a) => o -> a -> m ()
setColumnViewColumnFactory :: forall (m :: * -> *) o a.
(MonadIO m, IsColumnViewColumn o, IsListItemFactory a) =>
o -> a -> m ()
setColumnViewColumnFactory o
obj a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"factory" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructColumnViewColumnFactory :: (IsColumnViewColumn o, MIO.MonadIO m, Gtk.ListItemFactory.IsListItemFactory a) => a -> m (GValueConstruct o)
constructColumnViewColumnFactory :: forall o (m :: * -> *) a.
(IsColumnViewColumn o, MonadIO m, IsListItemFactory a) =>
a -> m (GValueConstruct o)
constructColumnViewColumnFactory a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"factory" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearColumnViewColumnFactory :: (MonadIO m, IsColumnViewColumn o) => o -> m ()
clearColumnViewColumnFactory :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m ()
clearColumnViewColumnFactory o
obj = 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
$ o -> String -> Maybe ListItemFactory -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"factory" (Maybe ListItemFactory
forall a. Maybe a
Nothing :: Maybe Gtk.ListItemFactory.ListItemFactory)
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnFactoryPropertyInfo
instance AttrInfo ColumnViewColumnFactoryPropertyInfo where
type AttrAllowedOps ColumnViewColumnFactoryPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewColumnFactoryPropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferTypeConstraint ColumnViewColumnFactoryPropertyInfo = Gtk.ListItemFactory.IsListItemFactory
type AttrTransferType ColumnViewColumnFactoryPropertyInfo = Gtk.ListItemFactory.ListItemFactory
type AttrGetType ColumnViewColumnFactoryPropertyInfo = (Maybe Gtk.ListItemFactory.ListItemFactory)
type AttrLabel ColumnViewColumnFactoryPropertyInfo = "factory"
type AttrOrigin ColumnViewColumnFactoryPropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnFactory
attrSet = setColumnViewColumnFactory
attrTransfer _ v = do
unsafeCastTo Gtk.ListItemFactory.ListItemFactory v
attrConstruct = constructColumnViewColumnFactory
attrClear = clearColumnViewColumnFactory
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.factory"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:factory"
})
#endif
getColumnViewColumnFixedWidth :: (MonadIO m, IsColumnViewColumn o) => o -> m Int32
getColumnViewColumnFixedWidth :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m Int32
getColumnViewColumnFixedWidth o
obj = IO Int32 -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"fixed-width"
setColumnViewColumnFixedWidth :: (MonadIO m, IsColumnViewColumn o) => o -> Int32 -> m ()
setColumnViewColumnFixedWidth :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> Int32 -> m ()
setColumnViewColumnFixedWidth o
obj Int32
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"fixed-width" Int32
val
constructColumnViewColumnFixedWidth :: (IsColumnViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructColumnViewColumnFixedWidth :: forall o (m :: * -> *).
(IsColumnViewColumn o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructColumnViewColumnFixedWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"fixed-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnFixedWidthPropertyInfo
instance AttrInfo ColumnViewColumnFixedWidthPropertyInfo where
type AttrAllowedOps ColumnViewColumnFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewColumnFixedWidthPropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint ColumnViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrTransferType ColumnViewColumnFixedWidthPropertyInfo = Int32
type AttrGetType ColumnViewColumnFixedWidthPropertyInfo = Int32
type AttrLabel ColumnViewColumnFixedWidthPropertyInfo = "fixed-width"
type AttrOrigin ColumnViewColumnFixedWidthPropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnFixedWidth
attrSet = setColumnViewColumnFixedWidth
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewColumnFixedWidth
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.fixedWidth"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:fixedWidth"
})
#endif
getColumnViewColumnHeaderMenu :: (MonadIO m, IsColumnViewColumn o) => o -> m (Maybe Gio.MenuModel.MenuModel)
getColumnViewColumnHeaderMenu :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m (Maybe MenuModel)
getColumnViewColumnHeaderMenu o
obj = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr MenuModel -> MenuModel)
-> IO (Maybe MenuModel)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"header-menu" ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel
setColumnViewColumnHeaderMenu :: (MonadIO m, IsColumnViewColumn o, Gio.MenuModel.IsMenuModel a) => o -> a -> m ()
setColumnViewColumnHeaderMenu :: forall (m :: * -> *) o a.
(MonadIO m, IsColumnViewColumn o, IsMenuModel a) =>
o -> a -> m ()
setColumnViewColumnHeaderMenu o
obj a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"header-menu" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructColumnViewColumnHeaderMenu :: (IsColumnViewColumn o, MIO.MonadIO m, Gio.MenuModel.IsMenuModel a) => a -> m (GValueConstruct o)
constructColumnViewColumnHeaderMenu :: forall o (m :: * -> *) a.
(IsColumnViewColumn o, MonadIO m, IsMenuModel a) =>
a -> m (GValueConstruct o)
constructColumnViewColumnHeaderMenu a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"header-menu" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearColumnViewColumnHeaderMenu :: (MonadIO m, IsColumnViewColumn o) => o -> m ()
clearColumnViewColumnHeaderMenu :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m ()
clearColumnViewColumnHeaderMenu o
obj = 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
$ o -> String -> Maybe MenuModel -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"header-menu" (Maybe MenuModel
forall a. Maybe a
Nothing :: Maybe Gio.MenuModel.MenuModel)
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnHeaderMenuPropertyInfo
instance AttrInfo ColumnViewColumnHeaderMenuPropertyInfo where
type AttrAllowedOps ColumnViewColumnHeaderMenuPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewColumnHeaderMenuPropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnHeaderMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferTypeConstraint ColumnViewColumnHeaderMenuPropertyInfo = Gio.MenuModel.IsMenuModel
type AttrTransferType ColumnViewColumnHeaderMenuPropertyInfo = Gio.MenuModel.MenuModel
type AttrGetType ColumnViewColumnHeaderMenuPropertyInfo = (Maybe Gio.MenuModel.MenuModel)
type AttrLabel ColumnViewColumnHeaderMenuPropertyInfo = "header-menu"
type AttrOrigin ColumnViewColumnHeaderMenuPropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnHeaderMenu
attrSet = setColumnViewColumnHeaderMenu
attrTransfer _ v = do
unsafeCastTo Gio.MenuModel.MenuModel v
attrConstruct = constructColumnViewColumnHeaderMenu
attrClear = clearColumnViewColumnHeaderMenu
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.headerMenu"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:headerMenu"
})
#endif
getColumnViewColumnId :: (MonadIO m, IsColumnViewColumn o) => o -> m (Maybe T.Text)
getColumnViewColumnId :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m (Maybe Text)
getColumnViewColumnId o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"id"
setColumnViewColumnId :: (MonadIO m, IsColumnViewColumn o) => o -> T.Text -> m ()
setColumnViewColumnId :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> Text -> m ()
setColumnViewColumnId o
obj Text
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 -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"id" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructColumnViewColumnId :: (IsColumnViewColumn o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructColumnViewColumnId :: forall o (m :: * -> *).
(IsColumnViewColumn o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructColumnViewColumnId Text
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 -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"id" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearColumnViewColumnId :: (MonadIO m, IsColumnViewColumn o) => o -> m ()
clearColumnViewColumnId :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m ()
clearColumnViewColumnId o
obj = 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
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"id" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnIdPropertyInfo
instance AttrInfo ColumnViewColumnIdPropertyInfo where
type AttrAllowedOps ColumnViewColumnIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewColumnIdPropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnIdPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ColumnViewColumnIdPropertyInfo = (~) T.Text
type AttrTransferType ColumnViewColumnIdPropertyInfo = T.Text
type AttrGetType ColumnViewColumnIdPropertyInfo = (Maybe T.Text)
type AttrLabel ColumnViewColumnIdPropertyInfo = "id"
type AttrOrigin ColumnViewColumnIdPropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnId
attrSet = setColumnViewColumnId
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewColumnId
attrClear = clearColumnViewColumnId
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.id"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:id"
})
#endif
getColumnViewColumnResizable :: (MonadIO m, IsColumnViewColumn o) => o -> m Bool
getColumnViewColumnResizable :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m Bool
getColumnViewColumnResizable 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
"resizable"
setColumnViewColumnResizable :: (MonadIO m, IsColumnViewColumn o) => o -> Bool -> m ()
setColumnViewColumnResizable :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> Bool -> m ()
setColumnViewColumnResizable 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
"resizable" Bool
val
constructColumnViewColumnResizable :: (IsColumnViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewColumnResizable :: forall o (m :: * -> *).
(IsColumnViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewColumnResizable 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
"resizable" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnResizablePropertyInfo
instance AttrInfo ColumnViewColumnResizablePropertyInfo where
type AttrAllowedOps ColumnViewColumnResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewColumnResizablePropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnResizablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewColumnResizablePropertyInfo = (~) Bool
type AttrTransferType ColumnViewColumnResizablePropertyInfo = Bool
type AttrGetType ColumnViewColumnResizablePropertyInfo = Bool
type AttrLabel ColumnViewColumnResizablePropertyInfo = "resizable"
type AttrOrigin ColumnViewColumnResizablePropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnResizable
attrSet = setColumnViewColumnResizable
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewColumnResizable
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.resizable"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:resizable"
})
#endif
getColumnViewColumnSorter :: (MonadIO m, IsColumnViewColumn o) => o -> m (Maybe Gtk.Sorter.Sorter)
getColumnViewColumnSorter :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m (Maybe Sorter)
getColumnViewColumnSorter o
obj = IO (Maybe Sorter) -> m (Maybe Sorter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Sorter) -> m (Maybe Sorter))
-> IO (Maybe Sorter) -> m (Maybe Sorter)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Sorter -> Sorter) -> IO (Maybe Sorter)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"sorter" ManagedPtr Sorter -> Sorter
Gtk.Sorter.Sorter
setColumnViewColumnSorter :: (MonadIO m, IsColumnViewColumn o, Gtk.Sorter.IsSorter a) => o -> a -> m ()
setColumnViewColumnSorter :: forall (m :: * -> *) o a.
(MonadIO m, IsColumnViewColumn o, IsSorter a) =>
o -> a -> m ()
setColumnViewColumnSorter o
obj a
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 -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"sorter" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructColumnViewColumnSorter :: (IsColumnViewColumn o, MIO.MonadIO m, Gtk.Sorter.IsSorter a) => a -> m (GValueConstruct o)
constructColumnViewColumnSorter :: forall o (m :: * -> *) a.
(IsColumnViewColumn o, MonadIO m, IsSorter a) =>
a -> m (GValueConstruct o)
constructColumnViewColumnSorter a
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 -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"sorter" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearColumnViewColumnSorter :: (MonadIO m, IsColumnViewColumn o) => o -> m ()
clearColumnViewColumnSorter :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m ()
clearColumnViewColumnSorter o
obj = 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
$ o -> String -> Maybe Sorter -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"sorter" (Maybe Sorter
forall a. Maybe a
Nothing :: Maybe Gtk.Sorter.Sorter)
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSorterPropertyInfo
instance AttrInfo ColumnViewColumnSorterPropertyInfo where
type AttrAllowedOps ColumnViewColumnSorterPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewColumnSorterPropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnSorterPropertyInfo = Gtk.Sorter.IsSorter
type AttrTransferTypeConstraint ColumnViewColumnSorterPropertyInfo = Gtk.Sorter.IsSorter
type AttrTransferType ColumnViewColumnSorterPropertyInfo = Gtk.Sorter.Sorter
type AttrGetType ColumnViewColumnSorterPropertyInfo = (Maybe Gtk.Sorter.Sorter)
type AttrLabel ColumnViewColumnSorterPropertyInfo = "sorter"
type AttrOrigin ColumnViewColumnSorterPropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnSorter
attrSet = setColumnViewColumnSorter
attrTransfer _ v = do
unsafeCastTo Gtk.Sorter.Sorter v
attrConstruct = constructColumnViewColumnSorter
attrClear = clearColumnViewColumnSorter
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.sorter"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:sorter"
})
#endif
getColumnViewColumnTitle :: (MonadIO m, IsColumnViewColumn o) => o -> m (Maybe T.Text)
getColumnViewColumnTitle :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m (Maybe Text)
getColumnViewColumnTitle o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setColumnViewColumnTitle :: (MonadIO m, IsColumnViewColumn o) => o -> T.Text -> m ()
setColumnViewColumnTitle :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> Text -> m ()
setColumnViewColumnTitle o
obj Text
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 -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructColumnViewColumnTitle :: (IsColumnViewColumn o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructColumnViewColumnTitle :: forall o (m :: * -> *).
(IsColumnViewColumn o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructColumnViewColumnTitle Text
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 -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearColumnViewColumnTitle :: (MonadIO m, IsColumnViewColumn o) => o -> m ()
clearColumnViewColumnTitle :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m ()
clearColumnViewColumnTitle o
obj = 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
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"title" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnTitlePropertyInfo
instance AttrInfo ColumnViewColumnTitlePropertyInfo where
type AttrAllowedOps ColumnViewColumnTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ColumnViewColumnTitlePropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ColumnViewColumnTitlePropertyInfo = (~) T.Text
type AttrTransferType ColumnViewColumnTitlePropertyInfo = T.Text
type AttrGetType ColumnViewColumnTitlePropertyInfo = (Maybe T.Text)
type AttrLabel ColumnViewColumnTitlePropertyInfo = "title"
type AttrOrigin ColumnViewColumnTitlePropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnTitle
attrSet = setColumnViewColumnTitle
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewColumnTitle
attrClear = clearColumnViewColumnTitle
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.title"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:title"
})
#endif
getColumnViewColumnVisible :: (MonadIO m, IsColumnViewColumn o) => o -> m Bool
getColumnViewColumnVisible :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> m Bool
getColumnViewColumnVisible 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
"visible"
setColumnViewColumnVisible :: (MonadIO m, IsColumnViewColumn o) => o -> Bool -> m ()
setColumnViewColumnVisible :: forall (m :: * -> *) o.
(MonadIO m, IsColumnViewColumn o) =>
o -> Bool -> m ()
setColumnViewColumnVisible 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
"visible" Bool
val
constructColumnViewColumnVisible :: (IsColumnViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructColumnViewColumnVisible :: forall o (m :: * -> *).
(IsColumnViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructColumnViewColumnVisible 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
"visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnVisiblePropertyInfo
instance AttrInfo ColumnViewColumnVisiblePropertyInfo where
type AttrAllowedOps ColumnViewColumnVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint ColumnViewColumnVisiblePropertyInfo = IsColumnViewColumn
type AttrSetTypeConstraint ColumnViewColumnVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint ColumnViewColumnVisiblePropertyInfo = (~) Bool
type AttrTransferType ColumnViewColumnVisiblePropertyInfo = Bool
type AttrGetType ColumnViewColumnVisiblePropertyInfo = Bool
type AttrLabel ColumnViewColumnVisiblePropertyInfo = "visible"
type AttrOrigin ColumnViewColumnVisiblePropertyInfo = ColumnViewColumn
attrGet = getColumnViewColumnVisible
attrSet = setColumnViewColumnVisible
attrTransfer _ v = do
return v
attrConstruct = constructColumnViewColumnVisible
attrClear = undefined
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.visible"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#g:attr:visible"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList ColumnViewColumn
type instance O.AttributeList ColumnViewColumn = ColumnViewColumnAttributeList
type ColumnViewColumnAttributeList = ('[ '("columnView", ColumnViewColumnColumnViewPropertyInfo), '("expand", ColumnViewColumnExpandPropertyInfo), '("factory", ColumnViewColumnFactoryPropertyInfo), '("fixedWidth", ColumnViewColumnFixedWidthPropertyInfo), '("headerMenu", ColumnViewColumnHeaderMenuPropertyInfo), '("id", ColumnViewColumnIdPropertyInfo), '("resizable", ColumnViewColumnResizablePropertyInfo), '("sorter", ColumnViewColumnSorterPropertyInfo), '("title", ColumnViewColumnTitlePropertyInfo), '("visible", ColumnViewColumnVisiblePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
columnViewColumnColumnView :: AttrLabelProxy "columnView"
columnViewColumnColumnView = AttrLabelProxy
columnViewColumnExpand :: AttrLabelProxy "expand"
columnViewColumnExpand = AttrLabelProxy
columnViewColumnFactory :: AttrLabelProxy "factory"
columnViewColumnFactory = AttrLabelProxy
columnViewColumnFixedWidth :: AttrLabelProxy "fixedWidth"
columnViewColumnFixedWidth = AttrLabelProxy
columnViewColumnHeaderMenu :: AttrLabelProxy "headerMenu"
columnViewColumnHeaderMenu = AttrLabelProxy
columnViewColumnId :: AttrLabelProxy "id"
columnViewColumnId = AttrLabelProxy
columnViewColumnResizable :: AttrLabelProxy "resizable"
columnViewColumnResizable = AttrLabelProxy
columnViewColumnSorter :: AttrLabelProxy "sorter"
columnViewColumnSorter = AttrLabelProxy
columnViewColumnTitle :: AttrLabelProxy "title"
columnViewColumnTitle = AttrLabelProxy
columnViewColumnVisible :: AttrLabelProxy "visible"
columnViewColumnVisible = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList ColumnViewColumn = ColumnViewColumnSignalList
type ColumnViewColumnSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "gtk_column_view_column_new" gtk_column_view_column_new ::
CString ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO (Ptr ColumnViewColumn)
columnViewColumnNew ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.ListItemFactory.IsListItemFactory a) =>
Maybe (T.Text)
-> Maybe (a)
-> m ColumnViewColumn
columnViewColumnNew :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsListItemFactory a) =>
Maybe Text -> Maybe a -> m ColumnViewColumn
columnViewColumnNew Maybe Text
title Maybe a
factory = IO ColumnViewColumn -> m ColumnViewColumn
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO ColumnViewColumn -> m ColumnViewColumn)
-> IO ColumnViewColumn -> m ColumnViewColumn
forall a b. (a -> b) -> a -> b
$ do
Ptr CChar
maybeTitle <- case Maybe Text
title of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jTitle -> do
Ptr CChar
jTitle' <- Text -> IO (Ptr CChar)
textToCString Text
jTitle
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jTitle'
Ptr ListItemFactory
maybeFactory <- case Maybe a
factory of
Maybe a
Nothing -> Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
forall a. Ptr a
nullPtr
Just a
jFactory -> do
Ptr ListItemFactory
jFactory' <- a -> IO (Ptr ListItemFactory)
forall a b. (HasCallStack, GObject a) => a -> IO (Ptr b)
B.ManagedPtr.disownObject a
jFactory
Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr ColumnViewColumn
result <- Ptr CChar -> Ptr ListItemFactory -> IO (Ptr ColumnViewColumn)
gtk_column_view_column_new Ptr CChar
maybeTitle Ptr ListItemFactory
maybeFactory
Text -> Ptr ColumnViewColumn -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"columnViewColumnNew" Ptr ColumnViewColumn
result
ColumnViewColumn
result' <- ((ManagedPtr ColumnViewColumn -> ColumnViewColumn)
-> Ptr ColumnViewColumn -> IO ColumnViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr ColumnViewColumn -> ColumnViewColumn
ColumnViewColumn) Ptr ColumnViewColumn
result
Maybe a -> (a -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe a
factory a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeTitle
ColumnViewColumn -> IO ColumnViewColumn
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ColumnViewColumn
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_column_view_column_get_column_view" gtk_column_view_column_get_column_view ::
Ptr ColumnViewColumn ->
IO (Ptr Gtk.ColumnView.ColumnView)
columnViewColumnGetColumnView ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m (Maybe Gtk.ColumnView.ColumnView)
columnViewColumnGetColumnView :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m (Maybe ColumnView)
columnViewColumnGetColumnView a
self = IO (Maybe ColumnView) -> m (Maybe ColumnView)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ColumnView) -> m (Maybe ColumnView))
-> IO (Maybe ColumnView) -> m (Maybe ColumnView)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColumnView
result <- Ptr ColumnViewColumn -> IO (Ptr ColumnView)
gtk_column_view_column_get_column_view Ptr ColumnViewColumn
self'
Maybe ColumnView
maybeResult <- Ptr ColumnView
-> (Ptr ColumnView -> IO ColumnView) -> IO (Maybe ColumnView)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ColumnView
result ((Ptr ColumnView -> IO ColumnView) -> IO (Maybe ColumnView))
-> (Ptr ColumnView -> IO ColumnView) -> IO (Maybe ColumnView)
forall a b. (a -> b) -> a -> b
$ \Ptr ColumnView
result' -> do
ColumnView
result'' <- ((ManagedPtr ColumnView -> ColumnView)
-> Ptr ColumnView -> IO ColumnView
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ColumnView -> ColumnView
Gtk.ColumnView.ColumnView) Ptr ColumnView
result'
ColumnView -> IO ColumnView
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ColumnView
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe ColumnView -> IO (Maybe ColumnView)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ColumnView
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetColumnViewMethodInfo
instance (signature ~ (m (Maybe Gtk.ColumnView.ColumnView)), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetColumnViewMethodInfo a signature where
overloadedMethod = columnViewColumnGetColumnView
instance O.OverloadedMethodInfo ColumnViewColumnGetColumnViewMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetColumnView",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetColumnView"
})
#endif
foreign import ccall "gtk_column_view_column_get_expand" gtk_column_view_column_get_expand ::
Ptr ColumnViewColumn ->
IO CInt
columnViewColumnGetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m Bool
columnViewColumnGetExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m Bool
columnViewColumnGetExpand a
self = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnViewColumn -> IO CInt
gtk_column_view_column_get_expand Ptr ColumnViewColumn
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetExpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetExpandMethodInfo a signature where
overloadedMethod = columnViewColumnGetExpand
instance O.OverloadedMethodInfo ColumnViewColumnGetExpandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetExpand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetExpand"
})
#endif
foreign import ccall "gtk_column_view_column_get_factory" gtk_column_view_column_get_factory ::
Ptr ColumnViewColumn ->
IO (Ptr Gtk.ListItemFactory.ListItemFactory)
columnViewColumnGetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m (Maybe Gtk.ListItemFactory.ListItemFactory)
columnViewColumnGetFactory :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m (Maybe ListItemFactory)
columnViewColumnGetFactory a
self = IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory))
-> IO (Maybe ListItemFactory) -> m (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
result <- Ptr ColumnViewColumn -> IO (Ptr ListItemFactory)
gtk_column_view_column_get_factory Ptr ColumnViewColumn
self'
Maybe ListItemFactory
maybeResult <- Ptr ListItemFactory
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr ListItemFactory
result ((Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory))
-> (Ptr ListItemFactory -> IO ListItemFactory)
-> IO (Maybe ListItemFactory)
forall a b. (a -> b) -> a -> b
$ \Ptr ListItemFactory
result' -> do
ListItemFactory
result'' <- ((ManagedPtr ListItemFactory -> ListItemFactory)
-> Ptr ListItemFactory -> IO ListItemFactory
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr ListItemFactory -> ListItemFactory
Gtk.ListItemFactory.ListItemFactory) Ptr ListItemFactory
result'
ListItemFactory -> IO ListItemFactory
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ListItemFactory
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe ListItemFactory -> IO (Maybe ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe ListItemFactory
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetFactoryMethodInfo
instance (signature ~ (m (Maybe Gtk.ListItemFactory.ListItemFactory)), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetFactoryMethodInfo a signature where
overloadedMethod = columnViewColumnGetFactory
instance O.OverloadedMethodInfo ColumnViewColumnGetFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetFactory"
})
#endif
foreign import ccall "gtk_column_view_column_get_fixed_width" gtk_column_view_column_get_fixed_width ::
Ptr ColumnViewColumn ->
IO Int32
columnViewColumnGetFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m Int32
columnViewColumnGetFixedWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m Int32
columnViewColumnGetFixedWidth a
self = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Int32
result <- Ptr ColumnViewColumn -> IO Int32
gtk_column_view_column_get_fixed_width Ptr ColumnViewColumn
self'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Int32 -> IO Int32
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetFixedWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetFixedWidthMethodInfo a signature where
overloadedMethod = columnViewColumnGetFixedWidth
instance O.OverloadedMethodInfo ColumnViewColumnGetFixedWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetFixedWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetFixedWidth"
})
#endif
foreign import ccall "gtk_column_view_column_get_header_menu" gtk_column_view_column_get_header_menu ::
Ptr ColumnViewColumn ->
IO (Ptr Gio.MenuModel.MenuModel)
columnViewColumnGetHeaderMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m (Maybe Gio.MenuModel.MenuModel)
columnViewColumnGetHeaderMenu :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m (Maybe MenuModel)
columnViewColumnGetHeaderMenu a
self = IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe MenuModel) -> m (Maybe MenuModel))
-> IO (Maybe MenuModel) -> m (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MenuModel
result <- Ptr ColumnViewColumn -> IO (Ptr MenuModel)
gtk_column_view_column_get_header_menu Ptr ColumnViewColumn
self'
Maybe MenuModel
maybeResult <- Ptr MenuModel
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr MenuModel
result ((Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel))
-> (Ptr MenuModel -> IO MenuModel) -> IO (Maybe MenuModel)
forall a b. (a -> b) -> a -> b
$ \Ptr MenuModel
result' -> do
MenuModel
result'' <- ((ManagedPtr MenuModel -> MenuModel)
-> Ptr MenuModel -> IO MenuModel
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr MenuModel -> MenuModel
Gio.MenuModel.MenuModel) Ptr MenuModel
result'
MenuModel -> IO MenuModel
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return MenuModel
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe MenuModel -> IO (Maybe MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe MenuModel
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetHeaderMenuMethodInfo
instance (signature ~ (m (Maybe Gio.MenuModel.MenuModel)), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetHeaderMenuMethodInfo a signature where
overloadedMethod = columnViewColumnGetHeaderMenu
instance O.OverloadedMethodInfo ColumnViewColumnGetHeaderMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetHeaderMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetHeaderMenu"
})
#endif
foreign import ccall "gtk_column_view_column_get_id" gtk_column_view_column_get_id ::
Ptr ColumnViewColumn ->
IO CString
columnViewColumnGetId ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m (Maybe T.Text)
columnViewColumnGetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m (Maybe Text)
columnViewColumnGetId a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CChar
result <- Ptr ColumnViewColumn -> IO (Ptr CChar)
gtk_column_view_column_get_id Ptr ColumnViewColumn
self'
Maybe Text
maybeResult <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
result ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetIdMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetIdMethodInfo a signature where
overloadedMethod = columnViewColumnGetId
instance O.OverloadedMethodInfo ColumnViewColumnGetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetId"
})
#endif
foreign import ccall "gtk_column_view_column_get_resizable" gtk_column_view_column_get_resizable ::
Ptr ColumnViewColumn ->
IO CInt
columnViewColumnGetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m Bool
columnViewColumnGetResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m Bool
columnViewColumnGetResizable a
self = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnViewColumn -> IO CInt
gtk_column_view_column_get_resizable Ptr ColumnViewColumn
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetResizableMethodInfo a signature where
overloadedMethod = columnViewColumnGetResizable
instance O.OverloadedMethodInfo ColumnViewColumnGetResizableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetResizable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetResizable"
})
#endif
foreign import ccall "gtk_column_view_column_get_sorter" gtk_column_view_column_get_sorter ::
Ptr ColumnViewColumn ->
IO (Ptr Gtk.Sorter.Sorter)
columnViewColumnGetSorter ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m (Maybe Gtk.Sorter.Sorter)
columnViewColumnGetSorter :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m (Maybe Sorter)
columnViewColumnGetSorter a
self = IO (Maybe Sorter) -> m (Maybe Sorter)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Sorter) -> m (Maybe Sorter))
-> IO (Maybe Sorter) -> m (Maybe Sorter)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Sorter
result <- Ptr ColumnViewColumn -> IO (Ptr Sorter)
gtk_column_view_column_get_sorter Ptr ColumnViewColumn
self'
Maybe Sorter
maybeResult <- Ptr Sorter -> (Ptr Sorter -> IO Sorter) -> IO (Maybe Sorter)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Sorter
result ((Ptr Sorter -> IO Sorter) -> IO (Maybe Sorter))
-> (Ptr Sorter -> IO Sorter) -> IO (Maybe Sorter)
forall a b. (a -> b) -> a -> b
$ \Ptr Sorter
result' -> do
Sorter
result'' <- ((ManagedPtr Sorter -> Sorter) -> Ptr Sorter -> IO Sorter
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Sorter -> Sorter
Gtk.Sorter.Sorter) Ptr Sorter
result'
Sorter -> IO Sorter
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Sorter
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Sorter -> IO (Maybe Sorter)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Sorter
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetSorterMethodInfo
instance (signature ~ (m (Maybe Gtk.Sorter.Sorter)), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetSorterMethodInfo a signature where
overloadedMethod = columnViewColumnGetSorter
instance O.OverloadedMethodInfo ColumnViewColumnGetSorterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetSorter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetSorter"
})
#endif
foreign import ccall "gtk_column_view_column_get_title" gtk_column_view_column_get_title ::
Ptr ColumnViewColumn ->
IO CString
columnViewColumnGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m (Maybe T.Text)
columnViewColumnGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m (Maybe Text)
columnViewColumnGetTitle a
self = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ do
Ptr ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CChar
result <- Ptr ColumnViewColumn -> IO (Ptr CChar)
gtk_column_view_column_get_title Ptr ColumnViewColumn
self'
Maybe Text
maybeResult <- Ptr CChar -> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr CChar
result ((Ptr CChar -> IO Text) -> IO (Maybe Text))
-> (Ptr CChar -> IO Text) -> IO (Maybe Text)
forall a b. (a -> b) -> a -> b
$ \Ptr CChar
result' -> do
Text
result'' <- HasCallStack => Ptr CChar -> IO Text
Ptr CChar -> IO Text
cstringToText Ptr CChar
result'
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe Text -> IO (Maybe Text)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Text
maybeResult
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetTitleMethodInfo
instance (signature ~ (m (Maybe T.Text)), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetTitleMethodInfo a signature where
overloadedMethod = columnViewColumnGetTitle
instance O.OverloadedMethodInfo ColumnViewColumnGetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetTitle"
})
#endif
foreign import ccall "gtk_column_view_column_get_visible" gtk_column_view_column_get_visible ::
Ptr ColumnViewColumn ->
IO CInt
columnViewColumnGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> m Bool
columnViewColumnGetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> m Bool
columnViewColumnGetVisible a
self = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
CInt
result <- Ptr ColumnViewColumn -> IO CInt
gtk_column_view_column_get_visible Ptr ColumnViewColumn
self'
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
self
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnGetVisibleMethodInfo a signature where
overloadedMethod = columnViewColumnGetVisible
instance O.OverloadedMethodInfo ColumnViewColumnGetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnGetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnGetVisible"
})
#endif
foreign import ccall "gtk_column_view_column_set_expand" gtk_column_view_column_set_expand ::
Ptr ColumnViewColumn ->
CInt ->
IO ()
columnViewColumnSetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> Bool
-> m ()
columnViewColumnSetExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> Bool -> m ()
columnViewColumnSetExpand a
self Bool
expand = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let expand' :: CInt
expand' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
expand
Ptr ColumnViewColumn -> CInt -> IO ()
gtk_column_view_column_set_expand Ptr ColumnViewColumn
self' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetExpandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnSetExpandMethodInfo a signature where
overloadedMethod = columnViewColumnSetExpand
instance O.OverloadedMethodInfo ColumnViewColumnSetExpandMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetExpand",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetExpand"
})
#endif
foreign import ccall "gtk_column_view_column_set_factory" gtk_column_view_column_set_factory ::
Ptr ColumnViewColumn ->
Ptr Gtk.ListItemFactory.ListItemFactory ->
IO ()
columnViewColumnSetFactory ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a, Gtk.ListItemFactory.IsListItemFactory b) =>
a
-> Maybe (b)
-> m ()
columnViewColumnSetFactory :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnViewColumn a,
IsListItemFactory b) =>
a -> Maybe b -> m ()
columnViewColumnSetFactory a
self Maybe b
factory = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ListItemFactory
maybeFactory <- case Maybe b
factory of
Maybe b
Nothing -> Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
forall a. Ptr a
nullPtr
Just b
jFactory -> do
Ptr ListItemFactory
jFactory' <- b -> IO (Ptr ListItemFactory)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jFactory
Ptr ListItemFactory -> IO (Ptr ListItemFactory)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr ListItemFactory
jFactory'
Ptr ColumnViewColumn -> Ptr ListItemFactory -> IO ()
gtk_column_view_column_set_factory Ptr ColumnViewColumn
self' Ptr ListItemFactory
maybeFactory
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
factory b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetFactoryMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsColumnViewColumn a, Gtk.ListItemFactory.IsListItemFactory b) => O.OverloadedMethod ColumnViewColumnSetFactoryMethodInfo a signature where
overloadedMethod = columnViewColumnSetFactory
instance O.OverloadedMethodInfo ColumnViewColumnSetFactoryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetFactory",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetFactory"
})
#endif
foreign import ccall "gtk_column_view_column_set_fixed_width" gtk_column_view_column_set_fixed_width ::
Ptr ColumnViewColumn ->
Int32 ->
IO ()
columnViewColumnSetFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> Int32
-> m ()
columnViewColumnSetFixedWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> Int32 -> m ()
columnViewColumnSetFixedWidth a
self Int32
fixedWidth = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr ColumnViewColumn -> Int32 -> IO ()
gtk_column_view_column_set_fixed_width Ptr ColumnViewColumn
self' Int32
fixedWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetFixedWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnSetFixedWidthMethodInfo a signature where
overloadedMethod = columnViewColumnSetFixedWidth
instance O.OverloadedMethodInfo ColumnViewColumnSetFixedWidthMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetFixedWidth",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetFixedWidth"
})
#endif
foreign import ccall "gtk_column_view_column_set_header_menu" gtk_column_view_column_set_header_menu ::
Ptr ColumnViewColumn ->
Ptr Gio.MenuModel.MenuModel ->
IO ()
columnViewColumnSetHeaderMenu ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a, Gio.MenuModel.IsMenuModel b) =>
a
-> Maybe (b)
-> m ()
columnViewColumnSetHeaderMenu :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnViewColumn a, IsMenuModel b) =>
a -> Maybe b -> m ()
columnViewColumnSetHeaderMenu a
self Maybe b
menu = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr MenuModel
maybeMenu <- case Maybe b
menu of
Maybe b
Nothing -> Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
forall a. Ptr a
nullPtr
Just b
jMenu -> do
Ptr MenuModel
jMenu' <- b -> IO (Ptr MenuModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jMenu
Ptr MenuModel -> IO (Ptr MenuModel)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr MenuModel
jMenu'
Ptr ColumnViewColumn -> Ptr MenuModel -> IO ()
gtk_column_view_column_set_header_menu Ptr ColumnViewColumn
self' Ptr MenuModel
maybeMenu
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
menu b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetHeaderMenuMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsColumnViewColumn a, Gio.MenuModel.IsMenuModel b) => O.OverloadedMethod ColumnViewColumnSetHeaderMenuMethodInfo a signature where
overloadedMethod = columnViewColumnSetHeaderMenu
instance O.OverloadedMethodInfo ColumnViewColumnSetHeaderMenuMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetHeaderMenu",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetHeaderMenu"
})
#endif
foreign import ccall "gtk_column_view_column_set_id" gtk_column_view_column_set_id ::
Ptr ColumnViewColumn ->
CString ->
IO ()
columnViewColumnSetId ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> Maybe (T.Text)
-> m ()
columnViewColumnSetId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> Maybe Text -> m ()
columnViewColumnSetId a
self Maybe Text
id = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CChar
maybeId <- case Maybe Text
id of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jId -> do
Ptr CChar
jId' <- Text -> IO (Ptr CChar)
textToCString Text
jId
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jId'
Ptr ColumnViewColumn -> Ptr CChar -> IO ()
gtk_column_view_column_set_id Ptr ColumnViewColumn
self' Ptr CChar
maybeId
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeId
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetIdMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnSetIdMethodInfo a signature where
overloadedMethod = columnViewColumnSetId
instance O.OverloadedMethodInfo ColumnViewColumnSetIdMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetId",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetId"
})
#endif
foreign import ccall "gtk_column_view_column_set_resizable" gtk_column_view_column_set_resizable ::
Ptr ColumnViewColumn ->
CInt ->
IO ()
columnViewColumnSetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> Bool
-> m ()
columnViewColumnSetResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> Bool -> m ()
columnViewColumnSetResizable a
self Bool
resizable = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let resizable' :: CInt
resizable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
resizable
Ptr ColumnViewColumn -> CInt -> IO ()
gtk_column_view_column_set_resizable Ptr ColumnViewColumn
self' CInt
resizable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetResizableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnSetResizableMethodInfo a signature where
overloadedMethod = columnViewColumnSetResizable
instance O.OverloadedMethodInfo ColumnViewColumnSetResizableMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetResizable",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetResizable"
})
#endif
foreign import ccall "gtk_column_view_column_set_sorter" gtk_column_view_column_set_sorter ::
Ptr ColumnViewColumn ->
Ptr Gtk.Sorter.Sorter ->
IO ()
columnViewColumnSetSorter ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a, Gtk.Sorter.IsSorter b) =>
a
-> Maybe (b)
-> m ()
columnViewColumnSetSorter :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsColumnViewColumn a, IsSorter b) =>
a -> Maybe b -> m ()
columnViewColumnSetSorter a
self Maybe b
sorter = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr Sorter
maybeSorter <- case Maybe b
sorter of
Maybe b
Nothing -> Ptr Sorter -> IO (Ptr Sorter)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Sorter
forall a. Ptr a
nullPtr
Just b
jSorter -> do
Ptr Sorter
jSorter' <- b -> IO (Ptr Sorter)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jSorter
Ptr Sorter -> IO (Ptr Sorter)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Sorter
jSorter'
Ptr ColumnViewColumn -> Ptr Sorter -> IO ()
gtk_column_view_column_set_sorter Ptr ColumnViewColumn
self' Ptr Sorter
maybeSorter
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
sorter b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetSorterMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsColumnViewColumn a, Gtk.Sorter.IsSorter b) => O.OverloadedMethod ColumnViewColumnSetSorterMethodInfo a signature where
overloadedMethod = columnViewColumnSetSorter
instance O.OverloadedMethodInfo ColumnViewColumnSetSorterMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetSorter",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetSorter"
})
#endif
foreign import ccall "gtk_column_view_column_set_title" gtk_column_view_column_set_title ::
Ptr ColumnViewColumn ->
CString ->
IO ()
columnViewColumnSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> Maybe (T.Text)
-> m ()
columnViewColumnSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> Maybe Text -> m ()
columnViewColumnSetTitle a
self Maybe Text
title = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
Ptr CChar
maybeTitle <- case Maybe Text
title of
Maybe Text
Nothing -> Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
forall a. Ptr a
nullPtr
Just Text
jTitle -> do
Ptr CChar
jTitle' <- Text -> IO (Ptr CChar)
textToCString Text
jTitle
Ptr CChar -> IO (Ptr CChar)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr CChar
jTitle'
Ptr ColumnViewColumn -> Ptr CChar -> IO ()
gtk_column_view_column_set_title Ptr ColumnViewColumn
self' Ptr CChar
maybeTitle
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
Ptr CChar -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr CChar
maybeTitle
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetTitleMethodInfo
instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnSetTitleMethodInfo a signature where
overloadedMethod = columnViewColumnSetTitle
instance O.OverloadedMethodInfo ColumnViewColumnSetTitleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetTitle",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetTitle"
})
#endif
foreign import ccall "gtk_column_view_column_set_visible" gtk_column_view_column_set_visible ::
Ptr ColumnViewColumn ->
CInt ->
IO ()
columnViewColumnSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a
-> Bool
-> m ()
columnViewColumnSetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsColumnViewColumn a) =>
a -> Bool -> m ()
columnViewColumnSetVisible a
self Bool
visible = 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 ColumnViewColumn
self' <- a -> IO (Ptr ColumnViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
self
let visible' :: CInt
visible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
visible
Ptr ColumnViewColumn -> CInt -> IO ()
gtk_column_view_column_set_visible Ptr ColumnViewColumn
self' CInt
visible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
self
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ColumnViewColumnSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsColumnViewColumn a) => O.OverloadedMethod ColumnViewColumnSetVisibleMethodInfo a signature where
overloadedMethod = columnViewColumnSetVisible
instance O.OverloadedMethodInfo ColumnViewColumnSetVisibleMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Gtk.Objects.ColumnViewColumn.columnViewColumnSetVisible",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-gtk-4.0.8/docs/GI-Gtk-Objects-ColumnViewColumn.html#v:columnViewColumnSetVisible"
})
#endif