{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) -} module GI.Gtk.Objects.TreeViewColumn ( -- * Exported types TreeViewColumn(..) , TreeViewColumnK , toTreeViewColumn , noTreeViewColumn , -- * Methods -- ** treeViewColumnAddAttribute TreeViewColumnAddAttributeMethodInfo , treeViewColumnAddAttribute , -- ** treeViewColumnCellGetPosition TreeViewColumnCellGetPositionMethodInfo , treeViewColumnCellGetPosition , -- ** treeViewColumnCellGetSize TreeViewColumnCellGetSizeMethodInfo , treeViewColumnCellGetSize , -- ** treeViewColumnCellIsVisible TreeViewColumnCellIsVisibleMethodInfo , treeViewColumnCellIsVisible , -- ** treeViewColumnCellSetCellData TreeViewColumnCellSetCellDataMethodInfo , treeViewColumnCellSetCellData , -- ** treeViewColumnClear TreeViewColumnClearMethodInfo , treeViewColumnClear , -- ** treeViewColumnClearAttributes TreeViewColumnClearAttributesMethodInfo , treeViewColumnClearAttributes , -- ** treeViewColumnClicked TreeViewColumnClickedMethodInfo , treeViewColumnClicked , -- ** treeViewColumnFocusCell TreeViewColumnFocusCellMethodInfo , treeViewColumnFocusCell , -- ** treeViewColumnGetAlignment TreeViewColumnGetAlignmentMethodInfo , treeViewColumnGetAlignment , -- ** treeViewColumnGetButton TreeViewColumnGetButtonMethodInfo , treeViewColumnGetButton , -- ** treeViewColumnGetClickable TreeViewColumnGetClickableMethodInfo , treeViewColumnGetClickable , -- ** treeViewColumnGetExpand TreeViewColumnGetExpandMethodInfo , treeViewColumnGetExpand , -- ** treeViewColumnGetFixedWidth TreeViewColumnGetFixedWidthMethodInfo , treeViewColumnGetFixedWidth , -- ** treeViewColumnGetMaxWidth TreeViewColumnGetMaxWidthMethodInfo , treeViewColumnGetMaxWidth , -- ** treeViewColumnGetMinWidth TreeViewColumnGetMinWidthMethodInfo , treeViewColumnGetMinWidth , -- ** treeViewColumnGetReorderable TreeViewColumnGetReorderableMethodInfo , treeViewColumnGetReorderable , -- ** treeViewColumnGetResizable TreeViewColumnGetResizableMethodInfo , treeViewColumnGetResizable , -- ** treeViewColumnGetSizing TreeViewColumnGetSizingMethodInfo , treeViewColumnGetSizing , -- ** treeViewColumnGetSortColumnId TreeViewColumnGetSortColumnIdMethodInfo , treeViewColumnGetSortColumnId , -- ** treeViewColumnGetSortIndicator TreeViewColumnGetSortIndicatorMethodInfo, treeViewColumnGetSortIndicator , -- ** treeViewColumnGetSortOrder TreeViewColumnGetSortOrderMethodInfo , treeViewColumnGetSortOrder , -- ** treeViewColumnGetSpacing TreeViewColumnGetSpacingMethodInfo , treeViewColumnGetSpacing , -- ** treeViewColumnGetTitle TreeViewColumnGetTitleMethodInfo , treeViewColumnGetTitle , -- ** treeViewColumnGetTreeView TreeViewColumnGetTreeViewMethodInfo , treeViewColumnGetTreeView , -- ** treeViewColumnGetVisible TreeViewColumnGetVisibleMethodInfo , treeViewColumnGetVisible , -- ** treeViewColumnGetWidget TreeViewColumnGetWidgetMethodInfo , treeViewColumnGetWidget , -- ** treeViewColumnGetWidth TreeViewColumnGetWidthMethodInfo , treeViewColumnGetWidth , -- ** treeViewColumnGetXOffset TreeViewColumnGetXOffsetMethodInfo , treeViewColumnGetXOffset , -- ** treeViewColumnNew treeViewColumnNew , -- ** treeViewColumnNewWithArea treeViewColumnNewWithArea , -- ** treeViewColumnPackEnd TreeViewColumnPackEndMethodInfo , treeViewColumnPackEnd , -- ** treeViewColumnPackStart TreeViewColumnPackStartMethodInfo , treeViewColumnPackStart , -- ** treeViewColumnQueueResize TreeViewColumnQueueResizeMethodInfo , treeViewColumnQueueResize , -- ** treeViewColumnSetAlignment TreeViewColumnSetAlignmentMethodInfo , treeViewColumnSetAlignment , -- ** treeViewColumnSetCellDataFunc TreeViewColumnSetCellDataFuncMethodInfo , treeViewColumnSetCellDataFunc , -- ** treeViewColumnSetClickable TreeViewColumnSetClickableMethodInfo , treeViewColumnSetClickable , -- ** treeViewColumnSetExpand TreeViewColumnSetExpandMethodInfo , treeViewColumnSetExpand , -- ** treeViewColumnSetFixedWidth TreeViewColumnSetFixedWidthMethodInfo , treeViewColumnSetFixedWidth , -- ** treeViewColumnSetMaxWidth TreeViewColumnSetMaxWidthMethodInfo , treeViewColumnSetMaxWidth , -- ** treeViewColumnSetMinWidth TreeViewColumnSetMinWidthMethodInfo , treeViewColumnSetMinWidth , -- ** treeViewColumnSetReorderable TreeViewColumnSetReorderableMethodInfo , treeViewColumnSetReorderable , -- ** treeViewColumnSetResizable TreeViewColumnSetResizableMethodInfo , treeViewColumnSetResizable , -- ** treeViewColumnSetSizing TreeViewColumnSetSizingMethodInfo , treeViewColumnSetSizing , -- ** treeViewColumnSetSortColumnId TreeViewColumnSetSortColumnIdMethodInfo , treeViewColumnSetSortColumnId , -- ** treeViewColumnSetSortIndicator TreeViewColumnSetSortIndicatorMethodInfo, treeViewColumnSetSortIndicator , -- ** treeViewColumnSetSortOrder TreeViewColumnSetSortOrderMethodInfo , treeViewColumnSetSortOrder , -- ** treeViewColumnSetSpacing TreeViewColumnSetSpacingMethodInfo , treeViewColumnSetSpacing , -- ** treeViewColumnSetTitle TreeViewColumnSetTitleMethodInfo , treeViewColumnSetTitle , -- ** treeViewColumnSetVisible TreeViewColumnSetVisibleMethodInfo , treeViewColumnSetVisible , -- ** treeViewColumnSetWidget TreeViewColumnSetWidgetMethodInfo , treeViewColumnSetWidget , -- * Properties -- ** Alignment TreeViewColumnAlignmentPropertyInfo , constructTreeViewColumnAlignment , getTreeViewColumnAlignment , setTreeViewColumnAlignment , treeViewColumnAlignment , -- ** CellArea TreeViewColumnCellAreaPropertyInfo , constructTreeViewColumnCellArea , getTreeViewColumnCellArea , treeViewColumnCellArea , -- ** Clickable TreeViewColumnClickablePropertyInfo , constructTreeViewColumnClickable , getTreeViewColumnClickable , setTreeViewColumnClickable , treeViewColumnClickable , -- ** Expand TreeViewColumnExpandPropertyInfo , constructTreeViewColumnExpand , getTreeViewColumnExpand , setTreeViewColumnExpand , treeViewColumnExpand , -- ** FixedWidth TreeViewColumnFixedWidthPropertyInfo , constructTreeViewColumnFixedWidth , getTreeViewColumnFixedWidth , setTreeViewColumnFixedWidth , treeViewColumnFixedWidth , -- ** MaxWidth TreeViewColumnMaxWidthPropertyInfo , constructTreeViewColumnMaxWidth , getTreeViewColumnMaxWidth , setTreeViewColumnMaxWidth , treeViewColumnMaxWidth , -- ** MinWidth TreeViewColumnMinWidthPropertyInfo , constructTreeViewColumnMinWidth , getTreeViewColumnMinWidth , setTreeViewColumnMinWidth , treeViewColumnMinWidth , -- ** Reorderable TreeViewColumnReorderablePropertyInfo , constructTreeViewColumnReorderable , getTreeViewColumnReorderable , setTreeViewColumnReorderable , treeViewColumnReorderable , -- ** Resizable TreeViewColumnResizablePropertyInfo , constructTreeViewColumnResizable , getTreeViewColumnResizable , setTreeViewColumnResizable , treeViewColumnResizable , -- ** Sizing TreeViewColumnSizingPropertyInfo , constructTreeViewColumnSizing , getTreeViewColumnSizing , setTreeViewColumnSizing , treeViewColumnSizing , -- ** SortColumnId TreeViewColumnSortColumnIdPropertyInfo , constructTreeViewColumnSortColumnId , getTreeViewColumnSortColumnId , setTreeViewColumnSortColumnId , treeViewColumnSortColumnId , -- ** SortIndicator TreeViewColumnSortIndicatorPropertyInfo , constructTreeViewColumnSortIndicator , getTreeViewColumnSortIndicator , setTreeViewColumnSortIndicator , treeViewColumnSortIndicator , -- ** SortOrder TreeViewColumnSortOrderPropertyInfo , constructTreeViewColumnSortOrder , getTreeViewColumnSortOrder , setTreeViewColumnSortOrder , treeViewColumnSortOrder , -- ** Spacing TreeViewColumnSpacingPropertyInfo , constructTreeViewColumnSpacing , getTreeViewColumnSpacing , setTreeViewColumnSpacing , treeViewColumnSpacing , -- ** Title TreeViewColumnTitlePropertyInfo , constructTreeViewColumnTitle , getTreeViewColumnTitle , setTreeViewColumnTitle , treeViewColumnTitle , -- ** Visible TreeViewColumnVisiblePropertyInfo , constructTreeViewColumnVisible , getTreeViewColumnVisible , setTreeViewColumnVisible , treeViewColumnVisible , -- ** Widget TreeViewColumnWidgetPropertyInfo , clearTreeViewColumnWidget , constructTreeViewColumnWidget , getTreeViewColumnWidget , setTreeViewColumnWidget , treeViewColumnWidget , -- ** Width TreeViewColumnWidthPropertyInfo , getTreeViewColumnWidth , treeViewColumnWidth , -- ** XOffset TreeViewColumnXOffsetPropertyInfo , getTreeViewColumnXOffset , treeViewColumnXOffset , -- * Signals -- ** Clicked TreeViewColumnClickedCallback , TreeViewColumnClickedCallbackC , TreeViewColumnClickedSignalInfo , afterTreeViewColumnClicked , mkTreeViewColumnClickedCallback , noTreeViewColumnClickedCallback , onTreeViewColumnClicked , treeViewColumnClickedCallbackWrapper , treeViewColumnClickedClosure , ) where import Data.GI.Base.ShortPrelude import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map import GI.Gtk.Types import GI.Gtk.Callbacks import qualified GI.GLib as GLib import qualified GI.GObject as GObject import qualified GI.Gdk as Gdk newtype TreeViewColumn = TreeViewColumn (ForeignPtr TreeViewColumn) foreign import ccall "gtk_tree_view_column_get_type" c_gtk_tree_view_column_get_type :: IO GType type instance ParentTypes TreeViewColumn = TreeViewColumnParentTypes type TreeViewColumnParentTypes = '[GObject.Object, Buildable, CellLayout] instance GObject TreeViewColumn where gobjectIsInitiallyUnowned _ = True gobjectType _ = c_gtk_tree_view_column_get_type class GObject o => TreeViewColumnK o instance (GObject o, IsDescendantOf TreeViewColumn o) => TreeViewColumnK o toTreeViewColumn :: TreeViewColumnK o => o -> IO TreeViewColumn toTreeViewColumn = unsafeCastTo TreeViewColumn noTreeViewColumn :: Maybe TreeViewColumn noTreeViewColumn = Nothing type family ResolveTreeViewColumnMethod (t :: Symbol) (o :: *) :: * where ResolveTreeViewColumnMethod "addChild" o = BuildableAddChildMethodInfo ResolveTreeViewColumnMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo ResolveTreeViewColumnMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo ResolveTreeViewColumnMethod "cellGetPosition" o = TreeViewColumnCellGetPositionMethodInfo ResolveTreeViewColumnMethod "cellGetSize" o = TreeViewColumnCellGetSizeMethodInfo ResolveTreeViewColumnMethod "cellIsVisible" o = TreeViewColumnCellIsVisibleMethodInfo ResolveTreeViewColumnMethod "cellSetCellData" o = TreeViewColumnCellSetCellDataMethodInfo ResolveTreeViewColumnMethod "clicked" o = TreeViewColumnClickedMethodInfo ResolveTreeViewColumnMethod "constructChild" o = BuildableConstructChildMethodInfo ResolveTreeViewColumnMethod "customFinished" o = BuildableCustomFinishedMethodInfo ResolveTreeViewColumnMethod "customTagEnd" o = BuildableCustomTagEndMethodInfo ResolveTreeViewColumnMethod "customTagStart" o = BuildableCustomTagStartMethodInfo ResolveTreeViewColumnMethod "focusCell" o = TreeViewColumnFocusCellMethodInfo ResolveTreeViewColumnMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo ResolveTreeViewColumnMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo ResolveTreeViewColumnMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo ResolveTreeViewColumnMethod "notify" o = GObject.ObjectNotifyMethodInfo ResolveTreeViewColumnMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo ResolveTreeViewColumnMethod "parserFinished" o = BuildableParserFinishedMethodInfo ResolveTreeViewColumnMethod "queueResize" o = TreeViewColumnQueueResizeMethodInfo ResolveTreeViewColumnMethod "ref" o = GObject.ObjectRefMethodInfo ResolveTreeViewColumnMethod "refSink" o = GObject.ObjectRefSinkMethodInfo ResolveTreeViewColumnMethod "reorder" o = CellLayoutReorderMethodInfo ResolveTreeViewColumnMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo ResolveTreeViewColumnMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo ResolveTreeViewColumnMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo ResolveTreeViewColumnMethod "stealData" o = GObject.ObjectStealDataMethodInfo ResolveTreeViewColumnMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo ResolveTreeViewColumnMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo ResolveTreeViewColumnMethod "unref" o = GObject.ObjectUnrefMethodInfo ResolveTreeViewColumnMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo ResolveTreeViewColumnMethod "getAlignment" o = TreeViewColumnGetAlignmentMethodInfo ResolveTreeViewColumnMethod "getArea" o = CellLayoutGetAreaMethodInfo ResolveTreeViewColumnMethod "getButton" o = TreeViewColumnGetButtonMethodInfo ResolveTreeViewColumnMethod "getCells" o = CellLayoutGetCellsMethodInfo ResolveTreeViewColumnMethod "getClickable" o = TreeViewColumnGetClickableMethodInfo ResolveTreeViewColumnMethod "getData" o = GObject.ObjectGetDataMethodInfo ResolveTreeViewColumnMethod "getExpand" o = TreeViewColumnGetExpandMethodInfo ResolveTreeViewColumnMethod "getFixedWidth" o = TreeViewColumnGetFixedWidthMethodInfo ResolveTreeViewColumnMethod "getInternalChild" o = BuildableGetInternalChildMethodInfo ResolveTreeViewColumnMethod "getMaxWidth" o = TreeViewColumnGetMaxWidthMethodInfo ResolveTreeViewColumnMethod "getMinWidth" o = TreeViewColumnGetMinWidthMethodInfo ResolveTreeViewColumnMethod "getName" o = BuildableGetNameMethodInfo ResolveTreeViewColumnMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo ResolveTreeViewColumnMethod "getQdata" o = GObject.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 = BuildableSetBuildablePropertyMethodInfo ResolveTreeViewColumnMethod "setClickable" o = TreeViewColumnSetClickableMethodInfo ResolveTreeViewColumnMethod "setData" o = GObject.ObjectSetDataMethodInfo ResolveTreeViewColumnMethod "setExpand" o = TreeViewColumnSetExpandMethodInfo ResolveTreeViewColumnMethod "setFixedWidth" o = TreeViewColumnSetFixedWidthMethodInfo ResolveTreeViewColumnMethod "setMaxWidth" o = TreeViewColumnSetMaxWidthMethodInfo ResolveTreeViewColumnMethod "setMinWidth" o = TreeViewColumnSetMinWidthMethodInfo ResolveTreeViewColumnMethod "setName" o = BuildableSetNameMethodInfo ResolveTreeViewColumnMethod "setProperty" o = GObject.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 = MethodResolutionFailed l o instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, MethodInfo info TreeViewColumn p) => IsLabelProxy t (TreeViewColumn -> p) where fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveTreeViewColumnMethod t TreeViewColumn, MethodInfo info TreeViewColumn p) => IsLabel t (TreeViewColumn -> p) where fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info) #endif -- signal TreeViewColumn::clicked type TreeViewColumnClickedCallback = IO () noTreeViewColumnClickedCallback :: Maybe TreeViewColumnClickedCallback noTreeViewColumnClickedCallback = Nothing type TreeViewColumnClickedCallbackC = Ptr () -> -- object Ptr () -> -- user_data IO () foreign import ccall "wrapper" mkTreeViewColumnClickedCallback :: TreeViewColumnClickedCallbackC -> IO (FunPtr TreeViewColumnClickedCallbackC) treeViewColumnClickedClosure :: TreeViewColumnClickedCallback -> IO Closure treeViewColumnClickedClosure cb = newCClosure =<< mkTreeViewColumnClickedCallback wrapped where wrapped = treeViewColumnClickedCallbackWrapper cb treeViewColumnClickedCallbackWrapper :: TreeViewColumnClickedCallback -> Ptr () -> Ptr () -> IO () treeViewColumnClickedCallbackWrapper _cb _ _ = do _cb onTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId onTreeViewColumnClicked obj cb = liftIO $ connectTreeViewColumnClicked obj cb SignalConnectBefore afterTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> m SignalHandlerId afterTreeViewColumnClicked obj cb = connectTreeViewColumnClicked obj cb SignalConnectAfter connectTreeViewColumnClicked :: (GObject a, MonadIO m) => a -> TreeViewColumnClickedCallback -> SignalConnectMode -> m SignalHandlerId connectTreeViewColumnClicked obj cb after = liftIO $ do cb' <- mkTreeViewColumnClickedCallback (treeViewColumnClickedCallbackWrapper cb) connectSignalFunPtr obj "clicked" cb' after -- VVV Prop "alignment" -- Type: TBasicType TFloat -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnAlignment :: (MonadIO m, TreeViewColumnK o) => o -> m Float getTreeViewColumnAlignment obj = liftIO $ getObjectPropertyFloat obj "alignment" setTreeViewColumnAlignment :: (MonadIO m, TreeViewColumnK o) => o -> Float -> m () setTreeViewColumnAlignment obj val = liftIO $ setObjectPropertyFloat obj "alignment" val constructTreeViewColumnAlignment :: Float -> IO ([Char], GValue) constructTreeViewColumnAlignment val = constructObjectPropertyFloat "alignment" val data TreeViewColumnAlignmentPropertyInfo instance AttrInfo TreeViewColumnAlignmentPropertyInfo where type AttrAllowedOps TreeViewColumnAlignmentPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnAlignmentPropertyInfo = (~) Float type AttrBaseTypeConstraint TreeViewColumnAlignmentPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnAlignmentPropertyInfo = Float type AttrLabel TreeViewColumnAlignmentPropertyInfo = "alignment" attrGet _ = getTreeViewColumnAlignment attrSet _ = setTreeViewColumnAlignment attrConstruct _ = constructTreeViewColumnAlignment attrClear _ = undefined -- VVV Prop "cell-area" -- Type: TInterface "Gtk" "CellArea" -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly] -- Nullable: (Nothing,Nothing) getTreeViewColumnCellArea :: (MonadIO m, TreeViewColumnK o) => o -> m (Maybe CellArea) getTreeViewColumnCellArea obj = liftIO $ getObjectPropertyObject obj "cell-area" CellArea constructTreeViewColumnCellArea :: (CellAreaK a) => a -> IO ([Char], GValue) constructTreeViewColumnCellArea val = constructObjectPropertyObject "cell-area" (Just val) data TreeViewColumnCellAreaPropertyInfo instance AttrInfo TreeViewColumnCellAreaPropertyInfo where type AttrAllowedOps TreeViewColumnCellAreaPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeViewColumnCellAreaPropertyInfo = CellAreaK type AttrBaseTypeConstraint TreeViewColumnCellAreaPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnCellAreaPropertyInfo = (Maybe CellArea) type AttrLabel TreeViewColumnCellAreaPropertyInfo = "cell-area" attrGet _ = getTreeViewColumnCellArea attrSet _ = undefined attrConstruct _ = constructTreeViewColumnCellArea attrClear _ = undefined -- VVV Prop "clickable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnClickable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnClickable obj = liftIO $ getObjectPropertyBool obj "clickable" setTreeViewColumnClickable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () setTreeViewColumnClickable obj val = liftIO $ setObjectPropertyBool obj "clickable" val constructTreeViewColumnClickable :: Bool -> IO ([Char], GValue) constructTreeViewColumnClickable val = constructObjectPropertyBool "clickable" val data TreeViewColumnClickablePropertyInfo instance AttrInfo TreeViewColumnClickablePropertyInfo where type AttrAllowedOps TreeViewColumnClickablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnClickablePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnClickablePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnClickablePropertyInfo = Bool type AttrLabel TreeViewColumnClickablePropertyInfo = "clickable" attrGet _ = getTreeViewColumnClickable attrSet _ = setTreeViewColumnClickable attrConstruct _ = constructTreeViewColumnClickable attrClear _ = undefined -- VVV Prop "expand" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnExpand :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnExpand obj = liftIO $ getObjectPropertyBool obj "expand" setTreeViewColumnExpand :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () setTreeViewColumnExpand obj val = liftIO $ setObjectPropertyBool obj "expand" val constructTreeViewColumnExpand :: Bool -> IO ([Char], GValue) constructTreeViewColumnExpand val = constructObjectPropertyBool "expand" val data TreeViewColumnExpandPropertyInfo instance AttrInfo TreeViewColumnExpandPropertyInfo where type AttrAllowedOps TreeViewColumnExpandPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnExpandPropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnExpandPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnExpandPropertyInfo = Bool type AttrLabel TreeViewColumnExpandPropertyInfo = "expand" attrGet _ = getTreeViewColumnExpand attrSet _ = setTreeViewColumnExpand attrConstruct _ = constructTreeViewColumnExpand attrClear _ = undefined -- VVV Prop "fixed-width" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 getTreeViewColumnFixedWidth obj = liftIO $ getObjectPropertyInt32 obj "fixed-width" setTreeViewColumnFixedWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () setTreeViewColumnFixedWidth obj val = liftIO $ setObjectPropertyInt32 obj "fixed-width" val constructTreeViewColumnFixedWidth :: Int32 -> IO ([Char], GValue) constructTreeViewColumnFixedWidth val = constructObjectPropertyInt32 "fixed-width" val data TreeViewColumnFixedWidthPropertyInfo instance AttrInfo TreeViewColumnFixedWidthPropertyInfo where type AttrAllowedOps TreeViewColumnFixedWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnFixedWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnFixedWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnFixedWidthPropertyInfo = Int32 type AttrLabel TreeViewColumnFixedWidthPropertyInfo = "fixed-width" attrGet _ = getTreeViewColumnFixedWidth attrSet _ = setTreeViewColumnFixedWidth attrConstruct _ = constructTreeViewColumnFixedWidth attrClear _ = undefined -- VVV Prop "max-width" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 getTreeViewColumnMaxWidth obj = liftIO $ getObjectPropertyInt32 obj "max-width" setTreeViewColumnMaxWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () setTreeViewColumnMaxWidth obj val = liftIO $ setObjectPropertyInt32 obj "max-width" val constructTreeViewColumnMaxWidth :: Int32 -> IO ([Char], GValue) constructTreeViewColumnMaxWidth val = constructObjectPropertyInt32 "max-width" val data TreeViewColumnMaxWidthPropertyInfo instance AttrInfo TreeViewColumnMaxWidthPropertyInfo where type AttrAllowedOps TreeViewColumnMaxWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnMaxWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnMaxWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnMaxWidthPropertyInfo = Int32 type AttrLabel TreeViewColumnMaxWidthPropertyInfo = "max-width" attrGet _ = getTreeViewColumnMaxWidth attrSet _ = setTreeViewColumnMaxWidth attrConstruct _ = constructTreeViewColumnMaxWidth attrClear _ = undefined -- VVV Prop "min-width" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 getTreeViewColumnMinWidth obj = liftIO $ getObjectPropertyInt32 obj "min-width" setTreeViewColumnMinWidth :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () setTreeViewColumnMinWidth obj val = liftIO $ setObjectPropertyInt32 obj "min-width" val constructTreeViewColumnMinWidth :: Int32 -> IO ([Char], GValue) constructTreeViewColumnMinWidth val = constructObjectPropertyInt32 "min-width" val data TreeViewColumnMinWidthPropertyInfo instance AttrInfo TreeViewColumnMinWidthPropertyInfo where type AttrAllowedOps TreeViewColumnMinWidthPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnMinWidthPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnMinWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnMinWidthPropertyInfo = Int32 type AttrLabel TreeViewColumnMinWidthPropertyInfo = "min-width" attrGet _ = getTreeViewColumnMinWidth attrSet _ = setTreeViewColumnMinWidth attrConstruct _ = constructTreeViewColumnMinWidth attrClear _ = undefined -- VVV Prop "reorderable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnReorderable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnReorderable obj = liftIO $ getObjectPropertyBool obj "reorderable" setTreeViewColumnReorderable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () setTreeViewColumnReorderable obj val = liftIO $ setObjectPropertyBool obj "reorderable" val constructTreeViewColumnReorderable :: Bool -> IO ([Char], GValue) constructTreeViewColumnReorderable val = constructObjectPropertyBool "reorderable" val data TreeViewColumnReorderablePropertyInfo instance AttrInfo TreeViewColumnReorderablePropertyInfo where type AttrAllowedOps TreeViewColumnReorderablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnReorderablePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnReorderablePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnReorderablePropertyInfo = Bool type AttrLabel TreeViewColumnReorderablePropertyInfo = "reorderable" attrGet _ = getTreeViewColumnReorderable attrSet _ = setTreeViewColumnReorderable attrConstruct _ = constructTreeViewColumnReorderable attrClear _ = undefined -- VVV Prop "resizable" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnResizable :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnResizable obj = liftIO $ getObjectPropertyBool obj "resizable" setTreeViewColumnResizable :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () setTreeViewColumnResizable obj val = liftIO $ setObjectPropertyBool obj "resizable" val constructTreeViewColumnResizable :: Bool -> IO ([Char], GValue) constructTreeViewColumnResizable val = constructObjectPropertyBool "resizable" val data TreeViewColumnResizablePropertyInfo instance AttrInfo TreeViewColumnResizablePropertyInfo where type AttrAllowedOps TreeViewColumnResizablePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnResizablePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnResizablePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnResizablePropertyInfo = Bool type AttrLabel TreeViewColumnResizablePropertyInfo = "resizable" attrGet _ = getTreeViewColumnResizable attrSet _ = setTreeViewColumnResizable attrConstruct _ = constructTreeViewColumnResizable attrClear _ = undefined -- VVV Prop "sizing" -- Type: TInterface "Gtk" "TreeViewColumnSizing" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnSizing :: (MonadIO m, TreeViewColumnK o) => o -> m TreeViewColumnSizing getTreeViewColumnSizing obj = liftIO $ getObjectPropertyEnum obj "sizing" setTreeViewColumnSizing :: (MonadIO m, TreeViewColumnK o) => o -> TreeViewColumnSizing -> m () setTreeViewColumnSizing obj val = liftIO $ setObjectPropertyEnum obj "sizing" val constructTreeViewColumnSizing :: TreeViewColumnSizing -> IO ([Char], GValue) constructTreeViewColumnSizing val = constructObjectPropertyEnum "sizing" val data TreeViewColumnSizingPropertyInfo instance AttrInfo TreeViewColumnSizingPropertyInfo where type AttrAllowedOps TreeViewColumnSizingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnSizingPropertyInfo = (~) TreeViewColumnSizing type AttrBaseTypeConstraint TreeViewColumnSizingPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSizingPropertyInfo = TreeViewColumnSizing type AttrLabel TreeViewColumnSizingPropertyInfo = "sizing" attrGet _ = getTreeViewColumnSizing attrSet _ = setTreeViewColumnSizing attrConstruct _ = constructTreeViewColumnSizing attrClear _ = undefined -- VVV Prop "sort-column-id" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 getTreeViewColumnSortColumnId obj = liftIO $ getObjectPropertyInt32 obj "sort-column-id" setTreeViewColumnSortColumnId :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () setTreeViewColumnSortColumnId obj val = liftIO $ setObjectPropertyInt32 obj "sort-column-id" val constructTreeViewColumnSortColumnId :: Int32 -> IO ([Char], GValue) constructTreeViewColumnSortColumnId val = constructObjectPropertyInt32 "sort-column-id" val data TreeViewColumnSortColumnIdPropertyInfo instance AttrInfo TreeViewColumnSortColumnIdPropertyInfo where type AttrAllowedOps TreeViewColumnSortColumnIdPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnSortColumnIdPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSortColumnIdPropertyInfo = Int32 type AttrLabel TreeViewColumnSortColumnIdPropertyInfo = "sort-column-id" attrGet _ = getTreeViewColumnSortColumnId attrSet _ = setTreeViewColumnSortColumnId attrConstruct _ = constructTreeViewColumnSortColumnId attrClear _ = undefined -- VVV Prop "sort-indicator" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnSortIndicator :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnSortIndicator obj = liftIO $ getObjectPropertyBool obj "sort-indicator" setTreeViewColumnSortIndicator :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () setTreeViewColumnSortIndicator obj val = liftIO $ setObjectPropertyBool obj "sort-indicator" val constructTreeViewColumnSortIndicator :: Bool -> IO ([Char], GValue) constructTreeViewColumnSortIndicator val = constructObjectPropertyBool "sort-indicator" val data TreeViewColumnSortIndicatorPropertyInfo instance AttrInfo TreeViewColumnSortIndicatorPropertyInfo where type AttrAllowedOps TreeViewColumnSortIndicatorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnSortIndicatorPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSortIndicatorPropertyInfo = Bool type AttrLabel TreeViewColumnSortIndicatorPropertyInfo = "sort-indicator" attrGet _ = getTreeViewColumnSortIndicator attrSet _ = setTreeViewColumnSortIndicator attrConstruct _ = constructTreeViewColumnSortIndicator attrClear _ = undefined -- VVV Prop "sort-order" -- Type: TInterface "Gtk" "SortType" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnSortOrder :: (MonadIO m, TreeViewColumnK o) => o -> m SortType getTreeViewColumnSortOrder obj = liftIO $ getObjectPropertyEnum obj "sort-order" setTreeViewColumnSortOrder :: (MonadIO m, TreeViewColumnK o) => o -> SortType -> m () setTreeViewColumnSortOrder obj val = liftIO $ setObjectPropertyEnum obj "sort-order" val constructTreeViewColumnSortOrder :: SortType -> IO ([Char], GValue) constructTreeViewColumnSortOrder val = constructObjectPropertyEnum "sort-order" val data TreeViewColumnSortOrderPropertyInfo instance AttrInfo TreeViewColumnSortOrderPropertyInfo where type AttrAllowedOps TreeViewColumnSortOrderPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnSortOrderPropertyInfo = (~) SortType type AttrBaseTypeConstraint TreeViewColumnSortOrderPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSortOrderPropertyInfo = SortType type AttrLabel TreeViewColumnSortOrderPropertyInfo = "sort-order" attrGet _ = getTreeViewColumnSortOrder attrSet _ = setTreeViewColumnSortOrder attrConstruct _ = constructTreeViewColumnSortOrder attrClear _ = undefined -- VVV Prop "spacing" -- Type: TBasicType TInt -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 getTreeViewColumnSpacing obj = liftIO $ getObjectPropertyInt32 obj "spacing" setTreeViewColumnSpacing :: (MonadIO m, TreeViewColumnK o) => o -> Int32 -> m () setTreeViewColumnSpacing obj val = liftIO $ setObjectPropertyInt32 obj "spacing" val constructTreeViewColumnSpacing :: Int32 -> IO ([Char], GValue) constructTreeViewColumnSpacing val = constructObjectPropertyInt32 "spacing" val data TreeViewColumnSpacingPropertyInfo instance AttrInfo TreeViewColumnSpacingPropertyInfo where type AttrAllowedOps TreeViewColumnSpacingPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnSpacingPropertyInfo = (~) Int32 type AttrBaseTypeConstraint TreeViewColumnSpacingPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnSpacingPropertyInfo = Int32 type AttrLabel TreeViewColumnSpacingPropertyInfo = "spacing" attrGet _ = getTreeViewColumnSpacing attrSet _ = setTreeViewColumnSpacing attrConstruct _ = constructTreeViewColumnSpacing attrClear _ = undefined -- VVV Prop "title" -- Type: TBasicType TUTF8 -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> m T.Text getTreeViewColumnTitle obj = liftIO $ checkUnexpectedNothing "getTreeViewColumnTitle" $ getObjectPropertyString obj "title" setTreeViewColumnTitle :: (MonadIO m, TreeViewColumnK o) => o -> T.Text -> m () setTreeViewColumnTitle obj val = liftIO $ setObjectPropertyString obj "title" (Just val) constructTreeViewColumnTitle :: T.Text -> IO ([Char], GValue) constructTreeViewColumnTitle val = constructObjectPropertyString "title" (Just val) data TreeViewColumnTitlePropertyInfo instance AttrInfo TreeViewColumnTitlePropertyInfo where type AttrAllowedOps TreeViewColumnTitlePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnTitlePropertyInfo = (~) T.Text type AttrBaseTypeConstraint TreeViewColumnTitlePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnTitlePropertyInfo = T.Text type AttrLabel TreeViewColumnTitlePropertyInfo = "title" attrGet _ = getTreeViewColumnTitle attrSet _ = setTreeViewColumnTitle attrConstruct _ = constructTreeViewColumnTitle attrClear _ = undefined -- VVV Prop "visible" -- Type: TBasicType TBoolean -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just False) getTreeViewColumnVisible :: (MonadIO m, TreeViewColumnK o) => o -> m Bool getTreeViewColumnVisible obj = liftIO $ getObjectPropertyBool obj "visible" setTreeViewColumnVisible :: (MonadIO m, TreeViewColumnK o) => o -> Bool -> m () setTreeViewColumnVisible obj val = liftIO $ setObjectPropertyBool obj "visible" val constructTreeViewColumnVisible :: Bool -> IO ([Char], GValue) constructTreeViewColumnVisible val = constructObjectPropertyBool "visible" val data TreeViewColumnVisiblePropertyInfo instance AttrInfo TreeViewColumnVisiblePropertyInfo where type AttrAllowedOps TreeViewColumnVisiblePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet] type AttrSetTypeConstraint TreeViewColumnVisiblePropertyInfo = (~) Bool type AttrBaseTypeConstraint TreeViewColumnVisiblePropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnVisiblePropertyInfo = Bool type AttrLabel TreeViewColumnVisiblePropertyInfo = "visible" attrGet _ = getTreeViewColumnVisible attrSet _ = setTreeViewColumnVisible attrConstruct _ = constructTreeViewColumnVisible attrClear _ = undefined -- VVV Prop "widget" -- Type: TInterface "Gtk" "Widget" -- Flags: [PropertyReadable,PropertyWritable] -- Nullable: (Just False,Just True) getTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m Widget getTreeViewColumnWidget obj = liftIO $ checkUnexpectedNothing "getTreeViewColumnWidget" $ getObjectPropertyObject obj "widget" Widget setTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o, WidgetK a) => o -> a -> m () setTreeViewColumnWidget obj val = liftIO $ setObjectPropertyObject obj "widget" (Just val) constructTreeViewColumnWidget :: (WidgetK a) => a -> IO ([Char], GValue) constructTreeViewColumnWidget val = constructObjectPropertyObject "widget" (Just val) clearTreeViewColumnWidget :: (MonadIO m, TreeViewColumnK o) => o -> m () clearTreeViewColumnWidget obj = liftIO $ setObjectPropertyObject obj "widget" (Nothing :: Maybe Widget) data TreeViewColumnWidgetPropertyInfo instance AttrInfo TreeViewColumnWidgetPropertyInfo where type AttrAllowedOps TreeViewColumnWidgetPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear] type AttrSetTypeConstraint TreeViewColumnWidgetPropertyInfo = WidgetK type AttrBaseTypeConstraint TreeViewColumnWidgetPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnWidgetPropertyInfo = Widget type AttrLabel TreeViewColumnWidgetPropertyInfo = "widget" attrGet _ = getTreeViewColumnWidget attrSet _ = setTreeViewColumnWidget attrConstruct _ = constructTreeViewColumnWidget attrClear _ = clearTreeViewColumnWidget -- VVV Prop "width" -- Type: TBasicType TInt -- Flags: [PropertyReadable] -- Nullable: (Just False,Nothing) getTreeViewColumnWidth :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 getTreeViewColumnWidth obj = liftIO $ getObjectPropertyInt32 obj "width" data TreeViewColumnWidthPropertyInfo instance AttrInfo TreeViewColumnWidthPropertyInfo where type AttrAllowedOps TreeViewColumnWidthPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint TreeViewColumnWidthPropertyInfo = (~) () type AttrBaseTypeConstraint TreeViewColumnWidthPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnWidthPropertyInfo = Int32 type AttrLabel TreeViewColumnWidthPropertyInfo = "width" attrGet _ = getTreeViewColumnWidth attrSet _ = undefined attrConstruct _ = undefined attrClear _ = undefined -- VVV Prop "x-offset" -- Type: TBasicType TInt -- Flags: [PropertyReadable] -- Nullable: (Just False,Nothing) getTreeViewColumnXOffset :: (MonadIO m, TreeViewColumnK o) => o -> m Int32 getTreeViewColumnXOffset obj = liftIO $ getObjectPropertyInt32 obj "x-offset" data TreeViewColumnXOffsetPropertyInfo instance AttrInfo TreeViewColumnXOffsetPropertyInfo where type AttrAllowedOps TreeViewColumnXOffsetPropertyInfo = '[ 'AttrGet] type AttrSetTypeConstraint TreeViewColumnXOffsetPropertyInfo = (~) () type AttrBaseTypeConstraint TreeViewColumnXOffsetPropertyInfo = TreeViewColumnK type AttrGetType TreeViewColumnXOffsetPropertyInfo = Int32 type AttrLabel TreeViewColumnXOffsetPropertyInfo = "x-offset" attrGet _ = getTreeViewColumnXOffset attrSet _ = undefined attrConstruct _ = undefined attrClear _ = undefined type instance 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, *)]) 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 data TreeViewColumnClickedSignalInfo instance SignalInfo TreeViewColumnClickedSignalInfo where type HaskellCallbackType TreeViewColumnClickedSignalInfo = TreeViewColumnClickedCallback connectSignal _ = connectTreeViewColumnClicked type instance SignalList TreeViewColumn = TreeViewColumnSignalList type TreeViewColumnSignalList = ('[ '("clicked", TreeViewColumnClickedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) -- method TreeViewColumn::new -- method type : Constructor -- Args : [] -- Lengths : [] -- returnType : Just (TInterface "Gtk" "TreeViewColumn") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_new" gtk_tree_view_column_new :: IO (Ptr TreeViewColumn) treeViewColumnNew :: (MonadIO m) => m TreeViewColumn -- result treeViewColumnNew = liftIO $ do result <- gtk_tree_view_column_new checkUnexpectedReturnNULL "gtk_tree_view_column_new" result result' <- (newObject TreeViewColumn) result return result' -- method TreeViewColumn::new_with_area -- method type : Constructor -- Args : [Arg {argCName = "area", argType = TInterface "Gtk" "CellArea", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "Gtk" "TreeViewColumn") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_new_with_area" gtk_tree_view_column_new_with_area :: Ptr CellArea -> -- area : TInterface "Gtk" "CellArea" IO (Ptr TreeViewColumn) treeViewColumnNewWithArea :: (MonadIO m, CellAreaK a) => a -- area -> m TreeViewColumn -- result treeViewColumnNewWithArea area = liftIO $ do let area' = unsafeManagedPtrCastPtr area result <- gtk_tree_view_column_new_with_area area' checkUnexpectedReturnNULL "gtk_tree_view_column_new_with_area" result result' <- (newObject TreeViewColumn) result touchManagedPtr area return result' -- method TreeViewColumn::add_attribute -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_add_attribute" gtk_tree_view_column_add_attribute :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" CString -> -- attribute : TBasicType TUTF8 Int32 -> -- column : TBasicType TInt IO () treeViewColumnAddAttribute :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => a -- _obj -> b -- cellRenderer -> T.Text -- attribute -> Int32 -- column -> m () -- result treeViewColumnAddAttribute _obj cellRenderer attribute column = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer attribute' <- textToCString attribute gtk_tree_view_column_add_attribute _obj' cellRenderer' attribute' column touchManagedPtr _obj touchManagedPtr cellRenderer freeMem attribute' return () data TreeViewColumnAddAttributeMethodInfo instance (signature ~ (b -> T.Text -> Int32 -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnAddAttributeMethodInfo a signature where overloadedMethod _ = treeViewColumnAddAttribute -- method TreeViewColumn::cell_get_position -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_cell_get_position" gtk_tree_view_column_cell_get_position :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" Ptr Int32 -> -- x_offset : TBasicType TInt Ptr Int32 -> -- width : TBasicType TInt IO CInt treeViewColumnCellGetPosition :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => a -- _obj -> b -- cellRenderer -> m (Bool,Int32,Int32) -- result treeViewColumnCellGetPosition _obj cellRenderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer xOffset <- allocMem :: IO (Ptr Int32) width <- allocMem :: IO (Ptr Int32) result <- gtk_tree_view_column_cell_get_position _obj' cellRenderer' xOffset width let result' = (/= 0) result xOffset' <- peek xOffset width' <- peek width touchManagedPtr _obj touchManagedPtr cellRenderer freeMem xOffset freeMem width return (result', xOffset', width') data TreeViewColumnCellGetPositionMethodInfo instance (signature ~ (b -> m (Bool,Int32,Int32)), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnCellGetPositionMethodInfo a signature where overloadedMethod _ = treeViewColumnCellGetPosition -- method TreeViewColumn::cell_get_size -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_area", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_offset", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_cell_get_size" gtk_tree_view_column_cell_get_size :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr Gdk.Rectangle -> -- cell_area : TInterface "Gdk" "Rectangle" Ptr Int32 -> -- x_offset : TBasicType TInt Ptr Int32 -> -- y_offset : TBasicType TInt Ptr Int32 -> -- width : TBasicType TInt Ptr Int32 -> -- height : TBasicType TInt IO () treeViewColumnCellGetSize :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Maybe (Gdk.Rectangle) -- cellArea -> m (Int32,Int32,Int32,Int32) -- result treeViewColumnCellGetSize _obj cellArea = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeCellArea <- case cellArea of Nothing -> return nullPtr Just jCellArea -> do let jCellArea' = unsafeManagedPtrGetPtr jCellArea return jCellArea' xOffset <- allocMem :: IO (Ptr Int32) yOffset <- allocMem :: IO (Ptr Int32) width <- allocMem :: IO (Ptr Int32) height <- allocMem :: IO (Ptr Int32) gtk_tree_view_column_cell_get_size _obj' maybeCellArea xOffset yOffset width height xOffset' <- peek xOffset yOffset' <- peek yOffset width' <- peek width height' <- peek height touchManagedPtr _obj whenJust cellArea touchManagedPtr freeMem xOffset freeMem yOffset freeMem width freeMem height return (xOffset', yOffset', width', height') data TreeViewColumnCellGetSizeMethodInfo instance (signature ~ (Maybe (Gdk.Rectangle) -> m (Int32,Int32,Int32,Int32)), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnCellGetSizeMethodInfo a signature where overloadedMethod _ = treeViewColumnCellGetSize -- method TreeViewColumn::cell_is_visible -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_cell_is_visible" gtk_tree_view_column_cell_is_visible :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CInt treeViewColumnCellIsVisible :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Bool -- result treeViewColumnCellIsVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_cell_is_visible _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data TreeViewColumnCellIsVisibleMethodInfo instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnCellIsVisibleMethodInfo a signature where overloadedMethod _ = treeViewColumnCellIsVisible -- method TreeViewColumn::cell_set_cell_data -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "tree_model", argType = TInterface "Gtk" "TreeModel", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface "Gtk" "TreeIter", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expander", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "is_expanded", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_cell_set_cell_data" gtk_tree_view_column_cell_set_cell_data :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr TreeModel -> -- tree_model : TInterface "Gtk" "TreeModel" Ptr TreeIter -> -- iter : TInterface "Gtk" "TreeIter" CInt -> -- is_expander : TBasicType TBoolean CInt -> -- is_expanded : TBasicType TBoolean IO () treeViewColumnCellSetCellData :: (MonadIO m, TreeViewColumnK a, TreeModelK b) => a -- _obj -> b -- treeModel -> TreeIter -- iter -> Bool -- isExpander -> Bool -- isExpanded -> m () -- result treeViewColumnCellSetCellData _obj treeModel iter isExpander isExpanded = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let treeModel' = unsafeManagedPtrCastPtr treeModel let iter' = unsafeManagedPtrGetPtr iter let isExpander' = (fromIntegral . fromEnum) isExpander let isExpanded' = (fromIntegral . fromEnum) isExpanded gtk_tree_view_column_cell_set_cell_data _obj' treeModel' iter' isExpander' isExpanded' touchManagedPtr _obj touchManagedPtr treeModel touchManagedPtr iter return () data TreeViewColumnCellSetCellDataMethodInfo instance (signature ~ (b -> TreeIter -> Bool -> Bool -> m ()), MonadIO m, TreeViewColumnK a, TreeModelK b) => MethodInfo TreeViewColumnCellSetCellDataMethodInfo a signature where overloadedMethod _ = treeViewColumnCellSetCellData -- method TreeViewColumn::clear -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_clear" gtk_tree_view_column_clear :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO () treeViewColumnClear :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m () -- result treeViewColumnClear _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_clear _obj' touchManagedPtr _obj return () data TreeViewColumnClearMethodInfo instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnClearMethodInfo a signature where overloadedMethod _ = treeViewColumnClear -- method TreeViewColumn::clear_attributes -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_clear_attributes" gtk_tree_view_column_clear_attributes :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" IO () treeViewColumnClearAttributes :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => a -- _obj -> b -- cellRenderer -> m () -- result treeViewColumnClearAttributes _obj cellRenderer = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer gtk_tree_view_column_clear_attributes _obj' cellRenderer' touchManagedPtr _obj touchManagedPtr cellRenderer return () data TreeViewColumnClearAttributesMethodInfo instance (signature ~ (b -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnClearAttributesMethodInfo a signature where overloadedMethod _ = treeViewColumnClearAttributes -- method TreeViewColumn::clicked -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_clicked" gtk_tree_view_column_clicked :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO () treeViewColumnClicked :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m () -- result treeViewColumnClicked _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_clicked _obj' touchManagedPtr _obj return () data TreeViewColumnClickedMethodInfo instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnClickedMethodInfo a signature where overloadedMethod _ = treeViewColumnClicked -- method TreeViewColumn::focus_cell -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_focus_cell" gtk_tree_view_column_focus_cell :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" IO () treeViewColumnFocusCell :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => a -- _obj -> b -- cell -> m () -- result treeViewColumnFocusCell _obj cell = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell gtk_tree_view_column_focus_cell _obj' cell' touchManagedPtr _obj touchManagedPtr cell return () data TreeViewColumnFocusCellMethodInfo instance (signature ~ (b -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnFocusCellMethodInfo a signature where overloadedMethod _ = treeViewColumnFocusCell -- method TreeViewColumn::get_alignment -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TFloat) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_alignment" gtk_tree_view_column_get_alignment :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CFloat treeViewColumnGetAlignment :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Float -- result treeViewColumnGetAlignment _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_alignment _obj' let result' = realToFrac result touchManagedPtr _obj return result' data TreeViewColumnGetAlignmentMethodInfo instance (signature ~ (m Float), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetAlignmentMethodInfo a signature where overloadedMethod _ = treeViewColumnGetAlignment -- method TreeViewColumn::get_button -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_button" gtk_tree_view_column_get_button :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO (Ptr Widget) treeViewColumnGetButton :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Widget -- result treeViewColumnGetButton _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_button _obj' checkUnexpectedReturnNULL "gtk_tree_view_column_get_button" result result' <- (newObject Widget) result touchManagedPtr _obj return result' data TreeViewColumnGetButtonMethodInfo instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetButtonMethodInfo a signature where overloadedMethod _ = treeViewColumnGetButton -- method TreeViewColumn::get_clickable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_clickable" gtk_tree_view_column_get_clickable :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CInt treeViewColumnGetClickable :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Bool -- result treeViewColumnGetClickable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_clickable _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data TreeViewColumnGetClickableMethodInfo instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetClickableMethodInfo a signature where overloadedMethod _ = treeViewColumnGetClickable -- method TreeViewColumn::get_expand -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_expand" gtk_tree_view_column_get_expand :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CInt treeViewColumnGetExpand :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Bool -- result treeViewColumnGetExpand _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_expand _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data TreeViewColumnGetExpandMethodInfo instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetExpandMethodInfo a signature where overloadedMethod _ = treeViewColumnGetExpand -- method TreeViewColumn::get_fixed_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_fixed_width" gtk_tree_view_column_get_fixed_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO Int32 treeViewColumnGetFixedWidth :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Int32 -- result treeViewColumnGetFixedWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_fixed_width _obj' touchManagedPtr _obj return result data TreeViewColumnGetFixedWidthMethodInfo instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetFixedWidthMethodInfo a signature where overloadedMethod _ = treeViewColumnGetFixedWidth -- method TreeViewColumn::get_max_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_max_width" gtk_tree_view_column_get_max_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO Int32 treeViewColumnGetMaxWidth :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Int32 -- result treeViewColumnGetMaxWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_max_width _obj' touchManagedPtr _obj return result data TreeViewColumnGetMaxWidthMethodInfo instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetMaxWidthMethodInfo a signature where overloadedMethod _ = treeViewColumnGetMaxWidth -- method TreeViewColumn::get_min_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_min_width" gtk_tree_view_column_get_min_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO Int32 treeViewColumnGetMinWidth :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Int32 -- result treeViewColumnGetMinWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_min_width _obj' touchManagedPtr _obj return result data TreeViewColumnGetMinWidthMethodInfo instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetMinWidthMethodInfo a signature where overloadedMethod _ = treeViewColumnGetMinWidth -- method TreeViewColumn::get_reorderable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_reorderable" gtk_tree_view_column_get_reorderable :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CInt treeViewColumnGetReorderable :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Bool -- result treeViewColumnGetReorderable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_reorderable _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data TreeViewColumnGetReorderableMethodInfo instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetReorderableMethodInfo a signature where overloadedMethod _ = treeViewColumnGetReorderable -- method TreeViewColumn::get_resizable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_resizable" gtk_tree_view_column_get_resizable :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CInt treeViewColumnGetResizable :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Bool -- result treeViewColumnGetResizable _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_resizable _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data TreeViewColumnGetResizableMethodInfo instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetResizableMethodInfo a signature where overloadedMethod _ = treeViewColumnGetResizable -- method TreeViewColumn::get_sizing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "Gtk" "TreeViewColumnSizing") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_sizing" gtk_tree_view_column_get_sizing :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CUInt treeViewColumnGetSizing :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m TreeViewColumnSizing -- result treeViewColumnGetSizing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sizing _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' data TreeViewColumnGetSizingMethodInfo instance (signature ~ (m TreeViewColumnSizing), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSizingMethodInfo a signature where overloadedMethod _ = treeViewColumnGetSizing -- method TreeViewColumn::get_sort_column_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_sort_column_id" gtk_tree_view_column_get_sort_column_id :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO Int32 treeViewColumnGetSortColumnId :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Int32 -- result treeViewColumnGetSortColumnId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sort_column_id _obj' touchManagedPtr _obj return result data TreeViewColumnGetSortColumnIdMethodInfo instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortColumnIdMethodInfo a signature where overloadedMethod _ = treeViewColumnGetSortColumnId -- method TreeViewColumn::get_sort_indicator -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_sort_indicator" gtk_tree_view_column_get_sort_indicator :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CInt treeViewColumnGetSortIndicator :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Bool -- result treeViewColumnGetSortIndicator _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sort_indicator _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data TreeViewColumnGetSortIndicatorMethodInfo instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortIndicatorMethodInfo a signature where overloadedMethod _ = treeViewColumnGetSortIndicator -- method TreeViewColumn::get_sort_order -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "Gtk" "SortType") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_sort_order" gtk_tree_view_column_get_sort_order :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CUInt treeViewColumnGetSortOrder :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m SortType -- result treeViewColumnGetSortOrder _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_sort_order _obj' let result' = (toEnum . fromIntegral) result touchManagedPtr _obj return result' data TreeViewColumnGetSortOrderMethodInfo instance (signature ~ (m SortType), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSortOrderMethodInfo a signature where overloadedMethod _ = treeViewColumnGetSortOrder -- method TreeViewColumn::get_spacing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_spacing" gtk_tree_view_column_get_spacing :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO Int32 treeViewColumnGetSpacing :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Int32 -- result treeViewColumnGetSpacing _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_spacing _obj' touchManagedPtr _obj return result data TreeViewColumnGetSpacingMethodInfo instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetSpacingMethodInfo a signature where overloadedMethod _ = treeViewColumnGetSpacing -- method TreeViewColumn::get_title -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_title" gtk_tree_view_column_get_title :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CString treeViewColumnGetTitle :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m T.Text -- result treeViewColumnGetTitle _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_title _obj' checkUnexpectedReturnNULL "gtk_tree_view_column_get_title" result result' <- cstringToText result touchManagedPtr _obj return result' data TreeViewColumnGetTitleMethodInfo instance (signature ~ (m T.Text), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetTitleMethodInfo a signature where overloadedMethod _ = treeViewColumnGetTitle -- method TreeViewColumn::get_tree_view -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_tree_view" gtk_tree_view_column_get_tree_view :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO (Ptr Widget) treeViewColumnGetTreeView :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Widget -- result treeViewColumnGetTreeView _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_tree_view _obj' checkUnexpectedReturnNULL "gtk_tree_view_column_get_tree_view" result result' <- (newObject Widget) result touchManagedPtr _obj return result' data TreeViewColumnGetTreeViewMethodInfo instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetTreeViewMethodInfo a signature where overloadedMethod _ = treeViewColumnGetTreeView -- method TreeViewColumn::get_visible -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_visible" gtk_tree_view_column_get_visible :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO CInt treeViewColumnGetVisible :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Bool -- result treeViewColumnGetVisible _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_visible _obj' let result' = (/= 0) result touchManagedPtr _obj return result' data TreeViewColumnGetVisibleMethodInfo instance (signature ~ (m Bool), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetVisibleMethodInfo a signature where overloadedMethod _ = treeViewColumnGetVisible -- method TreeViewColumn::get_widget -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface "Gtk" "Widget") -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_widget" gtk_tree_view_column_get_widget :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO (Ptr Widget) treeViewColumnGetWidget :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Widget -- result treeViewColumnGetWidget _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_widget _obj' checkUnexpectedReturnNULL "gtk_tree_view_column_get_widget" result result' <- (newObject Widget) result touchManagedPtr _obj return result' data TreeViewColumnGetWidgetMethodInfo instance (signature ~ (m Widget), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetWidgetMethodInfo a signature where overloadedMethod _ = treeViewColumnGetWidget -- method TreeViewColumn::get_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_width" gtk_tree_view_column_get_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO Int32 treeViewColumnGetWidth :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Int32 -- result treeViewColumnGetWidth _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_width _obj' touchManagedPtr _obj return result data TreeViewColumnGetWidthMethodInfo instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetWidthMethodInfo a signature where overloadedMethod _ = treeViewColumnGetWidth -- method TreeViewColumn::get_x_offset -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_get_x_offset" gtk_tree_view_column_get_x_offset :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO Int32 treeViewColumnGetXOffset :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m Int32 -- result treeViewColumnGetXOffset _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gtk_tree_view_column_get_x_offset _obj' touchManagedPtr _obj return result data TreeViewColumnGetXOffsetMethodInfo instance (signature ~ (m Int32), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnGetXOffsetMethodInfo a signature where overloadedMethod _ = treeViewColumnGetXOffset -- method TreeViewColumn::pack_end -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_pack_end" gtk_tree_view_column_pack_end :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" CInt -> -- expand : TBasicType TBoolean IO () treeViewColumnPackEnd :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => a -- _obj -> b -- cell -> Bool -- expand -> m () -- result treeViewColumnPackEnd _obj cell expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell let expand' = (fromIntegral . fromEnum) expand gtk_tree_view_column_pack_end _obj' cell' expand' touchManagedPtr _obj touchManagedPtr cell return () data TreeViewColumnPackEndMethodInfo instance (signature ~ (b -> Bool -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnPackEndMethodInfo a signature where overloadedMethod _ = treeViewColumnPackEnd -- method TreeViewColumn::pack_start -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_pack_start" gtk_tree_view_column_pack_start :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell : TInterface "Gtk" "CellRenderer" CInt -> -- expand : TBasicType TBoolean IO () treeViewColumnPackStart :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => a -- _obj -> b -- cell -> Bool -- expand -> m () -- result treeViewColumnPackStart _obj cell expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cell' = unsafeManagedPtrCastPtr cell let expand' = (fromIntegral . fromEnum) expand gtk_tree_view_column_pack_start _obj' cell' expand' touchManagedPtr _obj touchManagedPtr cell return () data TreeViewColumnPackStartMethodInfo instance (signature ~ (b -> Bool -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnPackStartMethodInfo a signature where overloadedMethod _ = treeViewColumnPackStart -- method TreeViewColumn::queue_resize -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_queue_resize" gtk_tree_view_column_queue_resize :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" IO () treeViewColumnQueueResize :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> m () -- result treeViewColumnQueueResize _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_queue_resize _obj' touchManagedPtr _obj return () data TreeViewColumnQueueResizeMethodInfo instance (signature ~ (m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnQueueResizeMethodInfo a signature where overloadedMethod _ = treeViewColumnQueueResize -- method TreeViewColumn::set_alignment -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "xalign", argType = TBasicType TFloat, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_alignment" gtk_tree_view_column_set_alignment :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CFloat -> -- xalign : TBasicType TFloat IO () treeViewColumnSetAlignment :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Float -- xalign -> m () -- result treeViewColumnSetAlignment _obj xalign = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let xalign' = realToFrac xalign gtk_tree_view_column_set_alignment _obj' xalign' touchManagedPtr _obj return () data TreeViewColumnSetAlignmentMethodInfo instance (signature ~ (Float -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetAlignmentMethodInfo a signature where overloadedMethod _ = treeViewColumnSetAlignment -- method TreeViewColumn::set_cell_data_func -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cell_renderer", argType = TInterface "Gtk" "CellRenderer", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface "Gtk" "TreeCellDataFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "destroy", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_cell_data_func" gtk_tree_view_column_set_cell_data_func :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr CellRenderer -> -- cell_renderer : TInterface "Gtk" "CellRenderer" FunPtr TreeCellDataFuncC -> -- func : TInterface "Gtk" "TreeCellDataFunc" Ptr () -> -- func_data : TBasicType TPtr FunPtr GLib.DestroyNotifyC -> -- destroy : TInterface "GLib" "DestroyNotify" IO () treeViewColumnSetCellDataFunc :: (MonadIO m, TreeViewColumnK a, CellRendererK b) => a -- _obj -> b -- cellRenderer -> Maybe (TreeCellDataFunc) -- func -> m () -- result treeViewColumnSetCellDataFunc _obj cellRenderer func = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let cellRenderer' = unsafeManagedPtrCastPtr cellRenderer maybeFunc <- case func of Nothing -> return (castPtrToFunPtr nullPtr) Just jFunc -> do jFunc' <- mkTreeCellDataFunc (treeCellDataFuncWrapper Nothing jFunc) return jFunc' let funcData = castFunPtrToPtr maybeFunc let destroy = safeFreeFunPtrPtr gtk_tree_view_column_set_cell_data_func _obj' cellRenderer' maybeFunc funcData destroy touchManagedPtr _obj touchManagedPtr cellRenderer return () data TreeViewColumnSetCellDataFuncMethodInfo instance (signature ~ (b -> Maybe (TreeCellDataFunc) -> m ()), MonadIO m, TreeViewColumnK a, CellRendererK b) => MethodInfo TreeViewColumnSetCellDataFuncMethodInfo a signature where overloadedMethod _ = treeViewColumnSetCellDataFunc -- method TreeViewColumn::set_clickable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clickable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_clickable" gtk_tree_view_column_set_clickable :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CInt -> -- clickable : TBasicType TBoolean IO () treeViewColumnSetClickable :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Bool -- clickable -> m () -- result treeViewColumnSetClickable _obj clickable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let clickable' = (fromIntegral . fromEnum) clickable gtk_tree_view_column_set_clickable _obj' clickable' touchManagedPtr _obj return () data TreeViewColumnSetClickableMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetClickableMethodInfo a signature where overloadedMethod _ = treeViewColumnSetClickable -- method TreeViewColumn::set_expand -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "expand", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_expand" gtk_tree_view_column_set_expand :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CInt -> -- expand : TBasicType TBoolean IO () treeViewColumnSetExpand :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Bool -- expand -> m () -- result treeViewColumnSetExpand _obj expand = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let expand' = (fromIntegral . fromEnum) expand gtk_tree_view_column_set_expand _obj' expand' touchManagedPtr _obj return () data TreeViewColumnSetExpandMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetExpandMethodInfo a signature where overloadedMethod _ = treeViewColumnSetExpand -- method TreeViewColumn::set_fixed_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "fixed_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_fixed_width" gtk_tree_view_column_set_fixed_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Int32 -> -- fixed_width : TBasicType TInt IO () treeViewColumnSetFixedWidth :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Int32 -- fixedWidth -> m () -- result treeViewColumnSetFixedWidth _obj fixedWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_set_fixed_width _obj' fixedWidth touchManagedPtr _obj return () data TreeViewColumnSetFixedWidthMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetFixedWidthMethodInfo a signature where overloadedMethod _ = treeViewColumnSetFixedWidth -- method TreeViewColumn::set_max_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "max_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_max_width" gtk_tree_view_column_set_max_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Int32 -> -- max_width : TBasicType TInt IO () treeViewColumnSetMaxWidth :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Int32 -- maxWidth -> m () -- result treeViewColumnSetMaxWidth _obj maxWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_set_max_width _obj' maxWidth touchManagedPtr _obj return () data TreeViewColumnSetMaxWidthMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetMaxWidthMethodInfo a signature where overloadedMethod _ = treeViewColumnSetMaxWidth -- method TreeViewColumn::set_min_width -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "min_width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_min_width" gtk_tree_view_column_set_min_width :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Int32 -> -- min_width : TBasicType TInt IO () treeViewColumnSetMinWidth :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Int32 -- minWidth -> m () -- result treeViewColumnSetMinWidth _obj minWidth = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_set_min_width _obj' minWidth touchManagedPtr _obj return () data TreeViewColumnSetMinWidthMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetMinWidthMethodInfo a signature where overloadedMethod _ = treeViewColumnSetMinWidth -- method TreeViewColumn::set_reorderable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "reorderable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_reorderable" gtk_tree_view_column_set_reorderable :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CInt -> -- reorderable : TBasicType TBoolean IO () treeViewColumnSetReorderable :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Bool -- reorderable -> m () -- result treeViewColumnSetReorderable _obj reorderable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let reorderable' = (fromIntegral . fromEnum) reorderable gtk_tree_view_column_set_reorderable _obj' reorderable' touchManagedPtr _obj return () data TreeViewColumnSetReorderableMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetReorderableMethodInfo a signature where overloadedMethod _ = treeViewColumnSetReorderable -- method TreeViewColumn::set_resizable -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "resizable", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_resizable" gtk_tree_view_column_set_resizable :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CInt -> -- resizable : TBasicType TBoolean IO () treeViewColumnSetResizable :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Bool -- resizable -> m () -- result treeViewColumnSetResizable _obj resizable = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let resizable' = (fromIntegral . fromEnum) resizable gtk_tree_view_column_set_resizable _obj' resizable' touchManagedPtr _obj return () data TreeViewColumnSetResizableMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetResizableMethodInfo a signature where overloadedMethod _ = treeViewColumnSetResizable -- method TreeViewColumn::set_sizing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gtk" "TreeViewColumnSizing", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_sizing" gtk_tree_view_column_set_sizing :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CUInt -> -- type : TInterface "Gtk" "TreeViewColumnSizing" IO () treeViewColumnSetSizing :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> TreeViewColumnSizing -- type_ -> m () -- result treeViewColumnSetSizing _obj type_ = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let type_' = (fromIntegral . fromEnum) type_ gtk_tree_view_column_set_sizing _obj' type_' touchManagedPtr _obj return () data TreeViewColumnSetSizingMethodInfo instance (signature ~ (TreeViewColumnSizing -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSizingMethodInfo a signature where overloadedMethod _ = treeViewColumnSetSizing -- method TreeViewColumn::set_sort_column_id -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sort_column_id", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_sort_column_id" gtk_tree_view_column_set_sort_column_id :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Int32 -> -- sort_column_id : TBasicType TInt IO () treeViewColumnSetSortColumnId :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Int32 -- sortColumnId -> m () -- result treeViewColumnSetSortColumnId _obj sortColumnId = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_set_sort_column_id _obj' sortColumnId touchManagedPtr _obj return () data TreeViewColumnSetSortColumnIdMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortColumnIdMethodInfo a signature where overloadedMethod _ = treeViewColumnSetSortColumnId -- method TreeViewColumn::set_sort_indicator -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_sort_indicator" gtk_tree_view_column_set_sort_indicator :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CInt -> -- setting : TBasicType TBoolean IO () treeViewColumnSetSortIndicator :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Bool -- setting -> m () -- result treeViewColumnSetSortIndicator _obj setting = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let setting' = (fromIntegral . fromEnum) setting gtk_tree_view_column_set_sort_indicator _obj' setting' touchManagedPtr _obj return () data TreeViewColumnSetSortIndicatorMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortIndicatorMethodInfo a signature where overloadedMethod _ = treeViewColumnSetSortIndicator -- method TreeViewColumn::set_sort_order -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "order", argType = TInterface "Gtk" "SortType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_sort_order" gtk_tree_view_column_set_sort_order :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CUInt -> -- order : TInterface "Gtk" "SortType" IO () treeViewColumnSetSortOrder :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> SortType -- order -> m () -- result treeViewColumnSetSortOrder _obj order = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let order' = (fromIntegral . fromEnum) order gtk_tree_view_column_set_sort_order _obj' order' touchManagedPtr _obj return () data TreeViewColumnSetSortOrderMethodInfo instance (signature ~ (SortType -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSortOrderMethodInfo a signature where overloadedMethod _ = treeViewColumnSetSortOrder -- method TreeViewColumn::set_spacing -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spacing", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_spacing" gtk_tree_view_column_set_spacing :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Int32 -> -- spacing : TBasicType TInt IO () treeViewColumnSetSpacing :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Int32 -- spacing -> m () -- result treeViewColumnSetSpacing _obj spacing = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj gtk_tree_view_column_set_spacing _obj' spacing touchManagedPtr _obj return () data TreeViewColumnSetSpacingMethodInfo instance (signature ~ (Int32 -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetSpacingMethodInfo a signature where overloadedMethod _ = treeViewColumnSetSpacing -- method TreeViewColumn::set_title -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_title" gtk_tree_view_column_set_title :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CString -> -- title : TBasicType TUTF8 IO () treeViewColumnSetTitle :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> T.Text -- title -> m () -- result treeViewColumnSetTitle _obj title = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj title' <- textToCString title gtk_tree_view_column_set_title _obj' title' touchManagedPtr _obj freeMem title' return () data TreeViewColumnSetTitleMethodInfo instance (signature ~ (T.Text -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetTitleMethodInfo a signature where overloadedMethod _ = treeViewColumnSetTitle -- method TreeViewColumn::set_visible -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_visible" gtk_tree_view_column_set_visible :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" CInt -> -- visible : TBasicType TBoolean IO () treeViewColumnSetVisible :: (MonadIO m, TreeViewColumnK a) => a -- _obj -> Bool -- visible -> m () -- result treeViewColumnSetVisible _obj visible = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj let visible' = (fromIntegral . fromEnum) visible gtk_tree_view_column_set_visible _obj' visible' touchManagedPtr _obj return () data TreeViewColumnSetVisibleMethodInfo instance (signature ~ (Bool -> m ()), MonadIO m, TreeViewColumnK a) => MethodInfo TreeViewColumnSetVisibleMethodInfo a signature where overloadedMethod _ = treeViewColumnSetVisible -- method TreeViewColumn::set_widget -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gtk" "TreeViewColumn", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "widget", argType = TInterface "Gtk" "Widget", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_view_column_set_widget" gtk_tree_view_column_set_widget :: Ptr TreeViewColumn -> -- _obj : TInterface "Gtk" "TreeViewColumn" Ptr Widget -> -- widget : TInterface "Gtk" "Widget" IO () treeViewColumnSetWidget :: (MonadIO m, TreeViewColumnK a, WidgetK b) => a -- _obj -> Maybe (b) -- widget -> m () -- result treeViewColumnSetWidget _obj widget = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj maybeWidget <- case widget of Nothing -> return nullPtr Just jWidget -> do let jWidget' = unsafeManagedPtrCastPtr jWidget return jWidget' gtk_tree_view_column_set_widget _obj' maybeWidget touchManagedPtr _obj whenJust widget touchManagedPtr return () data TreeViewColumnSetWidgetMethodInfo instance (signature ~ (Maybe (b) -> m ()), MonadIO m, TreeViewColumnK a, WidgetK b) => MethodInfo TreeViewColumnSetWidgetMethodInfo a signature where overloadedMethod _ = treeViewColumnSetWidget