<?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/Windows/Assistant.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/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-3"></a><span class='hs-comment'>-- -*-haskell-*-</span> <a name="line-4"></a><span class='hs-comment'>-- GIMP Toolkit (GTK) Widget Assistant</span> <a name="line-5"></a><span class='hs-comment'>--</span> <a name="line-6"></a><span class='hs-comment'>-- Author : Andy Stewart</span> <a name="line-7"></a><span class='hs-comment'>--</span> <a name="line-8"></a><span class='hs-comment'>-- Created: 22 Mar 2010</span> <a name="line-9"></a><span class='hs-comment'>--</span> <a name="line-10"></a><span class='hs-comment'>-- Copyright (C) 2010 Andy Stewart</span> <a name="line-11"></a><span class='hs-comment'>--</span> <a name="line-12"></a><span class='hs-comment'>-- This library is free software; you can redistribute it and/or</span> <a name="line-13"></a><span class='hs-comment'>-- modify it under the terms of the GNU Lesser General Public</span> <a name="line-14"></a><span class='hs-comment'>-- License as published by the Free Software Foundation; either</span> <a name="line-15"></a><span class='hs-comment'>-- version 2.1 of the License, or (at your option) any later version.</span> <a name="line-16"></a><span class='hs-comment'>--</span> <a name="line-17"></a><span class='hs-comment'>-- This library is distributed in the hope that it will be useful,</span> <a name="line-18"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span> <a name="line-19"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span> <a name="line-20"></a><span class='hs-comment'>-- Lesser General Public License for more details.</span> <a name="line-21"></a><span class='hs-comment'>--</span> <a name="line-22"></a><span class='hs-comment'>-- |</span> <a name="line-23"></a><span class='hs-comment'>-- Maintainer : gtk2hs-users@lists.sourceforge.net</span> <a name="line-24"></a><span class='hs-comment'>-- Stability : provisional</span> <a name="line-25"></a><span class='hs-comment'>-- Portability : portable (depends on GHC)</span> <a name="line-26"></a><span class='hs-comment'>--</span> <a name="line-27"></a><span class='hs-comment'>-- A widget used to guide users through multi-step operations</span> <a name="line-28"></a><span class='hs-comment'>--</span> <a name="line-29"></a><span class='hs-comment'>-- * Module available since Gtk+ version 2.10</span> <a name="line-30"></a><span class='hs-comment'>--</span> <a name="line-31"></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'>Windows</span><span class='hs-varop'>.</span><span class='hs-conid'>Assistant</span> <span class='hs-layout'>(</span> <a name="line-32"></a> <a name="line-33"></a><span class='hs-comment'>-- * Detail</span> <a name="line-34"></a><span class='hs-comment'>--</span> <a name="line-35"></a><span class='hs-comment'>-- | A 'Assistant' is a widget used to represent a generally complex operation</span> <a name="line-36"></a><span class='hs-comment'>-- splitted in several steps, guiding the user through its pages and</span> <a name="line-37"></a><span class='hs-comment'>-- controlling the page flow to collect the necessary data.</span> <a name="line-38"></a> <a name="line-39"></a><span class='hs-comment'>-- ** GtkAssistant as GtkBuildable</span> <a name="line-40"></a><span class='hs-comment'>--</span> <a name="line-41"></a><span class='hs-comment'>-- | The 'Assistant' implementation of the 'Buildable' interface exposes the</span> <a name="line-42"></a><span class='hs-comment'>-- @actionArea@ as internal children with the name \"action_area\".</span> <a name="line-43"></a><span class='hs-comment'>--</span> <a name="line-44"></a><span class='hs-comment'>-- To add pages to an assistant in 'Builder', simply add it as a \<child> to</span> <a name="line-45"></a><span class='hs-comment'>-- the 'Assistant' object, and set its child properties as necessary.</span> <a name="line-46"></a> <a name="line-47"></a><span class='hs-comment'>-- * Class Hierarchy</span> <a name="line-48"></a><span class='hs-comment'>--</span> <a name="line-49"></a><span class='hs-comment'>-- |</span> <a name="line-50"></a><span class='hs-comment'>-- @</span> <a name="line-51"></a><span class='hs-comment'>-- | 'GObject'</span> <a name="line-52"></a><span class='hs-comment'>-- | +----'Object'</span> <a name="line-53"></a><span class='hs-comment'>-- | +----'Widget'</span> <a name="line-54"></a><span class='hs-comment'>-- | +----'Container'</span> <a name="line-55"></a><span class='hs-comment'>-- | +----'Bin'</span> <a name="line-56"></a><span class='hs-comment'>-- | +----'Window'</span> <a name="line-57"></a><span class='hs-comment'>-- | +----Assistant</span> <a name="line-58"></a><span class='hs-comment'>-- @</span> <a name="line-59"></a> <a name="line-60"></a> <a name="line-61"></a><span class='hs-comment'>-- * Types</span> <a name="line-62"></a> <span class='hs-conid'>Assistant</span><span class='hs-layout'>,</span> <a name="line-63"></a> <span class='hs-conid'>AssistantClass</span><span class='hs-layout'>,</span> <a name="line-64"></a> <span class='hs-varid'>castToAssistant</span><span class='hs-layout'>,</span> <a name="line-65"></a> <span class='hs-varid'>toAssistant</span><span class='hs-layout'>,</span> <a name="line-66"></a> <a name="line-67"></a><span class='hs-comment'>-- * Enums.</span> <a name="line-68"></a> <span class='hs-conid'>AssistantPageType</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <a name="line-69"></a> <a name="line-70"></a><span class='hs-comment'>-- * Constructors</span> <a name="line-71"></a> <span class='hs-varid'>assistantNew</span><span class='hs-layout'>,</span> <a name="line-72"></a> <a name="line-73"></a><span class='hs-comment'>-- * Methods</span> <a name="line-74"></a> <span class='hs-varid'>assistantGetNPages</span><span class='hs-layout'>,</span> <a name="line-75"></a> <span class='hs-varid'>assistantGetNthPage</span><span class='hs-layout'>,</span> <a name="line-76"></a> <span class='hs-varid'>assistantPrependPage</span><span class='hs-layout'>,</span> <a name="line-77"></a> <span class='hs-varid'>assistantAppendPage</span><span class='hs-layout'>,</span> <a name="line-78"></a> <span class='hs-varid'>assistantInsertPage</span><span class='hs-layout'>,</span> <a name="line-79"></a> <span class='hs-varid'>assistantSetForwardPageFunc</span><span class='hs-layout'>,</span> <a name="line-80"></a> <span class='hs-varid'>assistantAddActionWidget</span><span class='hs-layout'>,</span> <a name="line-81"></a> <span class='hs-varid'>assistantRemoveActionWidget</span><span class='hs-layout'>,</span> <a name="line-82"></a> <span class='hs-varid'>assistantUpdateButtonsState</span><span class='hs-layout'>,</span> <a name="line-83"></a> <span class='hs-varid'>assistantSetPageType</span><span class='hs-layout'>,</span> <a name="line-84"></a> <span class='hs-varid'>assistantGetPageType</span><span class='hs-layout'>,</span> <a name="line-85"></a> <span class='hs-varid'>assistantSetPageTitle</span><span class='hs-layout'>,</span> <a name="line-86"></a> <span class='hs-varid'>assistantGetPageTitle</span><span class='hs-layout'>,</span> <a name="line-87"></a> <span class='hs-varid'>assistantSetPageHeaderImage</span><span class='hs-layout'>,</span> <a name="line-88"></a> <span class='hs-varid'>assistantGetPageHeaderImage</span><span class='hs-layout'>,</span> <a name="line-89"></a> <span class='hs-varid'>assistantSetPageSideImage</span><span class='hs-layout'>,</span> <a name="line-90"></a> <span class='hs-varid'>assistantGetPageSideImage</span><span class='hs-layout'>,</span> <a name="line-91"></a> <span class='hs-varid'>assistantSetPageComplete</span><span class='hs-layout'>,</span> <a name="line-92"></a> <span class='hs-varid'>assistantGetPageComplete</span><span class='hs-layout'>,</span> <a name="line-93"></a> <a name="line-94"></a> <span class='hs-varid'>assistantCommit</span><span class='hs-layout'>,</span> <a name="line-95"></a> <a name="line-96"></a> <a name="line-97"></a><span class='hs-comment'>-- * Attributes</span> <a name="line-98"></a> <span class='hs-varid'>assistantCurrentPage</span><span class='hs-layout'>,</span> <a name="line-99"></a> <a name="line-100"></a><span class='hs-comment'>-- * Child Attributes</span> <a name="line-101"></a> <span class='hs-varid'>assistantChildPageType</span><span class='hs-layout'>,</span> <a name="line-102"></a> <span class='hs-varid'>assistantChildTitle</span><span class='hs-layout'>,</span> <a name="line-103"></a> <span class='hs-varid'>assistantChildHeaderImage</span><span class='hs-layout'>,</span> <a name="line-104"></a> <span class='hs-varid'>assistantChildSidebarImage</span><span class='hs-layout'>,</span> <a name="line-105"></a> <span class='hs-varid'>assistantChildComplete</span><span class='hs-layout'>,</span> <a name="line-106"></a> <a name="line-107"></a><span class='hs-comment'>-- * Signals</span> <a name="line-108"></a> <span class='hs-varid'>assistantCancel</span><span class='hs-layout'>,</span> <a name="line-109"></a> <span class='hs-varid'>assistantPrepare</span><span class='hs-layout'>,</span> <a name="line-110"></a> <span class='hs-varid'>assistantApply</span><span class='hs-layout'>,</span> <a name="line-111"></a> <span class='hs-varid'>assistantClose</span><span class='hs-layout'>,</span> <a name="line-112"></a> <a name="line-113"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span> <a name="line-114"></a> <a name="line-115"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <span class='hs-layout'>(</span><span class='hs-varid'>liftM</span><span class='hs-layout'>,</span> <span class='hs-varid'>unless</span><span class='hs-layout'>)</span> <a name="line-116"></a> <a name="line-117"></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-118"></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-119"></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'>Attributes</span> <a name="line-120"></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'>Properties</span> <a name="line-121"></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-122"></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-123"></a><span class='hs-comment'>{-# LINE 122 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-124"></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'>Signals</span> <a name="line-125"></a><span class='hs-comment'>{-# LINE 123 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-126"></a> <a name="line-127"></a> <a name="line-128"></a><span class='hs-comment'>{-# LINE 125 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-129"></a> <a name="line-130"></a> <a name="line-131"></a><a name="AssistantPageType"></a><span class='hs-comment'>--------------------</span> <a name="line-132"></a><a name="AssistantPageType"></a><span class='hs-comment'>-- Enum</span> <a name="line-133"></a><a name="AssistantPageType"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>AssistantPageType</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>AssistantPageContent</span> <a name="line-134"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AssistantPageIntro</span> <a name="line-135"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AssistantPageConfirm</span> <a name="line-136"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AssistantPageSummary</span> <a name="line-137"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AssistantPageProgress</span> <a name="line-138"></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'>Bounded</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-139"></a> <a name="line-140"></a><span class='hs-comment'>{-# LINE 130 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-141"></a> <a name="line-142"></a><span class='hs-comment'>--------------------</span> <a name="line-143"></a><span class='hs-comment'>-- Constructors</span> <a name="line-144"></a> <a name="line-145"></a><a name="assistantNew"></a><span class='hs-comment'>-- | Creates a new 'Assistant'.</span> <a name="line-146"></a><span class='hs-comment'>--</span> <a name="line-147"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-148"></a><span class='hs-comment'>--</span> <a name="line-149"></a><span class='hs-definition'>assistantNew</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Assistant</span> <a name="line-150"></a><span class='hs-definition'>assistantNew</span> <span class='hs-keyglyph'>=</span> <a name="line-151"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkAssistant</span> <span class='hs-varop'>$</span> <a name="line-152"></a> <span class='hs-varid'>liftM</span> <span class='hs-layout'>(</span><span class='hs-varid'>castPtr</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Widget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Ptr</span> <span class='hs-conid'>Assistant</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-153"></a> <span class='hs-varid'>gtk_assistant_new</span> <a name="line-154"></a><span class='hs-comment'>{-# LINE 143 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-155"></a> <a name="line-156"></a><span class='hs-comment'>--------------------</span> <a name="line-157"></a><span class='hs-comment'>-- Methods</span> <a name="line-158"></a> <a name="line-159"></a><a name="assistantGetCurrentPage"></a><span class='hs-comment'>-- | Returns the page number of the current page</span> <a name="line-160"></a><span class='hs-comment'>--</span> <a name="line-161"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-162"></a><span class='hs-comment'>--</span> <a name="line-163"></a><span class='hs-definition'>assistantGetCurrentPage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-164"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ returns The index (starting from 0) of the current page in the</span> <a name="line-165"></a> <span class='hs-comment'>-- @assistant@, if the @assistant@ has no pages, -1 will be returned</span> <a name="line-166"></a><span class='hs-definition'>assistantGetCurrentPage</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span> <a name="line-167"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <a name="line-168"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</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'>gtk_assistant_get_current_page</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span> <a name="line-169"></a><span class='hs-comment'>{-# LINE 157 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-170"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-171"></a> <a name="line-172"></a><a name="assistantSetCurrentPage"></a><span class='hs-comment'>-- | Switches the page to @pageNum@. Note that this will only be necessary in custom buttons, as the</span> <a name="line-173"></a><span class='hs-comment'>-- assistant flow can be set with 'assistantSetForwardPageFunc'.</span> <a name="line-174"></a><span class='hs-comment'>--</span> <a name="line-175"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-176"></a><span class='hs-comment'>--</span> <a name="line-177"></a><span class='hs-definition'>assistantSetCurrentPage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-178"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @pageNum@ - index of the page to switch to, starting from 0. If</span> <a name="line-179"></a> <span class='hs-comment'>-- negative, the last page will be used. If greater than the number of</span> <a name="line-180"></a> <span class='hs-comment'>-- pages in the @assistant@, nothing will be done.</span> <a name="line-181"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-182"></a><span class='hs-definition'>assistantSetCurrentPage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>pageNum</span> <span class='hs-keyglyph'>=</span> <a name="line-183"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg2</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>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'>gtk_assistant_set_current_page</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <a name="line-184"></a><span class='hs-comment'>{-# LINE 171 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-185"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-186"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>pageNum</span><span class='hs-layout'>)</span> <a name="line-187"></a> <a name="line-188"></a><a name="assistantGetNPages"></a><span class='hs-comment'>-- | Returns the number of pages in the @assistant@</span> <a name="line-189"></a><span class='hs-comment'>--</span> <a name="line-190"></a><span class='hs-comment'>--</span> <a name="line-191"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-192"></a><span class='hs-comment'>--</span> <a name="line-193"></a><span class='hs-definition'>assistantGetNPages</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-194"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ returns The number of pages in the @assistant@.</span> <a name="line-195"></a><span class='hs-definition'>assistantGetNPages</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span> <a name="line-196"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <a name="line-197"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</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'>gtk_assistant_get_n_pages</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span> <a name="line-198"></a><span class='hs-comment'>{-# LINE 184 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-199"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-200"></a> <a name="line-201"></a><a name="assistantGetNthPage"></a><span class='hs-comment'>-- | Returns the child widget contained in page number @pageNum@.</span> <a name="line-202"></a><span class='hs-comment'>--</span> <a name="line-203"></a><span class='hs-comment'>--</span> <a name="line-204"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-205"></a><span class='hs-comment'>--</span> <a name="line-206"></a><span class='hs-definition'>assistantGetNthPage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-207"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @pageNum@ - The index of a page in the @assistant@, or -1</span> <a name="line-208"></a> <span class='hs-comment'>-- to get the last page;</span> <a name="line-209"></a> <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'>Widget</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ returns The child widget, or 'Nothing' if @pageNum@ is out of bounds.</span> <a name="line-210"></a><span class='hs-definition'>assistantGetNthPage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>pageNum</span> <span class='hs-keyglyph'>=</span> <a name="line-211"></a> <span class='hs-varid'>maybeNull</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkWidget</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-212"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg2</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>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'>gtk_assistant_get_nth_page</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <a name="line-213"></a><span class='hs-comment'>{-# LINE 198 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-214"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-215"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>pageNum</span><span class='hs-layout'>)</span> <a name="line-216"></a> <a name="line-217"></a><a name="assistantPrependPage"></a><span class='hs-comment'>-- | Prepends a page to the @assistant@.</span> <a name="line-218"></a><span class='hs-comment'>--</span> <a name="line-219"></a><span class='hs-comment'>--</span> <a name="line-220"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-221"></a><span class='hs-comment'>--</span> <a name="line-222"></a><span class='hs-definition'>assistantPrependPage</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-223"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a 'Widget'</span> <a name="line-224"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ returns the index (starting at 0) of the inserted page</span> <a name="line-225"></a><span class='hs-definition'>assistantPrependPage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-keyglyph'>=</span> <a name="line-226"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <a name="line-227"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_prepend_page</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-228"></a><span class='hs-comment'>{-# LINE 212 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-229"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-230"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-231"></a> <a name="line-232"></a><a name="assistantAppendPage"></a><span class='hs-comment'>-- | Appends a page to the @assistant@.</span> <a name="line-233"></a><span class='hs-comment'>--</span> <a name="line-234"></a><span class='hs-comment'>--</span> <a name="line-235"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-236"></a><span class='hs-comment'>--</span> <a name="line-237"></a><span class='hs-definition'>assistantAppendPage</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-238"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a 'Widget'</span> <a name="line-239"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ returns the index (starting at 0) of the inserted page</span> <a name="line-240"></a><span class='hs-definition'>assistantAppendPage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-keyglyph'>=</span> <a name="line-241"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <a name="line-242"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_append_page</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-243"></a><span class='hs-comment'>{-# LINE 226 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-244"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-245"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-246"></a> <a name="line-247"></a><a name="assistantInsertPage"></a><span class='hs-comment'>-- | Inserts a page in the @assistant@ at a given position.</span> <a name="line-248"></a><span class='hs-comment'>--</span> <a name="line-249"></a><span class='hs-comment'>--</span> <a name="line-250"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-251"></a><span class='hs-comment'>--</span> <a name="line-252"></a><span class='hs-definition'>assistantInsertPage</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-253"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a 'Widget'</span> <a name="line-254"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @position@ - the index (starting at 0) at which to insert the</span> <a name="line-255"></a> <span class='hs-comment'>-- page, or -1 to append the page to the @assistant@</span> <a name="line-256"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ returns the index (starting from 0) of the inserted page</span> <a name="line-257"></a><span class='hs-definition'>assistantInsertPage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-varid'>position</span> <span class='hs-keyglyph'>=</span> <a name="line-258"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span> <a name="line-259"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg3</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_insert_page</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>arg3</span><span class='hs-layout'>)</span> <a name="line-260"></a><span class='hs-comment'>{-# LINE 242 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-261"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-262"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-263"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>position</span><span class='hs-layout'>)</span> <a name="line-264"></a> <a name="line-265"></a><a name="assistantSetForwardPageFunc"></a><span class='hs-comment'>-- | Sets the page forwarding function to be @pageFunc@, this function will be</span> <a name="line-266"></a><span class='hs-comment'>-- used to determine what will be the next page when the user presses the</span> <a name="line-267"></a><span class='hs-comment'>-- forward button. Setting @pageFunc@ to 'Nothing' will make the assistant to use the</span> <a name="line-268"></a><span class='hs-comment'>-- default forward function, which just goes to the next visible page.</span> <a name="line-269"></a><span class='hs-comment'>--</span> <a name="line-270"></a><span class='hs-comment'>--</span> <a name="line-271"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-272"></a><span class='hs-comment'>--</span> <a name="line-273"></a><span class='hs-definition'>assistantSetForwardPageFunc</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-274"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Maybe</span> <span class='hs-layout'>(</span><span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ @pageFunc@ - the 'AssistantPage', or 'Nothing' to use the default one.</span> <a name="line-275"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-276"></a><span class='hs-definition'>assistantSetForwardPageFunc</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-277"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg2</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</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'>gtk_assistant_set_forward_page_func</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</span><span class='hs-layout'>)</span> <a name="line-278"></a><span class='hs-comment'>{-# LINE 259 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-279"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-280"></a> <span class='hs-varid'>nullFunPtr</span> <a name="line-281"></a> <span class='hs-layout'>(</span><span class='hs-varid'>castFunPtrToPtr</span> <span class='hs-varid'>nullFunPtr</span><span class='hs-layout'>)</span> <a name="line-282"></a> <span class='hs-varid'>destroyFunPtr</span> <a name="line-283"></a> <a name="line-284"></a><span class='hs-definition'>assistantSetForwardPageFunc</span> <span class='hs-varid'>self</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>pageFunc</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span> <a name="line-285"></a> <span class='hs-varid'>pfPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>mkAssistantPageFunc</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span> <span class='hs-varid'>c</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span> <a name="line-286"></a> <span class='hs-varid'>result</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>pageFunc</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>c</span><span class='hs-layout'>)</span> <a name="line-287"></a> <span class='hs-varid'>return</span> <span class='hs-varop'>$</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>result</span> <a name="line-288"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg2</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</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'>gtk_assistant_set_forward_page_func</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</span><span class='hs-layout'>)</span> <a name="line-289"></a><span class='hs-comment'>{-# LINE 269 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-290"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-291"></a> <span class='hs-varid'>pfPtr</span> <a name="line-292"></a> <span class='hs-layout'>(</span><span class='hs-varid'>castFunPtrToPtr</span> <span class='hs-varid'>pfPtr</span><span class='hs-layout'>)</span> <a name="line-293"></a> <span class='hs-varid'>destroyFunPtr</span> <a name="line-294"></a> <a name="line-295"></a><a name="AssistantPageFunc"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>AssistantPageFunc</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>FunPtr</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-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'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-296"></a><span class='hs-comment'>{-# LINE 275 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-297"></a> <a name="line-298"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-str'>"wrapper"</span> <span class='hs-varid'>mkAssistantPageFunc</span> <span class='hs-keyglyph'>::</span> <a name="line-299"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>CLong</span><span class='hs-layout'>)</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'>CLong</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-300"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>AssistantPageFunc</span> <a name="line-301"></a> <a name="line-302"></a><a name="assistantSetPageType"></a><span class='hs-comment'>-- | Sets the page type for @page@. The page type determines the page behavior</span> <a name="line-303"></a><span class='hs-comment'>-- in the @assistant@.</span> <a name="line-304"></a><span class='hs-comment'>--</span> <a name="line-305"></a><span class='hs-comment'>--</span> <a name="line-306"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-307"></a><span class='hs-comment'>--</span> <a name="line-308"></a><span class='hs-definition'>assistantSetPageType</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-309"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-310"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>AssistantPageType</span> <span class='hs-comment'>-- ^ @type@ - the new type for @page@</span> <a name="line-311"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-312"></a><span class='hs-definition'>assistantSetPageType</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-varid'>type_</span> <span class='hs-keyglyph'>=</span> <a name="line-313"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg3</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_set_page_type</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>arg3</span><span class='hs-layout'>)</span> <a name="line-314"></a><span class='hs-comment'>{-# LINE 292 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-315"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-316"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-317"></a> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>.</span> <span class='hs-varid'>fromEnum</span><span class='hs-layout'>)</span> <span class='hs-varid'>type_</span><span class='hs-layout'>)</span> <a name="line-318"></a> <a name="line-319"></a><a name="assistantGetPageType"></a><span class='hs-comment'>-- | Gets the page type of @page@.</span> <a name="line-320"></a><span class='hs-comment'>--</span> <a name="line-321"></a><span class='hs-comment'>--</span> <a name="line-322"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-323"></a><span class='hs-comment'>--</span> <a name="line-324"></a><span class='hs-definition'>assistantGetPageType</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-325"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-326"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>AssistantPageType</span> <span class='hs-comment'>-- ^ returns the page type of @page@.</span> <a name="line-327"></a><span class='hs-definition'>assistantGetPageType</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-keyglyph'>=</span> <a name="line-328"></a> <span class='hs-varid'>liftM</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-varop'>$</span> <a name="line-329"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_get_page_type</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-330"></a><span class='hs-comment'>{-# LINE 307 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-331"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-332"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-333"></a> <a name="line-334"></a><a name="assistantSetPageTitle"></a><span class='hs-comment'>-- | Sets a title for @page@. The title is displayed in the header area of the</span> <a name="line-335"></a><span class='hs-comment'>-- assistant when @page@ is the current page.</span> <a name="line-336"></a><span class='hs-comment'>--</span> <a name="line-337"></a><span class='hs-comment'>--</span> <a name="line-338"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-339"></a><span class='hs-comment'>--</span> <a name="line-340"></a><span class='hs-definition'>assistantSetPageTitle</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-341"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-342"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- ^ @title@ - the new title for @page@</span> <a name="line-343"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-344"></a><span class='hs-definition'>assistantSetPageTitle</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-varid'>title</span> <span class='hs-keyglyph'>=</span> <a name="line-345"></a> <span class='hs-varid'>withUTFString</span> <span class='hs-varid'>title</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>titlePtr</span> <span class='hs-keyglyph'>-></span> <a name="line-346"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg3</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_set_page_title</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>arg3</span><span class='hs-layout'>)</span> <a name="line-347"></a><span class='hs-comment'>{-# LINE 323 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-348"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-349"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-350"></a> <span class='hs-varid'>titlePtr</span> <a name="line-351"></a> <a name="line-352"></a><a name="assistantGetPageTitle"></a><span class='hs-comment'>-- | Gets the title for @page@.</span> <a name="line-353"></a><span class='hs-comment'>--</span> <a name="line-354"></a><span class='hs-comment'>--</span> <a name="line-355"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-356"></a><span class='hs-comment'>--</span> <a name="line-357"></a><span class='hs-definition'>assistantGetPageTitle</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-358"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-359"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- ^ returns the title for @page@.</span> <a name="line-360"></a><span class='hs-definition'>assistantGetPageTitle</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-keyglyph'>=</span> <a name="line-361"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_get_page_title</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-362"></a><span class='hs-comment'>{-# LINE 337 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-363"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-364"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-365"></a> <span class='hs-varop'>>>=</span> <span class='hs-varid'>peekUTFString</span> <a name="line-366"></a> <a name="line-367"></a><a name="assistantSetPageHeaderImage"></a><span class='hs-comment'>-- | Sets a header image for @page@. This image is displayed in the header</span> <a name="line-368"></a><span class='hs-comment'>-- area of the assistant when @page@ is the current page.</span> <a name="line-369"></a><span class='hs-comment'>--</span> <a name="line-370"></a><span class='hs-comment'>--</span> <a name="line-371"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-372"></a><span class='hs-comment'>--</span> <a name="line-373"></a><span class='hs-definition'>assistantSetPageHeaderImage</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-374"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-375"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Pixbuf</span> <span class='hs-comment'>-- ^ @pixbuf@ - the new header image @page@</span> <a name="line-376"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-377"></a><span class='hs-definition'>assistantSetPageHeaderImage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-varid'>pixbuf</span> <span class='hs-keyglyph'>=</span> <a name="line-378"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Pixbuf</span> <span class='hs-varid'>arg3</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>arg3</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr3</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_set_page_header_image</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>argPtr3</span><span class='hs-layout'>)</span> <a name="line-379"></a><span class='hs-comment'>{-# LINE 353 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-380"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-381"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-382"></a> <span class='hs-varid'>pixbuf</span> <a name="line-383"></a> <a name="line-384"></a><a name="assistantGetPageHeaderImage"></a><span class='hs-comment'>-- | Gets the header image for @page@.</span> <a name="line-385"></a><span class='hs-comment'>--</span> <a name="line-386"></a><span class='hs-comment'>--</span> <a name="line-387"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-388"></a><span class='hs-comment'>--</span> <a name="line-389"></a><span class='hs-definition'>assistantGetPageHeaderImage</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-390"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-391"></a> <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'>Pixbuf</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ returns the header image for @page@, or 'Nothing' if there's no header image for the page.</span> <a name="line-392"></a><span class='hs-definition'>assistantGetPageHeaderImage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-keyglyph'>=</span> <a name="line-393"></a> <span class='hs-varid'>maybeNull</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkPixbuf</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-394"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_get_page_header_image</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-395"></a><span class='hs-comment'>{-# LINE 368 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-396"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-397"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-398"></a> <a name="line-399"></a><a name="assistantSetPageSideImage"></a><span class='hs-comment'>-- | Sets a header image for @page@. This image is displayed in the side area</span> <a name="line-400"></a><span class='hs-comment'>-- of the assistant when @page@ is the current page.</span> <a name="line-401"></a><span class='hs-comment'>--</span> <a name="line-402"></a><span class='hs-comment'>--</span> <a name="line-403"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-404"></a><span class='hs-comment'>--</span> <a name="line-405"></a><span class='hs-definition'>assistantSetPageSideImage</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-406"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-407"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Pixbuf</span> <span class='hs-comment'>-- ^ @pixbuf@ - the new header image @page@</span> <a name="line-408"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-409"></a><span class='hs-definition'>assistantSetPageSideImage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-varid'>pixbuf</span> <span class='hs-keyglyph'>=</span> <a name="line-410"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Pixbuf</span> <span class='hs-varid'>arg3</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>withForeignPtr</span> <span class='hs-varid'>arg3</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr3</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_set_page_side_image</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>argPtr3</span><span class='hs-layout'>)</span> <a name="line-411"></a><span class='hs-comment'>{-# LINE 383 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-412"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-413"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-414"></a> <span class='hs-varid'>pixbuf</span> <a name="line-415"></a> <a name="line-416"></a><a name="assistantGetPageSideImage"></a><span class='hs-comment'>-- | Gets the header image for @page@.</span> <a name="line-417"></a><span class='hs-comment'>--</span> <a name="line-418"></a><span class='hs-comment'>--</span> <a name="line-419"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-420"></a><span class='hs-comment'>--</span> <a name="line-421"></a><span class='hs-definition'>assistantGetPageSideImage</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-422"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-423"></a> <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'>Pixbuf</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ returns the side image for @page@, or 'Nothing' if there's no side image for the page.</span> <a name="line-424"></a><span class='hs-definition'>assistantGetPageSideImage</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-keyglyph'>=</span> <a name="line-425"></a> <span class='hs-varid'>maybeNull</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkPixbuf</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <a name="line-426"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_get_page_side_image</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-427"></a><span class='hs-comment'>{-# LINE 398 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-428"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-429"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-430"></a> <a name="line-431"></a><a name="assistantSetPageComplete"></a><span class='hs-comment'>-- | Sets whether @page@ contents are complete. This will make @assistant@</span> <a name="line-432"></a><span class='hs-comment'>-- update the buttons state to be able to continue the task.</span> <a name="line-433"></a><span class='hs-comment'>--</span> <a name="line-434"></a><span class='hs-comment'>--</span> <a name="line-435"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-436"></a><span class='hs-comment'>--</span> <a name="line-437"></a><span class='hs-definition'>assistantSetPageComplete</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-438"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-439"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ @complete@ - the completeness status of the page</span> <a name="line-440"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-441"></a><span class='hs-definition'>assistantSetPageComplete</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-varid'>complete</span> <span class='hs-keyglyph'>=</span> <a name="line-442"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg3</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_set_page_complete</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>arg3</span><span class='hs-layout'>)</span> <a name="line-443"></a><span class='hs-comment'>{-# LINE 413 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-444"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-445"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-446"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-varid'>complete</span><span class='hs-layout'>)</span> <a name="line-447"></a> <a name="line-448"></a><a name="assistantGetPageComplete"></a><span class='hs-comment'>-- | Gets whether @page@ is complete.</span> <a name="line-449"></a><span class='hs-comment'>--</span> <a name="line-450"></a><span class='hs-comment'>--</span> <a name="line-451"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-452"></a><span class='hs-comment'>--</span> <a name="line-453"></a><span class='hs-definition'>assistantGetPageComplete</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-454"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>page</span> <span class='hs-comment'>-- ^ @page@ - a page of @assistant@</span> <a name="line-455"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ returns @True@ if @page@ is complete.</span> <a name="line-456"></a><span class='hs-definition'>assistantGetPageComplete</span> <span class='hs-varid'>self</span> <span class='hs-varid'>page</span> <span class='hs-keyglyph'>=</span> <a name="line-457"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span> <a name="line-458"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_get_page_complete</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-459"></a><span class='hs-comment'>{-# LINE 428 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-460"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-461"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>page</span><span class='hs-layout'>)</span> <a name="line-462"></a> <a name="line-463"></a> <a name="line-464"></a><a name="assistantCommit"></a><span class='hs-comment'>-- | Erases the visited page history so the back button is not shown on the current page, and removes the</span> <a name="line-465"></a><span class='hs-comment'>-- cancel button from subsequent pages.</span> <a name="line-466"></a><span class='hs-comment'>--</span> <a name="line-467"></a><span class='hs-comment'>-- Use this when the information provided up to the current page is hereafter deemed permanent and</span> <a name="line-468"></a><span class='hs-comment'>-- cannot be modified or undone. For example, showing a progress page to track a long-running,</span> <a name="line-469"></a><span class='hs-comment'>-- unreversible operation after the user has clicked apply on a confirmation page.</span> <a name="line-470"></a><span class='hs-comment'>--</span> <a name="line-471"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.22</span> <a name="line-472"></a><span class='hs-comment'>--</span> <a name="line-473"></a><span class='hs-definition'>assistantCommit</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-474"></a><span class='hs-definition'>assistantCommit</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span> <a name="line-475"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</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'>gtk_assistant_commit</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-476"></a> <a name="line-477"></a> <a name="line-478"></a><a name="assistantAddActionWidget"></a><span class='hs-comment'>-- | Adds a widget to the action area of a 'Assistant'.</span> <a name="line-479"></a><span class='hs-comment'>--</span> <a name="line-480"></a><span class='hs-comment'>--</span> <a name="line-481"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-482"></a><span class='hs-comment'>--</span> <a name="line-483"></a><span class='hs-definition'>assistantAddActionWidget</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>child</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-484"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>child</span> <span class='hs-comment'>-- ^ @child@ - a 'Widget'</span> <a name="line-485"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-486"></a><span class='hs-definition'>assistantAddActionWidget</span> <span class='hs-varid'>self</span> <span class='hs-varid'>child</span> <span class='hs-keyglyph'>=</span> <a name="line-487"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_add_action_widget</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-488"></a><span class='hs-comment'>{-# LINE 456 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-489"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-490"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>child</span><span class='hs-layout'>)</span> <a name="line-491"></a> <a name="line-492"></a><a name="assistantRemoveActionWidget"></a><span class='hs-comment'>-- | Removes a widget from the action area of a 'Assistant'.</span> <a name="line-493"></a><span class='hs-comment'>--</span> <a name="line-494"></a><span class='hs-comment'>--</span> <a name="line-495"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-496"></a><span class='hs-comment'>--</span> <a name="line-497"></a><span class='hs-definition'>assistantRemoveActionWidget</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>child</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <a name="line-498"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>child</span> <span class='hs-comment'>-- ^ @child@ - a 'Widget'</span> <a name="line-499"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-500"></a><span class='hs-definition'>assistantRemoveActionWidget</span> <span class='hs-varid'>self</span> <span class='hs-varid'>child</span> <span class='hs-keyglyph'>=</span> <a name="line-501"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-varid'>arg2</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'>withForeignPtr</span> <span class='hs-varid'>arg2</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>argPtr2</span> <span class='hs-keyglyph'>-></span><span class='hs-varid'>gtk_assistant_remove_action_widget</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span> <a name="line-502"></a><span class='hs-comment'>{-# LINE 469 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-503"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-504"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>child</span><span class='hs-layout'>)</span> <a name="line-505"></a> <a name="line-506"></a><a name="assistantUpdateButtonsState"></a><span class='hs-comment'>-- | Forces @assistant@ to recompute the buttons state.</span> <a name="line-507"></a><span class='hs-comment'>--</span> <a name="line-508"></a><span class='hs-comment'>-- Gtk+ automatically takes care of this in most situations, e.g. when the</span> <a name="line-509"></a><span class='hs-comment'>-- user goes to a different page, or when the visibility or completeness of a</span> <a name="line-510"></a><span class='hs-comment'>-- page changes.</span> <a name="line-511"></a><span class='hs-comment'>--</span> <a name="line-512"></a><span class='hs-comment'>-- One situation where it can be necessary to call this function is when</span> <a name="line-513"></a><span class='hs-comment'>-- changing a value on the current page affects the future page flow of the</span> <a name="line-514"></a><span class='hs-comment'>-- assistant.</span> <a name="line-515"></a><span class='hs-comment'>--</span> <a name="line-516"></a><span class='hs-comment'>--</span> <a name="line-517"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-518"></a><span class='hs-comment'>--</span> <a name="line-519"></a><span class='hs-definition'>assistantUpdateButtonsState</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span> <a name="line-520"></a><span class='hs-definition'>assistantUpdateButtonsState</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span> <a name="line-521"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Assistant</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'>gtk_assistant_update_buttons_state</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span> <a name="line-522"></a><span class='hs-comment'>{-# LINE 488 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-523"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toAssistant</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span> <a name="line-524"></a> <a name="line-525"></a><span class='hs-comment'>--------------------</span> <a name="line-526"></a><span class='hs-comment'>-- Attributes</span> <a name="line-527"></a> <a name="line-528"></a><a name="assistantCurrentPage"></a><span class='hs-comment'>-- | Switches the page to @pageNum@. Note that this will only be necessary in</span> <a name="line-529"></a><span class='hs-comment'>-- custom buttons, as the @assistant@ flow can be set with</span> <a name="line-530"></a><span class='hs-comment'>-- 'assistantSetForwardPageFunc'.</span> <a name="line-531"></a><span class='hs-comment'>--</span> <a name="line-532"></a><span class='hs-comment'>-- Returns the page number of the current page</span> <a name="line-533"></a><span class='hs-comment'>--</span> <a name="line-534"></a><span class='hs-comment'>--</span> <a name="line-535"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-536"></a><span class='hs-comment'>--</span> <a name="line-537"></a><span class='hs-definition'>assistantCurrentPage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Attr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Int</span> <a name="line-538"></a><span class='hs-definition'>assistantCurrentPage</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newAttr</span> <a name="line-539"></a> <span class='hs-varid'>assistantGetCurrentPage</span> <a name="line-540"></a> <span class='hs-varid'>assistantSetCurrentPage</span> <a name="line-541"></a> <a name="line-542"></a><span class='hs-comment'>--------------------</span> <a name="line-543"></a><span class='hs-comment'>-- Child Attributes</span> <a name="line-544"></a> <a name="line-545"></a><a name="assistantChildPageType"></a><span class='hs-comment'>-- | The type of the assistant page.</span> <a name="line-546"></a><span class='hs-comment'>--</span> <a name="line-547"></a><span class='hs-comment'>-- Default value: 'AssistantPageContent'</span> <a name="line-548"></a><span class='hs-comment'>--</span> <a name="line-549"></a><span class='hs-comment'>--</span> <a name="line-550"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-551"></a><span class='hs-comment'>--</span> <a name="line-552"></a><span class='hs-definition'>assistantChildPageType</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Attr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>AssistantPageType</span> <a name="line-553"></a><span class='hs-definition'>assistantChildPageType</span> <span class='hs-keyglyph'>=</span> <a name="line-554"></a> <span class='hs-varid'>newAttrFromEnumProperty</span> <span class='hs-str'>"page-type"</span> <span class='hs-varid'>gtk_assistant_page_type_get_type</span> <a name="line-555"></a><span class='hs-comment'>{-# LINE 520 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-556"></a> <a name="line-557"></a><a name="assistantChildTitle"></a><span class='hs-comment'>-- | The title that is displayed in the page header.</span> <a name="line-558"></a><span class='hs-comment'>--</span> <a name="line-559"></a><span class='hs-comment'>-- If title and header-image are both, no header is displayed.</span> <a name="line-560"></a><span class='hs-comment'>--</span> <a name="line-561"></a><span class='hs-comment'>--</span> <a name="line-562"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-563"></a><span class='hs-comment'>--</span> <a name="line-564"></a><span class='hs-definition'>assistantChildTitle</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Attr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>String</span> <a name="line-565"></a><span class='hs-definition'>assistantChildTitle</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newAttrFromStringProperty</span> <span class='hs-str'>"title"</span> <a name="line-566"></a> <a name="line-567"></a><a name="assistantChildHeaderImage"></a><span class='hs-comment'>-- | The image that is displayed next to the page.</span> <a name="line-568"></a><span class='hs-comment'>--</span> <a name="line-569"></a><span class='hs-comment'>--</span> <a name="line-570"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-571"></a><span class='hs-comment'>--</span> <a name="line-572"></a><span class='hs-definition'>assistantChildHeaderImage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Attr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Pixbuf</span> <a name="line-573"></a><span class='hs-definition'>assistantChildHeaderImage</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newAttrFromObjectProperty</span> <span class='hs-str'>"header-image"</span> <a name="line-574"></a> <span class='hs-varid'>gdk_pixbuf_get_type</span> <a name="line-575"></a><span class='hs-comment'>{-# LINE 539 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-576"></a> <a name="line-577"></a><a name="assistantChildSidebarImage"></a><span class='hs-comment'>-- | Sidebar image for the assistant page.</span> <a name="line-578"></a><span class='hs-comment'>--</span> <a name="line-579"></a><span class='hs-comment'>--</span> <a name="line-580"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-581"></a><span class='hs-comment'>--</span> <a name="line-582"></a><span class='hs-definition'>assistantChildSidebarImage</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Attr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Pixbuf</span> <a name="line-583"></a><span class='hs-definition'>assistantChildSidebarImage</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newAttrFromObjectProperty</span> <span class='hs-str'>"sidebar-image"</span> <a name="line-584"></a> <span class='hs-varid'>gdk_pixbuf_get_type</span> <a name="line-585"></a><span class='hs-comment'>{-# LINE 548 "./Graphics/UI/Gtk/Windows/Assistant.chs" #-}</span> <a name="line-586"></a> <a name="line-587"></a><a name="assistantChildComplete"></a><span class='hs-comment'>-- | Setting the \"complete\" child property to @True@ marks a page as</span> <a name="line-588"></a><span class='hs-comment'>-- complete (i.e.: all the required fields are filled out). Gtk+ uses this</span> <a name="line-589"></a><span class='hs-comment'>-- information to control the sensitivity of the navigation buttons.</span> <a name="line-590"></a><span class='hs-comment'>--</span> <a name="line-591"></a><span class='hs-comment'>-- Default value: @False@</span> <a name="line-592"></a><span class='hs-comment'>--</span> <a name="line-593"></a><span class='hs-comment'>--</span> <a name="line-594"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-595"></a><span class='hs-comment'>--</span> <a name="line-596"></a><span class='hs-definition'>assistantChildComplete</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Attr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Bool</span> <a name="line-597"></a><span class='hs-definition'>assistantChildComplete</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newAttrFromBoolProperty</span> <span class='hs-str'>"complete"</span> <a name="line-598"></a> <a name="line-599"></a><span class='hs-comment'>--------------------</span> <a name="line-600"></a><span class='hs-comment'>-- Signals</span> <a name="line-601"></a> <a name="line-602"></a><a name="assistantCancel"></a><span class='hs-comment'>-- | The ::assistantCancel signal is emitted when then the assistantCancel button is clicked.</span> <a name="line-603"></a><span class='hs-comment'>--</span> <a name="line-604"></a><span class='hs-comment'>--</span> <a name="line-605"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-606"></a><span class='hs-comment'>--</span> <a name="line-607"></a><span class='hs-definition'>assistantCancel</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Signal</span> <span class='hs-varid'>self</span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-608"></a><span class='hs-definition'>assistantCancel</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Signal</span> <span class='hs-layout'>(</span><span class='hs-varid'>connect_NONE__NONE</span> <span class='hs-str'>"cancel"</span><span class='hs-layout'>)</span> <a name="line-609"></a> <a name="line-610"></a><a name="assistantPrepare"></a><span class='hs-comment'>-- | The ::assistantPrepare signal is emitted when a new page is set as the assistant's</span> <a name="line-611"></a><span class='hs-comment'>-- current page, before making the new page visible. A handler for this signal</span> <a name="line-612"></a><span class='hs-comment'>-- can do any preparation which are necessary before showing @page@.</span> <a name="line-613"></a><span class='hs-comment'>--</span> <a name="line-614"></a><span class='hs-comment'>--</span> <a name="line-615"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-616"></a><span class='hs-comment'>--</span> <a name="line-617"></a><span class='hs-definition'>assistantPrepare</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Signal</span> <span class='hs-varid'>self</span> <span class='hs-layout'>(</span><span class='hs-conid'>Widget</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-618"></a><span class='hs-definition'>assistantPrepare</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Signal</span> <span class='hs-layout'>(</span><span class='hs-varid'>connect_OBJECT__NONE</span> <span class='hs-str'>"prepare"</span><span class='hs-layout'>)</span> <a name="line-619"></a> <a name="line-620"></a><a name="assistantApply"></a><span class='hs-comment'>-- | The ::assistantApply signal is emitted when the assistantApply button is clicked. The</span> <a name="line-621"></a><span class='hs-comment'>-- default behavior of the 'Assistant' is to switch to the page after the</span> <a name="line-622"></a><span class='hs-comment'>-- current page, unless the current page is the last one.</span> <a name="line-623"></a><span class='hs-comment'>--</span> <a name="line-624"></a><span class='hs-comment'>-- A handler for the ::assistantApply signal should carry out the actions for which</span> <a name="line-625"></a><span class='hs-comment'>-- the wizard has collected data. If the action takes a long time to complete,</span> <a name="line-626"></a><span class='hs-comment'>-- you might consider to put a page of type 'AssistantPageProgress' after the</span> <a name="line-627"></a><span class='hs-comment'>-- confirmation page and handle this operation within the 'assistantPrepare' signal of the progress page.</span> <a name="line-628"></a><span class='hs-comment'>--</span> <a name="line-629"></a><span class='hs-comment'>--</span> <a name="line-630"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.10</span> <a name="line-631"></a><span class='hs-comment'>--</span> <a name="line-632"></a><span class='hs-definition'>assistantApply</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Signal</span> <span class='hs-varid'>self</span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-633"></a><span class='hs-definition'>assistantApply</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Signal</span> <span class='hs-layout'>(</span><span class='hs-varid'>connect_NONE__NONE</span> <span class='hs-str'>"apply"</span><span class='hs-layout'>)</span> <a name="line-634"></a> <a name="line-635"></a><a name="assistantClose"></a><span class='hs-comment'>-- | The ::assistantClose signal is emitted either when the assistantClose button of a summary</span> <a name="line-636"></a><span class='hs-comment'>-- page is clicked, or when the apply button in the last page in the flow (of</span> <a name="line-637"></a><span class='hs-comment'>-- type 'AssistantPageConfirm') is clicked.</span> <a name="line-638"></a><span class='hs-comment'>--</span> <a name="line-639"></a><span class='hs-definition'>assistantClose</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>AssistantClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>Signal</span> <span class='hs-varid'>self</span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span> <a name="line-640"></a><span class='hs-definition'>assistantClose</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Signal</span> <span class='hs-layout'>(</span><span class='hs-varid'>connect_NONE__NONE</span> <span class='hs-str'>"close"</span><span class='hs-layout'>)</span> <a name="line-641"></a> <a name="line-642"></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'>"gtk_assistant_new"</span> <a name="line-643"></a> <span class='hs-varid'>gtk_assistant_new</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-644"></a> <a name="line-645"></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'>"gtk_assistant_get_current_page"</span> <a name="line-646"></a> <span class='hs-varid'>gtk_assistant_get_current_page</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'>Assistant</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-647"></a> <a name="line-648"></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'>"gtk_assistant_set_current_page"</span> <a name="line-649"></a> <span class='hs-varid'>gtk_assistant_set_current_page</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'>Assistant</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-650"></a> <a name="line-651"></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'>"gtk_assistant_get_n_pages"</span> <a name="line-652"></a> <span class='hs-varid'>gtk_assistant_get_n_pages</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'>Assistant</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-653"></a> <a name="line-654"></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'>"gtk_assistant_get_nth_page"</span> <a name="line-655"></a> <span class='hs-varid'>gtk_assistant_get_nth_page</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'>Assistant</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-656"></a> <a name="line-657"></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'>"gtk_assistant_prepend_page"</span> <a name="line-658"></a> <span class='hs-varid'>gtk_assistant_prepend_page</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-659"></a> <a name="line-660"></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'>"gtk_assistant_append_page"</span> <a name="line-661"></a> <span class='hs-varid'>gtk_assistant_append_page</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-662"></a> <a name="line-663"></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'>"gtk_assistant_insert_page"</span> <a name="line-664"></a> <span class='hs-varid'>gtk_assistant_insert_page</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-665"></a> <a name="line-666"></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'>"gtk_assistant_set_forward_page_func"</span> <a name="line-667"></a> <span class='hs-varid'>gtk_assistant_set_forward_page_func</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'>Assistant</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'>FunPtr</span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-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'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</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'>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-layout'>(</span><span class='hs-conid'>FunPtr</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><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><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-668"></a> <a name="line-669"></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'>"gtk_assistant_set_page_type"</span> <a name="line-670"></a> <span class='hs-varid'>gtk_assistant_set_page_type</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-671"></a> <a name="line-672"></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'>"gtk_assistant_get_page_type"</span> <a name="line-673"></a> <span class='hs-varid'>gtk_assistant_get_page_type</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-674"></a> <a name="line-675"></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'>"gtk_assistant_set_page_title"</span> <a name="line-676"></a> <span class='hs-varid'>gtk_assistant_set_page_title</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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'>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-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-677"></a> <a name="line-678"></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'>"gtk_assistant_get_page_title"</span> <a name="line-679"></a> <span class='hs-varid'>gtk_assistant_get_page_title</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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><span class='hs-layout'>)</span> <a name="line-680"></a> <a name="line-681"></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'>"gtk_assistant_set_page_header_image"</span> <a name="line-682"></a> <span class='hs-varid'>gtk_assistant_set_page_header_image</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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'>Ptr</span> <span class='hs-conid'>Pixbuf</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><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-683"></a> <a name="line-684"></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'>"gtk_assistant_get_page_header_image"</span> <a name="line-685"></a> <span class='hs-varid'>gtk_assistant_get_page_header_image</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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'>Pixbuf</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-686"></a> <a name="line-687"></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'>"gtk_assistant_set_page_side_image"</span> <a name="line-688"></a> <span class='hs-varid'>gtk_assistant_set_page_side_image</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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'>Ptr</span> <span class='hs-conid'>Pixbuf</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><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-689"></a> <a name="line-690"></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'>"gtk_assistant_get_page_side_image"</span> <a name="line-691"></a> <span class='hs-varid'>gtk_assistant_get_page_side_image</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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'>Pixbuf</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-692"></a> <a name="line-693"></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'>"gtk_assistant_set_page_complete"</span> <a name="line-694"></a> <span class='hs-varid'>gtk_assistant_set_page_complete</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-695"></a> <a name="line-696"></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'>"gtk_assistant_get_page_complete"</span> <a name="line-697"></a> <span class='hs-varid'>gtk_assistant_get_page_complete</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>CInt</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-698"></a> <a name="line-699"></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'>"gtk_assistant_commit"</span> <a name="line-700"></a> <span class='hs-varid'>gtk_assistant_commit</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'>Assistant</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-701"></a> <a name="line-702"></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'>"gtk_assistant_add_action_widget"</span> <a name="line-703"></a> <span class='hs-varid'>gtk_assistant_add_action_widget</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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><span class='hs-layout'>)</span> <a name="line-704"></a> <a name="line-705"></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'>"gtk_assistant_remove_action_widget"</span> <a name="line-706"></a> <span class='hs-varid'>gtk_assistant_remove_action_widget</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'>Assistant</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'>Ptr</span> <span class='hs-conid'>Widget</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><span class='hs-layout'>)</span> <a name="line-707"></a> <a name="line-708"></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'>"gtk_assistant_update_buttons_state"</span> <a name="line-709"></a> <span class='hs-varid'>gtk_assistant_update_buttons_state</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'>Assistant</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <a name="line-710"></a> <a name="line-711"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"gtk_assistant_page_type_get_type"</span> <a name="line-712"></a> <span class='hs-varid'>gtk_assistant_page_type_get_type</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CUInt</span> <a name="line-713"></a> <a name="line-714"></a><span class='hs-keyword'>foreign</span> <span class='hs-keyword'>import</span> <span class='hs-keyword'>ccall</span> <span class='hs-keyword'>unsafe</span> <span class='hs-str'>"gdk_pixbuf_get_type"</span> <a name="line-715"></a> <span class='hs-varid'>gdk_pixbuf_get_type</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>CUInt</span> </pre></body> </html>