<?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/Gdk/Display.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/Gdk/Display.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) Display - a description of a keyboard/mouse/monitors combination</span>
<a name="line-5"></a><span class='hs-comment'>--</span>
<a name="line-6"></a><span class='hs-comment'>-- Author : Axel Simon</span>
<a name="line-7"></a><span class='hs-comment'>--</span>
<a name="line-8"></a><span class='hs-comment'>-- Created: 22 October 2009</span>
<a name="line-9"></a><span class='hs-comment'>--</span>
<a name="line-10"></a><span class='hs-comment'>-- Copyright (C) 2009 Axel Simon</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'>-- Controls the keyboard\/mouse\/monitors combination.</span>
<a name="line-28"></a><span class='hs-comment'>--</span>
<a name="line-29"></a><span class='hs-comment'>-- * Module available since Gdk version 2.2</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'>Gdk</span><span class='hs-varop'>.</span><span class='hs-conid'>Display</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'>-- | 'Display' objects purpose are two fold:</span>
<a name="line-36"></a><span class='hs-comment'>--</span>
<a name="line-37"></a><span class='hs-comment'>-- * To grab\/ungrab keyboard focus and mouse pointer</span>
<a name="line-38"></a><span class='hs-comment'>--</span>
<a name="line-39"></a><span class='hs-comment'>-- * To manage and provide information about the 'Screen'(s) available for</span>
<a name="line-40"></a><span class='hs-comment'>-- this 'Display'</span>
<a name="line-41"></a><span class='hs-comment'>--</span>
<a name="line-42"></a><span class='hs-comment'>-- 'Display' objects are the GDK representation of the X Display which can</span>
<a name="line-43"></a><span class='hs-comment'>-- be described as /a workstation consisting of a keyboard a pointing device</span>
<a name="line-44"></a><span class='hs-comment'>-- (such as a mouse) and one or more screens/. It is used to open and keep</span>
<a name="line-45"></a><span class='hs-comment'>-- track of various 'Screen' objects currently instanciated by the application.</span>
<a name="line-46"></a><span class='hs-comment'>-- It is also used to grab and release the keyboard and the mouse pointer.</span>
<a name="line-47"></a>
<a name="line-48"></a><span class='hs-comment'>-- * Class Hierarchy</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'>-- @</span>
<a name="line-52"></a><span class='hs-comment'>-- | 'GObject'</span>
<a name="line-53"></a><span class='hs-comment'>-- | +----Display</span>
<a name="line-54"></a><span class='hs-comment'>-- @</span>
<a name="line-55"></a>
<a name="line-56"></a>
<a name="line-57"></a><span class='hs-comment'>-- * Types</span>
<a name="line-58"></a> <span class='hs-conid'>Display</span><span class='hs-layout'>,</span>
<a name="line-59"></a> <span class='hs-conid'>DisplayClass</span><span class='hs-layout'>,</span>
<a name="line-60"></a> <span class='hs-varid'>castToDisplay</span><span class='hs-layout'>,</span> <span class='hs-varid'>gTypeDisplay</span><span class='hs-layout'>,</span>
<a name="line-61"></a> <span class='hs-varid'>toDisplay</span><span class='hs-layout'>,</span>
<a name="line-62"></a>
<a name="line-63"></a><span class='hs-comment'>-- * Methods</span>
<a name="line-64"></a> <span class='hs-varid'>displayOpen</span><span class='hs-layout'>,</span>
<a name="line-65"></a> <span class='hs-varid'>displayGetDefault</span><span class='hs-layout'>,</span>
<a name="line-66"></a> <span class='hs-varid'>displayGetName</span><span class='hs-layout'>,</span>
<a name="line-67"></a> <span class='hs-varid'>displayGetNScreens</span><span class='hs-layout'>,</span>
<a name="line-68"></a> <span class='hs-varid'>displayGetScreen</span><span class='hs-layout'>,</span>
<a name="line-69"></a> <span class='hs-varid'>displayGetDefaultScreen</span><span class='hs-layout'>,</span>
<a name="line-70"></a> <span class='hs-varid'>displayPointerUngrab</span><span class='hs-layout'>,</span>
<a name="line-71"></a> <span class='hs-varid'>displayKeyboardUngrab</span><span class='hs-layout'>,</span>
<a name="line-72"></a> <span class='hs-varid'>displayPointerIsGrabbed</span><span class='hs-layout'>,</span>
<a name="line-73"></a> <span class='hs-varid'>displayBeep</span><span class='hs-layout'>,</span>
<a name="line-74"></a> <span class='hs-varid'>displaySync</span><span class='hs-layout'>,</span>
<a name="line-75"></a>
<a name="line-76"></a> <span class='hs-varid'>displayFlush</span><span class='hs-layout'>,</span>
<a name="line-77"></a>
<a name="line-78"></a> <span class='hs-varid'>displayClose</span><span class='hs-layout'>,</span>
<a name="line-79"></a> <span class='hs-varid'>displayListDevices</span><span class='hs-layout'>,</span>
<a name="line-80"></a> <span class='hs-varid'>displaySetDoubleClickTime</span><span class='hs-layout'>,</span>
<a name="line-81"></a>
<a name="line-82"></a> <span class='hs-varid'>displaySetDoubleClickDistance</span><span class='hs-layout'>,</span>
<a name="line-83"></a>
<a name="line-84"></a> <span class='hs-varid'>displayGetPointer</span><span class='hs-layout'>,</span>
<a name="line-85"></a> <span class='hs-varid'>displayGetWindowAtPointer</span><span class='hs-layout'>,</span>
<a name="line-86"></a>
<a name="line-87"></a> <span class='hs-varid'>displayWarpPointer</span><span class='hs-layout'>,</span>
<a name="line-88"></a>
<a name="line-89"></a>
<a name="line-90"></a> <span class='hs-varid'>displaySupportsCursorColor</span><span class='hs-layout'>,</span>
<a name="line-91"></a> <span class='hs-varid'>displaySupportsCursorAlpha</span><span class='hs-layout'>,</span>
<a name="line-92"></a> <span class='hs-varid'>displayGetDefaultCursorSize</span><span class='hs-layout'>,</span>
<a name="line-93"></a> <span class='hs-varid'>displayGetMaximalCursorSize</span><span class='hs-layout'>,</span>
<a name="line-94"></a> <span class='hs-varid'>displayGetDefaultGroup</span><span class='hs-layout'>,</span>
<a name="line-95"></a>
<a name="line-96"></a> <span class='hs-varid'>displaySupportsSelectionNotification</span><span class='hs-layout'>,</span>
<a name="line-97"></a> <span class='hs-varid'>displayRequestSelectionNotification</span><span class='hs-layout'>,</span>
<a name="line-98"></a> <span class='hs-varid'>displaySupportsClipboardPersistence</span><span class='hs-layout'>,</span>
<a name="line-99"></a> <span class='hs-varid'>displayStoreClipboard</span><span class='hs-layout'>,</span>
<a name="line-100"></a>
<a name="line-101"></a> <span class='hs-varid'>displaySupportsShapes</span><span class='hs-layout'>,</span>
<a name="line-102"></a> <span class='hs-varid'>displaySupportsInputShapes</span><span class='hs-layout'>,</span>
<a name="line-103"></a>
<a name="line-104"></a> <span class='hs-varid'>displaySupportsComposite</span><span class='hs-layout'>,</span>
<a name="line-105"></a>
<a name="line-106"></a>
<a name="line-107"></a>
<a name="line-108"></a>
<a name="line-109"></a>
<a name="line-110"></a><span class='hs-comment'>-- * Signals</span>
<a name="line-111"></a> <span class='hs-varid'>displayClosed</span><span class='hs-layout'>,</span>
<a name="line-112"></a>
<a name="line-113"></a>
<a name="line-114"></a> <span class='hs-layout'>)</span> <span class='hs-keyword'>where</span>
<a name="line-115"></a>
<a name="line-116"></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-117"></a>
<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'>FFI</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'>UTFString</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'>Flags</span>
<a name="line-121"></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'>GList</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/Gdk/Display.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-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>Gdk</span><span class='hs-varop'>.</span><span class='hs-conid'>EventM</span>
<a name="line-126"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>Gdk</span><span class='hs-varop'>.</span><span class='hs-conid'>Enums</span> <span class='hs-layout'>(</span><span class='hs-conid'>Modifier</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-127"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>UI</span><span class='hs-varop'>.</span><span class='hs-conid'>Gtk</span><span class='hs-varop'>.</span><span class='hs-conid'>General</span><span class='hs-varop'>.</span><span class='hs-conid'>DNDTypes</span> <span class='hs-layout'>(</span><span class='hs-conid'>SelectionTag</span><span class='hs-layout'>,</span> <span class='hs-conid'>TargetTag</span><span class='hs-layout'>,</span> <span class='hs-conid'>Atom</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-128"></a>
<a name="line-129"></a>
<a name="line-130"></a><span class='hs-comment'>{-# LINE 128 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-131"></a>
<a name="line-132"></a>
<a name="line-133"></a><span class='hs-comment'>--------------------</span>
<a name="line-134"></a><span class='hs-comment'>-- Methods</span>
<a name="line-135"></a>
<a name="line-136"></a><a name="displayOpen"></a><span class='hs-comment'>-- | Opens a display.</span>
<a name="line-137"></a><span class='hs-comment'>--</span>
<a name="line-138"></a><span class='hs-definition'>displayOpen</span> <span class='hs-keyglyph'>::</span>
<a name="line-139"></a> <span class='hs-conid'>String</span> <span class='hs-comment'>-- ^ @displayName@ - the name of the display to open</span>
<a name="line-140"></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'>Display</span><span class='hs-layout'>)</span>
<a name="line-141"></a> <span class='hs-comment'>-- ^ returns a 'Display', or @Nothing@ if the display</span>
<a name="line-142"></a> <span class='hs-comment'>-- could not be opened.</span>
<a name="line-143"></a><span class='hs-definition'>displayOpen</span> <span class='hs-varid'>displayName</span> <span class='hs-keyglyph'>=</span>
<a name="line-144"></a> <span class='hs-varid'>maybeNull</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDisplay</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-145"></a> <span class='hs-varid'>withUTFString</span> <span class='hs-varid'>displayName</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>displayNamePtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-146"></a> <span class='hs-varid'>gdk_display_open</span>
<a name="line-147"></a><span class='hs-comment'>{-# LINE 144 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-148"></a> <span class='hs-varid'>displayNamePtr</span>
<a name="line-149"></a>
<a name="line-150"></a><a name="displayGetDefault"></a><span class='hs-comment'>-- | Gets the default 'Display'. This is a convenience function for</span>
<a name="line-151"></a><span class='hs-comment'>-- @displayManagerGetDefaultDisplay displayManagerGet@.</span>
<a name="line-152"></a><span class='hs-comment'>--</span>
<a name="line-153"></a><span class='hs-definition'>displayGetDefault</span> <span class='hs-keyglyph'>::</span>
<a name="line-154"></a> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-conid'>Display</span><span class='hs-layout'>)</span>
<a name="line-155"></a> <span class='hs-comment'>-- ^ returns a 'Display', or @Nothing@ if there is no</span>
<a name="line-156"></a> <span class='hs-comment'>-- default display.</span>
<a name="line-157"></a><span class='hs-definition'>displayGetDefault</span> <span class='hs-keyglyph'>=</span>
<a name="line-158"></a> <span class='hs-varid'>maybeNull</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDisplay</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span>
<a name="line-159"></a> <span class='hs-varid'>gdk_display_get_default</span>
<a name="line-160"></a><span class='hs-comment'>{-# LINE 156 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-161"></a>
<a name="line-162"></a><a name="displayGetName"></a><span class='hs-comment'>-- | Gets the name of the display.</span>
<a name="line-163"></a><span class='hs-comment'>--</span>
<a name="line-164"></a><span class='hs-definition'>displayGetName</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-165"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>String</span> <span class='hs-comment'>-- ^ returns a string representing the display name</span>
<a name="line-166"></a><span class='hs-definition'>displayGetName</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-167"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_name</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-168"></a><span class='hs-comment'>{-# LINE 163 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-169"></a> <span class='hs-varid'>self</span>
<a name="line-170"></a> <span class='hs-varop'>>>=</span> <span class='hs-varid'>peekUTFString</span>
<a name="line-171"></a>
<a name="line-172"></a><a name="displayGetNScreens"></a><span class='hs-comment'>-- | Gets the number of screen managed by the @display@.</span>
<a name="line-173"></a><span class='hs-comment'>--</span>
<a name="line-174"></a><span class='hs-definition'>displayGetNScreens</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-175"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ returns number of screens.</span>
<a name="line-176"></a><span class='hs-definition'>displayGetNScreens</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-177"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span>
<a name="line-178"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_n_screens</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-179"></a><span class='hs-comment'>{-# LINE 173 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-180"></a> <span class='hs-varid'>self</span>
<a name="line-181"></a>
<a name="line-182"></a><a name="displayGetScreen"></a><span class='hs-comment'>-- | Returns a screen object for one of the screens of the display.</span>
<a name="line-183"></a><span class='hs-comment'>--</span>
<a name="line-184"></a><span class='hs-definition'>displayGetScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-185"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @screenNum@ - the screen number</span>
<a name="line-186"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Screen</span> <span class='hs-comment'>-- ^ returns the 'Screen' object</span>
<a name="line-187"></a><span class='hs-definition'>displayGetScreen</span> <span class='hs-varid'>self</span> <span class='hs-varid'>screenNum</span> <span class='hs-keyglyph'>=</span>
<a name="line-188"></a> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkScreen</span> <span class='hs-varop'>$</span>
<a name="line-189"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_screen</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-190"></a><span class='hs-comment'>{-# LINE 183 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-191"></a> <span class='hs-varid'>self</span>
<a name="line-192"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>screenNum</span><span class='hs-layout'>)</span>
<a name="line-193"></a>
<a name="line-194"></a><a name="displayGetDefaultScreen"></a><span class='hs-comment'>-- | Get the default 'Screen' for @display@.</span>
<a name="line-195"></a><span class='hs-comment'>--</span>
<a name="line-196"></a><span class='hs-definition'>displayGetDefaultScreen</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-197"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Screen</span> <span class='hs-comment'>-- ^ returns the default 'Screen' object for @display@</span>
<a name="line-198"></a><span class='hs-definition'>displayGetDefaultScreen</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-199"></a> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkScreen</span> <span class='hs-varop'>$</span>
<a name="line-200"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_default_screen</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-201"></a><span class='hs-comment'>{-# LINE 193 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-202"></a> <span class='hs-varid'>self</span>
<a name="line-203"></a>
<a name="line-204"></a><a name="displayPointerUngrab"></a><span class='hs-comment'>-- | Release any pointer grab.</span>
<a name="line-205"></a><span class='hs-comment'>--</span>
<a name="line-206"></a><span class='hs-definition'>displayPointerUngrab</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-207"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TimeStamp</span> <span class='hs-comment'>-- ^ @time@ - a timestap (e.g. 'currentTime').</span>
<a name="line-208"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-209"></a><span class='hs-definition'>displayPointerUngrab</span> <span class='hs-varid'>self</span> <span class='hs-varid'>time</span> <span class='hs-keyglyph'>=</span>
<a name="line-210"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_pointer_ungrab</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-211"></a><span class='hs-comment'>{-# LINE 202 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-212"></a> <span class='hs-varid'>self</span>
<a name="line-213"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>time</span><span class='hs-layout'>)</span>
<a name="line-214"></a>
<a name="line-215"></a><a name="displayKeyboardUngrab"></a><span class='hs-comment'>-- | Release any keyboard grab</span>
<a name="line-216"></a><span class='hs-comment'>--</span>
<a name="line-217"></a><span class='hs-definition'>displayKeyboardUngrab</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-218"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>TimeStamp</span> <span class='hs-comment'>-- ^ @time@ - a timestap (e.g 'currentTime').</span>
<a name="line-219"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-220"></a><span class='hs-definition'>displayKeyboardUngrab</span> <span class='hs-varid'>self</span> <span class='hs-varid'>time</span> <span class='hs-keyglyph'>=</span>
<a name="line-221"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_keyboard_ungrab</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-222"></a><span class='hs-comment'>{-# LINE 212 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-223"></a> <span class='hs-varid'>self</span>
<a name="line-224"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>time</span><span class='hs-layout'>)</span>
<a name="line-225"></a>
<a name="line-226"></a><a name="displayPointerIsGrabbed"></a><span class='hs-comment'>-- | Test if the pointer is grabbed.</span>
<a name="line-227"></a><span class='hs-comment'>--</span>
<a name="line-228"></a><span class='hs-definition'>displayPointerIsGrabbed</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-229"></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 an active X pointer grab is in effect</span>
<a name="line-230"></a><span class='hs-definition'>displayPointerIsGrabbed</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-231"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-232"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_pointer_is_grabbed</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-233"></a><span class='hs-comment'>{-# LINE 222 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-234"></a> <span class='hs-varid'>self</span>
<a name="line-235"></a>
<a name="line-236"></a><a name="displayBeep"></a><span class='hs-comment'>-- | Emits a short beep on @display@</span>
<a name="line-237"></a><span class='hs-comment'>--</span>
<a name="line-238"></a><span class='hs-definition'>displayBeep</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-239"></a><span class='hs-definition'>displayBeep</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-240"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_beep</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-241"></a><span class='hs-comment'>{-# LINE 229 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-242"></a> <span class='hs-varid'>self</span>
<a name="line-243"></a>
<a name="line-244"></a><a name="displaySync"></a><span class='hs-comment'>-- | Flushes any requests queued for the windowing system and waits until all</span>
<a name="line-245"></a><span class='hs-comment'>-- requests have been handled. This is often used for making sure that the</span>
<a name="line-246"></a><span class='hs-comment'>-- display is synchronized with the current state of the program. Calling</span>
<a name="line-247"></a><span class='hs-comment'>-- 'displaySync' before 'errorTrapPop' makes sure that any errors generated</span>
<a name="line-248"></a><span class='hs-comment'>-- from earlier requests are handled before the error trap is removed.</span>
<a name="line-249"></a><span class='hs-comment'>--</span>
<a name="line-250"></a><span class='hs-comment'>-- This is most useful for X11. On windowing systems where requests are</span>
<a name="line-251"></a><span class='hs-comment'>-- handled synchronously, this function will do nothing.</span>
<a name="line-252"></a><span class='hs-comment'>--</span>
<a name="line-253"></a><span class='hs-definition'>displaySync</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-254"></a><span class='hs-definition'>displaySync</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-255"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_sync</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-256"></a><span class='hs-comment'>{-# LINE 243 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-257"></a> <span class='hs-varid'>self</span>
<a name="line-258"></a>
<a name="line-259"></a>
<a name="line-260"></a><a name="displayFlush"></a><span class='hs-comment'>-- | Flushes any requests queued for the windowing system; this happens</span>
<a name="line-261"></a><span class='hs-comment'>-- automatically when the main loop blocks waiting for new events, but if your</span>
<a name="line-262"></a><span class='hs-comment'>-- application is drawing without returning control to the main loop, you may</span>
<a name="line-263"></a><span class='hs-comment'>-- need to call this function explicitely. A common case where this function</span>
<a name="line-264"></a><span class='hs-comment'>-- needs to be called is when an application is executing drawing commands from</span>
<a name="line-265"></a><span class='hs-comment'>-- a thread other than the thread where the main loop is running.</span>
<a name="line-266"></a><span class='hs-comment'>--</span>
<a name="line-267"></a><span class='hs-comment'>-- This is most useful for X11. On windowing systems where requests are</span>
<a name="line-268"></a><span class='hs-comment'>-- handled synchronously, this function will do nothing.</span>
<a name="line-269"></a><span class='hs-comment'>--</span>
<a name="line-270"></a><span class='hs-comment'>-- * Available since Gdk version 2.4</span>
<a name="line-271"></a><span class='hs-comment'>--</span>
<a name="line-272"></a><span class='hs-definition'>displayFlush</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-273"></a><span class='hs-definition'>displayFlush</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-274"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_flush</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-275"></a><span class='hs-comment'>{-# LINE 261 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-276"></a> <span class='hs-varid'>self</span>
<a name="line-277"></a>
<a name="line-278"></a>
<a name="line-279"></a><a name="displayClose"></a><span class='hs-comment'>-- | Closes the connection to the windowing system for the given display, and</span>
<a name="line-280"></a><span class='hs-comment'>-- cleans up associated resources.</span>
<a name="line-281"></a><span class='hs-comment'>--</span>
<a name="line-282"></a><span class='hs-definition'>displayClose</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-283"></a><span class='hs-definition'>displayClose</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-284"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_close</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-285"></a><span class='hs-comment'>{-# LINE 270 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-286"></a> <span class='hs-varid'>self</span>
<a name="line-287"></a>
<a name="line-288"></a><a name="displayListDevices"></a><span class='hs-comment'>-- | Returns the list of available input devices attached to @display@.</span>
<a name="line-289"></a><span class='hs-comment'>--</span>
<a name="line-290"></a><span class='hs-definition'>displayListDevices</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-291"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Device</span><span class='hs-keyglyph'>]</span> <span class='hs-comment'>-- ^ returns a list of 'Device'</span>
<a name="line-292"></a><span class='hs-definition'>displayListDevices</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-293"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_list_devices</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-294"></a><span class='hs-comment'>{-# LINE 278 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-295"></a> <span class='hs-varid'>self</span>
<a name="line-296"></a> <span class='hs-varop'>>>=</span> <span class='hs-varid'>readGList</span>
<a name="line-297"></a> <span class='hs-varop'>>>=</span> <span class='hs-varid'>mapM</span> <span class='hs-layout'>(</span><span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDevice</span> <span class='hs-varop'>.</span> <span class='hs-varid'>return</span><span class='hs-layout'>)</span>
<a name="line-298"></a>
<a name="line-299"></a>
<a name="line-300"></a><a name="displaySetDoubleClickTime"></a><span class='hs-comment'>-- | Sets the double click time (two clicks within this time interval count as</span>
<a name="line-301"></a><span class='hs-comment'>-- a double click and result in an 'eventButton' where 'eventClick' is</span>
<a name="line-302"></a><span class='hs-comment'>-- 'DoubleClick'). Applications should /not/ set this, it is a global</span>
<a name="line-303"></a><span class='hs-comment'>-- user-configured setting.</span>
<a name="line-304"></a><span class='hs-comment'>--</span>
<a name="line-305"></a><span class='hs-definition'>displaySetDoubleClickTime</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-306"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @msec@ - double click time in milliseconds (thousandths of a</span>
<a name="line-307"></a> <span class='hs-comment'>-- second)</span>
<a name="line-308"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-309"></a><span class='hs-definition'>displaySetDoubleClickTime</span> <span class='hs-varid'>self</span> <span class='hs-varid'>msec</span> <span class='hs-keyglyph'>=</span>
<a name="line-310"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_set_double_click_time</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-311"></a><span class='hs-comment'>{-# LINE 294 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-312"></a> <span class='hs-varid'>self</span>
<a name="line-313"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>msec</span><span class='hs-layout'>)</span>
<a name="line-314"></a>
<a name="line-315"></a>
<a name="line-316"></a><a name="displaySetDoubleClickDistance"></a><span class='hs-comment'>-- | Sets the double click distance (two clicks within this distance count as</span>
<a name="line-317"></a><span class='hs-comment'>-- a double click and result in an 'eventButton' where 'eventClick' is</span>
<a name="line-318"></a><span class='hs-comment'>-- 'DoubleClick'). See also 'displaySetDoubleClickTime'. Applications should</span>
<a name="line-319"></a><span class='hs-comment'>-- /not/ set this, it is a global user-configured setting.</span>
<a name="line-320"></a><span class='hs-comment'>--</span>
<a name="line-321"></a><span class='hs-comment'>-- * Available since Gdk version 2.4</span>
<a name="line-322"></a><span class='hs-comment'>--</span>
<a name="line-323"></a><span class='hs-definition'>displaySetDoubleClickDistance</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-324"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @distance@ - distance in pixels</span>
<a name="line-325"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-326"></a><span class='hs-definition'>displaySetDoubleClickDistance</span> <span class='hs-varid'>self</span> <span class='hs-varid'>distance</span> <span class='hs-keyglyph'>=</span>
<a name="line-327"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_set_double_click_distance</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-328"></a><span class='hs-comment'>{-# LINE 310 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-329"></a> <span class='hs-varid'>self</span>
<a name="line-330"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>distance</span><span class='hs-layout'>)</span>
<a name="line-331"></a>
<a name="line-332"></a>
<a name="line-333"></a><a name="displayGetPointer"></a><span class='hs-comment'>-- | Gets the current location of the pointer and the current modifier mask</span>
<a name="line-334"></a><span class='hs-comment'>-- for a given display.</span>
<a name="line-335"></a><span class='hs-comment'>--</span>
<a name="line-336"></a><span class='hs-definition'>displayGetPointer</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-337"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Screen</span><span class='hs-layout'>,</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Modifier</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>,</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span>
<a name="line-338"></a> <span class='hs-comment'>-- ^ @(s, m, x, y)@ - the screen @s@, the modifier mask @m@ and the @x@ and</span>
<a name="line-339"></a> <span class='hs-comment'>-- @y@ coordinates of the pointer</span>
<a name="line-340"></a><span class='hs-definition'>displayGetPointer</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-341"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>sPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-342"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>xPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-343"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>yPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-344"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>mPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-345"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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-varid'>arg5</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'>gdk_display_get_pointer</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-varid'>arg5</span><span class='hs-layout'>)</span>
<a name="line-346"></a><span class='hs-comment'>{-# LINE 327 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-347"></a> <span class='hs-varid'>self</span>
<a name="line-348"></a> <span class='hs-layout'>(</span><span class='hs-varid'>castPtr</span> <span class='hs-varid'>sPtr</span><span class='hs-layout'>)</span>
<a name="line-349"></a> <span class='hs-varid'>xPtr</span>
<a name="line-350"></a> <span class='hs-varid'>yPtr</span>
<a name="line-351"></a> <span class='hs-varid'>mPtr</span> <span class='hs-varop'>>></span>
<a name="line-352"></a> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkScreen</span> <span class='hs-layout'>(</span><span class='hs-varid'>peek</span> <span class='hs-varid'>sPtr</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>s</span> <span class='hs-keyglyph'>-></span>
<a name="line-353"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>xPtr</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>x</span> <span class='hs-keyglyph'>-></span>
<a name="line-354"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>yPtr</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>y</span> <span class='hs-keyglyph'>-></span>
<a name="line-355"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>mPtr</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>m</span> <span class='hs-keyglyph'>-></span>
<a name="line-356"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>s</span><span class='hs-layout'>,</span> <span class='hs-varid'>toFlags</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>m</span><span class='hs-layout'>)</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>x</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span>
<a name="line-357"></a>
<a name="line-358"></a><a name="displayGetWindowAtPointer"></a><span class='hs-comment'>-- | Obtains the window underneath the mouse pointer, returning the location</span>
<a name="line-359"></a><span class='hs-comment'>-- of the pointer in that window in @winX@, @winY@ for @screen@. Returns</span>
<a name="line-360"></a><span class='hs-comment'>-- @Nothing@ if</span>
<a name="line-361"></a><span class='hs-comment'>-- the window under the mouse pointer is not known to GDK (for example, belongs</span>
<a name="line-362"></a><span class='hs-comment'>-- to another application).</span>
<a name="line-363"></a><span class='hs-comment'>--</span>
<a name="line-364"></a><span class='hs-definition'>displayGetWindowAtPointer</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-365"></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-layout'>(</span><span class='hs-conid'>DrawWindow</span><span class='hs-layout'>,</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-366"></a> <span class='hs-comment'>-- ^ @(screen, winX, winY)@ returns the window under the mouse</span>
<a name="line-367"></a> <span class='hs-comment'>-- pointer, or @Nothing@. The @winX@ and @winY@ denote the pointer location</span>
<a name="line-368"></a> <span class='hs-comment'>-- relative to the window origin</span>
<a name="line-369"></a><span class='hs-definition'>displayGetWindowAtPointer</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-370"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>winXPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-371"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>winYPtr</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyword'>do</span>
<a name="line-372"></a> <span class='hs-varid'>wPtr</span> <span class='hs-keyglyph'><-</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_window_at_pointer</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-373"></a><span class='hs-comment'>{-# LINE 353 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-374"></a> <span class='hs-varid'>self</span>
<a name="line-375"></a> <span class='hs-varid'>winXPtr</span>
<a name="line-376"></a> <span class='hs-varid'>winYPtr</span>
<a name="line-377"></a> <span class='hs-keyword'>if</span> <span class='hs-varid'>wPtr</span><span class='hs-varop'>==</span><span class='hs-varid'>nullPtr</span> <span class='hs-keyword'>then</span> <span class='hs-varid'>return</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyword'>else</span>
<a name="line-378"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>winXPtr</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>winX</span> <span class='hs-keyglyph'>-></span>
<a name="line-379"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>winYPtr</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>winY</span> <span class='hs-keyglyph'>-></span>
<a name="line-380"></a> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDrawWindow</span> <span class='hs-layout'>(</span><span class='hs-varid'>return</span> <span class='hs-varid'>wPtr</span><span class='hs-layout'>)</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>win</span> <span class='hs-keyglyph'>-></span>
<a name="line-381"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-layout'>(</span><span class='hs-varid'>win</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>winX</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>winY</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-382"></a>
<a name="line-383"></a><span class='hs-comment'>{- not worth the trouble
<a name="line-384"></a>
<a name="line-385"></a>-- | This function allows for hooking into the operation of getting the
<a name="line-386"></a>-- current location of the pointer on a particular display. This is only useful
<a name="line-387"></a>-- for such low-level tools as an event recorder. Applications should never
<a name="line-388"></a>-- have any reason to use this facility.
<a name="line-389"></a>--
<a name="line-390"></a>displaySetPointerHooks :: Display
<a name="line-391"></a> -> {-const-GdkDisplayPointerHooks*-} -- ^ @newHooks@ - a table of pointers to
<a name="line-392"></a> -- functions for getting quantities
<a name="line-393"></a> -- related to the current pointer
<a name="line-394"></a> -- position, or {@((void *)0)@, FIXME: this
<a name="line-395"></a> -- should probably be converted to a
<a name="line-396"></a> -- Maybe data type} to restore the
<a name="line-397"></a> -- default table.
<a name="line-398"></a> -> IO {-GdkDisplayPointerHooks*-} -- ^ returns the previous pointer hook
<a name="line-399"></a> -- table
<a name="line-400"></a>displaySetPointerHooks self newHooks =
<a name="line-401"></a> {# call gdk_display_set_pointer_hooks #}
<a name="line-402"></a> self
<a name="line-403"></a> {-newHooks-}
<a name="line-404"></a>-}</span>
<a name="line-405"></a>
<a name="line-406"></a>
<a name="line-407"></a><a name="displayWarpPointer"></a><span class='hs-comment'>-- | Moves the pointer of @display@ to the point @x@,@y@ on the screen</span>
<a name="line-408"></a><span class='hs-comment'>-- @screen@, unless the pointer is confined to a window by a grab, in which</span>
<a name="line-409"></a><span class='hs-comment'>-- case it will be moved as far as allowed by the grab. Warping the pointer</span>
<a name="line-410"></a><span class='hs-comment'>-- creates events as if the user had moved the mouse instantaneously to the</span>
<a name="line-411"></a><span class='hs-comment'>-- destination.</span>
<a name="line-412"></a><span class='hs-comment'>--</span>
<a name="line-413"></a><span class='hs-comment'>-- Note that the pointer should normally be under the control of the user.</span>
<a name="line-414"></a><span class='hs-comment'>-- This function was added to cover some rare use cases like keyboard</span>
<a name="line-415"></a><span class='hs-comment'>-- navigation support for the color picker in the 'ColorSelectionDialog'.</span>
<a name="line-416"></a><span class='hs-comment'>--</span>
<a name="line-417"></a><span class='hs-comment'>-- * Available since Gdk version 2.8</span>
<a name="line-418"></a><span class='hs-comment'>--</span>
<a name="line-419"></a><span class='hs-definition'>displayWarpPointer</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-420"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Screen</span> <span class='hs-comment'>-- ^ @screen@ - the screen of @display@ to warp the pointer to</span>
<a name="line-421"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @x@ - the x coordinate of the destination</span>
<a name="line-422"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ @y@ - the y coordinate of the destination</span>
<a name="line-423"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-424"></a><span class='hs-definition'>displayWarpPointer</span> <span class='hs-varid'>self</span> <span class='hs-varid'>screen</span> <span class='hs-varid'>x</span> <span class='hs-varid'>y</span> <span class='hs-keyglyph'>=</span>
<a name="line-425"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>Screen</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</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'>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'>gdk_display_warp_pointer</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</span><span class='hs-layout'>)</span>
<a name="line-426"></a><span class='hs-comment'>{-# LINE 405 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-427"></a> <span class='hs-varid'>self</span>
<a name="line-428"></a> <span class='hs-varid'>screen</span>
<a name="line-429"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>x</span><span class='hs-layout'>)</span>
<a name="line-430"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>y</span><span class='hs-layout'>)</span>
<a name="line-431"></a>
<a name="line-432"></a>
<a name="line-433"></a>
<a name="line-434"></a><a name="displaySupportsCursorColor"></a><span class='hs-comment'>-- | Returns @True@ if multicolored cursors are supported on @display@.</span>
<a name="line-435"></a><span class='hs-comment'>-- Otherwise, cursors have only a forground and a background color.</span>
<a name="line-436"></a><span class='hs-comment'>--</span>
<a name="line-437"></a><span class='hs-comment'>-- * Available since Gdk version 2.4</span>
<a name="line-438"></a><span class='hs-comment'>--</span>
<a name="line-439"></a><span class='hs-definition'>displaySupportsCursorColor</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-440"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ returns whether cursors can have multiple colors.</span>
<a name="line-441"></a><span class='hs-definition'>displaySupportsCursorColor</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-442"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-443"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_supports_cursor_color</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-444"></a><span class='hs-comment'>{-# LINE 422 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-445"></a> <span class='hs-varid'>self</span>
<a name="line-446"></a>
<a name="line-447"></a><a name="displaySupportsCursorAlpha"></a><span class='hs-comment'>-- | Returns @True@ if cursors can use an 8bit alpha channel on @display@.</span>
<a name="line-448"></a><span class='hs-comment'>-- Otherwise, cursors are restricted to bilevel alpha (i.e. a mask).</span>
<a name="line-449"></a><span class='hs-comment'>--</span>
<a name="line-450"></a><span class='hs-comment'>-- * Available since Gdk version 2.4</span>
<a name="line-451"></a><span class='hs-comment'>--</span>
<a name="line-452"></a><span class='hs-definition'>displaySupportsCursorAlpha</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-453"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ returns whether cursors can have alpha channels.</span>
<a name="line-454"></a><span class='hs-definition'>displaySupportsCursorAlpha</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-455"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-456"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_supports_cursor_alpha</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-457"></a><span class='hs-comment'>{-# LINE 434 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-458"></a> <span class='hs-varid'>self</span>
<a name="line-459"></a>
<a name="line-460"></a><a name="displayGetDefaultCursorSize"></a><span class='hs-comment'>-- | Returns the default size to use for cursors on @display@.</span>
<a name="line-461"></a><span class='hs-comment'>--</span>
<a name="line-462"></a><span class='hs-comment'>-- * Available since Gdk version 2.4</span>
<a name="line-463"></a><span class='hs-comment'>--</span>
<a name="line-464"></a><span class='hs-definition'>displayGetDefaultCursorSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-465"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span> <span class='hs-comment'>-- ^ returns the default cursor size.</span>
<a name="line-466"></a><span class='hs-definition'>displayGetDefaultCursorSize</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-467"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varop'>$</span>
<a name="line-468"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_default_cursor_size</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-469"></a><span class='hs-comment'>{-# LINE 445 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-470"></a> <span class='hs-varid'>self</span>
<a name="line-471"></a>
<a name="line-472"></a><a name="displayGetMaximalCursorSize"></a><span class='hs-comment'>-- | Gets the maximal size to use for cursors on @display@.</span>
<a name="line-473"></a><span class='hs-comment'>--</span>
<a name="line-474"></a><span class='hs-comment'>-- * Available since Gdk version 2.4</span>
<a name="line-475"></a><span class='hs-comment'>--</span>
<a name="line-476"></a><span class='hs-definition'>displayGetMaximalCursorSize</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-477"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Int</span><span class='hs-layout'>,</span> <span class='hs-conid'>Int</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ @(width, height)@</span>
<a name="line-478"></a> <span class='hs-comment'>-- maximal @width@ and @height@ of the cursor</span>
<a name="line-479"></a><span class='hs-definition'>displayGetMaximalCursorSize</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-480"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>widthPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-481"></a> <span class='hs-varid'>alloca</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>heightPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-482"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_maximal_cursor_size</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-483"></a><span class='hs-comment'>{-# LINE 458 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-484"></a> <span class='hs-varid'>self</span>
<a name="line-485"></a> <span class='hs-varid'>widthPtr</span>
<a name="line-486"></a> <span class='hs-varid'>heightPtr</span> <span class='hs-varop'>>></span>
<a name="line-487"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>widthPtr</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>width</span> <span class='hs-keyglyph'>-></span>
<a name="line-488"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>heightPtr</span> <span class='hs-varop'>>>=</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>height</span> <span class='hs-keyglyph'>-></span>
<a name="line-489"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>width</span><span class='hs-layout'>,</span> <span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>height</span><span class='hs-layout'>)</span>
<a name="line-490"></a>
<a name="line-491"></a><a name="displayGetDefaultGroup"></a><span class='hs-comment'>-- | Returns the default group leader window for all toplevel windows on</span>
<a name="line-492"></a><span class='hs-comment'>-- @display@. This window is implicitly created by GDK. See 'windowSetGroup'.</span>
<a name="line-493"></a><span class='hs-comment'>--</span>
<a name="line-494"></a><span class='hs-comment'>-- * Available since Gdk version 2.4</span>
<a name="line-495"></a><span class='hs-comment'>--</span>
<a name="line-496"></a><span class='hs-definition'>displayGetDefaultGroup</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-497"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>DrawWindow</span> <span class='hs-comment'>-- ^ returns The default group leader window for @display@</span>
<a name="line-498"></a><span class='hs-definition'>displayGetDefaultGroup</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-499"></a> <span class='hs-varid'>makeNewGObject</span> <span class='hs-varid'>mkDrawWindow</span> <span class='hs-varop'>$</span>
<a name="line-500"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_get_default_group</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-501"></a><span class='hs-comment'>{-# LINE 475 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-502"></a> <span class='hs-varid'>self</span>
<a name="line-503"></a>
<a name="line-504"></a>
<a name="line-505"></a><a name="displaySupportsSelectionNotification"></a><span class='hs-comment'>-- | Returns whether 'EOwnerChange' events will be</span>
<a name="line-506"></a><span class='hs-comment'>-- sent when the owner of a selection changes.</span>
<a name="line-507"></a><span class='hs-comment'>--</span>
<a name="line-508"></a><span class='hs-comment'>-- * Available since Gdk version 2.6</span>
<a name="line-509"></a><span class='hs-comment'>--</span>
<a name="line-510"></a><span class='hs-definition'>displaySupportsSelectionNotification</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-511"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ returns whether 'EOwnerChange'</span>
<a name="line-512"></a> <span class='hs-comment'>-- events will be sent.</span>
<a name="line-513"></a><span class='hs-definition'>displaySupportsSelectionNotification</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-514"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-515"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_supports_selection_notification</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-516"></a><span class='hs-comment'>{-# LINE 489 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-517"></a> <span class='hs-varid'>self</span>
<a name="line-518"></a>
<a name="line-519"></a><a name="displayRequestSelectionNotification"></a><span class='hs-comment'>-- | Request 'EOwnerChange' events for ownership</span>
<a name="line-520"></a><span class='hs-comment'>-- changes of the selection named by the given atom.</span>
<a name="line-521"></a><span class='hs-comment'>--</span>
<a name="line-522"></a><span class='hs-comment'>-- * Available since Gdk version 2.6</span>
<a name="line-523"></a><span class='hs-comment'>--</span>
<a name="line-524"></a><span class='hs-definition'>displayRequestSelectionNotification</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-525"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>SelectionTag</span> <span class='hs-comment'>-- ^ @selection@ - the 'Atom' naming</span>
<a name="line-526"></a> <span class='hs-comment'>-- the selection for which ownership change notification is</span>
<a name="line-527"></a> <span class='hs-comment'>-- requested</span>
<a name="line-528"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Bool</span> <span class='hs-comment'>-- ^ returns whether 'EOwnerChange'</span>
<a name="line-529"></a> <span class='hs-comment'>-- events will be sent.</span>
<a name="line-530"></a><span class='hs-definition'>displayRequestSelectionNotification</span> <span class='hs-varid'>self</span> <span class='hs-layout'>(</span><span class='hs-conid'>Atom</span> <span class='hs-varid'>selection</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-531"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-532"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_request_selection_notification</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span>
<a name="line-533"></a><span class='hs-comment'>{-# LINE 505 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-534"></a> <span class='hs-varid'>self</span>
<a name="line-535"></a> <span class='hs-varid'>selection</span>
<a name="line-536"></a>
<a name="line-537"></a><a name="displaySupportsClipboardPersistence"></a><span class='hs-comment'>-- | Returns whether the speicifed display supports clipboard persistance;</span>
<a name="line-538"></a><span class='hs-comment'>-- i.e. if it's possible to store the clipboard data after an application has</span>
<a name="line-539"></a><span class='hs-comment'>-- quit. On X11 this checks if a clipboard daemon is running.</span>
<a name="line-540"></a><span class='hs-comment'>--</span>
<a name="line-541"></a><span class='hs-comment'>-- * Available since Gdk version 2.6</span>
<a name="line-542"></a><span class='hs-comment'>--</span>
<a name="line-543"></a><span class='hs-definition'>displaySupportsClipboardPersistence</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-544"></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 the display supports clipboard persistance.</span>
<a name="line-545"></a><span class='hs-definition'>displaySupportsClipboardPersistence</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-546"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-547"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_supports_clipboard_persistence</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-548"></a><span class='hs-comment'>{-# LINE 519 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-549"></a> <span class='hs-varid'>self</span>
<a name="line-550"></a>
<a name="line-551"></a><a name="displayStoreClipboard"></a><span class='hs-comment'>-- | Issues a request to the clipboard manager to store the clipboard data. On</span>
<a name="line-552"></a><span class='hs-comment'>-- X11, this is a special program that works according to the freedesktop</span>
<a name="line-553"></a><span class='hs-comment'>-- clipboard specification, available at</span>
<a name="line-554"></a><span class='hs-comment'>-- http:\/\/www.freedesktop.org\/Standards\/clipboard-manager-spec.</span>
<a name="line-555"></a><span class='hs-comment'>--</span>
<a name="line-556"></a><span class='hs-comment'>-- * Available since Gdk version 2.6</span>
<a name="line-557"></a><span class='hs-comment'>--</span>
<a name="line-558"></a><span class='hs-definition'>displayStoreClipboard</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-559"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>DrawWindow</span> <span class='hs-comment'>-- ^ @clipboardWindow@ - a 'DrawWindow' belonging to</span>
<a name="line-560"></a> <span class='hs-comment'>-- the clipboard owner</span>
<a name="line-561"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Word32</span> <span class='hs-comment'>-- ^ @time@ - a timestamp</span>
<a name="line-562"></a> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>Maybe</span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>TargetTag</span><span class='hs-keyglyph'>]</span><span class='hs-layout'>)</span> <span class='hs-comment'>-- ^ @targets@ - an array of targets that should be</span>
<a name="line-563"></a> <span class='hs-comment'>-- saved, or @Nothing@ if all available</span>
<a name="line-564"></a> <span class='hs-comment'>-- targets should be saved.</span>
<a name="line-565"></a> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-566"></a><span class='hs-definition'>displayStoreClipboard</span> <span class='hs-varid'>self</span> <span class='hs-varid'>clipboardWindow</span> <span class='hs-varid'>time</span> <span class='hs-layout'>(</span><span class='hs-conid'>Just</span> <span class='hs-varid'>targets</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span>
<a name="line-567"></a> <span class='hs-varid'>withArrayLen</span> <span class='hs-layout'>(</span><span class='hs-varid'>map</span> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Atom</span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-varid'>a</span><span class='hs-layout'>)</span> <span class='hs-varid'>targets</span><span class='hs-layout'>)</span> <span class='hs-varop'>$</span> <span class='hs-keyglyph'>\</span><span class='hs-varid'>nTargets</span> <span class='hs-varid'>tPtr</span> <span class='hs-keyglyph'>-></span>
<a name="line-568"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>DrawWindow</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</span> <span class='hs-varid'>arg5</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'>gdk_display_store_clipboard</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</span> <span class='hs-varid'>arg5</span><span class='hs-layout'>)</span>
<a name="line-569"></a><span class='hs-comment'>{-# LINE 539 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-570"></a> <span class='hs-varid'>self</span>
<a name="line-571"></a> <span class='hs-varid'>clipboardWindow</span>
<a name="line-572"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>time</span><span class='hs-layout'>)</span>
<a name="line-573"></a> <span class='hs-varid'>tPtr</span>
<a name="line-574"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>nTargets</span><span class='hs-layout'>)</span>
<a name="line-575"></a><span class='hs-definition'>displayStoreClipboard</span> <span class='hs-varid'>self</span> <span class='hs-varid'>clipboardWindow</span> <span class='hs-varid'>time</span> <span class='hs-conid'>Nothing</span> <span class='hs-keyglyph'>=</span>
<a name="line-576"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</span> <span class='hs-varid'>arg1</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-conid'>DrawWindow</span> <span class='hs-varid'>arg2</span><span class='hs-layout'>)</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</span> <span class='hs-varid'>arg5</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'>gdk_display_store_clipboard</span> <span class='hs-varid'>argPtr1</span> <span class='hs-varid'>argPtr2</span> <span class='hs-varid'>arg3</span> <span class='hs-varid'>arg4</span> <span class='hs-varid'>arg5</span><span class='hs-layout'>)</span>
<a name="line-577"></a><span class='hs-comment'>{-# LINE 546 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-578"></a> <span class='hs-varid'>self</span>
<a name="line-579"></a> <span class='hs-varid'>clipboardWindow</span>
<a name="line-580"></a> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>time</span><span class='hs-layout'>)</span>
<a name="line-581"></a> <span class='hs-varid'>nullPtr</span>
<a name="line-582"></a> <span class='hs-num'>0</span>
<a name="line-583"></a>
<a name="line-584"></a>
<a name="line-585"></a><a name="displaySupportsShapes"></a><span class='hs-comment'>-- | Returns @True@ if 'windowShapeCombineMask' can be used to create shaped</span>
<a name="line-586"></a><span class='hs-comment'>-- windows on @display@.</span>
<a name="line-587"></a><span class='hs-comment'>--</span>
<a name="line-588"></a><span class='hs-comment'>-- * Available since Gdk version 2.10</span>
<a name="line-589"></a><span class='hs-comment'>--</span>
<a name="line-590"></a><span class='hs-definition'>displaySupportsShapes</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-591"></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 shaped windows are supported</span>
<a name="line-592"></a><span class='hs-definition'>displaySupportsShapes</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-593"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-594"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_supports_shapes</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-595"></a><span class='hs-comment'>{-# LINE 563 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-596"></a> <span class='hs-varid'>self</span>
<a name="line-597"></a>
<a name="line-598"></a><a name="displaySupportsInputShapes"></a><span class='hs-comment'>-- | Returns @True@ if 'windowInputShapeCombineMask' can be used to modify the</span>
<a name="line-599"></a><span class='hs-comment'>-- input shape of windows on @display@.</span>
<a name="line-600"></a><span class='hs-comment'>--</span>
<a name="line-601"></a><span class='hs-comment'>-- * Available since Gdk version 2.10</span>
<a name="line-602"></a><span class='hs-comment'>--</span>
<a name="line-603"></a><span class='hs-definition'>displaySupportsInputShapes</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-604"></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 windows with modified input shape are</span>
<a name="line-605"></a> <span class='hs-comment'>-- supported</span>
<a name="line-606"></a><span class='hs-definition'>displaySupportsInputShapes</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-607"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-608"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_supports_input_shapes</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-609"></a><span class='hs-comment'>{-# LINE 576 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-610"></a> <span class='hs-varid'>self</span>
<a name="line-611"></a>
<a name="line-612"></a>
<a name="line-613"></a><a name="displaySupportsComposite"></a><span class='hs-comment'>-- | Returns @True@ if 'windowSetComposited' can be used to redirect drawing</span>
<a name="line-614"></a><span class='hs-comment'>-- on the window using compositing.</span>
<a name="line-615"></a><span class='hs-comment'>--</span>
<a name="line-616"></a><span class='hs-comment'>-- Currently this only works on X11 with XComposite and XDamage extensions</span>
<a name="line-617"></a><span class='hs-comment'>-- available.</span>
<a name="line-618"></a><span class='hs-comment'>--</span>
<a name="line-619"></a><span class='hs-comment'>-- * Available since Gdk version 2.12</span>
<a name="line-620"></a><span class='hs-comment'>--</span>
<a name="line-621"></a><span class='hs-definition'>displaySupportsComposite</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Display</span>
<a name="line-622"></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 windows may be composited.</span>
<a name="line-623"></a><span class='hs-definition'>displaySupportsComposite</span> <span class='hs-varid'>self</span> <span class='hs-keyglyph'>=</span>
<a name="line-624"></a> <span class='hs-varid'>liftM</span> <span class='hs-varid'>toBool</span> <span class='hs-varop'>$</span>
<a name="line-625"></a> <span class='hs-layout'>(</span><span class='hs-keyglyph'>\</span><span class='hs-layout'>(</span><span class='hs-conid'>Display</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'>gdk_display_supports_composite</span> <span class='hs-varid'>argPtr1</span><span class='hs-layout'>)</span>
<a name="line-626"></a><span class='hs-comment'>{-# LINE 592 "./Graphics/UI/Gtk/Gdk/Display.chs" #-}</span>
<a name="line-627"></a> <span class='hs-varid'>self</span>
<a name="line-628"></a>
<a name="line-629"></a>
<a name="line-630"></a>
<a name="line-631"></a>
<a name="line-632"></a>
<a name="line-633"></a><span class='hs-comment'>--------------------</span>
<a name="line-634"></a><span class='hs-comment'>-- Signals</span>
<a name="line-635"></a>
<a name="line-636"></a><a name="displayClosed"></a><span class='hs-comment'>-- | The 'displayClosed' signal is emitted when the connection to the windowing</span>
<a name="line-637"></a><span class='hs-comment'>-- system for @display@ is closed.</span>
<a name="line-638"></a><span class='hs-comment'>--</span>
<a name="line-639"></a><span class='hs-definition'>displayClosed</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>DisplayClass</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'>Bool</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-640"></a><span class='hs-definition'>displayClosed</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Signal</span> <span class='hs-layout'>(</span><span class='hs-varid'>connect_BOOL__NONE</span> <span class='hs-str'>"closed"</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'>"gdk_display_open"</span>
<a name="line-643"></a> <span class='hs-varid'>gdk_display_open</span> <span class='hs-keyglyph'>::</span> <span class='hs-layout'>(</span><span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>CChar</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>Display</span><span class='hs-layout'>)</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'>"gdk_display_get_default"</span>
<a name="line-646"></a> <span class='hs-varid'>gdk_display_get_default</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'>Display</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'>"gdk_display_get_name"</span>
<a name="line-649"></a> <span class='hs-varid'>gdk_display_get_name</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'>Display</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>CChar</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-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'>"gdk_display_get_n_screens"</span>
<a name="line-652"></a> <span class='hs-varid'>gdk_display_get_n_screens</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'>Display</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'>"gdk_display_get_screen"</span>
<a name="line-655"></a> <span class='hs-varid'>gdk_display_get_screen</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'>Display</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'>Screen</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'>"gdk_display_get_default_screen"</span>
<a name="line-658"></a> <span class='hs-varid'>gdk_display_get_default_screen</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'>Display</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'>Screen</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'>"gdk_display_pointer_ungrab"</span>
<a name="line-661"></a> <span class='hs-varid'>gdk_display_pointer_ungrab</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'>Display</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CUInt</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-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'>"gdk_display_keyboard_ungrab"</span>
<a name="line-664"></a> <span class='hs-varid'>gdk_display_keyboard_ungrab</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'>Display</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CUInt</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-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'>"gdk_display_pointer_is_grabbed"</span>
<a name="line-667"></a> <span class='hs-varid'>gdk_display_pointer_is_grabbed</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'>Display</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-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'>"gdk_display_beep"</span>
<a name="line-670"></a> <span class='hs-varid'>gdk_display_beep</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'>Display</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-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'>"gdk_display_sync"</span>
<a name="line-673"></a> <span class='hs-varid'>gdk_display_sync</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'>Display</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-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'>"gdk_display_flush"</span>
<a name="line-676"></a> <span class='hs-varid'>gdk_display_flush</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'>Display</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-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'>"gdk_display_close"</span>
<a name="line-679"></a> <span class='hs-varid'>gdk_display_close</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'>Display</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-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'>"gdk_display_list_devices"</span>
<a name="line-682"></a> <span class='hs-varid'>gdk_display_list_devices</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'>Display</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'>()</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'>"gdk_display_set_double_click_time"</span>
<a name="line-685"></a> <span class='hs-varid'>gdk_display_set_double_click_time</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'>Display</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CUInt</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-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'>"gdk_display_set_double_click_distance"</span>
<a name="line-688"></a> <span class='hs-varid'>gdk_display_set_double_click_distance</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'>Display</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CUInt</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-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'>"gdk_display_get_pointer"</span>
<a name="line-691"></a> <span class='hs-varid'>gdk_display_get_pointer</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'>Display</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'>Screen</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'>CInt</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'>CInt</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'>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><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'>"gdk_display_get_window_at_pointer"</span>
<a name="line-694"></a> <span class='hs-varid'>gdk_display_get_window_at_pointer</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'>Display</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'>CInt</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'>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-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>DrawWindow</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-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'>"gdk_display_warp_pointer"</span>
<a name="line-697"></a> <span class='hs-varid'>gdk_display_warp_pointer</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'>Display</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'>Screen</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><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'>"gdk_display_supports_cursor_color"</span>
<a name="line-700"></a> <span class='hs-varid'>gdk_display_supports_cursor_color</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'>Display</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-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'>"gdk_display_supports_cursor_alpha"</span>
<a name="line-703"></a> <span class='hs-varid'>gdk_display_supports_cursor_alpha</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'>Display</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-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'>"gdk_display_get_default_cursor_size"</span>
<a name="line-706"></a> <span class='hs-varid'>gdk_display_get_default_cursor_size</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'>Display</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'>CUInt</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'>"gdk_display_get_maximal_cursor_size"</span>
<a name="line-709"></a> <span class='hs-varid'>gdk_display_get_maximal_cursor_size</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'>Display</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'>CUInt</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'>CUInt</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-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'>safe</span> <span class='hs-str'>"gdk_display_get_default_group"</span>
<a name="line-712"></a> <span class='hs-varid'>gdk_display_get_default_group</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'>Display</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'>DrawWindow</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span><span class='hs-layout'>)</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'>safe</span> <span class='hs-str'>"gdk_display_supports_selection_notification"</span>
<a name="line-715"></a> <span class='hs-varid'>gdk_display_supports_selection_notification</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'>Display</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-716"></a>
<a name="line-717"></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'>"gdk_display_request_selection_notification"</span>
<a name="line-718"></a> <span class='hs-varid'>gdk_display_request_selection_notification</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'>Display</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-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-719"></a>
<a name="line-720"></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'>"gdk_display_supports_clipboard_persistence"</span>
<a name="line-721"></a> <span class='hs-varid'>gdk_display_supports_clipboard_persistence</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'>Display</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-722"></a>
<a name="line-723"></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'>"gdk_display_store_clipboard"</span>
<a name="line-724"></a> <span class='hs-varid'>gdk_display_store_clipboard</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'>Display</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'>DrawWindow</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>-></span> <span class='hs-layout'>(</span><span class='hs-conid'>CUInt</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-layout'>(</span><span class='hs-conid'>Ptr</span> <span class='hs-conid'>()</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span> <span class='hs-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><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-725"></a>
<a name="line-726"></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'>"gdk_display_supports_shapes"</span>
<a name="line-727"></a> <span class='hs-varid'>gdk_display_supports_shapes</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'>Display</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-728"></a>
<a name="line-729"></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'>"gdk_display_supports_input_shapes"</span>
<a name="line-730"></a> <span class='hs-varid'>gdk_display_supports_input_shapes</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'>Display</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-731"></a>
<a name="line-732"></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'>"gdk_display_supports_composite"</span>
<a name="line-733"></a> <span class='hs-varid'>gdk_display_supports_composite</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'>Display</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>
</pre></body>
</html>
