<?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/Types.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><span class='hs-comment'>{-# LANGUAGE MagicHash #-}</span>
<a name="line-5"></a>
<a name="line-6"></a><span class='hs-comment'>{-# LINE 1 "./Graphics/UI/Gtk/ModelView/Types.chs" #-}</span>
<a name="line-7"></a><span class='hs-comment'>{-# OPTIONS_HADDOCK hide #-}</span>
<a name="line-8"></a><span class='hs-comment'>-- -*-haskell-*-</span>
<a name="line-9"></a><span class='hs-comment'>-- GIMP Toolkit (GTK) CustomStore TreeModel</span>
<a name="line-10"></a><span class='hs-comment'>--</span>
<a name="line-11"></a><span class='hs-comment'>-- Author : Duncan Coutts</span>
<a name="line-12"></a><span class='hs-comment'>--</span>
<a name="line-13"></a><span class='hs-comment'>-- Created: 31 March 2006</span>
<a name="line-14"></a><span class='hs-comment'>--</span>
<a name="line-15"></a><span class='hs-comment'>-- Copyright (C) 2006-2007 Duncan Coutts, Axel Simon</span>
<a name="line-16"></a><span class='hs-comment'>--</span>
<a name="line-17"></a><span class='hs-comment'>-- This library is free software; you can redistribute it and/or</span>
<a name="line-18"></a><span class='hs-comment'>-- modify it under the terms of the GNU Lesser General Public</span>
<a name="line-19"></a><span class='hs-comment'>-- License as published by the Free Software Foundation; either</span>
<a name="line-20"></a><span class='hs-comment'>-- version 2.1 of the License, or (at your option) any later version.</span>
<a name="line-21"></a><span class='hs-comment'>--</span>
<a name="line-22"></a><span class='hs-comment'>-- This library is distributed in the hope that it will be useful,</span>
<a name="line-23"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="line-24"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span>
<a name="line-25"></a><span class='hs-comment'>-- Lesser General Public License for more details.</span>
<a name="line-26"></a><span class='hs-comment'>--</span>
<a name="line-27"></a><span class='hs-comment'>-- #hide</span>
<a name="line-28"></a>
<a name="line-29"></a><span class='hs-comment'>-- |</span>
<a name="line-30"></a><span class='hs-comment'>-- Maintainer : gtk2hs-users@lists.sourceforge.net</span>
<a name="line-31"></a><span class='hs-comment'>-- Stability : provisional</span>
<a name="line-32"></a><span class='hs-comment'>-- Portability : portable (depends on GHC)</span>
<a name="line-33"></a><span class='hs-comment'>--</span>
<a name="line-34"></a><span class='hs-comment'>-- Common types and classes for the ModelView modules.</span>
<a name="line-35"></a><span class='hs-comment'>--</span>
<a name="line-36"></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'>Types</span> <span class='hs-layout'>(</span>
<a name="line-37"></a> <span class='hs-conid'>TypedTreeModel</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-38"></a> <span class='hs-conid'>TypedTreeModelClass</span><span class='hs-layout'>,</span>
<a name="line-39"></a> <span class='hs-varid'>toTypedTreeModel</span><span class='hs-layout'>,</span>
<a name="line-40"></a> <span class='hs-varid'>unsafeTreeModelToGeneric</span><span class='hs-layout'>,</span>
<a name="line-41"></a>
<a name="line-42"></a> <span class='hs-conid'>TypedTreeModelSort</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-43"></a> <span class='hs-varid'>unsafeTreeModelSortToGeneric</span><span class='hs-layout'>,</span>
<a name="line-44"></a> <span class='hs-conid'>TypedTreeModelFilter</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-varid'>unsafeTreeModelFilterToGeneric</span><span class='hs-layout'>,</span>
<a name="line-46"></a>
<a name="line-47"></a> <span class='hs-comment'>-- TreeIter</span>
<a name="line-48"></a> <span class='hs-conid'>TreeIter</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-49"></a> <span class='hs-varid'>receiveTreeIter</span><span class='hs-layout'>,</span>
<a name="line-50"></a> <span class='hs-varid'>peekTreeIter</span><span class='hs-layout'>,</span>
<a name="line-51"></a> <span class='hs-varid'>treeIterSetStamp</span><span class='hs-layout'>,</span>
<a name="line-52"></a>
<a name="line-53"></a> <span class='hs-comment'>-- TreePath</span>
<a name="line-54"></a> <span class='hs-conid'>TreePath</span><span class='hs-layout'>,</span>
<a name="line-55"></a> <span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-56"></a> <span class='hs-varid'>newTreePath</span><span class='hs-layout'>,</span>
<a name="line-57"></a> <span class='hs-varid'>withTreePath</span><span class='hs-layout'>,</span>
<a name="line-58"></a> <span class='hs-varid'>peekTreePath</span><span class='hs-layout'>,</span>
<a name="line-59"></a> <span class='hs-varid'>fromTreePath</span><span class='hs-layout'>,</span>
<a name="line-60"></a> <span class='hs-varid'>stringToTreePath</span><span class='hs-layout'>,</span>
<a name="line-61"></a>
<a name="line-62"></a> <span class='hs-comment'>-- Columns</span>
<a name="line-63"></a> <span class='hs-conid'>ColumnAccess</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-64"></a> <span class='hs-conid'>ColumnId</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-65"></a>
<a name="line-66"></a> <span class='hs-comment'>-- Storing the model in a ComboBox</span>
<a name="line-67"></a> <span class='hs-varid'>comboQuark</span><span class='hs-layout'>,</span>
<a name="line-68"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-69"></a>
<a name="line-70"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>GHC</span><span class='hs-varop'>.</span><span class='hs-conid'>Exts</span> <span class='hs-layout'>(</span><span class='hs-varid'>unsafeCoerce</span><span class='hs-cpp'>#</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'>FFI</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>
<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'>GObject</span> <span class='hs-layout'>(</span><span class='hs-conid'>Quark</span><span class='hs-layout'>,</span> <span class='hs-varid'>quarkFromString</span><span class='hs-layout'>)</span>
<a name="line-75"></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> <span class='hs-layout'>(</span><span class='hs-conid'>TreeModel</span><span class='hs-layout'>,</span> <span class='hs-conid'>TreeModelSort</span><span class='hs-layout'>,</span> <span class='hs-conid'>TreeModelFilter</span><span class='hs-layout'>,</span>
<a name="line-76"></a> <span class='hs-conid'>Pixbuf</span><span class='hs-layout'>)</span>
<a name="line-77"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Char</span> <span class='hs-layout'>(</span> <span class='hs-varid'>isDigit</span> <span class='hs-layout'>)</span>
<a name="line-78"></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>
<a name="line-79"></a>
<a name="line-80"></a>
<a name="line-81"></a><span class='hs-comment'>{-# LINE 75 "./Graphics/UI/Gtk/ModelView/Types.chs" #-}</span>
<a name="line-82"></a>
<a name="line-83"></a><a name="TypedTreeModel"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>TypedTreeModel</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TypedTreeModel</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</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-layout'>)</span>
<a name="line-84"></a>
<a name="line-85"></a><a name="TypedTreeModelClass"></a><span class='hs-keyword'>class</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-varid'>model</span> <span class='hs-keyword'>where</span>
<a name="line-86"></a> <span class='hs-varid'>dummy</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>model</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span>
<a name="line-87"></a> <span class='hs-varid'>dummy</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"not used"</span>
<a name="line-88"></a> <span class='hs-comment'>-- this is to get the right kind for model :: * -> *</span>
<a name="line-89"></a> <span class='hs-comment'>-- TODO: when haddock is fixed we can use an explicit kind annotation</span>
<a name="line-90"></a>
<a name="line-91"></a><a name="toTypedTreeModel"></a><span class='hs-definition'>toTypedTreeModel</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'>TypedTreeModel</span> <span class='hs-varid'>row</span>
<a name="line-92"></a><span class='hs-definition'>toTypedTreeModel</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafeCoerce</span><span class='hs-cpp'>#</span>
<a name="line-93"></a>
<a name="line-94"></a><a name="unsafeTreeModelToGeneric"></a><span class='hs-definition'>unsafeTreeModelToGeneric</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeModel</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>model</span> <span class='hs-varid'>row</span>
<a name="line-95"></a><span class='hs-definition'>unsafeTreeModelToGeneric</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafeCoerce</span><span class='hs-cpp'>#</span>
<a name="line-96"></a>
<a name="line-97"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-conid'>TypedTreeModel</span>
<a name="line-98"></a>
<a name="line-99"></a><a name="TypedTreeModelSort"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>TypedTreeModelSort</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TypedTreeModelSort</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>TypedTreeModelSort</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-100"></a>
<a name="line-101"></a><a name="unsafeTreeModelSortToGeneric"></a><span class='hs-definition'>unsafeTreeModelSortToGeneric</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeModelSort</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TypedTreeModelSort</span> <span class='hs-varid'>row</span>
<a name="line-102"></a><span class='hs-definition'>unsafeTreeModelSortToGeneric</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafeCoerce</span><span class='hs-cpp'>#</span>
<a name="line-103"></a>
<a name="line-104"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-conid'>TypedTreeModelSort</span>
<a name="line-105"></a>
<a name="line-106"></a><a name="TypedTreeModelFilter"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>TypedTreeModelFilter</span> <span class='hs-varid'>row</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TypedTreeModelFilter</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>TypedTreeModelFilter</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-107"></a>
<a name="line-108"></a><a name="unsafeTreeModelFilterToGeneric"></a><span class='hs-definition'>unsafeTreeModelFilterToGeneric</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreeModelFilter</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TypedTreeModelFilter</span> <span class='hs-varid'>row</span>
<a name="line-109"></a><span class='hs-definition'>unsafeTreeModelFilterToGeneric</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafeCoerce</span><span class='hs-cpp'>#</span>
<a name="line-110"></a>
<a name="line-111"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>TypedTreeModelClass</span> <span class='hs-conid'>TypedTreeModelFilter</span>
<a name="line-112"></a>
<a name="line-113"></a><a name="TreeIter"></a><span class='hs-comment'>-- | Tree Iterator: a pointer to an entry in a</span>
<a name="line-114"></a><a name="TreeIter"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.ModelView.TreeModel'. The constructor of this structure is</span>
<a name="line-115"></a><a name="TreeIter"></a><span class='hs-comment'>-- public for the sake of creating custom tree models. The first value is a</span>
<a name="line-116"></a><a name="TreeIter"></a><span class='hs-comment'>-- time stamp that is handled by the functions that interface with Gtk. The</span>
<a name="line-117"></a><a name="TreeIter"></a><span class='hs-comment'>-- time stamps are used to print warnings if programmers use an iter to a</span>
<a name="line-118"></a><a name="TreeIter"></a><span class='hs-comment'>-- model that has changed meanwhile. The other three fields are used by the</span>
<a name="line-119"></a><a name="TreeIter"></a><span class='hs-comment'>-- custom model implementation to implement an indexing scheme. The precise</span>
<a name="line-120"></a><a name="TreeIter"></a><span class='hs-comment'>-- use of the three words is therefore implementation specific. See also</span>
<a name="line-121"></a><a name="TreeIter"></a><span class='hs-comment'>-- 'TreePath'.</span>
<a name="line-122"></a><a name="TreeIter"></a><span class='hs-comment'>--</span>
<a name="line-123"></a><a name="TreeIter"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TreeIter</span> <span class='hs-comment'>{-# UNPACK #-}</span> <span class='hs-varop'>!</span><span class='hs-conid'>CInt</span> <span class='hs-varop'>!</span><span class='hs-conid'>Word</span> <span class='hs-varop'>!</span><span class='hs-conid'>Word</span> <span class='hs-varop'>!</span><span class='hs-conid'>Word</span>
<a name="line-124"></a> <span class='hs-keyword'>deriving</span> <span class='hs-conid'>Show</span>
<a name="line-125"></a>
<a name="line-126"></a><a name="TreeIterPtr"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>TreeIterPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>TreeIter</span><span class='hs-layout'>)</span>
<a name="line-127"></a><span class='hs-comment'>{-# LINE 120 "./Graphics/UI/Gtk/ModelView/Types.chs" #-}</span>
<a name="line-128"></a>
<a name="line-129"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>TreeIter</span> <span class='hs-keyword'>where</span>
<a name="line-130"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>16</span>
<a name="line-131"></a><span class='hs-comment'>{-# LINE 123 "./Graphics/UI/Gtk/ModelView/Types.chs" #-}</span>
<a name="line-132"></a> <span class='hs-varid'>alignment</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>alignment</span> <span class='hs-layout'>(</span><span class='hs-varid'>undefined</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span>
<a name="line-133"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-134"></a> <span class='hs-varid'>stamp</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'>CInt</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-135"></a> <span class='hs-varid'>user_data</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'>4</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'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-136"></a> <span class='hs-varid'>user_data2</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'>8</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'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-137"></a> <span class='hs-varid'>user_data3</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'>12</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'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-138"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>TreeIter</span> <span class='hs-varid'>stamp</span> <span class='hs-layout'>(</span><span class='hs-varid'>ptrToWord</span> <span class='hs-varid'>user_data</span><span class='hs-layout'>)</span>
<a name="line-139"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ptrToWord</span> <span class='hs-varid'>user_data2</span><span class='hs-layout'>)</span>
<a name="line-140"></a> <span class='hs-layout'>(</span><span class='hs-varid'>ptrToWord</span> <span class='hs-varid'>user_data3</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-141"></a>
<a name="line-142"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>ptrToWord</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'>Word</span>
<a name="line-143"></a> <span class='hs-varid'>ptrToWord</span> <span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>ptr</span> <span class='hs-varop'>`minusPtr`</span> <span class='hs-varid'>nullPtr</span><span class='hs-layout'>)</span>
<a name="line-144"></a>
<a name="line-145"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>TreeIter</span> <span class='hs-varid'>stamp</span> <span class='hs-varid'>user_data</span> <span class='hs-varid'>user_data2</span> <span class='hs-varid'>user_data3</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-146"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-layout'>{</span><span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-num'>0</span> <span class='hs-layout'>(</span><span class='hs-varid'>val</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>stamp</span>
<a name="line-147"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-layout'>{</span><span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-num'>4</span> <span class='hs-layout'>(</span><span class='hs-varid'>val</span><span class='hs-keyglyph'>::</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>wordToPtr</span> <span class='hs-varid'>user_data</span><span class='hs-layout'>)</span>
<a name="line-148"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-layout'>{</span><span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-num'>8</span> <span class='hs-layout'>(</span><span class='hs-varid'>val</span><span class='hs-keyglyph'>::</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>wordToPtr</span> <span class='hs-varid'>user_data2</span><span class='hs-layout'>)</span>
<a name="line-149"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <span class='hs-layout'>{</span><span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-num'>12</span> <span class='hs-layout'>(</span><span class='hs-varid'>val</span><span class='hs-keyglyph'>::</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>wordToPtr</span> <span class='hs-varid'>user_data3</span><span class='hs-layout'>)</span>
<a name="line-150"></a>
<a name="line-151"></a> <span class='hs-keyword'>where</span> <span class='hs-varid'>wordToPtr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-varid'>a</span>
<a name="line-152"></a> <span class='hs-varid'>wordToPtr</span> <span class='hs-varid'>word</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>nullPtr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>word</span>
<a name="line-153"></a>
<a name="line-154"></a><a name="receiveTreeIter"></a><span class='hs-comment'>-- Pass a pointer to a structure large enough to hold a GtkTreeIter</span>
<a name="line-155"></a><span class='hs-comment'>-- structure. If the function returns true, read the tree iter and</span>
<a name="line-156"></a><span class='hs-comment'>-- return it.</span>
<a name="line-157"></a><span class='hs-definition'>receiveTreeIter</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</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><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'>Maybe</span> <span class='hs-conid'>TreeIter</span><span class='hs-layout'>)</span>
<a name="line-158"></a><span class='hs-definition'>receiveTreeIter</span> <span class='hs-varid'>body</span> <span class='hs-keyglyph'>=</span>
<a name="line-159"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>iterPtr</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-160"></a> <span class='hs-varid'>result</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>body</span> <span class='hs-varid'>iterPtr</span>
<a name="line-161"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>toBool</span> <span class='hs-varid'>result</span>
<a name="line-162"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>peek</span> <span class='hs-varid'>iterPtr</span><span class='hs-layout'>)</span>
<a name="line-163"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span>
<a name="line-164"></a>
<a name="line-165"></a><a name="peekTreeIter"></a><span class='hs-comment'>-- Note that this function does throw an error if the pointer is NULL rather</span>
<a name="line-166"></a><span class='hs-comment'>-- than returning some random tree iterator.</span>
<a name="line-167"></a><span class='hs-definition'>peekTreeIter</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'>TreeIter</span>
<a name="line-168"></a><span class='hs-definition'>peekTreeIter</span> <span class='hs-varid'>ptr</span>
<a name="line-169"></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'>fail</span> <span class='hs-str'>"peekTreeIter: ptr is NULL, tree iterator is invalid"</span>
<a name="line-170"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>peek</span> <span class='hs-varid'>ptr</span>
<a name="line-171"></a>
<a name="line-172"></a><a name="treeIterSetStamp"></a><span class='hs-comment'>-- update the stamp of a tree iter</span>
<a name="line-173"></a><span class='hs-definition'>treeIterSetStamp</span> <span class='hs-keyglyph'>::</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'>TreeIter</span>
<a name="line-174"></a><span class='hs-definition'>treeIterSetStamp</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-varid'>s</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>TreeIter</span> <span class='hs-varid'>s</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-175"></a>
<a name="line-176"></a><a name="TreePath"></a><span class='hs-comment'>-- | TreePath : a list of indices to specify a subtree or node in a</span>
<a name="line-177"></a><a name="TreePath"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.ModelView.TreeModel.TreeModel'. The node that correspond</span>
<a name="line-178"></a><a name="TreePath"></a><span class='hs-comment'>-- to a given 'TreePath' might change if nodes are removed or added and a</span>
<a name="line-179"></a><a name="TreePath"></a><span class='hs-comment'>-- 'TreePath' may refer to a different or even non-existent node after a</span>
<a name="line-180"></a><a name="TreePath"></a><span class='hs-comment'>-- modification of the model. In contrast, a 'TreeIter' is a more compact</span>
<a name="line-181"></a><a name="TreePath"></a><span class='hs-comment'>-- representation of a 'TreePath' which becomes invalid after each</span>
<a name="line-182"></a><a name="TreePath"></a><span class='hs-comment'>-- modification of the underlying model. An intelligent index that is adjusted</span>
<a name="line-183"></a><a name="TreePath"></a><span class='hs-comment'>-- with each update of the model to point to the same node (whenever possible)</span>
<a name="line-184"></a><a name="TreePath"></a><span class='hs-comment'>-- is 'Graphics.UI.Gtk.ModelView.TreeRowReference.TreeRowReference'.</span>
<a name="line-185"></a><a name="TreePath"></a><span class='hs-comment'>--</span>
<a name="line-186"></a><a name="TreePath"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Int</span><span class='hs-keyglyph'>]</span>
<a name="line-187"></a>
<a name="line-188"></a><a name="NativeTreePath"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-189"></a><span class='hs-comment'>{-# LINE 180 "./Graphics/UI/Gtk/ModelView/Types.chs" #-}</span>
<a name="line-190"></a>
<a name="line-191"></a><a name="nativeTreePathFree"></a><span class='hs-definition'>nativeTreePathFree</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-192"></a><span class='hs-definition'>nativeTreePathFree</span> <span class='hs-keyglyph'>=</span>
<a name="line-193"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>gtk_tree_path_free</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span>
<a name="line-194"></a><span class='hs-comment'>{-# LINE 184 "./Graphics/UI/Gtk/ModelView/Types.chs" #-}</span>
<a name="line-195"></a>
<a name="line-196"></a><a name="newTreePath"></a><span class='hs-definition'>newTreePath</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'>NativeTreePath</span>
<a name="line-197"></a><span class='hs-definition'>newTreePath</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-198"></a> <span class='hs-varid'>nativePath</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>gtk_tree_path_new</span>
<a name="line-199"></a><span class='hs-comment'>{-# LINE 188 "./Graphics/UI/Gtk/ModelView/Types.chs" #-}</span>
<a name="line-200"></a> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg2</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>gtk_tree_path_append_index</span> <span class='hs-varid'>arg1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-varid'>nativePath</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varid'>path</span>
<a name="line-201"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>nativePath</span>
<a name="line-202"></a>
<a name="line-203"></a><a name="withTreePath"></a><span class='hs-definition'>withTreePath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>a</span>
<a name="line-204"></a><span class='hs-definition'>withTreePath</span> <span class='hs-varid'>tp</span> <span class='hs-varid'>act</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-205"></a> <span class='hs-varid'>nativePath</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newTreePath</span> <span class='hs-varid'>tp</span>
<a name="line-206"></a> <span class='hs-varid'>res</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>act</span> <span class='hs-varid'>nativePath</span>
<a name="line-207"></a> <span class='hs-varid'>nativeTreePathFree</span> <span class='hs-varid'>nativePath</span>
<a name="line-208"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>res</span>
<a name="line-209"></a>
<a name="line-210"></a><a name="nativeTreePathGetIndices"></a><span class='hs-definition'>nativeTreePathGetIndices</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>NativeTreePath</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Int</span><span class='hs-keyglyph'>]</span>
<a name="line-211"></a><span class='hs-definition'>nativeTreePathGetIndices</span> <span class='hs-varid'>tp</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-212"></a> <span class='hs-varid'>depth</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>gtk_tree_path_get_depth</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-varid'>tp</span>
<a name="line-213"></a> <span class='hs-varid'>arrayPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>gtk_tree_path_get_indices</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-varid'>tp</span>
<a name="line-214"></a> <span class='hs-keyword'>if</span> <span class='hs-layout'>(</span><span class='hs-varid'>depth</span><span class='hs-varop'>==</span><span class='hs-num'>0</span> <span class='hs-varop'>||</span> <span class='hs-varid'>arrayPtr</span><span class='hs-varop'>==</span><span class='hs-varid'>nullPtr</span><span class='hs-layout'>)</span>
<a name="line-215"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>[]</span>
<a name="line-216"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>peekArray</span> <span class='hs-varid'>depth</span> <span class='hs-varid'>arrayPtr</span>
<a name="line-217"></a>
<a name="line-218"></a><a name="peekTreePath"></a><span class='hs-comment'>-- | Convert the given pointer to a tree path.</span>
<a name="line-219"></a><span class='hs-definition'>peekTreePath</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'>TreePath</span>
<a name="line-220"></a><span class='hs-definition'>peekTreePath</span> <span class='hs-varid'>tpPtr</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>tpPtr</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'>[]</span>
<a name="line-221"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span>
<a name="line-222"></a> <span class='hs-varid'>nativeTreePathGetIndices</span> <span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>tpPtr</span><span class='hs-layout'>)</span>
<a name="line-223"></a>
<a name="line-224"></a><a name="fromTreePath"></a><span class='hs-comment'>-- | Convert the given pointer to a tree path. Frees the pointer.</span>
<a name="line-225"></a><span class='hs-definition'>fromTreePath</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'>TreePath</span>
<a name="line-226"></a><span class='hs-definition'>fromTreePath</span> <span class='hs-varid'>tpPtr</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>tpPtr</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'>[]</span>
<a name="line-227"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-228"></a> <span class='hs-varid'>path</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>nativeTreePathGetIndices</span> <span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>tpPtr</span><span class='hs-layout'>)</span>
<a name="line-229"></a> <span class='hs-varid'>nativeTreePathFree</span> <span class='hs-layout'>(</span><span class='hs-conid'>NativeTreePath</span> <span class='hs-varid'>tpPtr</span><span class='hs-layout'>)</span>
<a name="line-230"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>path</span>
<a name="line-231"></a>
<a name="line-232"></a><a name="stringToTreePath"></a><span class='hs-comment'>-- | Convert a comma or colon separated string into a 'TreePath'. Any</span>
<a name="line-233"></a><span class='hs-comment'>-- non-digit characters are assumed to separate indices, thus, the function</span>
<a name="line-234"></a><span class='hs-comment'>-- always is always successful.</span>
<a name="line-235"></a><span class='hs-definition'>stringToTreePath</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TreePath</span>
<a name="line-236"></a><span class='hs-definition'>stringToTreePath</span> <span class='hs-str'>""</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>[]</span>
<a name="line-237"></a><span class='hs-definition'>stringToTreePath</span> <span class='hs-varid'>path</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-num'>0</span> <span class='hs-layout'>(</span><span class='hs-varid'>dropWhile</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-varop'>.</span> <span class='hs-varid'>isDigit</span><span class='hs-layout'>)</span> <span class='hs-varid'>path</span><span class='hs-layout'>)</span>
<a name="line-238"></a> <span class='hs-keyword'>where</span>
<a name="line-239"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'0'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-240"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'1'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-241"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'2'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-242"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'3'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>3</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-243"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'4'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-244"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'5'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>5</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-245"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'6'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>6</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-246"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'7'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>7</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-247"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'8'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-248"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-layout'>(</span><span class='hs-chr'>'9'</span><span class='hs-conop'>:</span><span class='hs-varid'>xs</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>getNum</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-varop'>*</span><span class='hs-varid'>acc</span><span class='hs-varop'>+</span><span class='hs-num'>9</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span>
<a name="line-249"></a> <span class='hs-varid'>getNum</span> <span class='hs-varid'>acc</span> <span class='hs-varid'>xs</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>acc</span><span class='hs-conop'>:</span><span class='hs-varid'>stringToTreePath</span> <span class='hs-layout'>(</span><span class='hs-varid'>dropWhile</span> <span class='hs-layout'>(</span><span class='hs-varid'>not</span> <span class='hs-varop'>.</span> <span class='hs-varid'>isDigit</span><span class='hs-layout'>)</span> <span class='hs-varid'>xs</span><span class='hs-layout'>)</span>
<a name="line-250"></a>
<a name="line-251"></a><a name="ColumnAccess"></a><span class='hs-comment'>-- | Accessing a row for a specific value. Used for 'ColumnMap'.</span>
<a name="line-252"></a><a name="ColumnAccess"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>ColumnAccess</span> <span class='hs-varid'>row</span>
<a name="line-253"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>CAInvalid</span>
<a name="line-254"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>CAInt</span> <span class='hs-layout'>(</span><span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span>
<a name="line-255"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>CABool</span> <span class='hs-layout'>(</span><span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span><span class='hs-layout'>)</span>
<a name="line-256"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>CAString</span> <span class='hs-layout'>(</span><span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span><span class='hs-layout'>)</span>
<a name="line-257"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>CAPixbuf</span> <span class='hs-layout'>(</span><span class='hs-varid'>row</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Pixbuf</span><span class='hs-layout'>)</span>
<a name="line-258"></a>
<a name="line-259"></a><a name="ColumnId"></a><span class='hs-comment'>-- | The type of a tree column.</span>
<a name="line-260"></a><a name="ColumnId"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>ColumnId</span> <span class='hs-varid'>row</span> <span class='hs-varid'>ty</span>
<a name="line-261"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ColumnId</span> <span class='hs-layout'>(</span><span class='hs-conid'>GValue</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</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-keyglyph'>-></span> <span class='hs-conid'>ColumnAccess</span> <span class='hs-varid'>row</span><span class='hs-layout'>)</span> <span class='hs-conid'>Int</span>
<a name="line-262"></a>
<a name="line-263"></a><span class='hs-comment'>-- it shouldn't matter if the following function is actually inlined</span>
<a name="line-264"></a><span class='hs-comment'>{-# NOINLINE comboQuark #-}</span>
<a name="line-265"></a><a name="comboQuark"></a><span class='hs-definition'>comboQuark</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Quark</span>
<a name="line-266"></a><span class='hs-definition'>comboQuark</span> <span class='hs-keyglyph'>=</span>
<a name="line-267"></a> <span class='hs-varid'>unsafePerformIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>quarkFromString</span> <span class='hs-str'>"comboBoxHaskellStringModelQuark"</span>
<a name="line-268"></a>
<a name="line-269"></a>
<a name="line-270"></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'>"gtk_tree_path_free"</span>
<a name="line-271"></a> <span class='hs-varid'>gtk_tree_path_free</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-272"></a>
<a name="line-273"></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'>"gtk_tree_path_new"</span>
<a name="line-274"></a> <span class='hs-varid'>gtk_tree_path_new</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</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><span class='hs-layout'>)</span>
<a name="line-275"></a>
<a name="line-276"></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'>"gtk_tree_path_append_index"</span>
<a name="line-277"></a> <span class='hs-varid'>gtk_tree_path_append_index</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-278"></a>
<a name="line-279"></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'>"gtk_tree_path_get_depth"</span>
<a name="line-280"></a> <span class='hs-varid'>gtk_tree_path_get_depth</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-281"></a>
<a name="line-282"></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'>"gtk_tree_path_get_indices"</span>
<a name="line-283"></a> <span class='hs-varid'>gtk_tree_path_get_indices</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>NativeTreePath</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
</pre></body>
</html>
distrib
>
Fedora
>
14
>
x86_64
>
media
>
updates
>
by-pkgid
>
677c1b5134368504c2e447757584d19e
>
files
>
1097
