{-# LANGUAGE TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Gtk.Objects.TreeViewColumn
(
TreeViewColumn(..) ,
IsTreeViewColumn ,
toTreeViewColumn ,
#if defined(ENABLE_OVERLOADING)
ResolveTreeViewColumnMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnAddAttributeMethodInfo ,
#endif
treeViewColumnAddAttribute ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellGetPositionMethodInfo ,
#endif
treeViewColumnCellGetPosition ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellGetSizeMethodInfo ,
#endif
treeViewColumnCellGetSize ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellIsVisibleMethodInfo ,
#endif
treeViewColumnCellIsVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellSetCellDataMethodInfo ,
#endif
treeViewColumnCellSetCellData ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClearMethodInfo ,
#endif
treeViewColumnClear ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClearAttributesMethodInfo ,
#endif
treeViewColumnClearAttributes ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClickedMethodInfo ,
#endif
treeViewColumnClicked ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnFocusCellMethodInfo ,
#endif
treeViewColumnFocusCell ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetAlignmentMethodInfo ,
#endif
treeViewColumnGetAlignment ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetButtonMethodInfo ,
#endif
treeViewColumnGetButton ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetClickableMethodInfo ,
#endif
treeViewColumnGetClickable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetExpandMethodInfo ,
#endif
treeViewColumnGetExpand ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetFixedWidthMethodInfo ,
#endif
treeViewColumnGetFixedWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetMaxWidthMethodInfo ,
#endif
treeViewColumnGetMaxWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetMinWidthMethodInfo ,
#endif
treeViewColumnGetMinWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetReorderableMethodInfo ,
#endif
treeViewColumnGetReorderable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetResizableMethodInfo ,
#endif
treeViewColumnGetResizable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSizingMethodInfo ,
#endif
treeViewColumnGetSizing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSortColumnIdMethodInfo ,
#endif
treeViewColumnGetSortColumnId ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSortIndicatorMethodInfo,
#endif
treeViewColumnGetSortIndicator ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSortOrderMethodInfo ,
#endif
treeViewColumnGetSortOrder ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetSpacingMethodInfo ,
#endif
treeViewColumnGetSpacing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetTitleMethodInfo ,
#endif
treeViewColumnGetTitle ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetTreeViewMethodInfo ,
#endif
treeViewColumnGetTreeView ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetVisibleMethodInfo ,
#endif
treeViewColumnGetVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetWidgetMethodInfo ,
#endif
treeViewColumnGetWidget ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetWidthMethodInfo ,
#endif
treeViewColumnGetWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnGetXOffsetMethodInfo ,
#endif
treeViewColumnGetXOffset ,
treeViewColumnNew ,
treeViewColumnNewWithArea ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnPackEndMethodInfo ,
#endif
treeViewColumnPackEnd ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnPackStartMethodInfo ,
#endif
treeViewColumnPackStart ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnQueueResizeMethodInfo ,
#endif
treeViewColumnQueueResize ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetAlignmentMethodInfo ,
#endif
treeViewColumnSetAlignment ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetCellDataFuncMethodInfo ,
#endif
treeViewColumnSetCellDataFunc ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetClickableMethodInfo ,
#endif
treeViewColumnSetClickable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetExpandMethodInfo ,
#endif
treeViewColumnSetExpand ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetFixedWidthMethodInfo ,
#endif
treeViewColumnSetFixedWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetMaxWidthMethodInfo ,
#endif
treeViewColumnSetMaxWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetMinWidthMethodInfo ,
#endif
treeViewColumnSetMinWidth ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetReorderableMethodInfo ,
#endif
treeViewColumnSetReorderable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetResizableMethodInfo ,
#endif
treeViewColumnSetResizable ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSizingMethodInfo ,
#endif
treeViewColumnSetSizing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSortColumnIdMethodInfo ,
#endif
treeViewColumnSetSortColumnId ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSortIndicatorMethodInfo,
#endif
treeViewColumnSetSortIndicator ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSortOrderMethodInfo ,
#endif
treeViewColumnSetSortOrder ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetSpacingMethodInfo ,
#endif
treeViewColumnSetSpacing ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetTitleMethodInfo ,
#endif
treeViewColumnSetTitle ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetVisibleMethodInfo ,
#endif
treeViewColumnSetVisible ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSetWidgetMethodInfo ,
#endif
treeViewColumnSetWidget ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnAlignmentPropertyInfo ,
#endif
constructTreeViewColumnAlignment ,
getTreeViewColumnAlignment ,
setTreeViewColumnAlignment ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnAlignment ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnCellAreaPropertyInfo ,
#endif
constructTreeViewColumnCellArea ,
getTreeViewColumnCellArea ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnCellArea ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClickablePropertyInfo ,
#endif
constructTreeViewColumnClickable ,
getTreeViewColumnClickable ,
setTreeViewColumnClickable ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnClickable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnExpandPropertyInfo ,
#endif
constructTreeViewColumnExpand ,
getTreeViewColumnExpand ,
setTreeViewColumnExpand ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnExpand ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnFixedWidthPropertyInfo ,
#endif
constructTreeViewColumnFixedWidth ,
getTreeViewColumnFixedWidth ,
setTreeViewColumnFixedWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnFixedWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnMaxWidthPropertyInfo ,
#endif
constructTreeViewColumnMaxWidth ,
getTreeViewColumnMaxWidth ,
setTreeViewColumnMaxWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnMaxWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnMinWidthPropertyInfo ,
#endif
constructTreeViewColumnMinWidth ,
getTreeViewColumnMinWidth ,
setTreeViewColumnMinWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnMinWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnReorderablePropertyInfo ,
#endif
constructTreeViewColumnReorderable ,
getTreeViewColumnReorderable ,
setTreeViewColumnReorderable ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnReorderable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnResizablePropertyInfo ,
#endif
constructTreeViewColumnResizable ,
getTreeViewColumnResizable ,
setTreeViewColumnResizable ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnResizable ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSizingPropertyInfo ,
#endif
constructTreeViewColumnSizing ,
getTreeViewColumnSizing ,
setTreeViewColumnSizing ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSizing ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSortColumnIdPropertyInfo ,
#endif
constructTreeViewColumnSortColumnId ,
getTreeViewColumnSortColumnId ,
setTreeViewColumnSortColumnId ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSortColumnId ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSortIndicatorPropertyInfo ,
#endif
constructTreeViewColumnSortIndicator ,
getTreeViewColumnSortIndicator ,
setTreeViewColumnSortIndicator ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSortIndicator ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSortOrderPropertyInfo ,
#endif
constructTreeViewColumnSortOrder ,
getTreeViewColumnSortOrder ,
setTreeViewColumnSortOrder ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSortOrder ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnSpacingPropertyInfo ,
#endif
constructTreeViewColumnSpacing ,
getTreeViewColumnSpacing ,
setTreeViewColumnSpacing ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnSpacing ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnTitlePropertyInfo ,
#endif
constructTreeViewColumnTitle ,
getTreeViewColumnTitle ,
setTreeViewColumnTitle ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnTitle ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnVisiblePropertyInfo ,
#endif
constructTreeViewColumnVisible ,
getTreeViewColumnVisible ,
setTreeViewColumnVisible ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnVisible ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnWidgetPropertyInfo ,
#endif
clearTreeViewColumnWidget ,
constructTreeViewColumnWidget ,
getTreeViewColumnWidget ,
setTreeViewColumnWidget ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnWidget ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnWidthPropertyInfo ,
#endif
getTreeViewColumnWidth ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnWidth ,
#endif
#if defined(ENABLE_OVERLOADING)
TreeViewColumnXOffsetPropertyInfo ,
#endif
getTreeViewColumnXOffset ,
#if defined(ENABLE_OVERLOADING)
treeViewColumnXOffset ,
#endif
C_TreeViewColumnClickedCallback ,
TreeViewColumnClickedCallback ,
#if defined(ENABLE_OVERLOADING)
TreeViewColumnClickedSignalInfo ,
#endif
afterTreeViewColumnClicked ,
genClosure_TreeViewColumnClicked ,
mk_TreeViewColumnClickedCallback ,
noTreeViewColumnClickedCallback ,
onTreeViewColumnClicked ,
wrap_TreeViewColumnClickedCallback ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gdk.Structs.Rectangle as Gdk.Rectangle
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import {-# SOURCE #-} qualified GI.Gtk.Enums as Gtk.Enums
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.Buildable as Gtk.Buildable
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.CellLayout as Gtk.CellLayout
import {-# SOURCE #-} qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellArea as Gtk.CellArea
import {-# SOURCE #-} qualified GI.Gtk.Objects.CellRenderer as Gtk.CellRenderer
import {-# SOURCE #-} qualified GI.Gtk.Objects.Widget as Gtk.Widget
import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
newtype TreeViewColumn = TreeViewColumn (SP.ManagedPtr TreeViewColumn)
deriving (TreeViewColumn -> TreeViewColumn -> Bool
(TreeViewColumn -> TreeViewColumn -> Bool)
-> (TreeViewColumn -> TreeViewColumn -> Bool) -> Eq TreeViewColumn
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: TreeViewColumn -> TreeViewColumn -> Bool
$c/= :: TreeViewColumn -> TreeViewColumn -> Bool
== :: TreeViewColumn -> TreeViewColumn -> Bool
$c== :: TreeViewColumn -> TreeViewColumn -> Bool
Eq)
instance SP.ManagedPtrNewtype TreeViewColumn where
toManagedPtr :: TreeViewColumn -> ManagedPtr TreeViewColumn
toManagedPtr (TreeViewColumn ManagedPtr TreeViewColumn
p) = ManagedPtr TreeViewColumn
p
foreign import ccall "gtk_tree_view_column_get_type"
c_gtk_tree_view_column_get_type :: IO B.Types.GType
instance B.Types.TypedObject TreeViewColumn where
glibType :: IO GType
glibType = IO GType
c_gtk_tree_view_column_get_type
instance B.Types.GObject TreeViewColumn
instance B.GValue.IsGValue TreeViewColumn where
toGValue :: TreeViewColumn -> IO GValue
toGValue 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 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 (SP.GObject o, O.IsDescendantOf TreeViewColumn o) => IsTreeViewColumn o
instance (SP.GObject o, O.IsDescendantOf TreeViewColumn o) => IsTreeViewColumn o
instance O.HasParentTypes TreeViewColumn
type instance O.ParentTypes TreeViewColumn = '[GObject.Object.Object, Gtk.Buildable.Buildable, Gtk.CellLayout.CellLayout]
toTreeViewColumn :: (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, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn
#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 IO ()
cb = IO (GClosure C_TreeViewColumnClickedCallback)
-> m (GClosure C_TreeViewColumnClickedCallback)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (GClosure C_TreeViewColumnClickedCallback)
-> m (GClosure C_TreeViewColumnClickedCallback))
-> IO (GClosure C_TreeViewColumnClickedCallback)
-> m (GClosure C_TreeViewColumnClickedCallback)
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnClickedCallback
cb' = IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
cb
C_TreeViewColumnClickedCallback
-> IO (FunPtr C_TreeViewColumnClickedCallback)
mk_TreeViewColumnClickedCallback C_TreeViewColumnClickedCallback
cb' IO (FunPtr C_TreeViewColumnClickedCallback)
-> (FunPtr C_TreeViewColumnClickedCallback
-> IO (GClosure C_TreeViewColumnClickedCallback))
-> IO (GClosure C_TreeViewColumnClickedCallback)
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_TreeViewColumnClickedCallback
-> IO (GClosure C_TreeViewColumnClickedCallback)
forall (m :: * -> *) a. MonadIO m => FunPtr a -> m (GClosure a)
B.GClosure.newGClosure
wrap_TreeViewColumnClickedCallback ::
TreeViewColumnClickedCallback ->
C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback :: IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
_cb Ptr ()
_ Ptr ()
_ = do
IO ()
_cb
onTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
onTreeViewColumnClicked :: a -> IO () -> m SignalHandlerId
onTreeViewColumnClicked a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnClickedCallback
cb' = IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
cb
FunPtr C_TreeViewColumnClickedCallback
cb'' <- C_TreeViewColumnClickedCallback
-> IO (FunPtr C_TreeViewColumnClickedCallback)
mk_TreeViewColumnClickedCallback C_TreeViewColumnClickedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"clicked" FunPtr C_TreeViewColumnClickedCallback
cb'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterTreeViewColumnClicked :: (IsTreeViewColumn a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId
afterTreeViewColumnClicked :: a -> IO () -> m SignalHandlerId
afterTreeViewColumnClicked a
obj IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
let cb' :: C_TreeViewColumnClickedCallback
cb' = IO () -> C_TreeViewColumnClickedCallback
wrap_TreeViewColumnClickedCallback IO ()
cb
FunPtr C_TreeViewColumnClickedCallback
cb'' <- C_TreeViewColumnClickedCallback
-> IO (FunPtr C_TreeViewColumnClickedCallback)
mk_TreeViewColumnClickedCallback C_TreeViewColumnClickedCallback
cb'
a
-> Text
-> FunPtr C_TreeViewColumnClickedCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"clicked" FunPtr C_TreeViewColumnClickedCallback
cb'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClickedSignalInfo
instance SignalInfo TreeViewColumnClickedSignalInfo where
type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_TreeViewColumnClickedCallback cb
cb'' <- mk_TreeViewColumnClickedCallback cb'
connectSignalFunPtr obj "clicked" cb'' connectMode detail
#endif
getTreeViewColumnAlignment :: (MonadIO m, IsTreeViewColumn o) => o -> m Float
getTreeViewColumnAlignment :: o -> m Float
getTreeViewColumnAlignment 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 String
"alignment"
setTreeViewColumnAlignment :: (MonadIO m, IsTreeViewColumn o) => o -> Float -> m ()
setTreeViewColumnAlignment :: o -> Float -> m ()
setTreeViewColumnAlignment o
obj 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 String
"alignment" Float
val
constructTreeViewColumnAlignment :: (IsTreeViewColumn o, MIO.MonadIO m) => Float -> m (GValueConstruct o)
constructTreeViewColumnAlignment :: Float -> m (GValueConstruct o)
constructTreeViewColumnAlignment Float
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Float -> IO (GValueConstruct o)
forall o. String -> Float -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyFloat String
"alignment" Float
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnAlignmentPropertyInfo
instance AttrInfo TreeViewColumnAlignmentPropertyInfo where
type AttrAllowedOps TreeViewColumnAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnAlignmentPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float
type AttrTransferTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float
type AttrTransferType TreeViewColumnAlignmentPropertyInfo = Float
type AttrGetType TreeViewColumnAlignmentPropertyInfo = Float
type AttrLabel TreeViewColumnAlignmentPropertyInfo = "alignment"
type AttrOrigin TreeViewColumnAlignmentPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnAlignment
attrSet = setTreeViewColumnAlignment
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnAlignment
attrClear = undefined
#endif
getTreeViewColumnCellArea :: (MonadIO m, IsTreeViewColumn o) => o -> m (Maybe Gtk.CellArea.CellArea)
getTreeViewColumnCellArea :: o -> m (Maybe CellArea)
getTreeViewColumnCellArea 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 String
"cell-area" ManagedPtr CellArea -> CellArea
Gtk.CellArea.CellArea
constructTreeViewColumnCellArea :: (IsTreeViewColumn o, MIO.MonadIO m, Gtk.CellArea.IsCellArea a) => a -> m (GValueConstruct o)
constructTreeViewColumnCellArea :: a -> m (GValueConstruct o)
constructTreeViewColumnCellArea a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"cell-area" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellAreaPropertyInfo
instance AttrInfo TreeViewColumnCellAreaPropertyInfo where
type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferTypeConstraint TreeViewColumnCellAreaPropertyInfo = Gtk.CellArea.IsCellArea
type AttrTransferType TreeViewColumnCellAreaPropertyInfo = Gtk.CellArea.CellArea
type AttrGetType TreeViewColumnCellAreaPropertyInfo = (Maybe Gtk.CellArea.CellArea)
type AttrLabel TreeViewColumnCellAreaPropertyInfo = "cell-area"
type AttrOrigin TreeViewColumnCellAreaPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnCellArea
attrSet = undefined
attrTransfer _ v = do
unsafeCastTo Gtk.CellArea.CellArea v
attrConstruct = constructTreeViewColumnCellArea
attrClear = undefined
#endif
getTreeViewColumnClickable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnClickable :: o -> m Bool
getTreeViewColumnClickable 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 String
"clickable"
setTreeViewColumnClickable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnClickable :: o -> Bool -> m ()
setTreeViewColumnClickable o
obj 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 String
"clickable" Bool
val
constructTreeViewColumnClickable :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnClickable :: Bool -> m (GValueConstruct o)
constructTreeViewColumnClickable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"clickable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClickablePropertyInfo
instance AttrInfo TreeViewColumnClickablePropertyInfo where
type AttrAllowedOps TreeViewColumnClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnClickablePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnClickablePropertyInfo = Bool
type AttrGetType TreeViewColumnClickablePropertyInfo = Bool
type AttrLabel TreeViewColumnClickablePropertyInfo = "clickable"
type AttrOrigin TreeViewColumnClickablePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnClickable
attrSet = setTreeViewColumnClickable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnClickable
attrClear = undefined
#endif
getTreeViewColumnExpand :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnExpand :: o -> m Bool
getTreeViewColumnExpand 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 String
"expand"
setTreeViewColumnExpand :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnExpand :: o -> Bool -> m ()
setTreeViewColumnExpand o
obj 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 String
"expand" Bool
val
constructTreeViewColumnExpand :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnExpand :: Bool -> m (GValueConstruct o)
constructTreeViewColumnExpand Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"expand" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnExpandPropertyInfo
instance AttrInfo TreeViewColumnExpandPropertyInfo where
type AttrAllowedOps TreeViewColumnExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnExpandPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnExpandPropertyInfo = Bool
type AttrGetType TreeViewColumnExpandPropertyInfo = Bool
type AttrLabel TreeViewColumnExpandPropertyInfo = "expand"
type AttrOrigin TreeViewColumnExpandPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnExpand
attrSet = setTreeViewColumnExpand
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnExpand
attrClear = undefined
#endif
getTreeViewColumnFixedWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnFixedWidth :: o -> m Int32
getTreeViewColumnFixedWidth 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 String
"fixed-width"
setTreeViewColumnFixedWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnFixedWidth :: o -> Int32 -> m ()
setTreeViewColumnFixedWidth o
obj 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 String
"fixed-width" Int32
val
constructTreeViewColumnFixedWidth :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnFixedWidth :: Int32 -> m (GValueConstruct o)
constructTreeViewColumnFixedWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"fixed-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnFixedWidthPropertyInfo
instance AttrInfo TreeViewColumnFixedWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnFixedWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnFixedWidthPropertyInfo = Int32
type AttrGetType TreeViewColumnFixedWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "fixed-width"
type AttrOrigin TreeViewColumnFixedWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnFixedWidth
attrSet = setTreeViewColumnFixedWidth
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnFixedWidth
attrClear = undefined
#endif
getTreeViewColumnMaxWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnMaxWidth :: o -> m Int32
getTreeViewColumnMaxWidth 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 String
"max-width"
setTreeViewColumnMaxWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMaxWidth :: o -> Int32 -> m ()
setTreeViewColumnMaxWidth o
obj 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 String
"max-width" Int32
val
constructTreeViewColumnMaxWidth :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnMaxWidth :: Int32 -> m (GValueConstruct o)
constructTreeViewColumnMaxWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"max-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnMaxWidthPropertyInfo
instance AttrInfo TreeViewColumnMaxWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMaxWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnMaxWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnMaxWidthPropertyInfo = Int32
type AttrGetType TreeViewColumnMaxWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "max-width"
type AttrOrigin TreeViewColumnMaxWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnMaxWidth
attrSet = setTreeViewColumnMaxWidth
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnMaxWidth
attrClear = undefined
#endif
getTreeViewColumnMinWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnMinWidth :: o -> m Int32
getTreeViewColumnMinWidth 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 String
"min-width"
setTreeViewColumnMinWidth :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnMinWidth :: o -> Int32 -> m ()
setTreeViewColumnMinWidth o
obj 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 String
"min-width" Int32
val
constructTreeViewColumnMinWidth :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnMinWidth :: Int32 -> m (GValueConstruct o)
constructTreeViewColumnMinWidth Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"min-width" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnMinWidthPropertyInfo
instance AttrInfo TreeViewColumnMinWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnMinWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnMinWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnMinWidthPropertyInfo = Int32
type AttrGetType TreeViewColumnMinWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnMinWidthPropertyInfo = "min-width"
type AttrOrigin TreeViewColumnMinWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnMinWidth
attrSet = setTreeViewColumnMinWidth
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnMinWidth
attrClear = undefined
#endif
getTreeViewColumnReorderable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnReorderable :: o -> m Bool
getTreeViewColumnReorderable 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 String
"reorderable"
setTreeViewColumnReorderable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnReorderable :: o -> Bool -> m ()
setTreeViewColumnReorderable o
obj 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 String
"reorderable" Bool
val
constructTreeViewColumnReorderable :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnReorderable :: Bool -> m (GValueConstruct o)
constructTreeViewColumnReorderable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"reorderable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnReorderablePropertyInfo
instance AttrInfo TreeViewColumnReorderablePropertyInfo where
type AttrAllowedOps TreeViewColumnReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnReorderablePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnReorderablePropertyInfo = Bool
type AttrGetType TreeViewColumnReorderablePropertyInfo = Bool
type AttrLabel TreeViewColumnReorderablePropertyInfo = "reorderable"
type AttrOrigin TreeViewColumnReorderablePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnReorderable
attrSet = setTreeViewColumnReorderable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnReorderable
attrClear = undefined
#endif
getTreeViewColumnResizable :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnResizable :: o -> m Bool
getTreeViewColumnResizable 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 String
"resizable"
setTreeViewColumnResizable :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnResizable :: o -> Bool -> m ()
setTreeViewColumnResizable o
obj 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 String
"resizable" Bool
val
constructTreeViewColumnResizable :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnResizable :: Bool -> m (GValueConstruct o)
constructTreeViewColumnResizable Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"resizable" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnResizablePropertyInfo
instance AttrInfo TreeViewColumnResizablePropertyInfo where
type AttrAllowedOps TreeViewColumnResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnResizablePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnResizablePropertyInfo = Bool
type AttrGetType TreeViewColumnResizablePropertyInfo = Bool
type AttrLabel TreeViewColumnResizablePropertyInfo = "resizable"
type AttrOrigin TreeViewColumnResizablePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnResizable
attrSet = setTreeViewColumnResizable
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnResizable
attrClear = undefined
#endif
getTreeViewColumnSizing :: (MonadIO m, IsTreeViewColumn o) => o -> m Gtk.Enums.TreeViewColumnSizing
getTreeViewColumnSizing :: o -> m TreeViewColumnSizing
getTreeViewColumnSizing 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 String
"sizing"
setTreeViewColumnSizing :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.TreeViewColumnSizing -> m ()
setTreeViewColumnSizing :: o -> TreeViewColumnSizing -> m ()
setTreeViewColumnSizing o
obj 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 String
"sizing" TreeViewColumnSizing
val
constructTreeViewColumnSizing :: (IsTreeViewColumn o, MIO.MonadIO m) => Gtk.Enums.TreeViewColumnSizing -> m (GValueConstruct o)
constructTreeViewColumnSizing :: TreeViewColumnSizing -> m (GValueConstruct o)
constructTreeViewColumnSizing TreeViewColumnSizing
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> TreeViewColumnSizing -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"sizing" TreeViewColumnSizing
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSizingPropertyInfo
instance AttrInfo TreeViewColumnSizingPropertyInfo where
type AttrAllowedOps TreeViewColumnSizingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSizingPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSizingPropertyInfo = (~) Gtk.Enums.TreeViewColumnSizing
type AttrTransferTypeConstraint TreeViewColumnSizingPropertyInfo = (~) Gtk.Enums.TreeViewColumnSizing
type AttrTransferType TreeViewColumnSizingPropertyInfo = Gtk.Enums.TreeViewColumnSizing
type AttrGetType TreeViewColumnSizingPropertyInfo = Gtk.Enums.TreeViewColumnSizing
type AttrLabel TreeViewColumnSizingPropertyInfo = "sizing"
type AttrOrigin TreeViewColumnSizingPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSizing
attrSet = setTreeViewColumnSizing
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSizing
attrClear = undefined
#endif
getTreeViewColumnSortColumnId :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnSortColumnId :: o -> m Int32
getTreeViewColumnSortColumnId 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 String
"sort-column-id"
setTreeViewColumnSortColumnId :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSortColumnId :: o -> Int32 -> m ()
setTreeViewColumnSortColumnId o
obj 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 String
"sort-column-id" Int32
val
constructTreeViewColumnSortColumnId :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnSortColumnId :: Int32 -> m (GValueConstruct o)
constructTreeViewColumnSortColumnId Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"sort-column-id" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSortColumnIdPropertyInfo
instance AttrInfo TreeViewColumnSortColumnIdPropertyInfo where
type AttrAllowedOps TreeViewColumnSortColumnIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnSortColumnIdPropertyInfo = Int32
type AttrGetType TreeViewColumnSortColumnIdPropertyInfo = Int32
type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "sort-column-id"
type AttrOrigin TreeViewColumnSortColumnIdPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSortColumnId
attrSet = setTreeViewColumnSortColumnId
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSortColumnId
attrClear = undefined
#endif
getTreeViewColumnSortIndicator :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnSortIndicator :: o -> m Bool
getTreeViewColumnSortIndicator 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 String
"sort-indicator"
setTreeViewColumnSortIndicator :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnSortIndicator :: o -> Bool -> m ()
setTreeViewColumnSortIndicator o
obj 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 String
"sort-indicator" Bool
val
constructTreeViewColumnSortIndicator :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnSortIndicator :: Bool -> m (GValueConstruct o)
constructTreeViewColumnSortIndicator Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"sort-indicator" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSortIndicatorPropertyInfo
instance AttrInfo TreeViewColumnSortIndicatorPropertyInfo where
type AttrAllowedOps TreeViewColumnSortIndicatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnSortIndicatorPropertyInfo = Bool
type AttrGetType TreeViewColumnSortIndicatorPropertyInfo = Bool
type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "sort-indicator"
type AttrOrigin TreeViewColumnSortIndicatorPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSortIndicator
attrSet = setTreeViewColumnSortIndicator
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSortIndicator
attrClear = undefined
#endif
getTreeViewColumnSortOrder :: (MonadIO m, IsTreeViewColumn o) => o -> m Gtk.Enums.SortType
getTreeViewColumnSortOrder :: o -> m SortType
getTreeViewColumnSortOrder 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 String
"sort-order"
setTreeViewColumnSortOrder :: (MonadIO m, IsTreeViewColumn o) => o -> Gtk.Enums.SortType -> m ()
setTreeViewColumnSortOrder :: o -> SortType -> m ()
setTreeViewColumnSortOrder o
obj 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 String
"sort-order" SortType
val
constructTreeViewColumnSortOrder :: (IsTreeViewColumn o, MIO.MonadIO m) => Gtk.Enums.SortType -> m (GValueConstruct o)
constructTreeViewColumnSortOrder :: SortType -> m (GValueConstruct o)
constructTreeViewColumnSortOrder SortType
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> SortType -> IO (GValueConstruct o)
forall a o.
(Enum a, BoxedEnum a) =>
String -> a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyEnum String
"sort-order" SortType
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSortOrderPropertyInfo
instance AttrInfo TreeViewColumnSortOrderPropertyInfo where
type AttrAllowedOps TreeViewColumnSortOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSortOrderPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) Gtk.Enums.SortType
type AttrTransferTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) Gtk.Enums.SortType
type AttrTransferType TreeViewColumnSortOrderPropertyInfo = Gtk.Enums.SortType
type AttrGetType TreeViewColumnSortOrderPropertyInfo = Gtk.Enums.SortType
type AttrLabel TreeViewColumnSortOrderPropertyInfo = "sort-order"
type AttrOrigin TreeViewColumnSortOrderPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSortOrder
attrSet = setTreeViewColumnSortOrder
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSortOrder
attrClear = undefined
#endif
getTreeViewColumnSpacing :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnSpacing :: o -> m Int32
getTreeViewColumnSpacing 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 String
"spacing"
setTreeViewColumnSpacing :: (MonadIO m, IsTreeViewColumn o) => o -> Int32 -> m ()
setTreeViewColumnSpacing :: o -> Int32 -> m ()
setTreeViewColumnSpacing o
obj 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 String
"spacing" Int32
val
constructTreeViewColumnSpacing :: (IsTreeViewColumn o, MIO.MonadIO m) => Int32 -> m (GValueConstruct o)
constructTreeViewColumnSpacing :: Int32 -> m (GValueConstruct o)
constructTreeViewColumnSpacing Int32
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Int32 -> IO (GValueConstruct o)
forall o. String -> Int32 -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyInt32 String
"spacing" Int32
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSpacingPropertyInfo
instance AttrInfo TreeViewColumnSpacingPropertyInfo where
type AttrAllowedOps TreeViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnSpacingPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32
type AttrTransferTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32
type AttrTransferType TreeViewColumnSpacingPropertyInfo = Int32
type AttrGetType TreeViewColumnSpacingPropertyInfo = Int32
type AttrLabel TreeViewColumnSpacingPropertyInfo = "spacing"
type AttrOrigin TreeViewColumnSpacingPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnSpacing
attrSet = setTreeViewColumnSpacing
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnSpacing
attrClear = undefined
#endif
getTreeViewColumnTitle :: (MonadIO m, IsTreeViewColumn o) => o -> m T.Text
getTreeViewColumnTitle :: o -> m Text
getTreeViewColumnTitle 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 Text
"getTreeViewColumnTitle" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"title"
setTreeViewColumnTitle :: (MonadIO m, IsTreeViewColumn o) => o -> T.Text -> m ()
setTreeViewColumnTitle :: o -> Text -> m ()
setTreeViewColumnTitle o
obj 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 String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructTreeViewColumnTitle :: (IsTreeViewColumn o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructTreeViewColumnTitle :: Text -> m (GValueConstruct o)
constructTreeViewColumnTitle Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"title" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnTitlePropertyInfo
instance AttrInfo TreeViewColumnTitlePropertyInfo where
type AttrAllowedOps TreeViewColumnTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnTitlePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text
type AttrTransferType TreeViewColumnTitlePropertyInfo = T.Text
type AttrGetType TreeViewColumnTitlePropertyInfo = T.Text
type AttrLabel TreeViewColumnTitlePropertyInfo = "title"
type AttrOrigin TreeViewColumnTitlePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnTitle
attrSet = setTreeViewColumnTitle
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnTitle
attrClear = undefined
#endif
getTreeViewColumnVisible :: (MonadIO m, IsTreeViewColumn o) => o -> m Bool
getTreeViewColumnVisible :: o -> m Bool
getTreeViewColumnVisible 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 String
"visible"
setTreeViewColumnVisible :: (MonadIO m, IsTreeViewColumn o) => o -> Bool -> m ()
setTreeViewColumnVisible :: o -> Bool -> m ()
setTreeViewColumnVisible o
obj 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 String
"visible" Bool
val
constructTreeViewColumnVisible :: (IsTreeViewColumn o, MIO.MonadIO m) => Bool -> m (GValueConstruct o)
constructTreeViewColumnVisible :: Bool -> m (GValueConstruct o)
constructTreeViewColumnVisible Bool
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Bool -> IO (GValueConstruct o)
forall o. String -> Bool -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyBool String
"visible" Bool
val
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnVisiblePropertyInfo
instance AttrInfo TreeViewColumnVisiblePropertyInfo where
type AttrAllowedOps TreeViewColumnVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnVisiblePropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool
type AttrTransferTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool
type AttrTransferType TreeViewColumnVisiblePropertyInfo = Bool
type AttrGetType TreeViewColumnVisiblePropertyInfo = Bool
type AttrLabel TreeViewColumnVisiblePropertyInfo = "visible"
type AttrOrigin TreeViewColumnVisiblePropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnVisible
attrSet = setTreeViewColumnVisible
attrTransfer _ v = do
return v
attrConstruct = constructTreeViewColumnVisible
attrClear = undefined
#endif
getTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o) => o -> m (Maybe Gtk.Widget.Widget)
getTreeViewColumnWidget :: o -> m (Maybe Widget)
getTreeViewColumnWidget 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 String
"widget" ManagedPtr Widget -> Widget
Gtk.Widget.Widget
setTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o, Gtk.Widget.IsWidget a) => o -> a -> m ()
setTreeViewColumnWidget :: o -> a -> m ()
setTreeViewColumnWidget o
obj 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 String
"widget" (a -> Maybe a
forall a. a -> Maybe a
Just a
val)
constructTreeViewColumnWidget :: (IsTreeViewColumn o, MIO.MonadIO m, Gtk.Widget.IsWidget a) => a -> m (GValueConstruct o)
constructTreeViewColumnWidget :: a -> m (GValueConstruct o)
constructTreeViewColumnWidget a
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe a -> IO (GValueConstruct o)
forall a o.
GObject a =>
String -> Maybe a -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyObject String
"widget" (a -> Maybe a
forall a. a -> Maybe a
P.Just a
val)
clearTreeViewColumnWidget :: (MonadIO m, IsTreeViewColumn o) => o -> m ()
clearTreeViewColumnWidget :: o -> m ()
clearTreeViewColumnWidget o
obj = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Widget -> IO ()
forall a b.
(GObject a, GObject b) =>
a -> String -> Maybe b -> IO ()
B.Properties.setObjectPropertyObject o
obj String
"widget" (Maybe Widget
forall a. Maybe a
Nothing :: Maybe Gtk.Widget.Widget)
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnWidgetPropertyInfo
instance AttrInfo TreeViewColumnWidgetPropertyInfo where
type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferTypeConstraint TreeViewColumnWidgetPropertyInfo = Gtk.Widget.IsWidget
type AttrTransferType TreeViewColumnWidgetPropertyInfo = Gtk.Widget.Widget
type AttrGetType TreeViewColumnWidgetPropertyInfo = (Maybe Gtk.Widget.Widget)
type AttrLabel TreeViewColumnWidgetPropertyInfo = "widget"
type AttrOrigin TreeViewColumnWidgetPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnWidget
attrSet = setTreeViewColumnWidget
attrTransfer _ v = do
unsafeCastTo Gtk.Widget.Widget v
attrConstruct = constructTreeViewColumnWidget
attrClear = clearTreeViewColumnWidget
#endif
getTreeViewColumnWidth :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnWidth :: o -> m Int32
getTreeViewColumnWidth 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 String
"width"
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnWidthPropertyInfo
instance AttrInfo TreeViewColumnWidthPropertyInfo where
type AttrAllowedOps TreeViewColumnWidthPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnWidthPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnWidthPropertyInfo = (~) ()
type AttrTransferTypeConstraint TreeViewColumnWidthPropertyInfo = (~) ()
type AttrTransferType TreeViewColumnWidthPropertyInfo = ()
type AttrGetType TreeViewColumnWidthPropertyInfo = Int32
type AttrLabel TreeViewColumnWidthPropertyInfo = "width"
type AttrOrigin TreeViewColumnWidthPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnWidth
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
getTreeViewColumnXOffset :: (MonadIO m, IsTreeViewColumn o) => o -> m Int32
getTreeViewColumnXOffset :: o -> m Int32
getTreeViewColumnXOffset 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 String
"x-offset"
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnXOffsetPropertyInfo
instance AttrInfo TreeViewColumnXOffsetPropertyInfo where
type AttrAllowedOps TreeViewColumnXOffsetPropertyInfo = '[ 'AttrGet]
type AttrBaseTypeConstraint TreeViewColumnXOffsetPropertyInfo = IsTreeViewColumn
type AttrSetTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) ()
type AttrTransferTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) ()
type AttrTransferType TreeViewColumnXOffsetPropertyInfo = ()
type AttrGetType TreeViewColumnXOffsetPropertyInfo = Int32
type AttrLabel TreeViewColumnXOffsetPropertyInfo = "x-offset"
type AttrOrigin TreeViewColumnXOffsetPropertyInfo = TreeViewColumn
attrGet = getTreeViewColumnXOffset
attrSet = undefined
attrTransfer _ = undefined
attrConstruct = undefined
attrClear = undefined
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList TreeViewColumn
type instance O.AttributeList TreeViewColumn = TreeViewColumnAttributeList
type TreeViewColumnAttributeList = ('[ '("alignment", TreeViewColumnAlignmentPropertyInfo), '("cellArea", TreeViewColumnCellAreaPropertyInfo), '("clickable", TreeViewColumnClickablePropertyInfo), '("expand", TreeViewColumnExpandPropertyInfo), '("fixedWidth", TreeViewColumnFixedWidthPropertyInfo), '("maxWidth", TreeViewColumnMaxWidthPropertyInfo), '("minWidth", TreeViewColumnMinWidthPropertyInfo), '("reorderable", TreeViewColumnReorderablePropertyInfo), '("resizable", TreeViewColumnResizablePropertyInfo), '("sizing", TreeViewColumnSizingPropertyInfo), '("sortColumnId", TreeViewColumnSortColumnIdPropertyInfo), '("sortIndicator", TreeViewColumnSortIndicatorPropertyInfo), '("sortOrder", TreeViewColumnSortOrderPropertyInfo), '("spacing", TreeViewColumnSpacingPropertyInfo), '("title", TreeViewColumnTitlePropertyInfo), '("visible", TreeViewColumnVisiblePropertyInfo), '("widget", TreeViewColumnWidgetPropertyInfo), '("width", TreeViewColumnWidthPropertyInfo), '("xOffset", TreeViewColumnXOffsetPropertyInfo)] :: [(Symbol, *)])
#endif
#if defined(ENABLE_OVERLOADING)
treeViewColumnAlignment :: AttrLabelProxy "alignment"
treeViewColumnAlignment = AttrLabelProxy
treeViewColumnCellArea :: AttrLabelProxy "cellArea"
treeViewColumnCellArea = AttrLabelProxy
treeViewColumnClickable :: AttrLabelProxy "clickable"
treeViewColumnClickable = AttrLabelProxy
treeViewColumnExpand :: AttrLabelProxy "expand"
treeViewColumnExpand = AttrLabelProxy
treeViewColumnFixedWidth :: AttrLabelProxy "fixedWidth"
treeViewColumnFixedWidth = AttrLabelProxy
treeViewColumnMaxWidth :: AttrLabelProxy "maxWidth"
treeViewColumnMaxWidth = AttrLabelProxy
treeViewColumnMinWidth :: AttrLabelProxy "minWidth"
treeViewColumnMinWidth = AttrLabelProxy
treeViewColumnReorderable :: AttrLabelProxy "reorderable"
treeViewColumnReorderable = AttrLabelProxy
treeViewColumnResizable :: AttrLabelProxy "resizable"
treeViewColumnResizable = AttrLabelProxy
treeViewColumnSizing :: AttrLabelProxy "sizing"
treeViewColumnSizing = AttrLabelProxy
treeViewColumnSortColumnId :: AttrLabelProxy "sortColumnId"
treeViewColumnSortColumnId = AttrLabelProxy
treeViewColumnSortIndicator :: AttrLabelProxy "sortIndicator"
treeViewColumnSortIndicator = AttrLabelProxy
treeViewColumnSortOrder :: AttrLabelProxy "sortOrder"
treeViewColumnSortOrder = AttrLabelProxy
treeViewColumnSpacing :: AttrLabelProxy "spacing"
treeViewColumnSpacing = AttrLabelProxy
treeViewColumnTitle :: AttrLabelProxy "title"
treeViewColumnTitle = AttrLabelProxy
treeViewColumnVisible :: AttrLabelProxy "visible"
treeViewColumnVisible = AttrLabelProxy
treeViewColumnWidget :: AttrLabelProxy "widget"
treeViewColumnWidget = AttrLabelProxy
treeViewColumnWidth :: AttrLabelProxy "width"
treeViewColumnWidth = AttrLabelProxy
treeViewColumnXOffset :: AttrLabelProxy "xOffset"
treeViewColumnXOffset = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList TreeViewColumn = TreeViewColumnSignalList
type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_tree_view_column_new" gtk_tree_view_column_new ::
IO (Ptr TreeViewColumn)
treeViewColumnNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m TreeViewColumn
treeViewColumnNew :: m TreeViewColumn
treeViewColumnNew = IO TreeViewColumn -> m TreeViewColumn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeViewColumn -> m TreeViewColumn)
-> IO TreeViewColumn -> m TreeViewColumn
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
result <- IO (Ptr TreeViewColumn)
gtk_tree_view_column_new
Text -> Ptr TreeViewColumn -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnNew" Ptr TreeViewColumn
result
TreeViewColumn
result' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn) Ptr TreeViewColumn
result
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_tree_view_column_new_with_area" gtk_tree_view_column_new_with_area ::
Ptr Gtk.CellArea.CellArea ->
IO (Ptr TreeViewColumn)
treeViewColumnNewWithArea ::
(B.CallStack.HasCallStack, MonadIO m, Gtk.CellArea.IsCellArea a) =>
a
-> m TreeViewColumn
treeViewColumnNewWithArea :: a -> m TreeViewColumn
treeViewColumnNewWithArea a
area = IO TreeViewColumn -> m TreeViewColumn
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO TreeViewColumn -> m TreeViewColumn)
-> IO TreeViewColumn -> m TreeViewColumn
forall a b. (a -> b) -> a -> b
$ do
Ptr CellArea
area' <- a -> IO (Ptr CellArea)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
area
Ptr TreeViewColumn
result <- Ptr CellArea -> IO (Ptr TreeViewColumn)
gtk_tree_view_column_new_with_area Ptr CellArea
area'
Text -> Ptr TreeViewColumn -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnNewWithArea" Ptr TreeViewColumn
result
TreeViewColumn
result' <- ((ManagedPtr TreeViewColumn -> TreeViewColumn)
-> Ptr TreeViewColumn -> IO TreeViewColumn
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr TreeViewColumn -> TreeViewColumn
TreeViewColumn) Ptr TreeViewColumn
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
area
TreeViewColumn -> IO TreeViewColumn
forall (m :: * -> *) a. Monad m => a -> m a
return TreeViewColumn
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "gtk_tree_view_column_add_attribute" gtk_tree_view_column_add_attribute ::
Ptr TreeViewColumn ->
Ptr Gtk.CellRenderer.CellRenderer ->
CString ->
Int32 ->
IO ()
treeViewColumnAddAttribute ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) =>
a
-> b
-> T.Text
-> Int32
-> m ()
treeViewColumnAddAttribute :: a -> b -> Text -> Int32 -> m ()
treeViewColumnAddAttribute a
treeColumn b
cellRenderer Text
attribute Int32
column = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
CString
attribute' <- Text -> IO CString
textToCString Text
attribute
Ptr TreeViewColumn -> Ptr CellRenderer -> CString -> Int32 -> IO ()
gtk_tree_view_column_add_attribute Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cellRenderer' CString
attribute' Int32
column
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cellRenderer
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
attribute'
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnAddAttributeMethodInfo
instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.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 a
treeColumn b
cellRenderer = IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32))
-> IO (Bool, Int32, Int32) -> m (Bool, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
Ptr Int32
xOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
CInt
result <- Ptr TreeViewColumn
-> Ptr CellRenderer -> Ptr Int32 -> Ptr Int32 -> IO CInt
gtk_tree_view_column_cell_get_position Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cellRenderer' Ptr Int32
xOffset Ptr Int32
width
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
Int32
xOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xOffset
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cellRenderer
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
(Bool, Int32, Int32) -> IO (Bool, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Bool
result', Int32
xOffset', Int32
width')
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellGetPositionMethodInfo
instance (signature ~ (b -> m ((Bool, Int32, Int32))), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.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 a
treeColumn Maybe Rectangle
cellArea = IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Int32, Int32, Int32, Int32) -> m (Int32, Int32, Int32, Int32))
-> IO (Int32, Int32, Int32, Int32)
-> m (Int32, Int32, Int32, Int32)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Rectangle
maybeCellArea <- case Maybe Rectangle
cellArea of
Maybe Rectangle
Nothing -> Ptr Rectangle -> IO (Ptr Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Rectangle
forall a. Ptr a
nullPtr
Just Rectangle
jCellArea -> do
Ptr Rectangle
jCellArea' <- Rectangle -> IO (Ptr Rectangle)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Rectangle
jCellArea
Ptr Rectangle -> IO (Ptr Rectangle)
forall (m :: * -> *) a. Monad m => a -> m a
return Ptr Rectangle
jCellArea'
Ptr Int32
xOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
yOffset <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
width <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr Int32
height <- IO (Ptr Int32)
forall a. Storable a => IO (Ptr a)
allocMem :: IO (Ptr Int32)
Ptr TreeViewColumn
-> Ptr Rectangle
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> Ptr Int32
-> IO ()
gtk_tree_view_column_cell_get_size Ptr TreeViewColumn
treeColumn' Ptr Rectangle
maybeCellArea Ptr Int32
xOffset Ptr Int32
yOffset Ptr Int32
width Ptr Int32
height
Int32
xOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
xOffset
Int32
yOffset' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
yOffset
Int32
width' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
width
Int32
height' <- Ptr Int32 -> IO Int32
forall a. Storable a => Ptr a -> IO a
peek Ptr Int32
height
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Maybe Rectangle -> (Rectangle -> IO ()) -> IO ()
forall (m :: * -> *) a. Monad m => Maybe a -> (a -> m ()) -> m ()
whenJust Maybe Rectangle
cellArea Rectangle -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
xOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
yOffset
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
width
Ptr Int32 -> IO ()
forall a. Ptr a -> IO ()
freeMem Ptr Int32
height
(Int32, Int32, Int32, Int32) -> IO (Int32, Int32, Int32, Int32)
forall (m :: * -> *) a. Monad m => a -> m a
return (Int32
xOffset', Int32
yOffset', Int32
width', Int32
height')
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellGetSizeMethodInfo
instance (signature ~ (Maybe (Gdk.Rectangle.Rectangle) -> m ((Int32, Int32, Int32, Int32))), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_cell_is_visible Ptr TreeViewColumn
treeColumn'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellIsVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn b
treeModel TreeIter
iter Bool
isExpander Bool
isExpanded = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr TreeModel
treeModel' <- b -> IO (Ptr TreeModel)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
treeModel
Ptr TreeIter
iter' <- TreeIter -> IO (Ptr TreeIter)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr TreeIter
iter
let isExpander' :: CInt
isExpander' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isExpander
let isExpanded' :: CInt
isExpanded' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
isExpanded
Ptr TreeViewColumn
-> Ptr TreeModel -> Ptr TreeIter -> CInt -> CInt -> IO ()
gtk_tree_view_column_cell_set_cell_data Ptr TreeViewColumn
treeColumn' Ptr TreeModel
treeModel' Ptr TreeIter
iter' CInt
isExpander' CInt
isExpanded'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
treeModel
TreeIter -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr TreeIter
iter
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnCellSetCellDataMethodInfo
instance (signature ~ (b -> Gtk.TreeIter.TreeIter -> Bool -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.TreeModel.IsTreeModel b) => O.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 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 a
treeColumn b
cellRenderer = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
Ptr TreeViewColumn -> Ptr CellRenderer -> IO ()
gtk_tree_view_column_clear_attributes Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cellRenderer'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cellRenderer
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnClearAttributesMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.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 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 a
treeColumn b
cell = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
Ptr TreeViewColumn -> Ptr CellRenderer -> IO ()
gtk_tree_view_column_focus_cell Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cell'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnFocusCellMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.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 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 a
treeColumn = IO Widget -> m Widget
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Widget -> m Widget) -> IO Widget -> m Widget
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Widget
result <- Ptr TreeViewColumn -> IO (Ptr Widget)
gtk_tree_view_column_get_button Ptr TreeViewColumn
treeColumn'
Text -> Ptr Widget -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnGetButton" Ptr Widget
result
Widget
result' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetButtonMethodInfo
instance (signature ~ (m Gtk.Widget.Widget), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_clickable Ptr TreeViewColumn
treeColumn'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetClickableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_expand Ptr TreeViewColumn
treeColumn'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetExpandMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.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 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 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 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 a
treeColumn = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_reorderable Ptr TreeViewColumn
treeColumn'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetReorderableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_resizable Ptr TreeViewColumn
treeColumn'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetResizableMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.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 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 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 a
treeColumn = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_sort_indicator Ptr TreeViewColumn
treeColumn'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetSortIndicatorMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.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 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 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 a
treeColumn = IO Text -> m Text
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CString
result <- Ptr TreeViewColumn -> IO CString
gtk_tree_view_column_get_title Ptr TreeViewColumn
treeColumn'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"treeViewColumnGetTitle" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Text -> IO Text
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetTitleMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Widget
result <- Ptr TreeViewColumn -> IO (Ptr Widget)
gtk_tree_view_column_get_tree_view Ptr TreeViewColumn
treeColumn'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetTreeViewMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn = IO Bool -> m Bool
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
CInt
result <- Ptr TreeViewColumn -> IO CInt
gtk_tree_view_column_get_visible Ptr TreeViewColumn
treeColumn'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Bool -> IO Bool
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetVisibleMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn = IO (Maybe Widget) -> m (Maybe Widget)
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO (Maybe Widget) -> m (Maybe Widget))
-> IO (Maybe Widget) -> m (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr Widget
result <- Ptr TreeViewColumn -> IO (Ptr Widget)
gtk_tree_view_column_get_widget Ptr TreeViewColumn
treeColumn'
Maybe Widget
maybeResult <- Ptr Widget -> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. Ptr a -> (Ptr a -> IO b) -> IO (Maybe b)
convertIfNonNull Ptr Widget
result ((Ptr Widget -> IO Widget) -> IO (Maybe Widget))
-> (Ptr Widget -> IO Widget) -> IO (Maybe Widget)
forall a b. (a -> b) -> a -> b
$ \Ptr Widget
result' -> do
Widget
result'' <- ((ManagedPtr Widget -> Widget) -> Ptr Widget -> IO Widget
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Widget -> Widget
Gtk.Widget.Widget) Ptr Widget
result'
Widget -> IO Widget
forall (m :: * -> *) a. Monad m => a -> m a
return Widget
result''
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
Maybe Widget -> IO (Maybe Widget)
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Widget
maybeResult
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnGetWidgetMethodInfo
instance (signature ~ (m (Maybe Gtk.Widget.Widget)), MonadIO m, IsTreeViewColumn a) => O.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 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 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 a
treeColumn b
cell Bool
expand = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
let expand' :: CInt
expand' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
expand
Ptr TreeViewColumn -> Ptr CellRenderer -> CInt -> IO ()
gtk_tree_view_column_pack_end Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cell' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnPackEndMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.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 a
treeColumn b
cell Bool
expand = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cell' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cell
let expand' :: CInt
expand' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
fromEnum) Bool
expand
Ptr TreeViewColumn -> Ptr CellRenderer -> CInt -> IO ()
gtk_tree_view_column_pack_start Ptr TreeViewColumn
treeColumn' Ptr CellRenderer
cell' CInt
expand'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
cell
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnPackStartMethodInfo
instance (signature ~ (b -> Bool -> m ()), MonadIO m, IsTreeViewColumn a, Gtk.CellRenderer.IsCellRenderer b) => O.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 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 a
treeColumn Float
xalign = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
let xalign' :: CFloat
xalign' = Float -> CFloat
forall a b. (Real a, Fractional b) => a -> b
realToFrac Float
xalign
Ptr TreeViewColumn -> CFloat -> IO ()
gtk_tree_view_column_set_alignment Ptr TreeViewColumn
treeColumn' CFloat
xalign'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
treeColumn
() -> IO ()
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data TreeViewColumnSetAlignmentMethodInfo
instance (signature ~ (Float -> m ()), MonadIO m, IsTreeViewColumn a) => O.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 a
treeColumn b
cellRenderer Maybe TreeCellDataFunc
func = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
treeColumn
Ptr CellRenderer
cellRenderer' <- b -> IO (Ptr CellRenderer)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
cellRenderer
FunPtr C_TreeCellDataFunc
maybeFunc <- case Maybe TreeCellDataFunc
func of
Maybe TreeCellDataFunc
Nothing -> FunPtr C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return (Ptr Any -> FunPtr C_TreeCellDataFunc
forall a b. Ptr a -> FunPtr b
castPtrToFunPtr Ptr Any
forall a. Ptr a
nullPtr)
Just TreeCellDataFunc
jFunc -> do
FunPtr C_TreeCellDataFunc
jFunc' <- C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
Gtk.Callbacks.mk_TreeCellDataFunc (Maybe (Ptr (FunPtr C_TreeCellDataFunc))
-> TreeCellDataFunc_WithClosures -> C_TreeCellDataFunc
Gtk.Callbacks.wrap_TreeCellDataFunc Maybe (Ptr (FunPtr C_TreeCellDataFunc))
forall a. Maybe a
Nothing (TreeCellDataFunc -> TreeCellDataFunc_WithClosures
Gtk.Callbacks.drop_closures_TreeCellDataFunc TreeCellDataFunc
jFunc))
FunPtr C_TreeCellDataFunc -> IO (FunPtr C_TreeCellDataFunc)
forall (m :: * -> *) a. Monad m => a -> m a
return FunPtr C_TreeCellDataFunc
jFunc'
let funcData :: Ptr ()
funcData = FunPtr C_TreeCellDataFunc -> Ptr ()
forall a b. FunPtr a -> Ptr b
castFunPtrToPtr FunPtr C_TreeCellDataFunc
maybeFunc
let destroy :: FunPtr (Ptr a -> IO ())
destroy = FunPtr (Ptr a -> IO ())
forall a. FunPtr (Ptr a -> IO ())
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 a
treeColumn Bool
clickable = IO () -> m ()
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr TreeViewColumn
treeColumn' <- a -> IO (Ptr TreeViewColumn)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a