{- | Copyright : Will Thompson, Iñaki García Etxebarria and Jonas Platte License : LGPL-2.1 Maintainer : Iñaki García Etxebarria (garetxe@gmail.com) The 'GI.Gtk.Interfaces.TreeModel.TreeModel' interface defines a generic tree interface for use by the 'GI.Gtk.Objects.TreeView.TreeView' widget. It is an abstract interface, and is designed to be usable with any appropriate data structure. The programmer just has to implement this interface on their own data type for it to be viewable by a 'GI.Gtk.Objects.TreeView.TreeView' widget. The model is represented as a hierarchical tree of strongly-typed, columned data. In other words, the model can be seen as a tree where every node has different values depending on which column is being queried. The type of data found in a column is determined by using the GType system (ie. @/G_TYPE_INT/@, @/GTK_TYPE_BUTTON/@, @/G_TYPE_POINTER/@, etc). The types are homogeneous per column across all nodes. It is important to note that this interface only provides a way of examining a model and observing changes. The implementation of each individual model decides how and if changes are made. In order to make life simpler for programmers who do not need to write their own specialized model, two generic models are provided — the 'GI.Gtk.Objects.TreeStore.TreeStore' and the 'GI.Gtk.Objects.ListStore.ListStore'. To use these, the developer simply pushes data into these models as necessary. These models provide the data structure as well as all appropriate tree interfaces. As a result, implementing drag and drop, sorting, and storing data is trivial. For the vast majority of trees and lists, these two models are sufficient. Models are accessed on a node\/column level of granularity. One can query for the value of a model at a certain node and a certain column on that node. There are two structures used to reference a particular node in a model. They are the 'GI.Gtk.Structs.TreePath.TreePath'-struct and the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct (“iter” is short for iterator). Most of the interface consists of operations on a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct. A path is essentially a potential node. It is a location on a model that may or may not actually correspond to a node on a specific model. The 'GI.Gtk.Structs.TreePath.TreePath'-struct can be converted into either an array of unsigned integers or a string. The string form is a list of numbers separated by a colon. Each number refers to the offset at that level. Thus, the path @0@ refers to the root node and the path @2:4@ refers to the fifth child of the third node. By contrast, a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct is a reference to a specific node on a specific model. It is a generic struct with an integer and three generic pointers. These are filled in by the model in a model-specific way. One can convert a path to an iterator by calling 'GI.Gtk.Interfaces.TreeModel.treeModelGetIter'. These iterators are the primary way of accessing a model and are similar to the iterators used by 'GI.Gtk.Objects.TextBuffer.TextBuffer'. They are generally statically allocated on the stack and only used for a short time. The model interface defines a set of operations using them for navigating the model. It is expected that models fill in the iterator with private data. For example, the 'GI.Gtk.Objects.ListStore.ListStore' model, which is internally a simple linked list, stores a list node in one of the pointers. The 'GI.Gtk.Objects.TreeModelSort.TreeModelSort' stores an array and an offset in two of the pointers. Additionally, there is an integer field. This field is generally filled with a unique stamp per model. This stamp is for catching errors resulting from using invalid iterators with a model. The lifecycle of an iterator can be a little confusing at first. Iterators are expected to always be valid for as long as the model is unchanged (and doesn’t emit a signal). The model is considered to own all outstanding iterators and nothing needs to be done to free them from the user’s point of view. Additionally, some models guarantee that an iterator is valid for as long as the node it refers to is valid (most notably the 'GI.Gtk.Objects.TreeStore.TreeStore' and 'GI.Gtk.Objects.ListStore.ListStore'). Although generally uninteresting, as one always has to allow for the case where iterators do not persist beyond a signal, some very important performance enhancements were made in the sort model. As a result, the @/GTK_TREE_MODEL_ITERS_PERSIST/@ flag was added to indicate this behavior. To help show some common operation of a model, some examples are provided. The first example shows three ways of getting the iter at the location @3:2:5@. While the first method shown is easier, the second is much more common, as you often get paths from callbacks. ## Acquiring a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct === /C code/ > >// Three ways of getting the iter pointing to the location >GtkTreePath *path; >GtkTreeIter iter; >GtkTreeIter parent_iter; > >// get the iterator from a string >gtk_tree_model_get_iter_from_string (model, > &iter, > "3:2:5"); > >// get the iterator from a path >path = gtk_tree_path_new_from_string ("3:2:5"); >gtk_tree_model_get_iter (model, &iter, path); >gtk_tree_path_free (path); > >// walk the tree to find the iterator >gtk_tree_model_iter_nth_child (model, &iter, > NULL, 3); >parent_iter = iter; >gtk_tree_model_iter_nth_child (model, &iter, > &parent_iter, 2); >parent_iter = iter; >gtk_tree_model_iter_nth_child (model, &iter, > &parent_iter, 5); This second example shows a quick way of iterating through a list and getting a string and an integer from each row. The @/populate_model()/@ function used below is not shown, as it is specific to the 'GI.Gtk.Objects.ListStore.ListStore'. For information on how to write such a function, see the 'GI.Gtk.Objects.ListStore.ListStore' documentation. ## Reading data from a 'GI.Gtk.Interfaces.TreeModel.TreeModel' === /C code/ > >enum >{ > STRING_COLUMN, > INT_COLUMN, > N_COLUMNS >}; > >... > >GtkTreeModel *list_store; >GtkTreeIter iter; >gboolean valid; >gint row_count = 0; > >// make a new list_store >list_store = gtk_list_store_new (N_COLUMNS, > G_TYPE_STRING, > G_TYPE_INT); > >// Fill the list store with data >populate_model (list_store); > >// Get the first iter in the list, check it is valid and walk >// through the list, reading each row. > >valid = gtk_tree_model_get_iter_first (list_store, > &iter); >while (valid) > { > gchar *str_data; > gint int_data; > > // Make sure you terminate calls to gtk_tree_model_get() with a “-1” value > gtk_tree_model_get (list_store, &iter, > STRING_COLUMN, &str_data, > INT_COLUMN, &int_data, > -1); > > // Do something with the data > g_print ("Row %d: (%s,%d)\n", > row_count, str_data, int_data); > g_free (str_data); > > valid = gtk_tree_model_iter_next (list_store, > &iter); > row_count++; > } The 'GI.Gtk.Interfaces.TreeModel.TreeModel' interface contains two methods for reference counting: 'GI.Gtk.Interfaces.TreeModel.treeModelRefNode' and 'GI.Gtk.Interfaces.TreeModel.treeModelUnrefNode'. These two methods are optional to implement. The reference counting is meant as a way for views to let models know when nodes are being displayed. 'GI.Gtk.Objects.TreeView.TreeView' will take a reference on a node when it is visible, which means the node is either in the toplevel or expanded. Being displayed does not mean that the node is currently directly visible to the user in the viewport. Based on this reference counting scheme a caching model, for example, can decide whether or not to cache a node based on the reference count. A file-system based model would not want to keep the entire file hierarchy in memory, but just the folders that are currently expanded in every current view. When working with reference counting, the following rules must be taken into account: * Never take a reference on a node without owning a reference on its parent. This means that all parent nodes of a referenced node must be referenced as well. * Outstanding references on a deleted node are not released. This is not possible because the node has already been deleted by the time the row-deleted signal is received. * Models are not obligated to emit a signal on rows of which none of its siblings are referenced. To phrase this differently, signals are only required for levels in which nodes are referenced. For the root level however, signals must be emitted at all times (however the root level is always referenced when any view is attached). -} module GI.Gtk.Interfaces.TreeModel ( -- * Exported types TreeModel(..) , noTreeModel , IsTreeModel , toTreeModel , -- * Methods -- ** filterNew #method:filterNew# TreeModelFilterNewMethodInfo , treeModelFilterNew , -- ** foreach #method:foreach# TreeModelForeachMethodInfo , treeModelForeach , -- ** getColumnType #method:getColumnType# TreeModelGetColumnTypeMethodInfo , treeModelGetColumnType , -- ** getFlags #method:getFlags# TreeModelGetFlagsMethodInfo , treeModelGetFlags , -- ** getIter #method:getIter# TreeModelGetIterMethodInfo , treeModelGetIter , -- ** getIterFirst #method:getIterFirst# TreeModelGetIterFirstMethodInfo , treeModelGetIterFirst , -- ** getIterFromString #method:getIterFromString# TreeModelGetIterFromStringMethodInfo , treeModelGetIterFromString , -- ** getNColumns #method:getNColumns# TreeModelGetNColumnsMethodInfo , treeModelGetNColumns , -- ** getPath #method:getPath# TreeModelGetPathMethodInfo , treeModelGetPath , -- ** getStringFromIter #method:getStringFromIter# TreeModelGetStringFromIterMethodInfo , treeModelGetStringFromIter , -- ** getValue #method:getValue# TreeModelGetValueMethodInfo , treeModelGetValue , -- ** iterChildren #method:iterChildren# TreeModelIterChildrenMethodInfo , treeModelIterChildren , -- ** iterHasChild #method:iterHasChild# TreeModelIterHasChildMethodInfo , treeModelIterHasChild , -- ** iterNChildren #method:iterNChildren# TreeModelIterNChildrenMethodInfo , treeModelIterNChildren , -- ** iterNext #method:iterNext# TreeModelIterNextMethodInfo , treeModelIterNext , -- ** iterNthChild #method:iterNthChild# TreeModelIterNthChildMethodInfo , treeModelIterNthChild , -- ** iterParent #method:iterParent# TreeModelIterParentMethodInfo , treeModelIterParent , -- ** iterPrevious #method:iterPrevious# TreeModelIterPreviousMethodInfo , treeModelIterPrevious , -- ** refNode #method:refNode# TreeModelRefNodeMethodInfo , treeModelRefNode , -- ** rowChanged #method:rowChanged# TreeModelRowChangedMethodInfo , treeModelRowChanged , -- ** rowDeleted #method:rowDeleted# TreeModelRowDeletedMethodInfo , treeModelRowDeleted , -- ** rowHasChildToggled #method:rowHasChildToggled# TreeModelRowHasChildToggledMethodInfo , treeModelRowHasChildToggled , -- ** rowInserted #method:rowInserted# TreeModelRowInsertedMethodInfo , treeModelRowInserted , -- ** rowsReordered #method:rowsReordered# TreeModelRowsReorderedMethodInfo , treeModelRowsReordered , -- ** sortNewWithModel #method:sortNewWithModel# TreeModelSortNewWithModelMethodInfo , treeModelSortNewWithModel , -- ** unrefNode #method:unrefNode# TreeModelUnrefNodeMethodInfo , treeModelUnrefNode , -- * Signals -- ** rowChanged #signal:rowChanged# C_TreeModelRowChangedCallback , TreeModelRowChangedCallback , TreeModelRowChangedSignalInfo , afterTreeModelRowChanged , genClosure_TreeModelRowChanged , mk_TreeModelRowChangedCallback , noTreeModelRowChangedCallback , onTreeModelRowChanged , wrap_TreeModelRowChangedCallback , -- ** rowDeleted #signal:rowDeleted# C_TreeModelRowDeletedCallback , TreeModelRowDeletedCallback , TreeModelRowDeletedSignalInfo , afterTreeModelRowDeleted , genClosure_TreeModelRowDeleted , mk_TreeModelRowDeletedCallback , noTreeModelRowDeletedCallback , onTreeModelRowDeleted , wrap_TreeModelRowDeletedCallback , -- ** rowHasChildToggled #signal:rowHasChildToggled# C_TreeModelRowHasChildToggledCallback , TreeModelRowHasChildToggledCallback , TreeModelRowHasChildToggledSignalInfo , afterTreeModelRowHasChildToggled , genClosure_TreeModelRowHasChildToggled , mk_TreeModelRowHasChildToggledCallback , noTreeModelRowHasChildToggledCallback , onTreeModelRowHasChildToggled , wrap_TreeModelRowHasChildToggledCallback, -- ** rowInserted #signal:rowInserted# C_TreeModelRowInsertedCallback , TreeModelRowInsertedCallback , TreeModelRowInsertedSignalInfo , afterTreeModelRowInserted , genClosure_TreeModelRowInserted , mk_TreeModelRowInsertedCallback , noTreeModelRowInsertedCallback , onTreeModelRowInserted , wrap_TreeModelRowInsertedCallback , ) 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.GObject.Objects.Object as GObject.Object import qualified GI.Gtk.Callbacks as Gtk.Callbacks import {-# SOURCE #-} qualified GI.Gtk.Flags as Gtk.Flags import {-# SOURCE #-} qualified GI.Gtk.Structs.TreeIter as Gtk.TreeIter import {-# SOURCE #-} qualified GI.Gtk.Structs.TreePath as Gtk.TreePath -- interface TreeModel newtype TreeModel = TreeModel (ManagedPtr TreeModel) noTreeModel :: Maybe TreeModel noTreeModel = Nothing type family ResolveTreeModelMethod (t :: Symbol) (o :: *) :: * where ResolveTreeModelMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo ResolveTreeModelMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo ResolveTreeModelMethod "filterNew" o = TreeModelFilterNewMethodInfo ResolveTreeModelMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo ResolveTreeModelMethod "foreach" o = TreeModelForeachMethodInfo ResolveTreeModelMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo ResolveTreeModelMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo ResolveTreeModelMethod "iterChildren" o = TreeModelIterChildrenMethodInfo ResolveTreeModelMethod "iterHasChild" o = TreeModelIterHasChildMethodInfo ResolveTreeModelMethod "iterNChildren" o = TreeModelIterNChildrenMethodInfo ResolveTreeModelMethod "iterNext" o = TreeModelIterNextMethodInfo ResolveTreeModelMethod "iterNthChild" o = TreeModelIterNthChildMethodInfo ResolveTreeModelMethod "iterParent" o = TreeModelIterParentMethodInfo ResolveTreeModelMethod "iterPrevious" o = TreeModelIterPreviousMethodInfo ResolveTreeModelMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo ResolveTreeModelMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo ResolveTreeModelMethod "ref" o = GObject.Object.ObjectRefMethodInfo ResolveTreeModelMethod "refNode" o = TreeModelRefNodeMethodInfo ResolveTreeModelMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo ResolveTreeModelMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo ResolveTreeModelMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo ResolveTreeModelMethod "rowChanged" o = TreeModelRowChangedMethodInfo ResolveTreeModelMethod "rowDeleted" o = TreeModelRowDeletedMethodInfo ResolveTreeModelMethod "rowHasChildToggled" o = TreeModelRowHasChildToggledMethodInfo ResolveTreeModelMethod "rowInserted" o = TreeModelRowInsertedMethodInfo ResolveTreeModelMethod "rowsReordered" o = TreeModelRowsReorderedMethodInfo ResolveTreeModelMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo ResolveTreeModelMethod "sortNewWithModel" o = TreeModelSortNewWithModelMethodInfo ResolveTreeModelMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo ResolveTreeModelMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo ResolveTreeModelMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo ResolveTreeModelMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo ResolveTreeModelMethod "unrefNode" o = TreeModelUnrefNodeMethodInfo ResolveTreeModelMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo ResolveTreeModelMethod "getColumnType" o = TreeModelGetColumnTypeMethodInfo ResolveTreeModelMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo ResolveTreeModelMethod "getFlags" o = TreeModelGetFlagsMethodInfo ResolveTreeModelMethod "getIter" o = TreeModelGetIterMethodInfo ResolveTreeModelMethod "getIterFirst" o = TreeModelGetIterFirstMethodInfo ResolveTreeModelMethod "getIterFromString" o = TreeModelGetIterFromStringMethodInfo ResolveTreeModelMethod "getNColumns" o = TreeModelGetNColumnsMethodInfo ResolveTreeModelMethod "getPath" o = TreeModelGetPathMethodInfo ResolveTreeModelMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo ResolveTreeModelMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo ResolveTreeModelMethod "getStringFromIter" o = TreeModelGetStringFromIterMethodInfo ResolveTreeModelMethod "getValue" o = TreeModelGetValueMethodInfo ResolveTreeModelMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo ResolveTreeModelMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo ResolveTreeModelMethod l o = O.MethodResolutionFailed l o instance (info ~ ResolveTreeModelMethod t TreeModel, O.MethodInfo info TreeModel p) => O.IsLabelProxy t (TreeModel -> p) where fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #if MIN_VERSION_base(4,9,0) instance (info ~ ResolveTreeModelMethod t TreeModel, O.MethodInfo info TreeModel p) => O.IsLabel t (TreeModel -> p) where fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info) #endif -- signal TreeModel::row-changed type TreeModelRowChangedCallback = Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> IO () noTreeModelRowChangedCallback :: Maybe TreeModelRowChangedCallback noTreeModelRowChangedCallback = Nothing type C_TreeModelRowChangedCallback = Ptr () -> -- object Ptr Gtk.TreePath.TreePath -> Ptr Gtk.TreeIter.TreeIter -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mk_TreeModelRowChangedCallback :: C_TreeModelRowChangedCallback -> IO (FunPtr C_TreeModelRowChangedCallback) genClosure_TreeModelRowChanged :: TreeModelRowChangedCallback -> IO Closure genClosure_TreeModelRowChanged cb = do let cb' = wrap_TreeModelRowChangedCallback cb mk_TreeModelRowChangedCallback cb' >>= newCClosure wrap_TreeModelRowChangedCallback :: TreeModelRowChangedCallback -> Ptr () -> Ptr Gtk.TreePath.TreePath -> Ptr Gtk.TreeIter.TreeIter -> Ptr () -> IO () wrap_TreeModelRowChangedCallback _cb _ path iter _ = do path' <- (newBoxed Gtk.TreePath.TreePath) path iter' <- (newBoxed Gtk.TreeIter.TreeIter) iter _cb path' iter' onTreeModelRowChanged :: (GObject a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId onTreeModelRowChanged obj cb = liftIO $ connectTreeModelRowChanged obj cb SignalConnectBefore afterTreeModelRowChanged :: (GObject a, MonadIO m) => a -> TreeModelRowChangedCallback -> m SignalHandlerId afterTreeModelRowChanged obj cb = connectTreeModelRowChanged obj cb SignalConnectAfter connectTreeModelRowChanged :: (GObject a, MonadIO m) => a -> TreeModelRowChangedCallback -> SignalConnectMode -> m SignalHandlerId connectTreeModelRowChanged obj cb after = liftIO $ do let cb' = wrap_TreeModelRowChangedCallback cb cb'' <- mk_TreeModelRowChangedCallback cb' connectSignalFunPtr obj "row-changed" cb'' after -- signal TreeModel::row-deleted type TreeModelRowDeletedCallback = Gtk.TreePath.TreePath -> IO () noTreeModelRowDeletedCallback :: Maybe TreeModelRowDeletedCallback noTreeModelRowDeletedCallback = Nothing type C_TreeModelRowDeletedCallback = Ptr () -> -- object Ptr Gtk.TreePath.TreePath -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mk_TreeModelRowDeletedCallback :: C_TreeModelRowDeletedCallback -> IO (FunPtr C_TreeModelRowDeletedCallback) genClosure_TreeModelRowDeleted :: TreeModelRowDeletedCallback -> IO Closure genClosure_TreeModelRowDeleted cb = do let cb' = wrap_TreeModelRowDeletedCallback cb mk_TreeModelRowDeletedCallback cb' >>= newCClosure wrap_TreeModelRowDeletedCallback :: TreeModelRowDeletedCallback -> Ptr () -> Ptr Gtk.TreePath.TreePath -> Ptr () -> IO () wrap_TreeModelRowDeletedCallback _cb _ path _ = do path' <- (newBoxed Gtk.TreePath.TreePath) path _cb path' onTreeModelRowDeleted :: (GObject a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId onTreeModelRowDeleted obj cb = liftIO $ connectTreeModelRowDeleted obj cb SignalConnectBefore afterTreeModelRowDeleted :: (GObject a, MonadIO m) => a -> TreeModelRowDeletedCallback -> m SignalHandlerId afterTreeModelRowDeleted obj cb = connectTreeModelRowDeleted obj cb SignalConnectAfter connectTreeModelRowDeleted :: (GObject a, MonadIO m) => a -> TreeModelRowDeletedCallback -> SignalConnectMode -> m SignalHandlerId connectTreeModelRowDeleted obj cb after = liftIO $ do let cb' = wrap_TreeModelRowDeletedCallback cb cb'' <- mk_TreeModelRowDeletedCallback cb' connectSignalFunPtr obj "row-deleted" cb'' after -- signal TreeModel::row-has-child-toggled type TreeModelRowHasChildToggledCallback = Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> IO () noTreeModelRowHasChildToggledCallback :: Maybe TreeModelRowHasChildToggledCallback noTreeModelRowHasChildToggledCallback = Nothing type C_TreeModelRowHasChildToggledCallback = Ptr () -> -- object Ptr Gtk.TreePath.TreePath -> Ptr Gtk.TreeIter.TreeIter -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mk_TreeModelRowHasChildToggledCallback :: C_TreeModelRowHasChildToggledCallback -> IO (FunPtr C_TreeModelRowHasChildToggledCallback) genClosure_TreeModelRowHasChildToggled :: TreeModelRowHasChildToggledCallback -> IO Closure genClosure_TreeModelRowHasChildToggled cb = do let cb' = wrap_TreeModelRowHasChildToggledCallback cb mk_TreeModelRowHasChildToggledCallback cb' >>= newCClosure wrap_TreeModelRowHasChildToggledCallback :: TreeModelRowHasChildToggledCallback -> Ptr () -> Ptr Gtk.TreePath.TreePath -> Ptr Gtk.TreeIter.TreeIter -> Ptr () -> IO () wrap_TreeModelRowHasChildToggledCallback _cb _ path iter _ = do path' <- (newBoxed Gtk.TreePath.TreePath) path iter' <- (newBoxed Gtk.TreeIter.TreeIter) iter _cb path' iter' onTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId onTreeModelRowHasChildToggled obj cb = liftIO $ connectTreeModelRowHasChildToggled obj cb SignalConnectBefore afterTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> m SignalHandlerId afterTreeModelRowHasChildToggled obj cb = connectTreeModelRowHasChildToggled obj cb SignalConnectAfter connectTreeModelRowHasChildToggled :: (GObject a, MonadIO m) => a -> TreeModelRowHasChildToggledCallback -> SignalConnectMode -> m SignalHandlerId connectTreeModelRowHasChildToggled obj cb after = liftIO $ do let cb' = wrap_TreeModelRowHasChildToggledCallback cb cb'' <- mk_TreeModelRowHasChildToggledCallback cb' connectSignalFunPtr obj "row-has-child-toggled" cb'' after -- signal TreeModel::row-inserted type TreeModelRowInsertedCallback = Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> IO () noTreeModelRowInsertedCallback :: Maybe TreeModelRowInsertedCallback noTreeModelRowInsertedCallback = Nothing type C_TreeModelRowInsertedCallback = Ptr () -> -- object Ptr Gtk.TreePath.TreePath -> Ptr Gtk.TreeIter.TreeIter -> Ptr () -> -- user_data IO () foreign import ccall "wrapper" mk_TreeModelRowInsertedCallback :: C_TreeModelRowInsertedCallback -> IO (FunPtr C_TreeModelRowInsertedCallback) genClosure_TreeModelRowInserted :: TreeModelRowInsertedCallback -> IO Closure genClosure_TreeModelRowInserted cb = do let cb' = wrap_TreeModelRowInsertedCallback cb mk_TreeModelRowInsertedCallback cb' >>= newCClosure wrap_TreeModelRowInsertedCallback :: TreeModelRowInsertedCallback -> Ptr () -> Ptr Gtk.TreePath.TreePath -> Ptr Gtk.TreeIter.TreeIter -> Ptr () -> IO () wrap_TreeModelRowInsertedCallback _cb _ path iter _ = do path' <- (newBoxed Gtk.TreePath.TreePath) path iter' <- (newBoxed Gtk.TreeIter.TreeIter) iter _cb path' iter' onTreeModelRowInserted :: (GObject a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId onTreeModelRowInserted obj cb = liftIO $ connectTreeModelRowInserted obj cb SignalConnectBefore afterTreeModelRowInserted :: (GObject a, MonadIO m) => a -> TreeModelRowInsertedCallback -> m SignalHandlerId afterTreeModelRowInserted obj cb = connectTreeModelRowInserted obj cb SignalConnectAfter connectTreeModelRowInserted :: (GObject a, MonadIO m) => a -> TreeModelRowInsertedCallback -> SignalConnectMode -> m SignalHandlerId connectTreeModelRowInserted obj cb after = liftIO $ do let cb' = wrap_TreeModelRowInsertedCallback cb cb'' <- mk_TreeModelRowInsertedCallback cb' connectSignalFunPtr obj "row-inserted" cb'' after instance O.HasAttributeList TreeModel type instance O.AttributeList TreeModel = TreeModelAttributeList type TreeModelAttributeList = ('[ ] :: [(Symbol, *)]) data TreeModelRowChangedSignalInfo instance SignalInfo TreeModelRowChangedSignalInfo where type HaskellCallbackType TreeModelRowChangedSignalInfo = TreeModelRowChangedCallback connectSignal _ = connectTreeModelRowChanged data TreeModelRowDeletedSignalInfo instance SignalInfo TreeModelRowDeletedSignalInfo where type HaskellCallbackType TreeModelRowDeletedSignalInfo = TreeModelRowDeletedCallback connectSignal _ = connectTreeModelRowDeleted data TreeModelRowHasChildToggledSignalInfo instance SignalInfo TreeModelRowHasChildToggledSignalInfo where type HaskellCallbackType TreeModelRowHasChildToggledSignalInfo = TreeModelRowHasChildToggledCallback connectSignal _ = connectTreeModelRowHasChildToggled data TreeModelRowInsertedSignalInfo instance SignalInfo TreeModelRowInsertedSignalInfo where type HaskellCallbackType TreeModelRowInsertedSignalInfo = TreeModelRowInsertedCallback connectSignal _ = connectTreeModelRowInserted type instance O.SignalList TreeModel = TreeModelSignalList type TreeModelSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo), '("rowChanged", TreeModelRowChangedSignalInfo), '("rowDeleted", TreeModelRowDeletedSignalInfo), '("rowHasChildToggled", TreeModelRowHasChildToggledSignalInfo), '("rowInserted", TreeModelRowInsertedSignalInfo)] :: [(Symbol, *)]) foreign import ccall "gtk_tree_model_get_type" c_gtk_tree_model_get_type :: IO GType instance GObject TreeModel where gobjectType _ = c_gtk_tree_model_get_type class GObject o => IsTreeModel o #if MIN_VERSION_base(4,9,0) instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError TreeModel a) => IsTreeModel a #endif instance IsTreeModel TreeModel instance GObject.Object.IsObject TreeModel toTreeModel :: IsTreeModel o => o -> IO TreeModel toTreeModel = unsafeCastTo TreeModel -- method TreeModel::filter_new -- method type : OrdinaryMethod -- Args : [Arg {argCName = "child_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeModel.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "A #GtkTreePath or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TreeModel"})) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_filter_new" gtk_tree_model_filter_new :: Ptr TreeModel -> -- child_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreePath.TreePath -> -- root : TInterface (Name {namespace = "Gtk", name = "TreePath"}) IO (Ptr TreeModel) {- | Creates a new 'GI.Gtk.Interfaces.TreeModel.TreeModel', with /@childModel@/ as the child_model and /@root@/ as the virtual root. @since 2.4 -} treeModelFilterNew :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@childModel@/: A 'GI.Gtk.Interfaces.TreeModel.TreeModel'. -} -> Maybe (Gtk.TreePath.TreePath) {- ^ /@root@/: A 'GI.Gtk.Structs.TreePath.TreePath' or 'Nothing'. -} -> m TreeModel {- ^ __Returns:__ A new 'GI.Gtk.Interfaces.TreeModel.TreeModel'. -} treeModelFilterNew childModel root = liftIO $ do childModel' <- unsafeManagedPtrCastPtr childModel maybeRoot <- case root of Nothing -> return nullPtr Just jRoot -> do jRoot' <- unsafeManagedPtrGetPtr jRoot return jRoot' result <- gtk_tree_model_filter_new childModel' maybeRoot checkUnexpectedReturnNULL "treeModelFilterNew" result result' <- (wrapObject TreeModel) result touchManagedPtr childModel whenJust root touchManagedPtr return result' data TreeModelFilterNewMethodInfo instance (signature ~ (Maybe (Gtk.TreePath.TreePath) -> m TreeModel), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelFilterNewMethodInfo a signature where overloadedMethod _ = treeModelFilterNew -- method TreeModel::foreach -- method type : OrdinaryMethod -- Args : [Arg {argCName = "model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "func", argType = TInterface (Name {namespace = "Gtk", name = "TreeModelForeachFunc"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a function to be called on each row", sinceVersion = Nothing}, argScope = ScopeTypeCall, argClosure = 2, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "user data to passed to @func", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_foreach" gtk_tree_model_foreach :: Ptr TreeModel -> -- model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) FunPtr Gtk.Callbacks.C_TreeModelForeachFunc -> -- func : TInterface (Name {namespace = "Gtk", name = "TreeModelForeachFunc"}) Ptr () -> -- user_data : TBasicType TPtr IO () {- | Calls func on each node in model in a depth-first fashion. If /@func@/ returns 'True', then the tree ceases to be walked, and 'GI.Gtk.Interfaces.TreeModel.treeModelForeach' returns. -} treeModelForeach :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@model@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.Callbacks.TreeModelForeachFunc {- ^ /@func@/: a function to be called on each row -} -> m () treeModelForeach model func = liftIO $ do model' <- unsafeManagedPtrCastPtr model func' <- Gtk.Callbacks.mk_TreeModelForeachFunc (Gtk.Callbacks.wrap_TreeModelForeachFunc Nothing (Gtk.Callbacks.drop_closures_TreeModelForeachFunc func)) let userData = nullPtr gtk_tree_model_foreach model' func' userData safeFreeFunPtr $ castFunPtrToPtr func' touchManagedPtr model return () data TreeModelForeachMethodInfo instance (signature ~ (Gtk.Callbacks.TreeModelForeachFunc -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelForeachMethodInfo a signature where overloadedMethod _ = treeModelForeach -- method TreeModel::get_column_type -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the column index", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TGType) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_column_type" gtk_tree_model_get_column_type :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Int32 -> -- index_ : TBasicType TInt IO CGType {- | Returns the type of the column. -} treeModelGetColumnType :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Int32 {- ^ /@index_@/: the column index -} -> m GType {- ^ __Returns:__ the type of the column -} treeModelGetColumnType treeModel index_ = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel result <- gtk_tree_model_get_column_type treeModel' index_ let result' = GType result touchManagedPtr treeModel return result' data TreeModelGetColumnTypeMethodInfo instance (signature ~ (Int32 -> m GType), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetColumnTypeMethodInfo a signature where overloadedMethod _ = treeModelGetColumnType -- method TreeModel::get_flags -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TreeModelFlags"})) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_flags" gtk_tree_model_get_flags :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) IO CUInt {- | Returns a set of flags supported by this interface. The flags are a bitwise combination of 'GI.Gtk.Flags.TreeModelFlags'. The flags supported should not change during the lifetime of the /@treeModel@/. -} treeModelGetFlags :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> m [Gtk.Flags.TreeModelFlags] {- ^ __Returns:__ the flags supported by this interface -} treeModelGetFlags treeModel = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel result <- gtk_tree_model_get_flags treeModel' let result' = wordToGFlags result touchManagedPtr treeModel return result' data TreeModelGetFlagsMethodInfo instance (signature ~ (m [Gtk.Flags.TreeModelFlags]), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetFlagsMethodInfo a signature where overloadedMethod _ = treeModelGetFlags -- method TreeModel::get_iter -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uninitialized #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreePath-struct", sinceVersion = Nothing}, 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_model_get_iter" gtk_tree_model_get_iter :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) IO CInt {- | Sets /@iter@/ to a valid iterator pointing to /@path@/. If /@path@/ does not exist, /@iter@/ is set to an invalid iterator and 'False' is returned. -} treeModelGetIter :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreePath.TreePath {- ^ /@path@/: the 'GI.Gtk.Structs.TreePath.TreePath'-struct -} -> m (Bool,Gtk.TreeIter.TreeIter) {- ^ __Returns:__ 'True', if /@iter@/ was set -} treeModelGetIter treeModel path = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) path' <- unsafeManagedPtrGetPtr path result <- gtk_tree_model_get_iter treeModel' iter path' let result' = (/= 0) result iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter touchManagedPtr treeModel touchManagedPtr path return (result', iter') data TreeModelGetIterMethodInfo instance (signature ~ (Gtk.TreePath.TreePath -> m (Bool,Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetIterMethodInfo a signature where overloadedMethod _ = treeModelGetIter -- method TreeModel::get_iter_first -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the uninitialized #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_iter_first" gtk_tree_model_get_iter_first :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO CInt {- | Initializes /@iter@/ with the first iterator in the tree (the one at the path \"0\") and returns 'True'. Returns 'False' if the tree is empty. -} treeModelGetIterFirst :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> m (Bool,Gtk.TreeIter.TreeIter) {- ^ __Returns:__ 'True', if /@iter@/ was set -} treeModelGetIterFirst treeModel = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) result <- gtk_tree_model_get_iter_first treeModel' iter let result' = (/= 0) result iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter touchManagedPtr treeModel return (result', iter') data TreeModelGetIterFirstMethodInfo instance (signature ~ (m (Bool,Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetIterFirstMethodInfo a signature where overloadedMethod _ = treeModelGetIterFirst -- method TreeModel::get_iter_from_string -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an uninitialized #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "path_string", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a string representation of a #GtkTreePath-struct", sinceVersion = Nothing}, 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_model_get_iter_from_string" gtk_tree_model_get_iter_from_string :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) CString -> -- path_string : TBasicType TUTF8 IO CInt {- | Sets /@iter@/ to a valid iterator pointing to /@pathString@/, if it exists. Otherwise, /@iter@/ is left invalid and 'False' is returned. -} treeModelGetIterFromString :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> T.Text {- ^ /@pathString@/: a string representation of a 'GI.Gtk.Structs.TreePath.TreePath'-struct -} -> m (Bool,Gtk.TreeIter.TreeIter) {- ^ __Returns:__ 'True', if /@iter@/ was set -} treeModelGetIterFromString treeModel pathString = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) pathString' <- textToCString pathString result <- gtk_tree_model_get_iter_from_string treeModel' iter pathString' let result' = (/= 0) result iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter touchManagedPtr treeModel freeMem pathString' return (result', iter') data TreeModelGetIterFromStringMethodInfo instance (signature ~ (T.Text -> m (Bool,Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetIterFromStringMethodInfo a signature where overloadedMethod _ = treeModelGetIterFromString -- method TreeModel::get_n_columns -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, 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_model_get_n_columns" gtk_tree_model_get_n_columns :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) IO Int32 {- | Returns the number of columns supported by /@treeModel@/. -} treeModelGetNColumns :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> m Int32 {- ^ __Returns:__ the number of columns -} treeModelGetNColumns treeModel = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel result <- gtk_tree_model_get_n_columns treeModel' touchManagedPtr treeModel return result data TreeModelGetNColumnsMethodInfo instance (signature ~ (m Int32), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetNColumnsMethodInfo a signature where overloadedMethod _ = treeModelGetNColumns -- method TreeModel::get_path -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TreePath"})) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_path" gtk_tree_model_get_path :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO (Ptr Gtk.TreePath.TreePath) {- | Returns a newly-created 'GI.Gtk.Structs.TreePath.TreePath'-struct referenced by /@iter@/. This path should be freed with 'GI.Gtk.Structs.TreePath.treePathFree'. -} treeModelGetPath :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> m Gtk.TreePath.TreePath {- ^ __Returns:__ a newly-created 'GI.Gtk.Structs.TreePath.TreePath'-struct -} treeModelGetPath treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter result <- gtk_tree_model_get_path treeModel' iter' checkUnexpectedReturnNULL "treeModelGetPath" result result' <- (wrapBoxed Gtk.TreePath.TreePath) result touchManagedPtr treeModel touchManagedPtr iter return result' data TreeModelGetPathMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m Gtk.TreePath.TreePath), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetPathMethodInfo a signature where overloadedMethod _ = treeModelGetPath -- method TreeModel::get_string_from_iter -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeIter-struct", sinceVersion = Nothing}, 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_model_get_string_from_iter" gtk_tree_model_get_string_from_iter :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO CString {- | Generates a string representation of the iter. This string is a “:” separated list of numbers. For example, “4:10:0:3” would be an acceptable return value for this string. @since 2.2 -} treeModelGetStringFromIter :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: a 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> m T.Text {- ^ __Returns:__ a newly-allocated string. Must be freed with 'GI.GLib.Functions.free'. -} treeModelGetStringFromIter treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter result <- gtk_tree_model_get_string_from_iter treeModel' iter' checkUnexpectedReturnNULL "treeModelGetStringFromIter" result result' <- cstringToText result freeMem result touchManagedPtr treeModel touchManagedPtr iter return result' data TreeModelGetStringFromIterMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m T.Text), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetStringFromIterMethodInfo a signature where overloadedMethod _ = treeModelGetStringFromIter -- method TreeModel::get_value -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "column", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the column to lookup the value at", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface (Name {namespace = "GObject", name = "Value"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an empty #GValue to set", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_get_value" gtk_tree_model_get_value :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) Int32 -> -- column : TBasicType TInt Ptr GValue -> -- value : TInterface (Name {namespace = "GObject", name = "Value"}) IO () {- | Initializes and sets /@value@/ to that at /@column@/. When done with /@value@/, 'GI.GObject.Structs.Value.valueUnset' needs to be called to free any allocated memory. -} treeModelGetValue :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> Int32 {- ^ /@column@/: the column to lookup the value at -} -> m (GValue) treeModelGetValue treeModel iter column = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter value <- callocBoxedBytes 24 :: IO (Ptr GValue) gtk_tree_model_get_value treeModel' iter' column value value' <- (wrapBoxed GValue) value touchManagedPtr treeModel touchManagedPtr iter return value' data TreeModelGetValueMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> Int32 -> m (GValue)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelGetValueMethodInfo a signature where overloadedMethod _ = treeModelGetValue -- method TreeModel::iter_children -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new #GtkTreeIter-struct to be set to the child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct, or %NULL", sinceVersion = Nothing}, 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_model_iter_children" gtk_tree_model_iter_children :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) Ptr Gtk.TreeIter.TreeIter -> -- parent : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO CInt {- | Sets /@iter@/ to point to the first child of /@parent@/. If /@parent@/ has no children, 'False' is returned and /@iter@/ is set to be invalid. /@parent@/ will remain a valid node after this function has been called. If /@parent@/ is 'Nothing' returns the first node, equivalent to @gtk_tree_model_get_iter_first (tree_model, iter);@ -} treeModelIterChildren :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Maybe (Gtk.TreeIter.TreeIter) {- ^ /@parent@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct, or 'Nothing' -} -> m (Bool,Gtk.TreeIter.TreeIter) {- ^ __Returns:__ 'True', if /@iter@/ has been set to the first child -} treeModelIterChildren treeModel parent = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) maybeParent <- case parent of Nothing -> return nullPtr Just jParent -> do jParent' <- unsafeManagedPtrGetPtr jParent return jParent' result <- gtk_tree_model_iter_children treeModel' iter maybeParent let result' = (/= 0) result iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter touchManagedPtr treeModel whenJust parent touchManagedPtr return (result', iter') data TreeModelIterChildrenMethodInfo instance (signature ~ (Maybe (Gtk.TreeIter.TreeIter) -> m (Bool,Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterChildrenMethodInfo a signature where overloadedMethod _ = treeModelIterChildren -- method TreeModel::iter_has_child -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct to test for children", sinceVersion = Nothing}, 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_model_iter_has_child" gtk_tree_model_iter_has_child :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO CInt {- | Returns 'True' if /@iter@/ has children, 'False' otherwise. -} treeModelIterHasChild :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct to test for children -} -> m Bool {- ^ __Returns:__ 'True' if /@iter@/ has children -} treeModelIterHasChild treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter result <- gtk_tree_model_iter_has_child treeModel' iter' let result' = (/= 0) result touchManagedPtr treeModel touchManagedPtr iter return result' data TreeModelIterHasChildMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m Bool), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterHasChildMethodInfo a signature where overloadedMethod _ = treeModelIterHasChild -- method TreeModel::iter_n_children -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct, or %NULL", sinceVersion = Nothing}, 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_model_iter_n_children" gtk_tree_model_iter_n_children :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO Int32 {- | Returns the number of children that /@iter@/ has. As a special case, if /@iter@/ is 'Nothing', then the number of toplevel nodes is returned. -} treeModelIterNChildren :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Maybe (Gtk.TreeIter.TreeIter) {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct, or 'Nothing' -} -> m Int32 {- ^ __Returns:__ the number of children of /@iter@/ -} treeModelIterNChildren treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel maybeIter <- case iter of Nothing -> return nullPtr Just jIter -> do jIter' <- unsafeManagedPtrGetPtr jIter return jIter' result <- gtk_tree_model_iter_n_children treeModel' maybeIter touchManagedPtr treeModel whenJust iter touchManagedPtr return result data TreeModelIterNChildrenMethodInfo instance (signature ~ (Maybe (Gtk.TreeIter.TreeIter) -> m Int32), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterNChildrenMethodInfo a signature where overloadedMethod _ = treeModelIterNChildren -- method TreeModel::iter_next -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, 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_model_iter_next" gtk_tree_model_iter_next :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO CInt {- | Sets /@iter@/ to point to the node following it at the current level. If there is no next /@iter@/, 'False' is returned and /@iter@/ is set to be invalid. -} treeModelIterNext :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> m Bool {- ^ __Returns:__ 'True' if /@iter@/ has been changed to the next node -} treeModelIterNext treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter result <- gtk_tree_model_iter_next treeModel' iter' let result' = (/= 0) result touchManagedPtr treeModel touchManagedPtr iter return result' data TreeModelIterNextMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m Bool), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterNextMethodInfo a signature where overloadedMethod _ = treeModelIterNext -- method TreeModel::iter_nth_child -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct to set to the nth child", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct to get the child from, or %NULL.", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the index of the desired child", sinceVersion = Nothing}, 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_model_iter_nth_child" gtk_tree_model_iter_nth_child :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) Ptr Gtk.TreeIter.TreeIter -> -- parent : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) Int32 -> -- n : TBasicType TInt IO CInt {- | Sets /@iter@/ to be the child of /@parent@/, using the given index. The first index is 0. If /@n@/ is too big, or /@parent@/ has no children, /@iter@/ is set to an invalid iterator and 'False' is returned. /@parent@/ will remain a valid node after this function has been called. As a special case, if /@parent@/ is 'Nothing', then the /@n@/-th root node is set. -} treeModelIterNthChild :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Maybe (Gtk.TreeIter.TreeIter) {- ^ /@parent@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct to get the child from, or 'Nothing'. -} -> Int32 {- ^ /@n@/: the index of the desired child -} -> m (Bool,Gtk.TreeIter.TreeIter) {- ^ __Returns:__ 'True', if /@parent@/ has an /@n@/-th child -} treeModelIterNthChild treeModel parent n = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) maybeParent <- case parent of Nothing -> return nullPtr Just jParent -> do jParent' <- unsafeManagedPtrGetPtr jParent return jParent' result <- gtk_tree_model_iter_nth_child treeModel' iter maybeParent n let result' = (/= 0) result iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter touchManagedPtr treeModel whenJust parent touchManagedPtr return (result', iter') data TreeModelIterNthChildMethodInfo instance (signature ~ (Maybe (Gtk.TreeIter.TreeIter) -> Int32 -> m (Bool,Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterNthChildMethodInfo a signature where overloadedMethod _ = treeModelIterNthChild -- method TreeModel::iter_parent -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionOut, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the new #GtkTreeIter-struct to set to the parent", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "child", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, 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_model_iter_parent" gtk_tree_model_iter_parent :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) Ptr Gtk.TreeIter.TreeIter -> -- child : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO CInt {- | Sets /@iter@/ to be the parent of /@child@/. If /@child@/ is at the toplevel, and doesn’t have a parent, then /@iter@/ is set to an invalid iterator and 'False' is returned. /@child@/ will remain a valid node after this function has been called. /@iter@/ will be initialized before the lookup is performed, so /@child@/ and /@iter@/ cannot point to the same memory location. -} treeModelIterParent :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@child@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> m (Bool,Gtk.TreeIter.TreeIter) {- ^ __Returns:__ 'True', if /@iter@/ is set to the parent of /@child@/ -} treeModelIterParent treeModel child = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter <- callocBoxedBytes 32 :: IO (Ptr Gtk.TreeIter.TreeIter) child' <- unsafeManagedPtrGetPtr child result <- gtk_tree_model_iter_parent treeModel' iter child' let result' = (/= 0) result iter' <- (wrapBoxed Gtk.TreeIter.TreeIter) iter touchManagedPtr treeModel touchManagedPtr child return (result', iter') data TreeModelIterParentMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m (Bool,Gtk.TreeIter.TreeIter)), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterParentMethodInfo a signature where overloadedMethod _ = treeModelIterParent -- method TreeModel::iter_previous -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, 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_model_iter_previous" gtk_tree_model_iter_previous :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO CInt {- | Sets /@iter@/ to point to the previous node at the current level. If there is no previous /@iter@/, 'False' is returned and /@iter@/ is set to be invalid. @since 3.0 -} treeModelIterPrevious :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> m Bool {- ^ __Returns:__ 'True' if /@iter@/ has been changed to the previous node -} treeModelIterPrevious treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter result <- gtk_tree_model_iter_previous treeModel' iter' let result' = (/= 0) result touchManagedPtr treeModel touchManagedPtr iter return result' data TreeModelIterPreviousMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m Bool), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelIterPreviousMethodInfo a signature where overloadedMethod _ = treeModelIterPrevious -- method TreeModel::ref_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_ref_node" gtk_tree_model_ref_node :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO () {- | Lets the tree ref the node. This is an optional method for models to implement. To be more specific, models may ignore this call as it exists primarily for performance reasons. This function is primarily meant as a way for views to let caching models know when nodes are being displayed (and hence, whether or not to cache that node). Being displayed means a node is in an expanded branch, regardless of whether the node is currently visible in the viewport. For example, a file-system based model would not want to keep the entire file-hierarchy in memory, just the sections that are currently being displayed by every current view. A model should be expected to be able to get an iter independent of its reffed state. -} treeModelRefNode :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> m () treeModelRefNode treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter gtk_tree_model_ref_node treeModel' iter' touchManagedPtr treeModel touchManagedPtr iter return () data TreeModelRefNodeMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRefNodeMethodInfo a signature where overloadedMethod _ = treeModelRefNode -- method TreeModel::row_changed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_row_changed" gtk_tree_model_row_changed :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO () {- | Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-changed/@ signal on /@treeModel@/. -} treeModelRowChanged :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreePath.TreePath {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the changed row -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the changed row -} -> m () treeModelRowChanged treeModel path iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel path' <- unsafeManagedPtrGetPtr path iter' <- unsafeManagedPtrGetPtr iter gtk_tree_model_row_changed treeModel' path' iter' touchManagedPtr treeModel touchManagedPtr path touchManagedPtr iter return () data TreeModelRowChangedMethodInfo instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowChangedMethodInfo a signature where overloadedMethod _ = treeModelRowChanged -- method TreeModel::row_deleted -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the previous location of\n the deleted row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_row_deleted" gtk_tree_model_row_deleted :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) IO () {- | Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-deleted/@ signal on /@treeModel@/. This should be called by models after a row has been removed. The location pointed to by /@path@/ should be the location that the row previously was at. It may not be a valid location anymore. Nodes that are deleted are not unreffed, this means that any outstanding references on the deleted node should not be released. -} treeModelRowDeleted :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreePath.TreePath {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the previous location of the deleted row -} -> m () treeModelRowDeleted treeModel path = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel path' <- unsafeManagedPtrGetPtr path gtk_tree_model_row_deleted treeModel' path' touchManagedPtr treeModel touchManagedPtr path return () data TreeModelRowDeletedMethodInfo instance (signature ~ (Gtk.TreePath.TreePath -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowDeletedMethodInfo a signature where overloadedMethod _ = treeModelRowDeleted -- method TreeModel::row_has_child_toggled -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the changed row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_row_has_child_toggled" gtk_tree_model_row_has_child_toggled :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO () {- | Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-has-child-toggled/@ signal on /@treeModel@/. This should be called by models after the child state of a node changes. -} treeModelRowHasChildToggled :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreePath.TreePath {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the changed row -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the changed row -} -> m () treeModelRowHasChildToggled treeModel path iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel path' <- unsafeManagedPtrGetPtr path iter' <- unsafeManagedPtrGetPtr iter gtk_tree_model_row_has_child_toggled treeModel' path' iter' touchManagedPtr treeModel touchManagedPtr path touchManagedPtr iter return () data TreeModelRowHasChildToggledMethodInfo instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowHasChildToggledMethodInfo a signature where overloadedMethod _ = treeModelRowHasChildToggled -- method TreeModel::row_inserted -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the inserted row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the inserted row", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_row_inserted" gtk_tree_model_row_inserted :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO () {- | Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/row-inserted/@ signal on /@treeModel@/. -} treeModelRowInserted :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreePath.TreePath {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the inserted row -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the inserted row -} -> m () treeModelRowInserted treeModel path iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel path' <- unsafeManagedPtrGetPtr path iter' <- unsafeManagedPtrGetPtr iter gtk_tree_model_row_inserted treeModel' path' iter' touchManagedPtr treeModel touchManagedPtr path touchManagedPtr iter return () data TreeModelRowInsertedMethodInfo instance (signature ~ (Gtk.TreePath.TreePath -> Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowInsertedMethodInfo a signature where overloadedMethod _ = treeModelRowInserted -- method TreeModel::rows_reordered -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "path", argType = TInterface (Name {namespace = "Gtk", name = "TreePath"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreePath-struct pointing to the tree node whose children\n have been reordered", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = True, argDoc = Documentation {rawDocText = Just "a valid #GtkTreeIter-struct pointing to the node\n whose children have been reordered, or %NULL if the depth\n of @path is 0", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_order", argType = TCArray False (-1) 4 (TBasicType TInt), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an array of integers\n mapping the current position of each child to its old\n position before the re-ordering,\n i.e. @new_order`[newpos] = oldpos`", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @new_order array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "length of @new_order array", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_rows_reordered_with_length" gtk_tree_model_rows_reordered_with_length :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreePath.TreePath -> -- path : TInterface (Name {namespace = "Gtk", name = "TreePath"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) Ptr Int32 -> -- new_order : TCArray False (-1) 4 (TBasicType TInt) Int32 -> -- length : TBasicType TInt IO () {- | Emits the 'GI.Gtk.Interfaces.TreeModel.TreeModel'::@/rows-reordered/@ signal on /@treeModel@/. This should be called by models when their rows have been reordered. @since 3.10 -} treeModelRowsReordered :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreePath.TreePath {- ^ /@path@/: a 'GI.Gtk.Structs.TreePath.TreePath'-struct pointing to the tree node whose children have been reordered -} -> Maybe (Gtk.TreeIter.TreeIter) {- ^ /@iter@/: a valid 'GI.Gtk.Structs.TreeIter.TreeIter'-struct pointing to the node whose children have been reordered, or 'Nothing' if the depth of /@path@/ is 0 -} -> [Int32] {- ^ /@newOrder@/: an array of integers mapping the current position of each child to its old position before the re-ordering, i.e. /@newOrder@/@[newpos] = oldpos@ -} -> m () treeModelRowsReordered treeModel path iter newOrder = liftIO $ do let length_ = fromIntegral $ length newOrder treeModel' <- unsafeManagedPtrCastPtr treeModel path' <- unsafeManagedPtrGetPtr path maybeIter <- case iter of Nothing -> return nullPtr Just jIter -> do jIter' <- unsafeManagedPtrGetPtr jIter return jIter' newOrder' <- packStorableArray newOrder gtk_tree_model_rows_reordered_with_length treeModel' path' maybeIter newOrder' length_ touchManagedPtr treeModel touchManagedPtr path whenJust iter touchManagedPtr freeMem newOrder' return () data TreeModelRowsReorderedMethodInfo instance (signature ~ (Gtk.TreePath.TreePath -> Maybe (Gtk.TreeIter.TreeIter) -> [Int32] -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelRowsReorderedMethodInfo a signature where overloadedMethod _ = treeModelRowsReordered -- method TreeModel::sort_new_with_model -- method type : OrdinaryMethod -- Args : [Arg {argCName = "child_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Just (TInterface (Name {namespace = "Gtk", name = "TreeModel"})) -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_sort_new_with_model" gtk_tree_model_sort_new_with_model :: Ptr TreeModel -> -- child_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) IO (Ptr TreeModel) {- | Creates a new 'GI.Gtk.Interfaces.TreeModel.TreeModel', with /@childModel@/ as the child model. -} treeModelSortNewWithModel :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@childModel@/: A 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> m TreeModel {- ^ __Returns:__ A new 'GI.Gtk.Interfaces.TreeModel.TreeModel'. -} treeModelSortNewWithModel childModel = liftIO $ do childModel' <- unsafeManagedPtrCastPtr childModel result <- gtk_tree_model_sort_new_with_model childModel' checkUnexpectedReturnNULL "treeModelSortNewWithModel" result result' <- (wrapObject TreeModel) result touchManagedPtr childModel return result' data TreeModelSortNewWithModelMethodInfo instance (signature ~ (m TreeModel), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelSortNewWithModelMethodInfo a signature where overloadedMethod _ = treeModelSortNewWithModel -- method TreeModel::unref_node -- method type : OrdinaryMethod -- Args : [Arg {argCName = "tree_model", argType = TInterface (Name {namespace = "Gtk", name = "TreeModel"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a #GtkTreeModel", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "iter", argType = TInterface (Name {namespace = "Gtk", name = "TreeIter"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "the #GtkTreeIter-struct", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : [] -- returnType : Nothing -- throws : False -- Skip return : False foreign import ccall "gtk_tree_model_unref_node" gtk_tree_model_unref_node :: Ptr TreeModel -> -- tree_model : TInterface (Name {namespace = "Gtk", name = "TreeModel"}) Ptr Gtk.TreeIter.TreeIter -> -- iter : TInterface (Name {namespace = "Gtk", name = "TreeIter"}) IO () {- | Lets the tree unref the node. This is an optional method for models to implement. To be more specific, models may ignore this call as it exists primarily for performance reasons. For more information on what this means, see 'GI.Gtk.Interfaces.TreeModel.treeModelRefNode'. Please note that nodes that are deleted are not unreffed. -} treeModelUnrefNode :: (B.CallStack.HasCallStack, MonadIO m, IsTreeModel a) => a {- ^ /@treeModel@/: a 'GI.Gtk.Interfaces.TreeModel.TreeModel' -} -> Gtk.TreeIter.TreeIter {- ^ /@iter@/: the 'GI.Gtk.Structs.TreeIter.TreeIter'-struct -} -> m () treeModelUnrefNode treeModel iter = liftIO $ do treeModel' <- unsafeManagedPtrCastPtr treeModel iter' <- unsafeManagedPtrGetPtr iter gtk_tree_model_unref_node treeModel' iter' touchManagedPtr treeModel touchManagedPtr iter return () data TreeModelUnrefNodeMethodInfo instance (signature ~ (Gtk.TreeIter.TreeIter -> m ()), MonadIO m, IsTreeModel a) => O.MethodInfo TreeModelUnrefNodeMethodInfo a signature where overloadedMethod _ = treeModelUnrefNode