<?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/General/Structs.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LINE 1 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-2"></a><span class='hs-comment'>{-# LANGUAGE ScopedTypeVariables, TypeSynonymInstances #-}</span>
<a name="line-3"></a><span class='hs-comment'>{-# LINE 2 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-4"></a><span class='hs-comment'>{-# OPTIONS_HADDOCK hide #-}</span>
<a name="line-5"></a><span class='hs-comment'>-- -*-haskell-*-</span>
<a name="line-6"></a>
<a name="line-7"></a>
<a name="line-8"></a><span class='hs-comment'>{-# LINE 6 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-9"></a>
<a name="line-10"></a><span class='hs-comment'>{-# LINE 7 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-11"></a>
<a name="line-12"></a><span class='hs-comment'>{-# LINE 8 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-13"></a>
<a name="line-14"></a><span class='hs-comment'>-- GIMP Toolkit (GTK) Structures</span>
<a name="line-15"></a><span class='hs-comment'>--</span>
<a name="line-16"></a><span class='hs-comment'>-- Author : Axel Simon</span>
<a name="line-17"></a><span class='hs-comment'>--</span>
<a name="line-18"></a><span class='hs-comment'>-- Created: 2 May 2001</span>
<a name="line-19"></a><span class='hs-comment'>--</span>
<a name="line-20"></a><span class='hs-comment'>-- Copyright (C) 1999-2005 Axel Simon</span>
<a name="line-21"></a><span class='hs-comment'>--</span>
<a name="line-22"></a><span class='hs-comment'>-- This library is free software; you can redistribute it and/or</span>
<a name="line-23"></a><span class='hs-comment'>-- modify it under the terms of the GNU Lesser General Public</span>
<a name="line-24"></a><span class='hs-comment'>-- License as published by the Free Software Foundation; either</span>
<a name="line-25"></a><span class='hs-comment'>-- version 2.1 of the License, or (at your option) any later version.</span>
<a name="line-26"></a><span class='hs-comment'>--</span>
<a name="line-27"></a><span class='hs-comment'>-- This library is distributed in the hope that it will be useful,</span>
<a name="line-28"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="line-29"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span>
<a name="line-30"></a><span class='hs-comment'>-- Lesser General Public License for more details.</span>
<a name="line-31"></a><span class='hs-comment'>--</span>
<a name="line-32"></a><span class='hs-comment'>-- #hide</span>
<a name="line-33"></a>
<a name="line-34"></a><span class='hs-comment'>-- |</span>
<a name="line-35"></a><span class='hs-comment'>-- Maintainer : gtk2hs-users@lists.sourceforge.net</span>
<a name="line-36"></a><span class='hs-comment'>-- Stability : provisional</span>
<a name="line-37"></a><span class='hs-comment'>-- Portability : portable (depends on GHC)</span>
<a name="line-38"></a><span class='hs-comment'>--</span>
<a name="line-39"></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'>General</span><span class='hs-varop'>.</span><span class='hs-conid'>Structs</span> <span class='hs-layout'>(</span>
<a name="line-40"></a> <span class='hs-conid'>Point</span><span class='hs-layout'>,</span>
<a name="line-41"></a> <span class='hs-conid'>Rectangle</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-42"></a> <span class='hs-conid'>Color</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-conid'>GCValues</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-varid'>pokeGCValues</span><span class='hs-layout'>,</span>
<a name="line-45"></a> <span class='hs-varid'>newGCValues</span><span class='hs-layout'>,</span>
<a name="line-46"></a> <span class='hs-varid'>widgetGetState</span><span class='hs-layout'>,</span>
<a name="line-47"></a> <span class='hs-varid'>widgetGetSavedState</span><span class='hs-layout'>,</span>
<a name="line-48"></a> <span class='hs-conid'>Allocation</span><span class='hs-layout'>,</span>
<a name="line-49"></a> <span class='hs-conid'>Requisition</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-50"></a> <span class='hs-varid'>treeIterSize</span><span class='hs-layout'>,</span>
<a name="line-51"></a> <span class='hs-varid'>textIterSize</span><span class='hs-layout'>,</span>
<a name="line-52"></a> <span class='hs-varid'>inputError</span><span class='hs-layout'>,</span>
<a name="line-53"></a> <span class='hs-varid'>dialogGetUpper</span><span class='hs-layout'>,</span>
<a name="line-54"></a> <span class='hs-varid'>dialogGetActionArea</span><span class='hs-layout'>,</span>
<a name="line-55"></a> <span class='hs-varid'>fileSelectionGetButtons</span><span class='hs-layout'>,</span>
<a name="line-56"></a> <span class='hs-conid'>ResponseId</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-57"></a> <span class='hs-varid'>fromResponse</span><span class='hs-layout'>,</span>
<a name="line-58"></a> <span class='hs-varid'>toResponse</span><span class='hs-layout'>,</span>
<a name="line-59"></a>
<a name="line-60"></a><span class='hs-comment'>{-# LINE 55 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-61"></a> <span class='hs-conid'>NativeWindowId</span><span class='hs-layout'>,</span>
<a name="line-62"></a> <span class='hs-varid'>toNativeWindowId</span><span class='hs-layout'>,</span>
<a name="line-63"></a> <span class='hs-varid'>fromNativeWindowId</span><span class='hs-layout'>,</span>
<a name="line-64"></a> <span class='hs-varid'>nativeWindowIdNone</span><span class='hs-layout'>,</span>
<a name="line-65"></a>
<a name="line-66"></a><span class='hs-comment'>{-# LINE 60 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-67"></a> <span class='hs-varid'>drawableGetID</span><span class='hs-layout'>,</span>
<a name="line-68"></a>
<a name="line-69"></a><span class='hs-comment'>{-# LINE 62 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-70"></a> <span class='hs-varid'>toolbarChildButton</span><span class='hs-layout'>,</span>
<a name="line-71"></a> <span class='hs-varid'>toolbarChildToggleButton</span><span class='hs-layout'>,</span>
<a name="line-72"></a> <span class='hs-varid'>toolbarChildRadioButton</span><span class='hs-layout'>,</span>
<a name="line-73"></a>
<a name="line-74"></a><span class='hs-comment'>{-# LINE 66 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-75"></a> <span class='hs-conid'>IconSize</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-76"></a>
<a name="line-77"></a><span class='hs-comment'>{-# LINE 68 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-78"></a> <span class='hs-varid'>comboGetList</span><span class='hs-layout'>,</span>
<a name="line-79"></a>
<a name="line-80"></a><span class='hs-comment'>{-# LINE 70 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-81"></a> <span class='hs-varid'>widgetGetDrawWindow</span><span class='hs-layout'>,</span>
<a name="line-82"></a> <span class='hs-varid'>widgetGetSize</span><span class='hs-layout'>,</span>
<a name="line-83"></a> <span class='hs-varid'>layoutGetDrawWindow</span><span class='hs-layout'>,</span>
<a name="line-84"></a> <span class='hs-varid'>windowGetFrame</span><span class='hs-layout'>,</span>
<a name="line-85"></a> <span class='hs-varid'>styleGetForeground</span><span class='hs-layout'>,</span>
<a name="line-86"></a> <span class='hs-varid'>styleGetBackground</span><span class='hs-layout'>,</span>
<a name="line-87"></a> <span class='hs-varid'>styleGetLight</span><span class='hs-layout'>,</span>
<a name="line-88"></a> <span class='hs-varid'>styleGetMiddle</span><span class='hs-layout'>,</span>
<a name="line-89"></a> <span class='hs-varid'>styleGetDark</span><span class='hs-layout'>,</span>
<a name="line-90"></a> <span class='hs-varid'>styleGetText</span><span class='hs-layout'>,</span>
<a name="line-91"></a> <span class='hs-varid'>styleGetBase</span><span class='hs-layout'>,</span>
<a name="line-92"></a> <span class='hs-varid'>styleGetAntiAliasing</span><span class='hs-layout'>,</span>
<a name="line-93"></a> <span class='hs-varid'>colorSelectionDialogGetColor</span><span class='hs-layout'>,</span>
<a name="line-94"></a> <span class='hs-varid'>colorSelectionDialogGetOkButton</span><span class='hs-layout'>,</span>
<a name="line-95"></a> <span class='hs-varid'>colorSelectionDialogGetCancelButton</span><span class='hs-layout'>,</span>
<a name="line-96"></a> <span class='hs-varid'>colorSelectionDialogGetHelpButton</span><span class='hs-layout'>,</span>
<a name="line-97"></a> <span class='hs-varid'>dragContextGetActions</span><span class='hs-layout'>,</span>
<a name="line-98"></a> <span class='hs-varid'>dragContextSetActions</span><span class='hs-layout'>,</span>
<a name="line-99"></a> <span class='hs-varid'>dragContextGetSuggestedAction</span><span class='hs-layout'>,</span>
<a name="line-100"></a> <span class='hs-varid'>dragContextSetSuggestedAction</span><span class='hs-layout'>,</span>
<a name="line-101"></a> <span class='hs-varid'>dragContextGetAction</span><span class='hs-layout'>,</span>
<a name="line-102"></a> <span class='hs-varid'>dragContextSetAction</span><span class='hs-layout'>,</span>
<a name="line-103"></a> <span class='hs-conid'>SortColumnId</span><span class='hs-layout'>,</span>
<a name="line-104"></a> <span class='hs-varid'>treeSortableDefaultSortColumnId</span><span class='hs-layout'>,</span>
<a name="line-105"></a> <span class='hs-varid'>tagInvalid</span><span class='hs-layout'>,</span>
<a name="line-106"></a> <span class='hs-varid'>selectionPrimary</span><span class='hs-layout'>,</span>
<a name="line-107"></a> <span class='hs-varid'>selectionSecondary</span><span class='hs-layout'>,</span>
<a name="line-108"></a> <span class='hs-varid'>selectionClipboard</span><span class='hs-layout'>,</span>
<a name="line-109"></a> <span class='hs-varid'>targetString</span><span class='hs-layout'>,</span>
<a name="line-110"></a> <span class='hs-varid'>selectionTypeAtom</span><span class='hs-layout'>,</span>
<a name="line-111"></a> <span class='hs-varid'>selectionTypeInteger</span><span class='hs-layout'>,</span>
<a name="line-112"></a> <span class='hs-varid'>selectionTypeString</span><span class='hs-layout'>,</span>
<a name="line-113"></a> <span class='hs-varid'>selectionDataGetType</span><span class='hs-layout'>,</span>
<a name="line-114"></a> <span class='hs-varid'>withTargetEntries</span><span class='hs-layout'>,</span>
<a name="line-115"></a> <span class='hs-conid'>KeymapKey</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span>
<a name="line-116"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-117"></a>
<a name="line-118"></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-119"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>IORef</span>
<a name="line-120"></a>
<a name="line-121"></a><span class='hs-comment'>{-# LINE 110 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-122"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>OldException</span>
<a name="line-123"></a>
<a name="line-124"></a><span class='hs-comment'>{-# LINE 114 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-125"></a>
<a name="line-126"></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-127"></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'>UTFString</span> <span class='hs-layout'>(</span> <span class='hs-conid'>UTFCorrection</span><span class='hs-layout'>,</span> <span class='hs-varid'>ofsToUTF</span> <span class='hs-layout'>)</span>
<a name="line-128"></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'>Abstract</span><span class='hs-varop'>.</span><span class='hs-conid'>Object</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeNewObject</span><span class='hs-layout'>)</span>
<a name="line-129"></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-varid'>makeNewGObject</span><span class='hs-layout'>)</span>
<a name="line-130"></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-131"></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'>Gdk</span><span class='hs-varop'>.</span><span class='hs-conid'>Enums</span> <span class='hs-layout'>(</span><span class='hs-conid'>Function</span><span class='hs-layout'>,</span> <span class='hs-conid'>Fill</span><span class='hs-layout'>,</span> <span class='hs-conid'>SubwindowMode</span><span class='hs-layout'>,</span>
<a name="line-132"></a> <span class='hs-conid'>LineStyle</span><span class='hs-layout'>,</span> <span class='hs-conid'>CapStyle</span><span class='hs-layout'>,</span> <span class='hs-conid'>JoinStyle</span><span class='hs-layout'>)</span>
<a name="line-133"></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'>Enums</span> <span class='hs-layout'>(</span><span class='hs-conid'>StateType</span><span class='hs-layout'>)</span>
<a name="line-134"></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'>InfoId</span><span class='hs-layout'>,</span> <span class='hs-conid'>Atom</span><span class='hs-layout'>(</span><span class='hs-conid'>Atom</span><span class='hs-layout'>)</span> <span class='hs-layout'>,</span> <span class='hs-conid'>SelectionTag</span><span class='hs-layout'>,</span>
<a name="line-135"></a> <span class='hs-conid'>TargetTag</span><span class='hs-layout'>,</span> <span class='hs-conid'>SelectionTypeTag</span><span class='hs-layout'>)</span>
<a name="line-136"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Rendering</span><span class='hs-varop'>.</span><span class='hs-conid'>Pango</span><span class='hs-varop'>.</span><span class='hs-conid'>Structs</span> <span class='hs-layout'>(</span> <span class='hs-conid'>Color</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'>Rectangle</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span>
<a name="line-137"></a><a name="Point"></a><span class='hs-comment'>-- | Represents the x and y coordinate of a point.</span>
<a name="line-138"></a><a name="Point"></a><span class='hs-comment'>--</span>
<a name="line-139"></a><a name="Point"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>Point</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>Int</span><span class='hs-layout'>,</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span>
<a name="line-140"></a>
<a name="line-141"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>Point</span> <span class='hs-keyword'>where</span>
<a name="line-142"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>8</span>
<a name="line-143"></a><span class='hs-comment'>{-# LINE 132 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-144"></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'>Int32</span><span class='hs-layout'>)</span>
<a name="line-145"></a><span class='hs-comment'>{-# LINE 133 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-146"></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-147"></a> <span class='hs-layout'>(</span><span class='hs-varid'>x_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-148"></a><span class='hs-comment'>{-# LINE 135 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-149"></a> <span class='hs-layout'>(</span><span class='hs-varid'>y_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-150"></a><span class='hs-comment'>{-# LINE 136 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-151"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>x_</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>y_</span><span class='hs-layout'>)</span>
<a name="line-152"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span><span class='hs-layout'>,</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-153"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-154"></a><span class='hs-comment'>{-# LINE 139 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-155"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-156"></a><span class='hs-comment'>{-# LINE 140 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-157"></a>
<a name="line-158"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>Rectangle</span> <span class='hs-keyword'>where</span>
<a name="line-159"></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-160"></a><span class='hs-comment'>{-# LINE 143 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-161"></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'>Int32</span><span class='hs-layout'>)</span>
<a name="line-162"></a><span class='hs-comment'>{-# LINE 144 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-163"></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-164"></a> <span class='hs-layout'>(</span><span class='hs-varid'>x_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-165"></a><span class='hs-comment'>{-# LINE 146 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-166"></a> <span class='hs-layout'>(</span><span class='hs-varid'>y_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-167"></a><span class='hs-comment'>{-# LINE 147 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-168"></a> <span class='hs-layout'>(</span><span class='hs-varid'>width_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-169"></a><span class='hs-comment'>{-# LINE 148 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-170"></a> <span class='hs-layout'>(</span><span class='hs-varid'>height_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>12</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-171"></a><span class='hs-comment'>{-# LINE 149 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-172"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Rectangle</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>x_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>y_</span><span class='hs-layout'>)</span>
<a name="line-173"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>width_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>height_</span><span class='hs-layout'>)</span>
<a name="line-174"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>Rectangle</span> <span class='hs-varid'>x</span> <span class='hs-varid'>y</span> <span class='hs-varid'>width</span> <span class='hs-varid'>height</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-175"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-176"></a><span class='hs-comment'>{-# LINE 153 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-177"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-178"></a><span class='hs-comment'>{-# LINE 154 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-179"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>width</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-180"></a><span class='hs-comment'>{-# LINE 155 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-181"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>12</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>height</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-182"></a><span class='hs-comment'>{-# LINE 156 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-183"></a>
<a name="line-184"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>Color</span> <span class='hs-keyword'>where</span>
<a name="line-185"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>12</span>
<a name="line-186"></a><span class='hs-comment'>{-# LINE 159 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-187"></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'>Word32</span><span class='hs-layout'>)</span>
<a name="line-188"></a><span class='hs-comment'>{-# LINE 160 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-189"></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-190"></a> <span class='hs-varid'>red</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-191"></a><span class='hs-comment'>{-# LINE 162 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-192"></a> <span class='hs-varid'>green</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>6</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-193"></a><span class='hs-comment'>{-# LINE 163 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-194"></a> <span class='hs-varid'>blue</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-195"></a><span class='hs-comment'>{-# LINE 164 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-196"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Color</span> <span class='hs-varid'>red</span> <span class='hs-varid'>green</span> <span class='hs-varid'>blue</span>
<a name="line-197"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>Color</span> <span class='hs-varid'>red</span> <span class='hs-varid'>green</span> <span class='hs-varid'>blue</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-198"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-199"></a><span class='hs-comment'>{-# LINE 167 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-200"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>red</span>
<a name="line-201"></a><span class='hs-comment'>{-# LINE 168 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-202"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>6</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>green</span>
<a name="line-203"></a><span class='hs-comment'>{-# LINE 169 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-204"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>blue</span>
<a name="line-205"></a><span class='hs-comment'>{-# LINE 170 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-206"></a> <span class='hs-varid'>cPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>gdkColormapGetSystem</span>
<a name="line-207"></a> <span class='hs-varid'>gdkColormapAllocColor</span> <span class='hs-varid'>cPtr</span> <span class='hs-varid'>ptr</span> <span class='hs-num'>0</span> <span class='hs-num'>1</span>
<a name="line-208"></a> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-209"></a>
<a name="line-210"></a><a name="ColorMap"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>ColorMap</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>()</span>
<a name="line-211"></a>
<a name="line-212"></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_colormap_get_system"</span>
<a name="line-213"></a> <span class='hs-varid'>gdkColormapGetSystem</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'>ColorMap</span><span class='hs-layout'>)</span>
<a name="line-214"></a>
<a name="line-215"></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_colormap_alloc_color"</span>
<a name="line-216"></a> <span class='hs-varid'>gdkColormapAllocColor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>ColorMap</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Color</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</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-217"></a>
<a name="line-218"></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_colormap_query_color"</span>
<a name="line-219"></a> <span class='hs-varid'>gdkColormapQueryColor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>ColorMap</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CULong</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Color</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-220"></a>
<a name="line-221"></a><span class='hs-comment'>-- entry GC</span>
<a name="line-222"></a>
<a name="line-223"></a><a name="GCValues"></a><span class='hs-comment'>-- | Intermediate data structure for 'GC's.</span>
<a name="line-224"></a><a name="GCValues"></a><span class='hs-comment'>--</span>
<a name="line-225"></a><a name="GCValues"></a><span class='hs-comment'>-- * If @graphicsExposure@ is set then copying portions into a</span>
<a name="line-226"></a><a name="GCValues"></a><span class='hs-comment'>-- drawable will generate an @\"exposure\"@ event, even if the</span>
<a name="line-227"></a><a name="GCValues"></a><span class='hs-comment'>-- destination area is not currently visible.</span>
<a name="line-228"></a><a name="GCValues"></a><span class='hs-comment'>--</span>
<a name="line-229"></a><a name="GCValues"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>GCValues</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GCValues</span> <span class='hs-layout'>{</span>
<a name="line-230"></a> <span class='hs-varid'>foreground</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Color</span><span class='hs-layout'>,</span>
<a name="line-231"></a> <span class='hs-varid'>background</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Color</span><span class='hs-layout'>,</span>
<a name="line-232"></a> <span class='hs-varid'>function</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Function</span><span class='hs-layout'>,</span>
<a name="line-233"></a> <span class='hs-varid'>fill</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Fill</span><span class='hs-layout'>,</span>
<a name="line-234"></a> <span class='hs-varid'>tile</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Pixmap</span><span class='hs-layout'>,</span>
<a name="line-235"></a> <span class='hs-varid'>stipple</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Pixmap</span><span class='hs-layout'>,</span>
<a name="line-236"></a> <span class='hs-varid'>clipMask</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Pixmap</span><span class='hs-layout'>,</span>
<a name="line-237"></a> <span class='hs-varid'>subwindowMode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SubwindowMode</span><span class='hs-layout'>,</span>
<a name="line-238"></a> <span class='hs-varid'>tsXOrigin</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-239"></a> <span class='hs-varid'>tsYOrigin</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-240"></a> <span class='hs-varid'>clipXOrigin</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-241"></a> <span class='hs-varid'>clipYOrigin</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-242"></a> <span class='hs-varid'>graphicsExposure</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Bool</span><span class='hs-layout'>,</span>
<a name="line-243"></a> <span class='hs-varid'>lineWidth</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-244"></a> <span class='hs-varid'>lineStyle</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>LineStyle</span><span class='hs-layout'>,</span>
<a name="line-245"></a> <span class='hs-varid'>capStyle</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CapStyle</span><span class='hs-layout'>,</span>
<a name="line-246"></a> <span class='hs-varid'>joinStyle</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>JoinStyle</span>
<a name="line-247"></a> <span class='hs-layout'>}</span>
<a name="line-248"></a>
<a name="line-249"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>GCValues</span> <span class='hs-keyword'>where</span>
<a name="line-250"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>88</span>
<a name="line-251"></a><span class='hs-comment'>{-# LINE 215 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-252"></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'>Color</span><span class='hs-layout'>)</span>
<a name="line-253"></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-254"></a> <span class='hs-comment'>-- gdk_gc_get_values does not fill in the r,g,b members of the foreground</span>
<a name="line-255"></a> <span class='hs-comment'>-- and background colours (it only fills in the allocated pixel value),</span>
<a name="line-256"></a> <span class='hs-comment'>-- so we have to fill them in here:</span>
<a name="line-257"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>foregroundPtr</span><span class='hs-layout'>,</span> <span class='hs-varid'>backgroundPtr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Color</span>
<a name="line-258"></a> <span class='hs-varid'>foregroundPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-259"></a><span class='hs-comment'>{-# LINE 222 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-260"></a> <span class='hs-varid'>backgroundPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>12</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-261"></a><span class='hs-comment'>{-# LINE 223 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-262"></a> <span class='hs-layout'>(</span><span class='hs-varid'>foregroundPixelPtr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CULong</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>foregroundPtr</span>
<a name="line-263"></a><span class='hs-comment'>{-# LINE 224 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-264"></a> <span class='hs-layout'>(</span><span class='hs-varid'>backgroundPixelPtr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CULong</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>backgroundPtr</span>
<a name="line-265"></a><span class='hs-comment'>{-# LINE 225 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-266"></a> <span class='hs-varid'>colormapPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>gdkColormapGetSystem</span>
<a name="line-267"></a> <span class='hs-varid'>gdkColormapQueryColor</span> <span class='hs-varid'>colormapPtr</span> <span class='hs-varid'>foregroundPixelPtr</span> <span class='hs-varid'>foregroundPtr</span>
<a name="line-268"></a> <span class='hs-varid'>gdkColormapQueryColor</span> <span class='hs-varid'>colormapPtr</span> <span class='hs-varid'>backgroundPixelPtr</span> <span class='hs-varid'>backgroundPtr</span>
<a name="line-269"></a>
<a name="line-270"></a> <span class='hs-varid'>foreground_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span>
<a name="line-271"></a><span class='hs-comment'>{-# LINE 230 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-272"></a> <span class='hs-varid'>background_</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peek</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>12</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span>
<a name="line-273"></a><span class='hs-comment'>{-# LINE 231 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-274"></a> <span class='hs-layout'>(</span><span class='hs-varid'>function_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>28</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-275"></a><span class='hs-comment'>{-# LINE 232 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-276"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fill_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>32</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-277"></a><span class='hs-comment'>{-# LINE 233 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-278"></a> <span class='hs-varid'>tile_</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>do</span>
<a name="line-279"></a> <span class='hs-varid'>pPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>36</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-280"></a><span class='hs-comment'>{-# LINE 235 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-281"></a> <span class='hs-keyword'>if</span> <span class='hs-layout'>(</span><span class='hs-varid'>pPtr</span><span class='hs-varop'>==</span><span class='hs-varid'>nullPtr</span><span class='hs-layout'>)</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyword'>else</span>
<a name="line-282"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkPixmap</span> <span class='hs-varop'>$</span> <span class='hs-varid'>return</span> <span class='hs-varid'>pPtr</span>
<a name="line-283"></a> <span class='hs-varid'>stipple_</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>do</span>
<a name="line-284"></a> <span class='hs-varid'>pPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>40</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-285"></a><span class='hs-comment'>{-# LINE 239 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-286"></a> <span class='hs-keyword'>if</span> <span class='hs-layout'>(</span><span class='hs-varid'>pPtr</span><span class='hs-varop'>==</span><span class='hs-varid'>nullPtr</span><span class='hs-layout'>)</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyword'>else</span>
<a name="line-287"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkPixmap</span> <span class='hs-varop'>$</span> <span class='hs-varid'>return</span> <span class='hs-varid'>pPtr</span>
<a name="line-288"></a> <span class='hs-varid'>clipMask_</span> <span class='hs-keyglyph'><-</span> <span class='hs-keyword'>do</span>
<a name="line-289"></a> <span class='hs-varid'>pPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>44</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-290"></a><span class='hs-comment'>{-# LINE 243 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-291"></a> <span class='hs-keyword'>if</span> <span class='hs-layout'>(</span><span class='hs-varid'>pPtr</span><span class='hs-varop'>==</span><span class='hs-varid'>nullPtr</span><span class='hs-layout'>)</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyword'>else</span>
<a name="line-292"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkPixmap</span> <span class='hs-varop'>$</span> <span class='hs-varid'>return</span> <span class='hs-varid'>pPtr</span>
<a name="line-293"></a> <span class='hs-layout'>(</span><span class='hs-varid'>subwindow_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-294"></a><span class='hs-comment'>{-# LINE 246 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-295"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>48</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-296"></a><span class='hs-comment'>{-# LINE 247 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-297"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tsXOrigin_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-298"></a><span class='hs-comment'>{-# LINE 248 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-299"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>52</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-300"></a><span class='hs-comment'>{-# LINE 249 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-301"></a> <span class='hs-layout'>(</span><span class='hs-varid'>tsYOrigin_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-302"></a><span class='hs-comment'>{-# LINE 250 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-303"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>56</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-304"></a><span class='hs-comment'>{-# LINE 251 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-305"></a> <span class='hs-layout'>(</span><span class='hs-varid'>clipXOrigin_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-306"></a><span class='hs-comment'>{-# LINE 252 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-307"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>60</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-308"></a><span class='hs-comment'>{-# LINE 253 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-309"></a> <span class='hs-layout'>(</span><span class='hs-varid'>clipYOrigin_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-310"></a><span class='hs-comment'>{-# LINE 254 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-311"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>64</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-312"></a><span class='hs-comment'>{-# LINE 255 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-313"></a> <span class='hs-layout'>(</span><span class='hs-varid'>graphics_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-314"></a><span class='hs-comment'>{-# LINE 256 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-315"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>68</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-316"></a><span class='hs-comment'>{-# LINE 257 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-317"></a> <span class='hs-layout'>(</span><span class='hs-varid'>lineWidth_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-318"></a><span class='hs-comment'>{-# LINE 258 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-319"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>72</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-320"></a><span class='hs-comment'>{-# LINE 259 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-321"></a> <span class='hs-layout'>(</span><span class='hs-varid'>lineStyle_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-322"></a><span class='hs-comment'>{-# LINE 260 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-323"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>76</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-324"></a><span class='hs-comment'>{-# LINE 261 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-325"></a> <span class='hs-layout'>(</span><span class='hs-varid'>capStyle_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-326"></a><span class='hs-comment'>{-# LINE 262 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-327"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>80</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-328"></a><span class='hs-comment'>{-# LINE 263 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-329"></a> <span class='hs-layout'>(</span><span class='hs-varid'>joinStyle_</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-330"></a><span class='hs-comment'>{-# LINE 264 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-331"></a> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>84</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-332"></a><span class='hs-comment'>{-# LINE 265 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-333"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>GCValues</span> <span class='hs-layout'>{</span>
<a name="line-334"></a> <span class='hs-varid'>foreground</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>foreground_</span><span class='hs-layout'>,</span>
<a name="line-335"></a> <span class='hs-varid'>background</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>background_</span><span class='hs-layout'>,</span>
<a name="line-336"></a> <span class='hs-varid'>function</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span><span class='hs-varop'>.</span><span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varid'>function_</span><span class='hs-layout'>,</span>
<a name="line-337"></a> <span class='hs-varid'>fill</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span><span class='hs-varop'>.</span><span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varid'>fill_</span><span class='hs-layout'>,</span>
<a name="line-338"></a> <span class='hs-varid'>tile</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tile_</span><span class='hs-layout'>,</span>
<a name="line-339"></a> <span class='hs-varid'>stipple</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>stipple_</span><span class='hs-layout'>,</span>
<a name="line-340"></a> <span class='hs-varid'>clipMask</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>clipMask_</span><span class='hs-layout'>,</span>
<a name="line-341"></a> <span class='hs-varid'>subwindowMode</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span><span class='hs-varop'>.</span><span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varid'>subwindow_</span><span class='hs-layout'>,</span>
<a name="line-342"></a> <span class='hs-varid'>tsXOrigin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>tsXOrigin_</span><span class='hs-layout'>,</span>
<a name="line-343"></a> <span class='hs-varid'>tsYOrigin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>tsYOrigin_</span><span class='hs-layout'>,</span>
<a name="line-344"></a> <span class='hs-varid'>clipXOrigin</span><span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>clipXOrigin_</span><span class='hs-layout'>,</span>
<a name="line-345"></a> <span class='hs-varid'>clipYOrigin</span><span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>clipYOrigin_</span><span class='hs-layout'>,</span>
<a name="line-346"></a> <span class='hs-varid'>graphicsExposure</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>toBool</span> <span class='hs-varid'>graphics_</span><span class='hs-layout'>,</span>
<a name="line-347"></a> <span class='hs-varid'>lineWidth</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>lineWidth_</span><span class='hs-layout'>,</span>
<a name="line-348"></a> <span class='hs-varid'>lineStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span><span class='hs-varop'>.</span><span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varid'>lineStyle_</span><span class='hs-layout'>,</span>
<a name="line-349"></a> <span class='hs-varid'>capStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span><span class='hs-varop'>.</span><span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varid'>capStyle_</span><span class='hs-layout'>,</span>
<a name="line-350"></a> <span class='hs-varid'>joinStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-varid'>toEnum</span><span class='hs-varop'>.</span><span class='hs-varid'>fromIntegral</span><span class='hs-layout'>)</span> <span class='hs-varid'>joinStyle_</span>
<a name="line-351"></a> <span class='hs-layout'>}</span>
<a name="line-352"></a>
<a name="line-353"></a><a name="pokeGCValues"></a><span class='hs-definition'>pokeGCValues</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>GCValues</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>GCValues</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span>
<a name="line-354"></a><span class='hs-definition'>pokeGCValues</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>GCValues</span> <span class='hs-layout'>{</span>
<a name="line-355"></a> <span class='hs-varid'>foreground</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>foreground_</span><span class='hs-layout'>,</span>
<a name="line-356"></a> <span class='hs-varid'>background</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>background_</span><span class='hs-layout'>,</span>
<a name="line-357"></a> <span class='hs-varid'>function</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>function_</span><span class='hs-layout'>,</span>
<a name="line-358"></a> <span class='hs-varid'>fill</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fill_</span><span class='hs-layout'>,</span>
<a name="line-359"></a> <span class='hs-varid'>tile</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tile_</span><span class='hs-layout'>,</span>
<a name="line-360"></a> <span class='hs-varid'>stipple</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>stipple_</span><span class='hs-layout'>,</span>
<a name="line-361"></a> <span class='hs-varid'>clipMask</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>clipMask_</span><span class='hs-layout'>,</span>
<a name="line-362"></a> <span class='hs-varid'>subwindowMode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>subwindow_</span><span class='hs-layout'>,</span>
<a name="line-363"></a> <span class='hs-varid'>tsXOrigin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tsXOrigin_</span><span class='hs-layout'>,</span>
<a name="line-364"></a> <span class='hs-varid'>tsYOrigin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>tsYOrigin_</span><span class='hs-layout'>,</span>
<a name="line-365"></a> <span class='hs-varid'>clipXOrigin</span><span class='hs-keyglyph'>=</span> <span class='hs-varid'>clipXOrigin_</span><span class='hs-layout'>,</span>
<a name="line-366"></a> <span class='hs-varid'>clipYOrigin</span><span class='hs-keyglyph'>=</span> <span class='hs-varid'>clipYOrigin_</span><span class='hs-layout'>,</span>
<a name="line-367"></a> <span class='hs-varid'>graphicsExposure</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>graphics_</span><span class='hs-layout'>,</span>
<a name="line-368"></a> <span class='hs-varid'>lineWidth</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lineWidth_</span><span class='hs-layout'>,</span>
<a name="line-369"></a> <span class='hs-varid'>lineStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>lineStyle_</span><span class='hs-layout'>,</span>
<a name="line-370"></a> <span class='hs-varid'>capStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>capStyle_</span><span class='hs-layout'>,</span>
<a name="line-371"></a> <span class='hs-varid'>joinStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>joinStyle_</span>
<a name="line-372"></a> <span class='hs-layout'>}</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-373"></a> <span class='hs-varid'>r</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newIORef</span> <span class='hs-num'>0</span>
<a name="line-374"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>1</span> <span class='hs-varop'>$</span>
<a name="line-375"></a><span class='hs-comment'>{-# LINE 307 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-376"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span> <span class='hs-varid'>foreground_</span>
<a name="line-377"></a><span class='hs-comment'>{-# LINE 308 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-378"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>2</span> <span class='hs-varop'>$</span>
<a name="line-379"></a><span class='hs-comment'>{-# LINE 309 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-380"></a> <span class='hs-varid'>poke</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>12</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span> <span class='hs-varid'>background_</span>
<a name="line-381"></a><span class='hs-comment'>{-# LINE 310 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-382"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>8</span> <span class='hs-varop'>$</span>
<a name="line-383"></a><span class='hs-comment'>{-# LINE 311 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-384"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>28</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-385"></a><span class='hs-comment'>{-# LINE 312 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-386"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>function_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-387"></a><span class='hs-comment'>{-# LINE 313 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-388"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>16</span> <span class='hs-varop'>$</span>
<a name="line-389"></a><span class='hs-comment'>{-# LINE 314 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-390"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>32</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-391"></a><span class='hs-comment'>{-# LINE 315 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-392"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>fill_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-393"></a><span class='hs-comment'>{-# LINE 316 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-394"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>tile_</span> <span class='hs-keyword'>of</span>
<a name="line-395"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-396"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>tile_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>32</span> <span class='hs-varop'>$</span>
<a name="line-397"></a><span class='hs-comment'>{-# LINE 319 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-398"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unPixmap</span> <span class='hs-varid'>tile_</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-399"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>36</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-400"></a><span class='hs-comment'>{-# LINE 321 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-401"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>stipple_</span> <span class='hs-keyword'>of</span>
<a name="line-402"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-403"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>stipple_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>64</span> <span class='hs-varop'>$</span>
<a name="line-404"></a><span class='hs-comment'>{-# LINE 324 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-405"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unPixmap</span> <span class='hs-varid'>stipple_</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-406"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>40</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-407"></a><span class='hs-comment'>{-# LINE 326 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-408"></a> <span class='hs-keyword'>case</span> <span class='hs-varid'>clipMask_</span> <span class='hs-keyword'>of</span>
<a name="line-409"></a> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>return</span> <span class='hs-conid'>()</span>
<a name="line-410"></a> <span class='hs-conid'>Just</span> <span class='hs-varid'>clipMask_</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>128</span> <span class='hs-varop'>$</span>
<a name="line-411"></a><span class='hs-comment'>{-# LINE 329 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-412"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unPixmap</span> <span class='hs-varid'>clipMask_</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-413"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>44</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-414"></a><span class='hs-comment'>{-# LINE 331 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-415"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>256</span> <span class='hs-varop'>$</span>
<a name="line-416"></a><span class='hs-comment'>{-# LINE 332 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-417"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>48</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-418"></a><span class='hs-comment'>{-# LINE 333 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-419"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>subwindow_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-420"></a><span class='hs-comment'>{-# LINE 334 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-421"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>512</span> <span class='hs-varop'>$</span>
<a name="line-422"></a><span class='hs-comment'>{-# LINE 335 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-423"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>52</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-424"></a><span class='hs-comment'>{-# LINE 336 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-425"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>tsXOrigin_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-426"></a><span class='hs-comment'>{-# LINE 337 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-427"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>1024</span> <span class='hs-varop'>$</span>
<a name="line-428"></a><span class='hs-comment'>{-# LINE 338 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-429"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>56</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-430"></a><span class='hs-comment'>{-# LINE 339 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-431"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>tsYOrigin_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-432"></a><span class='hs-comment'>{-# LINE 340 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-433"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>2048</span> <span class='hs-varop'>$</span>
<a name="line-434"></a><span class='hs-comment'>{-# LINE 341 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-435"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>60</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-436"></a><span class='hs-comment'>{-# LINE 342 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-437"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>clipXOrigin_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-438"></a><span class='hs-comment'>{-# LINE 343 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-439"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>4096</span> <span class='hs-varop'>$</span>
<a name="line-440"></a><span class='hs-comment'>{-# LINE 344 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-441"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>64</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-442"></a><span class='hs-comment'>{-# LINE 345 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-443"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>clipYOrigin_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-444"></a><span class='hs-comment'>{-# LINE 346 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-445"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>8192</span> <span class='hs-varop'>$</span>
<a name="line-446"></a><span class='hs-comment'>{-# LINE 347 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-447"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>68</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-448"></a><span class='hs-comment'>{-# LINE 348 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-449"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-varid'>graphics_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-450"></a><span class='hs-comment'>{-# LINE 349 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-451"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>16384</span> <span class='hs-varop'>$</span>
<a name="line-452"></a><span class='hs-comment'>{-# LINE 350 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-453"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>72</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-454"></a><span class='hs-comment'>{-# LINE 351 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-455"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>lineWidth_</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-456"></a><span class='hs-comment'>{-# LINE 352 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-457"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>32768</span> <span class='hs-varop'>$</span>
<a name="line-458"></a><span class='hs-comment'>{-# LINE 353 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-459"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>76</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-460"></a><span class='hs-comment'>{-# LINE 354 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-461"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>lineStyle_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-462"></a><span class='hs-comment'>{-# LINE 355 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-463"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>65536</span> <span class='hs-varop'>$</span>
<a name="line-464"></a><span class='hs-comment'>{-# LINE 356 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-465"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>80</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-466"></a><span class='hs-comment'>{-# LINE 357 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-467"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>capStyle_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-468"></a><span class='hs-comment'>{-# LINE 358 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-469"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-num'>131072</span> <span class='hs-varop'>$</span>
<a name="line-470"></a><span class='hs-comment'>{-# LINE 359 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-471"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>84</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-472"></a><span class='hs-comment'>{-# LINE 360 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-473"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>joinStyle_</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-474"></a><span class='hs-comment'>{-# LINE 361 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-475"></a> <span class='hs-varid'>readIORef</span> <span class='hs-varid'>r</span>
<a name="line-476"></a> <span class='hs-keyword'>where</span>
<a name="line-477"></a> <span class='hs-varid'>add</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-conid'>CInt</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'>()</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-478"></a> <span class='hs-varid'>add</span> <span class='hs-varid'>r</span> <span class='hs-varid'>mVal</span> <span class='hs-varid'>act</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>handle</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>ErrorCall</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-conid'>()</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span>
<a name="line-479"></a> <span class='hs-varid'>act</span>
<a name="line-480"></a> <span class='hs-varid'>modifyIORef</span> <span class='hs-varid'>r</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>val</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>val</span><span class='hs-varop'>+</span><span class='hs-varid'>mVal</span><span class='hs-layout'>)</span>
<a name="line-481"></a>
<a name="line-482"></a><a name="newGCValues"></a><span class='hs-comment'>-- constant newGCValues An empty record of 'GCValues'.</span>
<a name="line-483"></a><span class='hs-comment'>--</span>
<a name="line-484"></a><span class='hs-comment'>-- * Use this value instead of the constructor to avoid compiler wanings</span>
<a name="line-485"></a><span class='hs-comment'>-- about uninitialized fields.</span>
<a name="line-486"></a><span class='hs-comment'>--</span>
<a name="line-487"></a><span class='hs-definition'>newGCValues</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>GCValues</span>
<a name="line-488"></a><span class='hs-definition'>newGCValues</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GCValues</span> <span class='hs-layout'>{</span>
<a name="line-489"></a> <span class='hs-varid'>foreground</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-490"></a> <span class='hs-varid'>background</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-491"></a> <span class='hs-varid'>function</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-492"></a> <span class='hs-varid'>fill</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-493"></a> <span class='hs-varid'>tile</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>,</span>
<a name="line-494"></a> <span class='hs-varid'>stipple</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>,</span>
<a name="line-495"></a> <span class='hs-varid'>clipMask</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Nothing</span><span class='hs-layout'>,</span>
<a name="line-496"></a> <span class='hs-varid'>subwindowMode</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-497"></a> <span class='hs-varid'>tsXOrigin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-498"></a> <span class='hs-varid'>tsYOrigin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-499"></a> <span class='hs-varid'>clipXOrigin</span><span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-500"></a> <span class='hs-varid'>clipYOrigin</span><span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-501"></a> <span class='hs-varid'>graphicsExposure</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-502"></a> <span class='hs-varid'>lineWidth</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-503"></a> <span class='hs-varid'>lineStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-504"></a> <span class='hs-varid'>capStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span><span class='hs-layout'>,</span>
<a name="line-505"></a> <span class='hs-varid'>joinStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span>
<a name="line-506"></a> <span class='hs-layout'>}</span>
<a name="line-507"></a>
<a name="line-508"></a><span class='hs-comment'>-- Widget related methods</span>
<a name="line-509"></a>
<a name="line-510"></a><a name="widgetGetState"></a><span class='hs-comment'>-- | Retrieve the current state of the widget.</span>
<a name="line-511"></a><span class='hs-comment'>--</span>
<a name="line-512"></a><span class='hs-comment'>-- * The state refers to different modes of user interaction, see</span>
<a name="line-513"></a><span class='hs-comment'>-- 'StateType' for more information.</span>
<a name="line-514"></a><span class='hs-comment'>--</span>
<a name="line-515"></a><span class='hs-definition'>widgetGetState</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>StateType</span>
<a name="line-516"></a><span class='hs-definition'>widgetGetState</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>=</span>
<a name="line-517"></a> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>toEnum</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word8</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-518"></a><span class='hs-comment'>{-# LINE 404 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-519"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>unWidget</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toWidget</span><span class='hs-layout'>)</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>18</span><span class='hs-layout'>)</span>
<a name="line-520"></a><span class='hs-comment'>{-# LINE 405 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-521"></a>
<a name="line-522"></a><a name="widgetGetSavedState"></a><span class='hs-comment'>-- | Retrieve the current state of the widget.</span>
<a name="line-523"></a><span class='hs-comment'>--</span>
<a name="line-524"></a><span class='hs-comment'>-- * If a widget is turned insensitive, the previous state is stored in</span>
<a name="line-525"></a><span class='hs-comment'>-- a specific location. This function retrieves this previous state.</span>
<a name="line-526"></a><span class='hs-comment'>--</span>
<a name="line-527"></a><span class='hs-definition'>widgetGetSavedState</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>StateType</span>
<a name="line-528"></a><span class='hs-definition'>widgetGetSavedState</span> <span class='hs-varid'>w</span> <span class='hs-keyglyph'>=</span>
<a name="line-529"></a> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>toEnum</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Word8</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-530"></a><span class='hs-comment'>{-# LINE 414 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-531"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>unWidget</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toWidget</span><span class='hs-layout'>)</span> <span class='hs-varid'>w</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>19</span><span class='hs-layout'>)</span>
<a name="line-532"></a><span class='hs-comment'>{-# LINE 415 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-533"></a>
<a name="line-534"></a>
<a name="line-535"></a><a name="Allocation"></a><span class='hs-comment'>-- | Allocation</span>
<a name="line-536"></a><a name="Allocation"></a><span class='hs-comment'>--</span>
<a name="line-537"></a><a name="Allocation"></a><span class='hs-comment'>-- * For Widget's 'Graphics.UI.Gtk.Abstract.Widget.sizeAllocate' signal.</span>
<a name="line-538"></a><a name="Allocation"></a><span class='hs-comment'>-- The @x@ and @y@ values of the rectangle refer to the widgets position</span>
<a name="line-539"></a><a name="Allocation"></a><span class='hs-comment'>-- relative to its parent window.</span>
<a name="line-540"></a><a name="Allocation"></a><span class='hs-comment'>--</span>
<a name="line-541"></a><a name="Allocation"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>Allocation</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Rectangle</span>
<a name="line-542"></a>
<a name="line-543"></a>
<a name="line-544"></a><a name="Requisition"></a><span class='hs-comment'>-- | Requisition</span>
<a name="line-545"></a><a name="Requisition"></a><span class='hs-comment'>--</span>
<a name="line-546"></a><a name="Requisition"></a><span class='hs-comment'>-- * For 'Graphics.UI.Gtk.Abstract.Widget.widgetSizeRequest'. The values</span>
<a name="line-547"></a><a name="Requisition"></a><span class='hs-comment'>-- represent the desired width and height of the widget.</span>
<a name="line-548"></a><a name="Requisition"></a><span class='hs-comment'>--</span>
<a name="line-549"></a><a name="Requisition"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Requisition</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Requisition</span> <span class='hs-conid'>Int</span> <span class='hs-conid'>Int</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>,</span><span class='hs-conid'>Show</span><span class='hs-layout'>)</span>
<a name="line-550"></a>
<a name="line-551"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>Requisition</span> <span class='hs-keyword'>where</span>
<a name="line-552"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>8</span>
<a name="line-553"></a><span class='hs-comment'>{-# LINE 435 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-554"></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'>Int32</span><span class='hs-layout'>)</span>
<a name="line-555"></a><span class='hs-comment'>{-# LINE 436 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-556"></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-557"></a> <span class='hs-layout'>(</span><span class='hs-varid'>width_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-558"></a><span class='hs-comment'>{-# LINE 438 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-559"></a> <span class='hs-layout'>(</span><span class='hs-varid'>height_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-560"></a><span class='hs-comment'>{-# LINE 439 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-561"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>Requisition</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>width_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>height_</span><span class='hs-layout'>)</span>
<a name="line-562"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>Requisition</span> <span class='hs-varid'>width</span> <span class='hs-varid'>height</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-563"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>width</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-564"></a><span class='hs-comment'>{-# LINE 442 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-565"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>height</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-566"></a><span class='hs-comment'>{-# LINE 443 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-567"></a>
<a name="line-568"></a>
<a name="line-569"></a><span class='hs-comment'>-- SpinButton related mothods</span>
<a name="line-570"></a>
<a name="line-571"></a><a name="inputError"></a><span class='hs-comment'>-- If an invalid input has been put into a SpinButton the input function may</span>
<a name="line-572"></a><span class='hs-comment'>-- reject this value by returning this value.</span>
<a name="line-573"></a><span class='hs-definition'>inputError</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span>
<a name="line-574"></a><span class='hs-comment'>{-# LINE 450 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-575"></a><span class='hs-definition'>inputError</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>1</span>
<a name="line-576"></a><span class='hs-comment'>{-# LINE 451 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-577"></a>
<a name="line-578"></a>
<a name="line-579"></a><a name="treeIterSize"></a><span class='hs-comment'>-- The TreeIter struct is not used by itself. But we have to allocate space</span>
<a name="line-580"></a><span class='hs-comment'>-- for it in module TreeModel.</span>
<a name="line-581"></a><span class='hs-definition'>treeIterSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-582"></a><span class='hs-definition'>treeIterSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>16</span>
<a name="line-583"></a><span class='hs-comment'>{-# LINE 457 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-584"></a>
<a name="line-585"></a>
<a name="line-586"></a><a name="textIterSize"></a><span class='hs-comment'>-- The TextIter struct can be a local variable in a C program. We have to</span>
<a name="line-587"></a><span class='hs-comment'>-- store it on the heap.</span>
<a name="line-588"></a><span class='hs-comment'>--</span>
<a name="line-589"></a><span class='hs-definition'>textIterSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-590"></a><span class='hs-definition'>textIterSize</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>56</span>
<a name="line-591"></a><span class='hs-comment'>{-# LINE 464 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-592"></a>
<a name="line-593"></a><span class='hs-comment'>-- Dialog related methods</span>
<a name="line-594"></a>
<a name="line-595"></a><a name="dialogGetUpper"></a><span class='hs-comment'>-- | Get the upper part of a dialog.</span>
<a name="line-596"></a><span class='hs-comment'>--</span>
<a name="line-597"></a><span class='hs-comment'>-- * The upper part of a dialog window consists of a 'VBox'.</span>
<a name="line-598"></a><span class='hs-comment'>-- Add the required widgets into this box.</span>
<a name="line-599"></a><span class='hs-comment'>--</span>
<a name="line-600"></a><span class='hs-definition'>dialogGetUpper</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>VBox</span>
<a name="line-601"></a><span class='hs-definition'>dialogGetUpper</span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkVBox</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-602"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>unDialog</span><span class='hs-varop'>.</span><span class='hs-varid'>toDialog</span><span class='hs-layout'>)</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>148</span><span class='hs-layout'>)</span>
<a name="line-603"></a><span class='hs-comment'>{-# LINE 475 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-604"></a>
<a name="line-605"></a><a name="dialogGetActionArea"></a><span class='hs-comment'>-- | Extract the action area of a dialog box.</span>
<a name="line-606"></a><span class='hs-comment'>--</span>
<a name="line-607"></a><span class='hs-comment'>-- * This</span>
<a name="line-608"></a><span class='hs-comment'>-- is useful to add some special widgets that cannot be added with</span>
<a name="line-609"></a><span class='hs-comment'>-- dialogAddActionWidget.</span>
<a name="line-610"></a><span class='hs-comment'>--</span>
<a name="line-611"></a><span class='hs-definition'>dialogGetActionArea</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>HBox</span>
<a name="line-612"></a><span class='hs-definition'>dialogGetActionArea</span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkHBox</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-613"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>unDialog</span><span class='hs-varop'>.</span><span class='hs-varid'>toDialog</span><span class='hs-layout'>)</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>152</span><span class='hs-layout'>)</span>
<a name="line-614"></a><span class='hs-comment'>{-# LINE 485 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-615"></a>
<a name="line-616"></a><a name="ResponseId"></a><span class='hs-comment'>-- | Some constructors that can be used as response</span>
<a name="line-617"></a><a name="ResponseId"></a><span class='hs-comment'>-- numbers for dialogs.</span>
<a name="line-618"></a><a name="ResponseId"></a><span class='hs-comment'>--</span>
<a name="line-619"></a><a name="ResponseId"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>ResponseId</span>
<a name="line-620"></a>
<a name="line-621"></a> <span class='hs-comment'>-- | GTK returns this if a response widget has no @response_id@,</span>
<a name="line-622"></a> <span class='hs-comment'>-- or if the dialog gets programmatically hidden or destroyed.</span>
<a name="line-623"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseNone</span>
<a name="line-624"></a>
<a name="line-625"></a> <span class='hs-comment'>-- | GTK won't return these unless you pass them in as</span>
<a name="line-626"></a> <span class='hs-comment'>-- the response for an action widget. They are for your convenience.</span>
<a name="line-627"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseReject</span>
<a name="line-628"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseAccept</span> <span class='hs-comment'>-- ^ (as above)</span>
<a name="line-629"></a>
<a name="line-630"></a> <span class='hs-comment'>-- | If the dialog is deleted.</span>
<a name="line-631"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseDeleteEvent</span>
<a name="line-632"></a>
<a name="line-633"></a> <span class='hs-comment'>-- | \"Ok\" was pressed.</span>
<a name="line-634"></a> <span class='hs-comment'>--</span>
<a name="line-635"></a> <span class='hs-comment'>-- * This value is returned from the \"Ok\" stock dialog button.</span>
<a name="line-636"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseOk</span>
<a name="line-637"></a>
<a name="line-638"></a> <span class='hs-comment'>-- | \"Cancel\" was pressed.</span>
<a name="line-639"></a> <span class='hs-comment'>--</span>
<a name="line-640"></a> <span class='hs-comment'>-- * These value is returned from the \"Cancel\" stock dialog button.</span>
<a name="line-641"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseCancel</span>
<a name="line-642"></a>
<a name="line-643"></a> <span class='hs-comment'>-- | \"Close\" was pressed.</span>
<a name="line-644"></a> <span class='hs-comment'>--</span>
<a name="line-645"></a> <span class='hs-comment'>-- * This value is returned from the \"Close\" stock dialog button.</span>
<a name="line-646"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseClose</span>
<a name="line-647"></a>
<a name="line-648"></a> <span class='hs-comment'>-- | \"Yes\" was pressed.</span>
<a name="line-649"></a> <span class='hs-comment'>--</span>
<a name="line-650"></a> <span class='hs-comment'>-- * This value is returned from the \"Yes\" stock dialog button.</span>
<a name="line-651"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseYes</span>
<a name="line-652"></a>
<a name="line-653"></a> <span class='hs-comment'>-- | \"No\" was pressed.</span>
<a name="line-654"></a> <span class='hs-comment'>--</span>
<a name="line-655"></a> <span class='hs-comment'>-- * This value is returned from the \"No\" stock dialog button.</span>
<a name="line-656"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseNo</span>
<a name="line-657"></a>
<a name="line-658"></a> <span class='hs-comment'>-- | \"Apply\" was pressed.</span>
<a name="line-659"></a> <span class='hs-comment'>--</span>
<a name="line-660"></a> <span class='hs-comment'>-- * This value is returned from the \"Apply\" stock dialog button.</span>
<a name="line-661"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseApply</span>
<a name="line-662"></a>
<a name="line-663"></a> <span class='hs-comment'>-- | \"Help\" was pressed.</span>
<a name="line-664"></a> <span class='hs-comment'>--</span>
<a name="line-665"></a> <span class='hs-comment'>-- * This value is returned from the \"Help\" stock dialog button.</span>
<a name="line-666"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseHelp</span>
<a name="line-667"></a>
<a name="line-668"></a> <span class='hs-comment'>-- | A user-defined response</span>
<a name="line-669"></a> <span class='hs-comment'>--</span>
<a name="line-670"></a> <span class='hs-comment'>-- * This value is returned from a user defined button</span>
<a name="line-671"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>ResponseUser</span> <span class='hs-conid'>Int</span>
<a name="line-672"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>)</span>
<a name="line-673"></a>
<a name="line-674"></a><a name="fromResponse"></a><span class='hs-definition'>fromResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integral</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>ResponseId</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span>
<a name="line-675"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseNone</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>1</span>
<a name="line-676"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseReject</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>2</span>
<a name="line-677"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseAccept</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>3</span>
<a name="line-678"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseDeleteEvent</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>4</span>
<a name="line-679"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseOk</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>5</span>
<a name="line-680"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseCancel</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>6</span>
<a name="line-681"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseClose</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>7</span>
<a name="line-682"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseYes</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>8</span>
<a name="line-683"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseNo</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>9</span>
<a name="line-684"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseApply</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>10</span>
<a name="line-685"></a><span class='hs-definition'>fromResponse</span> <span class='hs-conid'>ResponseHelp</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>11</span>
<a name="line-686"></a><span class='hs-definition'>fromResponse</span> <span class='hs-layout'>(</span><span class='hs-conid'>ResponseUser</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>i</span>
<a name="line-687"></a>
<a name="line-688"></a><a name="toResponse"></a><span class='hs-definition'>toResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integral</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ResponseId</span>
<a name="line-689"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>1</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseNone</span>
<a name="line-690"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseReject</span>
<a name="line-691"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>3</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseAccept</span>
<a name="line-692"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseDeleteEvent</span>
<a name="line-693"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>5</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseOk</span>
<a name="line-694"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>6</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseCancel</span>
<a name="line-695"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>7</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseClose</span>
<a name="line-696"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseYes</span>
<a name="line-697"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>9</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseNo</span>
<a name="line-698"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>10</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseApply</span>
<a name="line-699"></a><span class='hs-definition'>toResponse</span> <span class='hs-layout'>(</span><span class='hs-comment'>-</span><span class='hs-num'>11</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseHelp</span>
<a name="line-700"></a><span class='hs-definition'>toResponse</span> <span class='hs-varid'>i</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>ResponseUser</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>i</span>
<a name="line-701"></a>
<a name="line-702"></a>
<a name="line-703"></a><span class='hs-comment'>{-# LINE 573 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-704"></a><span class='hs-comment'>-- | The identifer of a window of the underlying windowing system.</span>
<a name="line-705"></a><span class='hs-comment'>--</span>
<a name="line-706"></a>
<a name="line-707"></a><a name="NativeWindowId"></a><span class='hs-comment'>{-# LINE 586 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-708"></a><a name="NativeWindowId"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>NativeWindowId</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>NativeWindowId</span> <span class='hs-conid'>Word32</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>)</span>
<a name="line-709"></a><a name="unNativeWindowId"></a><span class='hs-comment'>{-# LINE 587 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-710"></a><span class='hs-definition'>unNativeWindowId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integral</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>NativeWindowId</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span>
<a name="line-711"></a><span class='hs-definition'>unNativeWindowId</span> <span class='hs-layout'>(</span><span class='hs-conid'>NativeWindowId</span> <span class='hs-varid'>id</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>id</span>
<a name="line-712"></a><a name="toNativeWindowId"></a><span class='hs-definition'>toNativeWindowId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integral</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>NativeWindowId</span>
<a name="line-713"></a><span class='hs-definition'>toNativeWindowId</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>NativeWindowId</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromIntegral</span>
<a name="line-714"></a><a name="fromNativeWindowId"></a><span class='hs-definition'>fromNativeWindowId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Integral</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>NativeWindowId</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span>
<a name="line-715"></a><span class='hs-definition'>fromNativeWindowId</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>.</span> <span class='hs-varid'>unNativeWindowId</span>
<a name="line-716"></a><a name="nativeWindowIdNone"></a><span class='hs-definition'>nativeWindowIdNone</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>NativeWindowId</span>
<a name="line-717"></a><span class='hs-definition'>nativeWindowIdNone</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>NativeWindowId</span> <span class='hs-num'>0</span>
<a name="line-718"></a>
<a name="line-719"></a><span class='hs-comment'>{-# LINE 596 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-720"></a>
<a name="line-721"></a><span class='hs-comment'>{-# LINE 597 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-722"></a>
<a name="line-723"></a>
<a name="line-724"></a><span class='hs-comment'>{-# LINE 599 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-725"></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_x11_drawable_get_xid"</span>
<a name="line-726"></a> <span class='hs-varid'>gdk_x11_drawable_get_xid</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>Drawable</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-727"></a>
<a name="line-728"></a><span class='hs-comment'>{-# LINE 605 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-729"></a>
<a name="line-730"></a><a name="drawableGetID"></a><span class='hs-comment'>-- | Get 'NativeWindowId' of 'Drawable'. </span>
<a name="line-731"></a><span class='hs-definition'>drawableGetID</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DrawableClass</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>NativeWindowId</span>
<a name="line-732"></a><span class='hs-definition'>drawableGetID</span> <span class='hs-varid'>d</span> <span class='hs-keyglyph'>=</span>
<a name="line-733"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toNativeWindowId</span> <span class='hs-varop'>$</span>
<a name="line-734"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Drawable</span> <span class='hs-varid'>drawable</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span>
<a name="line-735"></a>
<a name="line-736"></a><span class='hs-comment'>{-# LINE 612 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-737"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>drawable</span> <span class='hs-varid'>gdk_x11_drawable_get_xid</span>
<a name="line-738"></a>
<a name="line-739"></a><span class='hs-comment'>{-# LINE 616 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-740"></a> <span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>toDrawable</span> <span class='hs-varid'>d</span><span class='hs-layout'>)</span>
<a name="line-741"></a>
<a name="line-742"></a>
<a name="line-743"></a><a name="toolbarChildButton"></a><span class='hs-comment'>{-# LINE 619 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-744"></a><span class='hs-comment'>-- Static values for different Toolbar widgets.</span>
<a name="line-745"></a><span class='hs-comment'>--</span>
<a name="line-746"></a><span class='hs-comment'>-- * c2hs and hsc should agree on types!</span>
<a name="line-747"></a><span class='hs-comment'>--</span>
<a name="line-748"></a><span class='hs-definition'>toolbarChildButton</span><span class='hs-layout'>,</span> <span class='hs-varid'>toolbarChildToggleButton</span><span class='hs-layout'>,</span> <span class='hs-varid'>toolbarChildRadioButton</span> <span class='hs-keyglyph'>::</span>
<a name="line-749"></a> <span class='hs-conid'>CInt</span> <span class='hs-comment'>-- \#gtk2hs_type GtkToolbarChildType</span>
<a name="line-750"></a><span class='hs-definition'>toolbarChildButton</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1</span>
<a name="line-751"></a><a name="toolbarChildToggleButton"></a><span class='hs-comment'>{-# LINE 626 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-752"></a><span class='hs-definition'>toolbarChildToggleButton</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>2</span>
<a name="line-753"></a><a name="toolbarChildRadioButton"></a><span class='hs-comment'>{-# LINE 627 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-754"></a><span class='hs-definition'>toolbarChildRadioButton</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>3</span>
<a name="line-755"></a><span class='hs-comment'>{-# LINE 628 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-756"></a>
<a name="line-757"></a><span class='hs-comment'>{-# LINE 629 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-758"></a>
<a name="line-759"></a><a name="IconSize"></a><span class='hs-comment'>-- | The size of an icon in pixels.</span>
<a name="line-760"></a><a name="IconSize"></a><span class='hs-comment'>--</span>
<a name="line-761"></a><a name="IconSize"></a><span class='hs-comment'>-- * This enumeration contains one case that is not exported and which</span>
<a name="line-762"></a><a name="IconSize"></a><span class='hs-comment'>-- is used when new sizes are registered using</span>
<a name="line-763"></a><a name="IconSize"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.General.IconFactory.iconSizeRegister'.</span>
<a name="line-764"></a><a name="IconSize"></a><span class='hs-comment'>--</span>
<a name="line-765"></a><a name="IconSize"></a><span class='hs-comment'>-- * Applying 'show' to this type will reveal the name of the size</span>
<a name="line-766"></a><a name="IconSize"></a><span class='hs-comment'>-- that is registered with Gtk+.</span>
<a name="line-767"></a><a name="IconSize"></a><span class='hs-comment'>--</span>
<a name="line-768"></a><a name="IconSize"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>IconSize</span>
<a name="line-769"></a> <span class='hs-comment'>-- | Don't scale but use any of the available sizes.</span>
<a name="line-770"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeInvalid</span>
<a name="line-771"></a>
<a name="line-772"></a> <span class='hs-comment'>-- | Icon size to use in next to menu items in drop-down menus.</span>
<a name="line-773"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>IconSizeMenu</span>
<a name="line-774"></a>
<a name="line-775"></a> <span class='hs-comment'>-- | Icon size for small toolbars.</span>
<a name="line-776"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>IconSizeSmallToolbar</span>
<a name="line-777"></a>
<a name="line-778"></a> <span class='hs-comment'>-- | Icon size for larger toolbars.</span>
<a name="line-779"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>IconSizeLargeToolbar</span>
<a name="line-780"></a>
<a name="line-781"></a> <span class='hs-comment'>-- | Icon size for icons in buttons, next to the label.</span>
<a name="line-782"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>IconSizeButton</span>
<a name="line-783"></a>
<a name="line-784"></a> <span class='hs-comment'>-- | Icon size for icons in drag-and-drop.</span>
<a name="line-785"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>IconSizeDnd</span>
<a name="line-786"></a>
<a name="line-787"></a> <span class='hs-comment'>-- | Icon size for icons next to dialog text.</span>
<a name="line-788"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>IconSizeDialog</span>
<a name="line-789"></a>
<a name="line-790"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>IconSizeUser</span> <span class='hs-conid'>Int</span>
<a name="line-791"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>)</span>
<a name="line-792"></a>
<a name="line-793"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Enum</span> <span class='hs-conid'>IconSize</span> <span class='hs-keyword'>where</span>
<a name="line-794"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>0</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeInvalid</span>
<a name="line-795"></a><span class='hs-comment'>{-# LINE 666 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-796"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>1</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeMenu</span>
<a name="line-797"></a><span class='hs-comment'>{-# LINE 667 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-798"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>2</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeSmallToolbar</span>
<a name="line-799"></a><span class='hs-comment'>{-# LINE 668 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-800"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>3</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeLargeToolbar</span>
<a name="line-801"></a><span class='hs-comment'>{-# LINE 669 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-802"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>4</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeButton</span>
<a name="line-803"></a><span class='hs-comment'>{-# LINE 670 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-804"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>5</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeDnd</span>
<a name="line-805"></a><span class='hs-comment'>{-# LINE 671 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-806"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>6</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeDialog</span>
<a name="line-807"></a><span class='hs-comment'>{-# LINE 672 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-808"></a> <span class='hs-varid'>toEnum</span> <span class='hs-varid'>n</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>IconSizeUser</span> <span class='hs-varid'>n</span>
<a name="line-809"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>IconSizeInvalid</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>0</span>
<a name="line-810"></a><span class='hs-comment'>{-# LINE 674 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-811"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>IconSizeMenu</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1</span>
<a name="line-812"></a><span class='hs-comment'>{-# LINE 675 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-813"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>IconSizeSmallToolbar</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>2</span>
<a name="line-814"></a><span class='hs-comment'>{-# LINE 676 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-815"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>IconSizeLargeToolbar</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>3</span>
<a name="line-816"></a><span class='hs-comment'>{-# LINE 677 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-817"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>IconSizeButton</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>4</span>
<a name="line-818"></a><span class='hs-comment'>{-# LINE 678 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-819"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>IconSizeDnd</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>5</span>
<a name="line-820"></a><span class='hs-comment'>{-# LINE 679 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-821"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>IconSizeDialog</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>6</span>
<a name="line-822"></a><span class='hs-comment'>{-# LINE 680 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-823"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-layout'>(</span><span class='hs-conid'>IconSizeUser</span> <span class='hs-varid'>n</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>n</span>
<a name="line-824"></a>
<a name="line-825"></a><span class='hs-comment'>-- entry Widget Combo</span>
<a name="line-826"></a>
<a name="line-827"></a>
<a name="line-828"></a><a name="comboGetList"></a><span class='hs-comment'>{-# LINE 685 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-829"></a><span class='hs-comment'>-- | Extract the List container from a 'Combo' box.</span>
<a name="line-830"></a><span class='hs-comment'>--</span>
<a name="line-831"></a><span class='hs-definition'>comboGetList</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Combo</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>List</span>
<a name="line-832"></a><span class='hs-definition'>comboGetList</span> <span class='hs-varid'>c</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unCombo</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>cPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-833"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkList</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>92</span><span class='hs-layout'>)</span> <span class='hs-varid'>cPtr</span>
<a name="line-834"></a><span class='hs-comment'>{-# LINE 690 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-835"></a>
<a name="line-836"></a><span class='hs-comment'>{-# LINE 691 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-837"></a>
<a name="line-838"></a><span class='hs-comment'>-- FileSelection related methods</span>
<a name="line-839"></a>
<a name="line-840"></a><a name="fileSelectionGetButtons"></a><span class='hs-comment'>-- | Extract the buttons of a fileselection.</span>
<a name="line-841"></a><span class='hs-comment'>--</span>
<a name="line-842"></a><span class='hs-definition'>fileSelectionGetButtons</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FileSelectionClass</span> <span class='hs-varid'>fsel</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>fsel</span> <span class='hs-keyglyph'>-></span>
<a name="line-843"></a> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Button</span><span class='hs-layout'>,</span> <span class='hs-conid'>Button</span><span class='hs-layout'>)</span>
<a name="line-844"></a><span class='hs-definition'>fileSelectionGetButtons</span> <span class='hs-varid'>fsel</span> <span class='hs-keyglyph'>=</span>
<a name="line-845"></a> <span class='hs-keyword'>do</span>
<a name="line-846"></a> <span class='hs-varid'>ok</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>butPtrToButton</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>180</span><span class='hs-layout'>)</span>
<a name="line-847"></a><span class='hs-comment'>{-# LINE 701 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-848"></a> <span class='hs-varid'>cancel</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>butPtrToButton</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>184</span><span class='hs-layout'>)</span>
<a name="line-849"></a><span class='hs-comment'>{-# LINE 702 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-850"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>ok</span><span class='hs-layout'>,</span><span class='hs-varid'>cancel</span><span class='hs-layout'>)</span>
<a name="line-851"></a> <span class='hs-keyword'>where</span>
<a name="line-852"></a> <span class='hs-varid'>butPtrToButton</span> <span class='hs-varid'>bp</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkButton</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-853"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>unFileSelection</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toFileSelection</span><span class='hs-layout'>)</span> <span class='hs-varid'>fsel</span><span class='hs-layout'>)</span> <span class='hs-varid'>bp</span>
<a name="line-854"></a>
<a name="line-855"></a><span class='hs-comment'>-- DrawingArea related methods</span>
<a name="line-856"></a>
<a name="line-857"></a><a name="widgetGetDrawWindow"></a><span class='hs-comment'>-- | Retrieves the 'DrawWindow' that the widget draws onto.</span>
<a name="line-858"></a><span class='hs-comment'>--</span>
<a name="line-859"></a><span class='hs-comment'>-- This function thows an error if the widget has not yet been realized, since</span>
<a name="line-860"></a><span class='hs-comment'>-- a widget does not allocate its window resources until just before it is</span>
<a name="line-861"></a><span class='hs-comment'>-- displayed on the screen. You can use the</span>
<a name="line-862"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.Abstract.Widget.onRealize' signal to give you the</span>
<a name="line-863"></a><span class='hs-comment'>-- opportunity to use a widget's 'DrawWindow' as soon as it has been created</span>
<a name="line-864"></a><span class='hs-comment'>-- but before the widget is displayed.</span>
<a name="line-865"></a><span class='hs-comment'>--</span>
<a name="line-866"></a><span class='hs-definition'>widgetGetDrawWindow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>widget</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>widget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>DrawWindow</span>
<a name="line-867"></a><span class='hs-definition'>widgetGetDrawWindow</span> <span class='hs-varid'>da</span> <span class='hs-keyglyph'>=</span>
<a name="line-868"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unWidget</span><span class='hs-varop'>.</span><span class='hs-varid'>toWidget</span> <span class='hs-varop'>$</span> <span class='hs-varid'>da</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>da'</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-869"></a> <span class='hs-varid'>drawWindowPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>52</span><span class='hs-layout'>)</span> <span class='hs-varid'>da'</span>
<a name="line-870"></a><span class='hs-comment'>{-# LINE 722 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-871"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>drawWindowPtr</span> <span class='hs-varop'>==</span> <span class='hs-varid'>nullPtr</span>
<a name="line-872"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>fail</span> <span class='hs-str'>"widgetGetDrawWindow: no DrawWindow available (the widget is probably not realized)"</span>
<a name="line-873"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDrawWindow</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>castPtr</span> <span class='hs-varid'>drawWindowPtr</span><span class='hs-layout'>)</span>
<a name="line-874"></a>
<a name="line-875"></a><a name="widgetGetSize"></a><span class='hs-comment'>-- | Returns the current size.</span>
<a name="line-876"></a><span class='hs-comment'>--</span>
<a name="line-877"></a><span class='hs-comment'>-- * This information may be out of date if the user is resizing the window.</span>
<a name="line-878"></a><span class='hs-comment'>--</span>
<a name="line-879"></a><span class='hs-definition'>widgetGetSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>widget</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>widget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Int</span><span class='hs-layout'>,</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span>
<a name="line-880"></a><span class='hs-definition'>widgetGetSize</span> <span class='hs-varid'>da</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unWidget</span><span class='hs-varop'>.</span><span class='hs-varid'>toWidget</span> <span class='hs-varop'>$</span> <span class='hs-varid'>da</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>wPtr</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-881"></a> <span class='hs-layout'>(</span><span class='hs-varid'>width</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span>
<a name="line-882"></a><span class='hs-comment'>{-# LINE 733 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-883"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>36</span><span class='hs-layout'>)</span> <span class='hs-varid'>wPtr</span><span class='hs-layout'>)</span>
<a name="line-884"></a><span class='hs-comment'>{-# LINE 734 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-885"></a> <span class='hs-layout'>(</span><span class='hs-varid'>height</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>12</span><span class='hs-layout'>)</span>
<a name="line-886"></a><span class='hs-comment'>{-# LINE 735 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-887"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>36</span><span class='hs-layout'>)</span> <span class='hs-varid'>wPtr</span><span class='hs-layout'>)</span>
<a name="line-888"></a><span class='hs-comment'>{-# LINE 736 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-889"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>width</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>height</span><span class='hs-layout'>)</span>
<a name="line-890"></a>
<a name="line-891"></a><span class='hs-comment'>-- Layout related methods</span>
<a name="line-892"></a>
<a name="line-893"></a><a name="layoutGetDrawWindow"></a><span class='hs-comment'>-- | Retrieves the 'Drawable' part.</span>
<a name="line-894"></a><span class='hs-comment'>--</span>
<a name="line-895"></a><span class='hs-definition'>layoutGetDrawWindow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Layout</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>DrawWindow</span>
<a name="line-896"></a><span class='hs-definition'>layoutGetDrawWindow</span> <span class='hs-varid'>lay</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDrawWindow</span> <span class='hs-varop'>$</span>
<a name="line-897"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unLayout</span> <span class='hs-varid'>lay</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-898"></a> <span class='hs-keyglyph'>\</span><span class='hs-varid'>lay'</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>88</span><span class='hs-layout'>)</span> <span class='hs-varid'>lay'</span>
<a name="line-899"></a><span class='hs-comment'>{-# LINE 746 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-900"></a>
<a name="line-901"></a><span class='hs-comment'>-- Window related methods</span>
<a name="line-902"></a>
<a name="line-903"></a><a name="windowGetFrame"></a><span class='hs-comment'>-- | Retrieves the frame 'DrawWindow' that contains a 'Window'.</span>
<a name="line-904"></a><span class='hs-comment'>--</span>
<a name="line-905"></a><span class='hs-definition'>windowGetFrame</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>WindowClass</span> <span class='hs-varid'>widget</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>widget</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'>DrawWindow</span><span class='hs-layout'>)</span>
<a name="line-906"></a><span class='hs-definition'>windowGetFrame</span> <span class='hs-varid'>da</span> <span class='hs-keyglyph'>=</span>
<a name="line-907"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unWidget</span><span class='hs-varop'>.</span><span class='hs-varid'>toWidget</span> <span class='hs-varop'>$</span> <span class='hs-varid'>da</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>da'</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-908"></a> <span class='hs-varid'>drawWindowPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>104</span><span class='hs-layout'>)</span> <span class='hs-varid'>da'</span>
<a name="line-909"></a><span class='hs-comment'>{-# LINE 755 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-910"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>drawWindowPtr</span> <span class='hs-varop'>==</span> <span class='hs-varid'>nullPtr</span>
<a name="line-911"></a> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span>
<a name="line-912"></a> <span class='hs-keyword'>else</span> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Just</span> <span class='hs-varop'>$</span> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDrawWindow</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>castPtr</span> <span class='hs-varid'>drawWindowPtr</span><span class='hs-layout'>)</span>
<a name="line-913"></a>
<a name="line-914"></a><span class='hs-comment'>-- Styles related methods</span>
<a name="line-915"></a>
<a name="line-916"></a><a name="styleGetForeground"></a><span class='hs-comment'>-- | Retrieve the the foreground color.</span>
<a name="line-917"></a><span class='hs-comment'>--</span>
<a name="line-918"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-919"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-920"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-921"></a><span class='hs-comment'>-- widget.</span>
<a name="line-922"></a><span class='hs-comment'>--</span>
<a name="line-923"></a><span class='hs-definition'>styleGetForeground</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-924"></a><span class='hs-definition'>styleGetForeground</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-925"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-926"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>12</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-927"></a><span class='hs-comment'>{-# LINE 772 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-928"></a>
<a name="line-929"></a><a name="styleGetBackground"></a><span class='hs-comment'>-- | Retrieve the background color.</span>
<a name="line-930"></a><span class='hs-comment'>--</span>
<a name="line-931"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-932"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-933"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-934"></a><span class='hs-comment'>-- widget.</span>
<a name="line-935"></a><span class='hs-comment'>--</span>
<a name="line-936"></a><span class='hs-definition'>styleGetBackground</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-937"></a><span class='hs-definition'>styleGetBackground</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-938"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-939"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>72</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-940"></a><span class='hs-comment'>{-# LINE 784 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-941"></a>
<a name="line-942"></a><a name="styleGetLight"></a><span class='hs-comment'>-- | Retrieve a light color.</span>
<a name="line-943"></a><span class='hs-comment'>--</span>
<a name="line-944"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-945"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-946"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-947"></a><span class='hs-comment'>-- widget.</span>
<a name="line-948"></a><span class='hs-comment'>--</span>
<a name="line-949"></a><span class='hs-definition'>styleGetLight</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-950"></a><span class='hs-definition'>styleGetLight</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-951"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-952"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>132</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-953"></a><span class='hs-comment'>{-# LINE 796 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-954"></a>
<a name="line-955"></a><a name="styleGetMiddle"></a><span class='hs-comment'>-- | Retrieve a middle color.</span>
<a name="line-956"></a><span class='hs-comment'>--</span>
<a name="line-957"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-958"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-959"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-960"></a><span class='hs-comment'>-- widget.</span>
<a name="line-961"></a><span class='hs-comment'>--</span>
<a name="line-962"></a><span class='hs-definition'>styleGetMiddle</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-963"></a><span class='hs-definition'>styleGetMiddle</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-964"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-965"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>252</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-966"></a><span class='hs-comment'>{-# LINE 808 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-967"></a>
<a name="line-968"></a><a name="styleGetDark"></a><span class='hs-comment'>-- | Retrieve a dark color.</span>
<a name="line-969"></a><span class='hs-comment'>--</span>
<a name="line-970"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-971"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-972"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-973"></a><span class='hs-comment'>-- widget.</span>
<a name="line-974"></a><span class='hs-comment'>--</span>
<a name="line-975"></a><span class='hs-definition'>styleGetDark</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-976"></a><span class='hs-definition'>styleGetDark</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-977"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-978"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>192</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-979"></a><span class='hs-comment'>{-# LINE 820 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-980"></a>
<a name="line-981"></a><a name="styleGetText"></a><span class='hs-comment'>-- | Retrieve the text color.</span>
<a name="line-982"></a><span class='hs-comment'>--</span>
<a name="line-983"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-984"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-985"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-986"></a><span class='hs-comment'>-- widget.</span>
<a name="line-987"></a><span class='hs-comment'>--</span>
<a name="line-988"></a><span class='hs-definition'>styleGetText</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-989"></a><span class='hs-definition'>styleGetText</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-990"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-991"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>312</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-992"></a><span class='hs-comment'>{-# LINE 832 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-993"></a>
<a name="line-994"></a><a name="styleGetBase"></a><span class='hs-comment'>-- | Retrieve the base color.</span>
<a name="line-995"></a><span class='hs-comment'>--</span>
<a name="line-996"></a><span class='hs-comment'>-- * The base color is the standard text background of a widget.</span>
<a name="line-997"></a><span class='hs-comment'>--</span>
<a name="line-998"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-999"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-1000"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-1001"></a><span class='hs-comment'>-- widget.</span>
<a name="line-1002"></a><span class='hs-comment'>--</span>
<a name="line-1003"></a><span class='hs-definition'>styleGetBase</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-1004"></a><span class='hs-definition'>styleGetBase</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-1005"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-1006"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>372</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-1007"></a><span class='hs-comment'>{-# LINE 846 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1008"></a>
<a name="line-1009"></a><a name="styleGetAntiAliasing"></a><span class='hs-comment'>-- | Retrieve the color for drawing anti-aliased text.</span>
<a name="line-1010"></a><span class='hs-comment'>--</span>
<a name="line-1011"></a><span class='hs-comment'>-- * The anti-aliasing color is the color which is used when the rendering</span>
<a name="line-1012"></a><span class='hs-comment'>-- of a character does not make it clear if a certain pixel shoud be set</span>
<a name="line-1013"></a><span class='hs-comment'>-- or not. This color is between the text and the base color.</span>
<a name="line-1014"></a><span class='hs-comment'>--</span>
<a name="line-1015"></a><span class='hs-comment'>-- * The parameter @state@ determines for which widget</span>
<a name="line-1016"></a><span class='hs-comment'>-- state (one of 'StateType') the 'Color' should be retrieved.</span>
<a name="line-1017"></a><span class='hs-comment'>-- Use 'widgetGetState' to determine the current state of the</span>
<a name="line-1018"></a><span class='hs-comment'>-- widget.</span>
<a name="line-1019"></a><span class='hs-comment'>--</span>
<a name="line-1020"></a><span class='hs-definition'>styleGetAntiAliasing</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Style</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>StateType</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Color</span>
<a name="line-1021"></a><span class='hs-definition'>styleGetAntiAliasing</span> <span class='hs-varid'>st</span> <span class='hs-varid'>ty</span> <span class='hs-keyglyph'>=</span>
<a name="line-1022"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unStyle</span> <span class='hs-varid'>st</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>stPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-1023"></a> <span class='hs-varid'>peekElemOff</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-varop'>`plusPtr`</span> <span class='hs-num'>432</span><span class='hs-layout'>)</span> <span class='hs-varid'>stPtr</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromEnum</span> <span class='hs-varid'>ty</span><span class='hs-layout'>)</span>
<a name="line-1024"></a><span class='hs-comment'>{-# LINE 862 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1025"></a>
<a name="line-1026"></a><a name="colorSelectionDialogGetColor"></a><span class='hs-comment'>-- | Retrieve the ColorSelection object contained within the dialog.</span>
<a name="line-1027"></a><span class='hs-definition'>colorSelectionDialogGetColor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ColorSelectionDialog</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>ColorSelection</span>
<a name="line-1028"></a><span class='hs-definition'>colorSelectionDialogGetColor</span> <span class='hs-varid'>cd</span> <span class='hs-keyglyph'>=</span>
<a name="line-1029"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkColorSelection</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-1030"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unColorSelectionDialog</span> <span class='hs-varid'>cd</span><span class='hs-layout'>)</span>
<a name="line-1031"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>160</span><span class='hs-layout'>)</span>
<a name="line-1032"></a><span class='hs-comment'>{-# LINE 869 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1033"></a>
<a name="line-1034"></a><a name="colorSelectionDialogGetOkButton"></a><span class='hs-comment'>-- | Retrieve the OK button widget contained within the dialog.</span>
<a name="line-1035"></a><span class='hs-definition'>colorSelectionDialogGetOkButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ColorSelectionDialog</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Button</span>
<a name="line-1036"></a><span class='hs-definition'>colorSelectionDialogGetOkButton</span> <span class='hs-varid'>cd</span> <span class='hs-keyglyph'>=</span>
<a name="line-1037"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkButton</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-1038"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unColorSelectionDialog</span> <span class='hs-varid'>cd</span><span class='hs-layout'>)</span>
<a name="line-1039"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>164</span><span class='hs-layout'>)</span>
<a name="line-1040"></a><span class='hs-comment'>{-# LINE 876 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1041"></a>
<a name="line-1042"></a><a name="colorSelectionDialogGetCancelButton"></a><span class='hs-comment'>-- | Retrieve the Cancel button widget contained within the dialog.</span>
<a name="line-1043"></a><span class='hs-definition'>colorSelectionDialogGetCancelButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ColorSelectionDialog</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Button</span>
<a name="line-1044"></a><span class='hs-definition'>colorSelectionDialogGetCancelButton</span> <span class='hs-varid'>cd</span> <span class='hs-keyglyph'>=</span>
<a name="line-1045"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkButton</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-1046"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unColorSelectionDialog</span> <span class='hs-varid'>cd</span><span class='hs-layout'>)</span>
<a name="line-1047"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>168</span><span class='hs-layout'>)</span>
<a name="line-1048"></a><span class='hs-comment'>{-# LINE 883 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1049"></a>
<a name="line-1050"></a><a name="colorSelectionDialogGetHelpButton"></a><span class='hs-comment'>-- | Retrieve the Help button widget contained within the dialog.</span>
<a name="line-1051"></a><span class='hs-definition'>colorSelectionDialogGetHelpButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>ColorSelectionDialog</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Button</span>
<a name="line-1052"></a><span class='hs-definition'>colorSelectionDialogGetHelpButton</span> <span class='hs-varid'>cd</span> <span class='hs-keyglyph'>=</span>
<a name="line-1053"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkButton</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-1054"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unColorSelectionDialog</span> <span class='hs-varid'>cd</span><span class='hs-layout'>)</span>
<a name="line-1055"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>172</span><span class='hs-layout'>)</span>
<a name="line-1056"></a><span class='hs-comment'>{-# LINE 890 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1057"></a>
<a name="line-1058"></a><a name="dragContextGetActions"></a><span class='hs-definition'>dragContextGetActions</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragContext</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span>
<a name="line-1059"></a><span class='hs-definition'>dragContextGetActions</span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-1060"></a><span class='hs-comment'>{-# LINE 893 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1061"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unDragContext</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>32</span><span class='hs-layout'>)</span>
<a name="line-1062"></a><span class='hs-comment'>{-# LINE 894 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1063"></a>
<a name="line-1064"></a><a name="dragContextSetActions"></a><span class='hs-definition'>dragContextSetActions</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragContext</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-conid'>()</span>
<a name="line-1065"></a><span class='hs-definition'>dragContextSetActions</span> <span class='hs-varid'>dc</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unDragContext</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>-></span>
<a name="line-1066"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>32</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-1067"></a><span class='hs-comment'>{-# LINE 898 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1068"></a>
<a name="line-1069"></a><a name="dragContextGetAction"></a><span class='hs-definition'>dragContextGetAction</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragContext</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span>
<a name="line-1070"></a><span class='hs-definition'>dragContextGetAction</span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-1071"></a><span class='hs-comment'>{-# LINE 901 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1072"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unDragContext</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>40</span><span class='hs-layout'>)</span>
<a name="line-1073"></a><span class='hs-comment'>{-# LINE 902 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1074"></a>
<a name="line-1075"></a><a name="dragContextSetAction"></a><span class='hs-definition'>dragContextSetAction</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragContext</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-conid'>()</span>
<a name="line-1076"></a><span class='hs-definition'>dragContextSetAction</span> <span class='hs-varid'>dc</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unDragContext</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>-></span>
<a name="line-1077"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>40</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-1078"></a><span class='hs-comment'>{-# LINE 906 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1079"></a>
<a name="line-1080"></a><a name="dragContextGetSuggestedAction"></a><span class='hs-definition'>dragContextGetSuggestedAction</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragContext</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span>
<a name="line-1081"></a><span class='hs-definition'>dragContextGetSuggestedAction</span> <span class='hs-varid'>dc</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-1082"></a><span class='hs-comment'>{-# LINE 909 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1083"></a> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unDragContext</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>36</span><span class='hs-layout'>)</span>
<a name="line-1084"></a><span class='hs-comment'>{-# LINE 910 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1085"></a>
<a name="line-1086"></a><a name="dragContextSetSuggestedAction"></a><span class='hs-definition'>dragContextSetSuggestedAction</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DragContext</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-conid'>()</span>
<a name="line-1087"></a><span class='hs-definition'>dragContextSetSuggestedAction</span> <span class='hs-varid'>dc</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-varid'>unDragContext</span> <span class='hs-varid'>dc</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>-></span>
<a name="line-1088"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>36</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>val</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-1089"></a><span class='hs-comment'>{-# LINE 914 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1090"></a>
<a name="line-1091"></a><a name="SortColumnId"></a><span class='hs-comment'>-- | ID number of a sort column.</span>
<a name="line-1092"></a><a name="SortColumnId"></a><span class='hs-comment'>--</span>
<a name="line-1093"></a><a name="SortColumnId"></a><span class='hs-comment'>-- * A 'SortColumnId' is a logical number to which a sorting function can</span>
<a name="line-1094"></a><a name="SortColumnId"></a><span class='hs-comment'>-- be associated. The number does not have to coincide with any column</span>
<a name="line-1095"></a><a name="SortColumnId"></a><span class='hs-comment'>-- number.</span>
<a name="line-1096"></a><a name="SortColumnId"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>SortColumnId</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Int</span>
<a name="line-1097"></a>
<a name="line-1098"></a><a name="treeSortableDefaultSortColumnId"></a><span class='hs-comment'>-- | A special 'SortColumnId' to indicated that the default sorting function is used.</span>
<a name="line-1099"></a><span class='hs-comment'>--</span>
<a name="line-1100"></a><span class='hs-definition'>treeSortableDefaultSortColumnId</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SortColumnId</span>
<a name="line-1101"></a><span class='hs-definition'>treeSortableDefaultSortColumnId</span> <span class='hs-keyglyph'>=</span> <span class='hs-comment'>-</span><span class='hs-num'>1</span>
<a name="line-1102"></a><span class='hs-comment'>{-# LINE 926 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1103"></a>
<a name="line-1104"></a><a name="intToAtom"></a><span class='hs-definition'>intToAtom</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Atom</span>
<a name="line-1105"></a><span class='hs-definition'>intToAtom</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Atom</span> <span class='hs-varop'>.</span> <span class='hs-varid'>plusPtr</span> <span class='hs-varid'>nullPtr</span>
<a name="line-1106"></a>
<a name="line-1107"></a><a name="tagInvalid"></a><span class='hs-comment'>-- | An invalid 'TargetTag', 'SelectionTag', 'SelectionTypeTag' or 'PropertyTag'.</span>
<a name="line-1108"></a><span class='hs-comment'>--</span>
<a name="line-1109"></a><span class='hs-definition'>tagInvalid</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Atom</span>
<a name="line-1110"></a><span class='hs-definition'>tagInvalid</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>0</span>
<a name="line-1111"></a><span class='hs-comment'>{-# LINE 934 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1112"></a>
<a name="line-1113"></a><a name="selectionPrimary"></a><span class='hs-comment'>-- | The primary selection (the currently highlighted text in X11 that can</span>
<a name="line-1114"></a><span class='hs-comment'>-- in many applications be pasted using the middle button).</span>
<a name="line-1115"></a><span class='hs-definition'>selectionPrimary</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SelectionTag</span>
<a name="line-1116"></a><span class='hs-definition'>selectionPrimary</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>1</span>
<a name="line-1117"></a><span class='hs-comment'>{-# LINE 939 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1118"></a>
<a name="line-1119"></a><a name="selectionSecondary"></a><span class='hs-comment'>-- | The secondary selection. Rarely used.</span>
<a name="line-1120"></a><span class='hs-definition'>selectionSecondary</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SelectionTag</span>
<a name="line-1121"></a><span class='hs-definition'>selectionSecondary</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>2</span>
<a name="line-1122"></a><span class='hs-comment'>{-# LINE 943 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1123"></a>
<a name="line-1124"></a><a name="selectionClipboard"></a><span class='hs-comment'>-- | The modern clipboard that is filled by copy or cut commands.</span>
<a name="line-1125"></a><span class='hs-definition'>selectionClipboard</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SelectionTag</span>
<a name="line-1126"></a><span class='hs-definition'>selectionClipboard</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>69</span>
<a name="line-1127"></a><span class='hs-comment'>{-# LINE 947 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1128"></a>
<a name="line-1129"></a><a name="targetString"></a><span class='hs-comment'>-- | If this target is provided by a selection, then the data is a string.</span>
<a name="line-1130"></a><span class='hs-definition'>targetString</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>TargetTag</span>
<a name="line-1131"></a><span class='hs-definition'>targetString</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>31</span>
<a name="line-1132"></a><span class='hs-comment'>{-# LINE 951 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1133"></a>
<a name="line-1134"></a><a name="selectionTypeAtom"></a><span class='hs-comment'>-- | The type indicating that the associated data is itself a (list of)</span>
<a name="line-1135"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.General.Selection.Atom's.</span>
<a name="line-1136"></a><span class='hs-definition'>selectionTypeAtom</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SelectionTypeTag</span>
<a name="line-1137"></a><span class='hs-definition'>selectionTypeAtom</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>4</span>
<a name="line-1138"></a><span class='hs-comment'>{-# LINE 956 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1139"></a>
<a name="line-1140"></a><a name="selectionTypeInteger"></a><span class='hs-comment'>-- | The type indicating that the associated data consists of integers.</span>
<a name="line-1141"></a><span class='hs-definition'>selectionTypeInteger</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SelectionTypeTag</span>
<a name="line-1142"></a><span class='hs-definition'>selectionTypeInteger</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>19</span>
<a name="line-1143"></a><span class='hs-comment'>{-# LINE 960 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1144"></a>
<a name="line-1145"></a><a name="selectionTypeString"></a><span class='hs-comment'>-- | The type indicating that the associated data is a string without further</span>
<a name="line-1146"></a><span class='hs-comment'>-- information on its encoding.</span>
<a name="line-1147"></a><span class='hs-definition'>selectionTypeString</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>SelectionTypeTag</span>
<a name="line-1148"></a><span class='hs-definition'>selectionTypeString</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>intToAtom</span> <span class='hs-num'>31</span>
<a name="line-1149"></a><span class='hs-comment'>{-# LINE 965 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1150"></a>
<a name="line-1151"></a><a name="selectionDataGetType"></a><span class='hs-comment'>-- | Extract the type field of SelectionData*. This should be in the</span>
<a name="line-1152"></a><span class='hs-comment'>-- Selection modules but c2hs chokes on the 'type' field.</span>
<a name="line-1153"></a><span class='hs-definition'>selectionDataGetType</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>SelectionTypeTag</span>
<a name="line-1154"></a><span class='hs-definition'>selectionDataGetType</span> <span class='hs-varid'>selPtr</span> <span class='hs-keyglyph'>=</span>
<a name="line-1155"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>intToAtom</span> <span class='hs-varop'>$</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>selPtr</span>
<a name="line-1156"></a><span class='hs-comment'>{-# LINE 971 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1157"></a>
<a name="line-1158"></a><a name="TargetEntry"></a><span class='hs-comment'>-- A type that identifies a target. This is needed to marshal arrays of</span>
<a name="line-1159"></a><a name="TargetEntry"></a><span class='hs-comment'>-- GtkTargetEntries.</span>
<a name="line-1160"></a><a name="TargetEntry"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>TargetEntry</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>TargetEntry</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>Int8</span><span class='hs-layout'>)</span> <span class='hs-conid'>InfoId</span>
<a name="line-1161"></a><span class='hs-comment'>{-# LINE 975 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1162"></a>
<a name="line-1163"></a><span class='hs-comment'>-- brain damaged API: the whole selection API doesn't need GtkTargetEntry</span>
<a name="line-1164"></a><span class='hs-comment'>-- structure, but stupid Clipboard has two functions that only provide this</span>
<a name="line-1165"></a><span class='hs-comment'>-- interface. Thus, convert the efficient Atoms back into strings, have</span>
<a name="line-1166"></a><span class='hs-comment'>-- the clipboard functions convert them back to string before we get a</span>
<a name="line-1167"></a><span class='hs-comment'>-- chance to free the freshly allocated strings.</span>
<a name="line-1168"></a>
<a name="line-1169"></a><a name="withTargetEntries"></a><span class='hs-definition'>withTargetEntries</span> <span class='hs-keyglyph'>::</span> <span class='hs-keyglyph'>[</span><span class='hs-layout'>(</span><span class='hs-conid'>TargetTag</span><span class='hs-layout'>,</span> <span class='hs-conid'>InfoId</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</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-1170"></a><span class='hs-definition'>withTargetEntries</span> <span class='hs-varid'>tags</span> <span class='hs-varid'>fun</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-1171"></a> <span class='hs-varid'>ptrsInfo</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>mapM</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Atom</span> <span class='hs-varid'>tag</span><span class='hs-layout'>,</span> <span class='hs-varid'>info</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>gdk_atom_name</span> <span class='hs-varid'>tag</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>strPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-1172"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>TargetEntry</span> <span class='hs-varid'>strPtr</span> <span class='hs-varid'>info</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-varid'>tags</span>
<a name="line-1173"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>len</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>length</span> <span class='hs-varid'>tags</span>
<a name="line-1174"></a> <span class='hs-varid'>res</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>withArrayLen</span> <span class='hs-varid'>ptrsInfo</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>len</span> <span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fun</span> <span class='hs-varid'>len</span> <span class='hs-layout'>(</span><span class='hs-varid'>castPtr</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-1175"></a> <span class='hs-varid'>mapM_</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>TargetEntry</span> <span class='hs-varid'>ptr</span> <span class='hs-keyword'>_</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>g_free</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptrsInfo</span>
<a name="line-1176"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>res</span>
<a name="line-1177"></a>
<a name="line-1178"></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_atom_name"</span>
<a name="line-1179"></a> <span class='hs-varid'>gdk_atom_name</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</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'>Int8</span><span class='hs-layout'>)</span>
<a name="line-1180"></a><span class='hs-comment'>{-# LINE 993 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1181"></a>
<a name="line-1182"></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'>"g_free"</span>
<a name="line-1183"></a> <span class='hs-varid'>g_free</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Int8</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-1184"></a><span class='hs-comment'>{-# LINE 996 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1185"></a>
<a name="line-1186"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>TargetEntry</span> <span class='hs-keyword'>where</span>
<a name="line-1187"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>12</span>
<a name="line-1188"></a><span class='hs-comment'>{-# LINE 999 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1189"></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'>Word32</span><span class='hs-layout'>)</span>
<a name="line-1190"></a><span class='hs-comment'>{-# LINE 1000 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1191"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>ptr</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span>
<a name="line-1192"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>TargetEntry</span> <span class='hs-varid'>cPtr</span> <span class='hs-varid'>info</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-1193"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>cPtr</span>
<a name="line-1194"></a><span class='hs-comment'>{-# LINE 1003 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1195"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-1196"></a><span class='hs-comment'>{-# LINE 1004 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1197"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>info</span>
<a name="line-1198"></a><span class='hs-comment'>{-# LINE 1005 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1199"></a>
<a name="line-1200"></a><a name="KeymapKey"></a><span class='hs-comment'>-- | A 'KeymapKey' is a hardware key that can be mapped to a keyval.</span>
<a name="line-1201"></a><a name="KeymapKey"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>KeymapKey</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>KeymapKey</span> <span class='hs-layout'>{</span>
<a name="line-1202"></a> <span class='hs-varid'>keycode</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @keycode@ the hardware keycode. This is an identifying number for a physical key.</span>
<a name="line-1203"></a> <span class='hs-layout'>,</span><span class='hs-varid'>group</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @group@ indicates movement in a horizontal direction. </span>
<a name="line-1204"></a> <span class='hs-comment'>-- Usually groups are used for two different languages. </span>
<a name="line-1205"></a> <span class='hs-comment'>-- In group 0, a key might have two English characters, </span>
<a name="line-1206"></a> <span class='hs-comment'>-- and in group 1 it might have two Hebrew characters. </span>
<a name="line-1207"></a> <span class='hs-comment'>-- The Hebrew characters will be printed on the key next to the English characters. </span>
<a name="line-1208"></a> <span class='hs-comment'>-- indicates which symbol on the key will be used, </span>
<a name="line-1209"></a> <span class='hs-comment'>-- in a vertical direction. So on a standard US keyboard, the </span>
<a name="line-1210"></a> <span class='hs-layout'>,</span><span class='hs-varid'>level</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @level@ key with the number "1" on it also has the exclamation </span>
<a name="line-1211"></a> <span class='hs-comment'>-- point ("!") character on it. The level</span>
<a name="line-1212"></a> <span class='hs-comment'>-- indicates whether to use the "1" or the "!" symbol. The letter keys are considered to</span>
<a name="line-1213"></a> <span class='hs-comment'>-- have a lowercase letter at level 0, and an uppercase letter at level 1, though only</span>
<a name="line-1214"></a> <span class='hs-comment'>-- the uppercase letter is printed.</span>
<a name="line-1215"></a> <span class='hs-layout'>}</span> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Show</span><span class='hs-layout'>)</span>
<a name="line-1216"></a>
<a name="line-1217"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>KeymapKey</span> <span class='hs-keyword'>where</span>
<a name="line-1218"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>12</span>
<a name="line-1219"></a><span class='hs-comment'>{-# LINE 1025 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1220"></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'>Int32</span><span class='hs-layout'>)</span>
<a name="line-1221"></a><span class='hs-comment'>{-# LINE 1026 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1222"></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-1223"></a> <span class='hs-layout'>(</span><span class='hs-varid'>keycode_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Word32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-1224"></a><span class='hs-comment'>{-# LINE 1028 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1225"></a> <span class='hs-layout'>(</span><span class='hs-varid'>group_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-1226"></a><span class='hs-comment'>{-# LINE 1029 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1227"></a> <span class='hs-layout'>(</span><span class='hs-varid'>level_</span> <span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span>
<a name="line-1228"></a><span class='hs-comment'>{-# LINE 1030 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1229"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-conid'>KeymapKey</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>keycode_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>group_</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>level_</span><span class='hs-layout'>)</span>
<a name="line-1230"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>KeymapKey</span> <span class='hs-varid'>keycode</span> <span class='hs-varid'>group</span> <span class='hs-varid'>level</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-1231"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>keycode</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Word32</span><span class='hs-layout'>)</span>
<a name="line-1232"></a><span class='hs-comment'>{-# LINE 1033 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1233"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>group</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-1234"></a><span class='hs-comment'>{-# LINE 1034 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1235"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>hsc_ptr</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>hsc_ptr</span> <span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>level</span><span class='hs-layout'>)</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>Int32</span><span class='hs-layout'>)</span>
<a name="line-1236"></a><span class='hs-comment'>{-# LINE 1035 "Graphics/UI/Gtk/General/Structs.hsc" #-}</span>
<a name="line-1237"></a>
<a name="line-1238"></a>
</pre></body>
</html>
