{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.TreeViewColumn
(
TreeViewColumn(..) ,
IsTreeViewColumn ,
toTreeViewColumn ,
#if defined(ENABLE_OVERLOADING)
ResolveTreeViewColumnMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnAddAttributeMethodInfo ,
#endif
treeViewColumnAddAttribute ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellGetPositionMethodInfo ,
#endif
treeViewColumnCellGetPosition ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellGetSizeMethodInfo ,
#endif
treeViewColumnCellGetSize ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellIsVisibleMethodInfo ,
#endif
treeViewColumnCellIsVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellSetCellDataMethodInfo ,
#endif
treeViewColumnCellSetCellData ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClearMethodInfo ,
#endif
treeViewColumnClear ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClearAttributesMethodInfo ,
#endif
treeViewColumnClearAttributes ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClickedMethodInfo ,
#endif
treeViewColumnClicked ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnFocusCellMethodInfo ,
#endif
treeViewColumnFocusCell ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetAlignmentMethodInfo ,
#endif
treeViewColumnGetAlignment ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetButtonMethodInfo ,
#endif
treeViewColumnGetButton ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetClickableMethodInfo ,
#endif
treeViewColumnGetClickable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetExpandMethodInfo ,
#endif
treeViewColumnGetExpand ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetFixedWidthMethodInfo ,
#endif
treeViewColumnGetFixedWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetMaxWidthMethodInfo ,
#endif
treeViewColumnGetMaxWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetMinWidthMethodInfo ,
#endif
treeViewColumnGetMinWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetReorderableMethodInfo ,
#endif
treeViewColumnGetReorderable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetResizableMethodInfo ,
#endif
treeViewColumnGetResizable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSizingMethodInfo ,
#endif
treeViewColumnGetSizing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSortColumnIdMethodInfo ,
#endif
treeViewColumnGetSortColumnId ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSortIndicatorMethodInfo,
#endif
treeViewColumnGetSortIndicator ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSortOrderMethodInfo ,
#endif
treeViewColumnGetSortOrder ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSpacingMethodInfo ,
#endif
treeViewColumnGetSpacing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetTitleMethodInfo ,
#endif
treeViewColumnGetTitle ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetTreeViewMethodInfo ,
#endif
treeViewColumnGetTreeView ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetVisibleMethodInfo ,
#endif
treeViewColumnGetVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetWidgetMethodInfo ,
#endif
treeViewColumnGetWidget ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetWidthMethodInfo ,
#endif
treeViewColumnGetWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetXOffsetMethodInfo ,
#endif
treeViewColumnGetXOffset ,
treeViewColumnNew ,
treeViewColumnNewWithArea ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnPackEndMethodInfo ,
#endif
treeViewColumnPackEnd ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnPackStartMethodInfo ,
#endif
treeViewColumnPackStart ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnQueueResizeMethodInfo ,
#endif
treeViewColumnQueueResize ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetAlignmentMethodInfo ,
#endif
treeViewColumnSetAlignment ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetCellDataFuncMethodInfo ,
#endif
treeViewColumnSetCellDataFunc ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetClickableMethodInfo ,
#endif
treeViewColumnSetClickable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetExpandMethodInfo ,
#endif
treeViewColumnSetExpand ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetFixedWidthMethodInfo ,
#endif
treeViewColumnSetFixedWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetMaxWidthMethodInfo ,
#endif
treeViewColumnSetMaxWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetMinWidthMethodInfo ,
#endif
treeViewColumnSetMinWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetReorderableMethodInfo ,
#endif
treeViewColumnSetReorderable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetResizableMethodInfo ,
#endif
treeViewColumnSetResizable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSizingMethodInfo ,
#endif
treeViewColumnSetSizing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSortColumnIdMethodInfo ,
#endif
treeViewColumnSetSortColumnId ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSortIndicatorMethodInfo,
#endif
treeViewColumnSetSortIndicator ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSortOrderMethodInfo ,
#endif
treeViewColumnSetSortOrder ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSpacingMethodInfo ,
#endif
treeViewColumnSetSpacing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetTitleMethodInfo ,
#endif
treeViewColumnSetTitle ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetVisibleMethodInfo ,
#endif
treeViewColumnSetVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetWidgetMethodInfo ,
#endif
treeViewColumnSetWidget ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnAlignmentPropertyInfo ,
#endif
constructTreeViewColumnAlignment ,
getTreeViewColumnAlignment ,
setTreeViewColumnAlignment ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnAlignment ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellAreaPropertyInfo ,
#endif
constructTreeViewColumnCellArea ,
getTreeViewColumnCellArea ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnCellArea ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClickablePropertyInfo ,
#endif
constructTreeViewColumnClickable ,
getTreeViewColumnClickable ,
setTreeViewColumnClickable ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnClickable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnExpandPropertyInfo ,
#endif
constructTreeViewColumnExpand ,
getTreeViewColumnExpand ,
setTreeViewColumnExpand ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnExpand ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnFixedWidthPropertyInfo ,
#endif
constructTreeViewColumnFixedWidth ,
getTreeViewColumnFixedWidth ,
setTreeViewColumnFixedWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnFixedWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnMaxWidthPropertyInfo ,
#endif
constructTreeViewColumnMaxWidth ,
getTreeViewColumnMaxWidth ,
setTreeViewColumnMaxWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnMaxWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnMinWidthPropertyInfo ,
#endif
constructTreeViewColumnMinWidth ,
getTreeViewColumnMinWidth ,
setTreeViewColumnMinWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnMinWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnReorderablePropertyInfo ,
#endif
constructTreeViewColumnReorderable ,
getTreeViewColumnReorderable ,
setTreeViewColumnReorderable ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnReorderable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnResizablePropertyInfo ,
#endif
constructTreeViewColumnResizable ,
getTreeViewColumnResizable ,
setTreeViewColumnResizable ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnResizable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSizingPropertyInfo ,
#endif
constructTreeViewColumnSizing ,
getTreeViewColumnSizing ,
setTreeViewColumnSizing ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSizing ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSortColumnIdPropertyInfo ,
#endif
constructTreeViewColumnSortColumnId ,
getTreeViewColumnSortColumnId ,
setTreeViewColumnSortColumnId ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSortColumnId ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSortIndicatorPropertyInfo ,
#endif
constructTreeViewColumnSortIndicator ,
getTreeViewColumnSortIndicator ,
setTreeViewColumnSortIndicator ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSortIndicator ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSortOrderPropertyInfo ,
#endif
constructTreeViewColumnSortOrder ,
getTreeViewColumnSortOrder ,
setTreeViewColumnSortOrder ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSortOrder ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSpacingPropertyInfo ,
#endif
constructTreeViewColumnSpacing ,
getTreeViewColumnSpacing ,
setTreeViewColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSpacing ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnTitlePropertyInfo ,
#endif
constructTreeViewColumnTitle ,
getTreeViewColumnTitle ,
setTreeViewColumnTitle ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnVisiblePropertyInfo ,
#endif
constructTreeViewColumnVisible ,
getTreeViewColumnVisible ,
setTreeViewColumnVisible ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnWidgetPropertyInfo ,
#endif
clearTreeViewColumnWidget ,
constructTreeViewColumnWidget ,
getTreeViewColumnWidget ,
setTreeViewColumnWidget ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnWidget ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnWidthPropertyInfo ,
#endif
getTreeViewColumnWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnXOffsetPropertyInfo ,
#endif
getTreeViewColumnXOffset ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnXOffset ,
#endif
C_TreeViewColumnClickedCallback ,
TreeViewColumnClickedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClickedSignalInfo ,
#endif
afterTreeViewColumnClicked ,
genClosure_TreeViewColumnClicked ,
mk_TreeViewColumnClickedCallback ,
noTreeViewColumnClickedCallback ,
onTreeViewColumnClicked ,
wrap_TreeViewColumnClickedCallback ,
) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GHC.Records as R
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
newtype TreeViewColumn = TreeViewColumn (SP.ManagedPtr TreeViewColumn)
deriving (TreeViewColumn -> TreeViewColumn -> Bool
(TreeViewColumn -> TreeViewColumn -> Bool)
-> (TreeViewColumn -> TreeViewColumn -> Bool) -> Eq TreeViewColumn
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TreeViewColumn -> TreeViewColumn -> Bool
$c/= :: TreeViewColumn -> TreeViewColumn -> Bool
== :: TreeViewColumn -> TreeViewColumn -> Bool
$c== :: TreeViewColumn -> TreeViewColumn -> Bool
Eq)
instance SP.ManagedPtrNewtype TreeViewColumn where
toManagedPtr :: TreeViewColumn -> ManagedPtr TreeViewColumn
toManagedPtr (TreeViewColumn ManagedPtr TreeViewColumn
p) = ManagedPtr TreeViewColumn
p
foreign import ccall "gtk_tree_view_column_get_type"
c_gtk_tree_view_column_get_type :: IO B.Types.GType
instance B.Types.TypedObject TreeViewColumn where
glibType :: IO GType
glibType = IO GType
c_gtk_tree_view_column_get_type
instance B.Types.GObject TreeViewColumn
class (SP.GObject o, O.IsDescendantOf TreeViewColumn o) => IsTreeViewColumn o
instance (SP.GObject o, O.IsDescendantOf TreeViewColumn o) => IsTreeViewColumn o
instance O.HasParentTypes TreeViewColumn
type instance O.ParentTypes TreeViewColumn = '[GObject.Object.Object, Gtk.Buildable.Buildable, Gtk.CellLayout.CellLayout]
toTreeViewColumn :: (MIO.MonadIO m, IsTreeViewColumn o) => o -> m TreeViewColumn
toTreeViewColumn :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m TreeViewColumn
toTreeViewColumn = IO TreeViewColumn -> m TreeViewColumn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TreeViewColumn -> m TreeViewColumn)
-> (o -> IO TreeViewColumn) -> o -> m TreeViewColumn
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr TreeViewColumn -> TreeViewColumn)
-> o -> IO TreeViewColumn
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn
instance B.GValue.IsGValue (Maybe TreeViewColumn) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_gtk_tree_view_column_get_type
gvalueSet_ :: Ptr GValue -> Maybe TreeViewColumn -> IO ()
gvalueSet_ Ptr GValue
gv Maybe TreeViewColumn
P.Nothing = Ptr GValue -> Ptr TreeViewColumn -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr :: FP.Ptr TreeViewColumn)
gvalueSet_ Ptr GValue
gv (P.Just TreeViewColumn
obj) = TreeViewColumn -> (Ptr TreeViewColumn -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TreeViewColumn
obj (Ptr GValue -> Ptr TreeViewColumn -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe TreeViewColumn)
gvalueGet_ Ptr GValue
gv = do
Ptr TreeViewColumn
ptr <- Ptr GValue -> IO (Ptr TreeViewColumn)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr TreeViewColumn)
if Ptr TreeViewColumn
ptr Ptr TreeViewColumn -> Ptr TreeViewColumn -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr TreeViewColumn
forall a. Ptr a
FP.nullPtr
then TreeViewColumn -> Maybe TreeViewColumn
forall a. a -> Maybe a
P.Just (TreeViewColumn -> Maybe TreeViewColumn)
-> IO TreeViewColumn -> IO (Maybe TreeViewColumn)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn Ptr TreeViewColumn
ptr
else Maybe TreeViewColumn -> IO (Maybe TreeViewColumn)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe TreeViewColumn
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveTreeViewColumnMethod (t :: Symbol) (o :: *) :: * where
ResolveTreeViewColumnMethod "addAttribute" o = TreeViewColumnAddAttributeMethodInfo
ResolveTreeViewColumnMethod "addChild" o = Gtk.Buildable.BuildableAddChildMethodInfo
ResolveTreeViewColumnMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTreeViewColumnMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTreeViewColumnMethod "cellGetPosition" o = TreeViewColumnCellGetPositionMethodInfo
ResolveTreeViewColumnMethod "cellGetSize" o = TreeViewColumnCellGetSizeMethodInfo
ResolveTreeViewColumnMethod "cellIsVisible" o = TreeViewColumnCellIsVisibleMethodInfo
ResolveTreeViewColumnMethod "cellSetCellData" o = TreeViewColumnCellSetCellDataMethodInfo
ResolveTreeViewColumnMethod "clear" o = TreeViewColumnClearMethodInfo
ResolveTreeViewColumnMethod "clearAttributes" o = TreeViewColumnClearAttributesMethodInfo
ResolveTreeViewColumnMethod "clicked" o = TreeViewColumnClickedMethodInfo
ResolveTreeViewColumnMethod "constructChild" o = Gtk.Buildable.BuildableConstructChildMethodInfo
ResolveTreeViewColumnMethod "customFinished" o = Gtk.Buildable.BuildableCustomFinishedMethodInfo
ResolveTreeViewColumnMethod "customTagEnd" o = Gtk.Buildable.BuildableCustomTagEndMethodInfo
ResolveTreeViewColumnMethod "customTagStart" o = Gtk.Buildable.BuildableCustomTagStartMethodInfo
ResolveTreeViewColumnMethod "focusCell" o = TreeViewColumnFocusCellMethodInfo
ResolveTreeViewColumnMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTreeViewColumnMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTreeViewColumnMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveTreeViewColumnMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTreeViewColumnMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTreeViewColumnMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTreeViewColumnMethod "packEnd" o = TreeViewColumnPackEndMethodInfo
ResolveTreeViewColumnMethod "packStart" o = TreeViewColumnPackStartMethodInfo
ResolveTreeViewColumnMethod "parserFinished" o = Gtk.Buildable.BuildableParserFinishedMethodInfo
ResolveTreeViewColumnMethod "queueResize" o = TreeViewColumnQueueResizeMethodInfo
ResolveTreeViewColumnMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTreeViewColumnMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTreeViewColumnMethod "reorder" o = Gtk.CellLayout.CellLayoutReorderMethodInfo
ResolveTreeViewColumnMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTreeViewColumnMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTreeViewColumnMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTreeViewColumnMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTreeViewColumnMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTreeViewColumnMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTreeViewColumnMethod "getAlignment" o = TreeViewColumnGetAlignmentMethodInfo
ResolveTreeViewColumnMethod "getArea" o = Gtk.CellLayout.CellLayoutGetAreaMethodInfo
ResolveTreeViewColumnMethod "getButton" o = TreeViewColumnGetButtonMethodInfo
ResolveTreeViewColumnMethod "getCells" o = Gtk.CellLayout.CellLayoutGetCellsMethodInfo
ResolveTreeViewColumnMethod "getClickable" o = TreeViewColumnGetClickableMethodInfo
ResolveTreeViewColumnMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTreeViewColumnMethod "getExpand" o = TreeViewColumnGetExpandMethodInfo
ResolveTreeViewColumnMethod "getFixedWidth" o = TreeViewColumnGetFixedWidthMethodInfo
ResolveTreeViewColumnMethod "getInternalChild" o = Gtk.Buildable.BuildableGetInternalChildMethodInfo
ResolveTreeViewColumnMethod "getMaxWidth" o = TreeViewColumnGetMaxWidthMethodInfo
ResolveTreeViewColumnMethod "getMinWidth" o = TreeViewColumnGetMinWidthMethodInfo
ResolveTreeViewColumnMethod "getName" o = Gtk.Buildable.BuildableGetNameMethodInfo
ResolveTreeViewColumnMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTreeViewColumnMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTreeViewColumnMethod "getReorderable" o = TreeViewColumnGetReorderableMethodInfo
ResolveTreeViewColumnMethod "getResizable" o = TreeViewColumnGetResizableMethodInfo
ResolveTreeViewColumnMethod "getSizing" o = TreeViewColumnGetSizingMethodInfo
ResolveTreeViewColumnMethod "getSortColumnId" o = TreeViewColumnGetSortColumnIdMethodInfo
ResolveTreeViewColumnMethod "getSortIndicator" o = TreeViewColumnGetSortIndicatorMethodInfo
ResolveTreeViewColumnMethod "getSortOrder" o = TreeViewColumnGetSortOrderMethodInfo
ResolveTreeViewColumnMethod "getSpacing" o = TreeViewColumnGetSpacingMethodInfo
ResolveTreeViewColumnMethod "getTitle" o = TreeViewColumnGetTitleMethodInfo
ResolveTreeViewColumnMethod "getTreeView" o = TreeViewColumnGetTreeViewMethodInfo
ResolveTreeViewColumnMethod "getVisible" o = TreeViewColumnGetVisibleMethodInfo
ResolveTreeViewColumnMethod "getWidget" o = TreeViewColumnGetWidgetMethodInfo
ResolveTreeViewColumnMethod "getWidth" o = TreeViewColumnGetWidthMethodInfo
ResolveTreeViewColumnMethod "getXOffset" o = TreeViewColumnGetXOffsetMethodInfo
ResolveTreeViewColumnMethod "setAlignment" o = TreeViewColumnSetAlignmentMethodInfo
ResolveTreeViewColumnMethod "setBuildableProperty" o = Gtk.Buildable.BuildableSetBuildablePropertyMethodInfo
ResolveTreeViewColumnMethod "setCellDataFunc" o = TreeViewColumnSetCellDataFuncMethodInfo
ResolveTreeViewColumnMethod "setClickable" o = TreeViewColumnSetClickableMethodInfo
ResolveTreeViewColumnMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTreeViewColumnMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveTreeViewColumnMethod "setExpand" o = TreeViewColumnSetExpandMethodInfo
ResolveTreeViewColumnMethod "setFixedWidth" o = TreeViewColumnSetFixedWidthMethodInfo
ResolveTreeViewColumnMethod "setMaxWidth" o = TreeViewColumnSetMaxWidthMethodInfo
ResolveTreeViewColumnMethod "setMinWidth" o = TreeViewColumnSetMinWidthMethodInfo
ResolveTreeViewColumnMethod "setName" o = Gtk.Buildable.BuildableSetNameMethodInfo
ResolveTreeViewColumnMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTreeViewColumnMethod "setReorderable" o = TreeViewColumnSetReorderableMethodInfo
ResolveTreeViewColumnMethod "setResizable" o = TreeViewColumnSetResizableMethodInfo
ResolveTreeViewColumnMethod "setSizing" o = TreeViewColumnSetSizingMethodInfo
ResolveTreeViewColumnMethod "setSortColumnId" o = TreeViewColumnSetSortColumnIdMethodInfo
ResolveTreeViewColumnMethod "setSortIndicator" o = TreeViewColumnSetSortIndicatorMethodInfo
ResolveTreeViewColumnMethod "setSortOrder" o = TreeViewColumnSetSortOrderMethodInfo
ResolveTreeViewColumnMethod "setSpacing" o = TreeViewColumnSetSpacingMethodInfo
ResolveTreeViewColumnMethod "setTitle" o = TreeViewColumnSetTitleMethodInfo
ResolveTreeViewColumnMethod "setVisible" o = TreeViewColumnSetVisibleMethodInfo
ResolveTreeViewColumnMethod "setWidget" o = TreeViewColumnSetWidgetMethodInfo
ResolveTreeViewColumnMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, O.OverloadedMethod info TreeViewColumn p) => OL.IsLabel t (TreeViewColumn -> 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 ~ ResolveTreeViewColumnMethod t TreeViewColumn, O.OverloadedMethod info TreeViewColumn p, R.HasField t TreeViewColumn p) => R.HasField t TreeViewColumn p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, O.OverloadedMethodInfo info TreeViewColumn) => OL.IsLabel t (O.MethodProxy info TreeViewColumn) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type TreeViewColumnClickedCallback =
IO ()
noTreeViewColumnClickedCallback :: Maybe TreeViewColumnClickedCallback
noTreeViewColumnClickedCallback :: Maybe (IO ())
noTreeViewColumnClickedCallback = Maybe (IO ())
forall a. Maybe a
Nothing
type C_TreeViewColumnClickedCallback =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_TreeViewColumnClickedCallback :: C_TreeViewColumnClickedCallback -> IO (FunPtr C_TreeViewColumnClickedCallback)
genClosure_TreeViewColumnClicked :: MonadIO m => TreeViewColumnClickedCallback -> m (GClosure C_TreeViewColumnClickedCallback)
genClosure_TreeViewColumnClicked :: forall (m :: * -> *).
MonadIO m =>
IO () -> m (GClosure C_TreeViewColumnClickedCallback)
genClosure_TreeViewColumnClicked IO ()
cb = IO (GClosure C_TreeViewColumnClickedCallback)
-> m (GClosure C_TreeViewColumnClickedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewColumnClickedCallback)
-> m (GClosure C_TreeViewColumnClickedCallback))
-> IO (GClosure C_TreeViewColumnClickedCallback)
-> m (GClosure C_TreeViewColumnClickedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnClickedCallback
cb' = IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
cb
C_TreeViewColumnClickedCallback
-> IO (FunPtr C_TreeViewColumnClickedCallback)
mk_TreeViewColumnClickedCallback C_TreeViewColumnClickedCallback
cb' IO (FunPtr C_TreeViewColumnClickedCallback)
-> (FunPtr C_TreeViewColumnClickedCallback
-> IO (GClosure C_TreeViewColumnClickedCallback))
-> IO (GClosure C_TreeViewColumnClickedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewColumnClickedCallback
-> IO (GClosure C_TreeViewColumnClickedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewColumnClickedCallback ::
TreeViewColumnClickedCallback ->
C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback :: IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
onTreeViewColumnClicked :: forall a (m :: * -> *).
(IsTreeViewColumn a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
onTreeViewColumnClicked a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnClickedCallback
cb' = IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
cb
FunPtr C_TreeViewColumnClickedCallback
cb'' <- C_TreeViewColumnClickedCallback
-> IO (FunPtr C_TreeViewColumnClickedCallback)
mk_TreeViewColumnClickedCallback C_TreeViewColumnClickedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"clicked" FunPtr C_TreeViewColumnClickedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
afterTreeViewColumnClicked :: forall a (m :: * -> *).
(IsTreeViewColumn a, MonadIO m) =>
a -> IO () -> m SignalHandlerId
afterTreeViewColumnClicked a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnClickedCallback
cb' = IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
cb
FunPtr C_TreeViewColumnClickedCallback
cb'' <- C_TreeViewColumnClickedCallback
-> IO (FunPtr C_TreeViewColumnClickedCallback)
mk_TreeViewColumnClickedCallback C_TreeViewColumnClickedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"clicked" FunPtr C_TreeViewColumnClickedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClickedSignalInfo
instance SignalInfo TreeViewColumnClickedSignalInfo where
type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewColumnClickedCallback cb
cb'' <- mk_TreeViewColumnClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' connectMode detail
#endif
getTreeViewColumnAlignment :: (MonadIO m, IsTreeViewColumn o) => o -> m Float
getTreeViewColumnAlignment :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Float
getTreeViewColumnAlignment o
obj = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj String
"alignment"
setTreeViewColumnAlignment :: (MonadIO m, IsTreeViewColumn o) => o -> Float -> m ()
setTreeViewColumnAlignment :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Float -> m ()
setTreeViewColumnAlignment o
obj Float
val = IO () -> m ()
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 -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj String
"alignment" Float
val
constructTreeViewColumnAlignment :: (IsTreeViewColumn o, MIO.MonadIO m) => Float -> m (GValueConstruct o)
constructTreeViewColumnAlignment :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Float -> m (GValueConstruct o)
constructTreeViewColumnAlignment Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat String
"alignment" Float
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnAlignmentPropertyInfo
instance AttrInfo TreeViewColumnAlignmentPropertyInfo where
type AttrAllowedOps TreeViewColumnAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnAlignmentPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float
type AttrTransferTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float
type AttrTransferType TreeViewColumnAlignmentPropertyInfo = Float
type AttrGetType TreeViewColumnAlignmentPropertyInfo = Float
type AttrLabel TreeViewColumnAlignmentPropertyInfo = "alignment"
type AttrOrigin TreeViewColumnAlignmentPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnAlignment
attrSet = setTreeViewColumnAlignment
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnAlignment
attrClear = undefined
#endif
getTreeViewColumnCellArea :: (MonadIO m, IsTreeViewColumn o) => o -> m (Maybe Gtk.CellArea.CellArea)
getTreeViewColumnCellArea :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m (Maybe CellArea)
getTreeViewColumnCellArea o
obj = IO (Maybe CellArea) -> m (Maybe CellArea)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe CellArea) -> m (Maybe CellArea))
-> IO (Maybe CellArea) -> m (Maybe CellArea)
forall a b. (a -> b) -> a -> b
$ o
-> String
-> (ManagedPtr CellArea -> CellArea)
-> IO (Maybe CellArea)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"cell-area" ManagedPtr CellArea -> CellArea
Gtk.CellArea.CellArea
constructTreeViewColumnCellArea :: (IsTreeViewColumn o, MIO.MonadIO m, Gtk.CellArea.IsCellArea a) => a -> m (GValueConstruct o)
constructTreeViewColumnCellArea :: forall o (m :: * -> *) a.
(IsTreeViewColumn o, MonadIO m, IsCellArea a) =>
a -> m (GValueConstruct o)
constructTreeViewColumnCellArea a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"cell-area" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellAreaPropertyInfo
instance AttrInfo TreeViewColumnCellAreaPropertyInfo where
type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferTypeConstraint TreeViewColumnCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferType TreeViewColumnCellAreaPropertyInfo = Gtk.CellArea.CellArea
type AttrGetType TreeViewColumnCellAreaPropertyInfo = (Maybe Gtk.CellArea.CellArea)
type AttrLabel TreeViewColumnCellAreaPropertyInfo = "cell-area"
type AttrOrigin TreeViewColumnCellAreaPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnCellArea
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.CellArea.CellArea v
attrConstruct = constructTreeViewColumnCellArea
attrClear = undefined
#endif
getTreeViewColumnClickable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnClickable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Bool
getTreeViewColumnClickable o
obj = IO Bool -> m Bool
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
"clickable"
setTreeViewColumnClickable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnClickable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Bool -> m ()
setTreeViewColumnClickable o
obj Bool
val = IO () -> m ()
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
"clickable" Bool
val
constructTreeViewColumnClickable :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnClickable :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewColumnClickable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"clickable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClickablePropertyInfo
instance AttrInfo TreeViewColumnClickablePropertyInfo where
type AttrAllowedOps TreeViewColumnClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnClickablePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnClickablePropertyInfo = Bool
type AttrGetType TreeViewColumnClickablePropertyInfo = Bool
type AttrLabel TreeViewColumnClickablePropertyInfo = "clickable"
type AttrOrigin TreeViewColumnClickablePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnClickable
attrSet = setTreeViewColumnClickable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnClickable
attrClear = undefined
#endif
getTreeViewColumnExpand :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnExpand :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Bool
getTreeViewColumnExpand o
obj = IO Bool -> m Bool
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"
setTreeViewColumnExpand :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnExpand :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Bool -> m ()
setTreeViewColumnExpand o
obj Bool
val = IO () -> m ()
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
constructTreeViewColumnExpand :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnExpand :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewColumnExpand Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TreeViewColumnExpandPropertyInfo
instance AttrInfo TreeViewColumnExpandPropertyInfo where
type AttrAllowedOps TreeViewColumnExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnExpandPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnExpandPropertyInfo = Bool
type AttrGetType TreeViewColumnExpandPropertyInfo = Bool
type AttrLabel TreeViewColumnExpandPropertyInfo = "expand"
type AttrOrigin TreeViewColumnExpandPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnExpand
attrSet = setTreeViewColumnExpand
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnExpand
attrClear = undefined
#endif
getTreeViewColumnFixedWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnFixedWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Int32
getTreeViewColumnFixedWidth o
obj = IO Int32 -> m Int32
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"
setTreeViewColumnFixedWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnFixedWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Int32 -> m ()
setTreeViewColumnFixedWidth o
obj Int32
val = IO () -> m ()
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
constructTreeViewColumnFixedWidth :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnFixedWidth :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewColumnFixedWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TreeViewColumnFixedWidthPropertyInfo
instance AttrInfo TreeViewColumnFixedWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnFixedWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnFixedWidthPropertyInfo = Int32
type AttrGetType TreeViewColumnFixedWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "fixed-width"
type AttrOrigin TreeViewColumnFixedWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnFixedWidth
attrSet = setTreeViewColumnFixedWidth
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnFixedWidth
attrClear = undefined
#endif
getTreeViewColumnMaxWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnMaxWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Int32
getTreeViewColumnMaxWidth o
obj = IO Int32 -> m Int32
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
"max-width"
setTreeViewColumnMaxWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMaxWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Int32 -> m ()
setTreeViewColumnMaxWidth o
obj Int32
val = IO () -> m ()
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
"max-width" Int32
val
constructTreeViewColumnMaxWidth :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnMaxWidth :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewColumnMaxWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"max-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnMaxWidthPropertyInfo
instance AttrInfo TreeViewColumnMaxWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMaxWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnMaxWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnMaxWidthPropertyInfo = Int32
type AttrGetType TreeViewColumnMaxWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "max-width"
type AttrOrigin TreeViewColumnMaxWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnMaxWidth
attrSet = setTreeViewColumnMaxWidth
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnMaxWidth
attrClear = undefined
#endif
getTreeViewColumnMinWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnMinWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Int32
getTreeViewColumnMinWidth o
obj = IO Int32 -> m Int32
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
"min-width"
setTreeViewColumnMinWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMinWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Int32 -> m ()
setTreeViewColumnMinWidth o
obj Int32
val = IO () -> m ()
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
"min-width" Int32
val
constructTreeViewColumnMinWidth :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnMinWidth :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewColumnMinWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"min-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnMinWidthPropertyInfo
instance AttrInfo TreeViewColumnMinWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMinWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnMinWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnMinWidthPropertyInfo = Int32
type AttrGetType TreeViewColumnMinWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMinWidthPropertyInfo = "min-width"
type AttrOrigin TreeViewColumnMinWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnMinWidth
attrSet = setTreeViewColumnMinWidth
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnMinWidth
attrClear = undefined
#endif
getTreeViewColumnReorderable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnReorderable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Bool
getTreeViewColumnReorderable o
obj = IO Bool -> m Bool
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
"reorderable"
setTreeViewColumnReorderable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnReorderable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Bool -> m ()
setTreeViewColumnReorderable o
obj Bool
val = IO () -> m ()
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
"reorderable" Bool
val
constructTreeViewColumnReorderable :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnReorderable :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewColumnReorderable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"reorderable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnReorderablePropertyInfo
instance AttrInfo TreeViewColumnReorderablePropertyInfo where
type AttrAllowedOps TreeViewColumnReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnReorderablePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnReorderablePropertyInfo = Bool
type AttrGetType TreeViewColumnReorderablePropertyInfo = Bool
type AttrLabel TreeViewColumnReorderablePropertyInfo = "reorderable"
type AttrOrigin TreeViewColumnReorderablePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnReorderable
attrSet = setTreeViewColumnReorderable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnReorderable
attrClear = undefined
#endif
getTreeViewColumnResizable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnResizable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Bool
getTreeViewColumnResizable o
obj = IO Bool -> m Bool
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"
setTreeViewColumnResizable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnResizable :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Bool -> m ()
setTreeViewColumnResizable o
obj Bool
val = IO () -> m ()
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
constructTreeViewColumnResizable :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnResizable :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewColumnResizable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TreeViewColumnResizablePropertyInfo
instance AttrInfo TreeViewColumnResizablePropertyInfo where
type AttrAllowedOps TreeViewColumnResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnResizablePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnResizablePropertyInfo = Bool
type AttrGetType TreeViewColumnResizablePropertyInfo = Bool
type AttrLabel TreeViewColumnResizablePropertyInfo = "resizable"
type AttrOrigin TreeViewColumnResizablePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnResizable
attrSet = setTreeViewColumnResizable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnResizable
attrClear = undefined
#endif
getTreeViewColumnSizing :: (MonadIO m, IsTreeViewColumn o) => o -> m Gtk.Enums.TreeViewColumnSizing
getTreeViewColumnSizing :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m TreeViewColumnSizing
getTreeViewColumnSizing o
obj = IO TreeViewColumnSizing -> m TreeViewColumnSizing
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO TreeViewColumnSizing -> m TreeViewColumnSizing)
-> IO TreeViewColumnSizing -> m TreeViewColumnSizing
forall a b. (a -> b) -> a -> b
$ o -> String -> IO TreeViewColumnSizing
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"sizing"
setTreeViewColumnSizing :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.TreeViewColumnSizing -> m ()
setTreeViewColumnSizing :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> TreeViewColumnSizing -> m ()
setTreeViewColumnSizing o
obj TreeViewColumnSizing
val = IO () -> m ()
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 -> TreeViewColumnSizing -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"sizing" TreeViewColumnSizing
val
constructTreeViewColumnSizing :: (IsTreeViewColumn o, MIO.MonadIO m) => Gtk.Enums.TreeViewColumnSizing -> m (GValueConstruct o)
constructTreeViewColumnSizing :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
TreeViewColumnSizing -> m (GValueConstruct o)
constructTreeViewColumnSizing TreeViewColumnSizing
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> TreeViewColumnSizing -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"sizing" TreeViewColumnSizing
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSizingPropertyInfo
instance AttrInfo TreeViewColumnSizingPropertyInfo where
type AttrAllowedOps TreeViewColumnSizingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSizingPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSizingPropertyInfo = (~) Gtk.Enums.TreeViewColumnSizing
type AttrTransferTypeConstraint TreeViewColumnSizingPropertyInfo = (~) Gtk.Enums.TreeViewColumnSizing
type AttrTransferType TreeViewColumnSizingPropertyInfo = Gtk.Enums.TreeViewColumnSizing
type AttrGetType TreeViewColumnSizingPropertyInfo = Gtk.Enums.TreeViewColumnSizing
type AttrLabel TreeViewColumnSizingPropertyInfo = "sizing"
type AttrOrigin TreeViewColumnSizingPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSizing
attrSet = setTreeViewColumnSizing
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSizing
attrClear = undefined
#endif
getTreeViewColumnSortColumnId :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnSortColumnId :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Int32
getTreeViewColumnSortColumnId o
obj = IO Int32 -> m Int32
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
"sort-column-id"
setTreeViewColumnSortColumnId :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSortColumnId :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Int32 -> m ()
setTreeViewColumnSortColumnId o
obj Int32
val = IO () -> m ()
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
"sort-column-id" Int32
val
constructTreeViewColumnSortColumnId :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnSortColumnId :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewColumnSortColumnId Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"sort-column-id" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSortColumnIdPropertyInfo
instance AttrInfo TreeViewColumnSortColumnIdPropertyInfo where
type AttrAllowedOps TreeViewColumnSortColumnIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnSortColumnIdPropertyInfo = Int32
type AttrGetType TreeViewColumnSortColumnIdPropertyInfo = Int32
type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "sort-column-id"
type AttrOrigin TreeViewColumnSortColumnIdPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSortColumnId
attrSet = setTreeViewColumnSortColumnId
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSortColumnId
attrClear = undefined
#endif
getTreeViewColumnSortIndicator :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnSortIndicator :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Bool
getTreeViewColumnSortIndicator o
obj = IO Bool -> m Bool
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
"sort-indicator"
setTreeViewColumnSortIndicator :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnSortIndicator :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Bool -> m ()
setTreeViewColumnSortIndicator o
obj Bool
val = IO () -> m ()
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
"sort-indicator" Bool
val
constructTreeViewColumnSortIndicator :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnSortIndicator :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewColumnSortIndicator Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"sort-indicator" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSortIndicatorPropertyInfo
instance AttrInfo TreeViewColumnSortIndicatorPropertyInfo where
type AttrAllowedOps TreeViewColumnSortIndicatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnSortIndicatorPropertyInfo = Bool
type AttrGetType TreeViewColumnSortIndicatorPropertyInfo = Bool
type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "sort-indicator"
type AttrOrigin TreeViewColumnSortIndicatorPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSortIndicator
attrSet = setTreeViewColumnSortIndicator
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSortIndicator
attrClear = undefined
#endif
getTreeViewColumnSortOrder :: (MonadIO m, IsTreeViewColumn o) => o -> m Gtk.Enums.SortType
getTreeViewColumnSortOrder :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m SortType
getTreeViewColumnSortOrder o
obj = IO SortType -> m SortType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO SortType -> m SortType) -> IO SortType -> m SortType
forall a b. (a -> b) -> a -> b
$ o -> String -> IO SortType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj String
"sort-order"
setTreeViewColumnSortOrder :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.SortType -> m ()
setTreeViewColumnSortOrder :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> SortType -> m ()
setTreeViewColumnSortOrder o
obj SortType
val = IO () -> m ()
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 -> SortType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj String
"sort-order" SortType
val
constructTreeViewColumnSortOrder :: (IsTreeViewColumn o, MIO.MonadIO m) => Gtk.Enums.SortType -> m (GValueConstruct o)
constructTreeViewColumnSortOrder :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
SortType -> m (GValueConstruct o)
constructTreeViewColumnSortOrder SortType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 -> SortType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"sort-order" SortType
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSortOrderPropertyInfo
instance AttrInfo TreeViewColumnSortOrderPropertyInfo where
type AttrAllowedOps TreeViewColumnSortOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSortOrderPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) Gtk.Enums.SortType
type AttrTransferTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) Gtk.Enums.SortType
type AttrTransferType TreeViewColumnSortOrderPropertyInfo = Gtk.Enums.SortType
type AttrGetType TreeViewColumnSortOrderPropertyInfo = Gtk.Enums.SortType
type AttrLabel TreeViewColumnSortOrderPropertyInfo = "sort-order"
type AttrOrigin TreeViewColumnSortOrderPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSortOrder
attrSet = setTreeViewColumnSortOrder
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSortOrder
attrClear = undefined
#endif
getTreeViewColumnSpacing :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Int32
getTreeViewColumnSpacing o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj String
"spacing"
setTreeViewColumnSpacing :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSpacing :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Int32 -> m ()
setTreeViewColumnSpacing o
obj Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj String
"spacing" Int32
val
constructTreeViewColumnSpacing :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnSpacing :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Int32 -> m (GValueConstruct o)
constructTreeViewColumnSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSpacingPropertyInfo
instance AttrInfo TreeViewColumnSpacingPropertyInfo where
type AttrAllowedOps TreeViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSpacingPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnSpacingPropertyInfo = Int32
type AttrGetType TreeViewColumnSpacingPropertyInfo = Int32
type AttrLabel TreeViewColumnSpacingPropertyInfo = "spacing"
type AttrOrigin TreeViewColumnSpacingPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSpacing
attrSet = setTreeViewColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSpacing
attrClear = undefined
#endif
getTreeViewColumnTitle :: (MonadIO m, IsTreeViewColumn o) => o -> m T.Text
getTreeViewColumnTitle :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Text
getTreeViewColumnTitle o
obj = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getTreeViewColumnTitle" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO 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"
setTreeViewColumnTitle :: (MonadIO m, IsTreeViewColumn o) => o -> T.Text -> m ()
setTreeViewColumnTitle :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Text -> m ()
setTreeViewColumnTitle o
obj Text
val = IO () -> m ()
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)
constructTreeViewColumnTitle :: (IsTreeViewColumn o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTreeViewColumnTitle :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructTreeViewColumnTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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)
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnTitlePropertyInfo
instance AttrInfo TreeViewColumnTitlePropertyInfo where
type AttrAllowedOps TreeViewColumnTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnTitlePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text
type AttrTransferType TreeViewColumnTitlePropertyInfo = T.Text
type AttrGetType TreeViewColumnTitlePropertyInfo = T.Text
type AttrLabel TreeViewColumnTitlePropertyInfo = "title"
type AttrOrigin TreeViewColumnTitlePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnTitle
attrSet = setTreeViewColumnTitle
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnTitle
attrClear = undefined
#endif
getTreeViewColumnVisible :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnVisible :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Bool
getTreeViewColumnVisible o
obj = IO Bool -> m Bool
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"
setTreeViewColumnVisible :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnVisible :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> Bool -> m ()
setTreeViewColumnVisible o
obj Bool
val = IO () -> m ()
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
constructTreeViewColumnVisible :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnVisible :: forall o (m :: * -> *).
(IsTreeViewColumn o, MonadIO m) =>
Bool -> m (GValueConstruct o)
constructTreeViewColumnVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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 TreeViewColumnVisiblePropertyInfo
instance AttrInfo TreeViewColumnVisiblePropertyInfo where
type AttrAllowedOps TreeViewColumnVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnVisiblePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnVisiblePropertyInfo = Bool
type AttrGetType TreeViewColumnVisiblePropertyInfo = Bool
type AttrLabel TreeViewColumnVisiblePropertyInfo = "visible"
type AttrOrigin TreeViewColumnVisiblePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnVisible
attrSet = setTreeViewColumnVisible
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnVisible
attrClear = undefined
#endif
getTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o) => o -> m (Maybe Gtk.Widget.Widget)
getTreeViewColumnWidget :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m (Maybe Widget)
getTreeViewColumnWidget o
obj = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ o -> String -> (ManagedPtr Widget -> Widget) -> IO (Maybe Widget)
forall a b.
(GObject a, GObject b) =>
a -> String -> (ManagedPtr b -> b) -> IO (Maybe b)
B.Properties.getObjectPropertyObject o
obj String
"widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setTreeViewColumnWidget :: forall (m :: * -> *) o a.
(MonadIO m, IsTreeViewColumn o, IsWidget a) =>
o -> a -> m ()
setTreeViewColumnWidget o
obj a
val = IO () -> m ()
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
"widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewColumnWidget :: (IsTreeViewColumn o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructTreeViewColumnWidget :: forall o (m :: * -> *) a.
(IsTreeViewColumn o, MonadIO m, IsWidget a) =>
a -> m (GValueConstruct o)
constructTreeViewColumnWidget a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
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 (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
"widget" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o) => o -> m ()
clearTreeViewColumnWidget :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m ()
clearTreeViewColumnWidget o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"widget" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnWidgetPropertyInfo
instance AttrInfo TreeViewColumnWidgetPropertyInfo where
type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint TreeViewColumnWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType TreeViewColumnWidgetPropertyInfo = Gtk.Widget.Widget
type AttrGetType TreeViewColumnWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel TreeViewColumnWidgetPropertyInfo = "widget"
type AttrOrigin TreeViewColumnWidgetPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnWidget
attrSet = setTreeViewColumnWidget
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructTreeViewColumnWidget
attrClear = clearTreeViewColumnWidget
#endif
getTreeViewColumnWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnWidth :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Int32
getTreeViewColumnWidth o
obj = IO Int32 -> m Int32
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
"width"
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnWidthPropertyInfo
instance AttrInfo TreeViewColumnWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnWidthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnWidthPropertyInfo = (~) ()
type AttrTransferTypeConstraint TreeViewColumnWidthPropertyInfo = (~) ()
type AttrTransferType TreeViewColumnWidthPropertyInfo = ()
type AttrGetType TreeViewColumnWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnWidthPropertyInfo = "width"
type AttrOrigin TreeViewColumnWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnWidth
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getTreeViewColumnXOffset :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnXOffset :: forall (m :: * -> *) o.
(MonadIO m, IsTreeViewColumn o) =>
o -> m Int32
getTreeViewColumnXOffset o
obj = IO Int32 -> m Int32
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
"x-offset"
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnXOffsetPropertyInfo
instance AttrInfo TreeViewColumnXOffsetPropertyInfo where
type AttrAllowedOps TreeViewColumnXOffsetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnXOffsetPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) ()
type AttrTransferTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) ()
type AttrTransferType TreeViewColumnXOffsetPropertyInfo = ()
type AttrGetType TreeViewColumnXOffsetPropertyInfo = Int32
type AttrLabel TreeViewColumnXOffsetPropertyInfo = "x-offset"
type AttrOrigin TreeViewColumnXOffsetPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnXOffset
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TreeViewColumn
type instance O.AttributeList TreeViewColumn = TreeViewColumnAttributeList
type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cellArea", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixedWidth", TreeViewColumnFixedWidthPropertyInfo), '("maxWidth", TreeViewColumnMaxWidthPropertyInfo), '("minWidth", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sortColumnId", TreeViewColumnSortColumnIdPropertyInfo), '("sortIndicator", TreeViewColumnSortIndicatorPropertyInfo), '("sortOrder", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("xOffset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
treeViewColumnAlignment :: AttrLabelProxy "alignment"
treeViewColumnAlignment = AttrLabelProxy
treeViewColumnCellArea :: AttrLabelProxy "cellArea"
treeViewColumnCellArea = AttrLabelProxy
treeViewColumnClickable :: AttrLabelProxy "clickable"
treeViewColumnClickable = AttrLabelProxy
treeViewColumnExpand :: AttrLabelProxy "expand"
treeViewColumnExpand = AttrLabelProxy
treeViewColumnFixedWidth :: AttrLabelProxy "fixedWidth"
treeViewColumnFixedWidth = AttrLabelProxy
treeViewColumnMaxWidth :: AttrLabelProxy "maxWidth"
treeViewColumnMaxWidth = AttrLabelProxy
treeViewColumnMinWidth :: AttrLabelProxy "minWidth"
treeViewColumnMinWidth = AttrLabelProxy
treeViewColumnReorderable :: AttrLabelProxy "reorderable"
treeViewColumnReorderable = AttrLabelProxy
treeViewColumnResizable :: AttrLabelProxy "resizable"
treeViewColumnResizable = AttrLabelProxy
treeViewColumnSizing :: AttrLabelProxy "sizing"
treeViewColumnSizing = AttrLabelProxy
treeViewColumnSortColumnId :: AttrLabelProxy "sortColumnId"
treeViewColumnSortColumnId = AttrLabelProxy
treeViewColumnSortIndicator :: AttrLabelProxy "sortIndicator"
treeViewColumnSortIndicator = AttrLabelProxy
treeViewColumnSortOrder :: AttrLabelProxy "sortOrder"
treeViewColumnSortOrder = AttrLabelProxy
treeViewColumnSpacing :: AttrLabelProxy "spacing"
treeViewColumnSpacing = AttrLabelProxy
treeViewColumnTitle :: AttrLabelProxy "title"
treeViewColumnTitle = AttrLabelProxy
treeViewColumnVisible :: AttrLabelProxy "visible"
treeViewColumnVisible = AttrLabelProxy
treeViewColumnWidget :: AttrLabelProxy "widget"
treeViewColumnWidget = AttrLabelProxy
treeViewColumnWidth :: AttrLabelProxy "width"
treeViewColumnWidth = AttrLabelProxy
treeViewColumnXOffset :: AttrLabelProxy "xOffset"
treeViewColumnXOffset = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TreeViewColumn = TreeViewColumnSignalList
type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_tree_view_column_new" gtk_tree_view_column_new ::
IO (Ptr TreeViewColumn)
treeViewColumnNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TreeViewColumn
treeViewColumnNew :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m TreeViewColumn
treeViewColumnNew = IO TreeViewColumn -> m TreeViewColumn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeViewColumn -> m TreeViewColumn)
-> IO TreeViewColumn -> m TreeViewColumn
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
result <- IO (Ptr TreeViewColumn)
gtk_tree_view_column_new
Text -> Ptr TreeViewColumn -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnNew" Ptr TreeViewColumn
result
TreeViewColumn
result' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn) Ptr TreeViewColumn
result
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_tree_view_column_new_with_area" gtk_tree_view_column_new_with_area ::
Ptr Gtk.CellArea.CellArea ->
IO (Ptr TreeViewColumn)
treeViewColumnNewWithArea ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellArea.IsCellArea a) =>
a
-> m TreeViewColumn
treeViewColumnNewWithArea :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsCellArea a) =>
a -> m TreeViewColumn
treeViewColumnNewWithArea a
area = IO TreeViewColumn -> m TreeViewColumn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeViewColumn -> m TreeViewColumn)
-> IO TreeViewColumn -> m TreeViewColumn
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr TreeViewColumn
result <- Ptr CellArea -> IO (Ptr TreeViewColumn)
gtk_tree_view_column_new_with_area Ptr CellArea
area'
Text -> Ptr TreeViewColumn -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnNewWithArea" Ptr TreeViewColumn
result
TreeViewColumn
result' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn) Ptr TreeViewColumn
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_tree_view_column_add_attribute" gtk_tree_view_column_add_attribute ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Int32 ->
IO ()
treeViewColumnAddAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> Int32
-> m ()
treeViewColumnAddAttribute :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b) =>
a -> b -> Text -> Int32 -> m ()
treeViewColumnAddAttribute a
treeColumn b
cellRenderer Text
attribute Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
CString
attribute' <- Text -> IO CString
textToCString Text
attribute
Ptr TreeViewColumn -> Ptr CellRenderer -> CString -> Int32 -> IO ()
gtk_tree_view_column_add_attribute Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cellRenderer' CString
attribute' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cellRenderer
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
attribute'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnAddAttributeMethodInfo
instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewColumnAddAttributeMethodInfo a signature where
overloadedMethod = treeViewColumnAddAttribute
instance O.OverloadedMethodInfo TreeViewColumnAddAttributeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnAddAttribute",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnAddAttribute"
}
#endif
foreign import ccall "gtk_tree_view_column_cell_get_position" gtk_tree_view_column_cell_get_position ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
Ptr Int32 ->
Ptr Int32 ->
IO CInt
treeViewColumnCellGetPosition ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ((Bool, Int32, Int32))
treeViewColumnCellGetPosition :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b) =>
a -> b -> m (Bool, Int32, Int32)
treeViewColumnCellGetPosition a
treeColumn b
cellRenderer = IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32))
-> IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
Ptr Int32
xOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr TreeViewColumn
-> Ptr CellRenderer -> Ptr Int32 -> Ptr Int32 -> IO CInt
gtk_tree_view_column_cell_get_position Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cellRenderer' Ptr Int32
xOffset Ptr Int32
width
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Int32
xOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xOffset
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cellRenderer
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
(Bool, Int32, Int32) -> IO (Bool, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
xOffset', Int32
width')
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellGetPositionMethodInfo
instance (signature ~ (b -> m ((Bool, Int32, Int32))), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewColumnCellGetPositionMethodInfo a signature where
overloadedMethod = treeViewColumnCellGetPosition
instance O.OverloadedMethodInfo TreeViewColumnCellGetPositionMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnCellGetPosition",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnCellGetPosition"
}
#endif
foreign import ccall "gtk_tree_view_column_cell_get_size" gtk_tree_view_column_cell_get_size ::
Ptr TreeViewColumn ->
Ptr Gdk.Rectangle.Rectangle ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
Ptr Int32 ->
IO ()
treeViewColumnCellGetSize ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Maybe (Gdk.Rectangle.Rectangle)
-> m ((Int32, Int32, Int32, Int32))
treeViewColumnCellGetSize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Maybe Rectangle -> m (Int32, Int32, Int32, Int32)
treeViewColumnCellGetSize a
treeColumn Maybe Rectangle
cellArea = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Rectangle
maybeCellArea <- case Maybe Rectangle
cellArea of
Maybe Rectangle
Nothing -> Ptr Rectangle -> IO (Ptr Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Rectangle
forall a. Ptr a
nullPtr
Just Rectangle
jCellArea -> do
Ptr Rectangle
jCellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
jCellArea
Ptr Rectangle -> IO (Ptr Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Rectangle
jCellArea'
Ptr Int32
xOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
yOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeViewColumn
-> Ptr Rectangle
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_tree_view_column_cell_get_size Ptr TreeViewColumn
treeColumn' Ptr Rectangle
maybeCellArea Ptr Int32
xOffset Ptr Int32
yOffset Ptr Int32
width Ptr Int32
height
Int32
xOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xOffset
Int32
yOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
yOffset
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Maybe Rectangle -> (Rectangle -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Rectangle
cellArea Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
yOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
xOffset', Int32
yOffset', Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellGetSizeMethodInfo
instance (signature ~ (Maybe (Gdk.Rectangle.Rectangle) -> m ((Int32, Int32, Int32, Int32))), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnCellGetSizeMethodInfo a signature where
overloadedMethod = treeViewColumnCellGetSize
instance O.OverloadedMethodInfo TreeViewColumnCellGetSizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnCellGetSize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnCellGetSize"
}
#endif
foreign import ccall "gtk_tree_view_column_cell_is_visible" gtk_tree_view_column_cell_is_visible ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnCellIsVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnCellIsVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Bool
treeViewColumnCellIsVisible a
treeColumn = IO Bool -> m Bool
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 TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_cell_is_visible Ptr TreeViewColumn
treeColumn'
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
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnCellIsVisibleMethodInfo a signature where
overloadedMethod = treeViewColumnCellIsVisible
instance O.OverloadedMethodInfo TreeViewColumnCellIsVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnCellIsVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnCellIsVisible"
}
#endif
foreign import ccall "gtk_tree_view_column_cell_set_cell_data" gtk_tree_view_column_cell_set_cell_data ::
Ptr TreeViewColumn ->
Ptr Gtk.TreeModel.TreeModel ->
Ptr Gtk.TreeIter.TreeIter ->
CInt ->
CInt ->
IO ()
treeViewColumnCellSetCellData ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.TreeModel.IsTreeModel b) =>
a
-> b
-> Gtk.TreeIter.TreeIter
-> Bool
-> Bool
-> m ()
treeViewColumnCellSetCellData :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsTreeModel b) =>
a -> b -> TreeIter -> Bool -> Bool -> m ()
treeViewColumnCellSetCellData a
treeColumn b
treeModel TreeIter
iter Bool
isExpander Bool
isExpanded = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeModel
treeModel' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
treeModel
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
let isExpander' :: CInt
isExpander' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isExpander
let isExpanded' :: CInt
isExpanded' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isExpanded
Ptr TreeViewColumn
-> Ptr TreeModel -> Ptr TreeIter -> CInt -> CInt -> IO ()
gtk_tree_view_column_cell_set_cell_data Ptr TreeViewColumn
treeColumn' Ptr TreeModel
treeModel' Ptr TreeIter
iter' CInt
isExpander' CInt
isExpanded'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
treeModel
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellSetCellDataMethodInfo
instance (signature ~ (b -> Gtk.TreeIter.TreeIter -> Bool -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.TreeModel.IsTreeModel b) => O.OverloadedMethod TreeViewColumnCellSetCellDataMethodInfo a signature where
overloadedMethod = treeViewColumnCellSetCellData
instance O.OverloadedMethodInfo TreeViewColumnCellSetCellDataMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnCellSetCellData",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnCellSetCellData"
}
#endif
foreign import ccall "gtk_tree_view_column_clear" gtk_tree_view_column_clear ::
Ptr TreeViewColumn ->
IO ()
treeViewColumnClear ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m ()
treeViewColumnClear :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m ()
treeViewColumnClear a
treeColumn = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> IO ()
gtk_tree_view_column_clear Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClearMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnClearMethodInfo a signature where
overloadedMethod = treeViewColumnClear
instance O.OverloadedMethodInfo TreeViewColumnClearMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnClear",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnClear"
}
#endif
foreign import ccall "gtk_tree_view_column_clear_attributes" gtk_tree_view_column_clear_attributes ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
treeViewColumnClearAttributes ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ()
treeViewColumnClearAttributes :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b) =>
a -> b -> m ()
treeViewColumnClearAttributes a
treeColumn b
cellRenderer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
Ptr TreeViewColumn -> Ptr CellRenderer -> IO ()
gtk_tree_view_column_clear_attributes Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cellRenderer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cellRenderer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClearAttributesMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewColumnClearAttributesMethodInfo a signature where
overloadedMethod = treeViewColumnClearAttributes
instance O.OverloadedMethodInfo TreeViewColumnClearAttributesMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnClearAttributes",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnClearAttributes"
}
#endif
foreign import ccall "gtk_tree_view_column_clicked" gtk_tree_view_column_clicked ::
Ptr TreeViewColumn ->
IO ()
treeViewColumnClicked ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m ()
treeViewColumnClicked :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m ()
treeViewColumnClicked a
treeColumn = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> IO ()
gtk_tree_view_column_clicked Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClickedMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnClickedMethodInfo a signature where
overloadedMethod = treeViewColumnClicked
instance O.OverloadedMethodInfo TreeViewColumnClickedMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnClicked",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnClicked"
}
#endif
foreign import ccall "gtk_tree_view_column_focus_cell" gtk_tree_view_column_focus_cell ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
IO ()
treeViewColumnFocusCell ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> m ()
treeViewColumnFocusCell :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b) =>
a -> b -> m ()
treeViewColumnFocusCell a
treeColumn b
cell = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr TreeViewColumn -> Ptr CellRenderer -> IO ()
gtk_tree_view_column_focus_cell Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnFocusCellMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewColumnFocusCellMethodInfo a signature where
overloadedMethod = treeViewColumnFocusCell
instance O.OverloadedMethodInfo TreeViewColumnFocusCellMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnFocusCell",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnFocusCell"
}
#endif
foreign import ccall "gtk_tree_view_column_get_alignment" gtk_tree_view_column_get_alignment ::
Ptr TreeViewColumn ->
IO CFloat
treeViewColumnGetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Float
treeViewColumnGetAlignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Float
treeViewColumnGetAlignment a
treeColumn = IO Float -> m Float
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Float -> m Float) -> IO Float -> m Float
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CFloat
result <- Ptr TreeViewColumn -> IO CFloat
gtk_tree_view_column_get_alignment Ptr TreeViewColumn
treeColumn'
let result' :: Float
result' = CFloat -> Float
forall a b. (Real a, Fractional b) => a -> b
realToFrac CFloat
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Float -> IO Float
forall (m :: * -> *) a. Monad m => a -> m a
return Float
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetAlignmentMethodInfo
instance (signature ~ (m Float), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetAlignmentMethodInfo a signature where
overloadedMethod = treeViewColumnGetAlignment
instance O.OverloadedMethodInfo TreeViewColumnGetAlignmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetAlignment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetAlignment"
}
#endif
foreign import ccall "gtk_tree_view_column_get_button" gtk_tree_view_column_get_button ::
Ptr TreeViewColumn ->
IO (Ptr Gtk.Widget.Widget)
treeViewColumnGetButton ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Gtk.Widget.Widget
treeViewColumnGetButton :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Widget
treeViewColumnGetButton a
treeColumn = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Widget
result <- Ptr TreeViewColumn -> IO (Ptr Widget)
gtk_tree_view_column_get_button Ptr TreeViewColumn
treeColumn'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnGetButton" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetButtonMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetButtonMethodInfo a signature where
overloadedMethod = treeViewColumnGetButton
instance O.OverloadedMethodInfo TreeViewColumnGetButtonMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetButton",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetButton"
}
#endif
foreign import ccall "gtk_tree_view_column_get_clickable" gtk_tree_view_column_get_clickable ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetClickable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Bool
treeViewColumnGetClickable a
treeColumn = IO Bool -> m Bool
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 TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_clickable Ptr TreeViewColumn
treeColumn'
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
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetClickableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetClickableMethodInfo a signature where
overloadedMethod = treeViewColumnGetClickable
instance O.OverloadedMethodInfo TreeViewColumnGetClickableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetClickable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetClickable"
}
#endif
foreign import ccall "gtk_tree_view_column_get_expand" gtk_tree_view_column_get_expand ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Bool
treeViewColumnGetExpand a
treeColumn = IO Bool -> m Bool
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 TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_expand Ptr TreeViewColumn
treeColumn'
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
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetExpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetExpandMethodInfo a signature where
overloadedMethod = treeViewColumnGetExpand
instance O.OverloadedMethodInfo TreeViewColumnGetExpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetExpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetExpand"
}
#endif
foreign import ccall "gtk_tree_view_column_get_fixed_width" gtk_tree_view_column_get_fixed_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetFixedWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Int32
treeViewColumnGetFixedWidth a
treeColumn = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Int32
result <- Ptr TreeViewColumn -> IO Int32
gtk_tree_view_column_get_fixed_width Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetFixedWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetFixedWidthMethodInfo a signature where
overloadedMethod = treeViewColumnGetFixedWidth
instance O.OverloadedMethodInfo TreeViewColumnGetFixedWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetFixedWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetFixedWidth"
}
#endif
foreign import ccall "gtk_tree_view_column_get_max_width" gtk_tree_view_column_get_max_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetMaxWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetMaxWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Int32
treeViewColumnGetMaxWidth a
treeColumn = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Int32
result <- Ptr TreeViewColumn -> IO Int32
gtk_tree_view_column_get_max_width Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetMaxWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetMaxWidthMethodInfo a signature where
overloadedMethod = treeViewColumnGetMaxWidth
instance O.OverloadedMethodInfo TreeViewColumnGetMaxWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetMaxWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetMaxWidth"
}
#endif
foreign import ccall "gtk_tree_view_column_get_min_width" gtk_tree_view_column_get_min_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetMinWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetMinWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Int32
treeViewColumnGetMinWidth a
treeColumn = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Int32
result <- Ptr TreeViewColumn -> IO Int32
gtk_tree_view_column_get_min_width Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetMinWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetMinWidthMethodInfo a signature where
overloadedMethod = treeViewColumnGetMinWidth
instance O.OverloadedMethodInfo TreeViewColumnGetMinWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetMinWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetMinWidth"
}
#endif
foreign import ccall "gtk_tree_view_column_get_reorderable" gtk_tree_view_column_get_reorderable ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Bool
treeViewColumnGetReorderable a
treeColumn = IO Bool -> m Bool
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 TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_reorderable Ptr TreeViewColumn
treeColumn'
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
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetReorderableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetReorderableMethodInfo a signature where
overloadedMethod = treeViewColumnGetReorderable
instance O.OverloadedMethodInfo TreeViewColumnGetReorderableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetReorderable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetReorderable"
}
#endif
foreign import ccall "gtk_tree_view_column_get_resizable" gtk_tree_view_column_get_resizable ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Bool
treeViewColumnGetResizable a
treeColumn = IO Bool -> m Bool
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 TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_resizable Ptr TreeViewColumn
treeColumn'
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
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetResizableMethodInfo a signature where
overloadedMethod = treeViewColumnGetResizable
instance O.OverloadedMethodInfo TreeViewColumnGetResizableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetResizable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetResizable"
}
#endif
foreign import ccall "gtk_tree_view_column_get_sizing" gtk_tree_view_column_get_sizing ::
Ptr TreeViewColumn ->
IO CUInt
treeViewColumnGetSizing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Gtk.Enums.TreeViewColumnSizing
treeViewColumnGetSizing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m TreeViewColumnSizing
treeViewColumnGetSizing a
treeColumn = IO TreeViewColumnSizing -> m TreeViewColumnSizing
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeViewColumnSizing -> m TreeViewColumnSizing)
-> IO TreeViewColumnSizing -> m TreeViewColumnSizing
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CUInt
result <- Ptr TreeViewColumn -> IO CUInt
gtk_tree_view_column_get_sizing Ptr TreeViewColumn
treeColumn'
let result' :: TreeViewColumnSizing
result' = (Int -> TreeViewColumnSizing
forall a. Enum a => Int -> a
toEnum (Int -> TreeViewColumnSizing)
-> (CUInt -> Int) -> CUInt -> TreeViewColumnSizing
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
TreeViewColumnSizing -> IO TreeViewColumnSizing
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumnSizing
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetSizingMethodInfo
instance (signature ~ (m Gtk.Enums.TreeViewColumnSizing), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetSizingMethodInfo a signature where
overloadedMethod = treeViewColumnGetSizing
instance O.OverloadedMethodInfo TreeViewColumnGetSizingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetSizing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetSizing"
}
#endif
foreign import ccall "gtk_tree_view_column_get_sort_column_id" gtk_tree_view_column_get_sort_column_id ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetSortColumnId ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetSortColumnId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Int32
treeViewColumnGetSortColumnId a
treeColumn = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Int32
result <- Ptr TreeViewColumn -> IO Int32
gtk_tree_view_column_get_sort_column_id Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetSortColumnIdMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetSortColumnIdMethodInfo a signature where
overloadedMethod = treeViewColumnGetSortColumnId
instance O.OverloadedMethodInfo TreeViewColumnGetSortColumnIdMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetSortColumnId",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetSortColumnId"
}
#endif
foreign import ccall "gtk_tree_view_column_get_sort_indicator" gtk_tree_view_column_get_sort_indicator ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetSortIndicator ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetSortIndicator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Bool
treeViewColumnGetSortIndicator a
treeColumn = IO Bool -> m Bool
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 TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_sort_indicator Ptr TreeViewColumn
treeColumn'
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
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetSortIndicatorMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetSortIndicatorMethodInfo a signature where
overloadedMethod = treeViewColumnGetSortIndicator
instance O.OverloadedMethodInfo TreeViewColumnGetSortIndicatorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetSortIndicator",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetSortIndicator"
}
#endif
foreign import ccall "gtk_tree_view_column_get_sort_order" gtk_tree_view_column_get_sort_order ::
Ptr TreeViewColumn ->
IO CUInt
treeViewColumnGetSortOrder ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Gtk.Enums.SortType
treeViewColumnGetSortOrder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m SortType
treeViewColumnGetSortOrder a
treeColumn = IO SortType -> m SortType
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SortType -> m SortType) -> IO SortType -> m SortType
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CUInt
result <- Ptr TreeViewColumn -> IO CUInt
gtk_tree_view_column_get_sort_order Ptr TreeViewColumn
treeColumn'
let result' :: SortType
result' = (Int -> SortType
forall a. Enum a => Int -> a
toEnum (Int -> SortType) -> (CUInt -> Int) -> CUInt -> SortType
forall b c a. (b -> c) -> (a -> b) -> a -> c
. CUInt -> Int
forall a b. (Integral a, Num b) => a -> b
fromIntegral) CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
SortType -> IO SortType
forall (m :: * -> *) a. Monad m => a -> m a
return SortType
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetSortOrderMethodInfo
instance (signature ~ (m Gtk.Enums.SortType), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetSortOrderMethodInfo a signature where
overloadedMethod = treeViewColumnGetSortOrder
instance O.OverloadedMethodInfo TreeViewColumnGetSortOrderMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetSortOrder",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetSortOrder"
}
#endif
foreign import ccall "gtk_tree_view_column_get_spacing" gtk_tree_view_column_get_spacing ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Int32
treeViewColumnGetSpacing a
treeColumn = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Int32
result <- Ptr TreeViewColumn -> IO Int32
gtk_tree_view_column_get_spacing Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetSpacingMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetSpacingMethodInfo a signature where
overloadedMethod = treeViewColumnGetSpacing
instance O.OverloadedMethodInfo TreeViewColumnGetSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetSpacing"
}
#endif
foreign import ccall "gtk_tree_view_column_get_title" gtk_tree_view_column_get_title ::
Ptr TreeViewColumn ->
IO CString
treeViewColumnGetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m T.Text
treeViewColumnGetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Text
treeViewColumnGetTitle a
treeColumn = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CString
result <- Ptr TreeViewColumn -> IO CString
gtk_tree_view_column_get_title Ptr TreeViewColumn
treeColumn'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetTitleMethodInfo a signature where
overloadedMethod = treeViewColumnGetTitle
instance O.OverloadedMethodInfo TreeViewColumnGetTitleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetTitle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetTitle"
}
#endif
foreign import ccall "gtk_tree_view_column_get_tree_view" gtk_tree_view_column_get_tree_view ::
Ptr TreeViewColumn ->
IO (Ptr Gtk.Widget.Widget)
treeViewColumnGetTreeView ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m (Maybe Gtk.Widget.Widget)
treeViewColumnGetTreeView :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m (Maybe Widget)
treeViewColumnGetTreeView a
treeColumn = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Widget
result <- Ptr TreeViewColumn -> IO (Ptr Widget)
gtk_tree_view_column_get_tree_view Ptr TreeViewColumn
treeColumn'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetTreeViewMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetTreeViewMethodInfo a signature where
overloadedMethod = treeViewColumnGetTreeView
instance O.OverloadedMethodInfo TreeViewColumnGetTreeViewMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetTreeView",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetTreeView"
}
#endif
foreign import ccall "gtk_tree_view_column_get_visible" gtk_tree_view_column_get_visible ::
Ptr TreeViewColumn ->
IO CInt
treeViewColumnGetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Bool
treeViewColumnGetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Bool
treeViewColumnGetVisible a
treeColumn = IO Bool -> m Bool
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 TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_visible Ptr TreeViewColumn
treeColumn'
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
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetVisibleMethodInfo a signature where
overloadedMethod = treeViewColumnGetVisible
instance O.OverloadedMethodInfo TreeViewColumnGetVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetVisible"
}
#endif
foreign import ccall "gtk_tree_view_column_get_widget" gtk_tree_view_column_get_widget ::
Ptr TreeViewColumn ->
IO (Ptr Gtk.Widget.Widget)
treeViewColumnGetWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m (Maybe Gtk.Widget.Widget)
treeViewColumnGetWidget :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m (Maybe Widget)
treeViewColumnGetWidget a
treeColumn = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Widget
result <- Ptr TreeViewColumn -> IO (Ptr Widget)
gtk_tree_view_column_get_widget Ptr TreeViewColumn
treeColumn'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetWidgetMethodInfo a signature where
overloadedMethod = treeViewColumnGetWidget
instance O.OverloadedMethodInfo TreeViewColumnGetWidgetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetWidget",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetWidget"
}
#endif
foreign import ccall "gtk_tree_view_column_get_width" gtk_tree_view_column_get_width ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Int32
treeViewColumnGetWidth a
treeColumn = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Int32
result <- Ptr TreeViewColumn -> IO Int32
gtk_tree_view_column_get_width Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetWidthMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetWidthMethodInfo a signature where
overloadedMethod = treeViewColumnGetWidth
instance O.OverloadedMethodInfo TreeViewColumnGetWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetWidth"
}
#endif
foreign import ccall "gtk_tree_view_column_get_x_offset" gtk_tree_view_column_get_x_offset ::
Ptr TreeViewColumn ->
IO Int32
treeViewColumnGetXOffset ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m Int32
treeViewColumnGetXOffset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m Int32
treeViewColumnGetXOffset a
treeColumn = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Int32
result <- Ptr TreeViewColumn -> IO Int32
gtk_tree_view_column_get_x_offset Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetXOffsetMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnGetXOffsetMethodInfo a signature where
overloadedMethod = treeViewColumnGetXOffset
instance O.OverloadedMethodInfo TreeViewColumnGetXOffsetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnGetXOffset",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnGetXOffset"
}
#endif
foreign import ccall "gtk_tree_view_column_pack_end" gtk_tree_view_column_pack_end ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
IO ()
treeViewColumnPackEnd ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Bool
-> m ()
treeViewColumnPackEnd :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b) =>
a -> b -> Bool -> m ()
treeViewColumnPackEnd a
treeColumn b
cell Bool
expand = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
let expand' :: CInt
expand' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
expand
Ptr TreeViewColumn -> Ptr CellRenderer -> CInt -> IO ()
gtk_tree_view_column_pack_end Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cell' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnPackEndMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewColumnPackEndMethodInfo a signature where
overloadedMethod = treeViewColumnPackEnd
instance O.OverloadedMethodInfo TreeViewColumnPackEndMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnPackEnd",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnPackEnd"
}
#endif
foreign import ccall "gtk_tree_view_column_pack_start" gtk_tree_view_column_pack_start ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CInt ->
IO ()
treeViewColumnPackStart ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Bool
-> m ()
treeViewColumnPackStart :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b) =>
a -> b -> Bool -> m ()
treeViewColumnPackStart a
treeColumn b
cell Bool
expand = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
let expand' :: CInt
expand' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
expand
Ptr TreeViewColumn -> Ptr CellRenderer -> CInt -> IO ()
gtk_tree_view_column_pack_start Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cell' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnPackStartMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewColumnPackStartMethodInfo a signature where
overloadedMethod = treeViewColumnPackStart
instance O.OverloadedMethodInfo TreeViewColumnPackStartMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnPackStart",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnPackStart"
}
#endif
foreign import ccall "gtk_tree_view_column_queue_resize" gtk_tree_view_column_queue_resize ::
Ptr TreeViewColumn ->
IO ()
treeViewColumnQueueResize ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> m ()
treeViewColumnQueueResize :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> m ()
treeViewColumnQueueResize a
treeColumn = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> IO ()
gtk_tree_view_column_queue_resize Ptr TreeViewColumn
treeColumn'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnQueueResizeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnQueueResizeMethodInfo a signature where
overloadedMethod = treeViewColumnQueueResize
instance O.OverloadedMethodInfo TreeViewColumnQueueResizeMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnQueueResize",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnQueueResize"
}
#endif
foreign import ccall "gtk_tree_view_column_set_alignment" gtk_tree_view_column_set_alignment ::
Ptr TreeViewColumn ->
CFloat ->
IO ()
treeViewColumnSetAlignment ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Float
-> m ()
treeViewColumnSetAlignment :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Float -> m ()
treeViewColumnSetAlignment a
treeColumn Float
xalign = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
Ptr TreeViewColumn -> CFloat -> IO ()
gtk_tree_view_column_set_alignment Ptr TreeViewColumn
treeColumn' CFloat
xalign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetAlignmentMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetAlignmentMethodInfo a signature where
overloadedMethod = treeViewColumnSetAlignment
instance O.OverloadedMethodInfo TreeViewColumnSetAlignmentMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetAlignment",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetAlignment"
}
#endif
foreign import ccall "gtk_tree_view_column_set_cell_data_func" gtk_tree_view_column_set_cell_data_func ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
FunPtr Gtk.Callbacks.C_TreeCellDataFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
treeViewColumnSetCellDataFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> Maybe (Gtk.Callbacks.TreeCellDataFunc)
-> m ()
treeViewColumnSetCellDataFunc :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsCellRenderer b) =>
a -> b -> Maybe TreeCellDataFunc -> m ()
treeViewColumnSetCellDataFunc a
treeColumn b
cellRenderer Maybe TreeCellDataFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
FunPtr C_TreeCellDataFunc
maybeFunc <- case Maybe TreeCellDataFunc
func of
Maybe TreeCellDataFunc
Nothing -> FunPtr C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TreeCellDataFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just TreeCellDataFunc
jFunc -> do
FunPtr C_TreeCellDataFunc
jFunc' <- C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
Gtk.Callbacks.mk_TreeCellDataFunc (Maybe (Ptr (FunPtr C_TreeCellDataFunc))
-> TreeCellDataFunc_WithClosures -> C_TreeCellDataFunc
Gtk.Callbacks.wrap_TreeCellDataFunc Maybe (Ptr (FunPtr C_TreeCellDataFunc))
forall a. Maybe a
Nothing (TreeCellDataFunc -> TreeCellDataFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeCellDataFunc TreeCellDataFunc
jFunc))
FunPtr C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeCellDataFunc
jFunc'
let funcData :: Ptr ()
funcData = FunPtr C_TreeCellDataFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeCellDataFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
SP.safeFreeFunPtrPtr
Ptr TreeViewColumn
-> Ptr CellRenderer
-> FunPtr C_TreeCellDataFunc
-> Ptr ()
-> FunPtr C_DestroyNotify
-> IO ()
gtk_tree_view_column_set_cell_data_func Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cellRenderer' FunPtr C_TreeCellDataFunc
maybeFunc Ptr ()
funcData FunPtr C_DestroyNotify
forall a. FunPtr (Ptr a -> IO ())
destroy
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cellRenderer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetCellDataFuncMethodInfo
instance (signature ~ (b -> Maybe (Gtk.Callbacks.TreeCellDataFunc) -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.OverloadedMethod TreeViewColumnSetCellDataFuncMethodInfo a signature where
overloadedMethod = treeViewColumnSetCellDataFunc
instance O.OverloadedMethodInfo TreeViewColumnSetCellDataFuncMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetCellDataFunc",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetCellDataFunc"
}
#endif
foreign import ccall "gtk_tree_view_column_set_clickable" gtk_tree_view_column_set_clickable ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetClickable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetClickable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Bool -> m ()
treeViewColumnSetClickable a
treeColumn Bool
clickable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let clickable' :: CInt
clickable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
clickable
Ptr TreeViewColumn -> CInt -> IO ()
gtk_tree_view_column_set_clickable Ptr TreeViewColumn
treeColumn' CInt
clickable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetClickableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetClickableMethodInfo a signature where
overloadedMethod = treeViewColumnSetClickable
instance O.OverloadedMethodInfo TreeViewColumnSetClickableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetClickable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetClickable"
}
#endif
foreign import ccall "gtk_tree_view_column_set_expand" gtk_tree_view_column_set_expand ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetExpand ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetExpand :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Bool -> m ()
treeViewColumnSetExpand a
treeColumn Bool
expand = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let expand' :: CInt
expand' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
expand
Ptr TreeViewColumn -> CInt -> IO ()
gtk_tree_view_column_set_expand Ptr TreeViewColumn
treeColumn' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetExpandMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetExpandMethodInfo a signature where
overloadedMethod = treeViewColumnSetExpand
instance O.OverloadedMethodInfo TreeViewColumnSetExpandMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetExpand",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetExpand"
}
#endif
foreign import ccall "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetFixedWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetFixedWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Int32 -> m ()
treeViewColumnSetFixedWidth a
treeColumn Int32
fixedWidth = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> Int32 -> IO ()
gtk_tree_view_column_set_fixed_width Ptr TreeViewColumn
treeColumn' Int32
fixedWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetFixedWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetFixedWidthMethodInfo a signature where
overloadedMethod = treeViewColumnSetFixedWidth
instance O.OverloadedMethodInfo TreeViewColumnSetFixedWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetFixedWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetFixedWidth"
}
#endif
foreign import ccall "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetMaxWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetMaxWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Int32 -> m ()
treeViewColumnSetMaxWidth a
treeColumn Int32
maxWidth = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> Int32 -> IO ()
gtk_tree_view_column_set_max_width Ptr TreeViewColumn
treeColumn' Int32
maxWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetMaxWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetMaxWidthMethodInfo a signature where
overloadedMethod = treeViewColumnSetMaxWidth
instance O.OverloadedMethodInfo TreeViewColumnSetMaxWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetMaxWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetMaxWidth"
}
#endif
foreign import ccall "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetMinWidth ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetMinWidth :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Int32 -> m ()
treeViewColumnSetMinWidth a
treeColumn Int32
minWidth = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> Int32 -> IO ()
gtk_tree_view_column_set_min_width Ptr TreeViewColumn
treeColumn' Int32
minWidth
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetMinWidthMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetMinWidthMethodInfo a signature where
overloadedMethod = treeViewColumnSetMinWidth
instance O.OverloadedMethodInfo TreeViewColumnSetMinWidthMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetMinWidth",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetMinWidth"
}
#endif
foreign import ccall "gtk_tree_view_column_set_reorderable" gtk_tree_view_column_set_reorderable ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetReorderable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetReorderable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Bool -> m ()
treeViewColumnSetReorderable a
treeColumn Bool
reorderable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let reorderable' :: CInt
reorderable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
reorderable
Ptr TreeViewColumn -> CInt -> IO ()
gtk_tree_view_column_set_reorderable Ptr TreeViewColumn
treeColumn' CInt
reorderable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetReorderableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetReorderableMethodInfo a signature where
overloadedMethod = treeViewColumnSetReorderable
instance O.OverloadedMethodInfo TreeViewColumnSetReorderableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetReorderable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetReorderable"
}
#endif
foreign import ccall "gtk_tree_view_column_set_resizable" gtk_tree_view_column_set_resizable ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetResizable ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetResizable :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Bool -> m ()
treeViewColumnSetResizable a
treeColumn Bool
resizable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let resizable' :: CInt
resizable' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
resizable
Ptr TreeViewColumn -> CInt -> IO ()
gtk_tree_view_column_set_resizable Ptr TreeViewColumn
treeColumn' CInt
resizable'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetResizableMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetResizableMethodInfo a signature where
overloadedMethod = treeViewColumnSetResizable
instance O.OverloadedMethodInfo TreeViewColumnSetResizableMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetResizable",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetResizable"
}
#endif
foreign import ccall "gtk_tree_view_column_set_sizing" gtk_tree_view_column_set_sizing ::
Ptr TreeViewColumn ->
CUInt ->
IO ()
treeViewColumnSetSizing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Gtk.Enums.TreeViewColumnSizing
-> m ()
treeViewColumnSetSizing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> TreeViewColumnSizing -> m ()
treeViewColumnSetSizing a
treeColumn TreeViewColumnSizing
type_ = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let type_' :: CUInt
type_' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt)
-> (TreeViewColumnSizing -> Int) -> TreeViewColumnSizing -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. TreeViewColumnSizing -> Int
forall a. Enum a => a -> Int
fromEnum) TreeViewColumnSizing
type_
Ptr TreeViewColumn -> CUInt -> IO ()
gtk_tree_view_column_set_sizing Ptr TreeViewColumn
treeColumn' CUInt
type_'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetSizingMethodInfo
instance (signature ~ (Gtk.Enums.TreeViewColumnSizing -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetSizingMethodInfo a signature where
overloadedMethod = treeViewColumnSetSizing
instance O.OverloadedMethodInfo TreeViewColumnSetSizingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetSizing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetSizing"
}
#endif
foreign import ccall "gtk_tree_view_column_set_sort_column_id" gtk_tree_view_column_set_sort_column_id ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetSortColumnId ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetSortColumnId :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Int32 -> m ()
treeViewColumnSetSortColumnId a
treeColumn Int32
sortColumnId = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> Int32 -> IO ()
gtk_tree_view_column_set_sort_column_id Ptr TreeViewColumn
treeColumn' Int32
sortColumnId
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetSortColumnIdMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetSortColumnIdMethodInfo a signature where
overloadedMethod = treeViewColumnSetSortColumnId
instance O.OverloadedMethodInfo TreeViewColumnSetSortColumnIdMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetSortColumnId",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetSortColumnId"
}
#endif
foreign import ccall "gtk_tree_view_column_set_sort_indicator" gtk_tree_view_column_set_sort_indicator ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetSortIndicator ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetSortIndicator :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Bool -> m ()
treeViewColumnSetSortIndicator a
treeColumn Bool
setting = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let setting' :: CInt
setting' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
setting
Ptr TreeViewColumn -> CInt -> IO ()
gtk_tree_view_column_set_sort_indicator Ptr TreeViewColumn
treeColumn' CInt
setting'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetSortIndicatorMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetSortIndicatorMethodInfo a signature where
overloadedMethod = treeViewColumnSetSortIndicator
instance O.OverloadedMethodInfo TreeViewColumnSetSortIndicatorMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetSortIndicator",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetSortIndicator"
}
#endif
foreign import ccall "gtk_tree_view_column_set_sort_order" gtk_tree_view_column_set_sort_order ::
Ptr TreeViewColumn ->
CUInt ->
IO ()
treeViewColumnSetSortOrder ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Gtk.Enums.SortType
-> m ()
treeViewColumnSetSortOrder :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> SortType -> m ()
treeViewColumnSetSortOrder a
treeColumn SortType
order = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let order' :: CUInt
order' = (Int -> CUInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CUInt) -> (SortType -> Int) -> SortType -> CUInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. SortType -> Int
forall a. Enum a => a -> Int
fromEnum) SortType
order
Ptr TreeViewColumn -> CUInt -> IO ()
gtk_tree_view_column_set_sort_order Ptr TreeViewColumn
treeColumn' CUInt
order'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetSortOrderMethodInfo
instance (signature ~ (Gtk.Enums.SortType -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetSortOrderMethodInfo a signature where
overloadedMethod = treeViewColumnSetSortOrder
instance O.OverloadedMethodInfo TreeViewColumnSetSortOrderMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetSortOrder",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetSortOrder"
}
#endif
foreign import ccall "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing ::
Ptr TreeViewColumn ->
Int32 ->
IO ()
treeViewColumnSetSpacing ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Int32
-> m ()
treeViewColumnSetSpacing :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Int32 -> m ()
treeViewColumnSetSpacing a
treeColumn Int32
spacing = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeViewColumn -> Int32 -> IO ()
gtk_tree_view_column_set_spacing Ptr TreeViewColumn
treeColumn' Int32
spacing
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetSpacingMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetSpacingMethodInfo a signature where
overloadedMethod = treeViewColumnSetSpacing
instance O.OverloadedMethodInfo TreeViewColumnSetSpacingMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetSpacing",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetSpacing"
}
#endif
foreign import ccall "gtk_tree_view_column_set_title" gtk_tree_view_column_set_title ::
Ptr TreeViewColumn ->
CString ->
IO ()
treeViewColumnSetTitle ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> T.Text
-> m ()
treeViewColumnSetTitle :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Text -> m ()
treeViewColumnSetTitle a
treeColumn Text
title = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CString
title' <- Text -> IO CString
textToCString Text
title
Ptr TreeViewColumn -> CString -> IO ()
gtk_tree_view_column_set_title Ptr TreeViewColumn
treeColumn' CString
title'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
title'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetTitleMethodInfo
instance (signature ~ (T.Text -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetTitleMethodInfo a signature where
overloadedMethod = treeViewColumnSetTitle
instance O.OverloadedMethodInfo TreeViewColumnSetTitleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetTitle",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetTitle"
}
#endif
foreign import ccall "gtk_tree_view_column_set_visible" gtk_tree_view_column_set_visible ::
Ptr TreeViewColumn ->
CInt ->
IO ()
treeViewColumnSetVisible ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a
-> Bool
-> m ()
treeViewColumnSetVisible :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsTreeViewColumn a) =>
a -> Bool -> m ()
treeViewColumnSetVisible a
treeColumn Bool
visible = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let visible' :: CInt
visible' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
visible
Ptr TreeViewColumn -> CInt -> IO ()
gtk_tree_view_column_set_visible Ptr TreeViewColumn
treeColumn' CInt
visible'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetVisibleMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsTreeViewColumn a) => O.OverloadedMethod TreeViewColumnSetVisibleMethodInfo a signature where
overloadedMethod = treeViewColumnSetVisible
instance O.OverloadedMethodInfo TreeViewColumnSetVisibleMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetVisible",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetVisible"
}
#endif
foreign import ccall "gtk_tree_view_column_set_widget" gtk_tree_view_column_set_widget ::
Ptr TreeViewColumn ->
Ptr Gtk.Widget.Widget ->
IO ()
treeViewColumnSetWidget ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.Widget.IsWidget b) =>
a
-> Maybe (b)
-> m ()
treeViewColumnSetWidget :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsTreeViewColumn a, IsWidget b) =>
a -> Maybe b -> m ()
treeViewColumnSetWidget a
treeColumn Maybe b
widget = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Widget
maybeWidget <- case Maybe b
widget of
Maybe b
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just b
jWidget -> do
Ptr Widget
jWidget' <- b -> IO (Ptr Widget)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
jWidget
Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
jWidget'
Ptr TreeViewColumn -> Ptr Widget -> IO ()
gtk_tree_view_column_set_widget Ptr TreeViewColumn
treeColumn' Ptr Widget
maybeWidget
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Maybe b -> (b -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe b
widget b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetWidgetMethodInfo
instance (signature ~ (Maybe (b) -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.Widget.IsWidget b) => O.OverloadedMethod TreeViewColumnSetWidgetMethodInfo a signature where
overloadedMethod = treeViewColumnSetWidget
instance O.OverloadedMethodInfo TreeViewColumnSetWidgetMethodInfo a where
overloadedMethodInfo = O.MethodInfo {
O.overloadedMethodName = "GI.Gtk.Objects.TreeViewColumn.treeViewColumnSetWidget",
O.overloadedMethodURL = "https://hackage.haskell.org/package/gi-gtk-3.0.37/docs/GI-Gtk-Objects-TreeViewColumn.html#v:treeViewColumnSetWidget"
}
#endif