<?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/Dialog.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/Dialog.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 Dialog</span>
<a name="line-5"></a><span class='hs-comment'>--</span>
<a name="line-6"></a><span class='hs-comment'>-- Author : Axel Simon, Andy Stewart</span>
<a name="line-7"></a><span class='hs-comment'>--</span>
<a name="line-8"></a><span class='hs-comment'>-- Created: 23 May 2001</span>
<a name="line-9"></a><span class='hs-comment'>--</span>
<a name="line-10"></a><span class='hs-comment'>-- Copyright (C) 1999-2005 Axel Simon</span>
<a name="line-11"></a><span class='hs-comment'>-- Copyright (C) 2009 Andy Stewart</span>
<a name="line-12"></a><span class='hs-comment'>--</span>
<a name="line-13"></a><span class='hs-comment'>-- This library is free software; you can redistribute it and/or</span>
<a name="line-14"></a><span class='hs-comment'>-- modify it under the terms of the GNU Lesser General Public</span>
<a name="line-15"></a><span class='hs-comment'>-- License as published by the Free Software Foundation; either</span>
<a name="line-16"></a><span class='hs-comment'>-- version 2.1 of the License, or (at your option) any later version.</span>
<a name="line-17"></a><span class='hs-comment'>--</span>
<a name="line-18"></a><span class='hs-comment'>-- This library is distributed in the hope that it will be useful,</span>
<a name="line-19"></a><span class='hs-comment'>-- but WITHOUT ANY WARRANTY; without even the implied warranty of</span>
<a name="line-20"></a><span class='hs-comment'>-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU</span>
<a name="line-21"></a><span class='hs-comment'>-- Lesser General Public License for more details.</span>
<a name="line-22"></a><span class='hs-comment'>--</span>
<a name="line-23"></a><span class='hs-comment'>-- |</span>
<a name="line-24"></a><span class='hs-comment'>-- Maintainer : gtk2hs-users@lists.sourceforge.net</span>
<a name="line-25"></a><span class='hs-comment'>-- Stability : provisional</span>
<a name="line-26"></a><span class='hs-comment'>-- Portability : portable (depends on GHC)</span>
<a name="line-27"></a><span class='hs-comment'>--</span>
<a name="line-28"></a><span class='hs-comment'>-- Create popup windows</span>
<a name="line-29"></a><span class='hs-comment'>--</span>
<a name="line-30"></a><span class='hs-comment'>-- NOTE:</span>
<a name="line-31"></a><span class='hs-comment'>-- Now FFI haven't support variadic function `gtk_dialog_set_alternative_button_order`</span>
<a name="line-32"></a><span class='hs-comment'>--</span>
<a name="line-33"></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'>Dialog</span> <span class='hs-layout'>(</span>
<a name="line-34"></a><span class='hs-comment'>-- * Detail</span>
<a name="line-35"></a><span class='hs-comment'>--</span>
<a name="line-36"></a><span class='hs-comment'>-- | Dialog boxes are a convenient way to prompt the user for a small amount</span>
<a name="line-37"></a><span class='hs-comment'>-- of input, e.g. to display a message, ask a question, or anything else that</span>
<a name="line-38"></a><span class='hs-comment'>-- does not require extensive effort on the user's part.</span>
<a name="line-39"></a><span class='hs-comment'>--</span>
<a name="line-40"></a><span class='hs-comment'>-- Gtk+ treats a dialog as a window split vertically. The top section is a</span>
<a name="line-41"></a><span class='hs-comment'>-- 'VBox', and is where widgets such as a 'Label' or a 'Entry' should be</span>
<a name="line-42"></a><span class='hs-comment'>-- packed. The bottom area is known as the action_area. This is generally used</span>
<a name="line-43"></a><span class='hs-comment'>-- for packing buttons into the dialog which may perform functions such as</span>
<a name="line-44"></a><span class='hs-comment'>-- cancel, ok, or apply. The two areas are separated by a 'HSeparator'.</span>
<a name="line-45"></a><span class='hs-comment'>--</span>
<a name="line-46"></a><span class='hs-comment'>-- 'Dialog' boxes are created with a call to 'dialogNew' or</span>
<a name="line-47"></a><span class='hs-comment'>-- 'dialogNewWithButtons'. 'dialogNewWithButtons' is recommended; it allows you</span>
<a name="line-48"></a><span class='hs-comment'>-- to set the dialog title, some convenient flags, and add simple buttons.</span>
<a name="line-49"></a><span class='hs-comment'>--</span>
<a name="line-50"></a><span class='hs-comment'>-- If \'dialog\' is a newly created dialog, the two primary areas of the</span>
<a name="line-51"></a><span class='hs-comment'>-- window can be accessed using 'dialogGetUpper' and</span>
<a name="line-52"></a><span class='hs-comment'>-- 'dialogGetActionArea'.</span>
<a name="line-53"></a><span class='hs-comment'>--</span>
<a name="line-54"></a><span class='hs-comment'>-- A \'modal\' dialog (that is, one which freezes the rest of the</span>
<a name="line-55"></a><span class='hs-comment'>-- application from user input), can be created by calling 'windowSetModal' on</span>
<a name="line-56"></a><span class='hs-comment'>-- the dialog. When using 'dialogNewWithButtons' you can also</span>
<a name="line-57"></a><span class='hs-comment'>-- pass the 'DialogModal' flag to make a dialog modal.</span>
<a name="line-58"></a><span class='hs-comment'>--</span>
<a name="line-59"></a><span class='hs-comment'>-- If you add buttons to 'Dialog' using 'dialogNewWithButtons',</span>
<a name="line-60"></a><span class='hs-comment'>-- 'dialogAddButton', 'dialogAddButtons', or 'dialogAddActionWidget', clicking</span>
<a name="line-61"></a><span class='hs-comment'>-- the button will emit a signal called \"response\" with a response ID that</span>
<a name="line-62"></a><span class='hs-comment'>-- you specified. Gtk+ will never assign a meaning to positive response IDs;</span>
<a name="line-63"></a><span class='hs-comment'>-- these are entirely user-defined. But for convenience, you can use the</span>
<a name="line-64"></a><span class='hs-comment'>-- response IDs in the 'ResponseType' enumeration (these all have values less</span>
<a name="line-65"></a><span class='hs-comment'>-- than zero). If a dialog receives a delete event, the \"response\" signal</span>
<a name="line-66"></a><span class='hs-comment'>-- will be emitted with a response ID of 'ResponseNone'.</span>
<a name="line-67"></a><span class='hs-comment'>--</span>
<a name="line-68"></a><span class='hs-comment'>-- If you want to block waiting for a dialog to return before returning</span>
<a name="line-69"></a><span class='hs-comment'>-- control flow to your code, you can call 'dialogRun'. This function enters a</span>
<a name="line-70"></a><span class='hs-comment'>-- recursive main loop and waits for the user to respond to the dialog,</span>
<a name="line-71"></a><span class='hs-comment'>-- returning the response ID corresponding to the button the user clicked.</span>
<a name="line-72"></a><span class='hs-comment'>--</span>
<a name="line-73"></a><span class='hs-comment'>-- For a simple message box, you probably want to use</span>
<a name="line-74"></a><span class='hs-comment'>-- 'Graphics.UI.Gtk.Windows.MessageDialog.MessageDialog' which provides</span>
<a name="line-75"></a><span class='hs-comment'>-- convenience functions</span>
<a name="line-76"></a><span class='hs-comment'>-- for creating standard dialogs containing simple messages to inform</span>
<a name="line-77"></a><span class='hs-comment'>-- or ask the user.</span>
<a name="line-78"></a>
<a name="line-79"></a><span class='hs-comment'>-- * Class Hierarchy</span>
<a name="line-80"></a><span class='hs-comment'>-- |</span>
<a name="line-81"></a><span class='hs-comment'>-- @</span>
<a name="line-82"></a><span class='hs-comment'>-- | 'GObject'</span>
<a name="line-83"></a><span class='hs-comment'>-- | +----'Object'</span>
<a name="line-84"></a><span class='hs-comment'>-- | +----'Widget'</span>
<a name="line-85"></a><span class='hs-comment'>-- | +----'Container'</span>
<a name="line-86"></a><span class='hs-comment'>-- | +----'Bin'</span>
<a name="line-87"></a><span class='hs-comment'>-- | +----'Window'</span>
<a name="line-88"></a><span class='hs-comment'>-- | +----Dialog</span>
<a name="line-89"></a><span class='hs-comment'>-- | +----'AboutDialog'</span>
<a name="line-90"></a><span class='hs-comment'>-- | +----'ColorSelectionDialog'</span>
<a name="line-91"></a><span class='hs-comment'>-- | +----'FileChooserDialog'</span>
<a name="line-92"></a><span class='hs-comment'>-- | +----'FileSelection'</span>
<a name="line-93"></a><span class='hs-comment'>-- | +----'FontSelectionDialog'</span>
<a name="line-94"></a><span class='hs-comment'>-- | +----'InputDialog'</span>
<a name="line-95"></a><span class='hs-comment'>-- | +----'MessageDialog'</span>
<a name="line-96"></a><span class='hs-comment'>-- @</span>
<a name="line-97"></a>
<a name="line-98"></a><span class='hs-comment'>-- * Types</span>
<a name="line-99"></a> <span class='hs-conid'>Dialog</span><span class='hs-layout'>,</span>
<a name="line-100"></a> <span class='hs-conid'>DialogClass</span><span class='hs-layout'>,</span>
<a name="line-101"></a> <span class='hs-varid'>castToDialog</span><span class='hs-layout'>,</span> <span class='hs-varid'>gTypeDialog</span><span class='hs-layout'>,</span>
<a name="line-102"></a> <span class='hs-varid'>toDialog</span><span class='hs-layout'>,</span>
<a name="line-103"></a>
<a name="line-104"></a><span class='hs-comment'>-- * Constructors</span>
<a name="line-105"></a> <span class='hs-varid'>dialogNew</span><span class='hs-layout'>,</span>
<a name="line-106"></a>
<a name="line-107"></a><span class='hs-comment'>-- * Methods</span>
<a name="line-108"></a> <span class='hs-varid'>dialogGetUpper</span><span class='hs-layout'>,</span>
<a name="line-109"></a> <span class='hs-varid'>dialogGetActionArea</span><span class='hs-layout'>,</span>
<a name="line-110"></a> <span class='hs-varid'>dialogRun</span><span class='hs-layout'>,</span>
<a name="line-111"></a> <span class='hs-varid'>dialogResponse</span><span class='hs-layout'>,</span>
<a name="line-112"></a> <span class='hs-conid'>ResponseId</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span>
<a name="line-113"></a> <span class='hs-varid'>dialogAddButton</span><span class='hs-layout'>,</span>
<a name="line-114"></a> <span class='hs-varid'>dialogAddActionWidget</span><span class='hs-layout'>,</span>
<a name="line-115"></a> <span class='hs-varid'>dialogGetHasSeparator</span><span class='hs-layout'>,</span>
<a name="line-116"></a> <span class='hs-varid'>dialogSetDefaultResponse</span><span class='hs-layout'>,</span>
<a name="line-117"></a> <span class='hs-varid'>dialogSetHasSeparator</span><span class='hs-layout'>,</span>
<a name="line-118"></a> <span class='hs-varid'>dialogSetResponseSensitive</span><span class='hs-layout'>,</span>
<a name="line-119"></a> <span class='hs-varid'>dialogGetResponseForWidget</span><span class='hs-layout'>,</span>
<a name="line-120"></a> <span class='hs-varid'>dialogAlternativeDialogButtonOrder</span><span class='hs-layout'>,</span>
<a name="line-121"></a> <span class='hs-varid'>dialogSetAlternativeButtonOrderFromArray</span><span class='hs-layout'>,</span>
<a name="line-122"></a>
<a name="line-123"></a><span class='hs-comment'>-- * Attributes</span>
<a name="line-124"></a> <span class='hs-varid'>dialogHasSeparator</span><span class='hs-layout'>,</span>
<a name="line-125"></a> <span class='hs-varid'>dialogActionAreaBorder</span><span class='hs-layout'>,</span>
<a name="line-126"></a> <span class='hs-varid'>dialogButtonSpacing</span><span class='hs-layout'>,</span>
<a name="line-127"></a> <span class='hs-varid'>dialogContentAreaBorder</span><span class='hs-layout'>,</span>
<a name="line-128"></a> <span class='hs-varid'>dialogContentAreaSpacing</span><span class='hs-layout'>,</span>
<a name="line-129"></a>
<a name="line-130"></a><span class='hs-comment'>-- * Signals</span>
<a name="line-131"></a> <span class='hs-varid'>response</span><span class='hs-layout'>,</span>
<a name="line-132"></a>
<a name="line-133"></a><span class='hs-comment'>-- * Deprecated</span>
<a name="line-134"></a>
<a name="line-135"></a> <span class='hs-varid'>onResponse</span><span class='hs-layout'>,</span>
<a name="line-136"></a> <span class='hs-varid'>afterResponse</span><span class='hs-layout'>,</span>
<a name="line-137"></a>
<a name="line-138"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-139"></a>
<a name="line-140"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Control</span><span class='hs-varop'>.</span><span class='hs-conid'>Monad</span> <span class='hs-layout'>(</span><span class='hs-varid'>liftM</span><span class='hs-layout'>)</span>
<a name="line-141"></a>
<a name="line-142"></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-143"></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-144"></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-145"></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-146"></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-147"></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-148"></a><span class='hs-comment'>{-# LINE 147 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-149"></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-150"></a><span class='hs-comment'>{-# LINE 148 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-151"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>General</span><span class='hs-varop'>.</span><span class='hs-conid'>Structs</span> <span class='hs-layout'>(</span><span class='hs-varid'>dialogGetUpper</span><span class='hs-layout'>,</span> <span class='hs-varid'>dialogGetActionArea</span><span class='hs-layout'>,</span>
<a name="line-152"></a> <span class='hs-conid'>ResponseId</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromResponse</span><span class='hs-layout'>,</span> <span class='hs-varid'>toResponse</span><span class='hs-layout'>)</span>
<a name="line-153"></a>
<a name="line-154"></a>
<a name="line-155"></a><span class='hs-comment'>{-# LINE 152 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-156"></a>
<a name="line-157"></a><span class='hs-comment'>--------------------</span>
<a name="line-158"></a><span class='hs-comment'>-- Constructors</span>
<a name="line-159"></a>
<a name="line-160"></a><a name="dialogNew"></a><span class='hs-comment'>-- | Creates a new dialog box. Widgets should not be packed into this 'Window'</span>
<a name="line-161"></a><span class='hs-comment'>-- directly, but into the \"upper\" and \"action area\", which are obtained</span>
<a name="line-162"></a><span class='hs-comment'>-- using 'dialogGetUpper' and 'dialogGetActionArea'.</span>
<a name="line-163"></a><span class='hs-comment'>--</span>
<a name="line-164"></a><span class='hs-definition'>dialogNew</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Dialog</span>
<a name="line-165"></a><span class='hs-definition'>dialogNew</span> <span class='hs-keyglyph'>=</span>
<a name="line-166"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkDialog</span> <span class='hs-varop'>$</span>
<a name="line-167"></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'>Dialog</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-168"></a> <span class='hs-varid'>gtk_dialog_new</span>
<a name="line-169"></a><span class='hs-comment'>{-# LINE 165 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-170"></a>
<a name="line-171"></a><span class='hs-comment'>--------------------</span>
<a name="line-172"></a><span class='hs-comment'>-- Methods</span>
<a name="line-173"></a>
<a name="line-174"></a><a name="dialogRun"></a><span class='hs-comment'>-- | Blocks in a recursive main loop until the dialog either emits the</span>
<a name="line-175"></a><span class='hs-comment'>-- response signal, or is destroyed. If the dialog is destroyed during the call</span>
<a name="line-176"></a><span class='hs-comment'>-- to 'dialogRun', it returns 'ResponseNone'. Otherwise, it returns the</span>
<a name="line-177"></a><span class='hs-comment'>-- response ID from the \"response\" signal emission. Before entering the</span>
<a name="line-178"></a><span class='hs-comment'>-- recursive main loop, 'dialogRun' calls 'widgetShow' on the dialog for you.</span>
<a name="line-179"></a><span class='hs-comment'>-- Note that you still need to show any children of the dialog yourself.</span>
<a name="line-180"></a><span class='hs-comment'>--</span>
<a name="line-181"></a><span class='hs-comment'>-- During 'dialogRun', the default behavior of \"delete_event\" is disabled;</span>
<a name="line-182"></a><span class='hs-comment'>-- if the dialog receives \"delete_event\", it will not be destroyed as windows</span>
<a name="line-183"></a><span class='hs-comment'>-- usually are, and 'dialogRun' will return 'ResponseDeleteEvent'. Also, during</span>
<a name="line-184"></a><span class='hs-comment'>-- 'dialogRun' the dialog will be modal. You can force 'dialogRun' to return at</span>
<a name="line-185"></a><span class='hs-comment'>-- any time by calling 'dialogResponse' to emit the \"response\" signal.</span>
<a name="line-186"></a><span class='hs-comment'>-- Destroying the dialog during 'dialogRun' is a very bad idea, because your</span>
<a name="line-187"></a><span class='hs-comment'>-- post-run code won't know whether the dialog was destroyed or not.</span>
<a name="line-188"></a><span class='hs-comment'>-- Hence, you should not call 'Graphics.UI.Gtk.Abstract.widgetDestroy'</span>
<a name="line-189"></a><span class='hs-comment'>-- before 'dialogRun' has returned.</span>
<a name="line-190"></a><span class='hs-comment'>--</span>
<a name="line-191"></a><span class='hs-comment'>-- After 'dialogRun' returns, you are responsible for hiding or destroying</span>
<a name="line-192"></a><span class='hs-comment'>-- the dialog if you wish to do so.</span>
<a name="line-193"></a><span class='hs-comment'>--</span>
<a name="line-194"></a><span class='hs-comment'>-- Note that even though the recursive main loop gives the effect of a modal</span>
<a name="line-195"></a><span class='hs-comment'>-- dialog (it prevents the user from interacting with other windows while the</span>
<a name="line-196"></a><span class='hs-comment'>-- dialog is run), callbacks such as timeouts, IO channel watches, DND drops,</span>
<a name="line-197"></a><span class='hs-comment'>-- etc, /will/ be triggered during a 'dialogRun' call.</span>
<a name="line-198"></a><span class='hs-comment'>--</span>
<a name="line-199"></a><span class='hs-definition'>dialogRun</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-200"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>ResponseId</span>
<a name="line-201"></a><span class='hs-definition'>dialogRun</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-202"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toResponse</span> <span class='hs-varop'>$</span>
<a name="line-203"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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_dialog_run</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-204"></a><span class='hs-comment'>{-# LINE 199 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-205"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-206"></a>
<a name="line-207"></a><a name="dialogResponse"></a><span class='hs-comment'>-- | Emits the \"response\" signal with the given response ID. Used to</span>
<a name="line-208"></a><span class='hs-comment'>-- indicate that the user has responded to the dialog in some way; typically</span>
<a name="line-209"></a><span class='hs-comment'>-- either you or 'dialogRun' will be monitoring the \"response\" signal and</span>
<a name="line-210"></a><span class='hs-comment'>-- take appropriate action.</span>
<a name="line-211"></a><span class='hs-comment'>--</span>
<a name="line-212"></a><span class='hs-comment'>-- This function can be used to add a custom widget to the action area that</span>
<a name="line-213"></a><span class='hs-comment'>-- should close the dialog when activated or to close the dialog otherwise.</span>
<a name="line-214"></a><span class='hs-comment'>--</span>
<a name="line-215"></a><span class='hs-definition'>dialogResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-216"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ResponseId</span>
<a name="line-217"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-218"></a><span class='hs-definition'>dialogResponse</span> <span class='hs-varid'>self</span> <span class='hs-varid'>responseId</span> <span class='hs-keyglyph'>=</span>
<a name="line-219"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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_dialog_response</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-220"></a><span class='hs-comment'>{-# LINE 214 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-221"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-222"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromResponse</span> <span class='hs-varid'>responseId</span><span class='hs-layout'>)</span>
<a name="line-223"></a>
<a name="line-224"></a><a name="dialogAddButton"></a><span class='hs-comment'>-- | Adds a button with the given text (or a stock button, if @buttonText@ is</span>
<a name="line-225"></a><span class='hs-comment'>-- a stock ID) and sets things up so that clicking the button will emit the</span>
<a name="line-226"></a><span class='hs-comment'>-- \"response\" signal with the given @responseId@. The button is appended to</span>
<a name="line-227"></a><span class='hs-comment'>-- the end of the dialog's action area. The button widget is returned, but</span>
<a name="line-228"></a><span class='hs-comment'>-- usually you don't need it.</span>
<a name="line-229"></a><span class='hs-comment'>--</span>
<a name="line-230"></a><span class='hs-definition'>dialogAddButton</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-231"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- ^ @buttonText@ - text of button, or stock ID</span>
<a name="line-232"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ResponseId</span> <span class='hs-comment'>-- ^ @responseId@ - response ID for the button</span>
<a name="line-233"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Button</span> <span class='hs-comment'>-- ^ returns the button widget that was added</span>
<a name="line-234"></a><span class='hs-definition'>dialogAddButton</span> <span class='hs-varid'>self</span> <span class='hs-varid'>buttonText</span> <span class='hs-varid'>responseId</span> <span class='hs-keyglyph'>=</span>
<a name="line-235"></a> <span class='hs-varid'>makeNewObject</span> <span class='hs-varid'>mkButton</span> <span class='hs-varop'>$</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>castPtr</span> <span class='hs-varop'>$</span>
<a name="line-236"></a> <span class='hs-varid'>withUTFString</span> <span class='hs-varid'>buttonText</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>buttonTextPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-237"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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-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_dialog_add_button</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span> <span class='hs-varid'>arg3</span><span class='hs-layout'>)</span>
<a name="line-238"></a><span class='hs-comment'>{-# LINE 231 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-239"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-240"></a> <span class='hs-varid'>buttonTextPtr</span>
<a name="line-241"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromResponse</span> <span class='hs-varid'>responseId</span><span class='hs-layout'>)</span>
<a name="line-242"></a>
<a name="line-243"></a><a name="dialogAddActionWidget"></a><span class='hs-comment'>-- | Adds an activatable widget to the action area of a 'Dialog', connecting a</span>
<a name="line-244"></a><span class='hs-comment'>-- signal handler that will emit the \"response\" signal on the dialog when the</span>
<a name="line-245"></a><span class='hs-comment'>-- widget is activated. The widget is appended to the end of the dialog's</span>
<a name="line-246"></a><span class='hs-comment'>-- action area. If you want to add a non-activatable widget, simply pack it</span>
<a name="line-247"></a><span class='hs-comment'>-- into the action area.</span>
<a name="line-248"></a><span class='hs-comment'>--</span>
<a name="line-249"></a><span class='hs-definition'>dialogAddActionWidget</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>DialogClass</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-250"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>child</span> <span class='hs-comment'>-- ^ @child@ - an activatable widget</span>
<a name="line-251"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ResponseId</span> <span class='hs-comment'>-- ^ @responseId@ - response ID for @child@</span>
<a name="line-252"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-253"></a><span class='hs-definition'>dialogAddActionWidget</span> <span class='hs-varid'>self</span> <span class='hs-varid'>child</span> <span class='hs-varid'>responseId</span> <span class='hs-keyglyph'>=</span>
<a name="line-254"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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_dialog_add_action_widget</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-255"></a><span class='hs-comment'>{-# LINE 247 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-256"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-257"></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-258"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromResponse</span> <span class='hs-varid'>responseId</span><span class='hs-layout'>)</span>
<a name="line-259"></a>
<a name="line-260"></a><a name="dialogGetHasSeparator"></a><span class='hs-comment'>-- | Query if the dialog has a visible horizontal separator.</span>
<a name="line-261"></a><span class='hs-comment'>--</span>
<a name="line-262"></a><span class='hs-definition'>dialogGetHasSeparator</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</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'>Bool</span>
<a name="line-263"></a><span class='hs-definition'>dialogGetHasSeparator</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-264"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-265"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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_dialog_get_has_separator</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-266"></a><span class='hs-comment'>{-# LINE 257 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-267"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-268"></a>
<a name="line-269"></a><a name="dialogSetDefaultResponse"></a><span class='hs-comment'>-- | Sets the last widget in the dialog's action area with the given</span>
<a name="line-270"></a><span class='hs-comment'>-- 'ResponseId' as the default widget for the dialog. Pressing \"Enter\"</span>
<a name="line-271"></a><span class='hs-comment'>-- normally activates the default widget.</span>
<a name="line-272"></a><span class='hs-comment'>--</span>
<a name="line-273"></a><span class='hs-comment'>-- * The default response is reset once it is triggered. Hence, if you</span>
<a name="line-274"></a><span class='hs-comment'>-- hide the dialog (rather than closing it) and re-display it later,</span>
<a name="line-275"></a><span class='hs-comment'>-- you need to call this function again.</span>
<a name="line-276"></a><span class='hs-comment'>--</span>
<a name="line-277"></a><span class='hs-definition'>dialogSetDefaultResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-278"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ResponseId</span>
<a name="line-279"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-280"></a><span class='hs-definition'>dialogSetDefaultResponse</span> <span class='hs-varid'>self</span> <span class='hs-varid'>responseId</span> <span class='hs-keyglyph'>=</span>
<a name="line-281"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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_dialog_set_default_response</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-282"></a><span class='hs-comment'>{-# LINE 272 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-283"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-284"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromResponse</span> <span class='hs-varid'>responseId</span><span class='hs-layout'>)</span>
<a name="line-285"></a>
<a name="line-286"></a><a name="dialogSetHasSeparator"></a><span class='hs-comment'>-- | Sets whether the dialog has a separator above the buttons. @True@ by</span>
<a name="line-287"></a><span class='hs-comment'>-- default.</span>
<a name="line-288"></a><span class='hs-comment'>--</span>
<a name="line-289"></a><span class='hs-definition'>dialogSetHasSeparator</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</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'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-290"></a><span class='hs-definition'>dialogSetHasSeparator</span> <span class='hs-varid'>self</span> <span class='hs-varid'>setting</span> <span class='hs-keyglyph'>=</span>
<a name="line-291"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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_dialog_set_has_separator</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-292"></a><span class='hs-comment'>{-# LINE 281 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-293"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-294"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-varid'>setting</span><span class='hs-layout'>)</span>
<a name="line-295"></a>
<a name="line-296"></a><a name="dialogSetResponseSensitive"></a><span class='hs-comment'>-- | Calls @'widgetSetSensitive' widget setting@ for each widget in the</span>
<a name="line-297"></a><span class='hs-comment'>-- dialog's action area with the given @responseId@. A convenient way to</span>
<a name="line-298"></a><span class='hs-comment'>-- sensitize\/desensitize dialog buttons.</span>
<a name="line-299"></a><span class='hs-comment'>--</span>
<a name="line-300"></a><span class='hs-definition'>dialogSetResponseSensitive</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-301"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>ResponseId</span> <span class='hs-comment'>-- ^ @responseId@ - a response ID</span>
<a name="line-302"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ @setting@ - @True@ for sensitive</span>
<a name="line-303"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-304"></a><span class='hs-definition'>dialogSetResponseSensitive</span> <span class='hs-varid'>self</span> <span class='hs-varid'>responseId</span> <span class='hs-varid'>setting</span> <span class='hs-keyglyph'>=</span>
<a name="line-305"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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-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_dialog_set_response_sensitive</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span> <span class='hs-varid'>arg3</span><span class='hs-layout'>)</span>
<a name="line-306"></a><span class='hs-comment'>{-# LINE 294 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-307"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-308"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromResponse</span> <span class='hs-varid'>responseId</span><span class='hs-layout'>)</span>
<a name="line-309"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromBool</span> <span class='hs-varid'>setting</span><span class='hs-layout'>)</span>
<a name="line-310"></a>
<a name="line-311"></a><a name="dialogGetResponseForWidget"></a><span class='hs-comment'>-- | Gets the response id of a widget in the action area of a dialog.</span>
<a name="line-312"></a><span class='hs-definition'>dialogGetResponseForWidget</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span><span class='hs-layout'>,</span> <span class='hs-conid'>WidgetClass</span> <span class='hs-varid'>widget</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-313"></a> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>widget</span> <span class='hs-comment'>-- ^ @widget@ - a widget in the action area of dialog</span>
<a name="line-314"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>ResponseId</span> <span class='hs-comment'>-- ^ return the response id of widget, or 'ResponseNone' if widget doesn't have a response id set. </span>
<a name="line-315"></a><span class='hs-definition'>dialogGetResponseForWidget</span> <span class='hs-varid'>self</span> <span class='hs-varid'>widget</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toResponse</span> <span class='hs-varop'>$</span>
<a name="line-316"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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_dialog_get_response_for_widget</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span><span class='hs-layout'>)</span>
<a name="line-317"></a><span class='hs-comment'>{-# LINE 304 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-318"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-319"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toWidget</span> <span class='hs-varid'>widget</span><span class='hs-layout'>)</span>
<a name="line-320"></a>
<a name="line-321"></a><a name="dialogAlternativeDialogButtonOrder"></a><span class='hs-comment'>-- | Returns @True@ if dialogs are expected to use an alternative button order on the screen screen.</span>
<a name="line-322"></a><span class='hs-comment'>-- See 'dialogSetAlternativeButtonOrder' for more details about alternative button order.</span>
<a name="line-323"></a><span class='hs-comment'>--</span>
<a name="line-324"></a><span class='hs-comment'>-- If you need to use this function, you should probably connect to the 'alternativeButtonOrder' signal on the GtkSettings object associated to screen, in order to be notified if the button order setting changes.</span>
<a name="line-325"></a><span class='hs-comment'>--</span>
<a name="line-326"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.6</span>
<a name="line-327"></a><span class='hs-comment'>--</span>
<a name="line-328"></a><span class='hs-definition'>dialogAlternativeDialogButtonOrder</span> <span class='hs-keyglyph'>::</span>
<a name="line-329"></a> <span class='hs-conid'>Maybe</span> <span class='hs-conid'>Screen</span> <span class='hs-comment'>-- ^ @screen@ - a 'Screen', or @Nothing@ to use the default screen</span>
<a name="line-330"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ returns whether the alternative button order should be used</span>
<a name="line-331"></a><span class='hs-definition'>dialogAlternativeDialogButtonOrder</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>screen</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-332"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Screen</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_alternative_dialog_button_order</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span> <span class='hs-varid'>screen</span>
<a name="line-333"></a><span class='hs-definition'>dialogAlternativeDialogButtonOrder</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-334"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Screen</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_alternative_dialog_button_order</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Screen</span> <span class='hs-varid'>nullForeignPtr</span><span class='hs-layout'>)</span>
<a name="line-335"></a>
<a name="line-336"></a><a name="dialogSetAlternativeButtonOrderFromArray"></a><span class='hs-comment'>-- | Sets an alternative button order.</span>
<a name="line-337"></a><span class='hs-comment'>--</span>
<a name="line-338"></a><span class='hs-comment'>-- If the 'alternativeButtonOrder' setting is set to @True@, the dialog</span>
<a name="line-339"></a><span class='hs-comment'>-- buttons are reordered according to the order of the response ids in</span>
<a name="line-340"></a><span class='hs-comment'>-- @newOrder@.</span>
<a name="line-341"></a><span class='hs-comment'>--</span>
<a name="line-342"></a><span class='hs-comment'>-- See 'dialogSetAlternativeButtonOrder' for more information.</span>
<a name="line-343"></a><span class='hs-comment'>--</span>
<a name="line-344"></a><span class='hs-comment'>-- This function is for use by language bindings.</span>
<a name="line-345"></a><span class='hs-comment'>--</span>
<a name="line-346"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.6</span>
<a name="line-347"></a><span class='hs-comment'>--</span>
<a name="line-348"></a><span class='hs-definition'>dialogSetAlternativeButtonOrderFromArray</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-349"></a> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>ResponseId</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ @newOrder@ - an array of response ids of dialog's buttons </span>
<a name="line-350"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-351"></a><span class='hs-definition'>dialogSetAlternativeButtonOrderFromArray</span> <span class='hs-varid'>self</span> <span class='hs-varid'>newOrder</span> <span class='hs-keyglyph'>=</span>
<a name="line-352"></a> <span class='hs-varid'>withArray</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-varid'>fromResponse</span> <span class='hs-varid'>newOrder</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>newOrderPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-353"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Dialog</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-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_dialog_set_alternative_button_order_from_array</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span> <span class='hs-varid'>arg3</span><span class='hs-layout'>)</span>
<a name="line-354"></a><span class='hs-comment'>{-# LINE 340 "./Graphics/UI/Gtk/Windows/Dialog.chs" #-}</span>
<a name="line-355"></a> <span class='hs-layout'>(</span><span class='hs-varid'>toDialog</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-356"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>length</span> <span class='hs-varid'>newOrder</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-357"></a> <span class='hs-varid'>newOrderPtr</span>
<a name="line-358"></a>
<a name="line-359"></a><span class='hs-comment'>--------------------</span>
<a name="line-360"></a><span class='hs-comment'>-- Attributes</span>
<a name="line-361"></a>
<a name="line-362"></a><a name="dialogHasSeparator"></a><span class='hs-comment'>-- | The dialog has a separator bar above its buttons.</span>
<a name="line-363"></a><span class='hs-comment'>--</span>
<a name="line-364"></a><span class='hs-comment'>-- Default value: @True@</span>
<a name="line-365"></a><span class='hs-comment'>--</span>
<a name="line-366"></a><span class='hs-definition'>dialogHasSeparator</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</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-367"></a><span class='hs-definition'>dialogHasSeparator</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>newAttr</span>
<a name="line-368"></a> <span class='hs-varid'>dialogGetHasSeparator</span>
<a name="line-369"></a> <span class='hs-varid'>dialogSetHasSeparator</span>
<a name="line-370"></a>
<a name="line-371"></a><a name="dialogActionAreaBorder"></a><span class='hs-comment'>-- | Width of border around the button area at the bottom of the dialog.</span>
<a name="line-372"></a><span class='hs-comment'>--</span>
<a name="line-373"></a><span class='hs-comment'>-- Allowed values: >= 0</span>
<a name="line-374"></a><span class='hs-comment'>--</span>
<a name="line-375"></a><span class='hs-comment'>-- Default value: 5</span>
<a name="line-376"></a><span class='hs-comment'>--</span>
<a name="line-377"></a><span class='hs-definition'>dialogActionAreaBorder</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>ReadAttr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Int</span>
<a name="line-378"></a><span class='hs-definition'>dialogActionAreaBorder</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>readAttrFromIntProperty</span> <span class='hs-str'>"action-area-border"</span>
<a name="line-379"></a>
<a name="line-380"></a><a name="dialogButtonSpacing"></a><span class='hs-comment'>-- | Spacing between buttons.</span>
<a name="line-381"></a><span class='hs-comment'>--</span>
<a name="line-382"></a><span class='hs-comment'>-- Allowed values: >= 0</span>
<a name="line-383"></a><span class='hs-comment'>--</span>
<a name="line-384"></a><span class='hs-comment'>-- Default value: 6</span>
<a name="line-385"></a><span class='hs-comment'>--</span>
<a name="line-386"></a><span class='hs-definition'>dialogButtonSpacing</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>ReadAttr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Int</span>
<a name="line-387"></a><span class='hs-definition'>dialogButtonSpacing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>readAttrFromIntProperty</span> <span class='hs-str'>"button-spacing"</span>
<a name="line-388"></a>
<a name="line-389"></a><a name="dialogContentAreaBorder"></a><span class='hs-comment'>-- | Width of border around the main dialog area.</span>
<a name="line-390"></a><span class='hs-comment'>--</span>
<a name="line-391"></a><span class='hs-comment'>-- Allowed values: >= 0</span>
<a name="line-392"></a><span class='hs-comment'>--</span>
<a name="line-393"></a><span class='hs-comment'>-- Default value: 2</span>
<a name="line-394"></a><span class='hs-comment'>--</span>
<a name="line-395"></a><span class='hs-definition'>dialogContentAreaBorder</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>ReadAttr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Int</span>
<a name="line-396"></a><span class='hs-definition'>dialogContentAreaBorder</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>readAttrFromIntProperty</span> <span class='hs-str'>"content-area-border"</span>
<a name="line-397"></a>
<a name="line-398"></a><a name="dialogContentAreaSpacing"></a><span class='hs-comment'>-- | The default spacing used between elements of the content area of the dialog,</span>
<a name="line-399"></a><span class='hs-comment'>-- as returned by 'dialogSetContentArea', unless 'boxSetSpacing' was called on that widget directly.</span>
<a name="line-400"></a><span class='hs-comment'>--</span>
<a name="line-401"></a><span class='hs-comment'>-- Allowed values: >= 0</span>
<a name="line-402"></a><span class='hs-comment'>--</span>
<a name="line-403"></a><span class='hs-comment'>-- Default value: 0</span>
<a name="line-404"></a><span class='hs-comment'>--</span>
<a name="line-405"></a><span class='hs-comment'>-- * Available since Gtk+ version 2.16</span>
<a name="line-406"></a><span class='hs-comment'>--</span>
<a name="line-407"></a><span class='hs-definition'>dialogContentAreaSpacing</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>ReadAttr</span> <span class='hs-varid'>self</span> <span class='hs-conid'>Int</span>
<a name="line-408"></a><span class='hs-definition'>dialogContentAreaSpacing</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>readAttrFromIntProperty</span> <span class='hs-str'>"content-area-spacing"</span>
<a name="line-409"></a>
<a name="line-410"></a><span class='hs-comment'>--------------------</span>
<a name="line-411"></a><span class='hs-comment'>-- Signals</span>
<a name="line-412"></a>
<a name="line-413"></a><a name="response"></a><span class='hs-comment'>-- | Emitted when an action widget is clicked, the dialog receives a delete</span>
<a name="line-414"></a><span class='hs-comment'>-- event, or the application programmer calls 'dialogResponse'. On a delete</span>
<a name="line-415"></a><span class='hs-comment'>-- event, the response ID is 'ResponseNone'. Otherwise, it depends on which</span>
<a name="line-416"></a><span class='hs-comment'>-- action widget was clicked.</span>
<a name="line-417"></a><span class='hs-comment'>--</span>
<a name="line-418"></a><span class='hs-definition'>response</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</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'>ResponseId</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-419"></a><span class='hs-definition'>response</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Signal</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>after</span> <span class='hs-varid'>obj</span> <span class='hs-varid'>fun</span> <span class='hs-keyglyph'>-></span>
<a name="line-420"></a> <span class='hs-varid'>connect_INT__NONE</span> <span class='hs-str'>"response"</span> <span class='hs-varid'>after</span> <span class='hs-varid'>obj</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-varid'>i</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>fun</span> <span class='hs-layout'>(</span><span class='hs-varid'>toResponse</span> <span class='hs-varid'>i</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-421"></a>
<a name="line-422"></a><span class='hs-comment'>-- * Deprecated</span>
<a name="line-423"></a>
<a name="line-424"></a><a name="onResponse"></a><span class='hs-comment'>-- | Emitted when an action widget is clicked, the dialog receives a delete</span>
<a name="line-425"></a><span class='hs-comment'>-- event, or the application programmer calls 'dialogResponse'. On a delete</span>
<a name="line-426"></a><span class='hs-comment'>-- event, the response ID is 'ResponseNone'. Otherwise, it depends on which</span>
<a name="line-427"></a><span class='hs-comment'>-- action widget was clicked.</span>
<a name="line-428"></a><span class='hs-comment'>--</span>
<a name="line-429"></a><span class='hs-definition'>onResponse</span><span class='hs-layout'>,</span> <span class='hs-varid'>afterResponse</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DialogClass</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=></span> <span class='hs-varid'>self</span>
<a name="line-430"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>ResponseId</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-431"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>ConnectId</span> <span class='hs-varid'>self</span><span class='hs-layout'>)</span>
<a name="line-432"></a><span class='hs-definition'>onResponse</span> <span class='hs-varid'>dia</span> <span class='hs-varid'>act</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>connect_INT__NONE</span> <span class='hs-str'>"response"</span> <span class='hs-conid'>False</span> <span class='hs-varid'>dia</span> <span class='hs-layout'>(</span><span class='hs-varid'>act</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toResponse</span><span class='hs-layout'>)</span>
<a name="line-433"></a><a name="afterResponse"></a><span class='hs-definition'>afterResponse</span> <span class='hs-varid'>dia</span> <span class='hs-varid'>act</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>connect_INT__NONE</span> <span class='hs-str'>"response"</span> <span class='hs-conid'>True</span> <span class='hs-varid'>dia</span> <span class='hs-layout'>(</span><span class='hs-varid'>act</span> <span class='hs-varop'>.</span> <span class='hs-varid'>toResponse</span><span class='hs-layout'>)</span>
<a name="line-434"></a>
<a name="line-435"></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_dialog_new"</span>
<a name="line-436"></a> <span class='hs-varid'>gtk_dialog_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-437"></a>
<a name="line-438"></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_dialog_run"</span>
<a name="line-439"></a> <span class='hs-varid'>gtk_dialog_run</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'>Dialog</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-440"></a>
<a name="line-441"></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_dialog_response"</span>
<a name="line-442"></a> <span class='hs-varid'>gtk_dialog_response</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'>Dialog</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-443"></a>
<a name="line-444"></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_dialog_add_button"</span>
<a name="line-445"></a> <span class='hs-varid'>gtk_dialog_add_button</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'>Dialog</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'>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><span class='hs-layout'>)</span>
<a name="line-446"></a>
<a name="line-447"></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_dialog_add_action_widget"</span>
<a name="line-448"></a> <span class='hs-varid'>gtk_dialog_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'>Dialog</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-449"></a>
<a name="line-450"></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_dialog_get_has_separator"</span>
<a name="line-451"></a> <span class='hs-varid'>gtk_dialog_get_has_separator</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'>Dialog</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-452"></a>
<a name="line-453"></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_dialog_set_default_response"</span>
<a name="line-454"></a> <span class='hs-varid'>gtk_dialog_set_default_response</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'>Dialog</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-455"></a>
<a name="line-456"></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_dialog_set_has_separator"</span>
<a name="line-457"></a> <span class='hs-varid'>gtk_dialog_set_has_separator</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'>Dialog</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-458"></a>
<a name="line-459"></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_dialog_set_response_sensitive"</span>
<a name="line-460"></a> <span class='hs-varid'>gtk_dialog_set_response_sensitive</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'>Dialog</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'>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-461"></a>
<a name="line-462"></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_dialog_get_response_for_widget"</span>
<a name="line-463"></a> <span class='hs-varid'>gtk_dialog_get_response_for_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'>Dialog</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-464"></a>
<a name="line-465"></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_alternative_dialog_button_order"</span>
<a name="line-466"></a> <span class='hs-varid'>gtk_alternative_dialog_button_order</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'>Screen</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-467"></a>
<a name="line-468"></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_dialog_set_alternative_button_order_from_array"</span>
<a name="line-469"></a> <span class='hs-varid'>gtk_dialog_set_alternative_button_order_from_array</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'>Dialog</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-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>CInt</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>
</pre></body>
</html>
distrib
>
Fedora
>
14
>
x86_64
>
media
>
updates
>
by-pkgid
>
677c1b5134368504c2e447757584d19e
>
files
>
1127
