<?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html> <head> <!-- Generated by HsColour, http://www.cs.york.ac.uk/fp/darcs/hscolour/ --> <title>dist/build/Graphics/UI/Gtk/ModelView/CustomStore.hs</title> <link type='text/css' rel='stylesheet' href='hscolour.css' /> </head> <body> <pre><a name="line-1"></a><span class='hs-comment'>-- GENERATED by C->Haskell Compiler, version 0.13.4 (gtk2hs branch) "Bin IO", 13 Nov 2004 (Haskell)</span> <a name="line-2"></a><span class='hs-comment'>-- Edit the ORIGNAL .chs file instead!</span> <a name="line-3"></a> <a name="line-4"></a> <a name="line-5"></a><span class='hs-comment'>{-# LINE 1 "./Graphics/UI/Gtk/ModelView/CustomStore.chs" #-}</span> <a name="line-6"></a><span class='hs-comment'>-- -*-haskell-*-</span> <a name="line-7"></a><span class='hs-comment'>-- GIMP Toolkit (GTK) CustomStore TreeModel</span> <a name="line-8"></a><span class='hs-comment'>--</span> <a name="line-9"></a><span class='hs-comment'>-- Author : Duncan Coutts, Axel Simon</span> <a name="line-10"></a><span class='hs-comment'>--</span> <a name="line-11"></a><span class='hs-comment'>-- Created: 19 Sep 2005</span> <a name="line-12"></a><span class='hs-comment'>--</span> <a name="line-13"></a><span class='hs-comment'>-- Copyright (C) 2005 Duncan Coutts, Axel Simon</span> <a name="line-14"></a><span class='hs-comment'>--</span> <a name="line-15"></a><span class='hs-comment'>-- This library is free software; you can redistribute it and/or</span> <a name="line-16"></a><span class='hs-comment'>-- modify it under the terms of the GNU Lesser General Public</span> <a name="line-17"></a><span class='hs-comment'>-- License as published by the Free Software Foundation; either</span> <a name="line-18"></a><span class='hs-comment'>-- version 2.1 of the License, or (at your option) any later version.</span> <a name="line-19"></a><span class='hs-comment'>--</span> <a name="line-20"></a><span class='hs-comment'>-- This library is distributed in the hope that it will be useful,</span> <a name="line-21"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span> <a name="line-22"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span> <a name="line-23"></a><span class='hs-comment'>-- Lesser General Public License for more details.</span> <a name="line-24"></a><span class='hs-comment'>-- #prune</span> <a name="line-25"></a> <a name="line-26"></a><span class='hs-comment'>-- |</span> <a name="line-27"></a><span class='hs-comment'>-- Maintainer : gtk2hs-users@lists.sourceforge.net</span> <a name="line-28"></a><span class='hs-comment'>-- Stability : provisional</span> <a name="line-29"></a><span class='hs-comment'>-- Portability : portable (depends on GHC)</span> <a name="line-30"></a><span class='hs-comment'>--</span> <a name="line-31"></a><span class='hs-comment'>-- Allows a custom data structure to be used with the 'TreeView' and other</span> <a name="line-32"></a><span class='hs-comment'>-- widgets that follow the model-view-controller paradigm. The two models</span> <a name="line-33"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.ModelView.ListStore.ListStore' and</span> <a name="line-34"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.ModelView.TreeStore.TreeStore' are based on the</span> <a name="line-35"></a><span class='hs-comment'>-- 'CustomStore'. Even if no application-specific tree model</span> <a name="line-36"></a><span class='hs-comment'>-- should be implemented, this module is relevant in that it provides the</span> <a name="line-37"></a><span class='hs-comment'>-- functions 'customStoreSetColumn' and</span> <a name="line-38"></a><span class='hs-comment'>-- 'customStoreGetRow' functions.</span> <a name="line-39"></a><span class='hs-comment'>--</span> <a name="line-40"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>ModelView</span><span class='hs-varop'>.</span><span class='hs-conid'>CustomStore</span> <span class='hs-layout'>(</span> <a name="line-41"></a> <span class='hs-comment'>-- * The definition of a row-based store. </span> <a name="line-42"></a> <span class='hs-conid'>CustomStore</span><span class='hs-layout'>,</span> <a name="line-43"></a> <span class='hs-conid'>TreeModelFlags</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-44"></a> <span class='hs-conid'>TreeModelIface</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-45"></a> <span class='hs-conid'>DragSourceIface</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-46"></a> <span class='hs-conid'>DragDestIface</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-47"></a> <span class='hs-varid'>customStoreNew</span><span class='hs-layout'>,</span> <a name="line-48"></a> <span class='hs-varid'>customStoreGetRow</span><span class='hs-layout'>,</span> <a name="line-49"></a> <span class='hs-varid'>customStoreSetColumn</span><span class='hs-layout'>,</span> <a name="line-50"></a> <span class='hs-varid'>customStoreGetPrivate</span><span class='hs-layout'>,</span> <a name="line-51"></a> <span class='hs-varid'>customStoreGetStamp</span><span class='hs-layout'>,</span> <a name="line-52"></a> <span class='hs-varid'>customStoreInvalidateIters</span><span class='hs-layout'>,</span> <a name="line-53"></a> <span class='hs-comment'>-- for backwards compatability, not documented</span> <a name="line-54"></a> <span class='hs-varid'>treeModelGetRow</span><span class='hs-layout'>,</span> <a name="line-55"></a> <span class='hs-varid'>treeModelSetColumn</span><span class='hs-layout'>,</span> <a name="line-56"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-57"></a> <a name="line-58"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <span class='hs-layout'>(</span><span class='hs-varid'>liftM</span><span class='hs-layout'>,</span> <span class='hs-varid'>when</span><span class='hs-layout'>)</span> <a name="line-59"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span><span class='hs-varop'>.</span><span class='hs-conid'>Reader</span> <span class='hs-layout'>(</span><span class='hs-varid'>runReaderT</span><span class='hs-layout'>)</span> <a name="line-60"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>IORef</span> <span class='hs-layout'>(</span><span class='hs-conid'>IORef</span><span class='hs-layout'>,</span> <span class='hs-varid'>newIORef</span><span class='hs-layout'>,</span> <span class='hs-varid'>readIORef</span><span class='hs-layout'>,</span> <span class='hs-varid'>writeIORef</span><span class='hs-layout'>)</span> <a name="line-61"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromMaybe</span><span class='hs-layout'>)</span> <a name="line-62"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>FFI</span> <span class='hs-varid'>hiding</span> <span class='hs-layout'>(</span><span class='hs-varid'>maybeNull</span><span class='hs-layout'>)</span> <a name="line-63"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>Flags</span> <span class='hs-layout'>(</span><span class='hs-conid'>Flags</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromFlags</span><span class='hs-layout'>)</span> <a name="line-64"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>GObject</span> <span class='hs-layout'>(</span><span class='hs-conid'>GObjectClass</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>GObject</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>unGObject</span><span class='hs-layout'>,</span> <a name="line-65"></a> <span class='hs-varid'>makeNewGObject</span><span class='hs-layout'>,</span> <span class='hs-varid'>objectUnref</span><span class='hs-layout'>)</span> <a name="line-66"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span> <a name="line-67"></a><span class='hs-comment'>{-# LINE 61 "./Graphics/UI/Gtk/ModelView/CustomStore.chs" #-}</span> <a name="line-68"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>ModelView</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span> <a name="line-69"></a><span class='hs-comment'>{-# LINE 62 "./Graphics/UI/Gtk/ModelView/CustomStore.chs" #-}</span> <a name="line-70"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>General</span><span class='hs-varop'>.</span><span class='hs-conid'>DNDTypes</span> <span class='hs-layout'>(</span><span class='hs-conid'>SelectionDataM</span><span class='hs-layout'>,</span> <span class='hs-conid'>SelectionData</span><span class='hs-layout'>)</span> <a name="line-71"></a> <a name="line-72"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>StoreValue</span> <span class='hs-layout'>(</span><span class='hs-conid'>TMType</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>GenericValue</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>valueSetGenericValue</span><span class='hs-layout'>)</span> <a name="line-73"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>GValue</span> <span class='hs-layout'>(</span><span class='hs-conid'>GValue</span><span class='hs-layout'>(</span><span class='hs-conid'>GValue</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>allocaGValue</span><span class='hs-layout'>)</span> <a name="line-74"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>GType</span> <span class='hs-layout'>(</span><span class='hs-conid'>GType</span><span class='hs-layout'>)</span> <a name="line-75"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>GValueTypes</span> <span class='hs-layout'>(</span><span class='hs-varid'>valueSetString</span><span class='hs-layout'>)</span> <a name="line-76"></a><span class='hs-keyword'>import</span> <span class='hs-keyword'>qualified</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>GTypeConstants</span> <span class='hs-keyword'>as</span> <span class='hs-conid'>GConst</span> <a name="line-77"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>GValueTypes</span> <a name="line-78"></a><span class='hs-comment'>{-# LINE 70 "./Graphics/UI/Gtk/ModelView/CustomStore.chs" #-}</span> <a name="line-79"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>GValue</span> <span class='hs-layout'>(</span><span class='hs-varid'>valueInit</span><span class='hs-layout'>)</span> <a name="line-80"></a> <a name="line-81"></a> <a name="line-82"></a><span class='hs-comment'>{-# LINE 73 "./Graphics/UI/Gtk/ModelView/CustomStore.chs" #-}</span> <a name="line-83"></a> <a name="line-84"></a><a name="TreeModelFlags"></a><span class='hs-comment'>-- | These flags indicate various properties of a</span> <a name="line-85"></a><a name="TreeModelFlags"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.ModelView.TreeModel.TreeModel'.</span> <a name="line-86"></a><a name="TreeModelFlags"></a><span class='hs-comment'>--</span> <a name="line-87"></a><a name="TreeModelFlags"></a><span class='hs-comment'>-- * If a model has 'TreeModelItersPersist' set, iterators remain valid after</span> <a name="line-88"></a><a name="TreeModelFlags"></a><span class='hs-comment'>-- a 'Graphics.UI.Gtk.ModelView.TreeModel.TreeModel' signal was emitted.</span> <a name="line-89"></a><a name="TreeModelFlags"></a><span class='hs-comment'>--</span> <a name="line-90"></a><a name="TreeModelFlags"></a><span class='hs-comment'>-- * The 'TreeModelListOnly' flag is set if the rows are arranged in a simple</span> <a name="line-91"></a><a name="TreeModelFlags"></a><span class='hs-comment'>-- flat list. This is set in the</span> <a name="line-92"></a><a name="TreeModelFlags"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.ModelView.ListStore.ListStore' implementation.</span> <a name="line-93"></a><a name="TreeModelFlags"></a><span class='hs-comment'>--</span> <a name="line-94"></a><a name="TreeModelFlags"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>TreeModelFlags</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TreeModelItersPersist</span> <a name="line-95"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>TreeModelListOnly</span> <a name="line-96"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Bounded</span><span class='hs-layout'>)</span> <a name="line-97"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Enum</span> <span class='hs-conid'>TreeModelFlags</span> <span class='hs-keyword'>where</span> <a name="line-98"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>TreeModelItersPersist</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1</span> <a name="line-99"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>TreeModelListOnly</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>2</span> <a name="line-100"></a> <a name="line-101"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>1</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TreeModelItersPersist</span> <a name="line-102"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>2</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TreeModelListOnly</span> <a name="line-103"></a> <span class='hs-varid'>toEnum</span> <span class='hs-varid'>unmatched</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"TreeModelFlags.toEnum: Cannot match "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>unmatched</span><span class='hs-layout'>)</span> <a name="line-104"></a> <a name="line-105"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>TreeModelItersPersist</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TreeModelListOnly</span> <a name="line-106"></a> <span class='hs-varid'>succ</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span> <a name="line-107"></a> <a name="line-108"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>TreeModelListOnly</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TreeModelItersPersist</span> <a name="line-109"></a> <span class='hs-varid'>pred</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span> <a name="line-110"></a> <a name="line-111"></a> <span class='hs-varid'>enumFromTo</span> <span class='hs-varid'>x</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>]</span> <a name="line-112"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span> <span class='hs-conop'>:</span> <span class='hs-varid'>enumFromTo</span> <span class='hs-layout'>(</span><span class='hs-varid'>succ</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-varid'>y</span> <a name="line-113"></a> <span class='hs-varid'>enumFrom</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>enumFromTo</span> <span class='hs-varid'>x</span> <span class='hs-conid'>TreeModelListOnly</span> <a name="line-114"></a> <span class='hs-varid'>enumFromThen</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"Enum TreeModelFlags: enumFromThen not implemented"</span> <a name="line-115"></a> <span class='hs-varid'>enumFromThenTo</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"Enum TreeModelFlags: enumFromThenTo not implemented"</span> <a name="line-116"></a> <a name="line-117"></a><span class='hs-comment'>{-# LINE 85 "./Graphics/UI/Gtk/ModelView/CustomStore.chs" #-}</span> <a name="line-118"></a> <a name="line-119"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Flags</span> <span class='hs-conid'>TreeModelFlags</span> <a name="line-120"></a> <a name="line-121"></a><span class='hs-comment'>-- A 'CustomStore' is backed by a Gtk2HsStore</span> <a name="line-122"></a><span class='hs-comment'>-- which is an instance of the GtkTreeModel GInterface</span> <a name="line-123"></a><span class='hs-comment'>-- it also stores some extra per-model-type private data</span> <a name="line-124"></a> <a name="line-125"></a><a name="CustomStore"></a><span class='hs-comment'>-- | A 'CustomStore' is an instance of a Gtk+ 'TreeModel' and can thus be used</span> <a name="line-126"></a><a name="CustomStore"></a><span class='hs-comment'>-- for any widget that stores data in a 'TreeModel'. The user may either</span> <a name="line-127"></a><a name="CustomStore"></a><span class='hs-comment'>-- create an instance of a 'CustomStore' or use one of the pre-defined</span> <a name="line-128"></a><a name="CustomStore"></a><span class='hs-comment'>-- models 'Graphics.UI.Gtk.ModelView.ListStore.ListStore' of</span> <a name="line-129"></a><a name="CustomStore"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.ModelView.TreeStore.TreeStore'.</span> <a name="line-130"></a><a name="CustomStore"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>CustomStore</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-131"></a> <a name="line-132"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>TreeModelClass</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-133"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>GObjectClass</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-134"></a> <span class='hs-varid'>toGObject</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>tm</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GObject</span> <span class='hs-layout'>(</span><span class='hs-varid'>castForeignPtr</span> <span class='hs-varid'>tm</span><span class='hs-layout'>)</span> <a name="line-135"></a> <span class='hs-varid'>unsafeCastGObject</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>CustomStore</span> <span class='hs-varop'>.</span> <span class='hs-varid'>castForeignPtr</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unGObject</span> <a name="line-136"></a> <a name="line-137"></a><a name="ColumnMap"></a><span class='hs-comment'>-- | Type synonym for viewing the store as a set of columns.</span> <a name="line-138"></a><a name="ColumnMap"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>ColumnMap</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IORef</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ColumnAccess</span> <span class='hs-varid'>row</span><span class='hs-keyglyph'>]</span> <a name="line-139"></a> <a name="line-140"></a><a name="columnMapNew"></a><span class='hs-comment'>-- | Create a new 'ColumnMap' value.</span> <a name="line-141"></a><span class='hs-definition'>columnMapNew</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>ColumnMap</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-142"></a><span class='hs-definition'>columnMapNew</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newIORef</span> <span class='hs-conid'>[]</span> <a name="line-143"></a> <a name="line-144"></a><a name="customStoreSetColumn"></a><span class='hs-comment'>-- | Set or update a column mapping. This function should be used before</span> <a name="line-145"></a><span class='hs-comment'>-- the model is installed into a widget since the number of defined</span> <a name="line-146"></a><span class='hs-comment'>-- columns are only checked once by widgets.</span> <a name="line-147"></a><span class='hs-definition'>customStoreSetColumn</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-varid'>model</span> <a name="line-148"></a> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-comment'>-- ^ the store in which to allocate a new column</span> <a name="line-149"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>ColumnId</span> <span class='hs-varid'>row</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ the column that should be set</span> <a name="line-150"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ the function that sets the property</span> <a name="line-151"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-152"></a><span class='hs-definition'>customStoreSetColumn</span> <span class='hs-varid'>model</span> <span class='hs-layout'>(</span><span class='hs-conid'>ColumnId</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>setter</span> <span class='hs-varid'>colId</span><span class='hs-layout'>)</span> <span class='hs-varid'>acc</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>colId</span><span class='hs-varop'><</span><span class='hs-num'>0</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span> <a name="line-153"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <a name="line-154"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>toTypedTreeModel</span> <span class='hs-varid'>model</span> <span class='hs-keyword'>of</span> <a name="line-155"></a> <span class='hs-conid'>TypedTreeModel</span> <span class='hs-varid'>model</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <a name="line-156"></a> <span class='hs-varid'>ptr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>model</span> <span class='hs-varid'>gtk2hs_store_get_impl</span> <a name="line-157"></a> <span class='hs-varid'>impl</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>ptr</span> <a name="line-158"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>cMap</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>customStoreColumns</span> <span class='hs-varid'>impl</span> <a name="line-159"></a> <span class='hs-varid'>cols</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readIORef</span> <span class='hs-varid'>cMap</span> <a name="line-160"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>l</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>length</span> <span class='hs-varid'>cols</span> <a name="line-161"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>colId</span><span class='hs-varop'>>=</span><span class='hs-varid'>l</span> <span class='hs-keyword'>then</span> <span class='hs-keyword'>do</span> <a name="line-162"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>fillers</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>replicate</span> <span class='hs-layout'>(</span><span class='hs-varid'>colId</span><span class='hs-comment'>-</span><span class='hs-varid'>l</span><span class='hs-layout'>)</span> <span class='hs-conid'>CAInvalid</span> <a name="line-163"></a> <span class='hs-varid'>writeIORef</span> <span class='hs-varid'>cMap</span> <span class='hs-layout'>(</span><span class='hs-varid'>cols</span><span class='hs-varop'>++</span><span class='hs-varid'>fillers</span><span class='hs-varop'>++</span><span class='hs-keyglyph'>[</span><span class='hs-varid'>setter</span> <span class='hs-varid'>acc</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <a name="line-164"></a> <span class='hs-keyword'>else</span> <span class='hs-keyword'>do</span> <a name="line-165"></a> <span class='hs-keyword'>let</span> <span class='hs-layout'>(</span><span class='hs-varid'>beg</span><span class='hs-layout'>,</span><span class='hs-keyword'>_</span><span class='hs-conop'>:</span><span class='hs-varid'>end</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>splitAt</span> <span class='hs-varid'>colId</span> <span class='hs-varid'>cols</span> <a name="line-166"></a> <span class='hs-varid'>writeIORef</span> <span class='hs-varid'>cMap</span> <span class='hs-layout'>(</span><span class='hs-varid'>beg</span><span class='hs-varop'>++</span><span class='hs-varid'>setter</span> <span class='hs-varid'>acc</span><span class='hs-conop'>:</span><span class='hs-varid'>end</span><span class='hs-layout'>)</span> <a name="line-167"></a> <a name="line-168"></a><a name="treeModelSetColumn"></a><span class='hs-comment'>-- this is a backwards compatability definition</span> <a name="line-169"></a><span class='hs-definition'>treeModelSetColumn</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-varid'>model</span> <a name="line-170"></a> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-comment'>-- ^ the store in which to allocate a new column</span> <a name="line-171"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>ColumnId</span> <span class='hs-varid'>row</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ the column that should be set</span> <a name="line-172"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ the function that sets the property</span> <a name="line-173"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-174"></a><span class='hs-definition'>treeModelSetColumn</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>customStoreSetColumn</span> <a name="line-175"></a> <a name="line-176"></a><a name="CustomStoreImplementation"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-layout'>{</span> <a name="line-177"></a> <span class='hs-varid'>customStoreColumns</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ColumnMap</span> <span class='hs-varid'>row</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- provide access via columns</span> <a name="line-178"></a> <span class='hs-varid'>customStoreIface</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeModelIface</span> <span class='hs-varid'>row</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- functions implementing a tree model</span> <a name="line-179"></a> <span class='hs-varid'>customTreeDragSourceIface</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragSourceIface</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- the drag and drop source interface</span> <a name="line-180"></a> <span class='hs-varid'>customTreeDragDestIface</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragDestIface</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-comment'>-- the drag and drop dest interface</span> <a name="line-181"></a> <span class='hs-layout'>}</span> <a name="line-182"></a> <a name="line-183"></a><a name="TreeModelIface"></a><span class='hs-comment'>-- | The 'TreeModelIface' structure contains all functions that are required</span> <a name="line-184"></a><a name="TreeModelIface"></a><span class='hs-comment'>-- to implement an application-specific 'TreeModel'.</span> <a name="line-185"></a><a name="TreeModelIface"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>TreeModelIface</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TreeModelIface</span> <span class='hs-layout'>{</span> <a name="line-186"></a> <span class='hs-comment'>-- | Return the flags that are valid for this model.</span> <a name="line-187"></a> <span class='hs-varid'>treeModelIfaceGetFlags</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>TreeModelFlags</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span> <a name="line-188"></a> <span class='hs-comment'>-- | Convert an path into the tree into a more concise 'TreeIter'.</span> <a name="line-189"></a> <span class='hs-comment'>-- Return @Nothing@ if the path does not exit.</span> <a name="line-190"></a> <span class='hs-varid'>treeModelIfaceGetIter</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- convert a path to an iterator</span> <a name="line-191"></a> <span class='hs-comment'>-- | Convert an iterator to a path. The iterator will always be valid.</span> <a name="line-192"></a> <span class='hs-varid'>treeModelIfaceGetPath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>TreePath</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- convert an interator to a path</span> <a name="line-193"></a> <span class='hs-comment'>-- | Retrieve a row at the given iterator.</span> <a name="line-194"></a> <span class='hs-varid'>treeModelIfaceGetRow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>row</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- get the row at an iter</span> <a name="line-195"></a> <span class='hs-comment'>-- | Advance the given iterator to the next node at the same level.</span> <a name="line-196"></a> <span class='hs-comment'>-- Return @Nothing@ if there is no next node at this level.</span> <a name="line-197"></a> <span class='hs-varid'>treeModelIfaceIterNext</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- following row (if any)</span> <a name="line-198"></a> <span class='hs-comment'>-- | Advance the given iterator to the first child of this iterator.</span> <a name="line-199"></a> <span class='hs-comment'>-- Return @Notihing@ if the node at this iterator has no children.</span> <a name="line-200"></a> <span class='hs-varid'>treeModelIfaceIterChildren</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- first child row (if any)</span> <a name="line-201"></a> <span class='hs-comment'>-- | Check if the node at the given iterator has children.</span> <a name="line-202"></a> <span class='hs-varid'>treeModelIfaceIterHasChild</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- row has any children at all</span> <a name="line-203"></a> <span class='hs-comment'>-- | Query the number of children the the node at the given iteratore has.</span> <a name="line-204"></a> <span class='hs-varid'>treeModelIfaceIterNChildren</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- number of children of a row</span> <a name="line-205"></a> <span class='hs-comment'>-- | Ask for an iterator to the @n@th child. Return @Nothing@ if</span> <a name="line-206"></a> <span class='hs-comment'>-- no such child exists.</span> <a name="line-207"></a> <span class='hs-varid'>treeModelIfaceIterNthChild</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- nth child row of a given row</span> <a name="line-208"></a> <span class='hs-comment'>-- | Ask for an iterator to the parent of the node.</span> <a name="line-209"></a> <span class='hs-varid'>treeModelIfaceIterParent</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>TreeIter</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- parent row of a row</span> <a name="line-210"></a> <span class='hs-comment'>-- | Increase a reference count for this node. A positive reference count</span> <a name="line-211"></a> <span class='hs-comment'>-- indicates that the node is used (that is, most likely it is visible)</span> <a name="line-212"></a> <span class='hs-comment'>-- in at least one widget. Tracking reference counts for nodes is</span> <a name="line-213"></a> <span class='hs-comment'>-- optional but may be useful to infer when a given row can be discarded</span> <a name="line-214"></a> <span class='hs-comment'>-- if it was retrieved from an external source.</span> <a name="line-215"></a> <span class='hs-varid'>treeModelIfaceRefNode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- caching hint</span> <a name="line-216"></a> <span class='hs-comment'>-- | Decrement the reference count of the given node.</span> <a name="line-217"></a> <span class='hs-varid'>treeModelIfaceUnrefNode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <span class='hs-comment'>-- caching hint</span> <a name="line-218"></a> <span class='hs-layout'>}</span> <a name="line-219"></a> <a name="line-220"></a><a name="DragSourceIface"></a><span class='hs-comment'>-- | A structure containing functions that enable this widget to be used</span> <a name="line-221"></a><a name="DragSourceIface"></a><span class='hs-comment'>-- as a source in drag-and-drop.</span> <a name="line-222"></a><a name="DragSourceIface"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>DragSourceIface</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DragSourceIface</span> <span class='hs-layout'>{</span> <a name="line-223"></a> <span class='hs-comment'>-- | Determine if the row at the given path is draggable. Return</span> <a name="line-224"></a> <span class='hs-comment'>-- @False@ if for some reason this row should not be dragged by</span> <a name="line-225"></a> <span class='hs-comment'>-- the user.</span> <a name="line-226"></a> <span class='hs-varid'>treeDragSourceRowDraggable</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- query if the row is draggable</span> <a name="line-227"></a> <span class='hs-comment'>-- | Fill in the 'SelectionDataM' structure with information on</span> <a name="line-228"></a> <span class='hs-comment'>-- the given node using</span> <a name="line-229"></a> <span class='hs-comment'>-- 'Graphics.UI.Gtk.General.Selection.selectionDataSet'.</span> <a name="line-230"></a> <span class='hs-varid'>treeDragSourceDragDataGet</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionDataM</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- store row in selection object</span> <a name="line-231"></a> <span class='hs-comment'>-- | The widget is informed that the row at the given path should</span> <a name="line-232"></a> <span class='hs-comment'>-- be deleted as the result of this drag.</span> <a name="line-233"></a> <span class='hs-varid'>treeDragSourceDragDataDelete</span><span class='hs-keyglyph'>::</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- instruct store to delete the row</span> <a name="line-234"></a> <span class='hs-layout'>}</span> <a name="line-235"></a> <a name="line-236"></a><a name="DragDestIface"></a><span class='hs-comment'>-- | A structure containing functions that enable this widget to be used</span> <a name="line-237"></a><a name="DragDestIface"></a><span class='hs-comment'>-- as a target in drag-and-drop.</span> <a name="line-238"></a><a name="DragDestIface"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>DragDestIface</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DragDestIface</span> <span class='hs-layout'>{</span> <a name="line-239"></a> <span class='hs-comment'>-- | Tell the drag-and-drop mechanism if the row can be dropped at the</span> <a name="line-240"></a> <span class='hs-comment'>-- given path.</span> <a name="line-241"></a> <span class='hs-varid'>treeDragDestRowDropPossible</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionDataM</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>,</span> <span class='hs-comment'>-- query if row drop is possible</span> <a name="line-242"></a> <span class='hs-comment'>-- | The data in the 'SelectionDataM' structure should be read using</span> <a name="line-243"></a> <span class='hs-comment'>-- 'Graphics.UI.Gtk.General.Selection.selectionDataGet' and</span> <a name="line-244"></a> <span class='hs-comment'>-- its information be used to insert a new row at the given path.</span> <a name="line-245"></a> <span class='hs-varid'>treeDragDestDragDataReceived</span><span class='hs-keyglyph'>::</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionDataM</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- insert row from selection object</span> <a name="line-246"></a> <span class='hs-layout'>}</span> <a name="line-247"></a> <a name="line-248"></a><a name="customStoreNew"></a><span class='hs-comment'>-- | Create a new store that implements the 'TreeModelIface' interface and</span> <a name="line-249"></a><span class='hs-comment'>-- optionally the 'DragSourceIface' and the 'DragDestIface'. If the latter two</span> <a name="line-250"></a><span class='hs-comment'>-- are set to @Nothing@ a dummy interface is substituted that rejects every</span> <a name="line-251"></a><span class='hs-comment'>-- drag and drop.</span> <a name="line-252"></a><span class='hs-definition'>customStoreNew</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>TreeModelClass</span> <span class='hs-layout'>(</span><span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <a name="line-253"></a> <span class='hs-varid'>private</span> <span class='hs-comment'>-- ^ Any private data the store needs to store. Usually an 'IORef'.</span> <a name="line-254"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-255"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreeModelIface</span> <span class='hs-varid'>row</span> <span class='hs-comment'>-- ^ Functions necessary to implement the 'TreeModel' interface.</span> <a name="line-256"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>DragSourceIface</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-257"></a> <span class='hs-comment'>-- ^ Functions to enable this store to generate drag events.</span> <a name="line-258"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>DragDestIface</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-259"></a> <span class='hs-comment'>-- ^ Functions to enable this store to receive drag events.</span> <a name="line-260"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-261"></a><span class='hs-definition'>customStoreNew</span> <span class='hs-varid'>priv</span> <span class='hs-varid'>con</span> <span class='hs-varid'>tmIface</span> <span class='hs-varid'>mDragSource</span> <span class='hs-varid'>mDragDest</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-262"></a> <span class='hs-varid'>cMap</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>columnMapNew</span> <a name="line-263"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>dummyDragSource</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DragSourceIface</span> <span class='hs-layout'>{</span> <span class='hs-varid'>treeDragSourceRowDraggable</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span><span class='hs-layout'>,</span> <a name="line-264"></a> <span class='hs-varid'>treeDragSourceDragDataGet</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span><span class='hs-layout'>,</span> <a name="line-265"></a> <span class='hs-varid'>treeDragSourceDragDataDelete</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span> <span class='hs-layout'>}</span> <a name="line-266"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>dummyDragDest</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>DragDestIface</span> <span class='hs-layout'>{</span> <span class='hs-varid'>treeDragDestRowDropPossible</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span><span class='hs-layout'>,</span> <a name="line-267"></a> <span class='hs-varid'>treeDragDestDragDataReceived</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>\</span><span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>False</span> <span class='hs-layout'>}</span> <a name="line-268"></a> <span class='hs-varid'>implPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newStablePtr</span> <span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-layout'>{</span> <a name="line-269"></a> <span class='hs-varid'>customStoreColumns</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>cMap</span><span class='hs-layout'>,</span> <a name="line-270"></a> <span class='hs-varid'>customStoreIface</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tmIface</span><span class='hs-layout'>,</span> <a name="line-271"></a> <span class='hs-varid'>customTreeDragSourceIface</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-varid'>dummyDragSource</span> <span class='hs-varid'>mDragSource</span><span class='hs-layout'>,</span> <a name="line-272"></a> <span class='hs-varid'>customTreeDragDestIface</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromMaybe</span> <span class='hs-varid'>dummyDragDest</span> <span class='hs-varid'>mDragDest</span> <span class='hs-layout'>}</span> <a name="line-273"></a> <span class='hs-varid'>privPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newStablePtr</span> <span class='hs-varid'>priv</span> <a name="line-274"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>con</span> <span class='hs-varop'>$</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span><span class='hs-layout'>,</span> <span class='hs-varid'>objectUnref</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-275"></a> <span class='hs-varid'>gtk2hs_store_new</span> <span class='hs-varid'>implPtr</span> <span class='hs-varid'>privPtr</span> <a name="line-276"></a> <a name="line-277"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"Gtk2HsStore.h gtk2hs_store_new"</span> <a name="line-278"></a> <span class='hs-varid'>gtk2hs_store_new</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-279"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-varid'>private</span> <a name="line-280"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-281"></a> <a name="line-282"></a><a name="customStoreGetRow"></a><span class='hs-comment'>-- | Extract a row of the given model at the given 'TreeIter'.</span> <a name="line-283"></a><span class='hs-comment'>--</span> <a name="line-284"></a><span class='hs-definition'>customStoreGetRow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-varid'>model</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>row</span> <a name="line-285"></a><span class='hs-definition'>customStoreGetRow</span> <span class='hs-varid'>model</span> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'>=</span> <a name="line-286"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>toTypedTreeModel</span> <span class='hs-varid'>model</span> <span class='hs-keyword'>of</span> <a name="line-287"></a> <span class='hs-conid'>TypedTreeModel</span> <span class='hs-varid'>model</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <a name="line-288"></a> <span class='hs-varid'>impl</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>model</span> <span class='hs-varid'>gtk2hs_store_get_impl</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>deRefStablePtr</span> <a name="line-289"></a> <span class='hs-varid'>treeModelIfaceGetRow</span> <span class='hs-layout'>(</span><span class='hs-varid'>customStoreIface</span> <span class='hs-varid'>impl</span><span class='hs-layout'>)</span> <span class='hs-varid'>iter</span> <a name="line-290"></a> <a name="line-291"></a><a name="treeModelGetRow"></a><span class='hs-comment'>-- this is a backwards compatability definition</span> <a name="line-292"></a><span class='hs-definition'>treeModelGetRow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-varid'>model</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>row</span> <a name="line-293"></a><span class='hs-definition'>treeModelGetRow</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>customStoreGetRow</span> <a name="line-294"></a> <a name="line-295"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"Gtk2HsStore.h gtk2hs_store_get_impl"</span> <a name="line-296"></a> <span class='hs-varid'>gtk2hs_store_get_impl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>TypedTreeModel</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-297"></a> <a name="line-298"></a><a name="customStoreGetPrivate"></a><span class='hs-comment'>-- | Return the private data stored in this 'CustomStore'. The private data</span> <a name="line-299"></a><span class='hs-comment'>-- is meant as a container for the data stored in this model.</span> <a name="line-300"></a><span class='hs-definition'>customStoreGetPrivate</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>private</span> <a name="line-301"></a><span class='hs-definition'>customStoreGetPrivate</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-302"></a> <span class='hs-varid'>unsafePerformIO</span> <span class='hs-varop'>$</span> <span class='hs-comment'>-- this is safe because the priv member is set at</span> <a name="line-303"></a> <span class='hs-comment'>-- construction time and never modified after that</span> <a name="line-304"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>model</span> <span class='hs-varid'>gtk2hs_store_get_priv</span> <span class='hs-varop'>>>=</span> <span class='hs-varid'>deRefStablePtr</span> <a name="line-305"></a> <a name="line-306"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"Gtk2HsStore.h gtk2hs_store_get_priv"</span> <a name="line-307"></a> <span class='hs-varid'>gtk2hs_store_get_priv</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>StablePtr</span> <span class='hs-varid'>private</span><span class='hs-layout'>)</span> <a name="line-308"></a> <a name="line-309"></a><a name="customStoreGetStamp"></a><span class='hs-comment'>-- | Query the current value of the stamp that is used to create</span> <a name="line-310"></a><span class='hs-comment'>-- 'TreeIter' iterators. The stamp is compared each time a view</span> <a name="line-311"></a><span class='hs-comment'>-- accesses this store. If the stamp doesn't match, a warning</span> <a name="line-312"></a><span class='hs-comment'>-- is emitted. The stamp should be updated each time a the data</span> <a name="line-313"></a><span class='hs-comment'>-- in the model changes. The rationale is that a view should never</span> <a name="line-314"></a><span class='hs-comment'>-- use a stale 'TreeIter', i.e., one that refers to an old model.</span> <a name="line-315"></a><span class='hs-comment'>--</span> <a name="line-316"></a><span class='hs-definition'>customStoreGetStamp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-317"></a><span class='hs-definition'>customStoreGetStamp</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-318"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>model</span> <span class='hs-varid'>gtk2hs_store_get_stamp</span> <a name="line-319"></a> <a name="line-320"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"Gtk2HsStore.h gtk2hs_store_get_stamp"</span> <a name="line-321"></a> <span class='hs-varid'>gtk2hs_store_get_stamp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-322"></a> <a name="line-323"></a><a name="customStoreInvalidateIters"></a><span class='hs-comment'>-- | Create a new stamp. See 'customStoreGetStamp'.</span> <a name="line-324"></a><span class='hs-comment'>--</span> <a name="line-325"></a><span class='hs-definition'>customStoreInvalidateIters</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-326"></a><span class='hs-definition'>customStoreInvalidateIters</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <a name="line-327"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>model</span> <span class='hs-varid'>gtk2hs_store_increment_stamp</span> <a name="line-328"></a> <a name="line-329"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"Gtk2HsStore.h gtk2hs_store_increment_stamp"</span> <a name="line-330"></a> <span class='hs-varid'>gtk2hs_store_increment_stamp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStore</span> <span class='hs-varid'>private</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-331"></a> <a name="line-332"></a><a name="treeModelIfaceGetNColumns_static"></a><span class='hs-definition'>treeModelIfaceGetNColumns_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-333"></a><span class='hs-definition'>treeModelIfaceGetNColumns_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-334"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-335"></a> <span class='hs-varid'>cmap</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readIORef</span> <span class='hs-layout'>(</span><span class='hs-varid'>customStoreColumns</span> <span class='hs-varid'>store</span><span class='hs-layout'>)</span> <a name="line-336"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>length</span> <span class='hs-varid'>cmap</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-337"></a> <a name="line-338"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_get_n_columns_impl"</span> <a name="line-339"></a> <span class='hs-varid'>treeModelIfaceGetNColumns_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-340"></a> <a name="line-341"></a><a name="caToGType"></a><span class='hs-comment'>-- Get the 'GType' for a given 'ColumnAccess'.</span> <a name="line-342"></a><span class='hs-definition'>caToGType</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ColumnAccess</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GType</span> <a name="line-343"></a><span class='hs-definition'>caToGType</span> <span class='hs-layout'>(</span><span class='hs-conid'>CAInt</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>int</span> <a name="line-344"></a><span class='hs-definition'>caToGType</span> <span class='hs-layout'>(</span><span class='hs-conid'>CABool</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>bool</span> <a name="line-345"></a><span class='hs-definition'>caToGType</span> <span class='hs-layout'>(</span><span class='hs-conid'>CAString</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>string</span> <a name="line-346"></a><span class='hs-definition'>caToGType</span> <span class='hs-layout'>(</span><span class='hs-conid'>CAPixbuf</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>gdk_pixbuf_get_type</span> <a name="line-347"></a><span class='hs-comment'>{-# LINE 314 "./Graphics/UI/Gtk/ModelView/CustomStore.chs" #-}</span> <a name="line-348"></a><span class='hs-definition'>caToGType</span> <span class='hs-conid'>CAInvalid</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>int</span> <span class='hs-comment'>-- to avoid warnings of functions that iterate through all columns</span> <a name="line-349"></a> <a name="line-350"></a><a name="treeModelIfaceGetColumnType_static"></a><span class='hs-definition'>treeModelIfaceGetColumnType_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>GType</span> <a name="line-351"></a><span class='hs-definition'>treeModelIfaceGetColumnType_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>column</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-352"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-353"></a> <span class='hs-varid'>cols</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readIORef</span> <span class='hs-layout'>(</span><span class='hs-varid'>customStoreColumns</span> <span class='hs-varid'>store</span><span class='hs-layout'>)</span> <a name="line-354"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>drop</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>column</span><span class='hs-layout'>)</span> <span class='hs-varid'>cols</span> <span class='hs-keyword'>of</span> <a name="line-355"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>invalid</span> <a name="line-356"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ca</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>caToGType</span> <span class='hs-varid'>ca</span><span class='hs-layout'>)</span> <a name="line-357"></a> <a name="line-358"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_get_column_type_impl"</span> <a name="line-359"></a> <span class='hs-varid'>treeModelIfaceGetColumnType_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>GType</span> <a name="line-360"></a> <a name="line-361"></a> <a name="line-362"></a><a name="treeModelIfaceGetFlags_static"></a><span class='hs-definition'>treeModelIfaceGetFlags_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-363"></a><span class='hs-definition'>treeModelIfaceGetFlags_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-364"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-365"></a> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromFlags</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>treeModelIfaceGetFlags</span> <span class='hs-varid'>store</span> <a name="line-366"></a> <a name="line-367"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_get_flags_impl"</span> <a name="line-368"></a> <span class='hs-varid'>treeModelIfaceGetFlags_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-369"></a> <a name="line-370"></a> <a name="line-371"></a><a name="treeModelIfaceGetIter_static"></a><span class='hs-definition'>treeModelIfaceGetIter_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-372"></a><span class='hs-definition'>treeModelIfaceGetIter_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>pathPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-373"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-374"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekTreePath</span> <span class='hs-varid'>pathPtr</span> <a name="line-375"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>treeModelIfaceGetIter</span> <span class='hs-varid'>store</span> <span class='hs-varid'>path</span> <a name="line-376"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>iter</span> <span class='hs-keyword'>of</span> <a name="line-377"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <a name="line-378"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>iter</span> <a name="line-379"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>True</span><span class='hs-layout'>)</span> <a name="line-380"></a> <a name="line-381"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_get_iter_impl"</span> <a name="line-382"></a> <span class='hs-varid'>treeModelIfaceGetIter_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-383"></a> <a name="line-384"></a><a name="treeModelIfaceGetPath_static"></a><span class='hs-definition'>treeModelIfaceGetPath_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>)</span> <a name="line-385"></a><span class='hs-definition'>treeModelIfaceGetPath_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-386"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-387"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span> <a name="line-388"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>treeModelIfaceGetPath</span> <span class='hs-varid'>store</span> <span class='hs-varid'>iter</span> <a name="line-389"></a> <span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>pathPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newTreePath</span> <span class='hs-varid'>path</span> <a name="line-390"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>pathPtr</span> <a name="line-391"></a> <a name="line-392"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_get_path_impl"</span> <a name="line-393"></a> <span class='hs-varid'>treeModelIfaceGetPath_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>)</span> <a name="line-394"></a> <a name="line-395"></a> <a name="line-396"></a><a name="treeModelIfaceGetValue_static"></a><span class='hs-definition'>treeModelIfaceGetValue_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>GValue</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-397"></a><span class='hs-definition'>treeModelIfaceGetValue_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>column</span> <span class='hs-varid'>gvaluePtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-398"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-399"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span> <a name="line-400"></a> <span class='hs-varid'>row</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>treeModelIfaceGetRow</span> <span class='hs-layout'>(</span><span class='hs-varid'>customStoreIface</span> <span class='hs-varid'>store</span><span class='hs-layout'>)</span> <span class='hs-varid'>iter</span> <a name="line-401"></a> <span class='hs-varid'>cols</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>readIORef</span> <span class='hs-layout'>(</span><span class='hs-varid'>customStoreColumns</span> <span class='hs-varid'>store</span><span class='hs-layout'>)</span> <a name="line-402"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>gVal</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>GValue</span> <span class='hs-varid'>gvaluePtr</span><span class='hs-layout'>)</span> <a name="line-403"></a> <span class='hs-num'>0</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-layout'>{</span><span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-num'>0</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CUInt</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>gvaluePtr</span> <a name="line-404"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>drop</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>column</span><span class='hs-layout'>)</span> <span class='hs-varid'>cols</span> <span class='hs-keyword'>of</span> <a name="line-405"></a> <span class='hs-conid'>[]</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>valueInit</span> <span class='hs-varid'>gVal</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>invalid</span> <span class='hs-comment'>-- column number out of range</span> <a name="line-406"></a> <span class='hs-layout'>(</span><span class='hs-varid'>acc</span><span class='hs-conop'>:</span><span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>case</span> <span class='hs-varid'>acc</span> <span class='hs-keyword'>of</span> <a name="line-407"></a> <span class='hs-layout'>(</span><span class='hs-conid'>CAInt</span> <span class='hs-varid'>ca</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>valueInit</span> <span class='hs-varid'>gVal</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>int</span> <span class='hs-varop'>>></span> <span class='hs-varid'>valueSetInt</span> <span class='hs-varid'>gVal</span> <span class='hs-layout'>(</span><span class='hs-varid'>ca</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-408"></a> <span class='hs-layout'>(</span><span class='hs-conid'>CABool</span> <span class='hs-varid'>ca</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>valueInit</span> <span class='hs-varid'>gVal</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>bool</span> <span class='hs-varop'>>></span> <span class='hs-varid'>valueSetBool</span> <span class='hs-varid'>gVal</span> <span class='hs-layout'>(</span><span class='hs-varid'>ca</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-409"></a> <span class='hs-layout'>(</span><span class='hs-conid'>CAString</span> <span class='hs-varid'>ca</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>valueInit</span> <span class='hs-varid'>gVal</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>string</span> <span class='hs-varop'>>></span> <span class='hs-varid'>valueSetString</span> <span class='hs-varid'>gVal</span> <span class='hs-layout'>(</span><span class='hs-varid'>ca</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-410"></a> <span class='hs-layout'>(</span><span class='hs-conid'>CAPixbuf</span> <span class='hs-varid'>ca</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>valueInit</span> <span class='hs-varid'>gVal</span> <span class='hs-varid'>gdk_pixbuf_get_type</span> <span class='hs-varop'>>></span> <a name="line-411"></a> <span class='hs-varid'>valueSetGObject</span> <span class='hs-varid'>gVal</span> <span class='hs-layout'>(</span><span class='hs-varid'>ca</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <a name="line-412"></a> <span class='hs-conid'>CAInvalid</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>valueInit</span> <span class='hs-varid'>gVal</span> <span class='hs-conid'>GConst</span><span class='hs-varop'>.</span><span class='hs-varid'>int</span> <span class='hs-varop'>>></span> <span class='hs-varid'>valueSetInt</span> <span class='hs-varid'>gVal</span> <span class='hs-num'>0</span> <a name="line-413"></a> <a name="line-414"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_get_value_impl"</span> <a name="line-415"></a> <span class='hs-varid'>treeModelIfaceGetValue_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>GValue</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-416"></a> <a name="line-417"></a> <a name="line-418"></a><a name="treeModelIfaceIterNext_static"></a><span class='hs-definition'>treeModelIfaceIterNext_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-419"></a><span class='hs-definition'>treeModelIfaceIterNext_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-420"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-421"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span> <a name="line-422"></a> <span class='hs-varid'>iter'</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>treeModelIfaceIterNext</span> <span class='hs-varid'>store</span> <span class='hs-varid'>iter</span> <a name="line-423"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>iter'</span> <span class='hs-keyword'>of</span> <a name="line-424"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <a name="line-425"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>iter'</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>iter'</span> <a name="line-426"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>True</span><span class='hs-layout'>)</span> <a name="line-427"></a> <a name="line-428"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_iter_next_impl"</span> <a name="line-429"></a> <span class='hs-varid'>treeModelIfaceIterNext_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-430"></a> <a name="line-431"></a> <a name="line-432"></a><a name="treeModelIfaceIterChildren_static"></a><span class='hs-definition'>treeModelIfaceIterChildren_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-433"></a><span class='hs-definition'>treeModelIfaceIterChildren_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>parentIterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-434"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-435"></a> <span class='hs-varid'>parentIter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>maybeNull</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>parentIterPtr</span> <a name="line-436"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>treeModelIfaceIterChildren</span> <span class='hs-varid'>store</span> <span class='hs-varid'>parentIter</span> <a name="line-437"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>iter</span> <span class='hs-keyword'>of</span> <a name="line-438"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <a name="line-439"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>iter</span> <a name="line-440"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>True</span><span class='hs-layout'>)</span> <a name="line-441"></a> <a name="line-442"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_iter_children_impl"</span> <a name="line-443"></a> <span class='hs-varid'>treeModelIfaceIterChildren_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-444"></a> <a name="line-445"></a> <a name="line-446"></a><a name="treeModelIfaceIterHasChild_static"></a><span class='hs-definition'>treeModelIfaceIterHasChild_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-447"></a><span class='hs-definition'>treeModelIfaceIterHasChild_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-448"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-449"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span> <a name="line-450"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromBool</span> <span class='hs-varop'>$</span> <span class='hs-varid'>treeModelIfaceIterHasChild</span> <span class='hs-varid'>store</span> <span class='hs-varid'>iter</span> <a name="line-451"></a> <a name="line-452"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_iter_has_child_impl"</span> <a name="line-453"></a> <span class='hs-varid'>treeModelIfaceIterHasChild_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-454"></a> <a name="line-455"></a> <a name="line-456"></a><a name="treeModelIfaceIterNChildren_static"></a><span class='hs-definition'>treeModelIfaceIterNChildren_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-457"></a><span class='hs-definition'>treeModelIfaceIterNChildren_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-458"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-459"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>maybeNull</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span> <a name="line-460"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-varid'>treeModelIfaceIterNChildren</span> <span class='hs-varid'>store</span> <span class='hs-varid'>iter</span> <a name="line-461"></a> <a name="line-462"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_iter_n_children_impl"</span> <a name="line-463"></a> <span class='hs-varid'>treeModelIfaceIterNChildren_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-464"></a> <a name="line-465"></a> <a name="line-466"></a><a name="treeModelIfaceIterNthChild_static"></a><span class='hs-definition'>treeModelIfaceIterNthChild_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-467"></a><span class='hs-definition'>treeModelIfaceIterNthChild_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>parentIterPtr</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-468"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-469"></a> <span class='hs-varid'>parentIter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>maybeNull</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>parentIterPtr</span> <a name="line-470"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>treeModelIfaceIterNthChild</span> <span class='hs-varid'>store</span> <span class='hs-varid'>parentIter</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <a name="line-471"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>iter</span> <span class='hs-keyword'>of</span> <a name="line-472"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <a name="line-473"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>iter</span> <a name="line-474"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>True</span><span class='hs-layout'>)</span> <a name="line-475"></a> <a name="line-476"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_iter_nth_child_impl"</span> <a name="line-477"></a> <span class='hs-varid'>treeModelIfaceIterNthChild_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-478"></a> <a name="line-479"></a> <a name="line-480"></a><a name="treeModelIfaceIterParent_static"></a><span class='hs-definition'>treeModelIfaceIterParent_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-481"></a><span class='hs-definition'>treeModelIfaceIterParent_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>childIterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-482"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-483"></a> <span class='hs-varid'>childIter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>childIterPtr</span> <a name="line-484"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>treeModelIfaceIterParent</span> <span class='hs-varid'>store</span> <span class='hs-varid'>childIter</span> <a name="line-485"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>iter</span> <span class='hs-keyword'>of</span> <a name="line-486"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>False</span><span class='hs-layout'>)</span> <a name="line-487"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-varid'>poke</span> <span class='hs-varid'>iterPtr</span> <span class='hs-varid'>iter</span> <a name="line-488"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-conid'>True</span><span class='hs-layout'>)</span> <a name="line-489"></a> <a name="line-490"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_iter_parent_impl"</span> <a name="line-491"></a> <span class='hs-varid'>treeModelIfaceIterParent_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-492"></a> <a name="line-493"></a> <a name="line-494"></a><a name="treeModelIfaceRefNode_static"></a><span class='hs-definition'>treeModelIfaceRefNode_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-495"></a><span class='hs-definition'>treeModelIfaceRefNode_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-496"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-497"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span> <a name="line-498"></a> <span class='hs-varid'>treeModelIfaceRefNode</span> <span class='hs-varid'>store</span> <span class='hs-varid'>iter</span> <a name="line-499"></a> <a name="line-500"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_ref_node_impl"</span> <a name="line-501"></a> <span class='hs-varid'>treeModelIfaceRefNode_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-502"></a> <a name="line-503"></a> <a name="line-504"></a><a name="treeModelIfaceUnrefNode_static"></a><span class='hs-definition'>treeModelIfaceUnrefNode_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-505"></a><span class='hs-definition'>treeModelIfaceUnrefNode_static</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>iterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-506"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customStoreIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-507"></a> <span class='hs-varid'>iter</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span> <a name="line-508"></a> <span class='hs-varid'>treeModelIfaceUnrefNode</span> <span class='hs-varid'>store</span> <span class='hs-varid'>iter</span> <a name="line-509"></a> <a name="line-510"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_unref_node_impl"</span> <a name="line-511"></a> <span class='hs-varid'>treeModelIfaceUnrefNode_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-512"></a> <a name="line-513"></a><a name="treeDragSourceRowDraggable_static"></a><span class='hs-definition'>treeDragSourceRowDraggable_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-514"></a><span class='hs-definition'>treeDragSourceRowDraggable_static</span> <span class='hs-varid'>mPtr</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>pathPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-515"></a> <span class='hs-varid'>model</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkTreeModel</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varid'>mPtr</span><span class='hs-layout'>)</span> <a name="line-516"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customTreeDragSourceIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-517"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekTreePath</span> <span class='hs-varid'>pathPtr</span> <a name="line-518"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromBool</span> <span class='hs-varop'>$</span> <span class='hs-varid'>treeDragSourceRowDraggable</span> <span class='hs-varid'>store</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeTreeModelToGeneric</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-varid'>path</span> <a name="line-519"></a> <a name="line-520"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_row_draggable_impl"</span> <a name="line-521"></a> <span class='hs-varid'>treeDragSourceRowDraggable_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-522"></a> <a name="line-523"></a><a name="treeDragSourceDragDataGet_static"></a><span class='hs-definition'>treeDragSourceDragDataGet_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionData</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-524"></a><span class='hs-definition'>treeDragSourceDragDataGet_static</span> <span class='hs-varid'>mPtr</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>pathPtr</span> <span class='hs-varid'>selectionPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-525"></a> <span class='hs-varid'>model</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkTreeModel</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varid'>mPtr</span><span class='hs-layout'>)</span> <a name="line-526"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customTreeDragSourceIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-527"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekTreePath</span> <span class='hs-varid'>pathPtr</span> <a name="line-528"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromBool</span> <span class='hs-varop'>$</span> <span class='hs-varid'>runReaderT</span> <span class='hs-layout'>(</span><span class='hs-varid'>treeDragSourceDragDataGet</span> <span class='hs-varid'>store</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeTreeModelToGeneric</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-varid'>path</span><span class='hs-layout'>)</span> <span class='hs-varid'>selectionPtr</span> <a name="line-529"></a> <a name="line-530"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_drag_data_get_impl"</span> <a name="line-531"></a> <span class='hs-varid'>treeDragSourceDragDataGet_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionData</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-532"></a> <a name="line-533"></a><a name="treeDragSourceDragDataDelete_static"></a><span class='hs-definition'>treeDragSourceDragDataDelete_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-534"></a><span class='hs-definition'>treeDragSourceDragDataDelete_static</span> <span class='hs-varid'>mPtr</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>pathPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-535"></a> <span class='hs-varid'>model</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkTreeModel</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varid'>mPtr</span><span class='hs-layout'>)</span> <a name="line-536"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customTreeDragSourceIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-537"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekTreePath</span> <span class='hs-varid'>pathPtr</span> <a name="line-538"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromBool</span> <span class='hs-varop'>$</span> <span class='hs-varid'>treeDragSourceDragDataDelete</span> <span class='hs-varid'>store</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeTreeModelToGeneric</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-varid'>path</span> <a name="line-539"></a> <a name="line-540"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_drag_data_delete_impl"</span> <a name="line-541"></a> <span class='hs-varid'>treeDragSourceDragDataDelete_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-542"></a> <a name="line-543"></a><a name="treeDragDestDragDataReceived_static"></a><span class='hs-definition'>treeDragDestDragDataReceived_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionData</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-544"></a><span class='hs-definition'>treeDragDestDragDataReceived_static</span> <span class='hs-varid'>mPtr</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>pathPtr</span> <span class='hs-varid'>selectionPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-545"></a> <span class='hs-varid'>model</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkTreeModel</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varid'>mPtr</span><span class='hs-layout'>)</span> <a name="line-546"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customTreeDragDestIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-547"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekTreePath</span> <span class='hs-varid'>pathPtr</span> <a name="line-548"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromBool</span> <span class='hs-varop'>$</span> <span class='hs-varid'>runReaderT</span> <span class='hs-layout'>(</span><span class='hs-varid'>treeDragDestDragDataReceived</span> <span class='hs-varid'>store</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeTreeModelToGeneric</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-varid'>path</span><span class='hs-layout'>)</span> <span class='hs-varid'>selectionPtr</span> <a name="line-549"></a> <a name="line-550"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_drag_data_received_impl"</span> <a name="line-551"></a> <span class='hs-varid'>treeDragDestDragDataReceived_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionData</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-552"></a> <a name="line-553"></a><a name="treeDragDestRowDropPossible_static"></a><span class='hs-definition'>treeDragDestRowDropPossible_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionData</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-554"></a><span class='hs-definition'>treeDragDestRowDropPossible_static</span> <span class='hs-varid'>mPtr</span> <span class='hs-varid'>storePtr</span> <span class='hs-varid'>pathPtr</span> <span class='hs-varid'>selectionPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-555"></a> <span class='hs-varid'>model</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkTreeModel</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varid'>mPtr</span><span class='hs-layout'>)</span> <a name="line-556"></a> <span class='hs-varid'>store</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>customTreeDragDestIface</span> <span class='hs-varop'>$</span> <span class='hs-varid'>deRefStablePtr</span> <span class='hs-varid'>storePtr</span> <a name="line-557"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekTreePath</span> <span class='hs-varid'>pathPtr</span> <a name="line-558"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromBool</span> <span class='hs-varop'>$</span> <span class='hs-varid'>runReaderT</span> <span class='hs-layout'>(</span><span class='hs-varid'>treeDragDestRowDropPossible</span> <span class='hs-varid'>store</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeTreeModelToGeneric</span> <span class='hs-varid'>model</span><span class='hs-layout'>)</span> <span class='hs-varid'>path</span><span class='hs-layout'>)</span> <span class='hs-varid'>selectionPtr</span> <a name="line-559"></a> <a name="line-560"></a><span class='hs-keyword'>foreign</span> <span class='hs-varid'>export</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"gtk2hs_store_row_drop_possible_impl"</span> <a name="line-561"></a> <span class='hs-varid'>treeDragDestRowDropPossible_static</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StablePtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CustomStoreImplementation</span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionData</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span> <a name="line-562"></a> <a name="line-563"></a><a name="maybeNull"></a><span class='hs-definition'>maybeNull</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-varid'>b</span><span class='hs-layout'>)</span> <a name="line-564"></a><span class='hs-definition'>maybeNull</span> <span class='hs-varid'>marshal</span> <span class='hs-varid'>ptr</span> <a name="line-565"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>ptr</span> <span class='hs-varop'>==</span> <span class='hs-varid'>nullPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <a name="line-566"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>marshal</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span> <a name="line-567"></a> <a name="line-568"></a><a name="iterSetStamp"></a><span class='hs-definition'>iterSetStamp</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreeIter</span> <a name="line-569"></a><span class='hs-definition'>iterSetStamp</span> <span class='hs-varid'>t</span> <span class='hs-layout'>(</span><span class='hs-conid'>TreeIter</span> <span class='hs-keyword'>_</span> <span class='hs-varid'>a</span> <span class='hs-varid'>b</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>TreeIter</span> <span class='hs-varid'>t</span> <span class='hs-varid'>a</span> <span class='hs-varid'>b</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <a name="line-570"></a> <a name="line-571"></a> <a name="line-572"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"gdk_pixbuf_get_type"</span> <a name="line-573"></a> <span class='hs-varid'>gdk_pixbuf_get_type</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CUInt</span> </pre></body> </html>