/usr/share/doc/libghc-gloss-doc/html/src/Graphics-Gloss-Internals-Interface-Backend-Types.html is in libghc-gloss-doc 1.7.8.3-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 | <?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://code.haskell.org/~malcolm/hscolour/ -->
<title>Graphics/Gloss/Internals/Interface/Backend/Types.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'>{-# OPTIONS -fspec-constr-count=5 #-}</span>
<a name="line-3"></a><span class='hs-comment'>{-# LANGUAGE Rank2Types #-}</span>
<a name="line-4"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Gloss</span><span class='hs-varop'>.</span><span class='hs-conid'>Internals</span><span class='hs-varop'>.</span><span class='hs-conid'>Interface</span><span class='hs-varop'>.</span><span class='hs-conid'>Backend</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>
<a name="line-5"></a> <span class='hs-layout'>(</span> <span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Gloss</span><span class='hs-varop'>.</span><span class='hs-conid'>Internals</span><span class='hs-varop'>.</span><span class='hs-conid'>Interface</span><span class='hs-varop'>.</span><span class='hs-conid'>Backend</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>
<a name="line-6"></a> <span class='hs-layout'>,</span> <span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Gloss</span><span class='hs-varop'>.</span><span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Display</span><span class='hs-layout'>)</span>
<a name="line-7"></a><span class='hs-keyword'>where</span>
<a name="line-8"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>IORef</span>
<a name="line-9"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>Gloss</span><span class='hs-varop'>.</span><span class='hs-conid'>Data</span><span class='hs-varop'>.</span><span class='hs-conid'>Display</span>
<a name="line-10"></a>
<a name="line-11"></a>
<a name="line-12"></a><a name="Backend"></a><span class='hs-comment'>-- | The functions every backend window managed backend needs to support.</span>
<a name="line-13"></a><a name="Backend"></a><span class='hs-comment'>--</span>
<a name="line-14"></a><a name="Backend"></a><span class='hs-comment'>-- The Backend module interfaces with the window manager, and handles opening</span>
<a name="line-15"></a><a name="Backend"></a><span class='hs-comment'>-- and closing the window, and managing key events etc.</span>
<a name="line-16"></a><a name="Backend"></a><span class='hs-comment'>--</span>
<a name="line-17"></a><a name="Backend"></a><span class='hs-comment'>-- It doesn't know anything about drawing lines or setting colors.</span>
<a name="line-18"></a><a name="Backend"></a><span class='hs-comment'>-- When we get a display callback, Gloss will perform OpenGL actions, and</span>
<a name="line-19"></a><a name="Backend"></a><span class='hs-comment'>-- the backend needs to have OpenGL in a state where it's able to accept them.</span>
<a name="line-20"></a><a name="Backend"></a><span class='hs-comment'>--</span>
<a name="line-21"></a><a name="Backend"></a><span class='hs-keyword'>class</span> <span class='hs-conid'>Backend</span> <span class='hs-varid'>a</span> <span class='hs-keyword'>where</span>
<a name="line-22"></a> <span class='hs-comment'>-- | Initialize the state used by the backend. If you don't use any state,</span>
<a name="line-23"></a> <span class='hs-comment'>-- make a Unit-like type; see the GLUT backend for an example.</span>
<a name="line-24"></a> <span class='hs-varid'>initBackendState</span> <span class='hs-keyglyph'>::</span> <span class='hs-varid'>a</span>
<a name="line-25"></a>
<a name="line-26"></a> <span class='hs-comment'>-- | Perform any initialization that needs to happen before opening a window</span>
<a name="line-27"></a> <span class='hs-comment'>-- The Boolean flag indicates if any debug information should be printed to</span>
<a name="line-28"></a> <span class='hs-comment'>-- the terminal</span>
<a name="line-29"></a> <span class='hs-varid'>initializeBackend</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Bool</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-30"></a>
<a name="line-31"></a> <span class='hs-comment'>-- | Perform any deinitialization and close the backend.</span>
<a name="line-32"></a> <span class='hs-varid'>exitBackend</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-33"></a>
<a name="line-34"></a> <span class='hs-comment'>-- | Open a window with the given display mode.</span>
<a name="line-35"></a> <span class='hs-varid'>openWindow</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</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-36"></a>
<a name="line-37"></a> <span class='hs-comment'>-- | Dump information about the backend to the terminal.</span>
<a name="line-38"></a> <span class='hs-varid'>dumpBackendState</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-39"></a>
<a name="line-40"></a> <span class='hs-comment'>-- | Install the display callbacks.</span>
<a name="line-41"></a> <span class='hs-varid'>installDisplayCallback</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Callback</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-42"></a>
<a name="line-43"></a> <span class='hs-comment'>-- | Install the window close callback.</span>
<a name="line-44"></a> <span class='hs-varid'>installWindowCloseCallback</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-45"></a>
<a name="line-46"></a> <span class='hs-comment'>-- | Install the reshape callbacks.</span>
<a name="line-47"></a> <span class='hs-varid'>installReshapeCallback</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Callback</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-48"></a>
<a name="line-49"></a> <span class='hs-comment'>-- | Install the keymouse press callbacks.</span>
<a name="line-50"></a> <span class='hs-varid'>installKeyMouseCallback</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Callback</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-51"></a>
<a name="line-52"></a> <span class='hs-comment'>-- | Install the mouse motion callbacks.</span>
<a name="line-53"></a> <span class='hs-varid'>installMotionCallback</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Callback</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-54"></a>
<a name="line-55"></a> <span class='hs-comment'>-- | Install the idle callbacks.</span>
<a name="line-56"></a> <span class='hs-varid'>installIdleCallback</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-keyglyph'>[</span><span class='hs-conid'>Callback</span><span class='hs-keyglyph'>]</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-57"></a>
<a name="line-58"></a> <span class='hs-comment'>-- | The mainloop of the backend.</span>
<a name="line-59"></a> <span class='hs-varid'>runMainLoop</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-60"></a>
<a name="line-61"></a> <span class='hs-comment'>-- | A function that signals that screen has to be updated.</span>
<a name="line-62"></a> <span class='hs-varid'>postRedisplay</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-63"></a>
<a name="line-64"></a> <span class='hs-comment'>-- | Function that returns (width,height) of the window in pixels.</span>
<a name="line-65"></a> <span class='hs-varid'>getWindowDimensions</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-layout'>(</span><span class='hs-conid'>Int</span><span class='hs-layout'>,</span><span class='hs-conid'>Int</span><span class='hs-layout'>)</span>
<a name="line-66"></a>
<a name="line-67"></a> <span class='hs-comment'>-- | Function that reports the time elapsed since the application started.</span>
<a name="line-68"></a> <span class='hs-comment'>-- (in seconds)</span>
<a name="line-69"></a> <span class='hs-varid'>elapsedTime</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Double</span>
<a name="line-70"></a>
<a name="line-71"></a> <span class='hs-comment'>-- | Function that puts the current thread to sleep for 'n' seconds.</span>
<a name="line-72"></a> <span class='hs-varid'>sleep</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Double</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-73"></a>
<a name="line-74"></a>
<a name="line-75"></a><span class='hs-comment'>-- The callbacks should work for all backends. We pass a reference to the</span>
<a name="line-76"></a><span class='hs-comment'>-- backend state so that the callbacks have access to the class dictionary and</span>
<a name="line-77"></a><span class='hs-comment'>-- can thus call the appropriate backend functions.</span>
<a name="line-78"></a>
<a name="line-79"></a><a name="DisplayCallback"></a><span class='hs-comment'>-- | Display callback has no arguments.</span>
<a name="line-80"></a><a name="DisplayCallback"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>DisplayCallback</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>a</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Backend</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-81"></a>
<a name="line-82"></a><a name="KeyboardMouseCallback"></a><span class='hs-comment'>-- | Arguments: KeyType, Key Up \/ Down, Ctrl \/ Alt \/ Shift pressed, latest mouse location.</span>
<a name="line-83"></a><a name="KeyboardMouseCallback"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>KeyboardMouseCallback</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>a</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Backend</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Key</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>KeyState</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Modifiers</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> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-84"></a>
<a name="line-85"></a><a name="MotionCallback"></a><span class='hs-comment'>-- | Arguments: (PosX,PosY) in pixels.</span>
<a name="line-86"></a><a name="MotionCallback"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>MotionCallback</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>a</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Backend</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</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> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-87"></a>
<a name="line-88"></a><a name="IdleCallback"></a><span class='hs-comment'>-- | No arguments.</span>
<a name="line-89"></a><a name="IdleCallback"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>IdleCallback</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>a</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Backend</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-90"></a>
<a name="line-91"></a><a name="ReshapeCallback"></a><span class='hs-comment'>-- | Arguments: (Width,Height) in pixels.</span>
<a name="line-92"></a><a name="ReshapeCallback"></a><span class='hs-keyword'>type</span> <span class='hs-conid'>ReshapeCallback</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>forall</span> <span class='hs-varid'>a</span> <span class='hs-varop'>.</span> <span class='hs-conid'>Backend</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>=></span> <span class='hs-conid'>IORef</span> <span class='hs-varid'>a</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> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-93"></a>
<a name="line-94"></a>
<a name="line-95"></a><a name="Callback"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Callback</span>
<a name="line-96"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Display</span> <span class='hs-conid'>DisplayCallback</span>
<a name="line-97"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyMouse</span> <span class='hs-conid'>KeyboardMouseCallback</span>
<a name="line-98"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Idle</span> <span class='hs-conid'>IdleCallback</span>
<a name="line-99"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Motion</span> <span class='hs-conid'>MotionCallback</span>
<a name="line-100"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Reshape</span> <span class='hs-conid'>ReshapeCallback</span>
<a name="line-101"></a>
<a name="line-102"></a><span class='hs-comment'>-------------------------------------------------------------------------------</span>
<a name="line-103"></a><span class='hs-comment'>-- This is Glosses view of mouse and keyboard events.</span>
<a name="line-104"></a><span class='hs-comment'>-- The actual events provided by the backends are converted to this form</span>
<a name="line-105"></a><span class='hs-comment'>-- by the backend module.</span>
<a name="line-106"></a>
<a name="line-107"></a><a name="Key"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Key</span>
<a name="line-108"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Char</span> <span class='hs-conid'>Char</span>
<a name="line-109"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>SpecialKey</span> <span class='hs-conid'>SpecialKey</span>
<a name="line-110"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>MouseButton</span> <span class='hs-conid'>MouseButton</span>
<a name="line-111"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>)</span>
<a name="line-112"></a>
<a name="line-113"></a><a name="MouseButton"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>MouseButton</span>
<a name="line-114"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>LeftButton</span>
<a name="line-115"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>MiddleButton</span>
<a name="line-116"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>RightButton</span>
<a name="line-117"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WheelUp</span>
<a name="line-118"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>WheelDown</span>
<a name="line-119"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>AdditionalButton</span> <span class='hs-conid'>Int</span>
<a name="line-120"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>)</span>
<a name="line-121"></a>
<a name="line-122"></a><a name="KeyState"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>KeyState</span>
<a name="line-123"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Down</span>
<a name="line-124"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>Up</span>
<a name="line-125"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>)</span>
<a name="line-126"></a>
<a name="line-127"></a><a name="SpecialKey"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>SpecialKey</span>
<a name="line-128"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>KeyUnknown</span>
<a name="line-129"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeySpace</span>
<a name="line-130"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyEsc</span>
<a name="line-131"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF1</span>
<a name="line-132"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF2</span>
<a name="line-133"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF3</span>
<a name="line-134"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF4</span>
<a name="line-135"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF5</span>
<a name="line-136"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF6</span>
<a name="line-137"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF7</span>
<a name="line-138"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF8</span>
<a name="line-139"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF9</span>
<a name="line-140"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF10</span>
<a name="line-141"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF11</span>
<a name="line-142"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF12</span>
<a name="line-143"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF13</span>
<a name="line-144"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF14</span>
<a name="line-145"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF15</span>
<a name="line-146"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF16</span>
<a name="line-147"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF17</span>
<a name="line-148"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF18</span>
<a name="line-149"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF19</span>
<a name="line-150"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF20</span>
<a name="line-151"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF21</span>
<a name="line-152"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF22</span>
<a name="line-153"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF23</span>
<a name="line-154"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF24</span>
<a name="line-155"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyF25</span>
<a name="line-156"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyUp</span>
<a name="line-157"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyDown</span>
<a name="line-158"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyLeft</span>
<a name="line-159"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyRight</span>
<a name="line-160"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyTab</span>
<a name="line-161"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyEnter</span>
<a name="line-162"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyBackspace</span>
<a name="line-163"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyInsert</span>
<a name="line-164"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyNumLock</span>
<a name="line-165"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyBegin</span>
<a name="line-166"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyDelete</span>
<a name="line-167"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPageUp</span>
<a name="line-168"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPageDown</span>
<a name="line-169"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyHome</span>
<a name="line-170"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyEnd</span>
<a name="line-171"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad0</span>
<a name="line-172"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad1</span>
<a name="line-173"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad2</span>
<a name="line-174"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad3</span>
<a name="line-175"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad4</span>
<a name="line-176"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad5</span>
<a name="line-177"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad6</span>
<a name="line-178"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad7</span>
<a name="line-179"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad8</span>
<a name="line-180"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPad9</span>
<a name="line-181"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPadDivide</span>
<a name="line-182"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPadMultiply</span>
<a name="line-183"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPadSubtract</span>
<a name="line-184"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPadAdd</span>
<a name="line-185"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPadDecimal</span>
<a name="line-186"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPadEqual</span>
<a name="line-187"></a> <span class='hs-keyglyph'>|</span> <span class='hs-conid'>KeyPadEnter</span>
<a name="line-188"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>)</span>
<a name="line-189"></a>
<a name="line-190"></a><a name="Modifiers"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>Modifiers</span>
<a name="line-191"></a> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>Modifiers</span>
<a name="line-192"></a> <span class='hs-layout'>{</span> <span class='hs-varid'>shift</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>KeyState</span>
<a name="line-193"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>ctrl</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>KeyState</span>
<a name="line-194"></a> <span class='hs-layout'>,</span> <span class='hs-varid'>alt</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>KeyState</span>
<a name="line-195"></a> <span class='hs-layout'>}</span>
<a name="line-196"></a> <span class='hs-keyword'>deriving</span> <span class='hs-layout'>(</span><span class='hs-conid'>Show</span><span class='hs-layout'>,</span> <span class='hs-conid'>Eq</span><span class='hs-layout'>,</span> <span class='hs-conid'>Ord</span><span class='hs-layout'>)</span>
</pre></body>
</html>
|