module GI.Gtk.Objects.TreeModelFilter
(
TreeModelFilter(..) ,
IsTreeModelFilter ,
toTreeModelFilter ,
noTreeModelFilter ,
TreeModelFilterClearCacheMethodInfo ,
treeModelFilterClearCache ,
TreeModelFilterConvertChildIterToIterMethodInfo,
treeModelFilterConvertChildIterToIter ,
TreeModelFilterConvertChildPathToPathMethodInfo,
treeModelFilterConvertChildPathToPath ,
TreeModelFilterConvertIterToChildIterMethodInfo,
treeModelFilterConvertIterToChildIter ,
TreeModelFilterConvertPathToChildPathMethodInfo,
treeModelFilterConvertPathToChildPath ,
TreeModelFilterGetModelMethodInfo ,
treeModelFilterGetModel ,
TreeModelFilterRefilterMethodInfo ,
treeModelFilterRefilter ,
TreeModelFilterSetVisibleColumnMethodInfo,
treeModelFilterSetVisibleColumn ,
TreeModelFilterSetVisibleFuncMethodInfo ,
treeModelFilterSetVisibleFunc ,
TreeModelFilterChildModelPropertyInfo ,
constructTreeModelFilterChildModel ,
getTreeModelFilterChildModel ,
treeModelFilterChildModel ,
TreeModelFilterVirtualRootPropertyInfo ,
constructTreeModelFilterVirtualRoot ,
getTreeModelFilterVirtualRoot ,
treeModelFilterVirtualRoot ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.GLib.Callbacks as GLib.Callbacks
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gtk.Callbacks as Gtk.Callbacks
import qualified GI.Gtk.Interfaces.TreeDragSource as Gtk.TreeDragSource
import qualified GI.Gtk.Interfaces.TreeModel as Gtk.TreeModel
import qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter
import qualified GI.Gtk.Structs.TreePath as Gtk.TreePath
newtype TreeModelFilter = TreeModelFilter (ManagedPtr TreeModelFilter)
foreign import ccall "gtk_tree_model_filter_get_type"
c_gtk_tree_model_filter_get_type :: IO GType
instance GObject TreeModelFilter where
gobjectType _ = c_gtk_tree_model_filter_get_type
class GObject o => IsTreeModelFilter o
#if MIN_VERSION_base(4,9,0)
instance (GObject a, O.UnknownAncestorError TreeModelFilter a) =>
IsTreeModelFilter a
#endif
instance IsTreeModelFilter TreeModelFilter
instance GObject.Object.IsObject TreeModelFilter
instance Gtk.TreeDragSource.IsTreeDragSource TreeModelFilter
instance Gtk.TreeModel.IsTreeModel TreeModelFilter
toTreeModelFilter :: IsTreeModelFilter o => o -> IO TreeModelFilter
toTreeModelFilter = unsafeCastTo TreeModelFilter
noTreeModelFilter :: Maybe TreeModelFilter
noTreeModelFilter = Nothing
type family ResolveTreeModelFilterMethod (t :: Symbol) (o :: *) :: * where
ResolveTreeModelFilterMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveTreeModelFilterMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveTreeModelFilterMethod "clearCache" o = TreeModelFilterClearCacheMethodInfo
ResolveTreeModelFilterMethod "convertChildIterToIter" o = TreeModelFilterConvertChildIterToIterMethodInfo
ResolveTreeModelFilterMethod "convertChildPathToPath" o = TreeModelFilterConvertChildPathToPathMethodInfo
ResolveTreeModelFilterMethod "convertIterToChildIter" o = TreeModelFilterConvertIterToChildIterMethodInfo
ResolveTreeModelFilterMethod "convertPathToChildPath" o = TreeModelFilterConvertPathToChildPathMethodInfo
ResolveTreeModelFilterMethod "dragDataDelete" o = Gtk.TreeDragSource.TreeDragSourceDragDataDeleteMethodInfo
ResolveTreeModelFilterMethod "dragDataGet" o = Gtk.TreeDragSource.TreeDragSourceDragDataGetMethodInfo
ResolveTreeModelFilterMethod "filterNew" o = Gtk.TreeModel.TreeModelFilterNewMethodInfo
ResolveTreeModelFilterMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveTreeModelFilterMethod "foreach" o = Gtk.TreeModel.TreeModelForeachMethodInfo
ResolveTreeModelFilterMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveTreeModelFilterMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveTreeModelFilterMethod "iterChildren" o = Gtk.TreeModel.TreeModelIterChildrenMethodInfo
ResolveTreeModelFilterMethod "iterHasChild" o = Gtk.TreeModel.TreeModelIterHasChildMethodInfo
ResolveTreeModelFilterMethod "iterNChildren" o = Gtk.TreeModel.TreeModelIterNChildrenMethodInfo
ResolveTreeModelFilterMethod "iterNext" o = Gtk.TreeModel.TreeModelIterNextMethodInfo
ResolveTreeModelFilterMethod "iterNthChild" o = Gtk.TreeModel.TreeModelIterNthChildMethodInfo
ResolveTreeModelFilterMethod "iterParent" o = Gtk.TreeModel.TreeModelIterParentMethodInfo
ResolveTreeModelFilterMethod "iterPrevious" o = Gtk.TreeModel.TreeModelIterPreviousMethodInfo
ResolveTreeModelFilterMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveTreeModelFilterMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveTreeModelFilterMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveTreeModelFilterMethod "refNode" o = Gtk.TreeModel.TreeModelRefNodeMethodInfo
ResolveTreeModelFilterMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveTreeModelFilterMethod "refilter" o = TreeModelFilterRefilterMethodInfo
ResolveTreeModelFilterMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
ResolveTreeModelFilterMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
ResolveTreeModelFilterMethod "rowChanged" o = Gtk.TreeModel.TreeModelRowChangedMethodInfo
ResolveTreeModelFilterMethod "rowDeleted" o = Gtk.TreeModel.TreeModelRowDeletedMethodInfo
ResolveTreeModelFilterMethod "rowDraggable" o = Gtk.TreeDragSource.TreeDragSourceRowDraggableMethodInfo
ResolveTreeModelFilterMethod "rowHasChildToggled" o = Gtk.TreeModel.TreeModelRowHasChildToggledMethodInfo
ResolveTreeModelFilterMethod "rowInserted" o = Gtk.TreeModel.TreeModelRowInsertedMethodInfo
ResolveTreeModelFilterMethod "rowsReordered" o = Gtk.TreeModel.TreeModelRowsReorderedMethodInfo
ResolveTreeModelFilterMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveTreeModelFilterMethod "sortNewWithModel" o = Gtk.TreeModel.TreeModelSortNewWithModelMethodInfo
ResolveTreeModelFilterMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveTreeModelFilterMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveTreeModelFilterMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveTreeModelFilterMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveTreeModelFilterMethod "unrefNode" o = Gtk.TreeModel.TreeModelUnrefNodeMethodInfo
ResolveTreeModelFilterMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveTreeModelFilterMethod "getColumnType" o = Gtk.TreeModel.TreeModelGetColumnTypeMethodInfo
ResolveTreeModelFilterMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveTreeModelFilterMethod "getFlags" o = Gtk.TreeModel.TreeModelGetFlagsMethodInfo
ResolveTreeModelFilterMethod "getIter" o = Gtk.TreeModel.TreeModelGetIterMethodInfo
ResolveTreeModelFilterMethod "getIterFirst" o = Gtk.TreeModel.TreeModelGetIterFirstMethodInfo
ResolveTreeModelFilterMethod "getIterFromString" o = Gtk.TreeModel.TreeModelGetIterFromStringMethodInfo
ResolveTreeModelFilterMethod "getModel" o = TreeModelFilterGetModelMethodInfo
ResolveTreeModelFilterMethod "getNColumns" o = Gtk.TreeModel.TreeModelGetNColumnsMethodInfo
ResolveTreeModelFilterMethod "getPath" o = Gtk.TreeModel.TreeModelGetPathMethodInfo
ResolveTreeModelFilterMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveTreeModelFilterMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveTreeModelFilterMethod "getStringFromIter" o = Gtk.TreeModel.TreeModelGetStringFromIterMethodInfo
ResolveTreeModelFilterMethod "getValue" o = Gtk.TreeModel.TreeModelGetValueMethodInfo
ResolveTreeModelFilterMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveTreeModelFilterMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveTreeModelFilterMethod "setVisibleColumn" o = TreeModelFilterSetVisibleColumnMethodInfo
ResolveTreeModelFilterMethod "setVisibleFunc" o = TreeModelFilterSetVisibleFuncMethodInfo
ResolveTreeModelFilterMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveTreeModelFilterMethod t TreeModelFilter, O.MethodInfo info TreeModelFilter p) => O.IsLabelProxy t (TreeModelFilter -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveTreeModelFilterMethod t TreeModelFilter, O.MethodInfo info TreeModelFilter p) => O.IsLabel t (TreeModelFilter -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
getTreeModelFilterChildModel :: (MonadIO m, IsTreeModelFilter o) => o -> m (Maybe Gtk.TreeModel.TreeModel)
getTreeModelFilterChildModel obj = liftIO $ getObjectPropertyObject obj "child-model" Gtk.TreeModel.TreeModel
constructTreeModelFilterChildModel :: (IsTreeModelFilter o, Gtk.TreeModel.IsTreeModel a) => a -> IO (GValueConstruct o)
constructTreeModelFilterChildModel val = constructObjectPropertyObject "child-model" (Just val)
data TreeModelFilterChildModelPropertyInfo
instance AttrInfo TreeModelFilterChildModelPropertyInfo where
type AttrAllowedOps TreeModelFilterChildModelPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TreeModelFilterChildModelPropertyInfo = Gtk.TreeModel.IsTreeModel
type AttrBaseTypeConstraint TreeModelFilterChildModelPropertyInfo = IsTreeModelFilter
type AttrGetType TreeModelFilterChildModelPropertyInfo = (Maybe Gtk.TreeModel.TreeModel)
type AttrLabel TreeModelFilterChildModelPropertyInfo = "child-model"
type AttrOrigin TreeModelFilterChildModelPropertyInfo = TreeModelFilter
attrGet _ = getTreeModelFilterChildModel
attrSet _ = undefined
attrConstruct _ = constructTreeModelFilterChildModel
attrClear _ = undefined
getTreeModelFilterVirtualRoot :: (MonadIO m, IsTreeModelFilter o) => o -> m (Maybe Gtk.TreePath.TreePath)
getTreeModelFilterVirtualRoot obj = liftIO $ getObjectPropertyBoxed obj "virtual-root" Gtk.TreePath.TreePath
constructTreeModelFilterVirtualRoot :: (IsTreeModelFilter o) => Gtk.TreePath.TreePath -> IO (GValueConstruct o)
constructTreeModelFilterVirtualRoot val = constructObjectPropertyBoxed "virtual-root" (Just val)
data TreeModelFilterVirtualRootPropertyInfo
instance AttrInfo TreeModelFilterVirtualRootPropertyInfo where
type AttrAllowedOps TreeModelFilterVirtualRootPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint TreeModelFilterVirtualRootPropertyInfo = (~) Gtk.TreePath.TreePath
type AttrBaseTypeConstraint TreeModelFilterVirtualRootPropertyInfo = IsTreeModelFilter
type AttrGetType TreeModelFilterVirtualRootPropertyInfo = (Maybe Gtk.TreePath.TreePath)
type AttrLabel TreeModelFilterVirtualRootPropertyInfo = "virtual-root"
type AttrOrigin TreeModelFilterVirtualRootPropertyInfo = TreeModelFilter
attrGet _ = getTreeModelFilterVirtualRoot
attrSet _ = undefined
attrConstruct _ = constructTreeModelFilterVirtualRoot
attrClear _ = undefined
instance O.HasAttributeList TreeModelFilter
type instance O.AttributeList TreeModelFilter = TreeModelFilterAttributeList
type TreeModelFilterAttributeList = ('[ '("childModel", TreeModelFilterChildModelPropertyInfo), '("virtualRoot", TreeModelFilterVirtualRootPropertyInfo)] :: [(Symbol, *)])
treeModelFilterChildModel :: AttrLabelProxy "childModel"
treeModelFilterChildModel = AttrLabelProxy
treeModelFilterVirtualRoot :: AttrLabelProxy "virtualRoot"
treeModelFilterVirtualRoot = AttrLabelProxy
type instance O.SignalList TreeModelFilter = TreeModelFilterSignalList
type TreeModelFilterSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("rowChanged", Gtk.TreeModel.TreeModelRowChangedSignalInfo), '("rowDeleted", Gtk.TreeModel.TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", Gtk.TreeModel.TreeModelRowHasChildToggledSignalInfo), '("rowInserted", Gtk.TreeModel.TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)])
foreign import ccall "gtk_tree_model_filter_clear_cache" gtk_tree_model_filter_clear_cache ::
Ptr TreeModelFilter ->
IO ()
treeModelFilterClearCache ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> m ()
treeModelFilterClearCache filter = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
gtk_tree_model_filter_clear_cache filter'
touchManagedPtr filter
return ()
data TreeModelFilterClearCacheMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterClearCacheMethodInfo a signature where
overloadedMethod _ = treeModelFilterClearCache
foreign import ccall "gtk_tree_model_filter_convert_child_iter_to_iter" gtk_tree_model_filter_convert_child_iter_to_iter ::
Ptr TreeModelFilter ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreeIter.TreeIter ->
IO CInt
treeModelFilterConvertChildIterToIter ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> Gtk.TreeIter.TreeIter
-> m (Bool,Gtk.TreeIter.TreeIter)
treeModelFilterConvertChildIterToIter filter childIter = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
filterIter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter)
childIter' <- unsafeManagedPtrGetPtr childIter
result <- gtk_tree_model_filter_convert_child_iter_to_iter filter' filterIter childIter'
let result' = (/= 0) result
filterIter' <- (wrapBoxed Gtk.TreeIter.TreeIter) filterIter
touchManagedPtr filter
touchManagedPtr childIter
return (result', filterIter')
data TreeModelFilterConvertChildIterToIterMethodInfo
instance (signature ~ (Gtk.TreeIter.TreeIter -> m (Bool,Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterConvertChildIterToIterMethodInfo a signature where
overloadedMethod _ = treeModelFilterConvertChildIterToIter
foreign import ccall "gtk_tree_model_filter_convert_child_path_to_path" gtk_tree_model_filter_convert_child_path_to_path ::
Ptr TreeModelFilter ->
Ptr Gtk.TreePath.TreePath ->
IO (Ptr Gtk.TreePath.TreePath)
treeModelFilterConvertChildPathToPath ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> Gtk.TreePath.TreePath
-> m (Maybe Gtk.TreePath.TreePath)
treeModelFilterConvertChildPathToPath filter childPath = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
childPath' <- unsafeManagedPtrGetPtr childPath
result <- gtk_tree_model_filter_convert_child_path_to_path filter' childPath'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Gtk.TreePath.TreePath) result'
return result''
touchManagedPtr filter
touchManagedPtr childPath
return maybeResult
data TreeModelFilterConvertChildPathToPathMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m (Maybe Gtk.TreePath.TreePath)), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterConvertChildPathToPathMethodInfo a signature where
overloadedMethod _ = treeModelFilterConvertChildPathToPath
foreign import ccall "gtk_tree_model_filter_convert_iter_to_child_iter" gtk_tree_model_filter_convert_iter_to_child_iter ::
Ptr TreeModelFilter ->
Ptr Gtk.TreeIter.TreeIter ->
Ptr Gtk.TreeIter.TreeIter ->
IO ()
treeModelFilterConvertIterToChildIter ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> Gtk.TreeIter.TreeIter
-> m (Gtk.TreeIter.TreeIter)
treeModelFilterConvertIterToChildIter filter filterIter = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
childIter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter)
filterIter' <- unsafeManagedPtrGetPtr filterIter
gtk_tree_model_filter_convert_iter_to_child_iter filter' childIter filterIter'
childIter' <- (wrapBoxed Gtk.TreeIter.TreeIter) childIter
touchManagedPtr filter
touchManagedPtr filterIter
return childIter'
data TreeModelFilterConvertIterToChildIterMethodInfo
instance (signature ~ (Gtk.TreeIter.TreeIter -> m (Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterConvertIterToChildIterMethodInfo a signature where
overloadedMethod _ = treeModelFilterConvertIterToChildIter
foreign import ccall "gtk_tree_model_filter_convert_path_to_child_path" gtk_tree_model_filter_convert_path_to_child_path ::
Ptr TreeModelFilter ->
Ptr Gtk.TreePath.TreePath ->
IO (Ptr Gtk.TreePath.TreePath)
treeModelFilterConvertPathToChildPath ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> Gtk.TreePath.TreePath
-> m (Maybe Gtk.TreePath.TreePath)
treeModelFilterConvertPathToChildPath filter filterPath = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
filterPath' <- unsafeManagedPtrGetPtr filterPath
result <- gtk_tree_model_filter_convert_path_to_child_path filter' filterPath'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (wrapBoxed Gtk.TreePath.TreePath) result'
return result''
touchManagedPtr filter
touchManagedPtr filterPath
return maybeResult
data TreeModelFilterConvertPathToChildPathMethodInfo
instance (signature ~ (Gtk.TreePath.TreePath -> m (Maybe Gtk.TreePath.TreePath)), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterConvertPathToChildPathMethodInfo a signature where
overloadedMethod _ = treeModelFilterConvertPathToChildPath
foreign import ccall "gtk_tree_model_filter_get_model" gtk_tree_model_filter_get_model ::
Ptr TreeModelFilter ->
IO (Ptr Gtk.TreeModel.TreeModel)
treeModelFilterGetModel ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> m Gtk.TreeModel.TreeModel
treeModelFilterGetModel filter = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
result <- gtk_tree_model_filter_get_model filter'
checkUnexpectedReturnNULL "treeModelFilterGetModel" result
result' <- (newObject Gtk.TreeModel.TreeModel) result
touchManagedPtr filter
return result'
data TreeModelFilterGetModelMethodInfo
instance (signature ~ (m Gtk.TreeModel.TreeModel), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterGetModelMethodInfo a signature where
overloadedMethod _ = treeModelFilterGetModel
foreign import ccall "gtk_tree_model_filter_refilter" gtk_tree_model_filter_refilter ::
Ptr TreeModelFilter ->
IO ()
treeModelFilterRefilter ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> m ()
treeModelFilterRefilter filter = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
gtk_tree_model_filter_refilter filter'
touchManagedPtr filter
return ()
data TreeModelFilterRefilterMethodInfo
instance (signature ~ (m ()), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterRefilterMethodInfo a signature where
overloadedMethod _ = treeModelFilterRefilter
foreign import ccall "gtk_tree_model_filter_set_visible_column" gtk_tree_model_filter_set_visible_column ::
Ptr TreeModelFilter ->
Int32 ->
IO ()
treeModelFilterSetVisibleColumn ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> Int32
-> m ()
treeModelFilterSetVisibleColumn filter column = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
gtk_tree_model_filter_set_visible_column filter' column
touchManagedPtr filter
return ()
data TreeModelFilterSetVisibleColumnMethodInfo
instance (signature ~ (Int32 -> m ()), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterSetVisibleColumnMethodInfo a signature where
overloadedMethod _ = treeModelFilterSetVisibleColumn
foreign import ccall "gtk_tree_model_filter_set_visible_func" gtk_tree_model_filter_set_visible_func ::
Ptr TreeModelFilter ->
FunPtr Gtk.Callbacks.C_TreeModelFilterVisibleFunc ->
Ptr () ->
FunPtr GLib.Callbacks.C_DestroyNotify ->
IO ()
treeModelFilterSetVisibleFunc ::
(B.CallStack.HasCallStack, MonadIO m, IsTreeModelFilter a) =>
a
-> Gtk.Callbacks.TreeModelFilterVisibleFunc
-> m ()
treeModelFilterSetVisibleFunc filter func = liftIO $ do
filter' <- unsafeManagedPtrCastPtr filter
func' <- Gtk.Callbacks.mk_TreeModelFilterVisibleFunc (Gtk.Callbacks.wrap_TreeModelFilterVisibleFunc Nothing (Gtk.Callbacks.drop_closures_TreeModelFilterVisibleFunc func))
let data_ = castFunPtrToPtr func'
let destroy = safeFreeFunPtrPtr
gtk_tree_model_filter_set_visible_func filter' func' data_ destroy
touchManagedPtr filter
return ()
data TreeModelFilterSetVisibleFuncMethodInfo
instance (signature ~ (Gtk.Callbacks.TreeModelFilterVisibleFunc -> m ()), MonadIO m, IsTreeModelFilter a) => O.MethodInfo TreeModelFilterSetVisibleFuncMethodInfo a signature where
overloadedMethod _ = treeModelFilterSetVisibleFunc