<?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/Rendering/Pango/BasicTypes.hs</title> <link type='text/css' rel='stylesheet' href='hscolour.css' /> </head> <body> <pre><a name="line-1"></a> <a name="line-2"></a><span class='hs-comment'>{-# LINE 2 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-3"></a><span class='hs-comment'>{-# OPTIONS_HADDOCK hide #-}</span> <a name="line-4"></a><span class='hs-comment'>-- -*-haskell-*-</span> <a name="line-5"></a><span class='hs-comment'>-- GIMP Toolkit (GTK) - pango non-GObject types PangoTypes</span> <a name="line-6"></a><span class='hs-comment'>--</span> <a name="line-7"></a><span class='hs-comment'>-- Author : Axel Simon</span> <a name="line-8"></a><span class='hs-comment'>--</span> <a name="line-9"></a><span class='hs-comment'>-- Created: 9 Feburary 2003</span> <a name="line-10"></a><span class='hs-comment'>--</span> <a name="line-11"></a><span class='hs-comment'>-- Copyright (C) 1999-2005 Axel Simon</span> <a name="line-12"></a><span class='hs-comment'>--</span> <a name="line-13"></a><span class='hs-comment'>-- This library is free software; you can redistribute it and/or</span> <a name="line-14"></a><span class='hs-comment'>-- modify it under the terms of the GNU Lesser General Public</span> <a name="line-15"></a><span class='hs-comment'>-- License as published by the Free Software Foundation; either</span> <a name="line-16"></a><span class='hs-comment'>-- version 2.1 of the License, or (at your option) any later version.</span> <a name="line-17"></a><span class='hs-comment'>--</span> <a name="line-18"></a><span class='hs-comment'>-- This library is distributed in the hope that it will be useful,</span> <a name="line-19"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span> <a name="line-20"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span> <a name="line-21"></a><span class='hs-comment'>-- Lesser General Public License for more details.</span> <a name="line-22"></a><span class='hs-comment'>--</span> <a name="line-23"></a><span class='hs-comment'>-- #hide</span> <a name="line-24"></a> <a name="line-25"></a><span class='hs-comment'>-- |</span> <a name="line-26"></a><span class='hs-comment'>-- Maintainer : gtk2hs-users@lists.sourceforge.net</span> <a name="line-27"></a><span class='hs-comment'>-- Stability : provisional</span> <a name="line-28"></a><span class='hs-comment'>-- Portability : portable (depends on GHC)</span> <a name="line-29"></a><span class='hs-comment'>--</span> <a name="line-30"></a><span class='hs-comment'>-- Define types used in Pango which are not derived from GObject.</span> <a name="line-31"></a><span class='hs-comment'>--</span> <a name="line-32"></a><span class='hs-keyword'>module</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'>BasicTypes</span> <span class='hs-layout'>(</span> <a name="line-33"></a> <span class='hs-conid'>GInt</span><span class='hs-layout'>,</span> <a name="line-34"></a> <a name="line-35"></a> <span class='hs-conid'>Language</span><span class='hs-layout'>(</span><span class='hs-conid'>Language</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-36"></a> <span class='hs-varid'>emptyLanguage</span><span class='hs-layout'>,</span> <a name="line-37"></a> <span class='hs-varid'>languageFromString</span><span class='hs-layout'>,</span> <a name="line-38"></a> <a name="line-39"></a> <span class='hs-conid'>FontStyle</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-40"></a> <span class='hs-conid'>Weight</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-41"></a> <span class='hs-conid'>Variant</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'>Stretch</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'>Underline</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> <a name="line-45"></a> <span class='hs-conid'>PangoGravity</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-46"></a> <span class='hs-conid'>PangoGravityHint</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-47"></a> <a name="line-48"></a> <span class='hs-conid'>PangoString</span><span class='hs-layout'>(</span><span class='hs-conid'>PangoString</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-49"></a> <span class='hs-varid'>makeNewPangoString</span><span class='hs-layout'>,</span> <a name="line-50"></a> <span class='hs-varid'>withPangoString</span><span class='hs-layout'>,</span> <a name="line-51"></a> <a name="line-52"></a> <span class='hs-conid'>PangoItem</span><span class='hs-layout'>(</span><span class='hs-conid'>PangoItem</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-53"></a> <span class='hs-conid'>PangoItemRaw</span><span class='hs-layout'>(</span><span class='hs-conid'>PangoItemRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-54"></a> <span class='hs-varid'>makeNewPangoItemRaw</span><span class='hs-layout'>,</span> <a name="line-55"></a> <span class='hs-varid'>withPangoItemRaw</span><span class='hs-layout'>,</span> <a name="line-56"></a> <a name="line-57"></a> <span class='hs-conid'>GlyphItem</span><span class='hs-layout'>(</span><span class='hs-conid'>GlyphItem</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-58"></a> <span class='hs-conid'>GlyphStringRaw</span><span class='hs-layout'>(</span><span class='hs-conid'>GlyphStringRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-59"></a> <span class='hs-varid'>makeNewGlyphStringRaw</span><span class='hs-layout'>,</span> <a name="line-60"></a> <a name="line-61"></a> <span class='hs-conid'>PangoLayout</span><span class='hs-layout'>(</span><span class='hs-conid'>PangoLayout</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-62"></a> <a name="line-63"></a> <span class='hs-conid'>LayoutIter</span><span class='hs-layout'>(</span><span class='hs-conid'>LayoutIter</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-64"></a> <span class='hs-conid'>LayoutIterRaw</span><span class='hs-layout'>(</span><span class='hs-conid'>LayoutIterRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-65"></a> <span class='hs-varid'>makeNewLayoutIterRaw</span><span class='hs-layout'>,</span> <a name="line-66"></a> <a name="line-67"></a> <span class='hs-conid'>LayoutLine</span><span class='hs-layout'>(</span><span class='hs-conid'>LayoutLine</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-68"></a> <span class='hs-conid'>LayoutLineRaw</span><span class='hs-layout'>(</span><span class='hs-conid'>LayoutLineRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-69"></a> <span class='hs-varid'>makeNewLayoutLineRaw</span><span class='hs-layout'>,</span> <a name="line-70"></a> <span class='hs-conid'>FontDescription</span><span class='hs-layout'>(</span><span class='hs-conid'>FontDescription</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-71"></a> <span class='hs-varid'>makeNewFontDescription</span><span class='hs-layout'>,</span> <a name="line-72"></a> <a name="line-73"></a> <span class='hs-conid'>PangoAttrList</span><span class='hs-layout'>,</span> <a name="line-74"></a> <span class='hs-conid'>CPangoAttribute</span><span class='hs-layout'>,</span> <a name="line-75"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-76"></a> <a name="line-77"></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-78"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>IORef</span> <span class='hs-layout'>(</span> <span class='hs-conid'>IORef</span> <span class='hs-layout'>)</span> <a name="line-79"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>System</span><span class='hs-varop'>.</span><span class='hs-conid'>Glib</span><span class='hs-varop'>.</span><span class='hs-conid'>FFI</span> <a name="line-80"></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> <a name="line-81"></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'>Types</span> <span class='hs-layout'>(</span><span class='hs-conid'>Font</span><span class='hs-layout'>,</span> <span class='hs-conid'>PangoLayoutRaw</span><span class='hs-layout'>)</span> <a name="line-82"></a><span class='hs-comment'>-- {#import Graphics.Rendering.Pango.Enums#}</span> <a name="line-83"></a> <a name="line-84"></a> <a name="line-85"></a><span class='hs-comment'>{-# LINE 84 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-86"></a> <a name="line-87"></a><a name="Language"></a><span class='hs-comment'>-- | An RFC-3066 language designator to choose scripts.</span> <a name="line-88"></a><a name="Language"></a><span class='hs-comment'>--</span> <a name="line-89"></a><a name="Language"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>Language</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Language</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>Language</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-keyword'>deriving</span> <span class='hs-conid'>Eq</span> <a name="line-90"></a> <a name="line-91"></a><a name="GInt"></a><span class='hs-comment'>-- | Define the gint that c2hs is the Haskell type.</span> <a name="line-92"></a><a name="GInt"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>GInt</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span><span class='hs-layout'>)</span> <a name="line-93"></a><span class='hs-comment'>{-# LINE 91 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-94"></a> <a name="line-95"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>Language</span> <span class='hs-keyword'>where</span> <a name="line-96"></a> <span class='hs-varid'>show</span> <span class='hs-layout'>(</span><span class='hs-conid'>Language</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span> <a name="line-97"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>ptr</span><span class='hs-varop'>==</span><span class='hs-varid'>nullPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>""</span> <a name="line-98"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafePerformIO</span> <span class='hs-varop'>$</span> <span class='hs-varid'>peekUTFString</span> <span class='hs-layout'>(</span><span class='hs-varid'>castPtr</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span> <a name="line-99"></a> <a name="line-100"></a><a name="emptyLanguage"></a><span class='hs-comment'>-- | Specifying no particular language.</span> <a name="line-101"></a><span class='hs-definition'>emptyLanguage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Language</span> <a name="line-102"></a><span class='hs-definition'>emptyLanguage</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Language</span> <span class='hs-varid'>nullPtr</span> <a name="line-103"></a> <a name="line-104"></a><a name="languageFromString"></a><span class='hs-comment'>-- | Take a RFC-3066 format language tag as a string and convert it to a</span> <a name="line-105"></a><span class='hs-comment'>-- 'Language' type that can be efficiently passed around and compared with</span> <a name="line-106"></a><span class='hs-comment'>-- other language tags.</span> <a name="line-107"></a><span class='hs-comment'>--</span> <a name="line-108"></a><span class='hs-comment'>-- * This function first canonicalizes the string by converting it to</span> <a name="line-109"></a><span class='hs-comment'>-- lowercase, mapping \'_\' to \'-\', and stripping all characters</span> <a name="line-110"></a><span class='hs-comment'>-- other than letters and \'-\'.</span> <a name="line-111"></a><span class='hs-comment'>--</span> <a name="line-112"></a><span class='hs-definition'>languageFromString</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Language</span> <a name="line-113"></a><span class='hs-definition'>languageFromString</span> <span class='hs-varid'>language</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-conid'>Language</span> <span class='hs-varop'>$</span> <a name="line-114"></a> <span class='hs-varid'>withUTFString</span> <span class='hs-varid'>language</span> <span class='hs-varid'>pango_language_from_string</span> <a name="line-115"></a><span class='hs-comment'>{-# LINE 112 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-116"></a> <a name="line-117"></a><a name="FontStyle"></a><span class='hs-comment'>-- | The style of a font.</span> <a name="line-118"></a><a name="FontStyle"></a><span class='hs-comment'>--</span> <a name="line-119"></a><a name="FontStyle"></a><span class='hs-comment'>-- * 'StyleOblique' is a slanted font like 'StyleItalic',</span> <a name="line-120"></a><a name="FontStyle"></a><span class='hs-comment'>-- but in a roman style.</span> <a name="line-121"></a><a name="FontStyle"></a><span class='hs-comment'>--</span> <a name="line-122"></a><a name="FontStyle"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>FontStyle</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>StyleNormal</span> <a name="line-123"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StyleOblique</span> <a name="line-124"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StyleItalic</span> <a name="line-125"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Enum</span><span class='hs-layout'>,</span><span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-126"></a> <a name="line-127"></a><span class='hs-comment'>{-# LINE 119 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-128"></a> <a name="line-129"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>FontStyle</span> <span class='hs-keyword'>where</span> <a name="line-130"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StyleNormal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"normal"</span> <a name="line-131"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StyleOblique</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"oblique"</span> <a name="line-132"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StyleItalic</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"italic"</span> <a name="line-133"></a> <a name="line-134"></a><a name="Weight"></a><span class='hs-comment'>-- | Define attributes for 'Weight'.</span> <a name="line-135"></a><a name="Weight"></a><span class='hs-comment'>--</span> <a name="line-136"></a><a name="Weight"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Weight</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightThin</span> <a name="line-137"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightUltralight</span> <a name="line-138"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightLight</span> <a name="line-139"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightBook</span> <a name="line-140"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightNormal</span> <a name="line-141"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightMedium</span> <a name="line-142"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightSemibold</span> <a name="line-143"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightBold</span> <a name="line-144"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightUltrabold</span> <a name="line-145"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightHeavy</span> <a name="line-146"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WeightUltraheavy</span> <a name="line-147"></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-148"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Enum</span> <span class='hs-conid'>Weight</span> <span class='hs-keyword'>where</span> <a name="line-149"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightThin</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>100</span> <a name="line-150"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightUltralight</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>200</span> <a name="line-151"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightLight</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>300</span> <a name="line-152"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightBook</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>380</span> <a name="line-153"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightNormal</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>400</span> <a name="line-154"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightMedium</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>500</span> <a name="line-155"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightSemibold</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>600</span> <a name="line-156"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightBold</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>700</span> <a name="line-157"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightUltrabold</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>800</span> <a name="line-158"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightHeavy</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>900</span> <a name="line-159"></a> <span class='hs-varid'>fromEnum</span> <span class='hs-conid'>WeightUltraheavy</span> <span class='hs-keyglyph'>=</span> <span class='hs-num'>1000</span> <a name="line-160"></a> <a name="line-161"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>100</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightThin</span> <a name="line-162"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>200</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltralight</span> <a name="line-163"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>300</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightLight</span> <a name="line-164"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>380</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightBook</span> <a name="line-165"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>400</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightNormal</span> <a name="line-166"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>500</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightMedium</span> <a name="line-167"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>600</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightSemibold</span> <a name="line-168"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>700</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightBold</span> <a name="line-169"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>800</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltrabold</span> <a name="line-170"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>900</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightHeavy</span> <a name="line-171"></a> <span class='hs-varid'>toEnum</span> <span class='hs-num'>1000</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltraheavy</span> <a name="line-172"></a> <span class='hs-varid'>toEnum</span> <span class='hs-varid'>unmatched</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-layout'>(</span><span class='hs-str'>"Weight.toEnum: Cannot match "</span> <span class='hs-varop'>++</span> <span class='hs-varid'>show</span> <span class='hs-varid'>unmatched</span><span class='hs-layout'>)</span> <a name="line-173"></a> <a name="line-174"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightThin</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltralight</span> <a name="line-175"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightUltralight</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightLight</span> <a name="line-176"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightLight</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightBook</span> <a name="line-177"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightBook</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightNormal</span> <a name="line-178"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightNormal</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightMedium</span> <a name="line-179"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightMedium</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightSemibold</span> <a name="line-180"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightSemibold</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightBold</span> <a name="line-181"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightBold</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltrabold</span> <a name="line-182"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightUltrabold</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightHeavy</span> <a name="line-183"></a> <span class='hs-varid'>succ</span> <span class='hs-conid'>WeightHeavy</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltraheavy</span> <a name="line-184"></a> <span class='hs-varid'>succ</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span> <a name="line-185"></a> <a name="line-186"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightUltralight</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightThin</span> <a name="line-187"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightLight</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltralight</span> <a name="line-188"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightBook</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightLight</span> <a name="line-189"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightNormal</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightBook</span> <a name="line-190"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightMedium</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightNormal</span> <a name="line-191"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightSemibold</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightMedium</span> <a name="line-192"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightBold</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightSemibold</span> <a name="line-193"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightUltrabold</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightBold</span> <a name="line-194"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightHeavy</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightUltrabold</span> <a name="line-195"></a> <span class='hs-varid'>pred</span> <span class='hs-conid'>WeightUltraheavy</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>WeightHeavy</span> <a name="line-196"></a> <span class='hs-varid'>pred</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>undefined</span> <a name="line-197"></a> <a name="line-198"></a> <span class='hs-varid'>enumFromTo</span> <span class='hs-varid'>x</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>x</span> <span class='hs-varop'>==</span> <span class='hs-varid'>fromEnum</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyglyph'>[</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>]</span> <a name="line-199"></a> <span class='hs-keyglyph'>|</span> <span class='hs-varid'>otherwise</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>x</span> <span class='hs-conop'>:</span> <span class='hs-varid'>enumFromTo</span> <span class='hs-layout'>(</span><span class='hs-varid'>succ</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span> <span class='hs-varid'>y</span> <a name="line-200"></a> <span class='hs-varid'>enumFrom</span> <span class='hs-varid'>x</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>enumFromTo</span> <span class='hs-varid'>x</span> <span class='hs-conid'>WeightUltraheavy</span> <a name="line-201"></a> <span class='hs-varid'>enumFromThen</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"Enum Weight: enumFromThen not implemented"</span> <a name="line-202"></a> <span class='hs-varid'>enumFromThenTo</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>error</span> <span class='hs-str'>"Enum Weight: enumFromThenTo not implemented"</span> <a name="line-203"></a> <a name="line-204"></a><span class='hs-comment'>{-# LINE 128 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-205"></a> <a name="line-206"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>Weight</span> <span class='hs-keyword'>where</span> <a name="line-207"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightUltralight</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"ultralight"</span> <a name="line-208"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightLight</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"light"</span> <a name="line-209"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightNormal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"normal"</span> <a name="line-210"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightSemibold</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"semibold"</span> <a name="line-211"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightBold</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"bold"</span> <a name="line-212"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightUltrabold</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"ultrabold"</span> <a name="line-213"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightHeavy</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"heavy"</span> <a name="line-214"></a> <a name="line-215"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightThin</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"thin"</span> <a name="line-216"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightBook</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"book"</span> <a name="line-217"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightMedium</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"medium"</span> <a name="line-218"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>WeightUltraheavy</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"ultraheavy"</span> <a name="line-219"></a> <a name="line-220"></a> <a name="line-221"></a><a name="Variant"></a><span class='hs-comment'>-- | The variant of a font.</span> <a name="line-222"></a><a name="Variant"></a><span class='hs-comment'>--</span> <a name="line-223"></a><a name="Variant"></a><span class='hs-comment'>-- * The 'VariantSmallCaps' is a version of a font where lower case</span> <a name="line-224"></a><a name="Variant"></a><span class='hs-comment'>-- letters are shown as physically smaller upper case letters.</span> <a name="line-225"></a><a name="Variant"></a><span class='hs-comment'>--</span> <a name="line-226"></a><a name="Variant"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Variant</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>VariantNormal</span> <a name="line-227"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>VariantSmallCaps</span> <a name="line-228"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Enum</span><span class='hs-layout'>,</span><span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-229"></a> <a name="line-230"></a><span class='hs-comment'>{-# LINE 150 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-231"></a> <a name="line-232"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>Variant</span> <span class='hs-keyword'>where</span> <a name="line-233"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>VariantNormal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"normal"</span> <a name="line-234"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>VariantSmallCaps</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"smallcaps"</span> <a name="line-235"></a> <a name="line-236"></a><a name="Stretch"></a><span class='hs-comment'>-- | Define how wide characters are.</span> <a name="line-237"></a><a name="Stretch"></a><span class='hs-comment'>--</span> <a name="line-238"></a><a name="Stretch"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Stretch</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>StretchUltraCondensed</span> <a name="line-239"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchExtraCondensed</span> <a name="line-240"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchCondensed</span> <a name="line-241"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchSemiCondensed</span> <a name="line-242"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchNormal</span> <a name="line-243"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchSemiExpanded</span> <a name="line-244"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchExpanded</span> <a name="line-245"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchExtraExpanded</span> <a name="line-246"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>StretchUltraExpanded</span> <a name="line-247"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Enum</span><span class='hs-layout'>,</span><span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-248"></a> <a name="line-249"></a><span class='hs-comment'>{-# LINE 158 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-250"></a> <a name="line-251"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>Stretch</span> <span class='hs-keyword'>where</span> <a name="line-252"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchUltraCondensed</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"ultracondensed"</span> <a name="line-253"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchExtraCondensed</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"extracondensed"</span> <a name="line-254"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchCondensed</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"condensed"</span> <a name="line-255"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchSemiCondensed</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"semicondensed"</span> <a name="line-256"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchNormal</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"normal"</span> <a name="line-257"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchSemiExpanded</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"semiexpanded"</span> <a name="line-258"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchExpanded</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"expanded"</span> <a name="line-259"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchExtraExpanded</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"extraexpanded"</span> <a name="line-260"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>StretchUltraExpanded</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"ultraexpanded"</span> <a name="line-261"></a> <a name="line-262"></a><a name="Underline"></a><span class='hs-comment'>-- | Define attributes for 'Underline'.</span> <a name="line-263"></a><a name="Underline"></a><span class='hs-comment'>--</span> <a name="line-264"></a><a name="Underline"></a><span class='hs-comment'>-- * The squiggly underline for errors is only available in Gtk 2.4 and higher.</span> <a name="line-265"></a><a name="Underline"></a><span class='hs-comment'>--</span> <a name="line-266"></a><a name="Underline"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Underline</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>UnderlineNone</span> <a name="line-267"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>UnderlineSingle</span> <a name="line-268"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>UnderlineDouble</span> <a name="line-269"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>UnderlineLow</span> <a name="line-270"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>UnderlineError</span> <a name="line-271"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Enum</span><span class='hs-layout'>,</span><span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-272"></a> <a name="line-273"></a><span class='hs-comment'>{-# LINE 175 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-274"></a> <a name="line-275"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>Underline</span> <span class='hs-keyword'>where</span> <a name="line-276"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>UnderlineNone</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"none"</span> <a name="line-277"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>UnderlineSingle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"single"</span> <a name="line-278"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>UnderlineDouble</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"double"</span> <a name="line-279"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>UnderlineLow</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"low"</span> <a name="line-280"></a> <span class='hs-varid'>showsPrec</span> <span class='hs-keyword'>_</span> <span class='hs-conid'>UnderlineError</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>shows</span> <span class='hs-str'>"error"</span> <a name="line-281"></a> <a name="line-282"></a> <a name="line-283"></a><a name="PangoGravity"></a><span class='hs-comment'>-- | The 'PangoGravity' type represents the orientation of glyphs in a</span> <a name="line-284"></a><a name="PangoGravity"></a><span class='hs-comment'>-- segment of text. The value 'GravitySouth', for instance, indicates that the</span> <a name="line-285"></a><a name="PangoGravity"></a><span class='hs-comment'>-- text stands upright, i.e. that the base of the letter is directed</span> <a name="line-286"></a><a name="PangoGravity"></a><span class='hs-comment'>-- downwards.</span> <a name="line-287"></a><a name="PangoGravity"></a><span class='hs-comment'>--</span> <a name="line-288"></a><a name="PangoGravity"></a><span class='hs-comment'>-- This is useful when rendering vertical text layouts. In those situations,</span> <a name="line-289"></a><a name="PangoGravity"></a><span class='hs-comment'>-- the layout is rotated using a non-identity 'PangoMatrix', and then glyph</span> <a name="line-290"></a><a name="PangoGravity"></a><span class='hs-comment'>-- orientation is controlled using 'PangoGravity'. Not every value in this</span> <a name="line-291"></a><a name="PangoGravity"></a><span class='hs-comment'>-- enumeration makes sense for every usage of 'Gravity'; for example,</span> <a name="line-292"></a><a name="PangoGravity"></a><span class='hs-comment'>-- 'PangoGravityAuto' only can be passed to 'pangoContextSetBaseGravity' and</span> <a name="line-293"></a><a name="PangoGravity"></a><span class='hs-comment'>-- can only be returned by 'pangoContextGetBaseGravity'.</span> <a name="line-294"></a><a name="PangoGravity"></a><span class='hs-comment'>--</span> <a name="line-295"></a><a name="PangoGravity"></a><span class='hs-comment'>-- * See also: 'PangoGravityHint'</span> <a name="line-296"></a><a name="PangoGravity"></a><span class='hs-comment'>--</span> <a name="line-297"></a><a name="PangoGravity"></a><span class='hs-comment'>-- * Gravity is resolved from the context matrix.</span> <a name="line-298"></a><a name="PangoGravity"></a><span class='hs-comment'>--</span> <a name="line-299"></a><a name="PangoGravity"></a><span class='hs-comment'>-- * Since Pango 1.16</span> <a name="line-300"></a><a name="PangoGravity"></a><span class='hs-comment'>--</span> <a name="line-301"></a><a name="PangoGravity"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>PangoGravity</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PangoGravitySouth</span> <a name="line-302"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PangoGravityEast</span> <a name="line-303"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PangoGravityNorth</span> <a name="line-304"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PangoGravityWest</span> <a name="line-305"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PangoGravityAuto</span> <a name="line-306"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Enum</span><span class='hs-layout'>,</span><span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-307"></a> <a name="line-308"></a><span class='hs-comment'>{-# LINE 203 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-309"></a> <a name="line-310"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>PangoGravity</span> <span class='hs-keyword'>where</span> <a name="line-311"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravitySouth</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"south"</span> <a name="line-312"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravityEast</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"east"</span> <a name="line-313"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravityNorth</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"north"</span> <a name="line-314"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravityWest</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"west"</span> <a name="line-315"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravityAuto</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"auto"</span> <a name="line-316"></a> <a name="line-317"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- | The 'PangoGravityHint' defines how horizontal scripts should behave in a</span> <a name="line-318"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- vertical context.</span> <a name="line-319"></a><a name="PangoGravityHint"></a><span class='hs-comment'>--</span> <a name="line-320"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- * 'PangoGravityHintNatural': scripts will take their natural gravity based</span> <a name="line-321"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- on the base gravity and the script. This is the default.</span> <a name="line-322"></a><a name="PangoGravityHint"></a><span class='hs-comment'>--</span> <a name="line-323"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- * 'PangoGravityHintStrong': always use the base gravity set, regardless of</span> <a name="line-324"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- the script.</span> <a name="line-325"></a><a name="PangoGravityHint"></a><span class='hs-comment'>--</span> <a name="line-326"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- * 'PangoGravityHintLine': for scripts not in their natural direction (eg.</span> <a name="line-327"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- Latin in East gravity), choose per-script gravity such that every script</span> <a name="line-328"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- respects the line progression. This means, Latin and Arabic will take</span> <a name="line-329"></a><a name="PangoGravityHint"></a><span class='hs-comment'>-- opposite gravities and both flow top-to-bottom for example.</span> <a name="line-330"></a><a name="PangoGravityHint"></a><span class='hs-comment'>--</span> <a name="line-331"></a><a name="PangoGravityHint"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>PangoGravityHint</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PangoGravityHintNatural</span> <a name="line-332"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PangoGravityHintStrong</span> <a name="line-333"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>PangoGravityHintLine</span> <a name="line-334"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Enum</span><span class='hs-layout'>,</span><span class='hs-conid'>Eq</span><span class='hs-layout'>)</span> <a name="line-335"></a> <a name="line-336"></a><span class='hs-comment'>{-# LINE 226 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-337"></a> <a name="line-338"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>PangoGravityHint</span> <span class='hs-keyword'>where</span> <a name="line-339"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravityHintNatural</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"natural"</span> <a name="line-340"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravityHintStrong</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"strong"</span> <a name="line-341"></a> <span class='hs-varid'>show</span> <span class='hs-conid'>PangoGravityHintLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-str'>"line"</span> <a name="line-342"></a> <a name="line-343"></a> <a name="line-344"></a> <a name="line-345"></a><a name="PangoString"></a><span class='hs-comment'>-- A string that is stored with each GlyphString, PangoItem</span> <a name="line-346"></a><a name="PangoString"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>PangoString</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PangoString</span> <span class='hs-conid'>UTFCorrection</span> <span class='hs-conid'>CInt</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-conid'>CChar</span><span class='hs-layout'>)</span> <a name="line-347"></a> <a name="line-348"></a><a name="makeNewPangoString"></a><span class='hs-definition'>makeNewPangoString</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>String</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>PangoString</span> <a name="line-349"></a><span class='hs-definition'>makeNewPangoString</span> <span class='hs-varid'>str</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-350"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>correct</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>genUTFOfs</span> <span class='hs-varid'>str</span> <a name="line-351"></a> <span class='hs-layout'>(</span><span class='hs-varid'>strPtr</span><span class='hs-layout'>,</span> <span class='hs-varid'>len</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>newUTFStringLen</span> <span class='hs-varid'>str</span> <a name="line-352"></a> <span class='hs-keyword'>let</span> <span class='hs-varid'>cLen</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>len</span> <a name="line-353"></a> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-conid'>PangoString</span> <span class='hs-varid'>correct</span> <span class='hs-varid'>cLen</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-varid'>newForeignPtr</span> <span class='hs-varid'>strPtr</span> <span class='hs-varid'>finalizerFree</span> <a name="line-354"></a> <a name="line-355"></a><a name="withPangoString"></a><span class='hs-definition'>withPangoString</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PangoString</span> <span class='hs-keyglyph'>-></span> <a name="line-356"></a> <span class='hs-layout'>(</span><span class='hs-conid'>UTFCorrection</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>CChar</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-357"></a><span class='hs-definition'>withPangoString</span> <span class='hs-layout'>(</span><span class='hs-conid'>PangoString</span> <span class='hs-varid'>c</span> <span class='hs-varid'>l</span> <span class='hs-varid'>ptr</span><span class='hs-layout'>)</span> <span class='hs-varid'>act</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>ptr</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-358"></a> <span class='hs-varid'>act</span> <span class='hs-varid'>c</span> <span class='hs-varid'>l</span> <span class='hs-varid'>strPtr</span> <a name="line-359"></a> <a name="line-360"></a><a name="GlyphStringRaw"></a><span class='hs-comment'>-- paired with PangoString to create a Haskell GlyphString</span> <a name="line-361"></a><a name="GlyphStringRaw"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>GlyphStringRaw</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GlyphStringRaw</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>GlyphStringRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-362"></a><span class='hs-comment'>{-# LINE 251 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-363"></a> <a name="line-364"></a><a name="makeNewGlyphStringRaw"></a><span class='hs-definition'>makeNewGlyphStringRaw</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>GlyphStringRaw</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>GlyphStringRaw</span> <a name="line-365"></a><span class='hs-definition'>makeNewGlyphStringRaw</span> <span class='hs-varid'>llPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-366"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>GlyphStringRaw</span> <span class='hs-varop'>$</span> <span class='hs-varid'>newForeignPtr</span> <span class='hs-varid'>llPtr</span> <span class='hs-varid'>pango_glyph_string_free</span> <a name="line-367"></a> <a name="line-368"></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'>"&pango_glyph_string_free"</span> <a name="line-369"></a> <span class='hs-varid'>pango_glyph_string_free</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FinalizerPtr</span> <span class='hs-conid'>GlyphStringRaw</span> <a name="line-370"></a> <a name="line-371"></a><a name="PangoItemRaw"></a><span class='hs-comment'>-- paired with PangoString and UTFCorrection to create a Haskell PangoItem</span> <a name="line-372"></a><a name="PangoItemRaw"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>PangoItemRaw</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PangoItemRaw</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>PangoItemRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-373"></a><span class='hs-comment'>{-# LINE 261 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-374"></a> <a name="line-375"></a><a name="makeNewPangoItemRaw"></a><span class='hs-definition'>makeNewPangoItemRaw</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>PangoItemRaw</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>PangoItemRaw</span> <a name="line-376"></a><span class='hs-definition'>makeNewPangoItemRaw</span> <span class='hs-varid'>llPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-377"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>PangoItemRaw</span> <span class='hs-varop'>$</span> <span class='hs-varid'>newForeignPtr</span> <span class='hs-varid'>llPtr</span> <span class='hs-varid'>pango_item_free</span> <a name="line-378"></a> <a name="line-379"></a><a name="withPangoItemRaw"></a><span class='hs-definition'>withPangoItemRaw</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>PangoItemRaw</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>PangoItemRaw</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-380"></a><span class='hs-definition'>withPangoItemRaw</span> <span class='hs-layout'>(</span><span class='hs-conid'>PangoItemRaw</span> <span class='hs-varid'>pir</span><span class='hs-layout'>)</span> <span class='hs-varid'>act</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>pir</span> <span class='hs-varid'>act</span> <a name="line-381"></a> <a name="line-382"></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'>"&pango_item_free"</span> <a name="line-383"></a> <span class='hs-varid'>pango_item_free</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FinalizerPtr</span> <span class='hs-conid'>PangoItemRaw</span> <a name="line-384"></a> <a name="line-385"></a> <a name="line-386"></a><a name="GlyphItemRaw"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>GlyphItemRaw</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-387"></a><span class='hs-comment'>{-# LINE 274 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-388"></a> <a name="line-389"></a> <a name="line-390"></a><span class='hs-comment'>-- With each GlyphString we pair a UTFCorrection</span> <a name="line-391"></a><span class='hs-comment'>-- and the marshalled UTF8 string. Together, this data</span> <a name="line-392"></a><span class='hs-comment'>-- enables us to bind all functions that take or return</span> <a name="line-393"></a><span class='hs-comment'>-- indices into the CString, rather then unicode position. Note that text</span> <a name="line-394"></a><span class='hs-comment'>-- handling is particularly horrible with UTF8: Several UTF8 bytes can make</span> <a name="line-395"></a><span class='hs-comment'>-- up one Unicode character (a Haskell Char), and several Unicode characters</span> <a name="line-396"></a><span class='hs-comment'>-- can form a cluster (e.g. a letter and an accent). We protect the user from</span> <a name="line-397"></a><span class='hs-comment'>-- UTF8\/Haskell String conversions, but not from clusters.</span> <a name="line-398"></a> <a name="line-399"></a><a name="PangoItem"></a><span class='hs-comment'>-- | A sequence of characters that are rendered with the same settings.</span> <a name="line-400"></a><a name="PangoItem"></a><span class='hs-comment'>--</span> <a name="line-401"></a><a name="PangoItem"></a><span class='hs-comment'>-- * A preprocessing stage done by 'itemize' splits the input text into</span> <a name="line-402"></a><a name="PangoItem"></a><span class='hs-comment'>-- several chunks such that each chunk can be rendered with the same</span> <a name="line-403"></a><a name="PangoItem"></a><span class='hs-comment'>-- font, direction, slant, etc. Some attributes such as the color,</span> <a name="line-404"></a><a name="PangoItem"></a><span class='hs-comment'>-- underline or strikethrough do not affect a break into several</span> <a name="line-405"></a><a name="PangoItem"></a><span class='hs-comment'>-- 'PangoItem's. See also 'GlyphItem'.</span> <a name="line-406"></a><a name="PangoItem"></a><span class='hs-comment'>--</span> <a name="line-407"></a><a name="PangoItem"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>PangoItem</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PangoItem</span> <span class='hs-conid'>PangoString</span> <span class='hs-conid'>PangoItemRaw</span> <a name="line-408"></a> <a name="line-409"></a><a name="GlyphItem"></a><span class='hs-comment'>-- | A sequence of glyphs for a chunk of a string.</span> <a name="line-410"></a><a name="GlyphItem"></a><span class='hs-comment'>--</span> <a name="line-411"></a><a name="GlyphItem"></a><span class='hs-comment'>-- * A glyph item contains the graphical representation of a 'PangoItem'.</span> <a name="line-412"></a><a name="GlyphItem"></a><span class='hs-comment'>-- Clusters (like @e@ and an accent modifier) as well as legatures</span> <a name="line-413"></a><a name="GlyphItem"></a><span class='hs-comment'>-- (such as @ffi@ turning into a single letter that omits the dot over the</span> <a name="line-414"></a><a name="GlyphItem"></a><span class='hs-comment'>-- @i@) are usually represented as a single glyph.</span> <a name="line-415"></a><a name="GlyphItem"></a><span class='hs-comment'>--</span> <a name="line-416"></a><a name="GlyphItem"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>GlyphItem</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>GlyphItem</span> <span class='hs-conid'>PangoItem</span> <span class='hs-conid'>GlyphStringRaw</span> <a name="line-417"></a> <a name="line-418"></a><a name="PangoLayout"></a><span class='hs-comment'>-- | A rendered paragraph.</span> <a name="line-419"></a><a name="PangoLayout"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>PangoLayout</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>PangoLayout</span> <span class='hs-layout'>(</span><span class='hs-conid'>IORef</span> <span class='hs-conid'>PangoString</span><span class='hs-layout'>)</span> <span class='hs-conid'>PangoLayoutRaw</span> <a name="line-420"></a> <a name="line-421"></a><a name="LayoutIter"></a><span class='hs-comment'>-- | An iterator to examine a layout.</span> <a name="line-422"></a><a name="LayoutIter"></a><span class='hs-comment'>--</span> <a name="line-423"></a><a name="LayoutIter"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>LayoutIter</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LayoutIter</span> <span class='hs-layout'>(</span><span class='hs-conid'>IORef</span> <span class='hs-conid'>PangoString</span><span class='hs-layout'>)</span> <span class='hs-conid'>LayoutIterRaw</span> <a name="line-424"></a> <a name="line-425"></a><a name="LayoutIterRaw"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>LayoutIterRaw</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LayoutIterRaw</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>LayoutIterRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-426"></a><span class='hs-comment'>{-# LINE 312 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-427"></a> <a name="line-428"></a><a name="makeNewLayoutIterRaw"></a><span class='hs-definition'>makeNewLayoutIterRaw</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>LayoutIterRaw</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>LayoutIterRaw</span> <a name="line-429"></a><span class='hs-definition'>makeNewLayoutIterRaw</span> <span class='hs-varid'>liPtr</span> <span class='hs-keyglyph'>=</span> <a name="line-430"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>LayoutIterRaw</span> <span class='hs-varop'>$</span> <span class='hs-varid'>newForeignPtr</span> <span class='hs-varid'>liPtr</span> <span class='hs-varid'>layout_iter_free</span> <a name="line-431"></a> <a name="line-432"></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'>"&pango_layout_iter_free"</span> <a name="line-433"></a> <span class='hs-varid'>layout_iter_free</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FinalizerPtr</span> <span class='hs-conid'>LayoutIterRaw</span> <a name="line-434"></a> <a name="line-435"></a><a name="LayoutLine"></a><span class='hs-comment'>-- | A single line in a 'PangoLayout'.</span> <a name="line-436"></a><a name="LayoutLine"></a><span class='hs-comment'>--</span> <a name="line-437"></a><a name="LayoutLine"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>LayoutLine</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LayoutLine</span> <span class='hs-layout'>(</span><span class='hs-conid'>IORef</span> <span class='hs-conid'>PangoString</span><span class='hs-layout'>)</span> <span class='hs-conid'>LayoutLineRaw</span> <a name="line-438"></a> <a name="line-439"></a><a name="LayoutLineRaw"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>LayoutLineRaw</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LayoutLineRaw</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>LayoutLineRaw</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-440"></a><span class='hs-comment'>{-# LINE 325 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-441"></a> <a name="line-442"></a><a name="makeNewLayoutLineRaw"></a><span class='hs-definition'>makeNewLayoutLineRaw</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>LayoutLineRaw</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>LayoutLineRaw</span> <a name="line-443"></a><span class='hs-definition'>makeNewLayoutLineRaw</span> <span class='hs-varid'>llPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-444"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>LayoutLineRaw</span> <span class='hs-varop'>$</span> <span class='hs-varid'>newForeignPtr</span> <span class='hs-varid'>llPtr</span> <span class='hs-varid'>pango_layout_line_unref</span> <a name="line-445"></a> <a name="line-446"></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'>"&pango_layout_line_unref"</span> <a name="line-447"></a> <span class='hs-varid'>pango_layout_line_unref</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FinalizerPtr</span> <span class='hs-conid'>LayoutLineRaw</span> <a name="line-448"></a> <a name="line-449"></a><a name="FontDescription"></a><span class='hs-comment'>-- | A possibly partial description of font(s).</span> <a name="line-450"></a><a name="FontDescription"></a><span class='hs-comment'>--</span> <a name="line-451"></a><a name="FontDescription"></a><span class='hs-keyword'>newtype</span> <span class='hs-conid'>FontDescription</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>FontDescription</span> <span class='hs-layout'>(</span><span class='hs-conid'>ForeignPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>FontDescription</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-452"></a><span class='hs-comment'>{-# LINE 336 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-453"></a> <a name="line-454"></a><a name="makeNewFontDescription"></a><span class='hs-definition'>makeNewFontDescription</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>FontDescription</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>FontDescription</span> <a name="line-455"></a><span class='hs-definition'>makeNewFontDescription</span> <span class='hs-varid'>llPtr</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-456"></a> <span class='hs-varid'>liftM</span> <span class='hs-conid'>FontDescription</span> <span class='hs-varop'>$</span> <span class='hs-varid'>newForeignPtr</span> <span class='hs-varid'>llPtr</span> <span class='hs-varid'>pango_font_description_free</span> <a name="line-457"></a> <a name="line-458"></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'>"&pango_font_description_free"</span> <a name="line-459"></a> <span class='hs-varid'>pango_font_description_free</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>FinalizerPtr</span> <span class='hs-conid'>FontDescription</span> <a name="line-460"></a> <a name="line-461"></a><a name="PangoAttrList"></a><span class='hs-comment'>-- Attributes</span> <a name="line-462"></a><a name="PangoAttrList"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>PangoAttrList</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-463"></a><span class='hs-comment'>{-# LINE 346 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-464"></a> <a name="line-465"></a><a name="CPangoAttribute"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>CPangoAttribute</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Ptr</span> <span class='hs-layout'>(</span><span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-466"></a><span class='hs-comment'>{-# LINE 348 "./Graphics/Rendering/Pango/BasicTypes.chs" #-}</span> <a name="line-467"></a> <a name="line-468"></a><span class='hs-comment'>-- dirty hack to make PangoAttribute showable</span> <a name="line-469"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Show</span> <span class='hs-conid'>FontDescription</span> <span class='hs-keyword'>where</span> <a name="line-470"></a> <span class='hs-varid'>show</span> <span class='hs-varid'>fd</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>unsafePerformIO</span> <span class='hs-varop'>$</span> <span class='hs-keyword'>do</span> <a name="line-471"></a> <span class='hs-varid'>strPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>FontDescription</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>arg1</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr1</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>pango_font_description_to_string</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span> <span class='hs-varid'>fd</span> <a name="line-472"></a> <span class='hs-varid'>str</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekUTFString</span> <span class='hs-varid'>strPtr</span> <a name="line-473"></a> <span class='hs-varid'>g_free</span> <span class='hs-layout'>(</span><span class='hs-varid'>castPtr</span> <span class='hs-varid'>strPtr</span><span class='hs-layout'>)</span> <a name="line-474"></a> <span class='hs-varid'>return</span> <span class='hs-varid'>str</span> <a name="line-475"></a> <a name="line-476"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>safe</span> <span class='hs-str'>"pango_language_from_string"</span> <a name="line-477"></a> <span class='hs-varid'>pango_language_from_string</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>CChar</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>Language</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-478"></a> <a name="line-479"></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'>"pango_font_description_to_string"</span> <a name="line-480"></a> <span class='hs-varid'>pango_font_description_to_string</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>FontDescription</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>CChar</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-481"></a> <a name="line-482"></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-483"></a> <span class='hs-varid'>g_free</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> </pre></body> </html>