{-# 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 ,
noTreeViewColumn ,
#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.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.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 (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)
foreign import ccall "gtk_tree_view_column_get_type"
c_gtk_tree_view_column_get_type :: IO GType
instance GObject TreeViewColumn where
gobjectType :: IO GType
gobjectType = IO GType
c_gtk_tree_view_column_get_type
instance B.GValue.IsGValue TreeViewColumn where
toGValue :: TreeViewColumn -> IO GValue
toGValue o :: TreeViewColumn
o = do
GType
gtype <- IO GType
c_gtk_tree_view_column_get_type
TreeViewColumn -> (Ptr TreeViewColumn -> IO GValue) -> IO GValue
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr TreeViewColumn
o (GType
-> (GValue -> Ptr TreeViewColumn -> IO ())
-> Ptr TreeViewColumn
-> IO GValue
forall a. GType -> (GValue -> a -> IO ()) -> a -> IO GValue
B.GValue.buildGValue GType
gtype GValue -> Ptr TreeViewColumn -> IO ()
forall a. GObject a => GValue -> Ptr a -> IO ()
B.GValue.set_object)
fromGValue :: GValue -> IO TreeViewColumn
fromGValue gv :: GValue
gv = do
Ptr TreeViewColumn
ptr <- GValue -> IO (Ptr TreeViewColumn)
forall b. GObject b => GValue -> IO (Ptr b)
B.GValue.get_object GValue
gv :: IO (Ptr TreeViewColumn)
(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
class (GObject o, O.IsDescendantOf TreeViewColumn o) => IsTreeViewColumn o
instance (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 :: (MonadIO m, IsTreeViewColumn o) => o -> m TreeViewColumn
toTreeViewColumn :: o -> m TreeViewColumn
toTreeViewColumn = IO TreeViewColumn -> m TreeViewColumn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn
noTreeViewColumn :: Maybe TreeViewColumn
noTreeViewColumn :: Maybe TreeViewColumn
noTreeViewColumn = Maybe TreeViewColumn
forall a. Maybe a
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.MethodInfo 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
#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 :: IO () -> m (GClosure C_TreeViewColumnClickedCallback)
genClosure_TreeViewColumnClicked cb :: 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 _cb :: IO ()
_cb _ _ = do
IO ()
_cb
onTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
onTreeViewColumnClicked :: a -> IO () -> m SignalHandlerId
onTreeViewColumnClicked obj :: a
obj cb :: 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 "clicked" FunPtr C_TreeViewColumnClickedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
afterTreeViewColumnClicked :: a -> IO () -> m SignalHandlerId
afterTreeViewColumnClicked obj :: a
obj cb :: 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 "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 :: o -> m Float
getTreeViewColumnAlignment obj :: o
obj = 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
$ o -> String -> IO Float
forall a. GObject a => a -> String -> IO Float
B.Properties.getObjectPropertyFloat o
obj "alignment"
setTreeViewColumnAlignment :: (MonadIO m, IsTreeViewColumn o) => o -> Float -> m ()
setTreeViewColumnAlignment :: o -> Float -> m ()
setTreeViewColumnAlignment obj :: o
obj val :: Float
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Float -> IO ()
forall a. GObject a => a -> String -> Float -> IO ()
B.Properties.setObjectPropertyFloat o
obj "alignment" Float
val
constructTreeViewColumnAlignment :: (IsTreeViewColumn o) => Float -> IO (GValueConstruct o)
constructTreeViewColumnAlignment :: Float -> IO (GValueConstruct o)
constructTreeViewColumnAlignment val :: Float
val = String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat "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 :: o -> m (Maybe CellArea)
getTreeViewColumnCellArea obj :: o
obj = IO (Maybe CellArea) -> m (Maybe CellArea)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
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 "cell-area" ManagedPtr CellArea -> CellArea
Gtk.CellArea.CellArea
constructTreeViewColumnCellArea :: (IsTreeViewColumn o, Gtk.CellArea.IsCellArea a) => a -> IO (GValueConstruct o)
constructTreeViewColumnCellArea :: a -> IO (GValueConstruct o)
constructTreeViewColumnCellArea val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "cell-area" (a -> Maybe a
forall a. a -> Maybe a
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 :: o -> m Bool
getTreeViewColumnClickable obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "clickable"
setTreeViewColumnClickable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnClickable :: o -> Bool -> m ()
setTreeViewColumnClickable obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "clickable" Bool
val
constructTreeViewColumnClickable :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnClickable :: Bool -> IO (GValueConstruct o)
constructTreeViewColumnClickable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getTreeViewColumnExpand obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "expand"
setTreeViewColumnExpand :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnExpand :: o -> Bool -> m ()
setTreeViewColumnExpand obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "expand" Bool
val
constructTreeViewColumnExpand :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnExpand :: Bool -> IO (GValueConstruct o)
constructTreeViewColumnExpand val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Int32
getTreeViewColumnFixedWidth obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "fixed-width"
setTreeViewColumnFixedWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnFixedWidth :: o -> Int32 -> m ()
setTreeViewColumnFixedWidth obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "fixed-width" Int32
val
constructTreeViewColumnFixedWidth :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnFixedWidth :: Int32 -> IO (GValueConstruct o)
constructTreeViewColumnFixedWidth val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Int32
getTreeViewColumnMaxWidth obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "max-width"
setTreeViewColumnMaxWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMaxWidth :: o -> Int32 -> m ()
setTreeViewColumnMaxWidth obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "max-width" Int32
val
constructTreeViewColumnMaxWidth :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnMaxWidth :: Int32 -> IO (GValueConstruct o)
constructTreeViewColumnMaxWidth val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Int32
getTreeViewColumnMinWidth obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "min-width"
setTreeViewColumnMinWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMinWidth :: o -> Int32 -> m ()
setTreeViewColumnMinWidth obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "min-width" Int32
val
constructTreeViewColumnMinWidth :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnMinWidth :: Int32 -> IO (GValueConstruct o)
constructTreeViewColumnMinWidth val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Bool
getTreeViewColumnReorderable obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "reorderable"
setTreeViewColumnReorderable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnReorderable :: o -> Bool -> m ()
setTreeViewColumnReorderable obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "reorderable" Bool
val
constructTreeViewColumnReorderable :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnReorderable :: Bool -> IO (GValueConstruct o)
constructTreeViewColumnReorderable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m Bool
getTreeViewColumnResizable obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "resizable"
setTreeViewColumnResizable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnResizable :: o -> Bool -> m ()
setTreeViewColumnResizable obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "resizable" Bool
val
constructTreeViewColumnResizable :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnResizable :: Bool -> IO (GValueConstruct o)
constructTreeViewColumnResizable val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m TreeViewColumnSizing
getTreeViewColumnSizing obj :: o
obj = 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
$ o -> String -> IO TreeViewColumnSizing
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "sizing"
setTreeViewColumnSizing :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.TreeViewColumnSizing -> m ()
setTreeViewColumnSizing :: o -> TreeViewColumnSizing -> m ()
setTreeViewColumnSizing obj :: o
obj val :: TreeViewColumnSizing
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> TreeViewColumnSizing -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "sizing" TreeViewColumnSizing
val
constructTreeViewColumnSizing :: (IsTreeViewColumn o) => Gtk.Enums.TreeViewColumnSizing -> IO (GValueConstruct o)
constructTreeViewColumnSizing :: TreeViewColumnSizing -> IO (GValueConstruct o)
constructTreeViewColumnSizing val :: TreeViewColumnSizing
val = String -> TreeViewColumnSizing -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m Int32
getTreeViewColumnSortColumnId obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "sort-column-id"
setTreeViewColumnSortColumnId :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSortColumnId :: o -> Int32 -> m ()
setTreeViewColumnSortColumnId obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "sort-column-id" Int32
val
constructTreeViewColumnSortColumnId :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnSortColumnId :: Int32 -> IO (GValueConstruct o)
constructTreeViewColumnSortColumnId val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Bool
getTreeViewColumnSortIndicator obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "sort-indicator"
setTreeViewColumnSortIndicator :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnSortIndicator :: o -> Bool -> m ()
setTreeViewColumnSortIndicator obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "sort-indicator" Bool
val
constructTreeViewColumnSortIndicator :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnSortIndicator :: Bool -> IO (GValueConstruct o)
constructTreeViewColumnSortIndicator val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m SortType
getTreeViewColumnSortOrder obj :: o
obj = 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
$ o -> String -> IO SortType
forall a b. (GObject a, Enum b, BoxedEnum b) => a -> String -> IO b
B.Properties.getObjectPropertyEnum o
obj "sort-order"
setTreeViewColumnSortOrder :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.SortType -> m ()
setTreeViewColumnSortOrder :: o -> SortType -> m ()
setTreeViewColumnSortOrder obj :: o
obj val :: SortType
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> SortType -> IO ()
forall a b.
(GObject a, Enum b, BoxedEnum b) =>
a -> String -> b -> IO ()
B.Properties.setObjectPropertyEnum o
obj "sort-order" SortType
val
constructTreeViewColumnSortOrder :: (IsTreeViewColumn o) => Gtk.Enums.SortType -> IO (GValueConstruct o)
constructTreeViewColumnSortOrder :: SortType -> IO (GValueConstruct o)
constructTreeViewColumnSortOrder val :: SortType
val = String -> SortType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum "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 :: o -> m Int32
getTreeViewColumnSpacing obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "spacing"
setTreeViewColumnSpacing :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSpacing :: o -> Int32 -> m ()
setTreeViewColumnSpacing obj :: o
obj val :: Int32
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Int32 -> IO ()
forall a. GObject a => a -> String -> Int32 -> IO ()
B.Properties.setObjectPropertyInt32 o
obj "spacing" Int32
val
constructTreeViewColumnSpacing :: (IsTreeViewColumn o) => Int32 -> IO (GValueConstruct o)
constructTreeViewColumnSpacing :: Int32 -> IO (GValueConstruct o)
constructTreeViewColumnSpacing val :: Int32
val = String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 "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 :: o -> m Text
getTreeViewColumnTitle obj :: o
obj = 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
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing "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 "title"
setTreeViewColumnTitle :: (MonadIO m, IsTreeViewColumn o) => o -> T.Text -> m ()
setTreeViewColumnTitle :: o -> Text -> m ()
setTreeViewColumnTitle obj :: o
obj val :: Text
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj "title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTreeViewColumnTitle :: (IsTreeViewColumn o) => T.Text -> IO (GValueConstruct o)
constructTreeViewColumnTitle :: Text -> IO (GValueConstruct o)
constructTreeViewColumnTitle val :: Text
val = String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString "title" (Text -> Maybe Text
forall a. a -> Maybe a
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 :: o -> m Bool
getTreeViewColumnVisible obj :: o
obj = 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
$ o -> String -> IO Bool
forall a. GObject a => a -> String -> IO Bool
B.Properties.getObjectPropertyBool o
obj "visible"
setTreeViewColumnVisible :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnVisible :: o -> Bool -> m ()
setTreeViewColumnVisible obj :: o
obj val :: Bool
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Bool -> IO ()
forall a. GObject a => a -> String -> Bool -> IO ()
B.Properties.setObjectPropertyBool o
obj "visible" Bool
val
constructTreeViewColumnVisible :: (IsTreeViewColumn o) => Bool -> IO (GValueConstruct o)
constructTreeViewColumnVisible :: Bool -> IO (GValueConstruct o)
constructTreeViewColumnVisible val :: Bool
val = String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool "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 :: o -> m (Maybe Widget)
getTreeViewColumnWidget obj :: o
obj = 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
$ 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 "widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setTreeViewColumnWidget :: o -> a -> m ()
setTreeViewColumnWidget obj :: o
obj val :: a
val = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe a -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj "widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewColumnWidget :: (IsTreeViewColumn o, Gtk.Widget.IsWidget a) => a -> IO (GValueConstruct o)
constructTreeViewColumnWidget :: a -> IO (GValueConstruct o)
constructTreeViewColumnWidget val :: a
val = String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject "widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
clearTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o) => o -> m ()
clearTreeViewColumnWidget :: o -> m ()
clearTreeViewColumnWidget obj :: 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 "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 :: o -> m Int32
getTreeViewColumnWidth obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "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 :: o -> m Int32
getTreeViewColumnXOffset obj :: o
obj = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ o -> String -> IO Int32
forall a. GObject a => a -> String -> IO Int32
B.Properties.getObjectPropertyInt32 o
obj "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 :: 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 "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 :: a -> m TreeViewColumn
treeViewColumnNewWithArea area :: 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 "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 :: a -> b -> Text -> Int32 -> m ()
treeViewColumnAddAttribute treeColumn :: a
treeColumn cellRenderer :: b
cellRenderer attribute :: Text
attribute column :: 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.MethodInfo TreeViewColumnAddAttributeMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m (Bool, Int32, Int32)
treeViewColumnCellGetPosition treeColumn :: a
treeColumn cellRenderer :: 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
/= 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.MethodInfo TreeViewColumnCellGetPositionMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe Rectangle -> m (Int32, Int32, Int32, Int32)
treeViewColumnCellGetSize treeColumn :: a
treeColumn cellArea :: 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
Nothing -> Ptr Rectangle -> IO (Ptr Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Rectangle
forall a. Ptr a
nullPtr
Just jCellArea :: 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.MethodInfo TreeViewColumnCellGetSizeMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
treeViewColumnCellIsVisible treeColumn :: 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
/= 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.MethodInfo TreeViewColumnCellIsVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> TreeIter -> Bool -> Bool -> m ()
treeViewColumnCellSetCellData treeColumn :: a
treeColumn treeModel :: b
treeModel iter :: TreeIter
iter isExpander :: Bool
isExpander isExpanded :: 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.MethodInfo TreeViewColumnCellSetCellDataMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
treeViewColumnClear treeColumn :: 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.MethodInfo TreeViewColumnClearMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
treeViewColumnClearAttributes treeColumn :: a
treeColumn cellRenderer :: 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.MethodInfo TreeViewColumnClearAttributesMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
treeViewColumnClicked treeColumn :: 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.MethodInfo TreeViewColumnClickedMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> m ()
treeViewColumnFocusCell treeColumn :: a
treeColumn cell :: 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.MethodInfo TreeViewColumnFocusCellMethodInfo a signature where
overloadedMethod = 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 :: a -> m Float
treeViewColumnGetAlignment treeColumn :: 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.MethodInfo TreeViewColumnGetAlignmentMethodInfo a signature where
overloadedMethod = 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 :: a -> m Widget
treeViewColumnGetButton treeColumn :: 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 "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.MethodInfo TreeViewColumnGetButtonMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
treeViewColumnGetClickable treeColumn :: 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
/= 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.MethodInfo TreeViewColumnGetClickableMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
treeViewColumnGetExpand treeColumn :: 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
/= 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.MethodInfo TreeViewColumnGetExpandMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
treeViewColumnGetFixedWidth treeColumn :: 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.MethodInfo TreeViewColumnGetFixedWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
treeViewColumnGetMaxWidth treeColumn :: 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.MethodInfo TreeViewColumnGetMaxWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
treeViewColumnGetMinWidth treeColumn :: 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.MethodInfo TreeViewColumnGetMinWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
treeViewColumnGetReorderable treeColumn :: 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
/= 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.MethodInfo TreeViewColumnGetReorderableMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
treeViewColumnGetResizable treeColumn :: 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
/= 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.MethodInfo TreeViewColumnGetResizableMethodInfo a signature where
overloadedMethod = 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 :: a -> m TreeViewColumnSizing
treeViewColumnGetSizing treeColumn :: 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.MethodInfo TreeViewColumnGetSizingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
treeViewColumnGetSortColumnId treeColumn :: 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.MethodInfo TreeViewColumnGetSortColumnIdMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
treeViewColumnGetSortIndicator treeColumn :: 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
/= 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.MethodInfo TreeViewColumnGetSortIndicatorMethodInfo a signature where
overloadedMethod = 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 :: a -> m SortType
treeViewColumnGetSortOrder treeColumn :: 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.MethodInfo TreeViewColumnGetSortOrderMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
treeViewColumnGetSpacing treeColumn :: 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.MethodInfo TreeViewColumnGetSpacingMethodInfo a signature where
overloadedMethod = 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 :: a -> m Text
treeViewColumnGetTitle treeColumn :: 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 "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.MethodInfo TreeViewColumnGetTitleMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
treeViewColumnGetTreeView treeColumn :: 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
$ \result' :: 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.MethodInfo TreeViewColumnGetTreeViewMethodInfo a signature where
overloadedMethod = 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 :: a -> m Bool
treeViewColumnGetVisible treeColumn :: 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
/= 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.MethodInfo TreeViewColumnGetVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> m (Maybe Widget)
treeViewColumnGetWidget treeColumn :: 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
$ \result' :: 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.MethodInfo TreeViewColumnGetWidgetMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
treeViewColumnGetWidth treeColumn :: 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.MethodInfo TreeViewColumnGetWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> m Int32
treeViewColumnGetXOffset treeColumn :: 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.MethodInfo TreeViewColumnGetXOffsetMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Bool -> m ()
treeViewColumnPackEnd treeColumn :: a
treeColumn cell :: b
cell expand :: 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.MethodInfo TreeViewColumnPackEndMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Bool -> m ()
treeViewColumnPackStart treeColumn :: a
treeColumn cell :: b
cell expand :: 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.MethodInfo TreeViewColumnPackStartMethodInfo a signature where
overloadedMethod = 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 :: a -> m ()
treeViewColumnQueueResize treeColumn :: 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.MethodInfo TreeViewColumnQueueResizeMethodInfo a signature where
overloadedMethod = 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 :: a -> Float -> m ()
treeViewColumnSetAlignment treeColumn :: a
treeColumn xalign :: 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.MethodInfo TreeViewColumnSetAlignmentMethodInfo a signature where
overloadedMethod = 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 :: a -> b -> Maybe TreeCellDataFunc -> m ()
treeViewColumnSetCellDataFunc treeColumn :: a
treeColumn cellRenderer :: b
cellRenderer func :: 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
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 jFunc :: 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 ())
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.MethodInfo TreeViewColumnSetCellDataFuncMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
treeViewColumnSetClickable treeColumn :: a
treeColumn clickable :: 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.MethodInfo TreeViewColumnSetClickableMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
treeViewColumnSetExpand treeColumn :: a
treeColumn expand :: 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.MethodInfo TreeViewColumnSetExpandMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
treeViewColumnSetFixedWidth treeColumn :: a
treeColumn fixedWidth :: 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.MethodInfo TreeViewColumnSetFixedWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
treeViewColumnSetMaxWidth treeColumn :: a
treeColumn maxWidth :: 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.MethodInfo TreeViewColumnSetMaxWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
treeViewColumnSetMinWidth treeColumn :: a
treeColumn minWidth :: 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.MethodInfo TreeViewColumnSetMinWidthMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
treeViewColumnSetReorderable treeColumn :: a
treeColumn reorderable :: 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.MethodInfo TreeViewColumnSetReorderableMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
treeViewColumnSetResizable treeColumn :: a
treeColumn resizable :: 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.MethodInfo TreeViewColumnSetResizableMethodInfo a signature where
overloadedMethod = 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 :: a -> TreeViewColumnSizing -> m ()
treeViewColumnSetSizing treeColumn :: a
treeColumn type_ :: 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.MethodInfo TreeViewColumnSetSizingMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
treeViewColumnSetSortColumnId treeColumn :: a
treeColumn sortColumnId :: 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.MethodInfo TreeViewColumnSetSortColumnIdMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
treeViewColumnSetSortIndicator treeColumn :: a
treeColumn setting :: 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.MethodInfo TreeViewColumnSetSortIndicatorMethodInfo a signature where
overloadedMethod = 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 :: a -> SortType -> m ()
treeViewColumnSetSortOrder treeColumn :: a
treeColumn order :: 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.MethodInfo TreeViewColumnSetSortOrderMethodInfo a signature where
overloadedMethod = 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 :: a -> Int32 -> m ()
treeViewColumnSetSpacing treeColumn :: a
treeColumn spacing :: 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.MethodInfo TreeViewColumnSetSpacingMethodInfo a signature where
overloadedMethod = 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 :: a -> Text -> m ()
treeViewColumnSetTitle treeColumn :: a
treeColumn title :: 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.MethodInfo TreeViewColumnSetTitleMethodInfo a signature where
overloadedMethod = 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 :: a -> Bool -> m ()
treeViewColumnSetVisible treeColumn :: a
treeColumn visible :: 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.MethodInfo TreeViewColumnSetVisibleMethodInfo a signature where
overloadedMethod = 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 :: a -> Maybe b -> m ()
treeViewColumnSetWidget treeColumn :: a
treeColumn widget :: 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
Nothing -> Ptr Widget -> IO (Ptr Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Widget
forall a. Ptr a
nullPtr
Just jWidget :: 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.MethodInfo TreeViewColumnSetWidgetMethodInfo a signature where
overloadedMethod = treeViewColumnSetWidget
#endif