packages feed

gi-gdk 0.3.18.15 → 3.0.1

raw patch · 106 files changed

+29/−44169 lines, 106 filesdep ~gi-cairodep ~gi-gdkpixbufdep ~gi-giobuild-type:Customsetup-changed

Dependency ranges changed: gi-cairo, gi-gdkpixbuf, gi-gio, gi-glib, gi-gobject, gi-pango, transformers

Files

− GI/Gdk.hs 
@@ -1,46 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk-    (     module GI.Gdk.Callbacks                 ,-    module GI.Gdk.Constants                 ,-    module GI.Gdk.Enums                     ,-    module GI.Gdk.Flags                     ,-    module GI.Gdk.Functions                 ,-    module GI.Gdk.Objects                   ,-    module GI.Gdk.Structs                   ,-    module GI.Gdk.Unions                    ,----    module Data.GI.Base                     ,---    ) where--import GI.Gdk.Callbacks-import GI.Gdk.Constants-import GI.Gdk.Enums-import GI.Gdk.Flags-import GI.Gdk.Functions-import GI.Gdk.Objects-import GI.Gdk.Structs-import GI.Gdk.Unions--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--import Data.GI.Base-
− GI/Gdk/Callbacks.hs 
@@ -1,197 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Callbacks-    ( -- -- * Signals--- ** EventFunc-    EventFunc                               ,-    EventFuncC                              ,-    eventFuncClosure                        ,-    eventFuncWrapper                        ,-    mkEventFunc                             ,-    noEventFunc                             ,----- ** FilterFunc-    FilterFunc                              ,-    FilterFuncC                             ,-    filterFuncClosure                       ,-    filterFuncWrapper                       ,-    mkFilterFunc                            ,-    noFilterFunc                            ,----- ** WindowChildFunc-    WindowChildFunc                         ,-    WindowChildFuncC                        ,-    mkWindowChildFunc                       ,-    noWindowChildFunc                       ,-    windowChildFuncClosure                  ,-    windowChildFuncWrapper                  ,----- ** WindowInvalidateHandlerFunc-    WindowInvalidateHandlerFunc             ,-    WindowInvalidateHandlerFuncC            ,-    mkWindowInvalidateHandlerFunc           ,-    noWindowInvalidateHandlerFunc           ,-    windowInvalidateHandlerFuncClosure      ,-    windowInvalidateHandlerFuncWrapper      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types--import qualified GI.Cairo as Cairo---- callback WindowInvalidateHandlerFunc-windowInvalidateHandlerFuncClosure :: WindowInvalidateHandlerFunc -> IO Closure-windowInvalidateHandlerFuncClosure cb = newCClosure =<< mkWindowInvalidateHandlerFunc wrapped-    where wrapped = windowInvalidateHandlerFuncWrapper Nothing cb--type WindowInvalidateHandlerFuncC =-    Ptr Window ->-    Ptr Cairo.Region ->-    IO ()--foreign import ccall "wrapper"-    mkWindowInvalidateHandlerFunc :: WindowInvalidateHandlerFuncC -> IO (FunPtr WindowInvalidateHandlerFuncC)--type WindowInvalidateHandlerFunc =-    Window ->-    Cairo.Region ->-    IO ()--noWindowInvalidateHandlerFunc :: Maybe WindowInvalidateHandlerFunc-noWindowInvalidateHandlerFunc = Nothing--windowInvalidateHandlerFuncWrapper ::-    Maybe (Ptr (FunPtr (WindowInvalidateHandlerFuncC))) ->-    WindowInvalidateHandlerFunc ->-    Ptr Window ->-    Ptr Cairo.Region ->-    IO ()-windowInvalidateHandlerFuncWrapper funptrptr _cb window region = do-    window' <- (newObject Window) window-    region' <- (newBoxed Cairo.Region) region-    _cb  window' region'-    maybeReleaseFunPtr funptrptr---- callback WindowChildFunc-windowChildFuncClosure :: WindowChildFunc -> IO Closure-windowChildFuncClosure cb = newCClosure =<< mkWindowChildFunc wrapped-    where wrapped = windowChildFuncWrapper Nothing cb--type WindowChildFuncC =-    Ptr Window ->-    Ptr () ->-    IO CInt--foreign import ccall "wrapper"-    mkWindowChildFunc :: WindowChildFuncC -> IO (FunPtr WindowChildFuncC)--type WindowChildFunc =-    Window ->-    IO Bool--noWindowChildFunc :: Maybe WindowChildFunc-noWindowChildFunc = Nothing--windowChildFuncWrapper ::-    Maybe (Ptr (FunPtr (WindowChildFuncC))) ->-    WindowChildFunc ->-    Ptr Window ->-    Ptr () ->-    IO CInt-windowChildFuncWrapper funptrptr _cb window _ = do-    window' <- (newObject Window) window-    result <- _cb  window'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback FilterFunc-filterFuncClosure :: FilterFunc -> IO Closure-filterFuncClosure cb = newCClosure =<< mkFilterFunc wrapped-    where wrapped = filterFuncWrapper Nothing cb--type FilterFuncC =-    Ptr () ->-    Ptr Event ->-    Ptr () ->-    IO CUInt--foreign import ccall "wrapper"-    mkFilterFunc :: FilterFuncC -> IO (FunPtr FilterFuncC)--type FilterFunc =-    Ptr () ->-    Event ->-    IO FilterReturn--noFilterFunc :: Maybe FilterFunc-noFilterFunc = Nothing--filterFuncWrapper ::-    Maybe (Ptr (FunPtr (FilterFuncC))) ->-    FilterFunc ->-    Ptr () ->-    Ptr Event ->-    Ptr () ->-    IO CUInt-filterFuncWrapper funptrptr _cb xevent event _ = do-    event' <- (newBoxed Event) event-    result <- _cb  xevent event'-    maybeReleaseFunPtr funptrptr-    let result' = (fromIntegral . fromEnum) result-    return result'---- callback EventFunc-eventFuncClosure :: EventFunc -> IO Closure-eventFuncClosure cb = newCClosure =<< mkEventFunc wrapped-    where wrapped = eventFuncWrapper Nothing cb--type EventFuncC =-    Ptr Event ->-    Ptr () ->-    IO ()--foreign import ccall "wrapper"-    mkEventFunc :: EventFuncC -> IO (FunPtr EventFuncC)--type EventFunc =-    Event ->-    IO ()--noEventFunc :: Maybe EventFunc-noEventFunc = Nothing--eventFuncWrapper ::-    Maybe (Ptr (FunPtr (EventFuncC))) ->-    EventFunc ->-    Ptr Event ->-    Ptr () ->-    IO ()-eventFuncWrapper funptrptr _cb event _ = do-    event' <- (newBoxed Event) event-    _cb  event'-    maybeReleaseFunPtr funptrptr--
− GI/Gdk/Constants.hs 
@@ -1,9141 +0,0 @@-{-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-}---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Constants-    ( -    pattern PRIORITY_REDRAW                 ,-    pattern PARENT_RELATIVE                 ,-    pattern MAX_TIMECOORD_AXES              ,-    pattern KEY_zstroke                     ,-    pattern KEY_zerosuperior                ,-    pattern KEY_zerosubscript               ,-    pattern KEY_zcaron                      ,-    pattern KEY_zacute                      ,-    pattern KEY_zabovedot                   ,-    pattern KEY_z                           ,-    pattern KEY_ytilde                      ,-    pattern KEY_yhook                       ,-    pattern KEY_ygrave                      ,-    pattern KEY_yen                         ,-    pattern KEY_ydiaeresis                  ,-    pattern KEY_ycircumflex                 ,-    pattern KEY_ybelowdot                   ,-    pattern KEY_yacute                      ,-    pattern KEY_y                           ,-    pattern KEY_xabovedot                   ,-    pattern KEY_x                           ,-    pattern KEY_wgrave                      ,-    pattern KEY_wdiaeresis                  ,-    pattern KEY_wcircumflex                 ,-    pattern KEY_wacute                      ,-    pattern KEY_w                           ,-    pattern KEY_vt                          ,-    pattern KEY_voicedsound                 ,-    pattern KEY_vertconnector               ,-    pattern KEY_vertbar                     ,-    pattern KEY_variation                   ,-    pattern KEY_v                           ,-    pattern KEY_utilde                      ,-    pattern KEY_uring                       ,-    pattern KEY_uptack                      ,-    pattern KEY_upstile                     ,-    pattern KEY_upshoe                      ,-    pattern KEY_uprightcorner               ,-    pattern KEY_upleftcorner                ,-    pattern KEY_upcaret                     ,-    pattern KEY_uparrow                     ,-    pattern KEY_uogonek                     ,-    pattern KEY_union                       ,-    pattern KEY_underscore                  ,-    pattern KEY_underbar                    ,-    pattern KEY_umacron                     ,-    pattern KEY_uhorntilde                  ,-    pattern KEY_uhornhook                   ,-    pattern KEY_uhorngrave                  ,-    pattern KEY_uhornbelowdot               ,-    pattern KEY_uhornacute                  ,-    pattern KEY_uhorn                       ,-    pattern KEY_uhook                       ,-    pattern KEY_ugrave                      ,-    pattern KEY_udoubleacute                ,-    pattern KEY_udiaeresis                  ,-    pattern KEY_ucircumflex                 ,-    pattern KEY_ubreve                      ,-    pattern KEY_ubelowdot                   ,-    pattern KEY_uacute                      ,-    pattern KEY_u                           ,-    pattern KEY_twothirds                   ,-    pattern KEY_twosuperior                 ,-    pattern KEY_twosubscript                ,-    pattern KEY_twofifths                   ,-    pattern KEY_tslash                      ,-    pattern KEY_trademarkincircle           ,-    pattern KEY_trademark                   ,-    pattern KEY_topvertsummationconnector   ,-    pattern KEY_topt                        ,-    pattern KEY_toprightsummation           ,-    pattern KEY_toprightsqbracket           ,-    pattern KEY_toprightparens              ,-    pattern KEY_topleftsummation            ,-    pattern KEY_topleftsqbracket            ,-    pattern KEY_topleftradical              ,-    pattern KEY_topleftparens               ,-    pattern KEY_topintegral                 ,-    pattern KEY_tintegral                   ,-    pattern KEY_threesuperior               ,-    pattern KEY_threesubscript              ,-    pattern KEY_threequarters               ,-    pattern KEY_threefifths                 ,-    pattern KEY_threeeighths                ,-    pattern KEY_thorn                       ,-    pattern KEY_thinspace                   ,-    pattern KEY_therefore                   ,-    pattern KEY_telephonerecorder           ,-    pattern KEY_telephone                   ,-    pattern KEY_tcedilla                    ,-    pattern KEY_tcaron                      ,-    pattern KEY_tabovedot                   ,-    pattern KEY_t                           ,-    pattern KEY_stricteq                    ,-    pattern KEY_sterling                    ,-    pattern KEY_ssharp                      ,-    pattern KEY_squareroot                  ,-    pattern KEY_space                       ,-    pattern KEY_soliddiamond                ,-    pattern KEY_slash                       ,-    pattern KEY_sixsuperior                 ,-    pattern KEY_sixsubscript                ,-    pattern KEY_singlelowquotemark          ,-    pattern KEY_similarequal                ,-    pattern KEY_signifblank                 ,-    pattern KEY_signaturemark               ,-    pattern KEY_sevensuperior               ,-    pattern KEY_sevensubscript              ,-    pattern KEY_seveneighths                ,-    pattern KEY_semivoicedsound             ,-    pattern KEY_semicolon                   ,-    pattern KEY_section                     ,-    pattern KEY_seconds                     ,-    pattern KEY_script_switch               ,-    pattern KEY_scircumflex                 ,-    pattern KEY_schwa                       ,-    pattern KEY_scedilla                    ,-    pattern KEY_scaron                      ,-    pattern KEY_sacute                      ,-    pattern KEY_sabovedot                   ,-    pattern KEY_s                           ,-    pattern KEY_righttack                   ,-    pattern KEY_rightt                      ,-    pattern KEY_rightsinglequotemark        ,-    pattern KEY_rightshoe                   ,-    pattern KEY_rightpointer                ,-    pattern KEY_rightopentriangle           ,-    pattern KEY_rightmiddlesummation        ,-    pattern KEY_rightmiddlecurlybrace       ,-    pattern KEY_rightdoublequotemark        ,-    pattern KEY_rightcaret                  ,-    pattern KEY_rightarrow                  ,-    pattern KEY_rightanglebracket           ,-    pattern KEY_registered                  ,-    pattern KEY_rcedilla                    ,-    pattern KEY_rcaron                      ,-    pattern KEY_radical                     ,-    pattern KEY_racute                      ,-    pattern KEY_r                           ,-    pattern KEY_quoteright                  ,-    pattern KEY_quoteleft                   ,-    pattern KEY_quotedbl                    ,-    pattern KEY_questiondown                ,-    pattern KEY_question                    ,-    pattern KEY_quad                        ,-    pattern KEY_q                           ,-    pattern KEY_punctspace                  ,-    pattern KEY_prolongedsound              ,-    pattern KEY_prescription                ,-    pattern KEY_plusminus                   ,-    pattern KEY_plus                        ,-    pattern KEY_phonographcopyright         ,-    pattern KEY_permille                    ,-    pattern KEY_periodcentered              ,-    pattern KEY_period                      ,-    pattern KEY_percent                     ,-    pattern KEY_partialderivative           ,-    pattern KEY_partdifferential            ,-    pattern KEY_parenright                  ,-    pattern KEY_parenleft                   ,-    pattern KEY_paragraph                   ,-    pattern KEY_pabovedot                   ,-    pattern KEY_p                           ,-    pattern KEY_overline                    ,-    pattern KEY_overbar                     ,-    pattern KEY_otilde                      ,-    pattern KEY_oslash                      ,-    pattern KEY_ordfeminine                 ,-    pattern KEY_opentribulletup             ,-    pattern KEY_opentribulletdown           ,-    pattern KEY_openstar                    ,-    pattern KEY_openrectbullet              ,-    pattern KEY_ooblique                    ,-    pattern KEY_onethird                    ,-    pattern KEY_onesuperior                 ,-    pattern KEY_onesubscript                ,-    pattern KEY_onesixth                    ,-    pattern KEY_onequarter                  ,-    pattern KEY_onehalf                     ,-    pattern KEY_onefifth                    ,-    pattern KEY_oneeighth                   ,-    pattern KEY_omacron                     ,-    pattern KEY_ohorntilde                  ,-    pattern KEY_ohornhook                   ,-    pattern KEY_ohorngrave                  ,-    pattern KEY_ohornbelowdot               ,-    pattern KEY_ohornacute                  ,-    pattern KEY_ohorn                       ,-    pattern KEY_ohook                       ,-    pattern KEY_ograve                      ,-    pattern KEY_ogonek                      ,-    pattern KEY_oe                          ,-    pattern KEY_odoubleacute                ,-    pattern KEY_odiaeresis                  ,-    pattern KEY_ocircumflextilde            ,-    pattern KEY_ocircumflexhook             ,-    pattern KEY_ocircumflexgrave            ,-    pattern KEY_ocircumflexbelowdot         ,-    pattern KEY_ocircumflexacute            ,-    pattern KEY_ocircumflex                 ,-    pattern KEY_ocaron                      ,-    pattern KEY_obelowdot                   ,-    pattern KEY_obarred                     ,-    pattern KEY_oacute                      ,-    pattern KEY_o                           ,-    pattern KEY_numerosign                  ,-    pattern KEY_numbersign                  ,-    pattern KEY_ntilde                      ,-    pattern KEY_notsign                     ,-    pattern KEY_notidentical                ,-    pattern KEY_notequal                    ,-    pattern KEY_notelementof                ,-    pattern KEY_notapproxeq                 ,-    pattern KEY_nobreakspace                ,-    pattern KEY_nl                          ,-    pattern KEY_ninesuperior                ,-    pattern KEY_ninesubscript               ,-    pattern KEY_ncedilla                    ,-    pattern KEY_ncaron                      ,-    pattern KEY_nacute                      ,-    pattern KEY_nabla                       ,-    pattern KEY_n                           ,-    pattern KEY_musicalsharp                ,-    pattern KEY_musicalflat                 ,-    pattern KEY_multiply                    ,-    pattern KEY_mu                          ,-    pattern KEY_minutes                     ,-    pattern KEY_minus                       ,-    pattern KEY_masculine                   ,-    pattern KEY_marker                      ,-    pattern KEY_maltesecross                ,-    pattern KEY_malesymbol                  ,-    pattern KEY_macron                      ,-    pattern KEY_mabovedot                   ,-    pattern KEY_m                           ,-    pattern KEY_lstroke                     ,-    pattern KEY_lowrightcorner              ,-    pattern KEY_lowleftcorner               ,-    pattern KEY_logicalor                   ,-    pattern KEY_logicaland                  ,-    pattern KEY_lf                          ,-    pattern KEY_lessthanequal               ,-    pattern KEY_less                        ,-    pattern KEY_lefttack                    ,-    pattern KEY_leftt                       ,-    pattern KEY_leftsinglequotemark         ,-    pattern KEY_leftshoe                    ,-    pattern KEY_leftradical                 ,-    pattern KEY_leftpointer                 ,-    pattern KEY_leftopentriangle            ,-    pattern KEY_leftmiddlecurlybrace        ,-    pattern KEY_leftdoublequotemark         ,-    pattern KEY_leftcaret                   ,-    pattern KEY_leftarrow                   ,-    pattern KEY_leftanglebracket            ,-    pattern KEY_lcedilla                    ,-    pattern KEY_lcaron                      ,-    pattern KEY_lbelowdot                   ,-    pattern KEY_latincross                  ,-    pattern KEY_lacute                      ,-    pattern KEY_l                           ,-    pattern KEY_kra                         ,-    pattern KEY_kcedilla                    ,-    pattern KEY_kappa                       ,-    pattern KEY_kana_yu                     ,-    pattern KEY_kana_yo                     ,-    pattern KEY_kana_ya                     ,-    pattern KEY_kana_u                      ,-    pattern KEY_kana_tu                     ,-    pattern KEY_kana_tsu                    ,-    pattern KEY_kana_switch                 ,-    pattern KEY_kana_openingbracket         ,-    pattern KEY_kana_o                      ,-    pattern KEY_kana_middledot              ,-    pattern KEY_kana_i                      ,-    pattern KEY_kana_fullstop               ,-    pattern KEY_kana_e                      ,-    pattern KEY_kana_conjunctive            ,-    pattern KEY_kana_comma                  ,-    pattern KEY_kana_closingbracket         ,-    pattern KEY_kana_a                      ,-    pattern KEY_kana_YU                     ,-    pattern KEY_kana_YO                     ,-    pattern KEY_kana_YA                     ,-    pattern KEY_kana_WO                     ,-    pattern KEY_kana_WA                     ,-    pattern KEY_kana_U                      ,-    pattern KEY_kana_TU                     ,-    pattern KEY_kana_TSU                    ,-    pattern KEY_kana_TO                     ,-    pattern KEY_kana_TI                     ,-    pattern KEY_kana_TE                     ,-    pattern KEY_kana_TA                     ,-    pattern KEY_kana_SU                     ,-    pattern KEY_kana_SO                     ,-    pattern KEY_kana_SHI                    ,-    pattern KEY_kana_SE                     ,-    pattern KEY_kana_SA                     ,-    pattern KEY_kana_RU                     ,-    pattern KEY_kana_RO                     ,-    pattern KEY_kana_RI                     ,-    pattern KEY_kana_RE                     ,-    pattern KEY_kana_RA                     ,-    pattern KEY_kana_O                      ,-    pattern KEY_kana_NU                     ,-    pattern KEY_kana_NO                     ,-    pattern KEY_kana_NI                     ,-    pattern KEY_kana_NE                     ,-    pattern KEY_kana_NA                     ,-    pattern KEY_kana_N                      ,-    pattern KEY_kana_MU                     ,-    pattern KEY_kana_MO                     ,-    pattern KEY_kana_MI                     ,-    pattern KEY_kana_ME                     ,-    pattern KEY_kana_MA                     ,-    pattern KEY_kana_KU                     ,-    pattern KEY_kana_KO                     ,-    pattern KEY_kana_KI                     ,-    pattern KEY_kana_KE                     ,-    pattern KEY_kana_KA                     ,-    pattern KEY_kana_I                      ,-    pattern KEY_kana_HU                     ,-    pattern KEY_kana_HO                     ,-    pattern KEY_kana_HI                     ,-    pattern KEY_kana_HE                     ,-    pattern KEY_kana_HA                     ,-    pattern KEY_kana_FU                     ,-    pattern KEY_kana_E                      ,-    pattern KEY_kana_CHI                    ,-    pattern KEY_kana_A                      ,-    pattern KEY_k                           ,-    pattern KEY_jot                         ,-    pattern KEY_jcircumflex                 ,-    pattern KEY_j                           ,-    pattern KEY_itilde                      ,-    pattern KEY_iogonek                     ,-    pattern KEY_intersection                ,-    pattern KEY_integral                    ,-    pattern KEY_infinity                    ,-    pattern KEY_includes                    ,-    pattern KEY_includedin                  ,-    pattern KEY_implies                     ,-    pattern KEY_imacron                     ,-    pattern KEY_ihook                       ,-    pattern KEY_igrave                      ,-    pattern KEY_ifonlyif                    ,-    pattern KEY_idotless                    ,-    pattern KEY_idiaeresis                  ,-    pattern KEY_identical                   ,-    pattern KEY_icircumflex                 ,-    pattern KEY_ibreve                      ,-    pattern KEY_ibelowdot                   ,-    pattern KEY_iacute                      ,-    pattern KEY_iTouch                      ,-    pattern KEY_i                           ,-    pattern KEY_hyphen                      ,-    pattern KEY_ht                          ,-    pattern KEY_hstroke                     ,-    pattern KEY_horizlinescan9              ,-    pattern KEY_horizlinescan7              ,-    pattern KEY_horizlinescan5              ,-    pattern KEY_horizlinescan3              ,-    pattern KEY_horizlinescan1              ,-    pattern KEY_horizconnector              ,-    pattern KEY_hexagram                    ,-    pattern KEY_hebrew_zayin                ,-    pattern KEY_hebrew_zain                 ,-    pattern KEY_hebrew_zadi                 ,-    pattern KEY_hebrew_zade                 ,-    pattern KEY_hebrew_yod                  ,-    pattern KEY_hebrew_waw                  ,-    pattern KEY_hebrew_teth                 ,-    pattern KEY_hebrew_tet                  ,-    pattern KEY_hebrew_taw                  ,-    pattern KEY_hebrew_taf                  ,-    pattern KEY_hebrew_shin                 ,-    pattern KEY_hebrew_samekh               ,-    pattern KEY_hebrew_samech               ,-    pattern KEY_hebrew_resh                 ,-    pattern KEY_hebrew_qoph                 ,-    pattern KEY_hebrew_pe                   ,-    pattern KEY_hebrew_nun                  ,-    pattern KEY_hebrew_mem                  ,-    pattern KEY_hebrew_lamed                ,-    pattern KEY_hebrew_kuf                  ,-    pattern KEY_hebrew_kaph                 ,-    pattern KEY_hebrew_het                  ,-    pattern KEY_hebrew_he                   ,-    pattern KEY_hebrew_gimmel               ,-    pattern KEY_hebrew_gimel                ,-    pattern KEY_hebrew_finalzadi            ,-    pattern KEY_hebrew_finalzade            ,-    pattern KEY_hebrew_finalpe              ,-    pattern KEY_hebrew_finalnun             ,-    pattern KEY_hebrew_finalmem             ,-    pattern KEY_hebrew_finalkaph            ,-    pattern KEY_hebrew_doublelowline        ,-    pattern KEY_hebrew_daleth               ,-    pattern KEY_hebrew_dalet                ,-    pattern KEY_hebrew_chet                 ,-    pattern KEY_hebrew_beth                 ,-    pattern KEY_hebrew_bet                  ,-    pattern KEY_hebrew_ayin                 ,-    pattern KEY_hebrew_aleph                ,-    pattern KEY_heart                       ,-    pattern KEY_hcircumflex                 ,-    pattern KEY_hairspace                   ,-    pattern KEY_h                           ,-    pattern KEY_guillemotright              ,-    pattern KEY_guillemotleft               ,-    pattern KEY_greaterthanequal            ,-    pattern KEY_greater                     ,-    pattern KEY_grave                       ,-    pattern KEY_gcircumflex                 ,-    pattern KEY_gcedilla                    ,-    pattern KEY_gcaron                      ,-    pattern KEY_gbreve                      ,-    pattern KEY_gabovedot                   ,-    pattern KEY_g                           ,-    pattern KEY_function                    ,-    pattern KEY_fourthroot                  ,-    pattern KEY_foursuperior                ,-    pattern KEY_foursubscript               ,-    pattern KEY_fourfifths                  ,-    pattern KEY_fivesuperior                ,-    pattern KEY_fivesubscript               ,-    pattern KEY_fivesixths                  ,-    pattern KEY_fiveeighths                 ,-    pattern KEY_filledtribulletup           ,-    pattern KEY_filledtribulletdown         ,-    pattern KEY_filledrighttribullet        ,-    pattern KEY_filledrectbullet            ,-    pattern KEY_filledlefttribullet         ,-    pattern KEY_figdash                     ,-    pattern KEY_ff                          ,-    pattern KEY_femalesymbol                ,-    pattern KEY_fabovedot                   ,-    pattern KEY_f                           ,-    pattern KEY_ezh                         ,-    pattern KEY_exclamdown                  ,-    pattern KEY_exclam                      ,-    pattern KEY_etilde                      ,-    pattern KEY_eth                         ,-    pattern KEY_equal                       ,-    pattern KEY_eogonek                     ,-    pattern KEY_enspace                     ,-    pattern KEY_enopensquarebullet          ,-    pattern KEY_enopencircbullet            ,-    pattern KEY_eng                         ,-    pattern KEY_enfilledsqbullet            ,-    pattern KEY_enfilledcircbullet          ,-    pattern KEY_endash                      ,-    pattern KEY_emspace                     ,-    pattern KEY_emptyset                    ,-    pattern KEY_emopenrectangle             ,-    pattern KEY_emopencircle                ,-    pattern KEY_emfilledrect                ,-    pattern KEY_emfilledcircle              ,-    pattern KEY_emdash                      ,-    pattern KEY_emacron                     ,-    pattern KEY_em4space                    ,-    pattern KEY_em3space                    ,-    pattern KEY_ellipsis                    ,-    pattern KEY_elementof                   ,-    pattern KEY_eightsuperior               ,-    pattern KEY_eightsubscript              ,-    pattern KEY_ehook                       ,-    pattern KEY_egrave                      ,-    pattern KEY_ediaeresis                  ,-    pattern KEY_ecircumflextilde            ,-    pattern KEY_ecircumflexhook             ,-    pattern KEY_ecircumflexgrave            ,-    pattern KEY_ecircumflexbelowdot         ,-    pattern KEY_ecircumflexacute            ,-    pattern KEY_ecircumflex                 ,-    pattern KEY_ecaron                      ,-    pattern KEY_ebelowdot                   ,-    pattern KEY_eacute                      ,-    pattern KEY_eabovedot                   ,-    pattern KEY_e                           ,-    pattern KEY_dstroke                     ,-    pattern KEY_downtack                    ,-    pattern KEY_downstile                   ,-    pattern KEY_downshoe                    ,-    pattern KEY_downcaret                   ,-    pattern KEY_downarrow                   ,-    pattern KEY_doublelowquotemark          ,-    pattern KEY_doubledagger                ,-    pattern KEY_doubleacute                 ,-    pattern KEY_doubbaselinedot             ,-    pattern KEY_dollar                      ,-    pattern KEY_division                    ,-    pattern KEY_dintegral                   ,-    pattern KEY_digitspace                  ,-    pattern KEY_diamond                     ,-    pattern KEY_diaeresis                   ,-    pattern KEY_degree                      ,-    pattern KEY_decimalpoint                ,-    pattern KEY_dead_voiced_sound           ,-    pattern KEY_dead_u                      ,-    pattern KEY_dead_tilde                  ,-    pattern KEY_dead_stroke                 ,-    pattern KEY_dead_small_schwa            ,-    pattern KEY_dead_semivoiced_sound       ,-    pattern KEY_dead_psili                  ,-    pattern KEY_dead_perispomeni            ,-    pattern KEY_dead_ogonek                 ,-    pattern KEY_dead_o                      ,-    pattern KEY_dead_macron                 ,-    pattern KEY_dead_iota                   ,-    pattern KEY_dead_invertedbreve          ,-    pattern KEY_dead_i                      ,-    pattern KEY_dead_horn                   ,-    pattern KEY_dead_hook                   ,-    pattern KEY_dead_greek                  ,-    pattern KEY_dead_grave                  ,-    pattern KEY_dead_e                      ,-    pattern KEY_dead_doublegrave            ,-    pattern KEY_dead_doubleacute            ,-    pattern KEY_dead_diaeresis              ,-    pattern KEY_dead_dasia                  ,-    pattern KEY_dead_currency               ,-    pattern KEY_dead_circumflex             ,-    pattern KEY_dead_cedilla                ,-    pattern KEY_dead_caron                  ,-    pattern KEY_dead_capital_schwa          ,-    pattern KEY_dead_breve                  ,-    pattern KEY_dead_belowtilde             ,-    pattern KEY_dead_belowring              ,-    pattern KEY_dead_belowmacron            ,-    pattern KEY_dead_belowdot               ,-    pattern KEY_dead_belowdiaeresis         ,-    pattern KEY_dead_belowcomma             ,-    pattern KEY_dead_belowcircumflex        ,-    pattern KEY_dead_belowbreve             ,-    pattern KEY_dead_acute                  ,-    pattern KEY_dead_abovering              ,-    pattern KEY_dead_abovereversedcomma     ,-    pattern KEY_dead_abovedot               ,-    pattern KEY_dead_abovecomma             ,-    pattern KEY_dead_a                      ,-    pattern KEY_dead_U                      ,-    pattern KEY_dead_O                      ,-    pattern KEY_dead_I                      ,-    pattern KEY_dead_E                      ,-    pattern KEY_dead_A                      ,-    pattern KEY_dcaron                      ,-    pattern KEY_dagger                      ,-    pattern KEY_dabovedot                   ,-    pattern KEY_d                           ,-    pattern KEY_cursor                      ,-    pattern KEY_currency                    ,-    pattern KEY_cuberoot                    ,-    pattern KEY_crossinglines               ,-    pattern KEY_cr                          ,-    pattern KEY_copyright                   ,-    pattern KEY_containsas                  ,-    pattern KEY_comma                       ,-    pattern KEY_colon                       ,-    pattern KEY_club                        ,-    pattern KEY_circle                      ,-    pattern KEY_checkmark                   ,-    pattern KEY_checkerboard                ,-    pattern KEY_ch                          ,-    pattern KEY_cent                        ,-    pattern KEY_cedilla                     ,-    pattern KEY_ccircumflex                 ,-    pattern KEY_ccedilla                    ,-    pattern KEY_ccaron                      ,-    pattern KEY_caron                       ,-    pattern KEY_caret                       ,-    pattern KEY_careof                      ,-    pattern KEY_cacute                      ,-    pattern KEY_cabovedot                   ,-    pattern KEY_c_h                         ,-    pattern KEY_c                           ,-    pattern KEY_brokenbar                   ,-    pattern KEY_breve                       ,-    pattern KEY_braille_dots_8              ,-    pattern KEY_braille_dots_78             ,-    pattern KEY_braille_dots_7              ,-    pattern KEY_braille_dots_68             ,-    pattern KEY_braille_dots_678            ,-    pattern KEY_braille_dots_67             ,-    pattern KEY_braille_dots_6              ,-    pattern KEY_braille_dots_58             ,-    pattern KEY_braille_dots_578            ,-    pattern KEY_braille_dots_57             ,-    pattern KEY_braille_dots_568            ,-    pattern KEY_braille_dots_5678           ,-    pattern KEY_braille_dots_567            ,-    pattern KEY_braille_dots_56             ,-    pattern KEY_braille_dots_5              ,-    pattern KEY_braille_dots_48             ,-    pattern KEY_braille_dots_478            ,-    pattern KEY_braille_dots_47             ,-    pattern KEY_braille_dots_468            ,-    pattern KEY_braille_dots_4678           ,-    pattern KEY_braille_dots_467            ,-    pattern KEY_braille_dots_46             ,-    pattern KEY_braille_dots_458            ,-    pattern KEY_braille_dots_4578           ,-    pattern KEY_braille_dots_457            ,-    pattern KEY_braille_dots_4568           ,-    pattern KEY_braille_dots_45678          ,-    pattern KEY_braille_dots_4567           ,-    pattern KEY_braille_dots_456            ,-    pattern KEY_braille_dots_45             ,-    pattern KEY_braille_dots_4              ,-    pattern KEY_braille_dots_38             ,-    pattern KEY_braille_dots_378            ,-    pattern KEY_braille_dots_37             ,-    pattern KEY_braille_dots_368            ,-    pattern KEY_braille_dots_3678           ,-    pattern KEY_braille_dots_367            ,-    pattern KEY_braille_dots_36             ,-    pattern KEY_braille_dots_358            ,-    pattern KEY_braille_dots_3578           ,-    pattern KEY_braille_dots_357            ,-    pattern KEY_braille_dots_3568           ,-    pattern KEY_braille_dots_35678          ,-    pattern KEY_braille_dots_3567           ,-    pattern KEY_braille_dots_356            ,-    pattern KEY_braille_dots_35             ,-    pattern KEY_braille_dots_348            ,-    pattern KEY_braille_dots_3478           ,-    pattern KEY_braille_dots_347            ,-    pattern KEY_braille_dots_3468           ,-    pattern KEY_braille_dots_34678          ,-    pattern KEY_braille_dots_3467           ,-    pattern KEY_braille_dots_346            ,-    pattern KEY_braille_dots_3458           ,-    pattern KEY_braille_dots_34578          ,-    pattern KEY_braille_dots_3457           ,-    pattern KEY_braille_dots_34568          ,-    pattern KEY_braille_dots_345678         ,-    pattern KEY_braille_dots_34567          ,-    pattern KEY_braille_dots_3456           ,-    pattern KEY_braille_dots_345            ,-    pattern KEY_braille_dots_34             ,-    pattern KEY_braille_dots_3              ,-    pattern KEY_braille_dots_28             ,-    pattern KEY_braille_dots_278            ,-    pattern KEY_braille_dots_27             ,-    pattern KEY_braille_dots_268            ,-    pattern KEY_braille_dots_2678           ,-    pattern KEY_braille_dots_267            ,-    pattern KEY_braille_dots_26             ,-    pattern KEY_braille_dots_258            ,-    pattern KEY_braille_dots_2578           ,-    pattern KEY_braille_dots_257            ,-    pattern KEY_braille_dots_2568           ,-    pattern KEY_braille_dots_25678          ,-    pattern KEY_braille_dots_2567           ,-    pattern KEY_braille_dots_256            ,-    pattern KEY_braille_dots_25             ,-    pattern KEY_braille_dots_248            ,-    pattern KEY_braille_dots_2478           ,-    pattern KEY_braille_dots_247            ,-    pattern KEY_braille_dots_2468           ,-    pattern KEY_braille_dots_24678          ,-    pattern KEY_braille_dots_2467           ,-    pattern KEY_braille_dots_246            ,-    pattern KEY_braille_dots_2458           ,-    pattern KEY_braille_dots_24578          ,-    pattern KEY_braille_dots_2457           ,-    pattern KEY_braille_dots_24568          ,-    pattern KEY_braille_dots_245678         ,-    pattern KEY_braille_dots_24567          ,-    pattern KEY_braille_dots_2456           ,-    pattern KEY_braille_dots_245            ,-    pattern KEY_braille_dots_24             ,-    pattern KEY_braille_dots_238            ,-    pattern KEY_braille_dots_2378           ,-    pattern KEY_braille_dots_237            ,-    pattern KEY_braille_dots_2368           ,-    pattern KEY_braille_dots_23678          ,-    pattern KEY_braille_dots_2367           ,-    pattern KEY_braille_dots_236            ,-    pattern KEY_braille_dots_2358           ,-    pattern KEY_braille_dots_23578          ,-    pattern KEY_braille_dots_2357           ,-    pattern KEY_braille_dots_23568          ,-    pattern KEY_braille_dots_235678         ,-    pattern KEY_braille_dots_23567          ,-    pattern KEY_braille_dots_2356           ,-    pattern KEY_braille_dots_235            ,-    pattern KEY_braille_dots_2348           ,-    pattern KEY_braille_dots_23478          ,-    pattern KEY_braille_dots_2347           ,-    pattern KEY_braille_dots_23468          ,-    pattern KEY_braille_dots_234678         ,-    pattern KEY_braille_dots_23467          ,-    pattern KEY_braille_dots_2346           ,-    pattern KEY_braille_dots_23458          ,-    pattern KEY_braille_dots_234578         ,-    pattern KEY_braille_dots_23457          ,-    pattern KEY_braille_dots_234568         ,-    pattern KEY_braille_dots_2345678        ,-    pattern KEY_braille_dots_234567         ,-    pattern KEY_braille_dots_23456          ,-    pattern KEY_braille_dots_2345           ,-    pattern KEY_braille_dots_234            ,-    pattern KEY_braille_dots_23             ,-    pattern KEY_braille_dots_2              ,-    pattern KEY_braille_dots_18             ,-    pattern KEY_braille_dots_178            ,-    pattern KEY_braille_dots_17             ,-    pattern KEY_braille_dots_168            ,-    pattern KEY_braille_dots_1678           ,-    pattern KEY_braille_dots_167            ,-    pattern KEY_braille_dots_16             ,-    pattern KEY_braille_dots_158            ,-    pattern KEY_braille_dots_1578           ,-    pattern KEY_braille_dots_157            ,-    pattern KEY_braille_dots_1568           ,-    pattern KEY_braille_dots_15678          ,-    pattern KEY_braille_dots_1567           ,-    pattern KEY_braille_dots_156            ,-    pattern KEY_braille_dots_15             ,-    pattern KEY_braille_dots_148            ,-    pattern KEY_braille_dots_1478           ,-    pattern KEY_braille_dots_147            ,-    pattern KEY_braille_dots_1468           ,-    pattern KEY_braille_dots_14678          ,-    pattern KEY_braille_dots_1467           ,-    pattern KEY_braille_dots_146            ,-    pattern KEY_braille_dots_1458           ,-    pattern KEY_braille_dots_14578          ,-    pattern KEY_braille_dots_1457           ,-    pattern KEY_braille_dots_14568          ,-    pattern KEY_braille_dots_145678         ,-    pattern KEY_braille_dots_14567          ,-    pattern KEY_braille_dots_1456           ,-    pattern KEY_braille_dots_145            ,-    pattern KEY_braille_dots_14             ,-    pattern KEY_braille_dots_138            ,-    pattern KEY_braille_dots_1378           ,-    pattern KEY_braille_dots_137            ,-    pattern KEY_braille_dots_1368           ,-    pattern KEY_braille_dots_13678          ,-    pattern KEY_braille_dots_1367           ,-    pattern KEY_braille_dots_136            ,-    pattern KEY_braille_dots_1358           ,-    pattern KEY_braille_dots_13578          ,-    pattern KEY_braille_dots_1357           ,-    pattern KEY_braille_dots_13568          ,-    pattern KEY_braille_dots_135678         ,-    pattern KEY_braille_dots_13567          ,-    pattern KEY_braille_dots_1356           ,-    pattern KEY_braille_dots_135            ,-    pattern KEY_braille_dots_1348           ,-    pattern KEY_braille_dots_13478          ,-    pattern KEY_braille_dots_1347           ,-    pattern KEY_braille_dots_13468          ,-    pattern KEY_braille_dots_134678         ,-    pattern KEY_braille_dots_13467          ,-    pattern KEY_braille_dots_1346           ,-    pattern KEY_braille_dots_13458          ,-    pattern KEY_braille_dots_134578         ,-    pattern KEY_braille_dots_13457          ,-    pattern KEY_braille_dots_134568         ,-    pattern KEY_braille_dots_1345678        ,-    pattern KEY_braille_dots_134567         ,-    pattern KEY_braille_dots_13456          ,-    pattern KEY_braille_dots_1345           ,-    pattern KEY_braille_dots_134            ,-    pattern KEY_braille_dots_13             ,-    pattern KEY_braille_dots_128            ,-    pattern KEY_braille_dots_1278           ,-    pattern KEY_braille_dots_127            ,-    pattern KEY_braille_dots_1268           ,-    pattern KEY_braille_dots_12678          ,-    pattern KEY_braille_dots_1267           ,-    pattern KEY_braille_dots_126            ,-    pattern KEY_braille_dots_1258           ,-    pattern KEY_braille_dots_12578          ,-    pattern KEY_braille_dots_1257           ,-    pattern KEY_braille_dots_12568          ,-    pattern KEY_braille_dots_125678         ,-    pattern KEY_braille_dots_12567          ,-    pattern KEY_braille_dots_1256           ,-    pattern KEY_braille_dots_125            ,-    pattern KEY_braille_dots_1248           ,-    pattern KEY_braille_dots_12478          ,-    pattern KEY_braille_dots_1247           ,-    pattern KEY_braille_dots_12468          ,-    pattern KEY_braille_dots_124678         ,-    pattern KEY_braille_dots_12467          ,-    pattern KEY_braille_dots_1246           ,-    pattern KEY_braille_dots_12458          ,-    pattern KEY_braille_dots_124578         ,-    pattern KEY_braille_dots_12457          ,-    pattern KEY_braille_dots_124568         ,-    pattern KEY_braille_dots_1245678        ,-    pattern KEY_braille_dots_124567         ,-    pattern KEY_braille_dots_12456          ,-    pattern KEY_braille_dots_1245           ,-    pattern KEY_braille_dots_124            ,-    pattern KEY_braille_dots_1238           ,-    pattern KEY_braille_dots_12378          ,-    pattern KEY_braille_dots_1237           ,-    pattern KEY_braille_dots_12368          ,-    pattern KEY_braille_dots_123678         ,-    pattern KEY_braille_dots_12367          ,-    pattern KEY_braille_dots_1236           ,-    pattern KEY_braille_dots_12358          ,-    pattern KEY_braille_dots_123578         ,-    pattern KEY_braille_dots_12357          ,-    pattern KEY_braille_dots_123568         ,-    pattern KEY_braille_dots_1235678        ,-    pattern KEY_braille_dots_123567         ,-    pattern KEY_braille_dots_12356          ,-    pattern KEY_braille_dots_1235           ,-    pattern KEY_braille_dots_12348          ,-    pattern KEY_braille_dots_123478         ,-    pattern KEY_braille_dots_12347          ,-    pattern KEY_braille_dots_123468         ,-    pattern KEY_braille_dots_1234678        ,-    pattern KEY_braille_dots_123467         ,-    pattern KEY_braille_dots_12346          ,-    pattern KEY_braille_dots_123458         ,-    pattern KEY_braille_dots_1234578        ,-    pattern KEY_braille_dots_123457         ,-    pattern KEY_braille_dots_1234568        ,-    pattern KEY_braille_dots_12345678       ,-    pattern KEY_braille_dots_1234567        ,-    pattern KEY_braille_dots_123456         ,-    pattern KEY_braille_dots_12345          ,-    pattern KEY_braille_dots_1234           ,-    pattern KEY_braille_dots_123            ,-    pattern KEY_braille_dots_12             ,-    pattern KEY_braille_dots_1              ,-    pattern KEY_braille_dot_9               ,-    pattern KEY_braille_dot_8               ,-    pattern KEY_braille_dot_7               ,-    pattern KEY_braille_dot_6               ,-    pattern KEY_braille_dot_5               ,-    pattern KEY_braille_dot_4               ,-    pattern KEY_braille_dot_3               ,-    pattern KEY_braille_dot_2               ,-    pattern KEY_braille_dot_10              ,-    pattern KEY_braille_dot_1               ,-    pattern KEY_braille_blank               ,-    pattern KEY_bracketright                ,-    pattern KEY_bracketleft                 ,-    pattern KEY_braceright                  ,-    pattern KEY_braceleft                   ,-    pattern KEY_botvertsummationconnector   ,-    pattern KEY_bott                        ,-    pattern KEY_botrightsummation           ,-    pattern KEY_botrightsqbracket           ,-    pattern KEY_botrightparens              ,-    pattern KEY_botleftsummation            ,-    pattern KEY_botleftsqbracket            ,-    pattern KEY_botleftparens               ,-    pattern KEY_botintegral                 ,-    pattern KEY_blank                       ,-    pattern KEY_because                     ,-    pattern KEY_bar                         ,-    pattern KEY_ballotcross                 ,-    pattern KEY_backslash                   ,-    pattern KEY_babovedot                   ,-    pattern KEY_b                           ,-    pattern KEY_atilde                      ,-    pattern KEY_at                          ,-    pattern KEY_asterisk                    ,-    pattern KEY_asciitilde                  ,-    pattern KEY_asciicircum                 ,-    pattern KEY_aring                       ,-    pattern KEY_approximate                 ,-    pattern KEY_approxeq                    ,-    pattern KEY_apostrophe                  ,-    pattern KEY_aogonek                     ,-    pattern KEY_ampersand                   ,-    pattern KEY_amacron                     ,-    pattern KEY_ahook                       ,-    pattern KEY_agrave                      ,-    pattern KEY_ae                          ,-    pattern KEY_adiaeresis                  ,-    pattern KEY_acute                       ,-    pattern KEY_acircumflextilde            ,-    pattern KEY_acircumflexhook             ,-    pattern KEY_acircumflexgrave            ,-    pattern KEY_acircumflexbelowdot         ,-    pattern KEY_acircumflexacute            ,-    pattern KEY_acircumflex                 ,-    pattern KEY_abrevetilde                 ,-    pattern KEY_abrevehook                  ,-    pattern KEY_abrevegrave                 ,-    pattern KEY_abrevebelowdot              ,-    pattern KEY_abreveacute                 ,-    pattern KEY_abreve                      ,-    pattern KEY_abovedot                    ,-    pattern KEY_abelowdot                   ,-    pattern KEY_aacute                      ,-    pattern KEY_a                           ,-    pattern KEY_Zstroke                     ,-    pattern KEY_ZoomOut                     ,-    pattern KEY_ZoomIn                      ,-    pattern KEY_Zenkaku_Hankaku             ,-    pattern KEY_Zenkaku                     ,-    pattern KEY_Zen_Koho                    ,-    pattern KEY_Zcaron                      ,-    pattern KEY_Zacute                      ,-    pattern KEY_Zabovedot                   ,-    pattern KEY_Z                           ,-    pattern KEY_Ytilde                      ,-    pattern KEY_Yhook                       ,-    pattern KEY_Ygrave                      ,-    pattern KEY_Yellow                      ,-    pattern KEY_Ydiaeresis                  ,-    pattern KEY_Ycircumflex                 ,-    pattern KEY_Ybelowdot                   ,-    pattern KEY_Yacute                      ,-    pattern KEY_Y                           ,-    pattern KEY_Xfer                        ,-    pattern KEY_Xabovedot                   ,-    pattern KEY_X                           ,-    pattern KEY_Word                        ,-    pattern KEY_WonSign                     ,-    pattern KEY_WindowClear                 ,-    pattern KEY_WheelButton                 ,-    pattern KEY_Wgrave                      ,-    pattern KEY_WebCam                      ,-    pattern KEY_Wdiaeresis                  ,-    pattern KEY_Wcircumflex                 ,-    pattern KEY_WakeUp                      ,-    pattern KEY_Wacute                      ,-    pattern KEY_WWW                         ,-    pattern KEY_WLAN                        ,-    pattern KEY_W                           ,-    pattern KEY_VoidSymbol                  ,-    pattern KEY_View                        ,-    pattern KEY_Video                       ,-    pattern KEY_VendorHome                  ,-    pattern KEY_V                           ,-    pattern KEY_Utilde                      ,-    pattern KEY_UserPB                      ,-    pattern KEY_User2KB                     ,-    pattern KEY_User1KB                     ,-    pattern KEY_Uring                       ,-    pattern KEY_Up                          ,-    pattern KEY_Uogonek                     ,-    pattern KEY_Ungrab                      ,-    pattern KEY_Undo                        ,-    pattern KEY_Umacron                     ,-    pattern KEY_Ukranian_yi                 ,-    pattern KEY_Ukranian_je                 ,-    pattern KEY_Ukranian_i                  ,-    pattern KEY_Ukranian_YI                 ,-    pattern KEY_Ukranian_JE                 ,-    pattern KEY_Ukranian_I                  ,-    pattern KEY_Ukrainian_yi                ,-    pattern KEY_Ukrainian_ie                ,-    pattern KEY_Ukrainian_i                 ,-    pattern KEY_Ukrainian_ghe_with_upturn   ,-    pattern KEY_Ukrainian_YI                ,-    pattern KEY_Ukrainian_IE                ,-    pattern KEY_Ukrainian_I                 ,-    pattern KEY_Ukrainian_GHE_WITH_UPTURN   ,-    pattern KEY_Uhorntilde                  ,-    pattern KEY_Uhornhook                   ,-    pattern KEY_Uhorngrave                  ,-    pattern KEY_Uhornbelowdot               ,-    pattern KEY_Uhornacute                  ,-    pattern KEY_Uhorn                       ,-    pattern KEY_Uhook                       ,-    pattern KEY_Ugrave                      ,-    pattern KEY_Udoubleacute                ,-    pattern KEY_Udiaeresis                  ,-    pattern KEY_Ucircumflex                 ,-    pattern KEY_Ubreve                      ,-    pattern KEY_Ubelowdot                   ,-    pattern KEY_Uacute                      ,-    pattern KEY_UWB                         ,-    pattern KEY_U                           ,-    pattern KEY_Tslash                      ,-    pattern KEY_Travel                      ,-    pattern KEY_Touroku                     ,-    pattern KEY_TouchpadToggle              ,-    pattern KEY_TouchpadOn                  ,-    pattern KEY_TouchpadOff                 ,-    pattern KEY_TopMenu                     ,-    pattern KEY_Tools                       ,-    pattern KEY_ToDoList                    ,-    pattern KEY_Time                        ,-    pattern KEY_Thorn                       ,-    pattern KEY_Thai_yoying                 ,-    pattern KEY_Thai_yoyak                  ,-    pattern KEY_Thai_wowaen                 ,-    pattern KEY_Thai_totao                  ,-    pattern KEY_Thai_topatak                ,-    pattern KEY_Thai_thothung               ,-    pattern KEY_Thai_thothong               ,-    pattern KEY_Thai_thothan                ,-    pattern KEY_Thai_thothahan              ,-    pattern KEY_Thai_thophuthao             ,-    pattern KEY_Thai_thonangmontho          ,-    pattern KEY_Thai_thanthakhat            ,-    pattern KEY_Thai_sosua                  ,-    pattern KEY_Thai_soso                   ,-    pattern KEY_Thai_sosala                 ,-    pattern KEY_Thai_sorusi                 ,-    pattern KEY_Thai_sarauu                 ,-    pattern KEY_Thai_sarauee                ,-    pattern KEY_Thai_saraue                 ,-    pattern KEY_Thai_sarau                  ,-    pattern KEY_Thai_sarao                  ,-    pattern KEY_Thai_saraii                 ,-    pattern KEY_Thai_sarai                  ,-    pattern KEY_Thai_sarae                  ,-    pattern KEY_Thai_saraam                 ,-    pattern KEY_Thai_saraaimaimuan          ,-    pattern KEY_Thai_saraaimaimalai         ,-    pattern KEY_Thai_saraae                 ,-    pattern KEY_Thai_saraaa                 ,-    pattern KEY_Thai_saraa                  ,-    pattern KEY_Thai_ru                     ,-    pattern KEY_Thai_rorua                  ,-    pattern KEY_Thai_popla                  ,-    pattern KEY_Thai_phosamphao             ,-    pattern KEY_Thai_phophung               ,-    pattern KEY_Thai_phophan                ,-    pattern KEY_Thai_phinthu                ,-    pattern KEY_Thai_paiyannoi              ,-    pattern KEY_Thai_oang                   ,-    pattern KEY_Thai_nonu                   ,-    pattern KEY_Thai_nonen                  ,-    pattern KEY_Thai_nikhahit               ,-    pattern KEY_Thai_ngongu                 ,-    pattern KEY_Thai_moma                   ,-    pattern KEY_Thai_maiyamok               ,-    pattern KEY_Thai_maitri                 ,-    pattern KEY_Thai_maitho                 ,-    pattern KEY_Thai_maitaikhu              ,-    pattern KEY_Thai_maihanakat_maitho      ,-    pattern KEY_Thai_maihanakat             ,-    pattern KEY_Thai_maiek                  ,-    pattern KEY_Thai_maichattawa            ,-    pattern KEY_Thai_lu                     ,-    pattern KEY_Thai_loling                 ,-    pattern KEY_Thai_lochula                ,-    pattern KEY_Thai_leksun                 ,-    pattern KEY_Thai_leksong                ,-    pattern KEY_Thai_leksi                  ,-    pattern KEY_Thai_leksam                 ,-    pattern KEY_Thai_lekpaet                ,-    pattern KEY_Thai_leknung                ,-    pattern KEY_Thai_lekkao                 ,-    pattern KEY_Thai_lekhok                 ,-    pattern KEY_Thai_lekha                  ,-    pattern KEY_Thai_lekchet                ,-    pattern KEY_Thai_lakkhangyao            ,-    pattern KEY_Thai_kokai                  ,-    pattern KEY_Thai_khorakhang             ,-    pattern KEY_Thai_khokhwai               ,-    pattern KEY_Thai_khokhuat               ,-    pattern KEY_Thai_khokhon                ,-    pattern KEY_Thai_khokhai                ,-    pattern KEY_Thai_honokhuk               ,-    pattern KEY_Thai_hohip                  ,-    pattern KEY_Thai_fofan                  ,-    pattern KEY_Thai_fofa                   ,-    pattern KEY_Thai_dodek                  ,-    pattern KEY_Thai_dochada                ,-    pattern KEY_Thai_chochoe                ,-    pattern KEY_Thai_choching               ,-    pattern KEY_Thai_chochang               ,-    pattern KEY_Thai_chochan                ,-    pattern KEY_Thai_bobaimai               ,-    pattern KEY_Thai_baht                   ,-    pattern KEY_Terminate_Server            ,-    pattern KEY_Terminal                    ,-    pattern KEY_Tcedilla                    ,-    pattern KEY_Tcaron                      ,-    pattern KEY_TaskPane                    ,-    pattern KEY_Tabovedot                   ,-    pattern KEY_Tab                         ,-    pattern KEY_THORN                       ,-    pattern KEY_T                           ,-    pattern KEY_Sys_Req                     ,-    pattern KEY_Switch_VT_9                 ,-    pattern KEY_Switch_VT_8                 ,-    pattern KEY_Switch_VT_7                 ,-    pattern KEY_Switch_VT_6                 ,-    pattern KEY_Switch_VT_5                 ,-    pattern KEY_Switch_VT_4                 ,-    pattern KEY_Switch_VT_3                 ,-    pattern KEY_Switch_VT_2                 ,-    pattern KEY_Switch_VT_12                ,-    pattern KEY_Switch_VT_11                ,-    pattern KEY_Switch_VT_10                ,-    pattern KEY_Switch_VT_1                 ,-    pattern KEY_Suspend                     ,-    pattern KEY_Support                     ,-    pattern KEY_Super_R                     ,-    pattern KEY_Super_L                     ,-    pattern KEY_Subtitle                    ,-    pattern KEY_Stop                        ,-    pattern KEY_StickyKeys_Enable           ,-    pattern KEY_Start                       ,-    pattern KEY_Standby                     ,-    pattern KEY_SplitScreen                 ,-    pattern KEY_Spell                       ,-    pattern KEY_SlowKeys_Enable             ,-    pattern KEY_Sleep                       ,-    pattern KEY_Sinh_ya                     ,-    pattern KEY_Sinh_va                     ,-    pattern KEY_Sinh_uu2                    ,-    pattern KEY_Sinh_uu                     ,-    pattern KEY_Sinh_u2                     ,-    pattern KEY_Sinh_u                      ,-    pattern KEY_Sinh_ttha                   ,-    pattern KEY_Sinh_tta                    ,-    pattern KEY_Sinh_thha                   ,-    pattern KEY_Sinh_tha                    ,-    pattern KEY_Sinh_ssha                   ,-    pattern KEY_Sinh_sha                    ,-    pattern KEY_Sinh_sa                     ,-    pattern KEY_Sinh_ruu2                   ,-    pattern KEY_Sinh_ru2                    ,-    pattern KEY_Sinh_rii                    ,-    pattern KEY_Sinh_ri                     ,-    pattern KEY_Sinh_ra                     ,-    pattern KEY_Sinh_pha                    ,-    pattern KEY_Sinh_pa                     ,-    pattern KEY_Sinh_oo2                    ,-    pattern KEY_Sinh_oo                     ,-    pattern KEY_Sinh_o2                     ,-    pattern KEY_Sinh_o                      ,-    pattern KEY_Sinh_nya                    ,-    pattern KEY_Sinh_nna                    ,-    pattern KEY_Sinh_nja                    ,-    pattern KEY_Sinh_nga                    ,-    pattern KEY_Sinh_ng2                    ,-    pattern KEY_Sinh_ng                     ,-    pattern KEY_Sinh_ndha                   ,-    pattern KEY_Sinh_ndda                   ,-    pattern KEY_Sinh_na                     ,-    pattern KEY_Sinh_mba                    ,-    pattern KEY_Sinh_ma                     ,-    pattern KEY_Sinh_luu2                   ,-    pattern KEY_Sinh_luu                    ,-    pattern KEY_Sinh_lu2                    ,-    pattern KEY_Sinh_lu                     ,-    pattern KEY_Sinh_lla                    ,-    pattern KEY_Sinh_la                     ,-    pattern KEY_Sinh_kunddaliya             ,-    pattern KEY_Sinh_kha                    ,-    pattern KEY_Sinh_ka                     ,-    pattern KEY_Sinh_jnya                   ,-    pattern KEY_Sinh_jha                    ,-    pattern KEY_Sinh_ja                     ,-    pattern KEY_Sinh_ii2                    ,-    pattern KEY_Sinh_ii                     ,-    pattern KEY_Sinh_i2                     ,-    pattern KEY_Sinh_i                      ,-    pattern KEY_Sinh_ha                     ,-    pattern KEY_Sinh_h2                     ,-    pattern KEY_Sinh_gha                    ,-    pattern KEY_Sinh_ga                     ,-    pattern KEY_Sinh_fa                     ,-    pattern KEY_Sinh_ee2                    ,-    pattern KEY_Sinh_ee                     ,-    pattern KEY_Sinh_e2                     ,-    pattern KEY_Sinh_e                      ,-    pattern KEY_Sinh_dhha                   ,-    pattern KEY_Sinh_dha                    ,-    pattern KEY_Sinh_ddha                   ,-    pattern KEY_Sinh_dda                    ,-    pattern KEY_Sinh_cha                    ,-    pattern KEY_Sinh_ca                     ,-    pattern KEY_Sinh_bha                    ,-    pattern KEY_Sinh_ba                     ,-    pattern KEY_Sinh_au2                    ,-    pattern KEY_Sinh_au                     ,-    pattern KEY_Sinh_al                     ,-    pattern KEY_Sinh_ai2                    ,-    pattern KEY_Sinh_ai                     ,-    pattern KEY_Sinh_aee2                   ,-    pattern KEY_Sinh_aee                    ,-    pattern KEY_Sinh_ae2                    ,-    pattern KEY_Sinh_ae                     ,-    pattern KEY_Sinh_aa2                    ,-    pattern KEY_Sinh_aa                     ,-    pattern KEY_Sinh_a                      ,-    pattern KEY_SingleCandidate             ,-    pattern KEY_Shop                        ,-    pattern KEY_Shift_R                     ,-    pattern KEY_Shift_Lock                  ,-    pattern KEY_Shift_L                     ,-    pattern KEY_Serbian_tshe                ,-    pattern KEY_Serbian_nje                 ,-    pattern KEY_Serbian_lje                 ,-    pattern KEY_Serbian_je                  ,-    pattern KEY_Serbian_dze                 ,-    pattern KEY_Serbian_dje                 ,-    pattern KEY_Serbian_TSHE                ,-    pattern KEY_Serbian_NJE                 ,-    pattern KEY_Serbian_LJE                 ,-    pattern KEY_Serbian_JE                  ,-    pattern KEY_Serbian_DZE                 ,-    pattern KEY_Serbian_DJE                 ,-    pattern KEY_Send                        ,-    pattern KEY_SelectButton                ,-    pattern KEY_Select                      ,-    pattern KEY_Search                      ,-    pattern KEY_Scroll_Lock                 ,-    pattern KEY_ScrollUp                    ,-    pattern KEY_ScrollDown                  ,-    pattern KEY_ScrollClick                 ,-    pattern KEY_ScreenSaver                 ,-    pattern KEY_Scircumflex                 ,-    pattern KEY_Scedilla                    ,-    pattern KEY_Scaron                      ,-    pattern KEY_Save                        ,-    pattern KEY_Sacute                      ,-    pattern KEY_Sabovedot                   ,-    pattern KEY_SCHWA                       ,-    pattern KEY_S                           ,-    pattern KEY_RupeeSign                   ,-    pattern KEY_RotationPB                  ,-    pattern KEY_RotationKB                  ,-    pattern KEY_RotateWindows               ,-    pattern KEY_Romaji                      ,-    pattern KEY_RockerUp                    ,-    pattern KEY_RockerEnter                 ,-    pattern KEY_RockerDown                  ,-    pattern KEY_Right                       ,-    pattern KEY_Return                      ,-    pattern KEY_Reply                       ,-    pattern KEY_RepeatKeys_Enable           ,-    pattern KEY_Reload                      ,-    pattern KEY_Refresh                     ,-    pattern KEY_Redo                        ,-    pattern KEY_Red                         ,-    pattern KEY_Rcedilla                    ,-    pattern KEY_Rcaron                      ,-    pattern KEY_Racute                      ,-    pattern KEY_R9                          ,-    pattern KEY_R8                          ,-    pattern KEY_R7                          ,-    pattern KEY_R6                          ,-    pattern KEY_R5                          ,-    pattern KEY_R4                          ,-    pattern KEY_R3                          ,-    pattern KEY_R2                          ,-    pattern KEY_R15                         ,-    pattern KEY_R14                         ,-    pattern KEY_R13                         ,-    pattern KEY_R12                         ,-    pattern KEY_R11                         ,-    pattern KEY_R10                         ,-    pattern KEY_R1                          ,-    pattern KEY_R                           ,-    pattern KEY_Q                           ,-    pattern KEY_Prior                       ,-    pattern KEY_Print                       ,-    pattern KEY_PreviousCandidate           ,-    pattern KEY_Prev_Virtual_Screen         ,-    pattern KEY_Prev_VMode                  ,-    pattern KEY_PowerOff                    ,-    pattern KEY_PowerDown                   ,-    pattern KEY_Pointer_UpRight             ,-    pattern KEY_Pointer_UpLeft              ,-    pattern KEY_Pointer_Up                  ,-    pattern KEY_Pointer_Right               ,-    pattern KEY_Pointer_Left                ,-    pattern KEY_Pointer_EnableKeys          ,-    pattern KEY_Pointer_Drag_Dflt           ,-    pattern KEY_Pointer_Drag5               ,-    pattern KEY_Pointer_Drag4               ,-    pattern KEY_Pointer_Drag3               ,-    pattern KEY_Pointer_Drag2               ,-    pattern KEY_Pointer_Drag1               ,-    pattern KEY_Pointer_DownRight           ,-    pattern KEY_Pointer_DownLeft            ,-    pattern KEY_Pointer_Down                ,-    pattern KEY_Pointer_DfltBtnPrev         ,-    pattern KEY_Pointer_DfltBtnNext         ,-    pattern KEY_Pointer_DblClick_Dflt       ,-    pattern KEY_Pointer_DblClick5           ,-    pattern KEY_Pointer_DblClick4           ,-    pattern KEY_Pointer_DblClick3           ,-    pattern KEY_Pointer_DblClick2           ,-    pattern KEY_Pointer_DblClick1           ,-    pattern KEY_Pointer_Button_Dflt         ,-    pattern KEY_Pointer_Button5             ,-    pattern KEY_Pointer_Button4             ,-    pattern KEY_Pointer_Button3             ,-    pattern KEY_Pointer_Button2             ,-    pattern KEY_Pointer_Button1             ,-    pattern KEY_Pointer_Accelerate          ,-    pattern KEY_Pictures                    ,-    pattern KEY_Phone                       ,-    pattern KEY_PesetaSign                  ,-    pattern KEY_Pause                       ,-    pattern KEY_Paste                       ,-    pattern KEY_Page_Up                     ,-    pattern KEY_Page_Down                   ,-    pattern KEY_Pabovedot                   ,-    pattern KEY_P                           ,-    pattern KEY_Overlay2_Enable             ,-    pattern KEY_Overlay1_Enable             ,-    pattern KEY_Otilde                      ,-    pattern KEY_Oslash                      ,-    pattern KEY_Option                      ,-    pattern KEY_OpenURL                     ,-    pattern KEY_Open                        ,-    pattern KEY_Ooblique                    ,-    pattern KEY_Omacron                     ,-    pattern KEY_Ohorntilde                  ,-    pattern KEY_Ohornhook                   ,-    pattern KEY_Ohorngrave                  ,-    pattern KEY_Ohornbelowdot               ,-    pattern KEY_Ohornacute                  ,-    pattern KEY_Ohorn                       ,-    pattern KEY_Ohook                       ,-    pattern KEY_Ograve                      ,-    pattern KEY_OfficeHome                  ,-    pattern KEY_Odoubleacute                ,-    pattern KEY_Odiaeresis                  ,-    pattern KEY_Ocircumflextilde            ,-    pattern KEY_Ocircumflexhook             ,-    pattern KEY_Ocircumflexgrave            ,-    pattern KEY_Ocircumflexbelowdot         ,-    pattern KEY_Ocircumflexacute            ,-    pattern KEY_Ocircumflex                 ,-    pattern KEY_Ocaron                      ,-    pattern KEY_Obelowdot                   ,-    pattern KEY_Obarred                     ,-    pattern KEY_Oacute                      ,-    pattern KEY_OE                          ,-    pattern KEY_O                           ,-    pattern KEY_Num_Lock                    ,-    pattern KEY_Ntilde                      ,-    pattern KEY_Next_Virtual_Screen         ,-    pattern KEY_Next_VMode                  ,-    pattern KEY_Next                        ,-    pattern KEY_News                        ,-    pattern KEY_NewSheqelSign               ,-    pattern KEY_New                         ,-    pattern KEY_Ncedilla                    ,-    pattern KEY_Ncaron                      ,-    pattern KEY_NairaSign                   ,-    pattern KEY_Nacute                      ,-    pattern KEY_N                           ,-    pattern KEY_MySites                     ,-    pattern KEY_MyComputer                  ,-    pattern KEY_Music                       ,-    pattern KEY_MultipleCandidate           ,-    pattern KEY_Multi_key                   ,-    pattern KEY_Muhenkan                    ,-    pattern KEY_MouseKeys_Enable            ,-    pattern KEY_MouseKeys_Accel_Enable      ,-    pattern KEY_MonBrightnessUp             ,-    pattern KEY_MonBrightnessDown           ,-    pattern KEY_Mode_switch                 ,-    pattern KEY_ModeLock                    ,-    pattern KEY_MillSign                    ,-    pattern KEY_Meta_R                      ,-    pattern KEY_Meta_L                      ,-    pattern KEY_Messenger                   ,-    pattern KEY_MenuPB                      ,-    pattern KEY_MenuKB                      ,-    pattern KEY_Menu                        ,-    pattern KEY_Memo                        ,-    pattern KEY_Meeting                     ,-    pattern KEY_Massyo                      ,-    pattern KEY_Market                      ,-    pattern KEY_MailForward                 ,-    pattern KEY_Mail                        ,-    pattern KEY_Mae_Koho                    ,-    pattern KEY_Macedonia_kje               ,-    pattern KEY_Macedonia_gje               ,-    pattern KEY_Macedonia_dse               ,-    pattern KEY_Macedonia_KJE               ,-    pattern KEY_Macedonia_GJE               ,-    pattern KEY_Macedonia_DSE               ,-    pattern KEY_Mabovedot                   ,-    pattern KEY_M                           ,-    pattern KEY_Lstroke                     ,-    pattern KEY_LogWindowTree               ,-    pattern KEY_LogOff                      ,-    pattern KEY_LogGrabInfo                 ,-    pattern KEY_LiraSign                    ,-    pattern KEY_Linefeed                    ,-    pattern KEY_LightBulb                   ,-    pattern KEY_Left                        ,-    pattern KEY_Lcedilla                    ,-    pattern KEY_Lcaron                      ,-    pattern KEY_Lbelowdot                   ,-    pattern KEY_LaunchF                     ,-    pattern KEY_LaunchE                     ,-    pattern KEY_LaunchD                     ,-    pattern KEY_LaunchC                     ,-    pattern KEY_LaunchB                     ,-    pattern KEY_LaunchA                     ,-    pattern KEY_Launch9                     ,-    pattern KEY_Launch8                     ,-    pattern KEY_Launch7                     ,-    pattern KEY_Launch6                     ,-    pattern KEY_Launch5                     ,-    pattern KEY_Launch4                     ,-    pattern KEY_Launch3                     ,-    pattern KEY_Launch2                     ,-    pattern KEY_Launch1                     ,-    pattern KEY_Launch0                     ,-    pattern KEY_Last_Virtual_Screen         ,-    pattern KEY_Lacute                      ,-    pattern KEY_L9                          ,-    pattern KEY_L8                          ,-    pattern KEY_L7                          ,-    pattern KEY_L6                          ,-    pattern KEY_L5                          ,-    pattern KEY_L4                          ,-    pattern KEY_L3                          ,-    pattern KEY_L2                          ,-    pattern KEY_L10                         ,-    pattern KEY_L1                          ,-    pattern KEY_L                           ,-    pattern KEY_Korean_Won                  ,-    pattern KEY_Kcedilla                    ,-    pattern KEY_KbdLightOnOff               ,-    pattern KEY_KbdBrightnessUp             ,-    pattern KEY_KbdBrightnessDown           ,-    pattern KEY_Katakana                    ,-    pattern KEY_Kanji_Bangou                ,-    pattern KEY_Kanji                       ,-    pattern KEY_Kana_Shift                  ,-    pattern KEY_Kana_Lock                   ,-    pattern KEY_KP_Up                       ,-    pattern KEY_KP_Tab                      ,-    pattern KEY_KP_Subtract                 ,-    pattern KEY_KP_Space                    ,-    pattern KEY_KP_Separator                ,-    pattern KEY_KP_Right                    ,-    pattern KEY_KP_Prior                    ,-    pattern KEY_KP_Page_Up                  ,-    pattern KEY_KP_Page_Down                ,-    pattern KEY_KP_Next                     ,-    pattern KEY_KP_Multiply                 ,-    pattern KEY_KP_Left                     ,-    pattern KEY_KP_Insert                   ,-    pattern KEY_KP_Home                     ,-    pattern KEY_KP_F4                       ,-    pattern KEY_KP_F3                       ,-    pattern KEY_KP_F2                       ,-    pattern KEY_KP_F1                       ,-    pattern KEY_KP_Equal                    ,-    pattern KEY_KP_Enter                    ,-    pattern KEY_KP_End                      ,-    pattern KEY_KP_Down                     ,-    pattern KEY_KP_Divide                   ,-    pattern KEY_KP_Delete                   ,-    pattern KEY_KP_Decimal                  ,-    pattern KEY_KP_Begin                    ,-    pattern KEY_KP_Add                      ,-    pattern KEY_KP_9                        ,-    pattern KEY_KP_8                        ,-    pattern KEY_KP_7                        ,-    pattern KEY_KP_6                        ,-    pattern KEY_KP_5                        ,-    pattern KEY_KP_4                        ,-    pattern KEY_KP_3                        ,-    pattern KEY_KP_2                        ,-    pattern KEY_KP_1                        ,-    pattern KEY_KP_0                        ,-    pattern KEY_K                           ,-    pattern KEY_Jcircumflex                 ,-    pattern KEY_J                           ,-    pattern KEY_Itilde                      ,-    pattern KEY_Iogonek                     ,-    pattern KEY_Insert                      ,-    pattern KEY_Imacron                     ,-    pattern KEY_Ihook                       ,-    pattern KEY_Igrave                      ,-    pattern KEY_Idiaeresis                  ,-    pattern KEY_Icircumflex                 ,-    pattern KEY_Ibreve                      ,-    pattern KEY_Ibelowdot                   ,-    pattern KEY_Iacute                      ,-    pattern KEY_Iabovedot                   ,-    pattern KEY_ISO_Set_Margin_Right        ,-    pattern KEY_ISO_Set_Margin_Left         ,-    pattern KEY_ISO_Release_Margin_Right    ,-    pattern KEY_ISO_Release_Margin_Left     ,-    pattern KEY_ISO_Release_Both_Margins    ,-    pattern KEY_ISO_Prev_Group_Lock         ,-    pattern KEY_ISO_Prev_Group              ,-    pattern KEY_ISO_Partial_Space_Right     ,-    pattern KEY_ISO_Partial_Space_Left      ,-    pattern KEY_ISO_Partial_Line_Up         ,-    pattern KEY_ISO_Partial_Line_Down       ,-    pattern KEY_ISO_Next_Group_Lock         ,-    pattern KEY_ISO_Next_Group              ,-    pattern KEY_ISO_Move_Line_Up            ,-    pattern KEY_ISO_Move_Line_Down          ,-    pattern KEY_ISO_Lock                    ,-    pattern KEY_ISO_Level5_Shift            ,-    pattern KEY_ISO_Level5_Lock             ,-    pattern KEY_ISO_Level5_Latch            ,-    pattern KEY_ISO_Level3_Shift            ,-    pattern KEY_ISO_Level3_Lock             ,-    pattern KEY_ISO_Level3_Latch            ,-    pattern KEY_ISO_Level2_Latch            ,-    pattern KEY_ISO_Left_Tab                ,-    pattern KEY_ISO_Last_Group_Lock         ,-    pattern KEY_ISO_Last_Group              ,-    pattern KEY_ISO_Group_Shift             ,-    pattern KEY_ISO_Group_Lock              ,-    pattern KEY_ISO_Group_Latch             ,-    pattern KEY_ISO_First_Group_Lock        ,-    pattern KEY_ISO_First_Group             ,-    pattern KEY_ISO_Fast_Cursor_Up          ,-    pattern KEY_ISO_Fast_Cursor_Right       ,-    pattern KEY_ISO_Fast_Cursor_Left        ,-    pattern KEY_ISO_Fast_Cursor_Down        ,-    pattern KEY_ISO_Enter                   ,-    pattern KEY_ISO_Emphasize               ,-    pattern KEY_ISO_Discontinuous_Underline ,-    pattern KEY_ISO_Continuous_Underline    ,-    pattern KEY_ISO_Center_Object           ,-    pattern KEY_I                           ,-    pattern KEY_Hyper_R                     ,-    pattern KEY_Hyper_L                     ,-    pattern KEY_Hstroke                     ,-    pattern KEY_HotLinks                    ,-    pattern KEY_HomePage                    ,-    pattern KEY_Home                        ,-    pattern KEY_History                     ,-    pattern KEY_Hiragana_Katakana           ,-    pattern KEY_Hiragana                    ,-    pattern KEY_Hibernate                   ,-    pattern KEY_Henkan_Mode                 ,-    pattern KEY_Henkan                      ,-    pattern KEY_Help                        ,-    pattern KEY_Hebrew_switch               ,-    pattern KEY_Hcircumflex                 ,-    pattern KEY_Hankaku                     ,-    pattern KEY_Hangul_switch               ,-    pattern KEY_Hangul_YeorinHieuh          ,-    pattern KEY_Hangul_YU                   ,-    pattern KEY_Hangul_YO                   ,-    pattern KEY_Hangul_YI                   ,-    pattern KEY_Hangul_YEO                  ,-    pattern KEY_Hangul_YE                   ,-    pattern KEY_Hangul_YAE                  ,-    pattern KEY_Hangul_YA                   ,-    pattern KEY_Hangul_WI                   ,-    pattern KEY_Hangul_WEO                  ,-    pattern KEY_Hangul_WE                   ,-    pattern KEY_Hangul_WAE                  ,-    pattern KEY_Hangul_WA                   ,-    pattern KEY_Hangul_U                    ,-    pattern KEY_Hangul_Tieut                ,-    pattern KEY_Hangul_SunkyeongeumPieub    ,-    pattern KEY_Hangul_SunkyeongeumPhieuf   ,-    pattern KEY_Hangul_SunkyeongeumMieum    ,-    pattern KEY_Hangul_Start                ,-    pattern KEY_Hangul_SsangSios            ,-    pattern KEY_Hangul_SsangPieub           ,-    pattern KEY_Hangul_SsangKiyeog          ,-    pattern KEY_Hangul_SsangJieuj           ,-    pattern KEY_Hangul_SsangDikeud          ,-    pattern KEY_Hangul_Special              ,-    pattern KEY_Hangul_Sios                 ,-    pattern KEY_Hangul_SingleCandidate      ,-    pattern KEY_Hangul_Romaja               ,-    pattern KEY_Hangul_RieulYeorinHieuh     ,-    pattern KEY_Hangul_RieulTieut           ,-    pattern KEY_Hangul_RieulSios            ,-    pattern KEY_Hangul_RieulPieub           ,-    pattern KEY_Hangul_RieulPhieuf          ,-    pattern KEY_Hangul_RieulMieum           ,-    pattern KEY_Hangul_RieulKiyeog          ,-    pattern KEY_Hangul_RieulHieuh           ,-    pattern KEY_Hangul_Rieul                ,-    pattern KEY_Hangul_PreviousCandidate    ,-    pattern KEY_Hangul_PreHanja             ,-    pattern KEY_Hangul_PostHanja            ,-    pattern KEY_Hangul_PieubSios            ,-    pattern KEY_Hangul_Pieub                ,-    pattern KEY_Hangul_Phieuf               ,-    pattern KEY_Hangul_PanSios              ,-    pattern KEY_Hangul_OE                   ,-    pattern KEY_Hangul_O                    ,-    pattern KEY_Hangul_NieunJieuj           ,-    pattern KEY_Hangul_NieunHieuh           ,-    pattern KEY_Hangul_Nieun                ,-    pattern KEY_Hangul_MultipleCandidate    ,-    pattern KEY_Hangul_Mieum                ,-    pattern KEY_Hangul_KkogjiDalrinIeung    ,-    pattern KEY_Hangul_KiyeogSios           ,-    pattern KEY_Hangul_Kiyeog               ,-    pattern KEY_Hangul_Khieuq               ,-    pattern KEY_Hangul_Jieuj                ,-    pattern KEY_Hangul_Jeonja               ,-    pattern KEY_Hangul_Jamo                 ,-    pattern KEY_Hangul_J_YeorinHieuh        ,-    pattern KEY_Hangul_J_Tieut              ,-    pattern KEY_Hangul_J_SsangSios          ,-    pattern KEY_Hangul_J_SsangKiyeog        ,-    pattern KEY_Hangul_J_Sios               ,-    pattern KEY_Hangul_J_RieulTieut         ,-    pattern KEY_Hangul_J_RieulSios          ,-    pattern KEY_Hangul_J_RieulPieub         ,-    pattern KEY_Hangul_J_RieulPhieuf        ,-    pattern KEY_Hangul_J_RieulMieum         ,-    pattern KEY_Hangul_J_RieulKiyeog        ,-    pattern KEY_Hangul_J_RieulHieuh         ,-    pattern KEY_Hangul_J_Rieul              ,-    pattern KEY_Hangul_J_PieubSios          ,-    pattern KEY_Hangul_J_Pieub              ,-    pattern KEY_Hangul_J_Phieuf             ,-    pattern KEY_Hangul_J_PanSios            ,-    pattern KEY_Hangul_J_NieunJieuj         ,-    pattern KEY_Hangul_J_NieunHieuh         ,-    pattern KEY_Hangul_J_Nieun              ,-    pattern KEY_Hangul_J_Mieum              ,-    pattern KEY_Hangul_J_KkogjiDalrinIeung  ,-    pattern KEY_Hangul_J_KiyeogSios         ,-    pattern KEY_Hangul_J_Kiyeog             ,-    pattern KEY_Hangul_J_Khieuq             ,-    pattern KEY_Hangul_J_Jieuj              ,-    pattern KEY_Hangul_J_Ieung              ,-    pattern KEY_Hangul_J_Hieuh              ,-    pattern KEY_Hangul_J_Dikeud             ,-    pattern KEY_Hangul_J_Cieuc              ,-    pattern KEY_Hangul_Ieung                ,-    pattern KEY_Hangul_I                    ,-    pattern KEY_Hangul_Hieuh                ,-    pattern KEY_Hangul_Hanja                ,-    pattern KEY_Hangul_End                  ,-    pattern KEY_Hangul_EU                   ,-    pattern KEY_Hangul_EO                   ,-    pattern KEY_Hangul_E                    ,-    pattern KEY_Hangul_Dikeud               ,-    pattern KEY_Hangul_Codeinput            ,-    pattern KEY_Hangul_Cieuc                ,-    pattern KEY_Hangul_Banja                ,-    pattern KEY_Hangul_AraeAE               ,-    pattern KEY_Hangul_AraeA                ,-    pattern KEY_Hangul_AE                   ,-    pattern KEY_Hangul_A                    ,-    pattern KEY_Hangul                      ,-    pattern KEY_H                           ,-    pattern KEY_Green                       ,-    pattern KEY_Greek_zeta                  ,-    pattern KEY_Greek_xi                    ,-    pattern KEY_Greek_upsilondieresis       ,-    pattern KEY_Greek_upsilonaccentdieresis ,-    pattern KEY_Greek_upsilonaccent         ,-    pattern KEY_Greek_upsilon               ,-    pattern KEY_Greek_theta                 ,-    pattern KEY_Greek_tau                   ,-    pattern KEY_Greek_switch                ,-    pattern KEY_Greek_sigma                 ,-    pattern KEY_Greek_rho                   ,-    pattern KEY_Greek_psi                   ,-    pattern KEY_Greek_pi                    ,-    pattern KEY_Greek_phi                   ,-    pattern KEY_Greek_omicronaccent         ,-    pattern KEY_Greek_omicron               ,-    pattern KEY_Greek_omegaaccent           ,-    pattern KEY_Greek_omega                 ,-    pattern KEY_Greek_nu                    ,-    pattern KEY_Greek_mu                    ,-    pattern KEY_Greek_lamda                 ,-    pattern KEY_Greek_lambda                ,-    pattern KEY_Greek_kappa                 ,-    pattern KEY_Greek_iotadieresis          ,-    pattern KEY_Greek_iotaaccentdieresis    ,-    pattern KEY_Greek_iotaaccent            ,-    pattern KEY_Greek_iota                  ,-    pattern KEY_Greek_horizbar              ,-    pattern KEY_Greek_gamma                 ,-    pattern KEY_Greek_finalsmallsigma       ,-    pattern KEY_Greek_etaaccent             ,-    pattern KEY_Greek_eta                   ,-    pattern KEY_Greek_epsilonaccent         ,-    pattern KEY_Greek_epsilon               ,-    pattern KEY_Greek_delta                 ,-    pattern KEY_Greek_chi                   ,-    pattern KEY_Greek_beta                  ,-    pattern KEY_Greek_alphaaccent           ,-    pattern KEY_Greek_alpha                 ,-    pattern KEY_Greek_accentdieresis        ,-    pattern KEY_Greek_ZETA                  ,-    pattern KEY_Greek_XI                    ,-    pattern KEY_Greek_UPSILONdieresis       ,-    pattern KEY_Greek_UPSILONaccent         ,-    pattern KEY_Greek_UPSILON               ,-    pattern KEY_Greek_THETA                 ,-    pattern KEY_Greek_TAU                   ,-    pattern KEY_Greek_SIGMA                 ,-    pattern KEY_Greek_RHO                   ,-    pattern KEY_Greek_PSI                   ,-    pattern KEY_Greek_PI                    ,-    pattern KEY_Greek_PHI                   ,-    pattern KEY_Greek_OMICRONaccent         ,-    pattern KEY_Greek_OMICRON               ,-    pattern KEY_Greek_OMEGAaccent           ,-    pattern KEY_Greek_OMEGA                 ,-    pattern KEY_Greek_NU                    ,-    pattern KEY_Greek_MU                    ,-    pattern KEY_Greek_LAMDA                 ,-    pattern KEY_Greek_LAMBDA                ,-    pattern KEY_Greek_KAPPA                 ,-    pattern KEY_Greek_IOTAdieresis          ,-    pattern KEY_Greek_IOTAdiaeresis         ,-    pattern KEY_Greek_IOTAaccent            ,-    pattern KEY_Greek_IOTA                  ,-    pattern KEY_Greek_GAMMA                 ,-    pattern KEY_Greek_ETAaccent             ,-    pattern KEY_Greek_ETA                   ,-    pattern KEY_Greek_EPSILONaccent         ,-    pattern KEY_Greek_EPSILON               ,-    pattern KEY_Greek_DELTA                 ,-    pattern KEY_Greek_CHI                   ,-    pattern KEY_Greek_BETA                  ,-    pattern KEY_Greek_ALPHAaccent           ,-    pattern KEY_Greek_ALPHA                 ,-    pattern KEY_Go                          ,-    pattern KEY_Georgian_zhar               ,-    pattern KEY_Georgian_zen                ,-    pattern KEY_Georgian_xan                ,-    pattern KEY_Georgian_we                 ,-    pattern KEY_Georgian_vin                ,-    pattern KEY_Georgian_un                 ,-    pattern KEY_Georgian_tar                ,-    pattern KEY_Georgian_tan                ,-    pattern KEY_Georgian_shin               ,-    pattern KEY_Georgian_san                ,-    pattern KEY_Georgian_rae                ,-    pattern KEY_Georgian_qar                ,-    pattern KEY_Georgian_phar               ,-    pattern KEY_Georgian_par                ,-    pattern KEY_Georgian_on                 ,-    pattern KEY_Georgian_nar                ,-    pattern KEY_Georgian_man                ,-    pattern KEY_Georgian_las                ,-    pattern KEY_Georgian_khar               ,-    pattern KEY_Georgian_kan                ,-    pattern KEY_Georgian_jil                ,-    pattern KEY_Georgian_jhan               ,-    pattern KEY_Georgian_in                 ,-    pattern KEY_Georgian_hoe                ,-    pattern KEY_Georgian_hie                ,-    pattern KEY_Georgian_he                 ,-    pattern KEY_Georgian_har                ,-    pattern KEY_Georgian_hae                ,-    pattern KEY_Georgian_ghan               ,-    pattern KEY_Georgian_gan                ,-    pattern KEY_Georgian_fi                 ,-    pattern KEY_Georgian_en                 ,-    pattern KEY_Georgian_don                ,-    pattern KEY_Georgian_cil                ,-    pattern KEY_Georgian_chin               ,-    pattern KEY_Georgian_char               ,-    pattern KEY_Georgian_can                ,-    pattern KEY_Georgian_ban                ,-    pattern KEY_Georgian_an                 ,-    pattern KEY_Gcircumflex                 ,-    pattern KEY_Gcedilla                    ,-    pattern KEY_Gcaron                      ,-    pattern KEY_Gbreve                      ,-    pattern KEY_Game                        ,-    pattern KEY_Gabovedot                   ,-    pattern KEY_G                           ,-    pattern KEY_FrameForward                ,-    pattern KEY_FrameBack                   ,-    pattern KEY_Forward                     ,-    pattern KEY_First_Virtual_Screen        ,-    pattern KEY_Find                        ,-    pattern KEY_Finance                     ,-    pattern KEY_Favorites                   ,-    pattern KEY_Farsi_yeh                   ,-    pattern KEY_Farsi_9                     ,-    pattern KEY_Farsi_8                     ,-    pattern KEY_Farsi_7                     ,-    pattern KEY_Farsi_6                     ,-    pattern KEY_Farsi_5                     ,-    pattern KEY_Farsi_4                     ,-    pattern KEY_Farsi_3                     ,-    pattern KEY_Farsi_2                     ,-    pattern KEY_Farsi_1                     ,-    pattern KEY_Farsi_0                     ,-    pattern KEY_Fabovedot                   ,-    pattern KEY_FFrancSign                  ,-    pattern KEY_F9                          ,-    pattern KEY_F8                          ,-    pattern KEY_F7                          ,-    pattern KEY_F6                          ,-    pattern KEY_F5                          ,-    pattern KEY_F4                          ,-    pattern KEY_F35                         ,-    pattern KEY_F34                         ,-    pattern KEY_F33                         ,-    pattern KEY_F32                         ,-    pattern KEY_F31                         ,-    pattern KEY_F30                         ,-    pattern KEY_F3                          ,-    pattern KEY_F29                         ,-    pattern KEY_F28                         ,-    pattern KEY_F27                         ,-    pattern KEY_F26                         ,-    pattern KEY_F25                         ,-    pattern KEY_F24                         ,-    pattern KEY_F23                         ,-    pattern KEY_F22                         ,-    pattern KEY_F21                         ,-    pattern KEY_F20                         ,-    pattern KEY_F2                          ,-    pattern KEY_F19                         ,-    pattern KEY_F18                         ,-    pattern KEY_F17                         ,-    pattern KEY_F16                         ,-    pattern KEY_F15                         ,-    pattern KEY_F14                         ,-    pattern KEY_F13                         ,-    pattern KEY_F12                         ,-    pattern KEY_F11                         ,-    pattern KEY_F10                         ,-    pattern KEY_F1                          ,-    pattern KEY_F                           ,-    pattern KEY_Explorer                    ,-    pattern KEY_Execute                     ,-    pattern KEY_Excel                       ,-    pattern KEY_EuroSign                    ,-    pattern KEY_Etilde                      ,-    pattern KEY_Eth                         ,-    pattern KEY_Escape                      ,-    pattern KEY_Eogonek                     ,-    pattern KEY_End                         ,-    pattern KEY_Emacron                     ,-    pattern KEY_Eject                       ,-    pattern KEY_Eisu_toggle                 ,-    pattern KEY_Eisu_Shift                  ,-    pattern KEY_Ehook                       ,-    pattern KEY_Egrave                      ,-    pattern KEY_Ediaeresis                  ,-    pattern KEY_EcuSign                     ,-    pattern KEY_Ecircumflextilde            ,-    pattern KEY_Ecircumflexhook             ,-    pattern KEY_Ecircumflexgrave            ,-    pattern KEY_Ecircumflexbelowdot         ,-    pattern KEY_Ecircumflexacute            ,-    pattern KEY_Ecircumflex                 ,-    pattern KEY_Ecaron                      ,-    pattern KEY_Ebelowdot                   ,-    pattern KEY_Eacute                      ,-    pattern KEY_Eabovedot                   ,-    pattern KEY_EZH                         ,-    pattern KEY_ETH                         ,-    pattern KEY_ENG                         ,-    pattern KEY_E                           ,-    pattern KEY_Dstroke                     ,-    pattern KEY_Down                        ,-    pattern KEY_DongSign                    ,-    pattern KEY_Documents                   ,-    pattern KEY_Display                     ,-    pattern KEY_Delete                      ,-    pattern KEY_Dcaron                      ,-    pattern KEY_Dabovedot                   ,-    pattern KEY_DOS                         ,-    pattern KEY_D                           ,-    pattern KEY_Cyrillic_zhe_descender      ,-    pattern KEY_Cyrillic_zhe                ,-    pattern KEY_Cyrillic_ze                 ,-    pattern KEY_Cyrillic_yu                 ,-    pattern KEY_Cyrillic_yeru               ,-    pattern KEY_Cyrillic_ya                 ,-    pattern KEY_Cyrillic_ve                 ,-    pattern KEY_Cyrillic_u_straight_bar     ,-    pattern KEY_Cyrillic_u_straight         ,-    pattern KEY_Cyrillic_u_macron           ,-    pattern KEY_Cyrillic_u                  ,-    pattern KEY_Cyrillic_tse                ,-    pattern KEY_Cyrillic_te                 ,-    pattern KEY_Cyrillic_softsign           ,-    pattern KEY_Cyrillic_shorti             ,-    pattern KEY_Cyrillic_shha               ,-    pattern KEY_Cyrillic_shcha              ,-    pattern KEY_Cyrillic_sha                ,-    pattern KEY_Cyrillic_schwa              ,-    pattern KEY_Cyrillic_pe                 ,-    pattern KEY_Cyrillic_o_bar              ,-    pattern KEY_Cyrillic_o                  ,-    pattern KEY_Cyrillic_nje                ,-    pattern KEY_Cyrillic_lje                ,-    pattern KEY_Cyrillic_ka_vertstroke      ,-    pattern KEY_Cyrillic_ka_descender       ,-    pattern KEY_Cyrillic_ka                 ,-    pattern KEY_Cyrillic_je                 ,-    pattern KEY_Cyrillic_io                 ,-    pattern KEY_Cyrillic_ie                 ,-    pattern KEY_Cyrillic_i_macron           ,-    pattern KEY_Cyrillic_i                  ,-    pattern KEY_Cyrillic_hardsign           ,-    pattern KEY_Cyrillic_ha_descender       ,-    pattern KEY_Cyrillic_ha                 ,-    pattern KEY_Cyrillic_ghe_bar            ,-    pattern KEY_Cyrillic_ghe                ,-    pattern KEY_Cyrillic_es                 ,-    pattern KEY_Cyrillic_er                 ,-    pattern KEY_Cyrillic_en_descender       ,-    pattern KEY_Cyrillic_en                 ,-    pattern KEY_Cyrillic_em                 ,-    pattern KEY_Cyrillic_el                 ,-    pattern KEY_Cyrillic_ef                 ,-    pattern KEY_Cyrillic_e                  ,-    pattern KEY_Cyrillic_dzhe               ,-    pattern KEY_Cyrillic_de                 ,-    pattern KEY_Cyrillic_che_vertstroke     ,-    pattern KEY_Cyrillic_che_descender      ,-    pattern KEY_Cyrillic_che                ,-    pattern KEY_Cyrillic_be                 ,-    pattern KEY_Cyrillic_a                  ,-    pattern KEY_Cyrillic_ZHE_descender      ,-    pattern KEY_Cyrillic_ZHE                ,-    pattern KEY_Cyrillic_ZE                 ,-    pattern KEY_Cyrillic_YU                 ,-    pattern KEY_Cyrillic_YERU               ,-    pattern KEY_Cyrillic_YA                 ,-    pattern KEY_Cyrillic_VE                 ,-    pattern KEY_Cyrillic_U_straight_bar     ,-    pattern KEY_Cyrillic_U_straight         ,-    pattern KEY_Cyrillic_U_macron           ,-    pattern KEY_Cyrillic_U                  ,-    pattern KEY_Cyrillic_TSE                ,-    pattern KEY_Cyrillic_TE                 ,-    pattern KEY_Cyrillic_SOFTSIGN           ,-    pattern KEY_Cyrillic_SHORTI             ,-    pattern KEY_Cyrillic_SHHA               ,-    pattern KEY_Cyrillic_SHCHA              ,-    pattern KEY_Cyrillic_SHA                ,-    pattern KEY_Cyrillic_SCHWA              ,-    pattern KEY_Cyrillic_PE                 ,-    pattern KEY_Cyrillic_O_bar              ,-    pattern KEY_Cyrillic_O                  ,-    pattern KEY_Cyrillic_NJE                ,-    pattern KEY_Cyrillic_LJE                ,-    pattern KEY_Cyrillic_KA_vertstroke      ,-    pattern KEY_Cyrillic_KA_descender       ,-    pattern KEY_Cyrillic_KA                 ,-    pattern KEY_Cyrillic_JE                 ,-    pattern KEY_Cyrillic_I_macron           ,-    pattern KEY_Cyrillic_IO                 ,-    pattern KEY_Cyrillic_IE                 ,-    pattern KEY_Cyrillic_I                  ,-    pattern KEY_Cyrillic_HA_descender       ,-    pattern KEY_Cyrillic_HARDSIGN           ,-    pattern KEY_Cyrillic_HA                 ,-    pattern KEY_Cyrillic_GHE_bar            ,-    pattern KEY_Cyrillic_GHE                ,-    pattern KEY_Cyrillic_ES                 ,-    pattern KEY_Cyrillic_ER                 ,-    pattern KEY_Cyrillic_EN_descender       ,-    pattern KEY_Cyrillic_EN                 ,-    pattern KEY_Cyrillic_EM                 ,-    pattern KEY_Cyrillic_EL                 ,-    pattern KEY_Cyrillic_EF                 ,-    pattern KEY_Cyrillic_E                  ,-    pattern KEY_Cyrillic_DZHE               ,-    pattern KEY_Cyrillic_DE                 ,-    pattern KEY_Cyrillic_CHE_vertstroke     ,-    pattern KEY_Cyrillic_CHE_descender      ,-    pattern KEY_Cyrillic_CHE                ,-    pattern KEY_Cyrillic_BE                 ,-    pattern KEY_Cyrillic_A                  ,-    pattern KEY_CycleAngle                  ,-    pattern KEY_Cut                         ,-    pattern KEY_CruzeiroSign                ,-    pattern KEY_Copy                        ,-    pattern KEY_Control_R                   ,-    pattern KEY_Control_L                   ,-    pattern KEY_ContrastAdjust              ,-    pattern KEY_Community                   ,-    pattern KEY_ColonSign                   ,-    pattern KEY_Codeinput                   ,-    pattern KEY_Close                       ,-    pattern KEY_ClearGrab                   ,-    pattern KEY_Clear                       ,-    pattern KEY_Ch                          ,-    pattern KEY_Ccircumflex                 ,-    pattern KEY_Ccedilla                    ,-    pattern KEY_Ccaron                      ,-    pattern KEY_Caps_Lock                   ,-    pattern KEY_Cancel                      ,-    pattern KEY_Calendar                    ,-    pattern KEY_Calculator                  ,-    pattern KEY_Cacute                      ,-    pattern KEY_Cabovedot                   ,-    pattern KEY_C_h                         ,-    pattern KEY_C_H                         ,-    pattern KEY_CH                          ,-    pattern KEY_CD                          ,-    pattern KEY_C                           ,-    pattern KEY_Byelorussian_shortu         ,-    pattern KEY_Byelorussian_SHORTU         ,-    pattern KEY_BrightnessAdjust            ,-    pattern KEY_Break                       ,-    pattern KEY_BounceKeys_Enable           ,-    pattern KEY_Book                        ,-    pattern KEY_Bluetooth                   ,-    pattern KEY_Blue                        ,-    pattern KEY_Begin                       ,-    pattern KEY_Battery                     ,-    pattern KEY_BackSpace                   ,-    pattern KEY_BackForward                 ,-    pattern KEY_Back                        ,-    pattern KEY_Babovedot                   ,-    pattern KEY_B                           ,-    pattern KEY_Away                        ,-    pattern KEY_AudioStop                   ,-    pattern KEY_AudioRewind                 ,-    pattern KEY_AudioRepeat                 ,-    pattern KEY_AudioRecord                 ,-    pattern KEY_AudioRandomPlay             ,-    pattern KEY_AudioRaiseVolume            ,-    pattern KEY_AudioPrev                   ,-    pattern KEY_AudioPlay                   ,-    pattern KEY_AudioPause                  ,-    pattern KEY_AudioNext                   ,-    pattern KEY_AudioMute                   ,-    pattern KEY_AudioMicMute                ,-    pattern KEY_AudioMedia                  ,-    pattern KEY_AudioLowerVolume            ,-    pattern KEY_AudioForward                ,-    pattern KEY_AudioCycleTrack             ,-    pattern KEY_AudibleBell_Enable          ,-    pattern KEY_Atilde                      ,-    pattern KEY_Armenian_zhe                ,-    pattern KEY_Armenian_za                 ,-    pattern KEY_Armenian_yentamna           ,-    pattern KEY_Armenian_yech               ,-    pattern KEY_Armenian_vyun               ,-    pattern KEY_Armenian_vo                 ,-    pattern KEY_Armenian_vev                ,-    pattern KEY_Armenian_verjaket           ,-    pattern KEY_Armenian_tyun               ,-    pattern KEY_Armenian_tso                ,-    pattern KEY_Armenian_tsa                ,-    pattern KEY_Armenian_to                 ,-    pattern KEY_Armenian_tche               ,-    pattern KEY_Armenian_shesht             ,-    pattern KEY_Armenian_sha                ,-    pattern KEY_Armenian_separation_mark    ,-    pattern KEY_Armenian_se                 ,-    pattern KEY_Armenian_re                 ,-    pattern KEY_Armenian_ra                 ,-    pattern KEY_Armenian_question           ,-    pattern KEY_Armenian_pyur               ,-    pattern KEY_Armenian_pe                 ,-    pattern KEY_Armenian_paruyk             ,-    pattern KEY_Armenian_o                  ,-    pattern KEY_Armenian_nu                 ,-    pattern KEY_Armenian_men                ,-    pattern KEY_Armenian_lyun               ,-    pattern KEY_Armenian_ligature_ew        ,-    pattern KEY_Armenian_khe                ,-    pattern KEY_Armenian_ken                ,-    pattern KEY_Armenian_ke                 ,-    pattern KEY_Armenian_je                 ,-    pattern KEY_Armenian_ini                ,-    pattern KEY_Armenian_hyphen             ,-    pattern KEY_Armenian_ho                 ,-    pattern KEY_Armenian_hi                 ,-    pattern KEY_Armenian_gim                ,-    pattern KEY_Armenian_ghat               ,-    pattern KEY_Armenian_full_stop          ,-    pattern KEY_Armenian_fe                 ,-    pattern KEY_Armenian_exclam             ,-    pattern KEY_Armenian_e                  ,-    pattern KEY_Armenian_dza                ,-    pattern KEY_Armenian_da                 ,-    pattern KEY_Armenian_cha                ,-    pattern KEY_Armenian_but                ,-    pattern KEY_Armenian_ben                ,-    pattern KEY_Armenian_ayb                ,-    pattern KEY_Armenian_at                 ,-    pattern KEY_Armenian_apostrophe         ,-    pattern KEY_Armenian_amanak             ,-    pattern KEY_Armenian_accent             ,-    pattern KEY_Armenian_ZHE                ,-    pattern KEY_Armenian_ZA                 ,-    pattern KEY_Armenian_YECH               ,-    pattern KEY_Armenian_VYUN               ,-    pattern KEY_Armenian_VO                 ,-    pattern KEY_Armenian_VEV                ,-    pattern KEY_Armenian_TYUN               ,-    pattern KEY_Armenian_TSO                ,-    pattern KEY_Armenian_TSA                ,-    pattern KEY_Armenian_TO                 ,-    pattern KEY_Armenian_TCHE               ,-    pattern KEY_Armenian_SHA                ,-    pattern KEY_Armenian_SE                 ,-    pattern KEY_Armenian_RE                 ,-    pattern KEY_Armenian_RA                 ,-    pattern KEY_Armenian_PYUR               ,-    pattern KEY_Armenian_PE                 ,-    pattern KEY_Armenian_O                  ,-    pattern KEY_Armenian_NU                 ,-    pattern KEY_Armenian_MEN                ,-    pattern KEY_Armenian_LYUN               ,-    pattern KEY_Armenian_KHE                ,-    pattern KEY_Armenian_KEN                ,-    pattern KEY_Armenian_KE                 ,-    pattern KEY_Armenian_JE                 ,-    pattern KEY_Armenian_INI                ,-    pattern KEY_Armenian_HO                 ,-    pattern KEY_Armenian_HI                 ,-    pattern KEY_Armenian_GIM                ,-    pattern KEY_Armenian_GHAT               ,-    pattern KEY_Armenian_FE                 ,-    pattern KEY_Armenian_E                  ,-    pattern KEY_Armenian_DZA                ,-    pattern KEY_Armenian_DA                 ,-    pattern KEY_Armenian_CHA                ,-    pattern KEY_Armenian_BEN                ,-    pattern KEY_Armenian_AYB                ,-    pattern KEY_Armenian_AT                 ,-    pattern KEY_Aring                       ,-    pattern KEY_Arabic_zain                 ,-    pattern KEY_Arabic_zah                  ,-    pattern KEY_Arabic_yeh_baree            ,-    pattern KEY_Arabic_yeh                  ,-    pattern KEY_Arabic_waw                  ,-    pattern KEY_Arabic_veh                  ,-    pattern KEY_Arabic_tteh                 ,-    pattern KEY_Arabic_theh                 ,-    pattern KEY_Arabic_thal                 ,-    pattern KEY_Arabic_tehmarbuta           ,-    pattern KEY_Arabic_teh                  ,-    pattern KEY_Arabic_tcheh                ,-    pattern KEY_Arabic_tatweel              ,-    pattern KEY_Arabic_tah                  ,-    pattern KEY_Arabic_switch               ,-    pattern KEY_Arabic_superscript_alef     ,-    pattern KEY_Arabic_sukun                ,-    pattern KEY_Arabic_sheen                ,-    pattern KEY_Arabic_shadda               ,-    pattern KEY_Arabic_semicolon            ,-    pattern KEY_Arabic_seen                 ,-    pattern KEY_Arabic_sad                  ,-    pattern KEY_Arabic_rreh                 ,-    pattern KEY_Arabic_ra                   ,-    pattern KEY_Arabic_question_mark        ,-    pattern KEY_Arabic_qaf                  ,-    pattern KEY_Arabic_percent              ,-    pattern KEY_Arabic_peh                  ,-    pattern KEY_Arabic_noon_ghunna          ,-    pattern KEY_Arabic_noon                 ,-    pattern KEY_Arabic_meem                 ,-    pattern KEY_Arabic_maddaonalef          ,-    pattern KEY_Arabic_madda_above          ,-    pattern KEY_Arabic_lam                  ,-    pattern KEY_Arabic_khah                 ,-    pattern KEY_Arabic_keheh                ,-    pattern KEY_Arabic_kasratan             ,-    pattern KEY_Arabic_kasra                ,-    pattern KEY_Arabic_kaf                  ,-    pattern KEY_Arabic_jeh                  ,-    pattern KEY_Arabic_jeem                 ,-    pattern KEY_Arabic_heh_goal             ,-    pattern KEY_Arabic_heh_doachashmee      ,-    pattern KEY_Arabic_heh                  ,-    pattern KEY_Arabic_hamzaunderalef       ,-    pattern KEY_Arabic_hamzaonyeh           ,-    pattern KEY_Arabic_hamzaonwaw           ,-    pattern KEY_Arabic_hamzaonalef          ,-    pattern KEY_Arabic_hamza_below          ,-    pattern KEY_Arabic_hamza_above          ,-    pattern KEY_Arabic_hamza                ,-    pattern KEY_Arabic_hah                  ,-    pattern KEY_Arabic_ha                   ,-    pattern KEY_Arabic_ghain                ,-    pattern KEY_Arabic_gaf                  ,-    pattern KEY_Arabic_fullstop             ,-    pattern KEY_Arabic_feh                  ,-    pattern KEY_Arabic_fathatan             ,-    pattern KEY_Arabic_fatha                ,-    pattern KEY_Arabic_farsi_yeh            ,-    pattern KEY_Arabic_ddal                 ,-    pattern KEY_Arabic_dammatan             ,-    pattern KEY_Arabic_damma                ,-    pattern KEY_Arabic_dal                  ,-    pattern KEY_Arabic_dad                  ,-    pattern KEY_Arabic_comma                ,-    pattern KEY_Arabic_beh                  ,-    pattern KEY_Arabic_alefmaksura          ,-    pattern KEY_Arabic_alef                 ,-    pattern KEY_Arabic_ain                  ,-    pattern KEY_Arabic_9                    ,-    pattern KEY_Arabic_8                    ,-    pattern KEY_Arabic_7                    ,-    pattern KEY_Arabic_6                    ,-    pattern KEY_Arabic_5                    ,-    pattern KEY_Arabic_4                    ,-    pattern KEY_Arabic_3                    ,-    pattern KEY_Arabic_2                    ,-    pattern KEY_Arabic_1                    ,-    pattern KEY_Arabic_0                    ,-    pattern KEY_ApplicationRight            ,-    pattern KEY_ApplicationLeft             ,-    pattern KEY_Aogonek                     ,-    pattern KEY_Amacron                     ,-    pattern KEY_Alt_R                       ,-    pattern KEY_Alt_L                       ,-    pattern KEY_Ahook                       ,-    pattern KEY_Agrave                      ,-    pattern KEY_Adiaeresis                  ,-    pattern KEY_AddFavorite                 ,-    pattern KEY_Acircumflextilde            ,-    pattern KEY_Acircumflexhook             ,-    pattern KEY_Acircumflexgrave            ,-    pattern KEY_Acircumflexbelowdot         ,-    pattern KEY_Acircumflexacute            ,-    pattern KEY_Acircumflex                 ,-    pattern KEY_AccessX_Feedback_Enable     ,-    pattern KEY_AccessX_Enable              ,-    pattern KEY_Abrevetilde                 ,-    pattern KEY_Abrevehook                  ,-    pattern KEY_Abrevegrave                 ,-    pattern KEY_Abrevebelowdot              ,-    pattern KEY_Abreveacute                 ,-    pattern KEY_Abreve                      ,-    pattern KEY_Abelowdot                   ,-    pattern KEY_Aacute                      ,-    pattern KEY_AE                          ,-    pattern KEY_A                           ,-    pattern KEY_9                           ,-    pattern KEY_8                           ,-    pattern KEY_7                           ,-    pattern KEY_6                           ,-    pattern KEY_5                           ,-    pattern KEY_4                           ,-    pattern KEY_3270_Test                   ,-    pattern KEY_3270_Setup                  ,-    pattern KEY_3270_Rule                   ,-    pattern KEY_3270_Right2                 ,-    pattern KEY_3270_Reset                  ,-    pattern KEY_3270_Record                 ,-    pattern KEY_3270_Quit                   ,-    pattern KEY_3270_PrintScreen            ,-    pattern KEY_3270_Play                   ,-    pattern KEY_3270_PA3                    ,-    pattern KEY_3270_PA2                    ,-    pattern KEY_3270_PA1                    ,-    pattern KEY_3270_Left2                  ,-    pattern KEY_3270_KeyClick               ,-    pattern KEY_3270_Jump                   ,-    pattern KEY_3270_Ident                  ,-    pattern KEY_3270_FieldMark              ,-    pattern KEY_3270_ExSelect               ,-    pattern KEY_3270_EraseInput             ,-    pattern KEY_3270_EraseEOF               ,-    pattern KEY_3270_Enter                  ,-    pattern KEY_3270_Duplicate              ,-    pattern KEY_3270_DeleteWord             ,-    pattern KEY_3270_CursorSelect           ,-    pattern KEY_3270_CursorBlink            ,-    pattern KEY_3270_Copy                   ,-    pattern KEY_3270_ChangeScreen           ,-    pattern KEY_3270_BackTab                ,-    pattern KEY_3270_Attn                   ,-    pattern KEY_3270_AltCursor              ,-    pattern KEY_3                           ,-    pattern KEY_2                           ,-    pattern KEY_1                           ,-    pattern KEY_0                           ,-    pattern EVENT_STOP                      ,-    pattern EVENT_PROPAGATE                 ,-    pattern CURRENT_TIME                    ,-    pattern BUTTON_SECONDARY                ,-    pattern BUTTON_PRIMARY                  ,-    pattern BUTTON_MIDDLE                   ,--    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks---pattern PRIORITY_REDRAW = 20 :: Int32---pattern PARENT_RELATIVE = 1 :: Int32---pattern MAX_TIMECOORD_AXES = 128 :: Int32---pattern KEY_zstroke = 16777654 :: Int32---pattern KEY_zerosuperior = 16785520 :: Int32---pattern KEY_zerosubscript = 16785536 :: Int32---pattern KEY_zcaron = 446 :: Int32---pattern KEY_zacute = 444 :: Int32---pattern KEY_zabovedot = 447 :: Int32---pattern KEY_z = 122 :: Int32---pattern KEY_ytilde = 16785145 :: Int32---pattern KEY_yhook = 16785143 :: Int32---pattern KEY_ygrave = 16785139 :: Int32---pattern KEY_yen = 165 :: Int32---pattern KEY_ydiaeresis = 255 :: Int32---pattern KEY_ycircumflex = 16777591 :: Int32---pattern KEY_ybelowdot = 16785141 :: Int32---pattern KEY_yacute = 253 :: Int32---pattern KEY_y = 121 :: Int32---pattern KEY_xabovedot = 16785035 :: Int32---pattern KEY_x = 120 :: Int32---pattern KEY_wgrave = 16785025 :: Int32---pattern KEY_wdiaeresis = 16785029 :: Int32---pattern KEY_wcircumflex = 16777589 :: Int32---pattern KEY_wacute = 16785027 :: Int32---pattern KEY_w = 119 :: Int32---pattern KEY_vt = 2537 :: Int32---pattern KEY_voicedsound = 1246 :: Int32---pattern KEY_vertconnector = 2214 :: Int32---pattern KEY_vertbar = 2552 :: Int32---pattern KEY_variation = 2241 :: Int32---pattern KEY_v = 118 :: Int32---pattern KEY_utilde = 1021 :: Int32---pattern KEY_uring = 505 :: Int32---pattern KEY_uptack = 3022 :: Int32---pattern KEY_upstile = 3027 :: Int32---pattern KEY_upshoe = 3011 :: Int32---pattern KEY_uprightcorner = 2539 :: Int32---pattern KEY_upleftcorner = 2540 :: Int32---pattern KEY_upcaret = 2985 :: Int32---pattern KEY_uparrow = 2300 :: Int32---pattern KEY_uogonek = 1017 :: Int32---pattern KEY_union = 2269 :: Int32---pattern KEY_underscore = 95 :: Int32---pattern KEY_underbar = 3014 :: Int32---pattern KEY_umacron = 1022 :: Int32---pattern KEY_uhorntilde = 16785135 :: Int32---pattern KEY_uhornhook = 16785133 :: Int32---pattern KEY_uhorngrave = 16785131 :: Int32---pattern KEY_uhornbelowdot = 16785137 :: Int32---pattern KEY_uhornacute = 16785129 :: Int32---pattern KEY_uhorn = 16777648 :: Int32---pattern KEY_uhook = 16785127 :: Int32---pattern KEY_ugrave = 249 :: Int32---pattern KEY_udoubleacute = 507 :: Int32---pattern KEY_udiaeresis = 252 :: Int32---pattern KEY_ucircumflex = 251 :: Int32---pattern KEY_ubreve = 765 :: Int32---pattern KEY_ubelowdot = 16785125 :: Int32---pattern KEY_uacute = 250 :: Int32---pattern KEY_u = 117 :: Int32---pattern KEY_twothirds = 2737 :: Int32---pattern KEY_twosuperior = 178 :: Int32---pattern KEY_twosubscript = 16785538 :: Int32---pattern KEY_twofifths = 2739 :: Int32---pattern KEY_tslash = 956 :: Int32---pattern KEY_trademarkincircle = 2763 :: Int32---pattern KEY_trademark = 2761 :: Int32---pattern KEY_topvertsummationconnector = 2227 :: Int32---pattern KEY_topt = 2551 :: Int32---pattern KEY_toprightsummation = 2229 :: Int32---pattern KEY_toprightsqbracket = 2217 :: Int32---pattern KEY_toprightparens = 2221 :: Int32---pattern KEY_topleftsummation = 2225 :: Int32---pattern KEY_topleftsqbracket = 2215 :: Int32---pattern KEY_topleftradical = 2210 :: Int32---pattern KEY_topleftparens = 2219 :: Int32---pattern KEY_topintegral = 2212 :: Int32---pattern KEY_tintegral = 16785965 :: Int32---pattern KEY_threesuperior = 179 :: Int32---pattern KEY_threesubscript = 16785539 :: Int32---pattern KEY_threequarters = 190 :: Int32---pattern KEY_threefifths = 2740 :: Int32---pattern KEY_threeeighths = 2756 :: Int32---pattern KEY_thorn = 254 :: Int32---pattern KEY_thinspace = 2727 :: Int32---pattern KEY_therefore = 2240 :: Int32---pattern KEY_telephonerecorder = 2810 :: Int32---pattern KEY_telephone = 2809 :: Int32---pattern KEY_tcedilla = 510 :: Int32---pattern KEY_tcaron = 443 :: Int32---pattern KEY_tabovedot = 16785003 :: Int32---pattern KEY_t = 116 :: Int32---pattern KEY_stricteq = 16786019 :: Int32---pattern KEY_sterling = 163 :: Int32---pattern KEY_ssharp = 223 :: Int32---pattern KEY_squareroot = 16785946 :: Int32---pattern KEY_space = 32 :: Int32---pattern KEY_soliddiamond = 2528 :: Int32---pattern KEY_slash = 47 :: Int32---pattern KEY_sixsuperior = 16785526 :: Int32---pattern KEY_sixsubscript = 16785542 :: Int32---pattern KEY_singlelowquotemark = 2813 :: Int32---pattern KEY_similarequal = 2249 :: Int32---pattern KEY_signifblank = 2732 :: Int32---pattern KEY_signaturemark = 2762 :: Int32---pattern KEY_sevensuperior = 16785527 :: Int32---pattern KEY_sevensubscript = 16785543 :: Int32---pattern KEY_seveneighths = 2758 :: Int32---pattern KEY_semivoicedsound = 1247 :: Int32---pattern KEY_semicolon = 59 :: Int32---pattern KEY_section = 167 :: Int32---pattern KEY_seconds = 2775 :: Int32---pattern KEY_script_switch = 65406 :: Int32---pattern KEY_scircumflex = 766 :: Int32---pattern KEY_schwa = 16777817 :: Int32---pattern KEY_scedilla = 442 :: Int32---pattern KEY_scaron = 441 :: Int32---pattern KEY_sacute = 438 :: Int32---pattern KEY_sabovedot = 16784993 :: Int32---pattern KEY_s = 115 :: Int32---pattern KEY_righttack = 3068 :: Int32---pattern KEY_rightt = 2549 :: Int32---pattern KEY_rightsinglequotemark = 2769 :: Int32---pattern KEY_rightshoe = 3032 :: Int32---pattern KEY_rightpointer = 2795 :: Int32---pattern KEY_rightopentriangle = 2765 :: Int32---pattern KEY_rightmiddlesummation = 2231 :: Int32---pattern KEY_rightmiddlecurlybrace = 2224 :: Int32---pattern KEY_rightdoublequotemark = 2771 :: Int32---pattern KEY_rightcaret = 2982 :: Int32---pattern KEY_rightarrow = 2301 :: Int32---pattern KEY_rightanglebracket = 2750 :: Int32---pattern KEY_registered = 174 :: Int32---pattern KEY_rcedilla = 947 :: Int32---pattern KEY_rcaron = 504 :: Int32---pattern KEY_radical = 2262 :: Int32---pattern KEY_racute = 480 :: Int32---pattern KEY_r = 114 :: Int32---pattern KEY_quoteright = 39 :: Int32---pattern KEY_quoteleft = 96 :: Int32---pattern KEY_quotedbl = 34 :: Int32---pattern KEY_questiondown = 191 :: Int32---pattern KEY_question = 63 :: Int32---pattern KEY_quad = 3020 :: Int32---pattern KEY_q = 113 :: Int32---pattern KEY_punctspace = 2726 :: Int32---pattern KEY_prolongedsound = 1200 :: Int32---pattern KEY_prescription = 2772 :: Int32---pattern KEY_plusminus = 177 :: Int32---pattern KEY_plus = 43 :: Int32---pattern KEY_phonographcopyright = 2811 :: Int32---pattern KEY_permille = 2773 :: Int32---pattern KEY_periodcentered = 183 :: Int32---pattern KEY_period = 46 :: Int32---pattern KEY_percent = 37 :: Int32---pattern KEY_partialderivative = 2287 :: Int32---pattern KEY_partdifferential = 16785922 :: Int32---pattern KEY_parenright = 41 :: Int32---pattern KEY_parenleft = 40 :: Int32---pattern KEY_paragraph = 182 :: Int32---pattern KEY_pabovedot = 16784983 :: Int32---pattern KEY_p = 112 :: Int32---pattern KEY_overline = 1150 :: Int32---pattern KEY_overbar = 3008 :: Int32---pattern KEY_otilde = 245 :: Int32---pattern KEY_oslash = 248 :: Int32---pattern KEY_ordfeminine = 170 :: Int32---pattern KEY_opentribulletup = 2787 :: Int32---pattern KEY_opentribulletdown = 2788 :: Int32---pattern KEY_openstar = 2789 :: Int32---pattern KEY_openrectbullet = 2786 :: Int32---pattern KEY_ooblique = 248 :: Int32---pattern KEY_onethird = 2736 :: Int32---pattern KEY_onesuperior = 185 :: Int32---pattern KEY_onesubscript = 16785537 :: Int32---pattern KEY_onesixth = 2742 :: Int32---pattern KEY_onequarter = 188 :: Int32---pattern KEY_onehalf = 189 :: Int32---pattern KEY_onefifth = 2738 :: Int32---pattern KEY_oneeighth = 2755 :: Int32---pattern KEY_omacron = 1010 :: Int32---pattern KEY_ohorntilde = 16785121 :: Int32---pattern KEY_ohornhook = 16785119 :: Int32---pattern KEY_ohorngrave = 16785117 :: Int32---pattern KEY_ohornbelowdot = 16785123 :: Int32---pattern KEY_ohornacute = 16785115 :: Int32---pattern KEY_ohorn = 16777633 :: Int32---pattern KEY_ohook = 16785103 :: Int32---pattern KEY_ograve = 242 :: Int32---pattern KEY_ogonek = 434 :: Int32---pattern KEY_oe = 5053 :: Int32---pattern KEY_odoubleacute = 501 :: Int32---pattern KEY_odiaeresis = 246 :: Int32---pattern KEY_ocircumflextilde = 16785111 :: Int32---pattern KEY_ocircumflexhook = 16785109 :: Int32---pattern KEY_ocircumflexgrave = 16785107 :: Int32---pattern KEY_ocircumflexbelowdot = 16785113 :: Int32---pattern KEY_ocircumflexacute = 16785105 :: Int32---pattern KEY_ocircumflex = 244 :: Int32---pattern KEY_ocaron = 16777682 :: Int32---pattern KEY_obelowdot = 16785101 :: Int32---pattern KEY_obarred = 16777845 :: Int32---pattern KEY_oacute = 243 :: Int32---pattern KEY_o = 111 :: Int32---pattern KEY_numerosign = 1712 :: Int32---pattern KEY_numbersign = 35 :: Int32---pattern KEY_ntilde = 241 :: Int32---pattern KEY_notsign = 172 :: Int32---pattern KEY_notidentical = 16786018 :: Int32---pattern KEY_notequal = 2237 :: Int32---pattern KEY_notelementof = 16785929 :: Int32---pattern KEY_notapproxeq = 16785991 :: Int32---pattern KEY_nobreakspace = 160 :: Int32---pattern KEY_nl = 2536 :: Int32---pattern KEY_ninesuperior = 16785529 :: Int32---pattern KEY_ninesubscript = 16785545 :: Int32---pattern KEY_ncedilla = 1009 :: Int32---pattern KEY_ncaron = 498 :: Int32---pattern KEY_nacute = 497 :: Int32---pattern KEY_nabla = 2245 :: Int32---pattern KEY_n = 110 :: Int32---pattern KEY_musicalsharp = 2805 :: Int32---pattern KEY_musicalflat = 2806 :: Int32---pattern KEY_multiply = 215 :: Int32---pattern KEY_mu = 181 :: Int32---pattern KEY_minutes = 2774 :: Int32---pattern KEY_minus = 45 :: Int32---pattern KEY_masculine = 186 :: Int32---pattern KEY_marker = 2751 :: Int32---pattern KEY_maltesecross = 2800 :: Int32---pattern KEY_malesymbol = 2807 :: Int32---pattern KEY_macron = 175 :: Int32---pattern KEY_mabovedot = 16784961 :: Int32---pattern KEY_m = 109 :: Int32---pattern KEY_lstroke = 435 :: Int32---pattern KEY_lowrightcorner = 2538 :: Int32---pattern KEY_lowleftcorner = 2541 :: Int32---pattern KEY_logicalor = 2271 :: Int32---pattern KEY_logicaland = 2270 :: Int32---pattern KEY_lf = 2533 :: Int32---pattern KEY_lessthanequal = 2236 :: Int32---pattern KEY_less = 60 :: Int32---pattern KEY_lefttack = 3036 :: Int32---pattern KEY_leftt = 2548 :: Int32---pattern KEY_leftsinglequotemark = 2768 :: Int32---pattern KEY_leftshoe = 3034 :: Int32---pattern KEY_leftradical = 2209 :: Int32---pattern KEY_leftpointer = 2794 :: Int32---pattern KEY_leftopentriangle = 2764 :: Int32---pattern KEY_leftmiddlecurlybrace = 2223 :: Int32---pattern KEY_leftdoublequotemark = 2770 :: Int32---pattern KEY_leftcaret = 2979 :: Int32---pattern KEY_leftarrow = 2299 :: Int32---pattern KEY_leftanglebracket = 2748 :: Int32---pattern KEY_lcedilla = 950 :: Int32---pattern KEY_lcaron = 437 :: Int32---pattern KEY_lbelowdot = 16784951 :: Int32---pattern KEY_latincross = 2777 :: Int32---pattern KEY_lacute = 485 :: Int32---pattern KEY_l = 108 :: Int32---pattern KEY_kra = 930 :: Int32---pattern KEY_kcedilla = 1011 :: Int32---pattern KEY_kappa = 930 :: Int32---pattern KEY_kana_yu = 1197 :: Int32---pattern KEY_kana_yo = 1198 :: Int32---pattern KEY_kana_ya = 1196 :: Int32---pattern KEY_kana_u = 1193 :: Int32---pattern KEY_kana_tu = 1199 :: Int32---pattern KEY_kana_tsu = 1199 :: Int32---pattern KEY_kana_switch = 65406 :: Int32---pattern KEY_kana_openingbracket = 1186 :: Int32---pattern KEY_kana_o = 1195 :: Int32---pattern KEY_kana_middledot = 1189 :: Int32---pattern KEY_kana_i = 1192 :: Int32---pattern KEY_kana_fullstop = 1185 :: Int32---pattern KEY_kana_e = 1194 :: Int32---pattern KEY_kana_conjunctive = 1189 :: Int32---pattern KEY_kana_comma = 1188 :: Int32---pattern KEY_kana_closingbracket = 1187 :: Int32---pattern KEY_kana_a = 1191 :: Int32---pattern KEY_kana_YU = 1237 :: Int32---pattern KEY_kana_YO = 1238 :: Int32---pattern KEY_kana_YA = 1236 :: Int32---pattern KEY_kana_WO = 1190 :: Int32---pattern KEY_kana_WA = 1244 :: Int32---pattern KEY_kana_U = 1203 :: Int32---pattern KEY_kana_TU = 1218 :: Int32---pattern KEY_kana_TSU = 1218 :: Int32---pattern KEY_kana_TO = 1220 :: Int32---pattern KEY_kana_TI = 1217 :: Int32---pattern KEY_kana_TE = 1219 :: Int32---pattern KEY_kana_TA = 1216 :: Int32---pattern KEY_kana_SU = 1213 :: Int32---pattern KEY_kana_SO = 1215 :: Int32---pattern KEY_kana_SHI = 1212 :: Int32---pattern KEY_kana_SE = 1214 :: Int32---pattern KEY_kana_SA = 1211 :: Int32---pattern KEY_kana_RU = 1241 :: Int32---pattern KEY_kana_RO = 1243 :: Int32---pattern KEY_kana_RI = 1240 :: Int32---pattern KEY_kana_RE = 1242 :: Int32---pattern KEY_kana_RA = 1239 :: Int32---pattern KEY_kana_O = 1205 :: Int32---pattern KEY_kana_NU = 1223 :: Int32---pattern KEY_kana_NO = 1225 :: Int32---pattern KEY_kana_NI = 1222 :: Int32---pattern KEY_kana_NE = 1224 :: Int32---pattern KEY_kana_NA = 1221 :: Int32---pattern KEY_kana_N = 1245 :: Int32---pattern KEY_kana_MU = 1233 :: Int32---pattern KEY_kana_MO = 1235 :: Int32---pattern KEY_kana_MI = 1232 :: Int32---pattern KEY_kana_ME = 1234 :: Int32---pattern KEY_kana_MA = 1231 :: Int32---pattern KEY_kana_KU = 1208 :: Int32---pattern KEY_kana_KO = 1210 :: Int32---pattern KEY_kana_KI = 1207 :: Int32---pattern KEY_kana_KE = 1209 :: Int32---pattern KEY_kana_KA = 1206 :: Int32---pattern KEY_kana_I = 1202 :: Int32---pattern KEY_kana_HU = 1228 :: Int32---pattern KEY_kana_HO = 1230 :: Int32---pattern KEY_kana_HI = 1227 :: Int32---pattern KEY_kana_HE = 1229 :: Int32---pattern KEY_kana_HA = 1226 :: Int32---pattern KEY_kana_FU = 1228 :: Int32---pattern KEY_kana_E = 1204 :: Int32---pattern KEY_kana_CHI = 1217 :: Int32---pattern KEY_kana_A = 1201 :: Int32---pattern KEY_k = 107 :: Int32---pattern KEY_jot = 3018 :: Int32---pattern KEY_jcircumflex = 700 :: Int32---pattern KEY_j = 106 :: Int32---pattern KEY_itilde = 949 :: Int32---pattern KEY_iogonek = 999 :: Int32---pattern KEY_intersection = 2268 :: Int32---pattern KEY_integral = 2239 :: Int32---pattern KEY_infinity = 2242 :: Int32---pattern KEY_includes = 2267 :: Int32---pattern KEY_includedin = 2266 :: Int32---pattern KEY_implies = 2254 :: Int32---pattern KEY_imacron = 1007 :: Int32---pattern KEY_ihook = 16785097 :: Int32---pattern KEY_igrave = 236 :: Int32---pattern KEY_ifonlyif = 2253 :: Int32---pattern KEY_idotless = 697 :: Int32---pattern KEY_idiaeresis = 239 :: Int32---pattern KEY_identical = 2255 :: Int32---pattern KEY_icircumflex = 238 :: Int32---pattern KEY_ibreve = 16777517 :: Int32---pattern KEY_ibelowdot = 16785099 :: Int32---pattern KEY_iacute = 237 :: Int32---pattern KEY_iTouch = 269025120 :: Int32---pattern KEY_i = 105 :: Int32---pattern KEY_hyphen = 173 :: Int32---pattern KEY_ht = 2530 :: Int32---pattern KEY_hstroke = 689 :: Int32---pattern KEY_horizlinescan9 = 2547 :: Int32---pattern KEY_horizlinescan7 = 2546 :: Int32---pattern KEY_horizlinescan5 = 2545 :: Int32---pattern KEY_horizlinescan3 = 2544 :: Int32---pattern KEY_horizlinescan1 = 2543 :: Int32---pattern KEY_horizconnector = 2211 :: Int32---pattern KEY_hexagram = 2778 :: Int32---pattern KEY_hebrew_zayin = 3302 :: Int32---pattern KEY_hebrew_zain = 3302 :: Int32---pattern KEY_hebrew_zadi = 3318 :: Int32---pattern KEY_hebrew_zade = 3318 :: Int32---pattern KEY_hebrew_yod = 3305 :: Int32---pattern KEY_hebrew_waw = 3301 :: Int32---pattern KEY_hebrew_teth = 3304 :: Int32---pattern KEY_hebrew_tet = 3304 :: Int32---pattern KEY_hebrew_taw = 3322 :: Int32---pattern KEY_hebrew_taf = 3322 :: Int32---pattern KEY_hebrew_shin = 3321 :: Int32---pattern KEY_hebrew_samekh = 3313 :: Int32---pattern KEY_hebrew_samech = 3313 :: Int32---pattern KEY_hebrew_resh = 3320 :: Int32---pattern KEY_hebrew_qoph = 3319 :: Int32---pattern KEY_hebrew_pe = 3316 :: Int32---pattern KEY_hebrew_nun = 3312 :: Int32---pattern KEY_hebrew_mem = 3310 :: Int32---pattern KEY_hebrew_lamed = 3308 :: Int32---pattern KEY_hebrew_kuf = 3319 :: Int32---pattern KEY_hebrew_kaph = 3307 :: Int32---pattern KEY_hebrew_het = 3303 :: Int32---pattern KEY_hebrew_he = 3300 :: Int32---pattern KEY_hebrew_gimmel = 3298 :: Int32---pattern KEY_hebrew_gimel = 3298 :: Int32---pattern KEY_hebrew_finalzadi = 3317 :: Int32---pattern KEY_hebrew_finalzade = 3317 :: Int32---pattern KEY_hebrew_finalpe = 3315 :: Int32---pattern KEY_hebrew_finalnun = 3311 :: Int32---pattern KEY_hebrew_finalmem = 3309 :: Int32---pattern KEY_hebrew_finalkaph = 3306 :: Int32---pattern KEY_hebrew_doublelowline = 3295 :: Int32---pattern KEY_hebrew_daleth = 3299 :: Int32---pattern KEY_hebrew_dalet = 3299 :: Int32---pattern KEY_hebrew_chet = 3303 :: Int32---pattern KEY_hebrew_beth = 3297 :: Int32---pattern KEY_hebrew_bet = 3297 :: Int32---pattern KEY_hebrew_ayin = 3314 :: Int32---pattern KEY_hebrew_aleph = 3296 :: Int32---pattern KEY_heart = 2798 :: Int32---pattern KEY_hcircumflex = 694 :: Int32---pattern KEY_hairspace = 2728 :: Int32---pattern KEY_h = 104 :: Int32---pattern KEY_guillemotright = 187 :: Int32---pattern KEY_guillemotleft = 171 :: Int32---pattern KEY_greaterthanequal = 2238 :: Int32---pattern KEY_greater = 62 :: Int32---pattern KEY_grave = 96 :: Int32---pattern KEY_gcircumflex = 760 :: Int32---pattern KEY_gcedilla = 955 :: Int32---pattern KEY_gcaron = 16777703 :: Int32---pattern KEY_gbreve = 699 :: Int32---pattern KEY_gabovedot = 757 :: Int32---pattern KEY_g = 103 :: Int32---pattern KEY_function = 2294 :: Int32---pattern KEY_fourthroot = 16785948 :: Int32---pattern KEY_foursuperior = 16785524 :: Int32---pattern KEY_foursubscript = 16785540 :: Int32---pattern KEY_fourfifths = 2741 :: Int32---pattern KEY_fivesuperior = 16785525 :: Int32---pattern KEY_fivesubscript = 16785541 :: Int32---pattern KEY_fivesixths = 2743 :: Int32---pattern KEY_fiveeighths = 2757 :: Int32---pattern KEY_filledtribulletup = 2792 :: Int32---pattern KEY_filledtribulletdown = 2793 :: Int32---pattern KEY_filledrighttribullet = 2781 :: Int32---pattern KEY_filledrectbullet = 2779 :: Int32---pattern KEY_filledlefttribullet = 2780 :: Int32---pattern KEY_figdash = 2747 :: Int32---pattern KEY_ff = 2531 :: Int32---pattern KEY_femalesymbol = 2808 :: Int32---pattern KEY_fabovedot = 16784927 :: Int32---pattern KEY_f = 102 :: Int32---pattern KEY_ezh = 16777874 :: Int32---pattern KEY_exclamdown = 161 :: Int32---pattern KEY_exclam = 33 :: Int32---pattern KEY_etilde = 16785085 :: Int32---pattern KEY_eth = 240 :: Int32---pattern KEY_equal = 61 :: Int32---pattern KEY_eogonek = 490 :: Int32---pattern KEY_enspace = 2722 :: Int32---pattern KEY_enopensquarebullet = 2785 :: Int32---pattern KEY_enopencircbullet = 2784 :: Int32---pattern KEY_eng = 959 :: Int32---pattern KEY_enfilledsqbullet = 2791 :: Int32---pattern KEY_enfilledcircbullet = 2790 :: Int32---pattern KEY_endash = 2730 :: Int32---pattern KEY_emspace = 2721 :: Int32---pattern KEY_emptyset = 16785925 :: Int32---pattern KEY_emopenrectangle = 2767 :: Int32---pattern KEY_emopencircle = 2766 :: Int32---pattern KEY_emfilledrect = 2783 :: Int32---pattern KEY_emfilledcircle = 2782 :: Int32---pattern KEY_emdash = 2729 :: Int32---pattern KEY_emacron = 954 :: Int32---pattern KEY_em4space = 2724 :: Int32---pattern KEY_em3space = 2723 :: Int32---pattern KEY_ellipsis = 2734 :: Int32---pattern KEY_elementof = 16785928 :: Int32---pattern KEY_eightsuperior = 16785528 :: Int32---pattern KEY_eightsubscript = 16785544 :: Int32---pattern KEY_ehook = 16785083 :: Int32---pattern KEY_egrave = 232 :: Int32---pattern KEY_ediaeresis = 235 :: Int32---pattern KEY_ecircumflextilde = 16785093 :: Int32---pattern KEY_ecircumflexhook = 16785091 :: Int32---pattern KEY_ecircumflexgrave = 16785089 :: Int32---pattern KEY_ecircumflexbelowdot = 16785095 :: Int32---pattern KEY_ecircumflexacute = 16785087 :: Int32---pattern KEY_ecircumflex = 234 :: Int32---pattern KEY_ecaron = 492 :: Int32---pattern KEY_ebelowdot = 16785081 :: Int32---pattern KEY_eacute = 233 :: Int32---pattern KEY_eabovedot = 1004 :: Int32---pattern KEY_e = 101 :: Int32---pattern KEY_dstroke = 496 :: Int32---pattern KEY_downtack = 3010 :: Int32---pattern KEY_downstile = 3012 :: Int32---pattern KEY_downshoe = 3030 :: Int32---pattern KEY_downcaret = 2984 :: Int32---pattern KEY_downarrow = 2302 :: Int32---pattern KEY_doublelowquotemark = 2814 :: Int32---pattern KEY_doubledagger = 2802 :: Int32---pattern KEY_doubleacute = 445 :: Int32---pattern KEY_doubbaselinedot = 2735 :: Int32---pattern KEY_dollar = 36 :: Int32---pattern KEY_division = 247 :: Int32---pattern KEY_dintegral = 16785964 :: Int32---pattern KEY_digitspace = 2725 :: Int32---pattern KEY_diamond = 2797 :: Int32---pattern KEY_diaeresis = 168 :: Int32---pattern KEY_degree = 176 :: Int32---pattern KEY_decimalpoint = 2749 :: Int32---pattern KEY_dead_voiced_sound = 65118 :: Int32---pattern KEY_dead_u = 65160 :: Int32---pattern KEY_dead_tilde = 65107 :: Int32---pattern KEY_dead_stroke = 65123 :: Int32---pattern KEY_dead_small_schwa = 65162 :: Int32---pattern KEY_dead_semivoiced_sound = 65119 :: Int32---pattern KEY_dead_psili = 65124 :: Int32---pattern KEY_dead_perispomeni = 65107 :: Int32---pattern KEY_dead_ogonek = 65116 :: Int32---pattern KEY_dead_o = 65158 :: Int32---pattern KEY_dead_macron = 65108 :: Int32---pattern KEY_dead_iota = 65117 :: Int32---pattern KEY_dead_invertedbreve = 65133 :: Int32---pattern KEY_dead_i = 65156 :: Int32---pattern KEY_dead_horn = 65122 :: Int32---pattern KEY_dead_hook = 65121 :: Int32---pattern KEY_dead_greek = 65164 :: Int32---pattern KEY_dead_grave = 65104 :: Int32---pattern KEY_dead_e = 65154 :: Int32---pattern KEY_dead_doublegrave = 65126 :: Int32---pattern KEY_dead_doubleacute = 65113 :: Int32---pattern KEY_dead_diaeresis = 65111 :: Int32---pattern KEY_dead_dasia = 65125 :: Int32---pattern KEY_dead_currency = 65135 :: Int32---pattern KEY_dead_circumflex = 65106 :: Int32---pattern KEY_dead_cedilla = 65115 :: Int32---pattern KEY_dead_caron = 65114 :: Int32---pattern KEY_dead_capital_schwa = 65163 :: Int32---pattern KEY_dead_breve = 65109 :: Int32---pattern KEY_dead_belowtilde = 65130 :: Int32---pattern KEY_dead_belowring = 65127 :: Int32---pattern KEY_dead_belowmacron = 65128 :: Int32---pattern KEY_dead_belowdot = 65120 :: Int32---pattern KEY_dead_belowdiaeresis = 65132 :: Int32---pattern KEY_dead_belowcomma = 65134 :: Int32---pattern KEY_dead_belowcircumflex = 65129 :: Int32---pattern KEY_dead_belowbreve = 65131 :: Int32---pattern KEY_dead_acute = 65105 :: Int32---pattern KEY_dead_abovering = 65112 :: Int32---pattern KEY_dead_abovereversedcomma = 65125 :: Int32---pattern KEY_dead_abovedot = 65110 :: Int32---pattern KEY_dead_abovecomma = 65124 :: Int32---pattern KEY_dead_a = 65152 :: Int32---pattern KEY_dead_U = 65161 :: Int32---pattern KEY_dead_O = 65159 :: Int32---pattern KEY_dead_I = 65157 :: Int32---pattern KEY_dead_E = 65155 :: Int32---pattern KEY_dead_A = 65153 :: Int32---pattern KEY_dcaron = 495 :: Int32---pattern KEY_dagger = 2801 :: Int32---pattern KEY_dabovedot = 16784907 :: Int32---pattern KEY_d = 100 :: Int32---pattern KEY_cursor = 2815 :: Int32---pattern KEY_currency = 164 :: Int32---pattern KEY_cuberoot = 16785947 :: Int32---pattern KEY_crossinglines = 2542 :: Int32---pattern KEY_cr = 2532 :: Int32---pattern KEY_copyright = 169 :: Int32---pattern KEY_containsas = 16785931 :: Int32---pattern KEY_comma = 44 :: Int32---pattern KEY_colon = 58 :: Int32---pattern KEY_club = 2796 :: Int32---pattern KEY_circle = 3023 :: Int32---pattern KEY_checkmark = 2803 :: Int32---pattern KEY_checkerboard = 2529 :: Int32---pattern KEY_ch = 65184 :: Int32---pattern KEY_cent = 162 :: Int32---pattern KEY_cedilla = 184 :: Int32---pattern KEY_ccircumflex = 742 :: Int32---pattern KEY_ccedilla = 231 :: Int32---pattern KEY_ccaron = 488 :: Int32---pattern KEY_caron = 439 :: Int32---pattern KEY_caret = 2812 :: Int32---pattern KEY_careof = 2744 :: Int32---pattern KEY_cacute = 486 :: Int32---pattern KEY_cabovedot = 741 :: Int32---pattern KEY_c_h = 65187 :: Int32---pattern KEY_c = 99 :: Int32---pattern KEY_brokenbar = 166 :: Int32---pattern KEY_breve = 418 :: Int32---pattern KEY_braille_dots_8 = 16787584 :: Int32---pattern KEY_braille_dots_78 = 16787648 :: Int32---pattern KEY_braille_dots_7 = 16787520 :: Int32---pattern KEY_braille_dots_68 = 16787616 :: Int32---pattern KEY_braille_dots_678 = 16787680 :: Int32---pattern KEY_braille_dots_67 = 16787552 :: Int32---pattern KEY_braille_dots_6 = 16787488 :: Int32---pattern KEY_braille_dots_58 = 16787600 :: Int32---pattern KEY_braille_dots_578 = 16787664 :: Int32---pattern KEY_braille_dots_57 = 16787536 :: Int32---pattern KEY_braille_dots_568 = 16787632 :: Int32---pattern KEY_braille_dots_5678 = 16787696 :: Int32---pattern KEY_braille_dots_567 = 16787568 :: Int32---pattern KEY_braille_dots_56 = 16787504 :: Int32---pattern KEY_braille_dots_5 = 16787472 :: Int32---pattern KEY_braille_dots_48 = 16787592 :: Int32---pattern KEY_braille_dots_478 = 16787656 :: Int32---pattern KEY_braille_dots_47 = 16787528 :: Int32---pattern KEY_braille_dots_468 = 16787624 :: Int32---pattern KEY_braille_dots_4678 = 16787688 :: Int32---pattern KEY_braille_dots_467 = 16787560 :: Int32---pattern KEY_braille_dots_46 = 16787496 :: Int32---pattern KEY_braille_dots_458 = 16787608 :: Int32---pattern KEY_braille_dots_4578 = 16787672 :: Int32---pattern KEY_braille_dots_457 = 16787544 :: Int32---pattern KEY_braille_dots_4568 = 16787640 :: Int32---pattern KEY_braille_dots_45678 = 16787704 :: Int32---pattern KEY_braille_dots_4567 = 16787576 :: Int32---pattern KEY_braille_dots_456 = 16787512 :: Int32---pattern KEY_braille_dots_45 = 16787480 :: Int32---pattern KEY_braille_dots_4 = 16787464 :: Int32---pattern KEY_braille_dots_38 = 16787588 :: Int32---pattern KEY_braille_dots_378 = 16787652 :: Int32---pattern KEY_braille_dots_37 = 16787524 :: Int32---pattern KEY_braille_dots_368 = 16787620 :: Int32---pattern KEY_braille_dots_3678 = 16787684 :: Int32---pattern KEY_braille_dots_367 = 16787556 :: Int32---pattern KEY_braille_dots_36 = 16787492 :: Int32---pattern KEY_braille_dots_358 = 16787604 :: Int32---pattern KEY_braille_dots_3578 = 16787668 :: Int32---pattern KEY_braille_dots_357 = 16787540 :: Int32---pattern KEY_braille_dots_3568 = 16787636 :: Int32---pattern KEY_braille_dots_35678 = 16787700 :: Int32---pattern KEY_braille_dots_3567 = 16787572 :: Int32---pattern KEY_braille_dots_356 = 16787508 :: Int32---pattern KEY_braille_dots_35 = 16787476 :: Int32---pattern KEY_braille_dots_348 = 16787596 :: Int32---pattern KEY_braille_dots_3478 = 16787660 :: Int32---pattern KEY_braille_dots_347 = 16787532 :: Int32---pattern KEY_braille_dots_3468 = 16787628 :: Int32---pattern KEY_braille_dots_34678 = 16787692 :: Int32---pattern KEY_braille_dots_3467 = 16787564 :: Int32---pattern KEY_braille_dots_346 = 16787500 :: Int32---pattern KEY_braille_dots_3458 = 16787612 :: Int32---pattern KEY_braille_dots_34578 = 16787676 :: Int32---pattern KEY_braille_dots_3457 = 16787548 :: Int32---pattern KEY_braille_dots_34568 = 16787644 :: Int32---pattern KEY_braille_dots_345678 = 16787708 :: Int32---pattern KEY_braille_dots_34567 = 16787580 :: Int32---pattern KEY_braille_dots_3456 = 16787516 :: Int32---pattern KEY_braille_dots_345 = 16787484 :: Int32---pattern KEY_braille_dots_34 = 16787468 :: Int32---pattern KEY_braille_dots_3 = 16787460 :: Int32---pattern KEY_braille_dots_28 = 16787586 :: Int32---pattern KEY_braille_dots_278 = 16787650 :: Int32---pattern KEY_braille_dots_27 = 16787522 :: Int32---pattern KEY_braille_dots_268 = 16787618 :: Int32---pattern KEY_braille_dots_2678 = 16787682 :: Int32---pattern KEY_braille_dots_267 = 16787554 :: Int32---pattern KEY_braille_dots_26 = 16787490 :: Int32---pattern KEY_braille_dots_258 = 16787602 :: Int32---pattern KEY_braille_dots_2578 = 16787666 :: Int32---pattern KEY_braille_dots_257 = 16787538 :: Int32---pattern KEY_braille_dots_2568 = 16787634 :: Int32---pattern KEY_braille_dots_25678 = 16787698 :: Int32---pattern KEY_braille_dots_2567 = 16787570 :: Int32---pattern KEY_braille_dots_256 = 16787506 :: Int32---pattern KEY_braille_dots_25 = 16787474 :: Int32---pattern KEY_braille_dots_248 = 16787594 :: Int32---pattern KEY_braille_dots_2478 = 16787658 :: Int32---pattern KEY_braille_dots_247 = 16787530 :: Int32---pattern KEY_braille_dots_2468 = 16787626 :: Int32---pattern KEY_braille_dots_24678 = 16787690 :: Int32---pattern KEY_braille_dots_2467 = 16787562 :: Int32---pattern KEY_braille_dots_246 = 16787498 :: Int32---pattern KEY_braille_dots_2458 = 16787610 :: Int32---pattern KEY_braille_dots_24578 = 16787674 :: Int32---pattern KEY_braille_dots_2457 = 16787546 :: Int32---pattern KEY_braille_dots_24568 = 16787642 :: Int32---pattern KEY_braille_dots_245678 = 16787706 :: Int32---pattern KEY_braille_dots_24567 = 16787578 :: Int32---pattern KEY_braille_dots_2456 = 16787514 :: Int32---pattern KEY_braille_dots_245 = 16787482 :: Int32---pattern KEY_braille_dots_24 = 16787466 :: Int32---pattern KEY_braille_dots_238 = 16787590 :: Int32---pattern KEY_braille_dots_2378 = 16787654 :: Int32---pattern KEY_braille_dots_237 = 16787526 :: Int32---pattern KEY_braille_dots_2368 = 16787622 :: Int32---pattern KEY_braille_dots_23678 = 16787686 :: Int32---pattern KEY_braille_dots_2367 = 16787558 :: Int32---pattern KEY_braille_dots_236 = 16787494 :: Int32---pattern KEY_braille_dots_2358 = 16787606 :: Int32---pattern KEY_braille_dots_23578 = 16787670 :: Int32---pattern KEY_braille_dots_2357 = 16787542 :: Int32---pattern KEY_braille_dots_23568 = 16787638 :: Int32---pattern KEY_braille_dots_235678 = 16787702 :: Int32---pattern KEY_braille_dots_23567 = 16787574 :: Int32---pattern KEY_braille_dots_2356 = 16787510 :: Int32---pattern KEY_braille_dots_235 = 16787478 :: Int32---pattern KEY_braille_dots_2348 = 16787598 :: Int32---pattern KEY_braille_dots_23478 = 16787662 :: Int32---pattern KEY_braille_dots_2347 = 16787534 :: Int32---pattern KEY_braille_dots_23468 = 16787630 :: Int32---pattern KEY_braille_dots_234678 = 16787694 :: Int32---pattern KEY_braille_dots_23467 = 16787566 :: Int32---pattern KEY_braille_dots_2346 = 16787502 :: Int32---pattern KEY_braille_dots_23458 = 16787614 :: Int32---pattern KEY_braille_dots_234578 = 16787678 :: Int32---pattern KEY_braille_dots_23457 = 16787550 :: Int32---pattern KEY_braille_dots_234568 = 16787646 :: Int32---pattern KEY_braille_dots_2345678 = 16787710 :: Int32---pattern KEY_braille_dots_234567 = 16787582 :: Int32---pattern KEY_braille_dots_23456 = 16787518 :: Int32---pattern KEY_braille_dots_2345 = 16787486 :: Int32---pattern KEY_braille_dots_234 = 16787470 :: Int32---pattern KEY_braille_dots_23 = 16787462 :: Int32---pattern KEY_braille_dots_2 = 16787458 :: Int32---pattern KEY_braille_dots_18 = 16787585 :: Int32---pattern KEY_braille_dots_178 = 16787649 :: Int32---pattern KEY_braille_dots_17 = 16787521 :: Int32---pattern KEY_braille_dots_168 = 16787617 :: Int32---pattern KEY_braille_dots_1678 = 16787681 :: Int32---pattern KEY_braille_dots_167 = 16787553 :: Int32---pattern KEY_braille_dots_16 = 16787489 :: Int32---pattern KEY_braille_dots_158 = 16787601 :: Int32---pattern KEY_braille_dots_1578 = 16787665 :: Int32---pattern KEY_braille_dots_157 = 16787537 :: Int32---pattern KEY_braille_dots_1568 = 16787633 :: Int32---pattern KEY_braille_dots_15678 = 16787697 :: Int32---pattern KEY_braille_dots_1567 = 16787569 :: Int32---pattern KEY_braille_dots_156 = 16787505 :: Int32---pattern KEY_braille_dots_15 = 16787473 :: Int32---pattern KEY_braille_dots_148 = 16787593 :: Int32---pattern KEY_braille_dots_1478 = 16787657 :: Int32---pattern KEY_braille_dots_147 = 16787529 :: Int32---pattern KEY_braille_dots_1468 = 16787625 :: Int32---pattern KEY_braille_dots_14678 = 16787689 :: Int32---pattern KEY_braille_dots_1467 = 16787561 :: Int32---pattern KEY_braille_dots_146 = 16787497 :: Int32---pattern KEY_braille_dots_1458 = 16787609 :: Int32---pattern KEY_braille_dots_14578 = 16787673 :: Int32---pattern KEY_braille_dots_1457 = 16787545 :: Int32---pattern KEY_braille_dots_14568 = 16787641 :: Int32---pattern KEY_braille_dots_145678 = 16787705 :: Int32---pattern KEY_braille_dots_14567 = 16787577 :: Int32---pattern KEY_braille_dots_1456 = 16787513 :: Int32---pattern KEY_braille_dots_145 = 16787481 :: Int32---pattern KEY_braille_dots_14 = 16787465 :: Int32---pattern KEY_braille_dots_138 = 16787589 :: Int32---pattern KEY_braille_dots_1378 = 16787653 :: Int32---pattern KEY_braille_dots_137 = 16787525 :: Int32---pattern KEY_braille_dots_1368 = 16787621 :: Int32---pattern KEY_braille_dots_13678 = 16787685 :: Int32---pattern KEY_braille_dots_1367 = 16787557 :: Int32---pattern KEY_braille_dots_136 = 16787493 :: Int32---pattern KEY_braille_dots_1358 = 16787605 :: Int32---pattern KEY_braille_dots_13578 = 16787669 :: Int32---pattern KEY_braille_dots_1357 = 16787541 :: Int32---pattern KEY_braille_dots_13568 = 16787637 :: Int32---pattern KEY_braille_dots_135678 = 16787701 :: Int32---pattern KEY_braille_dots_13567 = 16787573 :: Int32---pattern KEY_braille_dots_1356 = 16787509 :: Int32---pattern KEY_braille_dots_135 = 16787477 :: Int32---pattern KEY_braille_dots_1348 = 16787597 :: Int32---pattern KEY_braille_dots_13478 = 16787661 :: Int32---pattern KEY_braille_dots_1347 = 16787533 :: Int32---pattern KEY_braille_dots_13468 = 16787629 :: Int32---pattern KEY_braille_dots_134678 = 16787693 :: Int32---pattern KEY_braille_dots_13467 = 16787565 :: Int32---pattern KEY_braille_dots_1346 = 16787501 :: Int32---pattern KEY_braille_dots_13458 = 16787613 :: Int32---pattern KEY_braille_dots_134578 = 16787677 :: Int32---pattern KEY_braille_dots_13457 = 16787549 :: Int32---pattern KEY_braille_dots_134568 = 16787645 :: Int32---pattern KEY_braille_dots_1345678 = 16787709 :: Int32---pattern KEY_braille_dots_134567 = 16787581 :: Int32---pattern KEY_braille_dots_13456 = 16787517 :: Int32---pattern KEY_braille_dots_1345 = 16787485 :: Int32---pattern KEY_braille_dots_134 = 16787469 :: Int32---pattern KEY_braille_dots_13 = 16787461 :: Int32---pattern KEY_braille_dots_128 = 16787587 :: Int32---pattern KEY_braille_dots_1278 = 16787651 :: Int32---pattern KEY_braille_dots_127 = 16787523 :: Int32---pattern KEY_braille_dots_1268 = 16787619 :: Int32---pattern KEY_braille_dots_12678 = 16787683 :: Int32---pattern KEY_braille_dots_1267 = 16787555 :: Int32---pattern KEY_braille_dots_126 = 16787491 :: Int32---pattern KEY_braille_dots_1258 = 16787603 :: Int32---pattern KEY_braille_dots_12578 = 16787667 :: Int32---pattern KEY_braille_dots_1257 = 16787539 :: Int32---pattern KEY_braille_dots_12568 = 16787635 :: Int32---pattern KEY_braille_dots_125678 = 16787699 :: Int32---pattern KEY_braille_dots_12567 = 16787571 :: Int32---pattern KEY_braille_dots_1256 = 16787507 :: Int32---pattern KEY_braille_dots_125 = 16787475 :: Int32---pattern KEY_braille_dots_1248 = 16787595 :: Int32---pattern KEY_braille_dots_12478 = 16787659 :: Int32---pattern KEY_braille_dots_1247 = 16787531 :: Int32---pattern KEY_braille_dots_12468 = 16787627 :: Int32---pattern KEY_braille_dots_124678 = 16787691 :: Int32---pattern KEY_braille_dots_12467 = 16787563 :: Int32---pattern KEY_braille_dots_1246 = 16787499 :: Int32---pattern KEY_braille_dots_12458 = 16787611 :: Int32---pattern KEY_braille_dots_124578 = 16787675 :: Int32---pattern KEY_braille_dots_12457 = 16787547 :: Int32---pattern KEY_braille_dots_124568 = 16787643 :: Int32---pattern KEY_braille_dots_1245678 = 16787707 :: Int32---pattern KEY_braille_dots_124567 = 16787579 :: Int32---pattern KEY_braille_dots_12456 = 16787515 :: Int32---pattern KEY_braille_dots_1245 = 16787483 :: Int32---pattern KEY_braille_dots_124 = 16787467 :: Int32---pattern KEY_braille_dots_1238 = 16787591 :: Int32---pattern KEY_braille_dots_12378 = 16787655 :: Int32---pattern KEY_braille_dots_1237 = 16787527 :: Int32---pattern KEY_braille_dots_12368 = 16787623 :: Int32---pattern KEY_braille_dots_123678 = 16787687 :: Int32---pattern KEY_braille_dots_12367 = 16787559 :: Int32---pattern KEY_braille_dots_1236 = 16787495 :: Int32---pattern KEY_braille_dots_12358 = 16787607 :: Int32---pattern KEY_braille_dots_123578 = 16787671 :: Int32---pattern KEY_braille_dots_12357 = 16787543 :: Int32---pattern KEY_braille_dots_123568 = 16787639 :: Int32---pattern KEY_braille_dots_1235678 = 16787703 :: Int32---pattern KEY_braille_dots_123567 = 16787575 :: Int32---pattern KEY_braille_dots_12356 = 16787511 :: Int32---pattern KEY_braille_dots_1235 = 16787479 :: Int32---pattern KEY_braille_dots_12348 = 16787599 :: Int32---pattern KEY_braille_dots_123478 = 16787663 :: Int32---pattern KEY_braille_dots_12347 = 16787535 :: Int32---pattern KEY_braille_dots_123468 = 16787631 :: Int32---pattern KEY_braille_dots_1234678 = 16787695 :: Int32---pattern KEY_braille_dots_123467 = 16787567 :: Int32---pattern KEY_braille_dots_12346 = 16787503 :: Int32---pattern KEY_braille_dots_123458 = 16787615 :: Int32---pattern KEY_braille_dots_1234578 = 16787679 :: Int32---pattern KEY_braille_dots_123457 = 16787551 :: Int32---pattern KEY_braille_dots_1234568 = 16787647 :: Int32---pattern KEY_braille_dots_12345678 = 16787711 :: Int32---pattern KEY_braille_dots_1234567 = 16787583 :: Int32---pattern KEY_braille_dots_123456 = 16787519 :: Int32---pattern KEY_braille_dots_12345 = 16787487 :: Int32---pattern KEY_braille_dots_1234 = 16787471 :: Int32---pattern KEY_braille_dots_123 = 16787463 :: Int32---pattern KEY_braille_dots_12 = 16787459 :: Int32---pattern KEY_braille_dots_1 = 16787457 :: Int32---pattern KEY_braille_dot_9 = 65529 :: Int32---pattern KEY_braille_dot_8 = 65528 :: Int32---pattern KEY_braille_dot_7 = 65527 :: Int32---pattern KEY_braille_dot_6 = 65526 :: Int32---pattern KEY_braille_dot_5 = 65525 :: Int32---pattern KEY_braille_dot_4 = 65524 :: Int32---pattern KEY_braille_dot_3 = 65523 :: Int32---pattern KEY_braille_dot_2 = 65522 :: Int32---pattern KEY_braille_dot_10 = 65530 :: Int32---pattern KEY_braille_dot_1 = 65521 :: Int32---pattern KEY_braille_blank = 16787456 :: Int32---pattern KEY_bracketright = 93 :: Int32---pattern KEY_bracketleft = 91 :: Int32---pattern KEY_braceright = 125 :: Int32---pattern KEY_braceleft = 123 :: Int32---pattern KEY_botvertsummationconnector = 2228 :: Int32---pattern KEY_bott = 2550 :: Int32---pattern KEY_botrightsummation = 2230 :: Int32---pattern KEY_botrightsqbracket = 2218 :: Int32---pattern KEY_botrightparens = 2222 :: Int32---pattern KEY_botleftsummation = 2226 :: Int32---pattern KEY_botleftsqbracket = 2216 :: Int32---pattern KEY_botleftparens = 2220 :: Int32---pattern KEY_botintegral = 2213 :: Int32---pattern KEY_blank = 2527 :: Int32---pattern KEY_because = 16785973 :: Int32---pattern KEY_bar = 124 :: Int32---pattern KEY_ballotcross = 2804 :: Int32---pattern KEY_backslash = 92 :: Int32---pattern KEY_babovedot = 16784899 :: Int32---pattern KEY_b = 98 :: Int32---pattern KEY_atilde = 227 :: Int32---pattern KEY_at = 64 :: Int32---pattern KEY_asterisk = 42 :: Int32---pattern KEY_asciitilde = 126 :: Int32---pattern KEY_asciicircum = 94 :: Int32---pattern KEY_aring = 229 :: Int32---pattern KEY_approximate = 2248 :: Int32---pattern KEY_approxeq = 16785992 :: Int32---pattern KEY_apostrophe = 39 :: Int32---pattern KEY_aogonek = 433 :: Int32---pattern KEY_ampersand = 38 :: Int32---pattern KEY_amacron = 992 :: Int32---pattern KEY_ahook = 16785059 :: Int32---pattern KEY_agrave = 224 :: Int32---pattern KEY_ae = 230 :: Int32---pattern KEY_adiaeresis = 228 :: Int32---pattern KEY_acute = 180 :: Int32---pattern KEY_acircumflextilde = 16785067 :: Int32---pattern KEY_acircumflexhook = 16785065 :: Int32---pattern KEY_acircumflexgrave = 16785063 :: Int32---pattern KEY_acircumflexbelowdot = 16785069 :: Int32---pattern KEY_acircumflexacute = 16785061 :: Int32---pattern KEY_acircumflex = 226 :: Int32---pattern KEY_abrevetilde = 16785077 :: Int32---pattern KEY_abrevehook = 16785075 :: Int32---pattern KEY_abrevegrave = 16785073 :: Int32---pattern KEY_abrevebelowdot = 16785079 :: Int32---pattern KEY_abreveacute = 16785071 :: Int32---pattern KEY_abreve = 483 :: Int32---pattern KEY_abovedot = 511 :: Int32---pattern KEY_abelowdot = 16785057 :: Int32---pattern KEY_aacute = 225 :: Int32---pattern KEY_a = 97 :: Int32---pattern KEY_Zstroke = 16777653 :: Int32---pattern KEY_ZoomOut = 269025164 :: Int32---pattern KEY_ZoomIn = 269025163 :: Int32---pattern KEY_Zenkaku_Hankaku = 65322 :: Int32---pattern KEY_Zenkaku = 65320 :: Int32---pattern KEY_Zen_Koho = 65341 :: Int32---pattern KEY_Zcaron = 430 :: Int32---pattern KEY_Zacute = 428 :: Int32---pattern KEY_Zabovedot = 431 :: Int32---pattern KEY_Z = 90 :: Int32---pattern KEY_Ytilde = 16785144 :: Int32---pattern KEY_Yhook = 16785142 :: Int32---pattern KEY_Ygrave = 16785138 :: Int32---pattern KEY_Yellow = 269025189 :: Int32---pattern KEY_Ydiaeresis = 5054 :: Int32---pattern KEY_Ycircumflex = 16777590 :: Int32---pattern KEY_Ybelowdot = 16785140 :: Int32---pattern KEY_Yacute = 221 :: Int32---pattern KEY_Y = 89 :: Int32---pattern KEY_Xfer = 269025162 :: Int32---pattern KEY_Xabovedot = 16785034 :: Int32---pattern KEY_X = 88 :: Int32---pattern KEY_Word = 269025161 :: Int32---pattern KEY_WonSign = 16785577 :: Int32---pattern KEY_WindowClear = 269025109 :: Int32---pattern KEY_WheelButton = 269025160 :: Int32---pattern KEY_Wgrave = 16785024 :: Int32---pattern KEY_WebCam = 269025167 :: Int32---pattern KEY_Wdiaeresis = 16785028 :: Int32---pattern KEY_Wcircumflex = 16777588 :: Int32---pattern KEY_WakeUp = 269025067 :: Int32---pattern KEY_Wacute = 16785026 :: Int32---pattern KEY_WWW = 269025070 :: Int32---pattern KEY_WLAN = 269025173 :: Int32---pattern KEY_W = 87 :: Int32---pattern KEY_VoidSymbol = 16777215 :: Int32---pattern KEY_View = 269025185 :: Int32---pattern KEY_Video = 269025159 :: Int32---pattern KEY_VendorHome = 269025076 :: Int32---pattern KEY_V = 86 :: Int32---pattern KEY_Utilde = 989 :: Int32---pattern KEY_UserPB = 269025156 :: Int32---pattern KEY_User2KB = 269025158 :: Int32---pattern KEY_User1KB = 269025157 :: Int32---pattern KEY_Uring = 473 :: Int32---pattern KEY_Up = 65362 :: Int32---pattern KEY_Uogonek = 985 :: Int32---pattern KEY_Ungrab = 269024800 :: Int32---pattern KEY_Undo = 65381 :: Int32---pattern KEY_Umacron = 990 :: Int32---pattern KEY_Ukranian_yi = 1703 :: Int32---pattern KEY_Ukranian_je = 1700 :: Int32---pattern KEY_Ukranian_i = 1702 :: Int32---pattern KEY_Ukranian_YI = 1719 :: Int32---pattern KEY_Ukranian_JE = 1716 :: Int32---pattern KEY_Ukranian_I = 1718 :: Int32---pattern KEY_Ukrainian_yi = 1703 :: Int32---pattern KEY_Ukrainian_ie = 1700 :: Int32---pattern KEY_Ukrainian_i = 1702 :: Int32---pattern KEY_Ukrainian_ghe_with_upturn = 1709 :: Int32---pattern KEY_Ukrainian_YI = 1719 :: Int32---pattern KEY_Ukrainian_IE = 1716 :: Int32---pattern KEY_Ukrainian_I = 1718 :: Int32---pattern KEY_Ukrainian_GHE_WITH_UPTURN = 1725 :: Int32---pattern KEY_Uhorntilde = 16785134 :: Int32---pattern KEY_Uhornhook = 16785132 :: Int32---pattern KEY_Uhorngrave = 16785130 :: Int32---pattern KEY_Uhornbelowdot = 16785136 :: Int32---pattern KEY_Uhornacute = 16785128 :: Int32---pattern KEY_Uhorn = 16777647 :: Int32---pattern KEY_Uhook = 16785126 :: Int32---pattern KEY_Ugrave = 217 :: Int32---pattern KEY_Udoubleacute = 475 :: Int32---pattern KEY_Udiaeresis = 220 :: Int32---pattern KEY_Ucircumflex = 219 :: Int32---pattern KEY_Ubreve = 733 :: Int32---pattern KEY_Ubelowdot = 16785124 :: Int32---pattern KEY_Uacute = 218 :: Int32---pattern KEY_UWB = 269025174 :: Int32---pattern KEY_U = 85 :: Int32---pattern KEY_Tslash = 940 :: Int32---pattern KEY_Travel = 269025154 :: Int32---pattern KEY_Touroku = 65323 :: Int32---pattern KEY_TouchpadToggle = 269025193 :: Int32---pattern KEY_TouchpadOn = 269025200 :: Int32---pattern KEY_TouchpadOff = 269025201 :: Int32---pattern KEY_TopMenu = 269025186 :: Int32---pattern KEY_Tools = 269025153 :: Int32---pattern KEY_ToDoList = 269025055 :: Int32---pattern KEY_Time = 269025183 :: Int32---pattern KEY_Thorn = 222 :: Int32---pattern KEY_Thai_yoying = 3501 :: Int32---pattern KEY_Thai_yoyak = 3522 :: Int32---pattern KEY_Thai_wowaen = 3527 :: Int32---pattern KEY_Thai_totao = 3509 :: Int32---pattern KEY_Thai_topatak = 3503 :: Int32---pattern KEY_Thai_thothung = 3510 :: Int32---pattern KEY_Thai_thothong = 3512 :: Int32---pattern KEY_Thai_thothan = 3504 :: Int32---pattern KEY_Thai_thothahan = 3511 :: Int32---pattern KEY_Thai_thophuthao = 3506 :: Int32---pattern KEY_Thai_thonangmontho = 3505 :: Int32---pattern KEY_Thai_thanthakhat = 3564 :: Int32---pattern KEY_Thai_sosua = 3530 :: Int32---pattern KEY_Thai_soso = 3499 :: Int32---pattern KEY_Thai_sosala = 3528 :: Int32---pattern KEY_Thai_sorusi = 3529 :: Int32---pattern KEY_Thai_sarauu = 3545 :: Int32---pattern KEY_Thai_sarauee = 3543 :: Int32---pattern KEY_Thai_saraue = 3542 :: Int32---pattern KEY_Thai_sarau = 3544 :: Int32---pattern KEY_Thai_sarao = 3554 :: Int32---pattern KEY_Thai_saraii = 3541 :: Int32---pattern KEY_Thai_sarai = 3540 :: Int32---pattern KEY_Thai_sarae = 3552 :: Int32---pattern KEY_Thai_saraam = 3539 :: Int32---pattern KEY_Thai_saraaimaimuan = 3555 :: Int32---pattern KEY_Thai_saraaimaimalai = 3556 :: Int32---pattern KEY_Thai_saraae = 3553 :: Int32---pattern KEY_Thai_saraaa = 3538 :: Int32---pattern KEY_Thai_saraa = 3536 :: Int32---pattern KEY_Thai_ru = 3524 :: Int32---pattern KEY_Thai_rorua = 3523 :: Int32---pattern KEY_Thai_popla = 3515 :: Int32---pattern KEY_Thai_phosamphao = 3520 :: Int32---pattern KEY_Thai_phophung = 3516 :: Int32---pattern KEY_Thai_phophan = 3518 :: Int32---pattern KEY_Thai_phinthu = 3546 :: Int32---pattern KEY_Thai_paiyannoi = 3535 :: Int32---pattern KEY_Thai_oang = 3533 :: Int32---pattern KEY_Thai_nonu = 3513 :: Int32---pattern KEY_Thai_nonen = 3507 :: Int32---pattern KEY_Thai_nikhahit = 3565 :: Int32---pattern KEY_Thai_ngongu = 3495 :: Int32---pattern KEY_Thai_moma = 3521 :: Int32---pattern KEY_Thai_maiyamok = 3558 :: Int32---pattern KEY_Thai_maitri = 3562 :: Int32---pattern KEY_Thai_maitho = 3561 :: Int32---pattern KEY_Thai_maitaikhu = 3559 :: Int32---pattern KEY_Thai_maihanakat_maitho = 3550 :: Int32---pattern KEY_Thai_maihanakat = 3537 :: Int32---pattern KEY_Thai_maiek = 3560 :: Int32---pattern KEY_Thai_maichattawa = 3563 :: Int32---pattern KEY_Thai_lu = 3526 :: Int32---pattern KEY_Thai_loling = 3525 :: Int32---pattern KEY_Thai_lochula = 3532 :: Int32---pattern KEY_Thai_leksun = 3568 :: Int32---pattern KEY_Thai_leksong = 3570 :: Int32---pattern KEY_Thai_leksi = 3572 :: Int32---pattern KEY_Thai_leksam = 3571 :: Int32---pattern KEY_Thai_lekpaet = 3576 :: Int32---pattern KEY_Thai_leknung = 3569 :: Int32---pattern KEY_Thai_lekkao = 3577 :: Int32---pattern KEY_Thai_lekhok = 3574 :: Int32---pattern KEY_Thai_lekha = 3573 :: Int32---pattern KEY_Thai_lekchet = 3575 :: Int32---pattern KEY_Thai_lakkhangyao = 3557 :: Int32---pattern KEY_Thai_kokai = 3489 :: Int32---pattern KEY_Thai_khorakhang = 3494 :: Int32---pattern KEY_Thai_khokhwai = 3492 :: Int32---pattern KEY_Thai_khokhuat = 3491 :: Int32---pattern KEY_Thai_khokhon = 3493 :: Int32---pattern KEY_Thai_khokhai = 3490 :: Int32---pattern KEY_Thai_honokhuk = 3534 :: Int32---pattern KEY_Thai_hohip = 3531 :: Int32---pattern KEY_Thai_fofan = 3519 :: Int32---pattern KEY_Thai_fofa = 3517 :: Int32---pattern KEY_Thai_dodek = 3508 :: Int32---pattern KEY_Thai_dochada = 3502 :: Int32---pattern KEY_Thai_chochoe = 3500 :: Int32---pattern KEY_Thai_choching = 3497 :: Int32---pattern KEY_Thai_chochang = 3498 :: Int32---pattern KEY_Thai_chochan = 3496 :: Int32---pattern KEY_Thai_bobaimai = 3514 :: Int32---pattern KEY_Thai_baht = 3551 :: Int32---pattern KEY_Terminate_Server = 65237 :: Int32---pattern KEY_Terminal = 269025152 :: Int32---pattern KEY_Tcedilla = 478 :: Int32---pattern KEY_Tcaron = 427 :: Int32---pattern KEY_TaskPane = 269025151 :: Int32---pattern KEY_Tabovedot = 16785002 :: Int32---pattern KEY_Tab = 65289 :: Int32---pattern KEY_THORN = 222 :: Int32---pattern KEY_T = 84 :: Int32---pattern KEY_Sys_Req = 65301 :: Int32---pattern KEY_Switch_VT_9 = 269024777 :: Int32---pattern KEY_Switch_VT_8 = 269024776 :: Int32---pattern KEY_Switch_VT_7 = 269024775 :: Int32---pattern KEY_Switch_VT_6 = 269024774 :: Int32---pattern KEY_Switch_VT_5 = 269024773 :: Int32---pattern KEY_Switch_VT_4 = 269024772 :: Int32---pattern KEY_Switch_VT_3 = 269024771 :: Int32---pattern KEY_Switch_VT_2 = 269024770 :: Int32---pattern KEY_Switch_VT_12 = 269024780 :: Int32---pattern KEY_Switch_VT_11 = 269024779 :: Int32---pattern KEY_Switch_VT_10 = 269024778 :: Int32---pattern KEY_Switch_VT_1 = 269024769 :: Int32---pattern KEY_Suspend = 269025191 :: Int32---pattern KEY_Support = 269025150 :: Int32---pattern KEY_Super_R = 65516 :: Int32---pattern KEY_Super_L = 65515 :: Int32---pattern KEY_Subtitle = 269025178 :: Int32---pattern KEY_Stop = 269025064 :: Int32---pattern KEY_StickyKeys_Enable = 65141 :: Int32---pattern KEY_Start = 269025050 :: Int32---pattern KEY_Standby = 269025040 :: Int32---pattern KEY_SplitScreen = 269025149 :: Int32---pattern KEY_Spell = 269025148 :: Int32---pattern KEY_SlowKeys_Enable = 65139 :: Int32---pattern KEY_Sleep = 269025071 :: Int32---pattern KEY_Sinh_ya = 16780730 :: Int32---pattern KEY_Sinh_va = 16780736 :: Int32---pattern KEY_Sinh_uu2 = 16780758 :: Int32---pattern KEY_Sinh_uu = 16780684 :: Int32---pattern KEY_Sinh_u2 = 16780756 :: Int32---pattern KEY_Sinh_u = 16780683 :: Int32---pattern KEY_Sinh_ttha = 16780712 :: Int32---pattern KEY_Sinh_tta = 16780711 :: Int32---pattern KEY_Sinh_thha = 16780718 :: Int32---pattern KEY_Sinh_tha = 16780717 :: Int32---pattern KEY_Sinh_ssha = 16780738 :: Int32---pattern KEY_Sinh_sha = 16780737 :: Int32---pattern KEY_Sinh_sa = 16780739 :: Int32---pattern KEY_Sinh_ruu2 = 16780786 :: Int32---pattern KEY_Sinh_ru2 = 16780760 :: Int32---pattern KEY_Sinh_rii = 16780686 :: Int32---pattern KEY_Sinh_ri = 16780685 :: Int32---pattern KEY_Sinh_ra = 16780731 :: Int32---pattern KEY_Sinh_pha = 16780725 :: Int32---pattern KEY_Sinh_pa = 16780724 :: Int32---pattern KEY_Sinh_oo2 = 16780765 :: Int32---pattern KEY_Sinh_oo = 16780693 :: Int32---pattern KEY_Sinh_o2 = 16780764 :: Int32---pattern KEY_Sinh_o = 16780692 :: Int32---pattern KEY_Sinh_nya = 16780708 :: Int32---pattern KEY_Sinh_nna = 16780715 :: Int32---pattern KEY_Sinh_nja = 16780710 :: Int32---pattern KEY_Sinh_nga = 16780703 :: Int32---pattern KEY_Sinh_ng2 = 16780702 :: Int32---pattern KEY_Sinh_ng = 16780674 :: Int32---pattern KEY_Sinh_ndha = 16780723 :: Int32---pattern KEY_Sinh_ndda = 16780716 :: Int32---pattern KEY_Sinh_na = 16780721 :: Int32---pattern KEY_Sinh_mba = 16780729 :: Int32---pattern KEY_Sinh_ma = 16780728 :: Int32---pattern KEY_Sinh_luu2 = 16780787 :: Int32---pattern KEY_Sinh_luu = 16780688 :: Int32---pattern KEY_Sinh_lu2 = 16780767 :: Int32---pattern KEY_Sinh_lu = 16780687 :: Int32---pattern KEY_Sinh_lla = 16780741 :: Int32---pattern KEY_Sinh_la = 16780733 :: Int32---pattern KEY_Sinh_kunddaliya = 16780788 :: Int32---pattern KEY_Sinh_kha = 16780699 :: Int32---pattern KEY_Sinh_ka = 16780698 :: Int32---pattern KEY_Sinh_jnya = 16780709 :: Int32---pattern KEY_Sinh_jha = 16780707 :: Int32---pattern KEY_Sinh_ja = 16780706 :: Int32---pattern KEY_Sinh_ii2 = 16780755 :: Int32---pattern KEY_Sinh_ii = 16780682 :: Int32---pattern KEY_Sinh_i2 = 16780754 :: Int32---pattern KEY_Sinh_i = 16780681 :: Int32---pattern KEY_Sinh_ha = 16780740 :: Int32---pattern KEY_Sinh_h2 = 16780675 :: Int32---pattern KEY_Sinh_gha = 16780701 :: Int32---pattern KEY_Sinh_ga = 16780700 :: Int32---pattern KEY_Sinh_fa = 16780742 :: Int32---pattern KEY_Sinh_ee2 = 16780762 :: Int32---pattern KEY_Sinh_ee = 16780690 :: Int32---pattern KEY_Sinh_e2 = 16780761 :: Int32---pattern KEY_Sinh_e = 16780689 :: Int32---pattern KEY_Sinh_dhha = 16780720 :: Int32---pattern KEY_Sinh_dha = 16780719 :: Int32---pattern KEY_Sinh_ddha = 16780714 :: Int32---pattern KEY_Sinh_dda = 16780713 :: Int32---pattern KEY_Sinh_cha = 16780705 :: Int32---pattern KEY_Sinh_ca = 16780704 :: Int32---pattern KEY_Sinh_bha = 16780727 :: Int32---pattern KEY_Sinh_ba = 16780726 :: Int32---pattern KEY_Sinh_au2 = 16780766 :: Int32---pattern KEY_Sinh_au = 16780694 :: Int32---pattern KEY_Sinh_al = 16780746 :: Int32---pattern KEY_Sinh_ai2 = 16780763 :: Int32---pattern KEY_Sinh_ai = 16780691 :: Int32---pattern KEY_Sinh_aee2 = 16780753 :: Int32---pattern KEY_Sinh_aee = 16780680 :: Int32---pattern KEY_Sinh_ae2 = 16780752 :: Int32---pattern KEY_Sinh_ae = 16780679 :: Int32---pattern KEY_Sinh_aa2 = 16780751 :: Int32---pattern KEY_Sinh_aa = 16780678 :: Int32---pattern KEY_Sinh_a = 16780677 :: Int32---pattern KEY_SingleCandidate = 65340 :: Int32---pattern KEY_Shop = 269025078 :: Int32---pattern KEY_Shift_R = 65506 :: Int32---pattern KEY_Shift_Lock = 65510 :: Int32---pattern KEY_Shift_L = 65505 :: Int32---pattern KEY_Serbian_tshe = 1707 :: Int32---pattern KEY_Serbian_nje = 1706 :: Int32---pattern KEY_Serbian_lje = 1705 :: Int32---pattern KEY_Serbian_je = 1704 :: Int32---pattern KEY_Serbian_dze = 1711 :: Int32---pattern KEY_Serbian_dje = 1697 :: Int32---pattern KEY_Serbian_TSHE = 1723 :: Int32---pattern KEY_Serbian_NJE = 1722 :: Int32---pattern KEY_Serbian_LJE = 1721 :: Int32---pattern KEY_Serbian_JE = 1720 :: Int32---pattern KEY_Serbian_DZE = 1727 :: Int32---pattern KEY_Serbian_DJE = 1713 :: Int32---pattern KEY_Send = 269025147 :: Int32---pattern KEY_SelectButton = 269025184 :: Int32---pattern KEY_Select = 65376 :: Int32---pattern KEY_Search = 269025051 :: Int32---pattern KEY_Scroll_Lock = 65300 :: Int32---pattern KEY_ScrollUp = 269025144 :: Int32---pattern KEY_ScrollDown = 269025145 :: Int32---pattern KEY_ScrollClick = 269025146 :: Int32---pattern KEY_ScreenSaver = 269025069 :: Int32---pattern KEY_Scircumflex = 734 :: Int32---pattern KEY_Scedilla = 426 :: Int32---pattern KEY_Scaron = 425 :: Int32---pattern KEY_Save = 269025143 :: Int32---pattern KEY_Sacute = 422 :: Int32---pattern KEY_Sabovedot = 16784992 :: Int32---pattern KEY_SCHWA = 16777615 :: Int32---pattern KEY_S = 83 :: Int32---pattern KEY_RupeeSign = 16785576 :: Int32---pattern KEY_RotationPB = 269025141 :: Int32---pattern KEY_RotationKB = 269025142 :: Int32---pattern KEY_RotateWindows = 269025140 :: Int32---pattern KEY_Romaji = 65316 :: Int32---pattern KEY_RockerUp = 269025059 :: Int32---pattern KEY_RockerEnter = 269025061 :: Int32---pattern KEY_RockerDown = 269025060 :: Int32---pattern KEY_Right = 65363 :: Int32---pattern KEY_Return = 65293 :: Int32---pattern KEY_Reply = 269025138 :: Int32---pattern KEY_RepeatKeys_Enable = 65138 :: Int32---pattern KEY_Reload = 269025139 :: Int32---pattern KEY_Refresh = 269025065 :: Int32---pattern KEY_Redo = 65382 :: Int32---pattern KEY_Red = 269025187 :: Int32---pattern KEY_Rcedilla = 931 :: Int32---pattern KEY_Rcaron = 472 :: Int32---pattern KEY_Racute = 448 :: Int32---pattern KEY_R9 = 65498 :: Int32---pattern KEY_R8 = 65497 :: Int32---pattern KEY_R7 = 65496 :: Int32---pattern KEY_R6 = 65495 :: Int32---pattern KEY_R5 = 65494 :: Int32---pattern KEY_R4 = 65493 :: Int32---pattern KEY_R3 = 65492 :: Int32---pattern KEY_R2 = 65491 :: Int32---pattern KEY_R15 = 65504 :: Int32---pattern KEY_R14 = 65503 :: Int32---pattern KEY_R13 = 65502 :: Int32---pattern KEY_R12 = 65501 :: Int32---pattern KEY_R11 = 65500 :: Int32---pattern KEY_R10 = 65499 :: Int32---pattern KEY_R1 = 65490 :: Int32---pattern KEY_R = 82 :: Int32---pattern KEY_Q = 81 :: Int32---pattern KEY_Prior = 65365 :: Int32---pattern KEY_Print = 65377 :: Int32---pattern KEY_PreviousCandidate = 65342 :: Int32---pattern KEY_Prev_Virtual_Screen = 65233 :: Int32---pattern KEY_Prev_VMode = 269024803 :: Int32---pattern KEY_PowerOff = 269025066 :: Int32---pattern KEY_PowerDown = 269025057 :: Int32---pattern KEY_Pointer_UpRight = 65253 :: Int32---pattern KEY_Pointer_UpLeft = 65252 :: Int32---pattern KEY_Pointer_Up = 65250 :: Int32---pattern KEY_Pointer_Right = 65249 :: Int32---pattern KEY_Pointer_Left = 65248 :: Int32---pattern KEY_Pointer_EnableKeys = 65273 :: Int32---pattern KEY_Pointer_Drag_Dflt = 65268 :: Int32---pattern KEY_Pointer_Drag5 = 65277 :: Int32---pattern KEY_Pointer_Drag4 = 65272 :: Int32---pattern KEY_Pointer_Drag3 = 65271 :: Int32---pattern KEY_Pointer_Drag2 = 65270 :: Int32---pattern KEY_Pointer_Drag1 = 65269 :: Int32---pattern KEY_Pointer_DownRight = 65255 :: Int32---pattern KEY_Pointer_DownLeft = 65254 :: Int32---pattern KEY_Pointer_Down = 65251 :: Int32---pattern KEY_Pointer_DfltBtnPrev = 65276 :: Int32---pattern KEY_Pointer_DfltBtnNext = 65275 :: Int32---pattern KEY_Pointer_DblClick_Dflt = 65262 :: Int32---pattern KEY_Pointer_DblClick5 = 65267 :: Int32---pattern KEY_Pointer_DblClick4 = 65266 :: Int32---pattern KEY_Pointer_DblClick3 = 65265 :: Int32---pattern KEY_Pointer_DblClick2 = 65264 :: Int32---pattern KEY_Pointer_DblClick1 = 65263 :: Int32---pattern KEY_Pointer_Button_Dflt = 65256 :: Int32---pattern KEY_Pointer_Button5 = 65261 :: Int32---pattern KEY_Pointer_Button4 = 65260 :: Int32---pattern KEY_Pointer_Button3 = 65259 :: Int32---pattern KEY_Pointer_Button2 = 65258 :: Int32---pattern KEY_Pointer_Button1 = 65257 :: Int32---pattern KEY_Pointer_Accelerate = 65274 :: Int32---pattern KEY_Pictures = 269025169 :: Int32---pattern KEY_Phone = 269025134 :: Int32---pattern KEY_PesetaSign = 16785575 :: Int32---pattern KEY_Pause = 65299 :: Int32---pattern KEY_Paste = 269025133 :: Int32---pattern KEY_Page_Up = 65365 :: Int32---pattern KEY_Page_Down = 65366 :: Int32---pattern KEY_Pabovedot = 16784982 :: Int32---pattern KEY_P = 80 :: Int32---pattern KEY_Overlay2_Enable = 65145 :: Int32---pattern KEY_Overlay1_Enable = 65144 :: Int32---pattern KEY_Otilde = 213 :: Int32---pattern KEY_Oslash = 216 :: Int32---pattern KEY_Option = 269025132 :: Int32---pattern KEY_OpenURL = 269025080 :: Int32---pattern KEY_Open = 269025131 :: Int32---pattern KEY_Ooblique = 216 :: Int32---pattern KEY_Omacron = 978 :: Int32---pattern KEY_Ohorntilde = 16785120 :: Int32---pattern KEY_Ohornhook = 16785118 :: Int32---pattern KEY_Ohorngrave = 16785116 :: Int32---pattern KEY_Ohornbelowdot = 16785122 :: Int32---pattern KEY_Ohornacute = 16785114 :: Int32---pattern KEY_Ohorn = 16777632 :: Int32---pattern KEY_Ohook = 16785102 :: Int32---pattern KEY_Ograve = 210 :: Int32---pattern KEY_OfficeHome = 269025130 :: Int32---pattern KEY_Odoubleacute = 469 :: Int32---pattern KEY_Odiaeresis = 214 :: Int32---pattern KEY_Ocircumflextilde = 16785110 :: Int32---pattern KEY_Ocircumflexhook = 16785108 :: Int32---pattern KEY_Ocircumflexgrave = 16785106 :: Int32---pattern KEY_Ocircumflexbelowdot = 16785112 :: Int32---pattern KEY_Ocircumflexacute = 16785104 :: Int32---pattern KEY_Ocircumflex = 212 :: Int32---pattern KEY_Ocaron = 16777681 :: Int32---pattern KEY_Obelowdot = 16785100 :: Int32---pattern KEY_Obarred = 16777631 :: Int32---pattern KEY_Oacute = 211 :: Int32---pattern KEY_OE = 5052 :: Int32---pattern KEY_O = 79 :: Int32---pattern KEY_Num_Lock = 65407 :: Int32---pattern KEY_Ntilde = 209 :: Int32---pattern KEY_Next_Virtual_Screen = 65234 :: Int32---pattern KEY_Next_VMode = 269024802 :: Int32---pattern KEY_Next = 65366 :: Int32---pattern KEY_News = 269025129 :: Int32---pattern KEY_NewSheqelSign = 16785578 :: Int32---pattern KEY_New = 269025128 :: Int32---pattern KEY_Ncedilla = 977 :: Int32---pattern KEY_Ncaron = 466 :: Int32---pattern KEY_NairaSign = 16785574 :: Int32---pattern KEY_Nacute = 465 :: Int32---pattern KEY_N = 78 :: Int32---pattern KEY_MySites = 269025127 :: Int32---pattern KEY_MyComputer = 269025075 :: Int32---pattern KEY_Music = 269025170 :: Int32---pattern KEY_MultipleCandidate = 65341 :: Int32---pattern KEY_Multi_key = 65312 :: Int32---pattern KEY_Muhenkan = 65314 :: Int32---pattern KEY_MouseKeys_Enable = 65142 :: Int32---pattern KEY_MouseKeys_Accel_Enable = 65143 :: Int32---pattern KEY_MonBrightnessUp = 269025026 :: Int32---pattern KEY_MonBrightnessDown = 269025027 :: Int32---pattern KEY_Mode_switch = 65406 :: Int32---pattern KEY_ModeLock = 269025025 :: Int32---pattern KEY_MillSign = 16785573 :: Int32---pattern KEY_Meta_R = 65512 :: Int32---pattern KEY_Meta_L = 65511 :: Int32---pattern KEY_Messenger = 269025166 :: Int32---pattern KEY_MenuPB = 269025126 :: Int32---pattern KEY_MenuKB = 269025125 :: Int32---pattern KEY_Menu = 65383 :: Int32---pattern KEY_Memo = 269025054 :: Int32---pattern KEY_Meeting = 269025123 :: Int32---pattern KEY_Massyo = 65324 :: Int32---pattern KEY_Market = 269025122 :: Int32---pattern KEY_MailForward = 269025168 :: Int32---pattern KEY_Mail = 269025049 :: Int32---pattern KEY_Mae_Koho = 65342 :: Int32---pattern KEY_Macedonia_kje = 1708 :: Int32---pattern KEY_Macedonia_gje = 1698 :: Int32---pattern KEY_Macedonia_dse = 1701 :: Int32---pattern KEY_Macedonia_KJE = 1724 :: Int32---pattern KEY_Macedonia_GJE = 1714 :: Int32---pattern KEY_Macedonia_DSE = 1717 :: Int32---pattern KEY_Mabovedot = 16784960 :: Int32---pattern KEY_M = 77 :: Int32---pattern KEY_Lstroke = 419 :: Int32---pattern KEY_LogWindowTree = 269024804 :: Int32---pattern KEY_LogOff = 269025121 :: Int32---pattern KEY_LogGrabInfo = 269024805 :: Int32---pattern KEY_LiraSign = 16785572 :: Int32---pattern KEY_Linefeed = 65290 :: Int32---pattern KEY_LightBulb = 269025077 :: Int32---pattern KEY_Left = 65361 :: Int32---pattern KEY_Lcedilla = 934 :: Int32---pattern KEY_Lcaron = 421 :: Int32---pattern KEY_Lbelowdot = 16784950 :: Int32---pattern KEY_LaunchF = 269025103 :: Int32---pattern KEY_LaunchE = 269025102 :: Int32---pattern KEY_LaunchD = 269025101 :: Int32---pattern KEY_LaunchC = 269025100 :: Int32---pattern KEY_LaunchB = 269025099 :: Int32---pattern KEY_LaunchA = 269025098 :: Int32---pattern KEY_Launch9 = 269025097 :: Int32---pattern KEY_Launch8 = 269025096 :: Int32---pattern KEY_Launch7 = 269025095 :: Int32---pattern KEY_Launch6 = 269025094 :: Int32---pattern KEY_Launch5 = 269025093 :: Int32---pattern KEY_Launch4 = 269025092 :: Int32---pattern KEY_Launch3 = 269025091 :: Int32---pattern KEY_Launch2 = 269025090 :: Int32---pattern KEY_Launch1 = 269025089 :: Int32---pattern KEY_Launch0 = 269025088 :: Int32---pattern KEY_Last_Virtual_Screen = 65236 :: Int32---pattern KEY_Lacute = 453 :: Int32---pattern KEY_L9 = 65488 :: Int32---pattern KEY_L8 = 65487 :: Int32---pattern KEY_L7 = 65486 :: Int32---pattern KEY_L6 = 65485 :: Int32---pattern KEY_L5 = 65484 :: Int32---pattern KEY_L4 = 65483 :: Int32---pattern KEY_L3 = 65482 :: Int32---pattern KEY_L2 = 65481 :: Int32---pattern KEY_L10 = 65489 :: Int32---pattern KEY_L1 = 65480 :: Int32---pattern KEY_L = 76 :: Int32---pattern KEY_Korean_Won = 3839 :: Int32---pattern KEY_Kcedilla = 979 :: Int32---pattern KEY_KbdLightOnOff = 269025028 :: Int32---pattern KEY_KbdBrightnessUp = 269025029 :: Int32---pattern KEY_KbdBrightnessDown = 269025030 :: Int32---pattern KEY_Katakana = 65318 :: Int32---pattern KEY_Kanji_Bangou = 65335 :: Int32---pattern KEY_Kanji = 65313 :: Int32---pattern KEY_Kana_Shift = 65326 :: Int32---pattern KEY_Kana_Lock = 65325 :: Int32---pattern KEY_KP_Up = 65431 :: Int32---pattern KEY_KP_Tab = 65417 :: Int32---pattern KEY_KP_Subtract = 65453 :: Int32---pattern KEY_KP_Space = 65408 :: Int32---pattern KEY_KP_Separator = 65452 :: Int32---pattern KEY_KP_Right = 65432 :: Int32---pattern KEY_KP_Prior = 65434 :: Int32---pattern KEY_KP_Page_Up = 65434 :: Int32---pattern KEY_KP_Page_Down = 65435 :: Int32---pattern KEY_KP_Next = 65435 :: Int32---pattern KEY_KP_Multiply = 65450 :: Int32---pattern KEY_KP_Left = 65430 :: Int32---pattern KEY_KP_Insert = 65438 :: Int32---pattern KEY_KP_Home = 65429 :: Int32---pattern KEY_KP_F4 = 65428 :: Int32---pattern KEY_KP_F3 = 65427 :: Int32---pattern KEY_KP_F2 = 65426 :: Int32---pattern KEY_KP_F1 = 65425 :: Int32---pattern KEY_KP_Equal = 65469 :: Int32---pattern KEY_KP_Enter = 65421 :: Int32---pattern KEY_KP_End = 65436 :: Int32---pattern KEY_KP_Down = 65433 :: Int32---pattern KEY_KP_Divide = 65455 :: Int32---pattern KEY_KP_Delete = 65439 :: Int32---pattern KEY_KP_Decimal = 65454 :: Int32---pattern KEY_KP_Begin = 65437 :: Int32---pattern KEY_KP_Add = 65451 :: Int32---pattern KEY_KP_9 = 65465 :: Int32---pattern KEY_KP_8 = 65464 :: Int32---pattern KEY_KP_7 = 65463 :: Int32---pattern KEY_KP_6 = 65462 :: Int32---pattern KEY_KP_5 = 65461 :: Int32---pattern KEY_KP_4 = 65460 :: Int32---pattern KEY_KP_3 = 65459 :: Int32---pattern KEY_KP_2 = 65458 :: Int32---pattern KEY_KP_1 = 65457 :: Int32---pattern KEY_KP_0 = 65456 :: Int32---pattern KEY_K = 75 :: Int32---pattern KEY_Jcircumflex = 684 :: Int32---pattern KEY_J = 74 :: Int32---pattern KEY_Itilde = 933 :: Int32---pattern KEY_Iogonek = 967 :: Int32---pattern KEY_Insert = 65379 :: Int32---pattern KEY_Imacron = 975 :: Int32---pattern KEY_Ihook = 16785096 :: Int32---pattern KEY_Igrave = 204 :: Int32---pattern KEY_Idiaeresis = 207 :: Int32---pattern KEY_Icircumflex = 206 :: Int32---pattern KEY_Ibreve = 16777516 :: Int32---pattern KEY_Ibelowdot = 16785098 :: Int32---pattern KEY_Iacute = 205 :: Int32---pattern KEY_Iabovedot = 681 :: Int32---pattern KEY_ISO_Set_Margin_Right = 65064 :: Int32---pattern KEY_ISO_Set_Margin_Left = 65063 :: Int32---pattern KEY_ISO_Release_Margin_Right = 65066 :: Int32---pattern KEY_ISO_Release_Margin_Left = 65065 :: Int32---pattern KEY_ISO_Release_Both_Margins = 65067 :: Int32---pattern KEY_ISO_Prev_Group_Lock = 65035 :: Int32---pattern KEY_ISO_Prev_Group = 65034 :: Int32---pattern KEY_ISO_Partial_Space_Right = 65062 :: Int32---pattern KEY_ISO_Partial_Space_Left = 65061 :: Int32---pattern KEY_ISO_Partial_Line_Up = 65059 :: Int32---pattern KEY_ISO_Partial_Line_Down = 65060 :: Int32---pattern KEY_ISO_Next_Group_Lock = 65033 :: Int32---pattern KEY_ISO_Next_Group = 65032 :: Int32---pattern KEY_ISO_Move_Line_Up = 65057 :: Int32---pattern KEY_ISO_Move_Line_Down = 65058 :: Int32---pattern KEY_ISO_Lock = 65025 :: Int32---pattern KEY_ISO_Level5_Shift = 65041 :: Int32---pattern KEY_ISO_Level5_Lock = 65043 :: Int32---pattern KEY_ISO_Level5_Latch = 65042 :: Int32---pattern KEY_ISO_Level3_Shift = 65027 :: Int32---pattern KEY_ISO_Level3_Lock = 65029 :: Int32---pattern KEY_ISO_Level3_Latch = 65028 :: Int32---pattern KEY_ISO_Level2_Latch = 65026 :: Int32---pattern KEY_ISO_Left_Tab = 65056 :: Int32---pattern KEY_ISO_Last_Group_Lock = 65039 :: Int32---pattern KEY_ISO_Last_Group = 65038 :: Int32---pattern KEY_ISO_Group_Shift = 65406 :: Int32---pattern KEY_ISO_Group_Lock = 65031 :: Int32---pattern KEY_ISO_Group_Latch = 65030 :: Int32---pattern KEY_ISO_First_Group_Lock = 65037 :: Int32---pattern KEY_ISO_First_Group = 65036 :: Int32---pattern KEY_ISO_Fast_Cursor_Up = 65070 :: Int32---pattern KEY_ISO_Fast_Cursor_Right = 65069 :: Int32---pattern KEY_ISO_Fast_Cursor_Left = 65068 :: Int32---pattern KEY_ISO_Fast_Cursor_Down = 65071 :: Int32---pattern KEY_ISO_Enter = 65076 :: Int32---pattern KEY_ISO_Emphasize = 65074 :: Int32---pattern KEY_ISO_Discontinuous_Underline = 65073 :: Int32---pattern KEY_ISO_Continuous_Underline = 65072 :: Int32---pattern KEY_ISO_Center_Object = 65075 :: Int32---pattern KEY_I = 73 :: Int32---pattern KEY_Hyper_R = 65518 :: Int32---pattern KEY_Hyper_L = 65517 :: Int32---pattern KEY_Hstroke = 673 :: Int32---pattern KEY_HotLinks = 269025082 :: Int32---pattern KEY_HomePage = 269025048 :: Int32---pattern KEY_Home = 65360 :: Int32---pattern KEY_History = 269025079 :: Int32---pattern KEY_Hiragana_Katakana = 65319 :: Int32---pattern KEY_Hiragana = 65317 :: Int32---pattern KEY_Hibernate = 269025192 :: Int32---pattern KEY_Henkan_Mode = 65315 :: Int32---pattern KEY_Henkan = 65315 :: Int32---pattern KEY_Help = 65386 :: Int32---pattern KEY_Hebrew_switch = 65406 :: Int32---pattern KEY_Hcircumflex = 678 :: Int32---pattern KEY_Hankaku = 65321 :: Int32---pattern KEY_Hangul_switch = 65406 :: Int32---pattern KEY_Hangul_YeorinHieuh = 3829 :: Int32---pattern KEY_Hangul_YU = 3792 :: Int32---pattern KEY_Hangul_YO = 3787 :: Int32---pattern KEY_Hangul_YI = 3794 :: Int32---pattern KEY_Hangul_YEO = 3781 :: Int32---pattern KEY_Hangul_YE = 3782 :: Int32---pattern KEY_Hangul_YAE = 3778 :: Int32---pattern KEY_Hangul_YA = 3777 :: Int32---pattern KEY_Hangul_WI = 3791 :: Int32---pattern KEY_Hangul_WEO = 3789 :: Int32---pattern KEY_Hangul_WE = 3790 :: Int32---pattern KEY_Hangul_WAE = 3785 :: Int32---pattern KEY_Hangul_WA = 3784 :: Int32---pattern KEY_Hangul_U = 3788 :: Int32---pattern KEY_Hangul_Tieut = 3772 :: Int32---pattern KEY_Hangul_SunkyeongeumPieub = 3825 :: Int32---pattern KEY_Hangul_SunkyeongeumPhieuf = 3828 :: Int32---pattern KEY_Hangul_SunkyeongeumMieum = 3824 :: Int32---pattern KEY_Hangul_Start = 65330 :: Int32---pattern KEY_Hangul_SsangSios = 3766 :: Int32---pattern KEY_Hangul_SsangPieub = 3763 :: Int32---pattern KEY_Hangul_SsangKiyeog = 3746 :: Int32---pattern KEY_Hangul_SsangJieuj = 3769 :: Int32---pattern KEY_Hangul_SsangDikeud = 3752 :: Int32---pattern KEY_Hangul_Special = 65343 :: Int32---pattern KEY_Hangul_Sios = 3765 :: Int32---pattern KEY_Hangul_SingleCandidate = 65340 :: Int32---pattern KEY_Hangul_Romaja = 65334 :: Int32---pattern KEY_Hangul_RieulYeorinHieuh = 3823 :: Int32---pattern KEY_Hangul_RieulTieut = 3758 :: Int32---pattern KEY_Hangul_RieulSios = 3757 :: Int32---pattern KEY_Hangul_RieulPieub = 3756 :: Int32---pattern KEY_Hangul_RieulPhieuf = 3759 :: Int32---pattern KEY_Hangul_RieulMieum = 3755 :: Int32---pattern KEY_Hangul_RieulKiyeog = 3754 :: Int32---pattern KEY_Hangul_RieulHieuh = 3760 :: Int32---pattern KEY_Hangul_Rieul = 3753 :: Int32---pattern KEY_Hangul_PreviousCandidate = 65342 :: Int32---pattern KEY_Hangul_PreHanja = 65338 :: Int32---pattern KEY_Hangul_PostHanja = 65339 :: Int32---pattern KEY_Hangul_PieubSios = 3764 :: Int32---pattern KEY_Hangul_Pieub = 3762 :: Int32---pattern KEY_Hangul_Phieuf = 3773 :: Int32---pattern KEY_Hangul_PanSios = 3826 :: Int32---pattern KEY_Hangul_OE = 3786 :: Int32---pattern KEY_Hangul_O = 3783 :: Int32---pattern KEY_Hangul_NieunJieuj = 3749 :: Int32---pattern KEY_Hangul_NieunHieuh = 3750 :: Int32---pattern KEY_Hangul_Nieun = 3748 :: Int32---pattern KEY_Hangul_MultipleCandidate = 65341 :: Int32---pattern KEY_Hangul_Mieum = 3761 :: Int32---pattern KEY_Hangul_KkogjiDalrinIeung = 3827 :: Int32---pattern KEY_Hangul_KiyeogSios = 3747 :: Int32---pattern KEY_Hangul_Kiyeog = 3745 :: Int32---pattern KEY_Hangul_Khieuq = 3771 :: Int32---pattern KEY_Hangul_Jieuj = 3768 :: Int32---pattern KEY_Hangul_Jeonja = 65336 :: Int32---pattern KEY_Hangul_Jamo = 65333 :: Int32---pattern KEY_Hangul_J_YeorinHieuh = 3834 :: Int32---pattern KEY_Hangul_J_Tieut = 3820 :: Int32---pattern KEY_Hangul_J_SsangSios = 3815 :: Int32---pattern KEY_Hangul_J_SsangKiyeog = 3797 :: Int32---pattern KEY_Hangul_J_Sios = 3814 :: Int32---pattern KEY_Hangul_J_RieulTieut = 3808 :: Int32---pattern KEY_Hangul_J_RieulSios = 3807 :: Int32---pattern KEY_Hangul_J_RieulPieub = 3806 :: Int32---pattern KEY_Hangul_J_RieulPhieuf = 3809 :: Int32---pattern KEY_Hangul_J_RieulMieum = 3805 :: Int32---pattern KEY_Hangul_J_RieulKiyeog = 3804 :: Int32---pattern KEY_Hangul_J_RieulHieuh = 3810 :: Int32---pattern KEY_Hangul_J_Rieul = 3803 :: Int32---pattern KEY_Hangul_J_PieubSios = 3813 :: Int32---pattern KEY_Hangul_J_Pieub = 3812 :: Int32---pattern KEY_Hangul_J_Phieuf = 3821 :: Int32---pattern KEY_Hangul_J_PanSios = 3832 :: Int32---pattern KEY_Hangul_J_NieunJieuj = 3800 :: Int32---pattern KEY_Hangul_J_NieunHieuh = 3801 :: Int32---pattern KEY_Hangul_J_Nieun = 3799 :: Int32---pattern KEY_Hangul_J_Mieum = 3811 :: Int32---pattern KEY_Hangul_J_KkogjiDalrinIeung = 3833 :: Int32---pattern KEY_Hangul_J_KiyeogSios = 3798 :: Int32---pattern KEY_Hangul_J_Kiyeog = 3796 :: Int32---pattern KEY_Hangul_J_Khieuq = 3819 :: Int32---pattern KEY_Hangul_J_Jieuj = 3817 :: Int32---pattern KEY_Hangul_J_Ieung = 3816 :: Int32---pattern KEY_Hangul_J_Hieuh = 3822 :: Int32---pattern KEY_Hangul_J_Dikeud = 3802 :: Int32---pattern KEY_Hangul_J_Cieuc = 3818 :: Int32---pattern KEY_Hangul_Ieung = 3767 :: Int32---pattern KEY_Hangul_I = 3795 :: Int32---pattern KEY_Hangul_Hieuh = 3774 :: Int32---pattern KEY_Hangul_Hanja = 65332 :: Int32---pattern KEY_Hangul_End = 65331 :: Int32---pattern KEY_Hangul_EU = 3793 :: Int32---pattern KEY_Hangul_EO = 3779 :: Int32---pattern KEY_Hangul_E = 3780 :: Int32---pattern KEY_Hangul_Dikeud = 3751 :: Int32---pattern KEY_Hangul_Codeinput = 65335 :: Int32---pattern KEY_Hangul_Cieuc = 3770 :: Int32---pattern KEY_Hangul_Banja = 65337 :: Int32---pattern KEY_Hangul_AraeAE = 3831 :: Int32---pattern KEY_Hangul_AraeA = 3830 :: Int32---pattern KEY_Hangul_AE = 3776 :: Int32---pattern KEY_Hangul_A = 3775 :: Int32---pattern KEY_Hangul = 65329 :: Int32---pattern KEY_H = 72 :: Int32---pattern KEY_Green = 269025188 :: Int32---pattern KEY_Greek_zeta = 2022 :: Int32---pattern KEY_Greek_xi = 2030 :: Int32---pattern KEY_Greek_upsilondieresis = 1977 :: Int32---pattern KEY_Greek_upsilonaccentdieresis = 1978 :: Int32---pattern KEY_Greek_upsilonaccent = 1976 :: Int32---pattern KEY_Greek_upsilon = 2037 :: Int32---pattern KEY_Greek_theta = 2024 :: Int32---pattern KEY_Greek_tau = 2036 :: Int32---pattern KEY_Greek_switch = 65406 :: Int32---pattern KEY_Greek_sigma = 2034 :: Int32---pattern KEY_Greek_rho = 2033 :: Int32---pattern KEY_Greek_psi = 2040 :: Int32---pattern KEY_Greek_pi = 2032 :: Int32---pattern KEY_Greek_phi = 2038 :: Int32---pattern KEY_Greek_omicronaccent = 1975 :: Int32---pattern KEY_Greek_omicron = 2031 :: Int32---pattern KEY_Greek_omegaaccent = 1979 :: Int32---pattern KEY_Greek_omega = 2041 :: Int32---pattern KEY_Greek_nu = 2029 :: Int32---pattern KEY_Greek_mu = 2028 :: Int32---pattern KEY_Greek_lamda = 2027 :: Int32---pattern KEY_Greek_lambda = 2027 :: Int32---pattern KEY_Greek_kappa = 2026 :: Int32---pattern KEY_Greek_iotadieresis = 1973 :: Int32---pattern KEY_Greek_iotaaccentdieresis = 1974 :: Int32---pattern KEY_Greek_iotaaccent = 1972 :: Int32---pattern KEY_Greek_iota = 2025 :: Int32---pattern KEY_Greek_horizbar = 1967 :: Int32---pattern KEY_Greek_gamma = 2019 :: Int32---pattern KEY_Greek_finalsmallsigma = 2035 :: Int32---pattern KEY_Greek_etaaccent = 1971 :: Int32---pattern KEY_Greek_eta = 2023 :: Int32---pattern KEY_Greek_epsilonaccent = 1970 :: Int32---pattern KEY_Greek_epsilon = 2021 :: Int32---pattern KEY_Greek_delta = 2020 :: Int32---pattern KEY_Greek_chi = 2039 :: Int32---pattern KEY_Greek_beta = 2018 :: Int32---pattern KEY_Greek_alphaaccent = 1969 :: Int32---pattern KEY_Greek_alpha = 2017 :: Int32---pattern KEY_Greek_accentdieresis = 1966 :: Int32---pattern KEY_Greek_ZETA = 1990 :: Int32---pattern KEY_Greek_XI = 1998 :: Int32---pattern KEY_Greek_UPSILONdieresis = 1961 :: Int32---pattern KEY_Greek_UPSILONaccent = 1960 :: Int32---pattern KEY_Greek_UPSILON = 2005 :: Int32---pattern KEY_Greek_THETA = 1992 :: Int32---pattern KEY_Greek_TAU = 2004 :: Int32---pattern KEY_Greek_SIGMA = 2002 :: Int32---pattern KEY_Greek_RHO = 2001 :: Int32---pattern KEY_Greek_PSI = 2008 :: Int32---pattern KEY_Greek_PI = 2000 :: Int32---pattern KEY_Greek_PHI = 2006 :: Int32---pattern KEY_Greek_OMICRONaccent = 1959 :: Int32---pattern KEY_Greek_OMICRON = 1999 :: Int32---pattern KEY_Greek_OMEGAaccent = 1963 :: Int32---pattern KEY_Greek_OMEGA = 2009 :: Int32---pattern KEY_Greek_NU = 1997 :: Int32---pattern KEY_Greek_MU = 1996 :: Int32---pattern KEY_Greek_LAMDA = 1995 :: Int32---pattern KEY_Greek_LAMBDA = 1995 :: Int32---pattern KEY_Greek_KAPPA = 1994 :: Int32---pattern KEY_Greek_IOTAdieresis = 1957 :: Int32---pattern KEY_Greek_IOTAdiaeresis = 1957 :: Int32---pattern KEY_Greek_IOTAaccent = 1956 :: Int32---pattern KEY_Greek_IOTA = 1993 :: Int32---pattern KEY_Greek_GAMMA = 1987 :: Int32---pattern KEY_Greek_ETAaccent = 1955 :: Int32---pattern KEY_Greek_ETA = 1991 :: Int32---pattern KEY_Greek_EPSILONaccent = 1954 :: Int32---pattern KEY_Greek_EPSILON = 1989 :: Int32---pattern KEY_Greek_DELTA = 1988 :: Int32---pattern KEY_Greek_CHI = 2007 :: Int32---pattern KEY_Greek_BETA = 1986 :: Int32---pattern KEY_Greek_ALPHAaccent = 1953 :: Int32---pattern KEY_Greek_ALPHA = 1985 :: Int32---pattern KEY_Go = 269025119 :: Int32---pattern KEY_Georgian_zhar = 16781535 :: Int32---pattern KEY_Georgian_zen = 16781526 :: Int32---pattern KEY_Georgian_xan = 16781550 :: Int32---pattern KEY_Georgian_we = 16781555 :: Int32---pattern KEY_Georgian_vin = 16781525 :: Int32---pattern KEY_Georgian_un = 16781539 :: Int32---pattern KEY_Georgian_tar = 16781538 :: Int32---pattern KEY_Georgian_tan = 16781527 :: Int32---pattern KEY_Georgian_shin = 16781544 :: Int32---pattern KEY_Georgian_san = 16781537 :: Int32---pattern KEY_Georgian_rae = 16781536 :: Int32---pattern KEY_Georgian_qar = 16781543 :: Int32---pattern KEY_Georgian_phar = 16781540 :: Int32---pattern KEY_Georgian_par = 16781534 :: Int32---pattern KEY_Georgian_on = 16781533 :: Int32---pattern KEY_Georgian_nar = 16781532 :: Int32---pattern KEY_Georgian_man = 16781531 :: Int32---pattern KEY_Georgian_las = 16781530 :: Int32---pattern KEY_Georgian_khar = 16781541 :: Int32---pattern KEY_Georgian_kan = 16781529 :: Int32---pattern KEY_Georgian_jil = 16781547 :: Int32---pattern KEY_Georgian_jhan = 16781551 :: Int32---pattern KEY_Georgian_in = 16781528 :: Int32---pattern KEY_Georgian_hoe = 16781557 :: Int32---pattern KEY_Georgian_hie = 16781554 :: Int32---pattern KEY_Georgian_he = 16781553 :: Int32---pattern KEY_Georgian_har = 16781556 :: Int32---pattern KEY_Georgian_hae = 16781552 :: Int32---pattern KEY_Georgian_ghan = 16781542 :: Int32---pattern KEY_Georgian_gan = 16781522 :: Int32---pattern KEY_Georgian_fi = 16781558 :: Int32---pattern KEY_Georgian_en = 16781524 :: Int32---pattern KEY_Georgian_don = 16781523 :: Int32---pattern KEY_Georgian_cil = 16781548 :: Int32---pattern KEY_Georgian_chin = 16781545 :: Int32---pattern KEY_Georgian_char = 16781549 :: Int32---pattern KEY_Georgian_can = 16781546 :: Int32---pattern KEY_Georgian_ban = 16781521 :: Int32---pattern KEY_Georgian_an = 16781520 :: Int32---pattern KEY_Gcircumflex = 728 :: Int32---pattern KEY_Gcedilla = 939 :: Int32---pattern KEY_Gcaron = 16777702 :: Int32---pattern KEY_Gbreve = 683 :: Int32---pattern KEY_Game = 269025118 :: Int32---pattern KEY_Gabovedot = 725 :: Int32---pattern KEY_G = 71 :: Int32---pattern KEY_FrameForward = 269025182 :: Int32---pattern KEY_FrameBack = 269025181 :: Int32---pattern KEY_Forward = 269025063 :: Int32---pattern KEY_First_Virtual_Screen = 65232 :: Int32---pattern KEY_Find = 65384 :: Int32---pattern KEY_Finance = 269025084 :: Int32---pattern KEY_Favorites = 269025072 :: Int32---pattern KEY_Farsi_yeh = 16778956 :: Int32---pattern KEY_Farsi_9 = 16779001 :: Int32---pattern KEY_Farsi_8 = 16779000 :: Int32---pattern KEY_Farsi_7 = 16778999 :: Int32---pattern KEY_Farsi_6 = 16778998 :: Int32---pattern KEY_Farsi_5 = 16778997 :: Int32---pattern KEY_Farsi_4 = 16778996 :: Int32---pattern KEY_Farsi_3 = 16778995 :: Int32---pattern KEY_Farsi_2 = 16778994 :: Int32---pattern KEY_Farsi_1 = 16778993 :: Int32---pattern KEY_Farsi_0 = 16778992 :: Int32---pattern KEY_Fabovedot = 16784926 :: Int32---pattern KEY_FFrancSign = 16785571 :: Int32---pattern KEY_F9 = 65478 :: Int32---pattern KEY_F8 = 65477 :: Int32---pattern KEY_F7 = 65476 :: Int32---pattern KEY_F6 = 65475 :: Int32---pattern KEY_F5 = 65474 :: Int32---pattern KEY_F4 = 65473 :: Int32---pattern KEY_F35 = 65504 :: Int32---pattern KEY_F34 = 65503 :: Int32---pattern KEY_F33 = 65502 :: Int32---pattern KEY_F32 = 65501 :: Int32---pattern KEY_F31 = 65500 :: Int32---pattern KEY_F30 = 65499 :: Int32---pattern KEY_F3 = 65472 :: Int32---pattern KEY_F29 = 65498 :: Int32---pattern KEY_F28 = 65497 :: Int32---pattern KEY_F27 = 65496 :: Int32---pattern KEY_F26 = 65495 :: Int32---pattern KEY_F25 = 65494 :: Int32---pattern KEY_F24 = 65493 :: Int32---pattern KEY_F23 = 65492 :: Int32---pattern KEY_F22 = 65491 :: Int32---pattern KEY_F21 = 65490 :: Int32---pattern KEY_F20 = 65489 :: Int32---pattern KEY_F2 = 65471 :: Int32---pattern KEY_F19 = 65488 :: Int32---pattern KEY_F18 = 65487 :: Int32---pattern KEY_F17 = 65486 :: Int32---pattern KEY_F16 = 65485 :: Int32---pattern KEY_F15 = 65484 :: Int32---pattern KEY_F14 = 65483 :: Int32---pattern KEY_F13 = 65482 :: Int32---pattern KEY_F12 = 65481 :: Int32---pattern KEY_F11 = 65480 :: Int32---pattern KEY_F10 = 65479 :: Int32---pattern KEY_F1 = 65470 :: Int32---pattern KEY_F = 70 :: Int32---pattern KEY_Explorer = 269025117 :: Int32---pattern KEY_Execute = 65378 :: Int32---pattern KEY_Excel = 269025116 :: Int32---pattern KEY_EuroSign = 8364 :: Int32---pattern KEY_Etilde = 16785084 :: Int32---pattern KEY_Eth = 208 :: Int32---pattern KEY_Escape = 65307 :: Int32---pattern KEY_Eogonek = 458 :: Int32---pattern KEY_End = 65367 :: Int32---pattern KEY_Emacron = 938 :: Int32---pattern KEY_Eject = 269025068 :: Int32---pattern KEY_Eisu_toggle = 65328 :: Int32---pattern KEY_Eisu_Shift = 65327 :: Int32---pattern KEY_Ehook = 16785082 :: Int32---pattern KEY_Egrave = 200 :: Int32---pattern KEY_Ediaeresis = 203 :: Int32---pattern KEY_EcuSign = 16785568 :: Int32---pattern KEY_Ecircumflextilde = 16785092 :: Int32---pattern KEY_Ecircumflexhook = 16785090 :: Int32---pattern KEY_Ecircumflexgrave = 16785088 :: Int32---pattern KEY_Ecircumflexbelowdot = 16785094 :: Int32---pattern KEY_Ecircumflexacute = 16785086 :: Int32---pattern KEY_Ecircumflex = 202 :: Int32---pattern KEY_Ecaron = 460 :: Int32---pattern KEY_Ebelowdot = 16785080 :: Int32---pattern KEY_Eacute = 201 :: Int32---pattern KEY_Eabovedot = 972 :: Int32---pattern KEY_EZH = 16777655 :: Int32---pattern KEY_ETH = 208 :: Int32---pattern KEY_ENG = 957 :: Int32---pattern KEY_E = 69 :: Int32---pattern KEY_Dstroke = 464 :: Int32---pattern KEY_Down = 65364 :: Int32---pattern KEY_DongSign = 16785579 :: Int32---pattern KEY_Documents = 269025115 :: Int32---pattern KEY_Display = 269025113 :: Int32---pattern KEY_Delete = 65535 :: Int32---pattern KEY_Dcaron = 463 :: Int32---pattern KEY_Dabovedot = 16784906 :: Int32---pattern KEY_DOS = 269025114 :: Int32---pattern KEY_D = 68 :: Int32---pattern KEY_Cyrillic_zhe_descender = 16778391 :: Int32---pattern KEY_Cyrillic_zhe = 1750 :: Int32---pattern KEY_Cyrillic_ze = 1754 :: Int32---pattern KEY_Cyrillic_yu = 1728 :: Int32---pattern KEY_Cyrillic_yeru = 1753 :: Int32---pattern KEY_Cyrillic_ya = 1745 :: Int32---pattern KEY_Cyrillic_ve = 1751 :: Int32---pattern KEY_Cyrillic_u_straight_bar = 16778417 :: Int32---pattern KEY_Cyrillic_u_straight = 16778415 :: Int32---pattern KEY_Cyrillic_u_macron = 16778479 :: Int32---pattern KEY_Cyrillic_u = 1749 :: Int32---pattern KEY_Cyrillic_tse = 1731 :: Int32---pattern KEY_Cyrillic_te = 1748 :: Int32---pattern KEY_Cyrillic_softsign = 1752 :: Int32---pattern KEY_Cyrillic_shorti = 1738 :: Int32---pattern KEY_Cyrillic_shha = 16778427 :: Int32---pattern KEY_Cyrillic_shcha = 1757 :: Int32---pattern KEY_Cyrillic_sha = 1755 :: Int32---pattern KEY_Cyrillic_schwa = 16778457 :: Int32---pattern KEY_Cyrillic_pe = 1744 :: Int32---pattern KEY_Cyrillic_o_bar = 16778473 :: Int32---pattern KEY_Cyrillic_o = 1743 :: Int32---pattern KEY_Cyrillic_nje = 1706 :: Int32---pattern KEY_Cyrillic_lje = 1705 :: Int32---pattern KEY_Cyrillic_ka_vertstroke = 16778397 :: Int32---pattern KEY_Cyrillic_ka_descender = 16778395 :: Int32---pattern KEY_Cyrillic_ka = 1739 :: Int32---pattern KEY_Cyrillic_je = 1704 :: Int32---pattern KEY_Cyrillic_io = 1699 :: Int32---pattern KEY_Cyrillic_ie = 1733 :: Int32---pattern KEY_Cyrillic_i_macron = 16778467 :: Int32---pattern KEY_Cyrillic_i = 1737 :: Int32---pattern KEY_Cyrillic_hardsign = 1759 :: Int32---pattern KEY_Cyrillic_ha_descender = 16778419 :: Int32---pattern KEY_Cyrillic_ha = 1736 :: Int32---pattern KEY_Cyrillic_ghe_bar = 16778387 :: Int32---pattern KEY_Cyrillic_ghe = 1735 :: Int32---pattern KEY_Cyrillic_es = 1747 :: Int32---pattern KEY_Cyrillic_er = 1746 :: Int32---pattern KEY_Cyrillic_en_descender = 16778403 :: Int32---pattern KEY_Cyrillic_en = 1742 :: Int32---pattern KEY_Cyrillic_em = 1741 :: Int32---pattern KEY_Cyrillic_el = 1740 :: Int32---pattern KEY_Cyrillic_ef = 1734 :: Int32---pattern KEY_Cyrillic_e = 1756 :: Int32---pattern KEY_Cyrillic_dzhe = 1711 :: Int32---pattern KEY_Cyrillic_de = 1732 :: Int32---pattern KEY_Cyrillic_che_vertstroke = 16778425 :: Int32---pattern KEY_Cyrillic_che_descender = 16778423 :: Int32---pattern KEY_Cyrillic_che = 1758 :: Int32---pattern KEY_Cyrillic_be = 1730 :: Int32---pattern KEY_Cyrillic_a = 1729 :: Int32---pattern KEY_Cyrillic_ZHE_descender = 16778390 :: Int32---pattern KEY_Cyrillic_ZHE = 1782 :: Int32---pattern KEY_Cyrillic_ZE = 1786 :: Int32---pattern KEY_Cyrillic_YU = 1760 :: Int32---pattern KEY_Cyrillic_YERU = 1785 :: Int32---pattern KEY_Cyrillic_YA = 1777 :: Int32---pattern KEY_Cyrillic_VE = 1783 :: Int32---pattern KEY_Cyrillic_U_straight_bar = 16778416 :: Int32---pattern KEY_Cyrillic_U_straight = 16778414 :: Int32---pattern KEY_Cyrillic_U_macron = 16778478 :: Int32---pattern KEY_Cyrillic_U = 1781 :: Int32---pattern KEY_Cyrillic_TSE = 1763 :: Int32---pattern KEY_Cyrillic_TE = 1780 :: Int32---pattern KEY_Cyrillic_SOFTSIGN = 1784 :: Int32---pattern KEY_Cyrillic_SHORTI = 1770 :: Int32---pattern KEY_Cyrillic_SHHA = 16778426 :: Int32---pattern KEY_Cyrillic_SHCHA = 1789 :: Int32---pattern KEY_Cyrillic_SHA = 1787 :: Int32---pattern KEY_Cyrillic_SCHWA = 16778456 :: Int32---pattern KEY_Cyrillic_PE = 1776 :: Int32---pattern KEY_Cyrillic_O_bar = 16778472 :: Int32---pattern KEY_Cyrillic_O = 1775 :: Int32---pattern KEY_Cyrillic_NJE = 1722 :: Int32---pattern KEY_Cyrillic_LJE = 1721 :: Int32---pattern KEY_Cyrillic_KA_vertstroke = 16778396 :: Int32---pattern KEY_Cyrillic_KA_descender = 16778394 :: Int32---pattern KEY_Cyrillic_KA = 1771 :: Int32---pattern KEY_Cyrillic_JE = 1720 :: Int32---pattern KEY_Cyrillic_I_macron = 16778466 :: Int32---pattern KEY_Cyrillic_IO = 1715 :: Int32---pattern KEY_Cyrillic_IE = 1765 :: Int32---pattern KEY_Cyrillic_I = 1769 :: Int32---pattern KEY_Cyrillic_HA_descender = 16778418 :: Int32---pattern KEY_Cyrillic_HARDSIGN = 1791 :: Int32---pattern KEY_Cyrillic_HA = 1768 :: Int32---pattern KEY_Cyrillic_GHE_bar = 16778386 :: Int32---pattern KEY_Cyrillic_GHE = 1767 :: Int32---pattern KEY_Cyrillic_ES = 1779 :: Int32---pattern KEY_Cyrillic_ER = 1778 :: Int32---pattern KEY_Cyrillic_EN_descender = 16778402 :: Int32---pattern KEY_Cyrillic_EN = 1774 :: Int32---pattern KEY_Cyrillic_EM = 1773 :: Int32---pattern KEY_Cyrillic_EL = 1772 :: Int32---pattern KEY_Cyrillic_EF = 1766 :: Int32---pattern KEY_Cyrillic_E = 1788 :: Int32---pattern KEY_Cyrillic_DZHE = 1727 :: Int32---pattern KEY_Cyrillic_DE = 1764 :: Int32---pattern KEY_Cyrillic_CHE_vertstroke = 16778424 :: Int32---pattern KEY_Cyrillic_CHE_descender = 16778422 :: Int32---pattern KEY_Cyrillic_CHE = 1790 :: Int32---pattern KEY_Cyrillic_BE = 1762 :: Int32---pattern KEY_Cyrillic_A = 1761 :: Int32---pattern KEY_CycleAngle = 269025180 :: Int32---pattern KEY_Cut = 269025112 :: Int32---pattern KEY_CruzeiroSign = 16785570 :: Int32---pattern KEY_Copy = 269025111 :: Int32---pattern KEY_Control_R = 65508 :: Int32---pattern KEY_Control_L = 65507 :: Int32---pattern KEY_ContrastAdjust = 269025058 :: Int32---pattern KEY_Community = 269025085 :: Int32---pattern KEY_ColonSign = 16785569 :: Int32---pattern KEY_Codeinput = 65335 :: Int32---pattern KEY_Close = 269025110 :: Int32---pattern KEY_ClearGrab = 269024801 :: Int32---pattern KEY_Clear = 65291 :: Int32---pattern KEY_Ch = 65185 :: Int32---pattern KEY_Ccircumflex = 710 :: Int32---pattern KEY_Ccedilla = 199 :: Int32---pattern KEY_Ccaron = 456 :: Int32---pattern KEY_Caps_Lock = 65509 :: Int32---pattern KEY_Cancel = 65385 :: Int32---pattern KEY_Calendar = 269025056 :: Int32---pattern KEY_Calculator = 269025053 :: Int32---pattern KEY_Cacute = 454 :: Int32---pattern KEY_Cabovedot = 709 :: Int32---pattern KEY_C_h = 65188 :: Int32---pattern KEY_C_H = 65189 :: Int32---pattern KEY_CH = 65186 :: Int32---pattern KEY_CD = 269025107 :: Int32---pattern KEY_C = 67 :: Int32---pattern KEY_Byelorussian_shortu = 1710 :: Int32---pattern KEY_Byelorussian_SHORTU = 1726 :: Int32---pattern KEY_BrightnessAdjust = 269025083 :: Int32---pattern KEY_Break = 65387 :: Int32---pattern KEY_BounceKeys_Enable = 65140 :: Int32---pattern KEY_Book = 269025106 :: Int32---pattern KEY_Bluetooth = 269025172 :: Int32---pattern KEY_Blue = 269025190 :: Int32---pattern KEY_Begin = 65368 :: Int32---pattern KEY_Battery = 269025171 :: Int32---pattern KEY_BackSpace = 65288 :: Int32---pattern KEY_BackForward = 269025087 :: Int32---pattern KEY_Back = 269025062 :: Int32---pattern KEY_Babovedot = 16784898 :: Int32---pattern KEY_B = 66 :: Int32---pattern KEY_Away = 269025165 :: Int32---pattern KEY_AudioStop = 269025045 :: Int32---pattern KEY_AudioRewind = 269025086 :: Int32---pattern KEY_AudioRepeat = 269025176 :: Int32---pattern KEY_AudioRecord = 269025052 :: Int32---pattern KEY_AudioRandomPlay = 269025177 :: Int32---pattern KEY_AudioRaiseVolume = 269025043 :: Int32---pattern KEY_AudioPrev = 269025046 :: Int32---pattern KEY_AudioPlay = 269025044 :: Int32---pattern KEY_AudioPause = 269025073 :: Int32---pattern KEY_AudioNext = 269025047 :: Int32---pattern KEY_AudioMute = 269025042 :: Int32---pattern KEY_AudioMicMute = 269025202 :: Int32---pattern KEY_AudioMedia = 269025074 :: Int32---pattern KEY_AudioLowerVolume = 269025041 :: Int32---pattern KEY_AudioForward = 269025175 :: Int32---pattern KEY_AudioCycleTrack = 269025179 :: Int32---pattern KEY_AudibleBell_Enable = 65146 :: Int32---pattern KEY_Atilde = 195 :: Int32---pattern KEY_Armenian_zhe = 16778602 :: Int32---pattern KEY_Armenian_za = 16778598 :: Int32---pattern KEY_Armenian_yentamna = 16778634 :: Int32---pattern KEY_Armenian_yech = 16778597 :: Int32---pattern KEY_Armenian_vyun = 16778626 :: Int32---pattern KEY_Armenian_vo = 16778616 :: Int32---pattern KEY_Armenian_vev = 16778622 :: Int32---pattern KEY_Armenian_verjaket = 16778633 :: Int32---pattern KEY_Armenian_tyun = 16778623 :: Int32---pattern KEY_Armenian_tso = 16778625 :: Int32---pattern KEY_Armenian_tsa = 16778606 :: Int32---pattern KEY_Armenian_to = 16778601 :: Int32---pattern KEY_Armenian_tche = 16778611 :: Int32---pattern KEY_Armenian_shesht = 16778587 :: Int32---pattern KEY_Armenian_sha = 16778615 :: Int32---pattern KEY_Armenian_separation_mark = 16778589 :: Int32---pattern KEY_Armenian_se = 16778621 :: Int32---pattern KEY_Armenian_re = 16778624 :: Int32---pattern KEY_Armenian_ra = 16778620 :: Int32---pattern KEY_Armenian_question = 16778590 :: Int32---pattern KEY_Armenian_pyur = 16778627 :: Int32---pattern KEY_Armenian_pe = 16778618 :: Int32---pattern KEY_Armenian_paruyk = 16778590 :: Int32---pattern KEY_Armenian_o = 16778629 :: Int32---pattern KEY_Armenian_nu = 16778614 :: Int32---pattern KEY_Armenian_men = 16778612 :: Int32---pattern KEY_Armenian_lyun = 16778604 :: Int32---pattern KEY_Armenian_ligature_ew = 16778631 :: Int32---pattern KEY_Armenian_khe = 16778605 :: Int32---pattern KEY_Armenian_ken = 16778607 :: Int32---pattern KEY_Armenian_ke = 16778628 :: Int32---pattern KEY_Armenian_je = 16778619 :: Int32---pattern KEY_Armenian_ini = 16778603 :: Int32---pattern KEY_Armenian_hyphen = 16778634 :: Int32---pattern KEY_Armenian_ho = 16778608 :: Int32---pattern KEY_Armenian_hi = 16778613 :: Int32---pattern KEY_Armenian_gim = 16778595 :: Int32---pattern KEY_Armenian_ghat = 16778610 :: Int32---pattern KEY_Armenian_full_stop = 16778633 :: Int32---pattern KEY_Armenian_fe = 16778630 :: Int32---pattern KEY_Armenian_exclam = 16778588 :: Int32---pattern KEY_Armenian_e = 16778599 :: Int32---pattern KEY_Armenian_dza = 16778609 :: Int32---pattern KEY_Armenian_da = 16778596 :: Int32---pattern KEY_Armenian_cha = 16778617 :: Int32---pattern KEY_Armenian_but = 16778589 :: Int32---pattern KEY_Armenian_ben = 16778594 :: Int32---pattern KEY_Armenian_ayb = 16778593 :: Int32---pattern KEY_Armenian_at = 16778600 :: Int32---pattern KEY_Armenian_apostrophe = 16778586 :: Int32---pattern KEY_Armenian_amanak = 16778588 :: Int32---pattern KEY_Armenian_accent = 16778587 :: Int32---pattern KEY_Armenian_ZHE = 16778554 :: Int32---pattern KEY_Armenian_ZA = 16778550 :: Int32---pattern KEY_Armenian_YECH = 16778549 :: Int32---pattern KEY_Armenian_VYUN = 16778578 :: Int32---pattern KEY_Armenian_VO = 16778568 :: Int32---pattern KEY_Armenian_VEV = 16778574 :: Int32---pattern KEY_Armenian_TYUN = 16778575 :: Int32---pattern KEY_Armenian_TSO = 16778577 :: Int32---pattern KEY_Armenian_TSA = 16778558 :: Int32---pattern KEY_Armenian_TO = 16778553 :: Int32---pattern KEY_Armenian_TCHE = 16778563 :: Int32---pattern KEY_Armenian_SHA = 16778567 :: Int32---pattern KEY_Armenian_SE = 16778573 :: Int32---pattern KEY_Armenian_RE = 16778576 :: Int32---pattern KEY_Armenian_RA = 16778572 :: Int32---pattern KEY_Armenian_PYUR = 16778579 :: Int32---pattern KEY_Armenian_PE = 16778570 :: Int32---pattern KEY_Armenian_O = 16778581 :: Int32---pattern KEY_Armenian_NU = 16778566 :: Int32---pattern KEY_Armenian_MEN = 16778564 :: Int32---pattern KEY_Armenian_LYUN = 16778556 :: Int32---pattern KEY_Armenian_KHE = 16778557 :: Int32---pattern KEY_Armenian_KEN = 16778559 :: Int32---pattern KEY_Armenian_KE = 16778580 :: Int32---pattern KEY_Armenian_JE = 16778571 :: Int32---pattern KEY_Armenian_INI = 16778555 :: Int32---pattern KEY_Armenian_HO = 16778560 :: Int32---pattern KEY_Armenian_HI = 16778565 :: Int32---pattern KEY_Armenian_GIM = 16778547 :: Int32---pattern KEY_Armenian_GHAT = 16778562 :: Int32---pattern KEY_Armenian_FE = 16778582 :: Int32---pattern KEY_Armenian_E = 16778551 :: Int32---pattern KEY_Armenian_DZA = 16778561 :: Int32---pattern KEY_Armenian_DA = 16778548 :: Int32---pattern KEY_Armenian_CHA = 16778569 :: Int32---pattern KEY_Armenian_BEN = 16778546 :: Int32---pattern KEY_Armenian_AYB = 16778545 :: Int32---pattern KEY_Armenian_AT = 16778552 :: Int32---pattern KEY_Aring = 197 :: Int32---pattern KEY_Arabic_zain = 1490 :: Int32---pattern KEY_Arabic_zah = 1496 :: Int32---pattern KEY_Arabic_yeh_baree = 16778962 :: Int32---pattern KEY_Arabic_yeh = 1514 :: Int32---pattern KEY_Arabic_waw = 1512 :: Int32---pattern KEY_Arabic_veh = 16778916 :: Int32---pattern KEY_Arabic_tteh = 16778873 :: Int32---pattern KEY_Arabic_theh = 1483 :: Int32---pattern KEY_Arabic_thal = 1488 :: Int32---pattern KEY_Arabic_tehmarbuta = 1481 :: Int32---pattern KEY_Arabic_teh = 1482 :: Int32---pattern KEY_Arabic_tcheh = 16778886 :: Int32---pattern KEY_Arabic_tatweel = 1504 :: Int32---pattern KEY_Arabic_tah = 1495 :: Int32---pattern KEY_Arabic_switch = 65406 :: Int32---pattern KEY_Arabic_superscript_alef = 16778864 :: Int32---pattern KEY_Arabic_sukun = 1522 :: Int32---pattern KEY_Arabic_sheen = 1492 :: Int32---pattern KEY_Arabic_shadda = 1521 :: Int32---pattern KEY_Arabic_semicolon = 1467 :: Int32---pattern KEY_Arabic_seen = 1491 :: Int32---pattern KEY_Arabic_sad = 1493 :: Int32---pattern KEY_Arabic_rreh = 16778897 :: Int32---pattern KEY_Arabic_ra = 1489 :: Int32---pattern KEY_Arabic_question_mark = 1471 :: Int32---pattern KEY_Arabic_qaf = 1506 :: Int32---pattern KEY_Arabic_percent = 16778858 :: Int32---pattern KEY_Arabic_peh = 16778878 :: Int32---pattern KEY_Arabic_noon_ghunna = 16778938 :: Int32---pattern KEY_Arabic_noon = 1510 :: Int32---pattern KEY_Arabic_meem = 1509 :: Int32---pattern KEY_Arabic_maddaonalef = 1474 :: Int32---pattern KEY_Arabic_madda_above = 16778835 :: Int32---pattern KEY_Arabic_lam = 1508 :: Int32---pattern KEY_Arabic_khah = 1486 :: Int32---pattern KEY_Arabic_keheh = 16778921 :: Int32---pattern KEY_Arabic_kasratan = 1517 :: Int32---pattern KEY_Arabic_kasra = 1520 :: Int32---pattern KEY_Arabic_kaf = 1507 :: Int32---pattern KEY_Arabic_jeh = 16778904 :: Int32---pattern KEY_Arabic_jeem = 1484 :: Int32---pattern KEY_Arabic_heh_goal = 16778945 :: Int32---pattern KEY_Arabic_heh_doachashmee = 16778942 :: Int32---pattern KEY_Arabic_heh = 1511 :: Int32---pattern KEY_Arabic_hamzaunderalef = 1477 :: Int32---pattern KEY_Arabic_hamzaonyeh = 1478 :: Int32---pattern KEY_Arabic_hamzaonwaw = 1476 :: Int32---pattern KEY_Arabic_hamzaonalef = 1475 :: Int32---pattern KEY_Arabic_hamza_below = 16778837 :: Int32---pattern KEY_Arabic_hamza_above = 16778836 :: Int32---pattern KEY_Arabic_hamza = 1473 :: Int32---pattern KEY_Arabic_hah = 1485 :: Int32---pattern KEY_Arabic_ha = 1511 :: Int32---pattern KEY_Arabic_ghain = 1498 :: Int32---pattern KEY_Arabic_gaf = 16778927 :: Int32---pattern KEY_Arabic_fullstop = 16778964 :: Int32---pattern KEY_Arabic_feh = 1505 :: Int32---pattern KEY_Arabic_fathatan = 1515 :: Int32---pattern KEY_Arabic_fatha = 1518 :: Int32---pattern KEY_Arabic_farsi_yeh = 16778956 :: Int32---pattern KEY_Arabic_ddal = 16778888 :: Int32---pattern KEY_Arabic_dammatan = 1516 :: Int32---pattern KEY_Arabic_damma = 1519 :: Int32---pattern KEY_Arabic_dal = 1487 :: Int32---pattern KEY_Arabic_dad = 1494 :: Int32---pattern KEY_Arabic_comma = 1452 :: Int32---pattern KEY_Arabic_beh = 1480 :: Int32---pattern KEY_Arabic_alefmaksura = 1513 :: Int32---pattern KEY_Arabic_alef = 1479 :: Int32---pattern KEY_Arabic_ain = 1497 :: Int32---pattern KEY_Arabic_9 = 16778857 :: Int32---pattern KEY_Arabic_8 = 16778856 :: Int32---pattern KEY_Arabic_7 = 16778855 :: Int32---pattern KEY_Arabic_6 = 16778854 :: Int32---pattern KEY_Arabic_5 = 16778853 :: Int32---pattern KEY_Arabic_4 = 16778852 :: Int32---pattern KEY_Arabic_3 = 16778851 :: Int32---pattern KEY_Arabic_2 = 16778850 :: Int32---pattern KEY_Arabic_1 = 16778849 :: Int32---pattern KEY_Arabic_0 = 16778848 :: Int32---pattern KEY_ApplicationRight = 269025105 :: Int32---pattern KEY_ApplicationLeft = 269025104 :: Int32---pattern KEY_Aogonek = 417 :: Int32---pattern KEY_Amacron = 960 :: Int32---pattern KEY_Alt_R = 65514 :: Int32---pattern KEY_Alt_L = 65513 :: Int32---pattern KEY_Ahook = 16785058 :: Int32---pattern KEY_Agrave = 192 :: Int32---pattern KEY_Adiaeresis = 196 :: Int32---pattern KEY_AddFavorite = 269025081 :: Int32---pattern KEY_Acircumflextilde = 16785066 :: Int32---pattern KEY_Acircumflexhook = 16785064 :: Int32---pattern KEY_Acircumflexgrave = 16785062 :: Int32---pattern KEY_Acircumflexbelowdot = 16785068 :: Int32---pattern KEY_Acircumflexacute = 16785060 :: Int32---pattern KEY_Acircumflex = 194 :: Int32---pattern KEY_AccessX_Feedback_Enable = 65137 :: Int32---pattern KEY_AccessX_Enable = 65136 :: Int32---pattern KEY_Abrevetilde = 16785076 :: Int32---pattern KEY_Abrevehook = 16785074 :: Int32---pattern KEY_Abrevegrave = 16785072 :: Int32---pattern KEY_Abrevebelowdot = 16785078 :: Int32---pattern KEY_Abreveacute = 16785070 :: Int32---pattern KEY_Abreve = 451 :: Int32---pattern KEY_Abelowdot = 16785056 :: Int32---pattern KEY_Aacute = 193 :: Int32---pattern KEY_AE = 198 :: Int32---pattern KEY_A = 65 :: Int32---pattern KEY_9 = 57 :: Int32---pattern KEY_8 = 56 :: Int32---pattern KEY_7 = 55 :: Int32---pattern KEY_6 = 54 :: Int32---pattern KEY_5 = 53 :: Int32---pattern KEY_4 = 52 :: Int32---pattern KEY_3270_Test = 64781 :: Int32---pattern KEY_3270_Setup = 64791 :: Int32---pattern KEY_3270_Rule = 64788 :: Int32---pattern KEY_3270_Right2 = 64771 :: Int32---pattern KEY_3270_Reset = 64776 :: Int32---pattern KEY_3270_Record = 64792 :: Int32---pattern KEY_3270_Quit = 64777 :: Int32---pattern KEY_3270_PrintScreen = 64797 :: Int32---pattern KEY_3270_Play = 64790 :: Int32---pattern KEY_3270_PA3 = 64780 :: Int32---pattern KEY_3270_PA2 = 64779 :: Int32---pattern KEY_3270_PA1 = 64778 :: Int32---pattern KEY_3270_Left2 = 64772 :: Int32---pattern KEY_3270_KeyClick = 64785 :: Int32---pattern KEY_3270_Jump = 64786 :: Int32---pattern KEY_3270_Ident = 64787 :: Int32---pattern KEY_3270_FieldMark = 64770 :: Int32---pattern KEY_3270_ExSelect = 64795 :: Int32---pattern KEY_3270_EraseInput = 64775 :: Int32---pattern KEY_3270_EraseEOF = 64774 :: Int32---pattern KEY_3270_Enter = 64798 :: Int32---pattern KEY_3270_Duplicate = 64769 :: Int32---pattern KEY_3270_DeleteWord = 64794 :: Int32---pattern KEY_3270_CursorSelect = 64796 :: Int32---pattern KEY_3270_CursorBlink = 64783 :: Int32---pattern KEY_3270_Copy = 64789 :: Int32---pattern KEY_3270_ChangeScreen = 64793 :: Int32---pattern KEY_3270_BackTab = 64773 :: Int32---pattern KEY_3270_Attn = 64782 :: Int32---pattern KEY_3270_AltCursor = 64784 :: Int32---pattern KEY_3 = 51 :: Int32---pattern KEY_2 = 50 :: Int32---pattern KEY_1 = 49 :: Int32---pattern KEY_0 = 48 :: Int32---pattern EVENT_STOP = True :: Bool---pattern EVENT_PROPAGATE = False :: Bool---pattern CURRENT_TIME = 0 :: Int32---pattern BUTTON_SECONDARY = 3 :: Int32---pattern BUTTON_PRIMARY = 1 :: Int32---pattern BUTTON_MIDDLE = 2 :: Int32--
− GI/Gdk/Enums.hs 
@@ -1,1395 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Enums-    ( -    catchGLError                            ,-    handleGLError                           ,---- * Exported types-    WindowWindowClass(..)                   ,-    WindowTypeHint(..)                      ,-    WindowType(..)                          ,-    WindowEdge(..)                          ,-    VisualType(..)                          ,-    VisibilityState(..)                     ,-    TouchpadGesturePhase(..)                ,-    Status(..)                              ,-    SettingAction(..)                       ,-    ScrollDirection(..)                     ,-    PropertyState(..)                       ,-    PropMode(..)                            ,-    OwnerChange(..)                         ,-    NotifyType(..)                          ,-    ModifierIntent(..)                      ,-    InputSource(..)                         ,-    InputMode(..)                           ,-    Gravity(..)                             ,-    GrabStatus(..)                          ,-    GrabOwnership(..)                       ,-    GLError(..)                             ,-    FullscreenMode(..)                      ,-    FilterReturn(..)                        ,-    EventType(..)                           ,-    DragProtocol(..)                        ,-    DeviceType(..)                          ,-    CursorType(..)                          ,-    CrossingMode(..)                        ,-    ByteOrder(..)                           ,-    AxisUse(..)                             ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Enum WindowWindowClass--data WindowWindowClass = -      WindowWindowClassInputOutput-    | WindowWindowClassInputOnly-    | AnotherWindowWindowClass Int-    deriving (Show, Eq)--instance Enum WindowWindowClass where-    fromEnum WindowWindowClassInputOutput = 0-    fromEnum WindowWindowClassInputOnly = 1-    fromEnum (AnotherWindowWindowClass k) = k--    toEnum 0 = WindowWindowClassInputOutput-    toEnum 1 = WindowWindowClassInputOnly-    toEnum k = AnotherWindowWindowClass k--foreign import ccall "gdk_window_window_class_get_type" c_gdk_window_window_class_get_type :: -    IO GType--instance BoxedEnum WindowWindowClass where-    boxedEnumType _ = c_gdk_window_window_class_get_type---- Enum WindowTypeHint--data WindowTypeHint = -      WindowTypeHintNormal-    | WindowTypeHintDialog-    | WindowTypeHintMenu-    | WindowTypeHintToolbar-    | WindowTypeHintSplashscreen-    | WindowTypeHintUtility-    | WindowTypeHintDock-    | WindowTypeHintDesktop-    | WindowTypeHintDropdownMenu-    | WindowTypeHintPopupMenu-    | WindowTypeHintTooltip-    | WindowTypeHintNotification-    | WindowTypeHintCombo-    | WindowTypeHintDnd-    | AnotherWindowTypeHint Int-    deriving (Show, Eq)--instance Enum WindowTypeHint where-    fromEnum WindowTypeHintNormal = 0-    fromEnum WindowTypeHintDialog = 1-    fromEnum WindowTypeHintMenu = 2-    fromEnum WindowTypeHintToolbar = 3-    fromEnum WindowTypeHintSplashscreen = 4-    fromEnum WindowTypeHintUtility = 5-    fromEnum WindowTypeHintDock = 6-    fromEnum WindowTypeHintDesktop = 7-    fromEnum WindowTypeHintDropdownMenu = 8-    fromEnum WindowTypeHintPopupMenu = 9-    fromEnum WindowTypeHintTooltip = 10-    fromEnum WindowTypeHintNotification = 11-    fromEnum WindowTypeHintCombo = 12-    fromEnum WindowTypeHintDnd = 13-    fromEnum (AnotherWindowTypeHint k) = k--    toEnum 0 = WindowTypeHintNormal-    toEnum 1 = WindowTypeHintDialog-    toEnum 2 = WindowTypeHintMenu-    toEnum 3 = WindowTypeHintToolbar-    toEnum 4 = WindowTypeHintSplashscreen-    toEnum 5 = WindowTypeHintUtility-    toEnum 6 = WindowTypeHintDock-    toEnum 7 = WindowTypeHintDesktop-    toEnum 8 = WindowTypeHintDropdownMenu-    toEnum 9 = WindowTypeHintPopupMenu-    toEnum 10 = WindowTypeHintTooltip-    toEnum 11 = WindowTypeHintNotification-    toEnum 12 = WindowTypeHintCombo-    toEnum 13 = WindowTypeHintDnd-    toEnum k = AnotherWindowTypeHint k--foreign import ccall "gdk_window_type_hint_get_type" c_gdk_window_type_hint_get_type :: -    IO GType--instance BoxedEnum WindowTypeHint where-    boxedEnumType _ = c_gdk_window_type_hint_get_type---- Enum WindowType--data WindowType = -      WindowTypeRoot-    | WindowTypeToplevel-    | WindowTypeChild-    | WindowTypeTemp-    | WindowTypeForeign-    | WindowTypeOffscreen-    | WindowTypeSubsurface-    | AnotherWindowType Int-    deriving (Show, Eq)--instance Enum WindowType where-    fromEnum WindowTypeRoot = 0-    fromEnum WindowTypeToplevel = 1-    fromEnum WindowTypeChild = 2-    fromEnum WindowTypeTemp = 3-    fromEnum WindowTypeForeign = 4-    fromEnum WindowTypeOffscreen = 5-    fromEnum WindowTypeSubsurface = 6-    fromEnum (AnotherWindowType k) = k--    toEnum 0 = WindowTypeRoot-    toEnum 1 = WindowTypeToplevel-    toEnum 2 = WindowTypeChild-    toEnum 3 = WindowTypeTemp-    toEnum 4 = WindowTypeForeign-    toEnum 5 = WindowTypeOffscreen-    toEnum 6 = WindowTypeSubsurface-    toEnum k = AnotherWindowType k--foreign import ccall "gdk_window_type_get_type" c_gdk_window_type_get_type :: -    IO GType--instance BoxedEnum WindowType where-    boxedEnumType _ = c_gdk_window_type_get_type---- Enum WindowEdge--data WindowEdge = -      WindowEdgeNorthWest-    | WindowEdgeNorth-    | WindowEdgeNorthEast-    | WindowEdgeWest-    | WindowEdgeEast-    | WindowEdgeSouthWest-    | WindowEdgeSouth-    | WindowEdgeSouthEast-    | AnotherWindowEdge Int-    deriving (Show, Eq)--instance Enum WindowEdge where-    fromEnum WindowEdgeNorthWest = 0-    fromEnum WindowEdgeNorth = 1-    fromEnum WindowEdgeNorthEast = 2-    fromEnum WindowEdgeWest = 3-    fromEnum WindowEdgeEast = 4-    fromEnum WindowEdgeSouthWest = 5-    fromEnum WindowEdgeSouth = 6-    fromEnum WindowEdgeSouthEast = 7-    fromEnum (AnotherWindowEdge k) = k--    toEnum 0 = WindowEdgeNorthWest-    toEnum 1 = WindowEdgeNorth-    toEnum 2 = WindowEdgeNorthEast-    toEnum 3 = WindowEdgeWest-    toEnum 4 = WindowEdgeEast-    toEnum 5 = WindowEdgeSouthWest-    toEnum 6 = WindowEdgeSouth-    toEnum 7 = WindowEdgeSouthEast-    toEnum k = AnotherWindowEdge k--foreign import ccall "gdk_window_edge_get_type" c_gdk_window_edge_get_type :: -    IO GType--instance BoxedEnum WindowEdge where-    boxedEnumType _ = c_gdk_window_edge_get_type---- Enum VisualType--data VisualType = -      VisualTypeStaticGray-    | VisualTypeGrayscale-    | VisualTypeStaticColor-    | VisualTypePseudoColor-    | VisualTypeTrueColor-    | VisualTypeDirectColor-    | AnotherVisualType Int-    deriving (Show, Eq)--instance Enum VisualType where-    fromEnum VisualTypeStaticGray = 0-    fromEnum VisualTypeGrayscale = 1-    fromEnum VisualTypeStaticColor = 2-    fromEnum VisualTypePseudoColor = 3-    fromEnum VisualTypeTrueColor = 4-    fromEnum VisualTypeDirectColor = 5-    fromEnum (AnotherVisualType k) = k--    toEnum 0 = VisualTypeStaticGray-    toEnum 1 = VisualTypeGrayscale-    toEnum 2 = VisualTypeStaticColor-    toEnum 3 = VisualTypePseudoColor-    toEnum 4 = VisualTypeTrueColor-    toEnum 5 = VisualTypeDirectColor-    toEnum k = AnotherVisualType k--foreign import ccall "gdk_visual_type_get_type" c_gdk_visual_type_get_type :: -    IO GType--instance BoxedEnum VisualType where-    boxedEnumType _ = c_gdk_visual_type_get_type---- Enum VisibilityState--data VisibilityState = -      VisibilityStateUnobscured-    | VisibilityStatePartial-    | VisibilityStateFullyObscured-    | AnotherVisibilityState Int-    deriving (Show, Eq)--instance Enum VisibilityState where-    fromEnum VisibilityStateUnobscured = 0-    fromEnum VisibilityStatePartial = 1-    fromEnum VisibilityStateFullyObscured = 2-    fromEnum (AnotherVisibilityState k) = k--    toEnum 0 = VisibilityStateUnobscured-    toEnum 1 = VisibilityStatePartial-    toEnum 2 = VisibilityStateFullyObscured-    toEnum k = AnotherVisibilityState k--foreign import ccall "gdk_visibility_state_get_type" c_gdk_visibility_state_get_type :: -    IO GType--instance BoxedEnum VisibilityState where-    boxedEnumType _ = c_gdk_visibility_state_get_type---- Enum TouchpadGesturePhase--data TouchpadGesturePhase = -      TouchpadGesturePhaseBegin-    | TouchpadGesturePhaseUpdate-    | TouchpadGesturePhaseEnd-    | TouchpadGesturePhaseCancel-    | AnotherTouchpadGesturePhase Int-    deriving (Show, Eq)--instance Enum TouchpadGesturePhase where-    fromEnum TouchpadGesturePhaseBegin = 0-    fromEnum TouchpadGesturePhaseUpdate = 1-    fromEnum TouchpadGesturePhaseEnd = 2-    fromEnum TouchpadGesturePhaseCancel = 3-    fromEnum (AnotherTouchpadGesturePhase k) = k--    toEnum 0 = TouchpadGesturePhaseBegin-    toEnum 1 = TouchpadGesturePhaseUpdate-    toEnum 2 = TouchpadGesturePhaseEnd-    toEnum 3 = TouchpadGesturePhaseCancel-    toEnum k = AnotherTouchpadGesturePhase k--foreign import ccall "gdk_touchpad_gesture_phase_get_type" c_gdk_touchpad_gesture_phase_get_type :: -    IO GType--instance BoxedEnum TouchpadGesturePhase where-    boxedEnumType _ = c_gdk_touchpad_gesture_phase_get_type---- Enum Status--data Status = -      StatusOk-    | StatusError-    | StatusErrorParam-    | StatusErrorFile-    | StatusErrorMem-    | AnotherStatus Int-    deriving (Show, Eq)--instance Enum Status where-    fromEnum StatusOk = 0-    fromEnum StatusError = -1-    fromEnum StatusErrorParam = -2-    fromEnum StatusErrorFile = -3-    fromEnum StatusErrorMem = -4-    fromEnum (AnotherStatus k) = k--    toEnum -4 = StatusErrorMem-    toEnum -3 = StatusErrorFile-    toEnum -2 = StatusErrorParam-    toEnum -1 = StatusError-    toEnum 0 = StatusOk-    toEnum k = AnotherStatus k--foreign import ccall "gdk_status_get_type" c_gdk_status_get_type :: -    IO GType--instance BoxedEnum Status where-    boxedEnumType _ = c_gdk_status_get_type---- Enum SettingAction--data SettingAction = -      SettingActionNew-    | SettingActionChanged-    | SettingActionDeleted-    | AnotherSettingAction Int-    deriving (Show, Eq)--instance Enum SettingAction where-    fromEnum SettingActionNew = 0-    fromEnum SettingActionChanged = 1-    fromEnum SettingActionDeleted = 2-    fromEnum (AnotherSettingAction k) = k--    toEnum 0 = SettingActionNew-    toEnum 1 = SettingActionChanged-    toEnum 2 = SettingActionDeleted-    toEnum k = AnotherSettingAction k--foreign import ccall "gdk_setting_action_get_type" c_gdk_setting_action_get_type :: -    IO GType--instance BoxedEnum SettingAction where-    boxedEnumType _ = c_gdk_setting_action_get_type---- Enum ScrollDirection--data ScrollDirection = -      ScrollDirectionUp-    | ScrollDirectionDown-    | ScrollDirectionLeft-    | ScrollDirectionRight-    | ScrollDirectionSmooth-    | AnotherScrollDirection Int-    deriving (Show, Eq)--instance Enum ScrollDirection where-    fromEnum ScrollDirectionUp = 0-    fromEnum ScrollDirectionDown = 1-    fromEnum ScrollDirectionLeft = 2-    fromEnum ScrollDirectionRight = 3-    fromEnum ScrollDirectionSmooth = 4-    fromEnum (AnotherScrollDirection k) = k--    toEnum 0 = ScrollDirectionUp-    toEnum 1 = ScrollDirectionDown-    toEnum 2 = ScrollDirectionLeft-    toEnum 3 = ScrollDirectionRight-    toEnum 4 = ScrollDirectionSmooth-    toEnum k = AnotherScrollDirection k--foreign import ccall "gdk_scroll_direction_get_type" c_gdk_scroll_direction_get_type :: -    IO GType--instance BoxedEnum ScrollDirection where-    boxedEnumType _ = c_gdk_scroll_direction_get_type---- Enum PropertyState--data PropertyState = -      PropertyStateNewValue-    | PropertyStateDelete-    | AnotherPropertyState Int-    deriving (Show, Eq)--instance Enum PropertyState where-    fromEnum PropertyStateNewValue = 0-    fromEnum PropertyStateDelete = 1-    fromEnum (AnotherPropertyState k) = k--    toEnum 0 = PropertyStateNewValue-    toEnum 1 = PropertyStateDelete-    toEnum k = AnotherPropertyState k--foreign import ccall "gdk_property_state_get_type" c_gdk_property_state_get_type :: -    IO GType--instance BoxedEnum PropertyState where-    boxedEnumType _ = c_gdk_property_state_get_type---- Enum PropMode--data PropMode = -      PropModeReplace-    | PropModePrepend-    | PropModeAppend-    | AnotherPropMode Int-    deriving (Show, Eq)--instance Enum PropMode where-    fromEnum PropModeReplace = 0-    fromEnum PropModePrepend = 1-    fromEnum PropModeAppend = 2-    fromEnum (AnotherPropMode k) = k--    toEnum 0 = PropModeReplace-    toEnum 1 = PropModePrepend-    toEnum 2 = PropModeAppend-    toEnum k = AnotherPropMode k--foreign import ccall "gdk_prop_mode_get_type" c_gdk_prop_mode_get_type :: -    IO GType--instance BoxedEnum PropMode where-    boxedEnumType _ = c_gdk_prop_mode_get_type---- Enum OwnerChange--data OwnerChange = -      OwnerChangeNewOwner-    | OwnerChangeDestroy-    | OwnerChangeClose-    | AnotherOwnerChange Int-    deriving (Show, Eq)--instance Enum OwnerChange where-    fromEnum OwnerChangeNewOwner = 0-    fromEnum OwnerChangeDestroy = 1-    fromEnum OwnerChangeClose = 2-    fromEnum (AnotherOwnerChange k) = k--    toEnum 0 = OwnerChangeNewOwner-    toEnum 1 = OwnerChangeDestroy-    toEnum 2 = OwnerChangeClose-    toEnum k = AnotherOwnerChange k--foreign import ccall "gdk_owner_change_get_type" c_gdk_owner_change_get_type :: -    IO GType--instance BoxedEnum OwnerChange where-    boxedEnumType _ = c_gdk_owner_change_get_type---- Enum NotifyType--data NotifyType = -      NotifyTypeAncestor-    | NotifyTypeVirtual-    | NotifyTypeInferior-    | NotifyTypeNonlinear-    | NotifyTypeNonlinearVirtual-    | NotifyTypeUnknown-    | AnotherNotifyType Int-    deriving (Show, Eq)--instance Enum NotifyType where-    fromEnum NotifyTypeAncestor = 0-    fromEnum NotifyTypeVirtual = 1-    fromEnum NotifyTypeInferior = 2-    fromEnum NotifyTypeNonlinear = 3-    fromEnum NotifyTypeNonlinearVirtual = 4-    fromEnum NotifyTypeUnknown = 5-    fromEnum (AnotherNotifyType k) = k--    toEnum 0 = NotifyTypeAncestor-    toEnum 1 = NotifyTypeVirtual-    toEnum 2 = NotifyTypeInferior-    toEnum 3 = NotifyTypeNonlinear-    toEnum 4 = NotifyTypeNonlinearVirtual-    toEnum 5 = NotifyTypeUnknown-    toEnum k = AnotherNotifyType k--foreign import ccall "gdk_notify_type_get_type" c_gdk_notify_type_get_type :: -    IO GType--instance BoxedEnum NotifyType where-    boxedEnumType _ = c_gdk_notify_type_get_type---- Enum ModifierIntent--data ModifierIntent = -      ModifierIntentPrimaryAccelerator-    | ModifierIntentContextMenu-    | ModifierIntentExtendSelection-    | ModifierIntentModifySelection-    | ModifierIntentNoTextInput-    | ModifierIntentShiftGroup-    | ModifierIntentDefaultModMask-    | AnotherModifierIntent Int-    deriving (Show, Eq)--instance Enum ModifierIntent where-    fromEnum ModifierIntentPrimaryAccelerator = 0-    fromEnum ModifierIntentContextMenu = 1-    fromEnum ModifierIntentExtendSelection = 2-    fromEnum ModifierIntentModifySelection = 3-    fromEnum ModifierIntentNoTextInput = 4-    fromEnum ModifierIntentShiftGroup = 5-    fromEnum ModifierIntentDefaultModMask = 6-    fromEnum (AnotherModifierIntent k) = k--    toEnum 0 = ModifierIntentPrimaryAccelerator-    toEnum 1 = ModifierIntentContextMenu-    toEnum 2 = ModifierIntentExtendSelection-    toEnum 3 = ModifierIntentModifySelection-    toEnum 4 = ModifierIntentNoTextInput-    toEnum 5 = ModifierIntentShiftGroup-    toEnum 6 = ModifierIntentDefaultModMask-    toEnum k = AnotherModifierIntent k--foreign import ccall "gdk_modifier_intent_get_type" c_gdk_modifier_intent_get_type :: -    IO GType--instance BoxedEnum ModifierIntent where-    boxedEnumType _ = c_gdk_modifier_intent_get_type---- Enum InputSource--data InputSource = -      InputSourceMouse-    | InputSourcePen-    | InputSourceEraser-    | InputSourceCursor-    | InputSourceKeyboard-    | InputSourceTouchscreen-    | InputSourceTouchpad-    | AnotherInputSource Int-    deriving (Show, Eq)--instance Enum InputSource where-    fromEnum InputSourceMouse = 0-    fromEnum InputSourcePen = 1-    fromEnum InputSourceEraser = 2-    fromEnum InputSourceCursor = 3-    fromEnum InputSourceKeyboard = 4-    fromEnum InputSourceTouchscreen = 5-    fromEnum InputSourceTouchpad = 6-    fromEnum (AnotherInputSource k) = k--    toEnum 0 = InputSourceMouse-    toEnum 1 = InputSourcePen-    toEnum 2 = InputSourceEraser-    toEnum 3 = InputSourceCursor-    toEnum 4 = InputSourceKeyboard-    toEnum 5 = InputSourceTouchscreen-    toEnum 6 = InputSourceTouchpad-    toEnum k = AnotherInputSource k--foreign import ccall "gdk_input_source_get_type" c_gdk_input_source_get_type :: -    IO GType--instance BoxedEnum InputSource where-    boxedEnumType _ = c_gdk_input_source_get_type---- Enum InputMode--data InputMode = -      InputModeDisabled-    | InputModeScreen-    | InputModeWindow-    | AnotherInputMode Int-    deriving (Show, Eq)--instance Enum InputMode where-    fromEnum InputModeDisabled = 0-    fromEnum InputModeScreen = 1-    fromEnum InputModeWindow = 2-    fromEnum (AnotherInputMode k) = k--    toEnum 0 = InputModeDisabled-    toEnum 1 = InputModeScreen-    toEnum 2 = InputModeWindow-    toEnum k = AnotherInputMode k--foreign import ccall "gdk_input_mode_get_type" c_gdk_input_mode_get_type :: -    IO GType--instance BoxedEnum InputMode where-    boxedEnumType _ = c_gdk_input_mode_get_type---- Enum Gravity--data Gravity = -      GravityNorthWest-    | GravityNorth-    | GravityNorthEast-    | GravityWest-    | GravityCenter-    | GravityEast-    | GravitySouthWest-    | GravitySouth-    | GravitySouthEast-    | GravityStatic-    | AnotherGravity Int-    deriving (Show, Eq)--instance Enum Gravity where-    fromEnum GravityNorthWest = 1-    fromEnum GravityNorth = 2-    fromEnum GravityNorthEast = 3-    fromEnum GravityWest = 4-    fromEnum GravityCenter = 5-    fromEnum GravityEast = 6-    fromEnum GravitySouthWest = 7-    fromEnum GravitySouth = 8-    fromEnum GravitySouthEast = 9-    fromEnum GravityStatic = 10-    fromEnum (AnotherGravity k) = k--    toEnum 1 = GravityNorthWest-    toEnum 2 = GravityNorth-    toEnum 3 = GravityNorthEast-    toEnum 4 = GravityWest-    toEnum 5 = GravityCenter-    toEnum 6 = GravityEast-    toEnum 7 = GravitySouthWest-    toEnum 8 = GravitySouth-    toEnum 9 = GravitySouthEast-    toEnum 10 = GravityStatic-    toEnum k = AnotherGravity k--foreign import ccall "gdk_gravity_get_type" c_gdk_gravity_get_type :: -    IO GType--instance BoxedEnum Gravity where-    boxedEnumType _ = c_gdk_gravity_get_type---- Enum GrabStatus--data GrabStatus = -      GrabStatusSuccess-    | GrabStatusAlreadyGrabbed-    | GrabStatusInvalidTime-    | GrabStatusNotViewable-    | GrabStatusFrozen-    | GrabStatusFailed-    | AnotherGrabStatus Int-    deriving (Show, Eq)--instance Enum GrabStatus where-    fromEnum GrabStatusSuccess = 0-    fromEnum GrabStatusAlreadyGrabbed = 1-    fromEnum GrabStatusInvalidTime = 2-    fromEnum GrabStatusNotViewable = 3-    fromEnum GrabStatusFrozen = 4-    fromEnum GrabStatusFailed = 5-    fromEnum (AnotherGrabStatus k) = k--    toEnum 0 = GrabStatusSuccess-    toEnum 1 = GrabStatusAlreadyGrabbed-    toEnum 2 = GrabStatusInvalidTime-    toEnum 3 = GrabStatusNotViewable-    toEnum 4 = GrabStatusFrozen-    toEnum 5 = GrabStatusFailed-    toEnum k = AnotherGrabStatus k--foreign import ccall "gdk_grab_status_get_type" c_gdk_grab_status_get_type :: -    IO GType--instance BoxedEnum GrabStatus where-    boxedEnumType _ = c_gdk_grab_status_get_type---- Enum GrabOwnership--data GrabOwnership = -      GrabOwnershipNone-    | GrabOwnershipWindow-    | GrabOwnershipApplication-    | AnotherGrabOwnership Int-    deriving (Show, Eq)--instance Enum GrabOwnership where-    fromEnum GrabOwnershipNone = 0-    fromEnum GrabOwnershipWindow = 1-    fromEnum GrabOwnershipApplication = 2-    fromEnum (AnotherGrabOwnership k) = k--    toEnum 0 = GrabOwnershipNone-    toEnum 1 = GrabOwnershipWindow-    toEnum 2 = GrabOwnershipApplication-    toEnum k = AnotherGrabOwnership k--foreign import ccall "gdk_grab_ownership_get_type" c_gdk_grab_ownership_get_type :: -    IO GType--instance BoxedEnum GrabOwnership where-    boxedEnumType _ = c_gdk_grab_ownership_get_type---- Enum GLError--data GLError = -      GLErrorNotAvailable-    | GLErrorUnsupportedFormat-    | GLErrorUnsupportedProfile-    | AnotherGLError Int-    deriving (Show, Eq)--instance Enum GLError where-    fromEnum GLErrorNotAvailable = 0-    fromEnum GLErrorUnsupportedFormat = 1-    fromEnum GLErrorUnsupportedProfile = 2-    fromEnum (AnotherGLError k) = k--    toEnum 0 = GLErrorNotAvailable-    toEnum 1 = GLErrorUnsupportedFormat-    toEnum 2 = GLErrorUnsupportedProfile-    toEnum k = AnotherGLError k--instance GErrorClass GLError where-    gerrorClassDomain _ = "gdk-gl-error-quark"--catchGLError ::-    IO a ->-    (GLError -> GErrorMessage -> IO a) ->-    IO a-catchGLError = catchGErrorJustDomain--handleGLError ::-    (GLError -> GErrorMessage -> IO a) ->-    IO a ->-    IO a-handleGLError = handleGErrorJustDomain--foreign import ccall "gdk_gl_error_get_type" c_gdk_gl_error_get_type :: -    IO GType--instance BoxedEnum GLError where-    boxedEnumType _ = c_gdk_gl_error_get_type---- Enum FullscreenMode--data FullscreenMode = -      FullscreenModeCurrentMonitor-    | FullscreenModeAllMonitors-    | AnotherFullscreenMode Int-    deriving (Show, Eq)--instance Enum FullscreenMode where-    fromEnum FullscreenModeCurrentMonitor = 0-    fromEnum FullscreenModeAllMonitors = 1-    fromEnum (AnotherFullscreenMode k) = k--    toEnum 0 = FullscreenModeCurrentMonitor-    toEnum 1 = FullscreenModeAllMonitors-    toEnum k = AnotherFullscreenMode k--foreign import ccall "gdk_fullscreen_mode_get_type" c_gdk_fullscreen_mode_get_type :: -    IO GType--instance BoxedEnum FullscreenMode where-    boxedEnumType _ = c_gdk_fullscreen_mode_get_type---- Enum FilterReturn--data FilterReturn = -      FilterReturnContinue-    | FilterReturnTranslate-    | FilterReturnRemove-    | AnotherFilterReturn Int-    deriving (Show, Eq)--instance Enum FilterReturn where-    fromEnum FilterReturnContinue = 0-    fromEnum FilterReturnTranslate = 1-    fromEnum FilterReturnRemove = 2-    fromEnum (AnotherFilterReturn k) = k--    toEnum 0 = FilterReturnContinue-    toEnum 1 = FilterReturnTranslate-    toEnum 2 = FilterReturnRemove-    toEnum k = AnotherFilterReturn k--foreign import ccall "gdk_filter_return_get_type" c_gdk_filter_return_get_type :: -    IO GType--instance BoxedEnum FilterReturn where-    boxedEnumType _ = c_gdk_filter_return_get_type---- Enum EventType--data EventType = -      EventTypeNothing-    | EventTypeDelete-    | EventTypeDestroy-    | EventTypeExpose-    | EventTypeMotionNotify-    | EventTypeButtonPress-    | EventType2buttonPress-    | EventTypeDoubleButtonPress-    | EventType3buttonPress-    | EventTypeTripleButtonPress-    | EventTypeButtonRelease-    | EventTypeKeyPress-    | EventTypeKeyRelease-    | EventTypeEnterNotify-    | EventTypeLeaveNotify-    | EventTypeFocusChange-    | EventTypeConfigure-    | EventTypeMap-    | EventTypeUnmap-    | EventTypePropertyNotify-    | EventTypeSelectionClear-    | EventTypeSelectionRequest-    | EventTypeSelectionNotify-    | EventTypeProximityIn-    | EventTypeProximityOut-    | EventTypeDragEnter-    | EventTypeDragLeave-    | EventTypeDragMotion-    | EventTypeDragStatus-    | EventTypeDropStart-    | EventTypeDropFinished-    | EventTypeClientEvent-    | EventTypeVisibilityNotify-    | EventTypeScroll-    | EventTypeWindowState-    | EventTypeSetting-    | EventTypeOwnerChange-    | EventTypeGrabBroken-    | EventTypeDamage-    | EventTypeTouchBegin-    | EventTypeTouchUpdate-    | EventTypeTouchEnd-    | EventTypeTouchCancel-    | EventTypeTouchpadSwipe-    | EventTypeTouchpadPinch-    | EventTypeEventLast-    | AnotherEventType Int-    deriving (Show, Eq)--instance Enum EventType where-    fromEnum EventTypeNothing = -1-    fromEnum EventTypeDelete = 0-    fromEnum EventTypeDestroy = 1-    fromEnum EventTypeExpose = 2-    fromEnum EventTypeMotionNotify = 3-    fromEnum EventTypeButtonPress = 4-    fromEnum EventType2buttonPress = 5-    fromEnum EventTypeDoubleButtonPress = 5-    fromEnum EventType3buttonPress = 6-    fromEnum EventTypeTripleButtonPress = 6-    fromEnum EventTypeButtonRelease = 7-    fromEnum EventTypeKeyPress = 8-    fromEnum EventTypeKeyRelease = 9-    fromEnum EventTypeEnterNotify = 10-    fromEnum EventTypeLeaveNotify = 11-    fromEnum EventTypeFocusChange = 12-    fromEnum EventTypeConfigure = 13-    fromEnum EventTypeMap = 14-    fromEnum EventTypeUnmap = 15-    fromEnum EventTypePropertyNotify = 16-    fromEnum EventTypeSelectionClear = 17-    fromEnum EventTypeSelectionRequest = 18-    fromEnum EventTypeSelectionNotify = 19-    fromEnum EventTypeProximityIn = 20-    fromEnum EventTypeProximityOut = 21-    fromEnum EventTypeDragEnter = 22-    fromEnum EventTypeDragLeave = 23-    fromEnum EventTypeDragMotion = 24-    fromEnum EventTypeDragStatus = 25-    fromEnum EventTypeDropStart = 26-    fromEnum EventTypeDropFinished = 27-    fromEnum EventTypeClientEvent = 28-    fromEnum EventTypeVisibilityNotify = 29-    fromEnum EventTypeScroll = 31-    fromEnum EventTypeWindowState = 32-    fromEnum EventTypeSetting = 33-    fromEnum EventTypeOwnerChange = 34-    fromEnum EventTypeGrabBroken = 35-    fromEnum EventTypeDamage = 36-    fromEnum EventTypeTouchBegin = 37-    fromEnum EventTypeTouchUpdate = 38-    fromEnum EventTypeTouchEnd = 39-    fromEnum EventTypeTouchCancel = 40-    fromEnum EventTypeTouchpadSwipe = 41-    fromEnum EventTypeTouchpadPinch = 42-    fromEnum EventTypeEventLast = 43-    fromEnum (AnotherEventType k) = k--    toEnum -1 = EventTypeNothing-    toEnum 0 = EventTypeDelete-    toEnum 1 = EventTypeDestroy-    toEnum 2 = EventTypeExpose-    toEnum 3 = EventTypeMotionNotify-    toEnum 4 = EventTypeButtonPress-    toEnum 5 = EventType2buttonPress-    toEnum 6 = EventType3buttonPress-    toEnum 7 = EventTypeButtonRelease-    toEnum 8 = EventTypeKeyPress-    toEnum 9 = EventTypeKeyRelease-    toEnum 10 = EventTypeEnterNotify-    toEnum 11 = EventTypeLeaveNotify-    toEnum 12 = EventTypeFocusChange-    toEnum 13 = EventTypeConfigure-    toEnum 14 = EventTypeMap-    toEnum 15 = EventTypeUnmap-    toEnum 16 = EventTypePropertyNotify-    toEnum 17 = EventTypeSelectionClear-    toEnum 18 = EventTypeSelectionRequest-    toEnum 19 = EventTypeSelectionNotify-    toEnum 20 = EventTypeProximityIn-    toEnum 21 = EventTypeProximityOut-    toEnum 22 = EventTypeDragEnter-    toEnum 23 = EventTypeDragLeave-    toEnum 24 = EventTypeDragMotion-    toEnum 25 = EventTypeDragStatus-    toEnum 26 = EventTypeDropStart-    toEnum 27 = EventTypeDropFinished-    toEnum 28 = EventTypeClientEvent-    toEnum 29 = EventTypeVisibilityNotify-    toEnum 31 = EventTypeScroll-    toEnum 32 = EventTypeWindowState-    toEnum 33 = EventTypeSetting-    toEnum 34 = EventTypeOwnerChange-    toEnum 35 = EventTypeGrabBroken-    toEnum 36 = EventTypeDamage-    toEnum 37 = EventTypeTouchBegin-    toEnum 38 = EventTypeTouchUpdate-    toEnum 39 = EventTypeTouchEnd-    toEnum 40 = EventTypeTouchCancel-    toEnum 41 = EventTypeTouchpadSwipe-    toEnum 42 = EventTypeTouchpadPinch-    toEnum 43 = EventTypeEventLast-    toEnum k = AnotherEventType k--foreign import ccall "gdk_event_type_get_type" c_gdk_event_type_get_type :: -    IO GType--instance BoxedEnum EventType where-    boxedEnumType _ = c_gdk_event_type_get_type---- Enum DragProtocol--data DragProtocol = -      DragProtocolNone-    | DragProtocolMotif-    | DragProtocolXdnd-    | DragProtocolRootwin-    | DragProtocolWin32Dropfiles-    | DragProtocolOle2-    | DragProtocolLocal-    | DragProtocolWayland-    | AnotherDragProtocol Int-    deriving (Show, Eq)--instance Enum DragProtocol where-    fromEnum DragProtocolNone = 0-    fromEnum DragProtocolMotif = 1-    fromEnum DragProtocolXdnd = 2-    fromEnum DragProtocolRootwin = 3-    fromEnum DragProtocolWin32Dropfiles = 4-    fromEnum DragProtocolOle2 = 5-    fromEnum DragProtocolLocal = 6-    fromEnum DragProtocolWayland = 7-    fromEnum (AnotherDragProtocol k) = k--    toEnum 0 = DragProtocolNone-    toEnum 1 = DragProtocolMotif-    toEnum 2 = DragProtocolXdnd-    toEnum 3 = DragProtocolRootwin-    toEnum 4 = DragProtocolWin32Dropfiles-    toEnum 5 = DragProtocolOle2-    toEnum 6 = DragProtocolLocal-    toEnum 7 = DragProtocolWayland-    toEnum k = AnotherDragProtocol k--foreign import ccall "gdk_drag_protocol_get_type" c_gdk_drag_protocol_get_type :: -    IO GType--instance BoxedEnum DragProtocol where-    boxedEnumType _ = c_gdk_drag_protocol_get_type---- Enum DeviceType--data DeviceType = -      DeviceTypeMaster-    | DeviceTypeSlave-    | DeviceTypeFloating-    | AnotherDeviceType Int-    deriving (Show, Eq)--instance Enum DeviceType where-    fromEnum DeviceTypeMaster = 0-    fromEnum DeviceTypeSlave = 1-    fromEnum DeviceTypeFloating = 2-    fromEnum (AnotherDeviceType k) = k--    toEnum 0 = DeviceTypeMaster-    toEnum 1 = DeviceTypeSlave-    toEnum 2 = DeviceTypeFloating-    toEnum k = AnotherDeviceType k--foreign import ccall "gdk_device_type_get_type" c_gdk_device_type_get_type :: -    IO GType--instance BoxedEnum DeviceType where-    boxedEnumType _ = c_gdk_device_type_get_type---- Enum CursorType--data CursorType = -      CursorTypeXCursor-    | CursorTypeArrow-    | CursorTypeBasedArrowDown-    | CursorTypeBasedArrowUp-    | CursorTypeBoat-    | CursorTypeBogosity-    | CursorTypeBottomLeftCorner-    | CursorTypeBottomRightCorner-    | CursorTypeBottomSide-    | CursorTypeBottomTee-    | CursorTypeBoxSpiral-    | CursorTypeCenterPtr-    | CursorTypeCircle-    | CursorTypeClock-    | CursorTypeCoffeeMug-    | CursorTypeCross-    | CursorTypeCrossReverse-    | CursorTypeCrosshair-    | CursorTypeDiamondCross-    | CursorTypeDot-    | CursorTypeDotbox-    | CursorTypeDoubleArrow-    | CursorTypeDraftLarge-    | CursorTypeDraftSmall-    | CursorTypeDrapedBox-    | CursorTypeExchange-    | CursorTypeFleur-    | CursorTypeGobbler-    | CursorTypeGumby-    | CursorTypeHand1-    | CursorTypeHand2-    | CursorTypeHeart-    | CursorTypeIcon-    | CursorTypeIronCross-    | CursorTypeLeftPtr-    | CursorTypeLeftSide-    | CursorTypeLeftTee-    | CursorTypeLeftbutton-    | CursorTypeLlAngle-    | CursorTypeLrAngle-    | CursorTypeMan-    | CursorTypeMiddlebutton-    | CursorTypeMouse-    | CursorTypePencil-    | CursorTypePirate-    | CursorTypePlus-    | CursorTypeQuestionArrow-    | CursorTypeRightPtr-    | CursorTypeRightSide-    | CursorTypeRightTee-    | CursorTypeRightbutton-    | CursorTypeRtlLogo-    | CursorTypeSailboat-    | CursorTypeSbDownArrow-    | CursorTypeSbHDoubleArrow-    | CursorTypeSbLeftArrow-    | CursorTypeSbRightArrow-    | CursorTypeSbUpArrow-    | CursorTypeSbVDoubleArrow-    | CursorTypeShuttle-    | CursorTypeSizing-    | CursorTypeSpider-    | CursorTypeSpraycan-    | CursorTypeStar-    | CursorTypeTarget-    | CursorTypeTcross-    | CursorTypeTopLeftArrow-    | CursorTypeTopLeftCorner-    | CursorTypeTopRightCorner-    | CursorTypeTopSide-    | CursorTypeTopTee-    | CursorTypeTrek-    | CursorTypeUlAngle-    | CursorTypeUmbrella-    | CursorTypeUrAngle-    | CursorTypeWatch-    | CursorTypeXterm-    | CursorTypeLastCursor-    | CursorTypeBlankCursor-    | CursorTypeCursorIsPixmap-    | AnotherCursorType Int-    deriving (Show, Eq)--instance Enum CursorType where-    fromEnum CursorTypeXCursor = 0-    fromEnum CursorTypeArrow = 2-    fromEnum CursorTypeBasedArrowDown = 4-    fromEnum CursorTypeBasedArrowUp = 6-    fromEnum CursorTypeBoat = 8-    fromEnum CursorTypeBogosity = 10-    fromEnum CursorTypeBottomLeftCorner = 12-    fromEnum CursorTypeBottomRightCorner = 14-    fromEnum CursorTypeBottomSide = 16-    fromEnum CursorTypeBottomTee = 18-    fromEnum CursorTypeBoxSpiral = 20-    fromEnum CursorTypeCenterPtr = 22-    fromEnum CursorTypeCircle = 24-    fromEnum CursorTypeClock = 26-    fromEnum CursorTypeCoffeeMug = 28-    fromEnum CursorTypeCross = 30-    fromEnum CursorTypeCrossReverse = 32-    fromEnum CursorTypeCrosshair = 34-    fromEnum CursorTypeDiamondCross = 36-    fromEnum CursorTypeDot = 38-    fromEnum CursorTypeDotbox = 40-    fromEnum CursorTypeDoubleArrow = 42-    fromEnum CursorTypeDraftLarge = 44-    fromEnum CursorTypeDraftSmall = 46-    fromEnum CursorTypeDrapedBox = 48-    fromEnum CursorTypeExchange = 50-    fromEnum CursorTypeFleur = 52-    fromEnum CursorTypeGobbler = 54-    fromEnum CursorTypeGumby = 56-    fromEnum CursorTypeHand1 = 58-    fromEnum CursorTypeHand2 = 60-    fromEnum CursorTypeHeart = 62-    fromEnum CursorTypeIcon = 64-    fromEnum CursorTypeIronCross = 66-    fromEnum CursorTypeLeftPtr = 68-    fromEnum CursorTypeLeftSide = 70-    fromEnum CursorTypeLeftTee = 72-    fromEnum CursorTypeLeftbutton = 74-    fromEnum CursorTypeLlAngle = 76-    fromEnum CursorTypeLrAngle = 78-    fromEnum CursorTypeMan = 80-    fromEnum CursorTypeMiddlebutton = 82-    fromEnum CursorTypeMouse = 84-    fromEnum CursorTypePencil = 86-    fromEnum CursorTypePirate = 88-    fromEnum CursorTypePlus = 90-    fromEnum CursorTypeQuestionArrow = 92-    fromEnum CursorTypeRightPtr = 94-    fromEnum CursorTypeRightSide = 96-    fromEnum CursorTypeRightTee = 98-    fromEnum CursorTypeRightbutton = 100-    fromEnum CursorTypeRtlLogo = 102-    fromEnum CursorTypeSailboat = 104-    fromEnum CursorTypeSbDownArrow = 106-    fromEnum CursorTypeSbHDoubleArrow = 108-    fromEnum CursorTypeSbLeftArrow = 110-    fromEnum CursorTypeSbRightArrow = 112-    fromEnum CursorTypeSbUpArrow = 114-    fromEnum CursorTypeSbVDoubleArrow = 116-    fromEnum CursorTypeShuttle = 118-    fromEnum CursorTypeSizing = 120-    fromEnum CursorTypeSpider = 122-    fromEnum CursorTypeSpraycan = 124-    fromEnum CursorTypeStar = 126-    fromEnum CursorTypeTarget = 128-    fromEnum CursorTypeTcross = 130-    fromEnum CursorTypeTopLeftArrow = 132-    fromEnum CursorTypeTopLeftCorner = 134-    fromEnum CursorTypeTopRightCorner = 136-    fromEnum CursorTypeTopSide = 138-    fromEnum CursorTypeTopTee = 140-    fromEnum CursorTypeTrek = 142-    fromEnum CursorTypeUlAngle = 144-    fromEnum CursorTypeUmbrella = 146-    fromEnum CursorTypeUrAngle = 148-    fromEnum CursorTypeWatch = 150-    fromEnum CursorTypeXterm = 152-    fromEnum CursorTypeLastCursor = 153-    fromEnum CursorTypeBlankCursor = -2-    fromEnum CursorTypeCursorIsPixmap = -1-    fromEnum (AnotherCursorType k) = k--    toEnum -2 = CursorTypeBlankCursor-    toEnum -1 = CursorTypeCursorIsPixmap-    toEnum 0 = CursorTypeXCursor-    toEnum 2 = CursorTypeArrow-    toEnum 4 = CursorTypeBasedArrowDown-    toEnum 6 = CursorTypeBasedArrowUp-    toEnum 8 = CursorTypeBoat-    toEnum 10 = CursorTypeBogosity-    toEnum 12 = CursorTypeBottomLeftCorner-    toEnum 14 = CursorTypeBottomRightCorner-    toEnum 16 = CursorTypeBottomSide-    toEnum 18 = CursorTypeBottomTee-    toEnum 20 = CursorTypeBoxSpiral-    toEnum 22 = CursorTypeCenterPtr-    toEnum 24 = CursorTypeCircle-    toEnum 26 = CursorTypeClock-    toEnum 28 = CursorTypeCoffeeMug-    toEnum 30 = CursorTypeCross-    toEnum 32 = CursorTypeCrossReverse-    toEnum 34 = CursorTypeCrosshair-    toEnum 36 = CursorTypeDiamondCross-    toEnum 38 = CursorTypeDot-    toEnum 40 = CursorTypeDotbox-    toEnum 42 = CursorTypeDoubleArrow-    toEnum 44 = CursorTypeDraftLarge-    toEnum 46 = CursorTypeDraftSmall-    toEnum 48 = CursorTypeDrapedBox-    toEnum 50 = CursorTypeExchange-    toEnum 52 = CursorTypeFleur-    toEnum 54 = CursorTypeGobbler-    toEnum 56 = CursorTypeGumby-    toEnum 58 = CursorTypeHand1-    toEnum 60 = CursorTypeHand2-    toEnum 62 = CursorTypeHeart-    toEnum 64 = CursorTypeIcon-    toEnum 66 = CursorTypeIronCross-    toEnum 68 = CursorTypeLeftPtr-    toEnum 70 = CursorTypeLeftSide-    toEnum 72 = CursorTypeLeftTee-    toEnum 74 = CursorTypeLeftbutton-    toEnum 76 = CursorTypeLlAngle-    toEnum 78 = CursorTypeLrAngle-    toEnum 80 = CursorTypeMan-    toEnum 82 = CursorTypeMiddlebutton-    toEnum 84 = CursorTypeMouse-    toEnum 86 = CursorTypePencil-    toEnum 88 = CursorTypePirate-    toEnum 90 = CursorTypePlus-    toEnum 92 = CursorTypeQuestionArrow-    toEnum 94 = CursorTypeRightPtr-    toEnum 96 = CursorTypeRightSide-    toEnum 98 = CursorTypeRightTee-    toEnum 100 = CursorTypeRightbutton-    toEnum 102 = CursorTypeRtlLogo-    toEnum 104 = CursorTypeSailboat-    toEnum 106 = CursorTypeSbDownArrow-    toEnum 108 = CursorTypeSbHDoubleArrow-    toEnum 110 = CursorTypeSbLeftArrow-    toEnum 112 = CursorTypeSbRightArrow-    toEnum 114 = CursorTypeSbUpArrow-    toEnum 116 = CursorTypeSbVDoubleArrow-    toEnum 118 = CursorTypeShuttle-    toEnum 120 = CursorTypeSizing-    toEnum 122 = CursorTypeSpider-    toEnum 124 = CursorTypeSpraycan-    toEnum 126 = CursorTypeStar-    toEnum 128 = CursorTypeTarget-    toEnum 130 = CursorTypeTcross-    toEnum 132 = CursorTypeTopLeftArrow-    toEnum 134 = CursorTypeTopLeftCorner-    toEnum 136 = CursorTypeTopRightCorner-    toEnum 138 = CursorTypeTopSide-    toEnum 140 = CursorTypeTopTee-    toEnum 142 = CursorTypeTrek-    toEnum 144 = CursorTypeUlAngle-    toEnum 146 = CursorTypeUmbrella-    toEnum 148 = CursorTypeUrAngle-    toEnum 150 = CursorTypeWatch-    toEnum 152 = CursorTypeXterm-    toEnum 153 = CursorTypeLastCursor-    toEnum k = AnotherCursorType k--foreign import ccall "gdk_cursor_type_get_type" c_gdk_cursor_type_get_type :: -    IO GType--instance BoxedEnum CursorType where-    boxedEnumType _ = c_gdk_cursor_type_get_type---- Enum CrossingMode--data CrossingMode = -      CrossingModeNormal-    | CrossingModeGrab-    | CrossingModeUngrab-    | CrossingModeGtkGrab-    | CrossingModeGtkUngrab-    | CrossingModeStateChanged-    | CrossingModeTouchBegin-    | CrossingModeTouchEnd-    | CrossingModeDeviceSwitch-    | AnotherCrossingMode Int-    deriving (Show, Eq)--instance Enum CrossingMode where-    fromEnum CrossingModeNormal = 0-    fromEnum CrossingModeGrab = 1-    fromEnum CrossingModeUngrab = 2-    fromEnum CrossingModeGtkGrab = 3-    fromEnum CrossingModeGtkUngrab = 4-    fromEnum CrossingModeStateChanged = 5-    fromEnum CrossingModeTouchBegin = 6-    fromEnum CrossingModeTouchEnd = 7-    fromEnum CrossingModeDeviceSwitch = 8-    fromEnum (AnotherCrossingMode k) = k--    toEnum 0 = CrossingModeNormal-    toEnum 1 = CrossingModeGrab-    toEnum 2 = CrossingModeUngrab-    toEnum 3 = CrossingModeGtkGrab-    toEnum 4 = CrossingModeGtkUngrab-    toEnum 5 = CrossingModeStateChanged-    toEnum 6 = CrossingModeTouchBegin-    toEnum 7 = CrossingModeTouchEnd-    toEnum 8 = CrossingModeDeviceSwitch-    toEnum k = AnotherCrossingMode k--foreign import ccall "gdk_crossing_mode_get_type" c_gdk_crossing_mode_get_type :: -    IO GType--instance BoxedEnum CrossingMode where-    boxedEnumType _ = c_gdk_crossing_mode_get_type---- Enum ByteOrder--data ByteOrder = -      ByteOrderLsbFirst-    | ByteOrderMsbFirst-    | AnotherByteOrder Int-    deriving (Show, Eq)--instance Enum ByteOrder where-    fromEnum ByteOrderLsbFirst = 0-    fromEnum ByteOrderMsbFirst = 1-    fromEnum (AnotherByteOrder k) = k--    toEnum 0 = ByteOrderLsbFirst-    toEnum 1 = ByteOrderMsbFirst-    toEnum k = AnotherByteOrder k--foreign import ccall "gdk_byte_order_get_type" c_gdk_byte_order_get_type :: -    IO GType--instance BoxedEnum ByteOrder where-    boxedEnumType _ = c_gdk_byte_order_get_type---- Enum AxisUse--data AxisUse = -      AxisUseIgnore-    | AxisUseX-    | AxisUseY-    | AxisUsePressure-    | AxisUseXtilt-    | AxisUseYtilt-    | AxisUseWheel-    | AxisUseLast-    | AnotherAxisUse Int-    deriving (Show, Eq)--instance Enum AxisUse where-    fromEnum AxisUseIgnore = 0-    fromEnum AxisUseX = 1-    fromEnum AxisUseY = 2-    fromEnum AxisUsePressure = 3-    fromEnum AxisUseXtilt = 4-    fromEnum AxisUseYtilt = 5-    fromEnum AxisUseWheel = 6-    fromEnum AxisUseLast = 7-    fromEnum (AnotherAxisUse k) = k--    toEnum 0 = AxisUseIgnore-    toEnum 1 = AxisUseX-    toEnum 2 = AxisUseY-    toEnum 3 = AxisUsePressure-    toEnum 4 = AxisUseXtilt-    toEnum 5 = AxisUseYtilt-    toEnum 6 = AxisUseWheel-    toEnum 7 = AxisUseLast-    toEnum k = AnotherAxisUse k--foreign import ccall "gdk_axis_use_get_type" c_gdk_axis_use_get_type :: -    IO GType--instance BoxedEnum AxisUse where-    boxedEnumType _ = c_gdk_axis_use_get_type--
− GI/Gdk/Flags.hs 
@@ -1,537 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Flags-    ( ---- * Exported types-    WindowState(..)                         ,-    WindowHints(..)                         ,-    WindowAttributesType(..)                ,-    WMFunction(..)                          ,-    WMDecoration(..)                        ,-    ModifierType(..)                        ,-    FrameClockPhase(..)                     ,-    EventMask(..)                           ,-    DragAction(..)                          ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map------- Flags WindowState--data WindowState = -      WindowStateWithdrawn-    | WindowStateIconified-    | WindowStateMaximized-    | WindowStateSticky-    | WindowStateFullscreen-    | WindowStateAbove-    | WindowStateBelow-    | WindowStateFocused-    | WindowStateTiled-    | AnotherWindowState Int-    deriving (Show, Eq)--instance Enum WindowState where-    fromEnum WindowStateWithdrawn = 1-    fromEnum WindowStateIconified = 2-    fromEnum WindowStateMaximized = 4-    fromEnum WindowStateSticky = 8-    fromEnum WindowStateFullscreen = 16-    fromEnum WindowStateAbove = 32-    fromEnum WindowStateBelow = 64-    fromEnum WindowStateFocused = 128-    fromEnum WindowStateTiled = 256-    fromEnum (AnotherWindowState k) = k--    toEnum 1 = WindowStateWithdrawn-    toEnum 2 = WindowStateIconified-    toEnum 4 = WindowStateMaximized-    toEnum 8 = WindowStateSticky-    toEnum 16 = WindowStateFullscreen-    toEnum 32 = WindowStateAbove-    toEnum 64 = WindowStateBelow-    toEnum 128 = WindowStateFocused-    toEnum 256 = WindowStateTiled-    toEnum k = AnotherWindowState k--foreign import ccall "gdk_window_state_get_type" c_gdk_window_state_get_type :: -    IO GType--instance BoxedFlags WindowState where-    boxedFlagsType _ = c_gdk_window_state_get_type--instance IsGFlag WindowState---- Flags WindowHints--data WindowHints = -      WindowHintsPos-    | WindowHintsMinSize-    | WindowHintsMaxSize-    | WindowHintsBaseSize-    | WindowHintsAspect-    | WindowHintsResizeInc-    | WindowHintsWinGravity-    | WindowHintsUserPos-    | WindowHintsUserSize-    | AnotherWindowHints Int-    deriving (Show, Eq)--instance Enum WindowHints where-    fromEnum WindowHintsPos = 1-    fromEnum WindowHintsMinSize = 2-    fromEnum WindowHintsMaxSize = 4-    fromEnum WindowHintsBaseSize = 8-    fromEnum WindowHintsAspect = 16-    fromEnum WindowHintsResizeInc = 32-    fromEnum WindowHintsWinGravity = 64-    fromEnum WindowHintsUserPos = 128-    fromEnum WindowHintsUserSize = 256-    fromEnum (AnotherWindowHints k) = k--    toEnum 1 = WindowHintsPos-    toEnum 2 = WindowHintsMinSize-    toEnum 4 = WindowHintsMaxSize-    toEnum 8 = WindowHintsBaseSize-    toEnum 16 = WindowHintsAspect-    toEnum 32 = WindowHintsResizeInc-    toEnum 64 = WindowHintsWinGravity-    toEnum 128 = WindowHintsUserPos-    toEnum 256 = WindowHintsUserSize-    toEnum k = AnotherWindowHints k--foreign import ccall "gdk_window_hints_get_type" c_gdk_window_hints_get_type :: -    IO GType--instance BoxedFlags WindowHints where-    boxedFlagsType _ = c_gdk_window_hints_get_type--instance IsGFlag WindowHints---- Flags WindowAttributesType--data WindowAttributesType = -      WindowAttributesTypeTitle-    | WindowAttributesTypeX-    | WindowAttributesTypeY-    | WindowAttributesTypeCursor-    | WindowAttributesTypeVisual-    | WindowAttributesTypeWmclass-    | WindowAttributesTypeNoredir-    | WindowAttributesTypeTypeHint-    | AnotherWindowAttributesType Int-    deriving (Show, Eq)--instance Enum WindowAttributesType where-    fromEnum WindowAttributesTypeTitle = 2-    fromEnum WindowAttributesTypeX = 4-    fromEnum WindowAttributesTypeY = 8-    fromEnum WindowAttributesTypeCursor = 16-    fromEnum WindowAttributesTypeVisual = 32-    fromEnum WindowAttributesTypeWmclass = 64-    fromEnum WindowAttributesTypeNoredir = 128-    fromEnum WindowAttributesTypeTypeHint = 256-    fromEnum (AnotherWindowAttributesType k) = k--    toEnum 2 = WindowAttributesTypeTitle-    toEnum 4 = WindowAttributesTypeX-    toEnum 8 = WindowAttributesTypeY-    toEnum 16 = WindowAttributesTypeCursor-    toEnum 32 = WindowAttributesTypeVisual-    toEnum 64 = WindowAttributesTypeWmclass-    toEnum 128 = WindowAttributesTypeNoredir-    toEnum 256 = WindowAttributesTypeTypeHint-    toEnum k = AnotherWindowAttributesType k--foreign import ccall "gdk_window_attributes_type_get_type" c_gdk_window_attributes_type_get_type :: -    IO GType--instance BoxedFlags WindowAttributesType where-    boxedFlagsType _ = c_gdk_window_attributes_type_get_type--instance IsGFlag WindowAttributesType---- Flags WMFunction--data WMFunction = -      WMFunctionAll-    | WMFunctionResize-    | WMFunctionMove-    | WMFunctionMinimize-    | WMFunctionMaximize-    | WMFunctionClose-    | AnotherWMFunction Int-    deriving (Show, Eq)--instance Enum WMFunction where-    fromEnum WMFunctionAll = 1-    fromEnum WMFunctionResize = 2-    fromEnum WMFunctionMove = 4-    fromEnum WMFunctionMinimize = 8-    fromEnum WMFunctionMaximize = 16-    fromEnum WMFunctionClose = 32-    fromEnum (AnotherWMFunction k) = k--    toEnum 1 = WMFunctionAll-    toEnum 2 = WMFunctionResize-    toEnum 4 = WMFunctionMove-    toEnum 8 = WMFunctionMinimize-    toEnum 16 = WMFunctionMaximize-    toEnum 32 = WMFunctionClose-    toEnum k = AnotherWMFunction k--foreign import ccall "gdk_wm_function_get_type" c_gdk_wm_function_get_type :: -    IO GType--instance BoxedFlags WMFunction where-    boxedFlagsType _ = c_gdk_wm_function_get_type--instance IsGFlag WMFunction---- Flags WMDecoration--data WMDecoration = -      WMDecorationAll-    | WMDecorationBorder-    | WMDecorationResizeh-    | WMDecorationTitle-    | WMDecorationMenu-    | WMDecorationMinimize-    | WMDecorationMaximize-    | AnotherWMDecoration Int-    deriving (Show, Eq)--instance Enum WMDecoration where-    fromEnum WMDecorationAll = 1-    fromEnum WMDecorationBorder = 2-    fromEnum WMDecorationResizeh = 4-    fromEnum WMDecorationTitle = 8-    fromEnum WMDecorationMenu = 16-    fromEnum WMDecorationMinimize = 32-    fromEnum WMDecorationMaximize = 64-    fromEnum (AnotherWMDecoration k) = k--    toEnum 1 = WMDecorationAll-    toEnum 2 = WMDecorationBorder-    toEnum 4 = WMDecorationResizeh-    toEnum 8 = WMDecorationTitle-    toEnum 16 = WMDecorationMenu-    toEnum 32 = WMDecorationMinimize-    toEnum 64 = WMDecorationMaximize-    toEnum k = AnotherWMDecoration k--foreign import ccall "gdk_wm_decoration_get_type" c_gdk_wm_decoration_get_type :: -    IO GType--instance BoxedFlags WMDecoration where-    boxedFlagsType _ = c_gdk_wm_decoration_get_type--instance IsGFlag WMDecoration---- Flags ModifierType--data ModifierType = -      ModifierTypeShiftMask-    | ModifierTypeLockMask-    | ModifierTypeControlMask-    | ModifierTypeMod1Mask-    | ModifierTypeMod2Mask-    | ModifierTypeMod3Mask-    | ModifierTypeMod4Mask-    | ModifierTypeMod5Mask-    | ModifierTypeButton1Mask-    | ModifierTypeButton2Mask-    | ModifierTypeButton3Mask-    | ModifierTypeButton4Mask-    | ModifierTypeButton5Mask-    | ModifierTypeModifierReserved13Mask-    | ModifierTypeModifierReserved14Mask-    | ModifierTypeModifierReserved15Mask-    | ModifierTypeModifierReserved16Mask-    | ModifierTypeModifierReserved17Mask-    | ModifierTypeModifierReserved18Mask-    | ModifierTypeModifierReserved19Mask-    | ModifierTypeModifierReserved20Mask-    | ModifierTypeModifierReserved21Mask-    | ModifierTypeModifierReserved22Mask-    | ModifierTypeModifierReserved23Mask-    | ModifierTypeModifierReserved24Mask-    | ModifierTypeModifierReserved25Mask-    | ModifierTypeSuperMask-    | ModifierTypeHyperMask-    | ModifierTypeMetaMask-    | ModifierTypeModifierReserved29Mask-    | ModifierTypeReleaseMask-    | ModifierTypeModifierMask-    | AnotherModifierType Int-    deriving (Show, Eq)--instance Enum ModifierType where-    fromEnum ModifierTypeShiftMask = 1-    fromEnum ModifierTypeLockMask = 2-    fromEnum ModifierTypeControlMask = 4-    fromEnum ModifierTypeMod1Mask = 8-    fromEnum ModifierTypeMod2Mask = 16-    fromEnum ModifierTypeMod3Mask = 32-    fromEnum ModifierTypeMod4Mask = 64-    fromEnum ModifierTypeMod5Mask = 128-    fromEnum ModifierTypeButton1Mask = 256-    fromEnum ModifierTypeButton2Mask = 512-    fromEnum ModifierTypeButton3Mask = 1024-    fromEnum ModifierTypeButton4Mask = 2048-    fromEnum ModifierTypeButton5Mask = 4096-    fromEnum ModifierTypeModifierReserved13Mask = 8192-    fromEnum ModifierTypeModifierReserved14Mask = 16384-    fromEnum ModifierTypeModifierReserved15Mask = 32768-    fromEnum ModifierTypeModifierReserved16Mask = 65536-    fromEnum ModifierTypeModifierReserved17Mask = 131072-    fromEnum ModifierTypeModifierReserved18Mask = 262144-    fromEnum ModifierTypeModifierReserved19Mask = 524288-    fromEnum ModifierTypeModifierReserved20Mask = 1048576-    fromEnum ModifierTypeModifierReserved21Mask = 2097152-    fromEnum ModifierTypeModifierReserved22Mask = 4194304-    fromEnum ModifierTypeModifierReserved23Mask = 8388608-    fromEnum ModifierTypeModifierReserved24Mask = 16777216-    fromEnum ModifierTypeModifierReserved25Mask = 33554432-    fromEnum ModifierTypeSuperMask = 67108864-    fromEnum ModifierTypeHyperMask = 134217728-    fromEnum ModifierTypeMetaMask = 268435456-    fromEnum ModifierTypeModifierReserved29Mask = 536870912-    fromEnum ModifierTypeReleaseMask = 1073741824-    fromEnum ModifierTypeModifierMask = 1543512063-    fromEnum (AnotherModifierType k) = k--    toEnum 1 = ModifierTypeShiftMask-    toEnum 2 = ModifierTypeLockMask-    toEnum 4 = ModifierTypeControlMask-    toEnum 8 = ModifierTypeMod1Mask-    toEnum 16 = ModifierTypeMod2Mask-    toEnum 32 = ModifierTypeMod3Mask-    toEnum 64 = ModifierTypeMod4Mask-    toEnum 128 = ModifierTypeMod5Mask-    toEnum 256 = ModifierTypeButton1Mask-    toEnum 512 = ModifierTypeButton2Mask-    toEnum 1024 = ModifierTypeButton3Mask-    toEnum 2048 = ModifierTypeButton4Mask-    toEnum 4096 = ModifierTypeButton5Mask-    toEnum 8192 = ModifierTypeModifierReserved13Mask-    toEnum 16384 = ModifierTypeModifierReserved14Mask-    toEnum 32768 = ModifierTypeModifierReserved15Mask-    toEnum 65536 = ModifierTypeModifierReserved16Mask-    toEnum 131072 = ModifierTypeModifierReserved17Mask-    toEnum 262144 = ModifierTypeModifierReserved18Mask-    toEnum 524288 = ModifierTypeModifierReserved19Mask-    toEnum 1048576 = ModifierTypeModifierReserved20Mask-    toEnum 2097152 = ModifierTypeModifierReserved21Mask-    toEnum 4194304 = ModifierTypeModifierReserved22Mask-    toEnum 8388608 = ModifierTypeModifierReserved23Mask-    toEnum 16777216 = ModifierTypeModifierReserved24Mask-    toEnum 33554432 = ModifierTypeModifierReserved25Mask-    toEnum 67108864 = ModifierTypeSuperMask-    toEnum 134217728 = ModifierTypeHyperMask-    toEnum 268435456 = ModifierTypeMetaMask-    toEnum 536870912 = ModifierTypeModifierReserved29Mask-    toEnum 1073741824 = ModifierTypeReleaseMask-    toEnum 1543512063 = ModifierTypeModifierMask-    toEnum k = AnotherModifierType k--foreign import ccall "gdk_modifier_type_get_type" c_gdk_modifier_type_get_type :: -    IO GType--instance BoxedFlags ModifierType where-    boxedFlagsType _ = c_gdk_modifier_type_get_type--instance IsGFlag ModifierType---- Flags FrameClockPhase--data FrameClockPhase = -      FrameClockPhaseNone-    | FrameClockPhaseFlushEvents-    | FrameClockPhaseBeforePaint-    | FrameClockPhaseUpdate-    | FrameClockPhaseLayout-    | FrameClockPhasePaint-    | FrameClockPhaseResumeEvents-    | FrameClockPhaseAfterPaint-    | AnotherFrameClockPhase Int-    deriving (Show, Eq)--instance Enum FrameClockPhase where-    fromEnum FrameClockPhaseNone = 0-    fromEnum FrameClockPhaseFlushEvents = 1-    fromEnum FrameClockPhaseBeforePaint = 2-    fromEnum FrameClockPhaseUpdate = 4-    fromEnum FrameClockPhaseLayout = 8-    fromEnum FrameClockPhasePaint = 16-    fromEnum FrameClockPhaseResumeEvents = 32-    fromEnum FrameClockPhaseAfterPaint = 64-    fromEnum (AnotherFrameClockPhase k) = k--    toEnum 0 = FrameClockPhaseNone-    toEnum 1 = FrameClockPhaseFlushEvents-    toEnum 2 = FrameClockPhaseBeforePaint-    toEnum 4 = FrameClockPhaseUpdate-    toEnum 8 = FrameClockPhaseLayout-    toEnum 16 = FrameClockPhasePaint-    toEnum 32 = FrameClockPhaseResumeEvents-    toEnum 64 = FrameClockPhaseAfterPaint-    toEnum k = AnotherFrameClockPhase k--foreign import ccall "gdk_frame_clock_phase_get_type" c_gdk_frame_clock_phase_get_type :: -    IO GType--instance BoxedFlags FrameClockPhase where-    boxedFlagsType _ = c_gdk_frame_clock_phase_get_type--instance IsGFlag FrameClockPhase---- Flags EventMask--data EventMask = -      EventMaskExposureMask-    | EventMaskPointerMotionMask-    | EventMaskPointerMotionHintMask-    | EventMaskButtonMotionMask-    | EventMaskButton1MotionMask-    | EventMaskButton2MotionMask-    | EventMaskButton3MotionMask-    | EventMaskButtonPressMask-    | EventMaskButtonReleaseMask-    | EventMaskKeyPressMask-    | EventMaskKeyReleaseMask-    | EventMaskEnterNotifyMask-    | EventMaskLeaveNotifyMask-    | EventMaskFocusChangeMask-    | EventMaskStructureMask-    | EventMaskPropertyChangeMask-    | EventMaskVisibilityNotifyMask-    | EventMaskProximityInMask-    | EventMaskProximityOutMask-    | EventMaskSubstructureMask-    | EventMaskScrollMask-    | EventMaskTouchMask-    | EventMaskSmoothScrollMask-    | EventMaskTouchpadGestureMask-    | EventMaskAllEventsMask-    | AnotherEventMask Int-    deriving (Show, Eq)--instance Enum EventMask where-    fromEnum EventMaskExposureMask = 2-    fromEnum EventMaskPointerMotionMask = 4-    fromEnum EventMaskPointerMotionHintMask = 8-    fromEnum EventMaskButtonMotionMask = 16-    fromEnum EventMaskButton1MotionMask = 32-    fromEnum EventMaskButton2MotionMask = 64-    fromEnum EventMaskButton3MotionMask = 128-    fromEnum EventMaskButtonPressMask = 256-    fromEnum EventMaskButtonReleaseMask = 512-    fromEnum EventMaskKeyPressMask = 1024-    fromEnum EventMaskKeyReleaseMask = 2048-    fromEnum EventMaskEnterNotifyMask = 4096-    fromEnum EventMaskLeaveNotifyMask = 8192-    fromEnum EventMaskFocusChangeMask = 16384-    fromEnum EventMaskStructureMask = 32768-    fromEnum EventMaskPropertyChangeMask = 65536-    fromEnum EventMaskVisibilityNotifyMask = 131072-    fromEnum EventMaskProximityInMask = 262144-    fromEnum EventMaskProximityOutMask = 524288-    fromEnum EventMaskSubstructureMask = 1048576-    fromEnum EventMaskScrollMask = 2097152-    fromEnum EventMaskTouchMask = 4194304-    fromEnum EventMaskSmoothScrollMask = 8388608-    fromEnum EventMaskTouchpadGestureMask = 16777216-    fromEnum EventMaskAllEventsMask = 16777214-    fromEnum (AnotherEventMask k) = k--    toEnum 2 = EventMaskExposureMask-    toEnum 4 = EventMaskPointerMotionMask-    toEnum 8 = EventMaskPointerMotionHintMask-    toEnum 16 = EventMaskButtonMotionMask-    toEnum 32 = EventMaskButton1MotionMask-    toEnum 64 = EventMaskButton2MotionMask-    toEnum 128 = EventMaskButton3MotionMask-    toEnum 256 = EventMaskButtonPressMask-    toEnum 512 = EventMaskButtonReleaseMask-    toEnum 1024 = EventMaskKeyPressMask-    toEnum 2048 = EventMaskKeyReleaseMask-    toEnum 4096 = EventMaskEnterNotifyMask-    toEnum 8192 = EventMaskLeaveNotifyMask-    toEnum 16384 = EventMaskFocusChangeMask-    toEnum 32768 = EventMaskStructureMask-    toEnum 65536 = EventMaskPropertyChangeMask-    toEnum 131072 = EventMaskVisibilityNotifyMask-    toEnum 262144 = EventMaskProximityInMask-    toEnum 524288 = EventMaskProximityOutMask-    toEnum 1048576 = EventMaskSubstructureMask-    toEnum 2097152 = EventMaskScrollMask-    toEnum 4194304 = EventMaskTouchMask-    toEnum 8388608 = EventMaskSmoothScrollMask-    toEnum 16777214 = EventMaskAllEventsMask-    toEnum 16777216 = EventMaskTouchpadGestureMask-    toEnum k = AnotherEventMask k--foreign import ccall "gdk_event_mask_get_type" c_gdk_event_mask_get_type :: -    IO GType--instance BoxedFlags EventMask where-    boxedFlagsType _ = c_gdk_event_mask_get_type--instance IsGFlag EventMask---- Flags DragAction--data DragAction = -      DragActionDefault-    | DragActionCopy-    | DragActionMove-    | DragActionLink-    | DragActionPrivate-    | DragActionAsk-    | AnotherDragAction Int-    deriving (Show, Eq)--instance Enum DragAction where-    fromEnum DragActionDefault = 1-    fromEnum DragActionCopy = 2-    fromEnum DragActionMove = 4-    fromEnum DragActionLink = 8-    fromEnum DragActionPrivate = 16-    fromEnum DragActionAsk = 32-    fromEnum (AnotherDragAction k) = k--    toEnum 1 = DragActionDefault-    toEnum 2 = DragActionCopy-    toEnum 4 = DragActionMove-    toEnum 8 = DragActionLink-    toEnum 16 = DragActionPrivate-    toEnum 32 = DragActionAsk-    toEnum k = AnotherDragAction k--foreign import ccall "gdk_drag_action_get_type" c_gdk_drag_action_get_type :: -    IO GType--instance BoxedFlags DragAction where-    boxedFlagsType _ = c_gdk_drag_action_get_type--instance IsGFlag DragAction--
− GI/Gdk/Functions.hs 
@@ -1,3004 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Functions-    ( -- -- * Methods--- ** addOptionEntriesLibgtkOnly-    addOptionEntriesLibgtkOnly              ,----- ** beep-    beep                                    ,----- ** cairoCreate-    cairoCreate                             ,----- ** cairoDrawFromGl-    cairoDrawFromGl                         ,----- ** cairoGetClipRectangle-    cairoGetClipRectangle                   ,----- ** cairoRectangle-    cairoRectangle                          ,----- ** cairoRegion-    cairoRegion                             ,----- ** cairoRegionCreateFromSurface-    cairoRegionCreateFromSurface            ,----- ** cairoSetSourceColor-    cairoSetSourceColor                     ,----- ** cairoSetSourcePixbuf-    cairoSetSourcePixbuf                    ,----- ** cairoSetSourceRgba-    cairoSetSourceRgba                      ,----- ** cairoSetSourceWindow-    cairoSetSourceWindow                    ,----- ** cairoSurfaceCreateFromPixbuf-    cairoSurfaceCreateFromPixbuf            ,----- ** disableMultidevice-    disableMultidevice                      ,----- ** dragAbort-    dragAbort                               ,----- ** dragBegin-    dragBegin                               ,----- ** dragBeginForDevice-    dragBeginForDevice                      ,----- ** dragDrop-    dragDrop                                ,----- ** dragDropSucceeded-    dragDropSucceeded                       ,----- ** dragFindWindowForScreen-    dragFindWindowForScreen                 ,----- ** dragGetSelection-    dragGetSelection                        ,----- ** dragMotion-    dragMotion                              ,----- ** dragStatus-    dragStatus                              ,----- ** dropFinish-    dropFinish                              ,----- ** dropReply-    dropReply                               ,----- ** errorTrapPop-    errorTrapPop                            ,----- ** errorTrapPopIgnored-    errorTrapPopIgnored                     ,----- ** errorTrapPush-    errorTrapPush                           ,----- ** eventsGetAngle-    eventsGetAngle                          ,----- ** eventsGetCenter-    eventsGetCenter                         ,----- ** eventsGetDistance-    eventsGetDistance                       ,----- ** eventsPending-    eventsPending                           ,----- ** flush-    flush                                   ,----- ** getDefaultRootWindow-    getDefaultRootWindow                    ,----- ** getDisplay-    getDisplay                              ,----- ** getDisplayArgName-    getDisplayArgName                       ,----- ** getProgramClass-    getProgramClass                         ,----- ** getShowEvents-    getShowEvents                           ,----- ** init-    init                                    ,----- ** initCheck-    initCheck                               ,----- ** keyboardGrab-    keyboardGrab                            ,----- ** keyboardUngrab-    keyboardUngrab                          ,----- ** keyvalConvertCase-    keyvalConvertCase                       ,----- ** keyvalFromName-    keyvalFromName                          ,----- ** keyvalIsLower-    keyvalIsLower                           ,----- ** keyvalIsUpper-    keyvalIsUpper                           ,----- ** keyvalName-    keyvalName                              ,----- ** keyvalToLower-    keyvalToLower                           ,----- ** keyvalToUnicode-    keyvalToUnicode                         ,----- ** keyvalToUpper-    keyvalToUpper                           ,----- ** listVisuals-    listVisuals                             ,----- ** notifyStartupComplete-    notifyStartupComplete                   ,----- ** notifyStartupCompleteWithId-    notifyStartupCompleteWithId             ,----- ** offscreenWindowGetEmbedder-    offscreenWindowGetEmbedder              ,----- ** offscreenWindowGetSurface-    offscreenWindowGetSurface               ,----- ** offscreenWindowSetEmbedder-    offscreenWindowSetEmbedder              ,----- ** pangoContextGet-    pangoContextGet                         ,----- ** pangoContextGetForScreen-    pangoContextGetForScreen                ,----- ** parseArgs-    parseArgs                               ,----- ** pixbufGetFromSurface-    pixbufGetFromSurface                    ,----- ** pixbufGetFromWindow-    pixbufGetFromWindow                     ,----- ** pointerGrab-    pointerGrab                             ,----- ** pointerIsGrabbed-    pointerIsGrabbed                        ,----- ** pointerUngrab-    pointerUngrab                           ,----- ** preParseLibgtkOnly-    preParseLibgtkOnly                      ,----- ** propertyDelete-    propertyDelete                          ,----- ** propertyGet-    propertyGet                             ,----- ** queryDepths-    queryDepths                             ,----- ** queryVisualTypes-    queryVisualTypes                        ,----- ** selectionConvert-    selectionConvert                        ,----- ** selectionOwnerGet-    selectionOwnerGet                       ,----- ** selectionOwnerGetForDisplay-    selectionOwnerGetForDisplay             ,----- ** selectionOwnerSet-    selectionOwnerSet                       ,----- ** selectionOwnerSetForDisplay-    selectionOwnerSetForDisplay             ,----- ** selectionSendNotify-    selectionSendNotify                     ,----- ** selectionSendNotifyForDisplay-    selectionSendNotifyForDisplay           ,----- ** setAllowedBackends-    setAllowedBackends                      ,----- ** setDoubleClickTime-    setDoubleClickTime                      ,----- ** setProgramClass-    setProgramClass                         ,----- ** setShowEvents-    setShowEvents                           ,----- ** settingGet-    settingGet                              ,----- ** synthesizeWindowState-    synthesizeWindowState                   ,----- ** testRenderSync-    testRenderSync                          ,----- ** testSimulateButton-    testSimulateButton                      ,----- ** testSimulateKey-    testSimulateKey                         ,----- ** textPropertyToUtf8ListForDisplay-    textPropertyToUtf8ListForDisplay        ,----- ** threadsAddIdle-    threadsAddIdle                          ,----- ** threadsAddTimeout-    threadsAddTimeout                       ,----- ** threadsAddTimeoutSeconds-    threadsAddTimeoutSeconds                ,----- ** threadsEnter-    threadsEnter                            ,----- ** threadsInit-    threadsInit                             ,----- ** threadsLeave-    threadsLeave                            ,----- ** unicodeToKeyval-    unicodeToKeyval                         ,----- ** utf8ToStringTarget-    utf8ToStringTarget                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GLib as GLib-import qualified GI.GdkPixbuf as GdkPixbuf-import qualified GI.Pango as Pango-import qualified GI.Cairo as Cairo---- function gdk_utf8_to_string_target--- Args : [Arg {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_utf8_to_string_target" gdk_utf8_to_string_target :: -    CString ->                              -- str : TBasicType TUTF8-    IO CString---utf8ToStringTarget ::-    (MonadIO m) =>-    T.Text                                  -- str-    -> m (Maybe T.Text)                     -- result-utf8ToStringTarget str = liftIO $ do-    str' <- textToCString str-    result <- gdk_utf8_to_string_target str'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    freeMem str'-    return maybeResult----- function gdk_unicode_to_keyval--- Args : [Arg {argCName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_unicode_to_keyval" gdk_unicode_to_keyval :: -    Word32 ->                               -- wc : TBasicType TUInt32-    IO Word32---unicodeToKeyval ::-    (MonadIO m) =>-    Word32                                  -- wc-    -> m Word32                             -- result-unicodeToKeyval wc = liftIO $ do-    result <- gdk_unicode_to_keyval wc-    return result----- function gdk_threads_leave--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_leave" gdk_threads_leave :: -    IO ()--{-# DEPRECATED threadsLeave ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main","    thread"]#-}-threadsLeave ::-    (MonadIO m) =>-    m ()                                    -- result-threadsLeave  = liftIO $ do-    gdk_threads_leave-    return ()----- function gdk_threads_init--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_init" gdk_threads_init :: -    IO ()--{-# DEPRECATED threadsInit ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main","    thread"]#-}-threadsInit ::-    (MonadIO m) =>-    m ()                                    -- result-threadsInit  = liftIO $ do-    gdk_threads_init-    return ()----- function gdk_threads_enter--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_enter" gdk_threads_enter :: -    IO ()--{-# DEPRECATED threadsEnter ["(Since version 3.6)","All GDK and GTK+ calls should be made from the main","    thread"]#-}-threadsEnter ::-    (MonadIO m) =>-    m ()                                    -- result-threadsEnter  = liftIO $ do-    gdk_threads_enter-    return ()----- function gdk_threads_add_timeout_seconds_full--- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_add_timeout_seconds_full" gdk_threads_add_timeout_seconds_full :: -    Int32 ->                                -- priority : TBasicType TInt-    Word32 ->                               -- interval : TBasicType TUInt-    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---threadsAddTimeoutSeconds ::-    (MonadIO m) =>-    Int32                                   -- priority-    -> Word32                               -- interval-    -> GLib.SourceFunc                      -- function-    -> m Word32                             -- result-threadsAddTimeoutSeconds priority interval function = liftIO $ do-    function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- gdk_threads_add_timeout_seconds_full priority interval function' data_ notify-    return result----- function gdk_threads_add_timeout_full--- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_add_timeout_full" gdk_threads_add_timeout_full :: -    Int32 ->                                -- priority : TBasicType TInt-    Word32 ->                               -- interval : TBasicType TUInt-    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---threadsAddTimeout ::-    (MonadIO m) =>-    Int32                                   -- priority-    -> Word32                               -- interval-    -> GLib.SourceFunc                      -- function-    -> m Word32                             -- result-threadsAddTimeout priority interval function = liftIO $ do-    function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- gdk_threads_add_timeout_full priority interval function' data_ notify-    return result----- function gdk_threads_add_idle_full--- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_add_idle_full" gdk_threads_add_idle_full :: -    Int32 ->                                -- priority : TBasicType TInt-    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---threadsAddIdle ::-    (MonadIO m) =>-    Int32                                   -- priority-    -> GLib.SourceFunc                      -- function-    -> m Word32                             -- result-threadsAddIdle priority function = liftIO $ do-    function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function)-    let data_ = castFunPtrToPtr function'-    let notify = safeFreeFunPtrPtr-    result <- gdk_threads_add_idle_full priority function' data_ notify-    return result----- function gdk_text_property_to_utf8_list_for_display--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_text_property_to_utf8_list_for_display" gdk_text_property_to_utf8_list_for_display :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    Ptr Atom ->                             -- encoding : TInterface "Gdk" "Atom"-    Int32 ->                                -- format : TBasicType TInt-    Ptr Word8 ->                            -- text : TCArray False (-1) 4 (TBasicType TUInt8)-    Int32 ->                                -- length : TBasicType TInt-    Ptr (Ptr CString) ->                    -- list : TCArray True (-1) (-1) (TBasicType TUTF8)-    IO Int32---textPropertyToUtf8ListForDisplay ::-    (MonadIO m, DisplayK a) =>-    a                                       -- display-    -> Atom                                 -- encoding-    -> Int32                                -- format-    -> ByteString                           -- text-    -> m (Int32,[T.Text])                   -- result-textPropertyToUtf8ListForDisplay display encoding format text = liftIO $ do-    let length_ = fromIntegral $ B.length text-    let display' = unsafeManagedPtrCastPtr display-    let encoding' = unsafeManagedPtrGetPtr encoding-    text' <- packByteString text-    list <- allocMem :: IO (Ptr (Ptr CString))-    result <- gdk_text_property_to_utf8_list_for_display display' encoding' format text' length_ list-    list' <- peek list-    list'' <- unpackZeroTerminatedUTF8CArray list'-    mapZeroTerminatedCArray freeMem list'-    freeMem list'-    touchManagedPtr display-    touchManagedPtr encoding-    freeMem text'-    freeMem list-    return (result, list'')----- function gdk_test_simulate_key--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_test_simulate_key" gdk_test_simulate_key :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    Word32 ->                               -- keyval : TBasicType TUInt-    CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"-    CUInt ->                                -- key_pressrelease : TInterface "Gdk" "EventType"-    IO CInt---testSimulateKey ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> Int32                                -- x-    -> Int32                                -- y-    -> Word32                               -- keyval-    -> [ModifierType]                       -- modifiers-    -> EventType                            -- keyPressrelease-    -> m Bool                               -- result-testSimulateKey window x y keyval modifiers keyPressrelease = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let modifiers' = gflagsToWord modifiers-    let keyPressrelease' = (fromIntegral . fromEnum) keyPressrelease-    result <- gdk_test_simulate_key window' x y keyval modifiers' keyPressrelease'-    let result' = (/= 0) result-    touchManagedPtr window-    return result'----- function gdk_test_simulate_button--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_test_simulate_button" gdk_test_simulate_button :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    Word32 ->                               -- button : TBasicType TUInt-    CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"-    CUInt ->                                -- button_pressrelease : TInterface "Gdk" "EventType"-    IO CInt---testSimulateButton ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> Int32                                -- x-    -> Int32                                -- y-    -> Word32                               -- button-    -> [ModifierType]                       -- modifiers-    -> EventType                            -- buttonPressrelease-    -> m Bool                               -- result-testSimulateButton window x y button modifiers buttonPressrelease = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let modifiers' = gflagsToWord modifiers-    let buttonPressrelease' = (fromIntegral . fromEnum) buttonPressrelease-    result <- gdk_test_simulate_button window' x y button modifiers' buttonPressrelease'-    let result' = (/= 0) result-    touchManagedPtr window-    return result'----- function gdk_test_render_sync--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_test_render_sync" gdk_test_render_sync :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    IO ()---testRenderSync ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> m ()                                 -- result-testRenderSync window = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    gdk_test_render_sync window'-    touchManagedPtr window-    return ()----- function gdk_synthesize_window_state--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_synthesize_window_state" gdk_synthesize_window_state :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    CUInt ->                                -- unset_flags : TInterface "Gdk" "WindowState"-    CUInt ->                                -- set_flags : TInterface "Gdk" "WindowState"-    IO ()---synthesizeWindowState ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> [WindowState]                        -- unsetFlags-    -> [WindowState]                        -- setFlags-    -> m ()                                 -- result-synthesizeWindowState window unsetFlags setFlags = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let unsetFlags' = gflagsToWord unsetFlags-    let setFlags' = gflagsToWord setFlags-    gdk_synthesize_window_state window' unsetFlags' setFlags'-    touchManagedPtr window-    return ()----- function gdk_setting_get--- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_setting_get" gdk_setting_get :: -    CString ->                              -- name : TBasicType TUTF8-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO CInt---settingGet ::-    (MonadIO m) =>-    T.Text                                  -- name-    -> GValue                               -- value-    -> m Bool                               -- result-settingGet name value = liftIO $ do-    name' <- textToCString name-    let value' = unsafeManagedPtrGetPtr value-    result <- gdk_setting_get name' value'-    let result' = (/= 0) result-    touchManagedPtr value-    freeMem name'-    return result'----- function gdk_set_show_events--- Args : [Arg {argCName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_set_show_events" gdk_set_show_events :: -    CInt ->                                 -- show_events : TBasicType TBoolean-    IO ()---setShowEvents ::-    (MonadIO m) =>-    Bool                                    -- showEvents-    -> m ()                                 -- result-setShowEvents showEvents = liftIO $ do-    let showEvents' = (fromIntegral . fromEnum) showEvents-    gdk_set_show_events showEvents'-    return ()----- function gdk_set_program_class--- Args : [Arg {argCName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_set_program_class" gdk_set_program_class :: -    CString ->                              -- program_class : TBasicType TUTF8-    IO ()---setProgramClass ::-    (MonadIO m) =>-    T.Text                                  -- programClass-    -> m ()                                 -- result-setProgramClass programClass = liftIO $ do-    programClass' <- textToCString programClass-    gdk_set_program_class programClass'-    freeMem programClass'-    return ()----- function gdk_set_double_click_time--- Args : [Arg {argCName = "msec", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_set_double_click_time" gdk_set_double_click_time :: -    Word32 ->                               -- msec : TBasicType TUInt-    IO ()---setDoubleClickTime ::-    (MonadIO m) =>-    Word32                                  -- msec-    -> m ()                                 -- result-setDoubleClickTime msec = liftIO $ do-    gdk_set_double_click_time msec-    return ()----- function gdk_set_allowed_backends--- Args : [Arg {argCName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_set_allowed_backends" gdk_set_allowed_backends :: -    CString ->                              -- backends : TBasicType TUTF8-    IO ()---setAllowedBackends ::-    (MonadIO m) =>-    T.Text                                  -- backends-    -> m ()                                 -- result-setAllowedBackends backends = liftIO $ do-    backends' <- textToCString backends-    gdk_set_allowed_backends backends'-    freeMem backends'-    return ()----- function gdk_selection_send_notify_for_display--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_selection_send_notify_for_display" gdk_selection_send_notify_for_display :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    Ptr Window ->                           -- requestor : TInterface "Gdk" "Window"-    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    Ptr Atom ->                             -- target : TInterface "Gdk" "Atom"-    Ptr Atom ->                             -- property : TInterface "Gdk" "Atom"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---selectionSendNotifyForDisplay ::-    (MonadIO m, DisplayK a, WindowK b) =>-    a                                       -- display-    -> b                                    -- requestor-    -> Atom                                 -- selection-    -> Atom                                 -- target-    -> Atom                                 -- property-    -> Word32                               -- time_-    -> m ()                                 -- result-selectionSendNotifyForDisplay display requestor selection target property time_ = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let requestor' = unsafeManagedPtrCastPtr requestor-    let selection' = unsafeManagedPtrGetPtr selection-    let target' = unsafeManagedPtrGetPtr target-    let property' = unsafeManagedPtrGetPtr property-    gdk_selection_send_notify_for_display display' requestor' selection' target' property' time_-    touchManagedPtr display-    touchManagedPtr requestor-    touchManagedPtr selection-    touchManagedPtr target-    touchManagedPtr property-    return ()----- function gdk_selection_send_notify--- Args : [Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_selection_send_notify" gdk_selection_send_notify :: -    Ptr Window ->                           -- requestor : TInterface "Gdk" "Window"-    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    Ptr Atom ->                             -- target : TInterface "Gdk" "Atom"-    Ptr Atom ->                             -- property : TInterface "Gdk" "Atom"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---selectionSendNotify ::-    (MonadIO m, WindowK a) =>-    a                                       -- requestor-    -> Atom                                 -- selection-    -> Atom                                 -- target-    -> Atom                                 -- property-    -> Word32                               -- time_-    -> m ()                                 -- result-selectionSendNotify requestor selection target property time_ = liftIO $ do-    let requestor' = unsafeManagedPtrCastPtr requestor-    let selection' = unsafeManagedPtrGetPtr selection-    let target' = unsafeManagedPtrGetPtr target-    let property' = unsafeManagedPtrGetPtr property-    gdk_selection_send_notify requestor' selection' target' property' time_-    touchManagedPtr requestor-    touchManagedPtr selection-    touchManagedPtr target-    touchManagedPtr property-    return ()----- function gdk_selection_owner_set_for_display--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_selection_owner_set_for_display" gdk_selection_owner_set_for_display :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    Ptr Window ->                           -- owner : TInterface "Gdk" "Window"-    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    Word32 ->                               -- time_ : TBasicType TUInt32-    CInt ->                                 -- send_event : TBasicType TBoolean-    IO CInt---selectionOwnerSetForDisplay ::-    (MonadIO m, DisplayK a, WindowK b) =>-    a                                       -- display-    -> Maybe (b)                            -- owner-    -> Atom                                 -- selection-    -> Word32                               -- time_-    -> Bool                                 -- sendEvent-    -> m Bool                               -- result-selectionOwnerSetForDisplay display owner selection time_ sendEvent = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    maybeOwner <- case owner of-        Nothing -> return nullPtr-        Just jOwner -> do-            let jOwner' = unsafeManagedPtrCastPtr jOwner-            return jOwner'-    let selection' = unsafeManagedPtrGetPtr selection-    let sendEvent' = (fromIntegral . fromEnum) sendEvent-    result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time_ sendEvent'-    let result' = (/= 0) result-    touchManagedPtr display-    whenJust owner touchManagedPtr-    touchManagedPtr selection-    return result'----- function gdk_selection_owner_set--- Args : [Arg {argCName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_selection_owner_set" gdk_selection_owner_set :: -    Ptr Window ->                           -- owner : TInterface "Gdk" "Window"-    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    Word32 ->                               -- time_ : TBasicType TUInt32-    CInt ->                                 -- send_event : TBasicType TBoolean-    IO CInt---selectionOwnerSet ::-    (MonadIO m, WindowK a) =>-    Maybe (a)                               -- owner-    -> Atom                                 -- selection-    -> Word32                               -- time_-    -> Bool                                 -- sendEvent-    -> m Bool                               -- result-selectionOwnerSet owner selection time_ sendEvent = liftIO $ do-    maybeOwner <- case owner of-        Nothing -> return nullPtr-        Just jOwner -> do-            let jOwner' = unsafeManagedPtrCastPtr jOwner-            return jOwner'-    let selection' = unsafeManagedPtrGetPtr selection-    let sendEvent' = (fromIntegral . fromEnum) sendEvent-    result <- gdk_selection_owner_set maybeOwner selection' time_ sendEvent'-    let result' = (/= 0) result-    whenJust owner touchManagedPtr-    touchManagedPtr selection-    return result'----- function gdk_selection_owner_get_for_display--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_selection_owner_get_for_display" gdk_selection_owner_get_for_display :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    IO (Ptr Window)---selectionOwnerGetForDisplay ::-    (MonadIO m, DisplayK a) =>-    a                                       -- display-    -> Atom                                 -- selection-    -> m (Maybe Window)                     -- result-selectionOwnerGetForDisplay display selection = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let selection' = unsafeManagedPtrGetPtr selection-    result <- gdk_selection_owner_get_for_display display' selection'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    touchManagedPtr display-    touchManagedPtr selection-    return maybeResult----- function gdk_selection_owner_get--- Args : [Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_selection_owner_get" gdk_selection_owner_get :: -    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    IO (Ptr Window)---selectionOwnerGet ::-    (MonadIO m) =>-    Atom                                    -- selection-    -> m (Maybe Window)                     -- result-selectionOwnerGet selection = liftIO $ do-    let selection' = unsafeManagedPtrGetPtr selection-    result <- gdk_selection_owner_get selection'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    touchManagedPtr selection-    return maybeResult----- function gdk_selection_convert--- Args : [Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_selection_convert" gdk_selection_convert :: -    Ptr Window ->                           -- requestor : TInterface "Gdk" "Window"-    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    Ptr Atom ->                             -- target : TInterface "Gdk" "Atom"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---selectionConvert ::-    (MonadIO m, WindowK a) =>-    a                                       -- requestor-    -> Atom                                 -- selection-    -> Atom                                 -- target-    -> Word32                               -- time_-    -> m ()                                 -- result-selectionConvert requestor selection target time_ = liftIO $ do-    let requestor' = unsafeManagedPtrCastPtr requestor-    let selection' = unsafeManagedPtrGetPtr selection-    let target' = unsafeManagedPtrGetPtr target-    gdk_selection_convert requestor' selection' target' time_-    touchManagedPtr requestor-    touchManagedPtr selection-    touchManagedPtr target-    return ()----- function gdk_query_visual_types--- Args : [Arg {argCName = "visual_types", argType = TCArray False (-1) 1 (TInterface "Gdk" "VisualType"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_query_visual_types" gdk_query_visual_types :: -    Ptr (Ptr CUInt) ->                      -- visual_types : TCArray False (-1) 1 (TInterface "Gdk" "VisualType")-    Ptr Int32 ->                            -- count : TBasicType TInt-    IO ()---queryVisualTypes ::-    (MonadIO m) =>-    m ([VisualType])                        -- result-queryVisualTypes  = liftIO $ do-    visualTypes <- allocMem :: IO (Ptr (Ptr CUInt))-    count <- allocMem :: IO (Ptr Int32)-    gdk_query_visual_types visualTypes count-    count' <- peek count-    visualTypes' <- peek visualTypes-    visualTypes'' <- (unpackStorableArrayWithLength count') visualTypes'-    let visualTypes''' = map (toEnum . fromIntegral) visualTypes''-    freeMem visualTypes-    freeMem count-    return visualTypes'''----- function gdk_query_depths--- Args : [Arg {argCName = "depths", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_query_depths" gdk_query_depths :: -    Ptr (Ptr Int32) ->                      -- depths : TCArray False (-1) 1 (TBasicType TInt)-    Ptr Int32 ->                            -- count : TBasicType TInt-    IO ()---queryDepths ::-    (MonadIO m) =>-    m ([Int32])                             -- result-queryDepths  = liftIO $ do-    depths <- allocMem :: IO (Ptr (Ptr Int32))-    count <- allocMem :: IO (Ptr Int32)-    gdk_query_depths depths count-    count' <- peek count-    depths' <- peek depths-    depths'' <- (unpackStorableArrayWithLength count') depths'-    freeMem depths-    freeMem count-    return depths''----- function gdk_property_get--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pdelete", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actual_property_type", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "actual_format", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "actual_length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "data", argType = TCArray False (-1) 8 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "actual_length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_property_get" gdk_property_get :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Ptr Atom ->                             -- property : TInterface "Gdk" "Atom"-    Ptr Atom ->                             -- type : TInterface "Gdk" "Atom"-    CULong ->                               -- offset : TBasicType TULong-    CULong ->                               -- length : TBasicType TULong-    Int32 ->                                -- pdelete : TBasicType TInt-    Ptr (Ptr Atom) ->                       -- actual_property_type : TInterface "Gdk" "Atom"-    Ptr Int32 ->                            -- actual_format : TBasicType TInt-    Ptr Int32 ->                            -- actual_length : TBasicType TInt-    Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 8 (TBasicType TUInt8)-    IO CInt---propertyGet ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> Atom                                 -- property-    -> Atom                                 -- type_-    -> CULong                               -- offset-    -> CULong                               -- length_-    -> Int32                                -- pdelete-    -> m (Bool,Atom,Int32,ByteString)       -- result-propertyGet window property type_ offset length_ pdelete = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let property' = unsafeManagedPtrGetPtr property-    let type_' = unsafeManagedPtrGetPtr type_-    actualPropertyType <- allocMem :: IO (Ptr (Ptr Atom))-    actualFormat <- allocMem :: IO (Ptr Int32)-    actualLength <- allocMem :: IO (Ptr Int32)-    data_ <- allocMem :: IO (Ptr (Ptr Word8))-    result <- gdk_property_get window' property' type_' offset length_ pdelete actualPropertyType actualFormat actualLength data_-    actualLength' <- peek actualLength-    let result' = (/= 0) result-    actualPropertyType' <- peek actualPropertyType-    actualPropertyType'' <- (newPtr Atom) actualPropertyType'-    actualFormat' <- peek actualFormat-    data_' <- peek data_-    data_'' <- (unpackByteStringWithLength actualLength') data_'-    freeMem data_'-    touchManagedPtr window-    touchManagedPtr property-    touchManagedPtr type_-    freeMem actualPropertyType-    freeMem actualFormat-    freeMem actualLength-    freeMem data_-    return (result', actualPropertyType'', actualFormat', data_'')----- function gdk_property_delete--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_property_delete" gdk_property_delete :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Ptr Atom ->                             -- property : TInterface "Gdk" "Atom"-    IO ()---propertyDelete ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> Atom                                 -- property-    -> m ()                                 -- result-propertyDelete window property = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let property' = unsafeManagedPtrGetPtr property-    gdk_property_delete window' property'-    touchManagedPtr window-    touchManagedPtr property-    return ()----- function gdk_pre_parse_libgtk_only--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_pre_parse_libgtk_only" gdk_pre_parse_libgtk_only :: -    IO ()--{-# DEPRECATED preParseLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside","  of GTK+"]#-}-preParseLibgtkOnly ::-    (MonadIO m) =>-    m ()                                    -- result-preParseLibgtkOnly  = liftIO $ do-    gdk_pre_parse_libgtk_only-    return ()----- function gdk_pointer_ungrab--- Args : [Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_pointer_ungrab" gdk_pointer_ungrab :: -    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()--{-# DEPRECATED pointerUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()","            instead."]#-}-pointerUngrab ::-    (MonadIO m) =>-    Word32                                  -- time_-    -> m ()                                 -- result-pointerUngrab time_ = liftIO $ do-    gdk_pointer_ungrab time_-    return ()----- function gdk_pointer_is_grabbed--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_pointer_is_grabbed" gdk_pointer_is_grabbed :: -    IO CInt--{-# DEPRECATED pointerIsGrabbed ["(Since version 3.0)","Use gdk_display_device_is_grabbed() instead."]#-}-pointerIsGrabbed ::-    (MonadIO m) =>-    m Bool                                  -- result-pointerIsGrabbed  = liftIO $ do-    result <- gdk_pointer_is_grabbed-    let result' = (/= 0) result-    return result'----- function gdk_pointer_grab--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "GrabStatus")--- throws : False--- Skip return : False--foreign import ccall "gdk_pointer_grab" gdk_pointer_grab :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    CInt ->                                 -- owner_events : TBasicType TBoolean-    CUInt ->                                -- event_mask : TInterface "Gdk" "EventMask"-    Ptr Window ->                           -- confine_to : TInterface "Gdk" "Window"-    Ptr Cursor ->                           -- cursor : TInterface "Gdk" "Cursor"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO CUInt--{-# DEPRECATED pointerGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-}-pointerGrab ::-    (MonadIO m, WindowK a, WindowK b, CursorK c) =>-    a                                       -- window-    -> Bool                                 -- ownerEvents-    -> [EventMask]                          -- eventMask-    -> Maybe (b)                            -- confineTo-    -> Maybe (c)                            -- cursor-    -> Word32                               -- time_-    -> m GrabStatus                         -- result-pointerGrab window ownerEvents eventMask confineTo cursor time_ = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let ownerEvents' = (fromIntegral . fromEnum) ownerEvents-    let eventMask' = gflagsToWord eventMask-    maybeConfineTo <- case confineTo of-        Nothing -> return nullPtr-        Just jConfineTo -> do-            let jConfineTo' = unsafeManagedPtrCastPtr jConfineTo-            return jConfineTo'-    maybeCursor <- case cursor of-        Nothing -> return nullPtr-        Just jCursor -> do-            let jCursor' = unsafeManagedPtrCastPtr jCursor-            return jCursor'-    result <- gdk_pointer_grab window' ownerEvents' eventMask' maybeConfineTo maybeCursor time_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr window-    whenJust confineTo touchManagedPtr-    whenJust cursor touchManagedPtr-    return result'----- function gdk_pixbuf_get_from_window--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GdkPixbuf" "Pixbuf")--- throws : False--- Skip return : False--foreign import ccall "gdk_pixbuf_get_from_window" gdk_pixbuf_get_from_window :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- src_x : TBasicType TInt-    Int32 ->                                -- src_y : TBasicType TInt-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    IO (Ptr GdkPixbuf.Pixbuf)---pixbufGetFromWindow ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> Int32                                -- srcX-    -> Int32                                -- srcY-    -> Int32                                -- width-    -> Int32                                -- height-    -> m (Maybe GdkPixbuf.Pixbuf)           -- result-pixbufGetFromWindow window srcX srcY width height = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_pixbuf_get_from_window window' srcX srcY width height-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject GdkPixbuf.Pixbuf) result'-        return result''-    touchManagedPtr window-    return maybeResult----- function gdk_pixbuf_get_from_surface--- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GdkPixbuf" "Pixbuf")--- throws : False--- Skip return : False--foreign import ccall "gdk_pixbuf_get_from_surface" gdk_pixbuf_get_from_surface :: -    Ptr Cairo.Surface ->                    -- surface : TInterface "cairo" "Surface"-    Int32 ->                                -- src_x : TBasicType TInt-    Int32 ->                                -- src_y : TBasicType TInt-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    IO (Ptr GdkPixbuf.Pixbuf)---pixbufGetFromSurface ::-    (MonadIO m) =>-    Cairo.Surface                           -- surface-    -> Int32                                -- srcX-    -> Int32                                -- srcY-    -> Int32                                -- width-    -> Int32                                -- height-    -> m (Maybe GdkPixbuf.Pixbuf)           -- result-pixbufGetFromSurface surface srcX srcY width height = liftIO $ do-    let surface' = unsafeManagedPtrGetPtr surface-    result <- gdk_pixbuf_get_from_surface surface' srcX srcY width height-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject GdkPixbuf.Pixbuf) result'-        return result''-    touchManagedPtr surface-    return maybeResult----- function gdk_parse_args--- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_parse_args" gdk_parse_args :: -    Ptr Int32 ->                            -- argc : TBasicType TInt-    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)-    IO ()---parseArgs ::-    (MonadIO m) =>-    [T.Text]                                -- argv-    -> m ([T.Text])                         -- result-parseArgs argv = liftIO $ do-    let argc = fromIntegral $ length argv-    argc' <- allocMem :: IO (Ptr Int32)-    poke argc' argc-    argv' <- packUTF8CArray argv-    argv'' <- allocMem :: IO (Ptr (Ptr CString))-    poke argv'' argv'-    gdk_parse_args argc' argv''-    argc'' <- peek argc'-    argv''' <- peek argv''-    argv'''' <- (unpackUTF8CArrayWithLength argc'') argv'''-    (mapCArrayWithLength argc'') freeMem argv'''-    freeMem argv'''-    freeMem argc'-    freeMem argv''-    return argv''''----- function gdk_pango_context_get_for_screen--- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Pango" "Context")--- throws : False--- Skip return : False--foreign import ccall "gdk_pango_context_get_for_screen" gdk_pango_context_get_for_screen :: -    Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    IO (Ptr Pango.Context)---pangoContextGetForScreen ::-    (MonadIO m, ScreenK a) =>-    a                                       -- screen-    -> m Pango.Context                      -- result-pangoContextGetForScreen screen = liftIO $ do-    let screen' = unsafeManagedPtrCastPtr screen-    result <- gdk_pango_context_get_for_screen screen'-    checkUnexpectedReturnNULL "gdk_pango_context_get_for_screen" result-    result' <- (wrapObject Pango.Context) result-    touchManagedPtr screen-    return result'----- function gdk_pango_context_get--- Args : []--- Lengths : []--- returnType : Just (TInterface "Pango" "Context")--- throws : False--- Skip return : False--foreign import ccall "gdk_pango_context_get" gdk_pango_context_get :: -    IO (Ptr Pango.Context)---pangoContextGet ::-    (MonadIO m) =>-    m Pango.Context                         -- result-pangoContextGet  = liftIO $ do-    result <- gdk_pango_context_get-    checkUnexpectedReturnNULL "gdk_pango_context_get" result-    result' <- (wrapObject Pango.Context) result-    return result'----- function gdk_offscreen_window_set_embedder--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_offscreen_window_set_embedder" gdk_offscreen_window_set_embedder :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Ptr Window ->                           -- embedder : TInterface "Gdk" "Window"-    IO ()---offscreenWindowSetEmbedder ::-    (MonadIO m, WindowK a, WindowK b) =>-    a                                       -- window-    -> b                                    -- embedder-    -> m ()                                 -- result-offscreenWindowSetEmbedder window embedder = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let embedder' = unsafeManagedPtrCastPtr embedder-    gdk_offscreen_window_set_embedder window' embedder'-    touchManagedPtr window-    touchManagedPtr embedder-    return ()----- function gdk_offscreen_window_get_surface--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "gdk_offscreen_window_get_surface" gdk_offscreen_window_get_surface :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    IO (Ptr Cairo.Surface)---offscreenWindowGetSurface ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> m (Maybe Cairo.Surface)              -- result-offscreenWindowGetSurface window = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_offscreen_window_get_surface window'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed Cairo.Surface) result'-        return result''-    touchManagedPtr window-    return maybeResult----- function gdk_offscreen_window_get_embedder--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_offscreen_window_get_embedder" gdk_offscreen_window_get_embedder :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    IO (Ptr Window)---offscreenWindowGetEmbedder ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> m (Maybe Window)                     -- result-offscreenWindowGetEmbedder window = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_offscreen_window_get_embedder window'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    touchManagedPtr window-    return maybeResult----- function gdk_notify_startup_complete_with_id--- Args : [Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_notify_startup_complete_with_id" gdk_notify_startup_complete_with_id :: -    CString ->                              -- startup_id : TBasicType TUTF8-    IO ()---notifyStartupCompleteWithId ::-    (MonadIO m) =>-    T.Text                                  -- startupId-    -> m ()                                 -- result-notifyStartupCompleteWithId startupId = liftIO $ do-    startupId' <- textToCString startupId-    gdk_notify_startup_complete_with_id startupId'-    freeMem startupId'-    return ()----- function gdk_notify_startup_complete--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_notify_startup_complete" gdk_notify_startup_complete :: -    IO ()---notifyStartupComplete ::-    (MonadIO m) =>-    m ()                                    -- result-notifyStartupComplete  = liftIO $ do-    gdk_notify_startup_complete-    return ()----- function gdk_list_visuals--- Args : []--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Visual"))--- throws : False--- Skip return : False--foreign import ccall "gdk_list_visuals" gdk_list_visuals :: -    IO (Ptr (GList (Ptr Visual)))---listVisuals ::-    (MonadIO m) =>-    m [Visual]                              -- result-listVisuals  = liftIO $ do-    result <- gdk_list_visuals-    result' <- unpackGList result-    result'' <- mapM (newObject Visual) result'-    g_list_free result-    return result''----- function gdk_keyval_to_upper--- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_to_upper" gdk_keyval_to_upper :: -    Word32 ->                               -- keyval : TBasicType TUInt-    IO Word32---keyvalToUpper ::-    (MonadIO m) =>-    Word32                                  -- keyval-    -> m Word32                             -- result-keyvalToUpper keyval = liftIO $ do-    result <- gdk_keyval_to_upper keyval-    return result----- function gdk_keyval_to_unicode--- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_to_unicode" gdk_keyval_to_unicode :: -    Word32 ->                               -- keyval : TBasicType TUInt-    IO Word32---keyvalToUnicode ::-    (MonadIO m) =>-    Word32                                  -- keyval-    -> m Word32                             -- result-keyvalToUnicode keyval = liftIO $ do-    result <- gdk_keyval_to_unicode keyval-    return result----- function gdk_keyval_to_lower--- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_to_lower" gdk_keyval_to_lower :: -    Word32 ->                               -- keyval : TBasicType TUInt-    IO Word32---keyvalToLower ::-    (MonadIO m) =>-    Word32                                  -- keyval-    -> m Word32                             -- result-keyvalToLower keyval = liftIO $ do-    result <- gdk_keyval_to_lower keyval-    return result----- function gdk_keyval_name--- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_name" gdk_keyval_name :: -    Word32 ->                               -- keyval : TBasicType TUInt-    IO CString---keyvalName ::-    (MonadIO m) =>-    Word32                                  -- keyval-    -> m (Maybe T.Text)                     -- result-keyvalName keyval = liftIO $ do-    result <- gdk_keyval_name keyval-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    return maybeResult----- function gdk_keyval_is_upper--- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_is_upper" gdk_keyval_is_upper :: -    Word32 ->                               -- keyval : TBasicType TUInt-    IO CInt---keyvalIsUpper ::-    (MonadIO m) =>-    Word32                                  -- keyval-    -> m Bool                               -- result-keyvalIsUpper keyval = liftIO $ do-    result <- gdk_keyval_is_upper keyval-    let result' = (/= 0) result-    return result'----- function gdk_keyval_is_lower--- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_is_lower" gdk_keyval_is_lower :: -    Word32 ->                               -- keyval : TBasicType TUInt-    IO CInt---keyvalIsLower ::-    (MonadIO m) =>-    Word32                                  -- keyval-    -> m Bool                               -- result-keyvalIsLower keyval = liftIO $ do-    result <- gdk_keyval_is_lower keyval-    let result' = (/= 0) result-    return result'----- function gdk_keyval_from_name--- Args : [Arg {argCName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_from_name" gdk_keyval_from_name :: -    CString ->                              -- keyval_name : TBasicType TUTF8-    IO Word32---keyvalFromName ::-    (MonadIO m) =>-    T.Text                                  -- keyvalName-    -> m Word32                             -- result-keyvalFromName keyvalName = liftIO $ do-    keyvalName' <- textToCString keyvalName-    result <- gdk_keyval_from_name keyvalName'-    freeMem keyvalName'-    return result----- function gdk_keyval_convert_case--- Args : [Arg {argCName = "symbol", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "upper", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_convert_case" gdk_keyval_convert_case :: -    Word32 ->                               -- symbol : TBasicType TUInt-    Ptr Word32 ->                           -- lower : TBasicType TUInt-    Ptr Word32 ->                           -- upper : TBasicType TUInt-    IO ()---keyvalConvertCase ::-    (MonadIO m) =>-    Word32                                  -- symbol-    -> m (Word32,Word32)                    -- result-keyvalConvertCase symbol = liftIO $ do-    lower <- allocMem :: IO (Ptr Word32)-    upper <- allocMem :: IO (Ptr Word32)-    gdk_keyval_convert_case symbol lower upper-    lower' <- peek lower-    upper' <- peek upper-    freeMem lower-    freeMem upper-    return (lower', upper')----- function gdk_keyboard_ungrab--- Args : [Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_keyboard_ungrab" gdk_keyboard_ungrab :: -    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()--{-# DEPRECATED keyboardUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()","            instead."]#-}-keyboardUngrab ::-    (MonadIO m) =>-    Word32                                  -- time_-    -> m ()                                 -- result-keyboardUngrab time_ = liftIO $ do-    gdk_keyboard_ungrab time_-    return ()----- function gdk_keyboard_grab--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "GrabStatus")--- throws : False--- Skip return : False--foreign import ccall "gdk_keyboard_grab" gdk_keyboard_grab :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    CInt ->                                 -- owner_events : TBasicType TBoolean-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO CUInt--{-# DEPRECATED keyboardGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-}-keyboardGrab ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> Bool                                 -- ownerEvents-    -> Word32                               -- time_-    -> m GrabStatus                         -- result-keyboardGrab window ownerEvents time_ = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let ownerEvents' = (fromIntegral . fromEnum) ownerEvents-    result <- gdk_keyboard_grab window' ownerEvents' time_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr window-    return result'----- function gdk_init_check--- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_init_check" gdk_init_check :: -    Ptr Int32 ->                            -- argc : TBasicType TInt-    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)-    IO CInt---initCheck ::-    (MonadIO m) =>-    [T.Text]                                -- argv-    -> m (Bool,[T.Text])                    -- result-initCheck argv = liftIO $ do-    let argc = fromIntegral $ length argv-    argc' <- allocMem :: IO (Ptr Int32)-    poke argc' argc-    argv' <- packUTF8CArray argv-    argv'' <- allocMem :: IO (Ptr (Ptr CString))-    poke argv'' argv'-    result <- gdk_init_check argc' argv''-    argc'' <- peek argc'-    let result' = (/= 0) result-    argv''' <- peek argv''-    argv'''' <- (unpackUTF8CArrayWithLength argc'') argv'''-    (mapCArrayWithLength argc'') freeMem argv'''-    freeMem argv'''-    freeMem argc'-    freeMem argv''-    return (result', argv'''')----- function gdk_init--- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_init" gdk_init :: -    Ptr Int32 ->                            -- argc : TBasicType TInt-    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)-    IO ()---init ::-    (MonadIO m) =>-    [T.Text]                                -- argv-    -> m ([T.Text])                         -- result-init argv = liftIO $ do-    let argc = fromIntegral $ length argv-    argc' <- allocMem :: IO (Ptr Int32)-    poke argc' argc-    argv' <- packUTF8CArray argv-    argv'' <- allocMem :: IO (Ptr (Ptr CString))-    poke argv'' argv'-    gdk_init argc' argv''-    argc'' <- peek argc'-    argv''' <- peek argv''-    argv'''' <- (unpackUTF8CArrayWithLength argc'') argv'''-    (mapCArrayWithLength argc'') freeMem argv'''-    freeMem argv'''-    freeMem argc'-    freeMem argv''-    return argv''''----- function gdk_get_show_events--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_get_show_events" gdk_get_show_events :: -    IO CInt---getShowEvents ::-    (MonadIO m) =>-    m Bool                                  -- result-getShowEvents  = liftIO $ do-    result <- gdk_get_show_events-    let result' = (/= 0) result-    return result'----- function gdk_get_program_class--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_get_program_class" gdk_get_program_class :: -    IO CString---getProgramClass ::-    (MonadIO m) =>-    m T.Text                                -- result-getProgramClass  = liftIO $ do-    result <- gdk_get_program_class-    checkUnexpectedReturnNULL "gdk_get_program_class" result-    result' <- cstringToText result-    return result'----- function gdk_get_display_arg_name--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_get_display_arg_name" gdk_get_display_arg_name :: -    IO CString---getDisplayArgName ::-    (MonadIO m) =>-    m (Maybe T.Text)                        -- result-getDisplayArgName  = liftIO $ do-    result <- gdk_get_display_arg_name-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    return maybeResult----- function gdk_get_display--- Args : []--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_get_display" gdk_get_display :: -    IO CString--{-# DEPRECATED getDisplay ["(Since version 3.8)","Call gdk_display_get_name (gdk_display_get_default ()))","   instead."]#-}-getDisplay ::-    (MonadIO m) =>-    m T.Text                                -- result-getDisplay  = liftIO $ do-    result <- gdk_get_display-    checkUnexpectedReturnNULL "gdk_get_display" result-    result' <- cstringToText result-    freeMem result-    return result'----- function gdk_get_default_root_window--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_get_default_root_window" gdk_get_default_root_window :: -    IO (Ptr Window)---getDefaultRootWindow ::-    (MonadIO m) =>-    m Window                                -- result-getDefaultRootWindow  = liftIO $ do-    result <- gdk_get_default_root_window-    checkUnexpectedReturnNULL "gdk_get_default_root_window" result-    result' <- (newObject Window) result-    return result'----- function gdk_flush--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_flush" gdk_flush :: -    IO ()---flush ::-    (MonadIO m) =>-    m ()                                    -- result-flush  = liftIO $ do-    gdk_flush-    return ()----- function gdk_events_pending--- Args : []--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_events_pending" gdk_events_pending :: -    IO CInt---eventsPending ::-    (MonadIO m) =>-    m Bool                                  -- result-eventsPending  = liftIO $ do-    result <- gdk_events_pending-    let result' = (/= 0) result-    return result'----- function gdk_events_get_distance--- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_events_get_distance" gdk_events_get_distance :: -    Ptr Event ->                            -- event1 : TInterface "Gdk" "Event"-    Ptr Event ->                            -- event2 : TInterface "Gdk" "Event"-    Ptr CDouble ->                          -- distance : TBasicType TDouble-    IO CInt---eventsGetDistance ::-    (MonadIO m) =>-    Event                                   -- event1-    -> Event                                -- event2-    -> m (Bool,Double)                      -- result-eventsGetDistance event1 event2 = liftIO $ do-    let event1' = unsafeManagedPtrGetPtr event1-    let event2' = unsafeManagedPtrGetPtr event2-    distance <- allocMem :: IO (Ptr CDouble)-    result <- gdk_events_get_distance event1' event2' distance-    let result' = (/= 0) result-    distance' <- peek distance-    let distance'' = realToFrac distance'-    touchManagedPtr event1-    touchManagedPtr event2-    freeMem distance-    return (result', distance'')----- function gdk_events_get_center--- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_events_get_center" gdk_events_get_center :: -    Ptr Event ->                            -- event1 : TInterface "Gdk" "Event"-    Ptr Event ->                            -- event2 : TInterface "Gdk" "Event"-    Ptr CDouble ->                          -- x : TBasicType TDouble-    Ptr CDouble ->                          -- y : TBasicType TDouble-    IO CInt---eventsGetCenter ::-    (MonadIO m) =>-    Event                                   -- event1-    -> Event                                -- event2-    -> m (Bool,Double,Double)               -- result-eventsGetCenter event1 event2 = liftIO $ do-    let event1' = unsafeManagedPtrGetPtr event1-    let event2' = unsafeManagedPtrGetPtr event2-    x <- allocMem :: IO (Ptr CDouble)-    y <- allocMem :: IO (Ptr CDouble)-    result <- gdk_events_get_center event1' event2' x y-    let result' = (/= 0) result-    x' <- peek x-    let x'' = realToFrac x'-    y' <- peek y-    let y'' = realToFrac y'-    touchManagedPtr event1-    touchManagedPtr event2-    freeMem x-    freeMem y-    return (result', x'', y'')----- function gdk_events_get_angle--- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_events_get_angle" gdk_events_get_angle :: -    Ptr Event ->                            -- event1 : TInterface "Gdk" "Event"-    Ptr Event ->                            -- event2 : TInterface "Gdk" "Event"-    Ptr CDouble ->                          -- angle : TBasicType TDouble-    IO CInt---eventsGetAngle ::-    (MonadIO m) =>-    Event                                   -- event1-    -> Event                                -- event2-    -> m (Bool,Double)                      -- result-eventsGetAngle event1 event2 = liftIO $ do-    let event1' = unsafeManagedPtrGetPtr event1-    let event2' = unsafeManagedPtrGetPtr event2-    angle <- allocMem :: IO (Ptr CDouble)-    result <- gdk_events_get_angle event1' event2' angle-    let result' = (/= 0) result-    angle' <- peek angle-    let angle'' = realToFrac angle'-    touchManagedPtr event1-    touchManagedPtr event2-    freeMem angle-    return (result', angle'')----- function gdk_error_trap_push--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_error_trap_push" gdk_error_trap_push :: -    IO ()---errorTrapPush ::-    (MonadIO m) =>-    m ()                                    -- result-errorTrapPush  = liftIO $ do-    gdk_error_trap_push-    return ()----- function gdk_error_trap_pop_ignored--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_error_trap_pop_ignored" gdk_error_trap_pop_ignored :: -    IO ()---errorTrapPopIgnored ::-    (MonadIO m) =>-    m ()                                    -- result-errorTrapPopIgnored  = liftIO $ do-    gdk_error_trap_pop_ignored-    return ()----- function gdk_error_trap_pop--- Args : []--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_error_trap_pop" gdk_error_trap_pop :: -    IO Int32---errorTrapPop ::-    (MonadIO m) =>-    m Int32                                 -- result-errorTrapPop  = liftIO $ do-    result <- gdk_error_trap_pop-    return result----- function gdk_drop_reply--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_drop_reply" gdk_drop_reply :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    CInt ->                                 -- accepted : TBasicType TBoolean-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---dropReply ::-    (MonadIO m, DragContextK a) =>-    a                                       -- context-    -> Bool                                 -- accepted-    -> Word32                               -- time_-    -> m ()                                 -- result-dropReply context accepted time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let accepted' = (fromIntegral . fromEnum) accepted-    gdk_drop_reply context' accepted' time_-    touchManagedPtr context-    return ()----- function gdk_drop_finish--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_drop_finish" gdk_drop_finish :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    CInt ->                                 -- success : TBasicType TBoolean-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---dropFinish ::-    (MonadIO m, DragContextK a) =>-    a                                       -- context-    -> Bool                                 -- success-    -> Word32                               -- time_-    -> m ()                                 -- result-dropFinish context success time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let success' = (fromIntegral . fromEnum) success-    gdk_drop_finish context' success' time_-    touchManagedPtr context-    return ()----- function gdk_drag_status--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_status" gdk_drag_status :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    CUInt ->                                -- action : TInterface "Gdk" "DragAction"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---dragStatus ::-    (MonadIO m, DragContextK a) =>-    a                                       -- context-    -> [DragAction]                         -- action-    -> Word32                               -- time_-    -> m ()                                 -- result-dragStatus context action time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let action' = gflagsToWord action-    gdk_drag_status context' action' time_-    touchManagedPtr context-    return ()----- function gdk_drag_motion--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_motion" gdk_drag_motion :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    Ptr Window ->                           -- dest_window : TInterface "Gdk" "Window"-    CUInt ->                                -- protocol : TInterface "Gdk" "DragProtocol"-    Int32 ->                                -- x_root : TBasicType TInt-    Int32 ->                                -- y_root : TBasicType TInt-    CUInt ->                                -- suggested_action : TInterface "Gdk" "DragAction"-    CUInt ->                                -- possible_actions : TInterface "Gdk" "DragAction"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO CInt---dragMotion ::-    (MonadIO m, DragContextK a, WindowK b) =>-    a                                       -- context-    -> b                                    -- destWindow-    -> DragProtocol                         -- protocol-    -> Int32                                -- xRoot-    -> Int32                                -- yRoot-    -> [DragAction]                         -- suggestedAction-    -> [DragAction]                         -- possibleActions-    -> Word32                               -- time_-    -> m Bool                               -- result-dragMotion context destWindow protocol xRoot yRoot suggestedAction possibleActions time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let destWindow' = unsafeManagedPtrCastPtr destWindow-    let protocol' = (fromIntegral . fromEnum) protocol-    let suggestedAction' = gflagsToWord suggestedAction-    let possibleActions' = gflagsToWord possibleActions-    result <- gdk_drag_motion context' destWindow' protocol' xRoot yRoot suggestedAction' possibleActions' time_-    let result' = (/= 0) result-    touchManagedPtr context-    touchManagedPtr destWindow-    return result'----- function gdk_drag_get_selection--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Atom")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_get_selection" gdk_drag_get_selection :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    IO (Ptr Atom)---dragGetSelection ::-    (MonadIO m, DragContextK a) =>-    a                                       -- context-    -> m Atom                               -- result-dragGetSelection context = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    result <- gdk_drag_get_selection context'-    checkUnexpectedReturnNULL "gdk_drag_get_selection" result-    result' <- (newPtr Atom) result-    touchManagedPtr context-    return result'----- function gdk_drag_find_window_for_screen--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_find_window_for_screen" gdk_drag_find_window_for_screen :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    Ptr Window ->                           -- drag_window : TInterface "Gdk" "Window"-    Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    Int32 ->                                -- x_root : TBasicType TInt-    Int32 ->                                -- y_root : TBasicType TInt-    Ptr (Ptr Window) ->                     -- dest_window : TInterface "Gdk" "Window"-    Ptr CUInt ->                            -- protocol : TInterface "Gdk" "DragProtocol"-    IO ()---dragFindWindowForScreen ::-    (MonadIO m, DragContextK a, WindowK b, ScreenK c) =>-    a                                       -- context-    -> b                                    -- dragWindow-    -> c                                    -- screen-    -> Int32                                -- xRoot-    -> Int32                                -- yRoot-    -> m (Window,DragProtocol)              -- result-dragFindWindowForScreen context dragWindow screen xRoot yRoot = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let dragWindow' = unsafeManagedPtrCastPtr dragWindow-    let screen' = unsafeManagedPtrCastPtr screen-    destWindow <- allocMem :: IO (Ptr (Ptr Window))-    protocol <- allocMem :: IO (Ptr CUInt)-    gdk_drag_find_window_for_screen context' dragWindow' screen' xRoot yRoot destWindow protocol-    destWindow' <- peek destWindow-    destWindow'' <- (wrapObject Window) destWindow'-    protocol' <- peek protocol-    let protocol'' = (toEnum . fromIntegral) protocol'-    touchManagedPtr context-    touchManagedPtr dragWindow-    touchManagedPtr screen-    freeMem destWindow-    freeMem protocol-    return (destWindow'', protocol'')----- function gdk_drag_drop_succeeded--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_drop_succeeded" gdk_drag_drop_succeeded :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    IO CInt---dragDropSucceeded ::-    (MonadIO m, DragContextK a) =>-    a                                       -- context-    -> m Bool                               -- result-dragDropSucceeded context = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    result <- gdk_drag_drop_succeeded context'-    let result' = (/= 0) result-    touchManagedPtr context-    return result'----- function gdk_drag_drop--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_drop" gdk_drag_drop :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---dragDrop ::-    (MonadIO m, DragContextK a) =>-    a                                       -- context-    -> Word32                               -- time_-    -> m ()                                 -- result-dragDrop context time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    gdk_drag_drop context' time_-    touchManagedPtr context-    return ()----- function gdk_drag_begin_for_device--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DragContext")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_begin_for_device" gdk_drag_begin_for_device :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    Ptr (GList (Ptr Atom)) ->               -- targets : TGList (TInterface "Gdk" "Atom")-    IO (Ptr DragContext)---dragBeginForDevice ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- window-    -> b                                    -- device-    -> [Atom]                               -- targets-    -> m DragContext                        -- result-dragBeginForDevice window device targets = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let device' = unsafeManagedPtrCastPtr device-    let targets' = map unsafeManagedPtrGetPtr targets-    targets'' <- packGList targets'-    result <- gdk_drag_begin_for_device window' device' targets''-    checkUnexpectedReturnNULL "gdk_drag_begin_for_device" result-    result' <- (wrapObject DragContext) result-    touchManagedPtr window-    touchManagedPtr device-    mapM_ touchManagedPtr targets-    g_list_free targets''-    return result'----- function gdk_drag_begin--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DragContext")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_begin" gdk_drag_begin :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Ptr (GList (Ptr Atom)) ->               -- targets : TGList (TInterface "Gdk" "Atom")-    IO (Ptr DragContext)---dragBegin ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> [Atom]                               -- targets-    -> m DragContext                        -- result-dragBegin window targets = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let targets' = map unsafeManagedPtrGetPtr targets-    targets'' <- packGList targets'-    result <- gdk_drag_begin window' targets''-    checkUnexpectedReturnNULL "gdk_drag_begin" result-    result' <- (wrapObject DragContext) result-    touchManagedPtr window-    mapM_ touchManagedPtr targets-    g_list_free targets''-    return result'----- function gdk_drag_abort--- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_abort" gdk_drag_abort :: -    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---dragAbort ::-    (MonadIO m, DragContextK a) =>-    a                                       -- context-    -> Word32                               -- time_-    -> m ()                                 -- result-dragAbort context time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    gdk_drag_abort context' time_-    touchManagedPtr context-    return ()----- function gdk_disable_multidevice--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_disable_multidevice" gdk_disable_multidevice :: -    IO ()---disableMultidevice ::-    (MonadIO m) =>-    m ()                                    -- result-disableMultidevice  = liftIO $ do-    gdk_disable_multidevice-    return ()----- function gdk_cairo_surface_create_from_pixbuf--- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_surface_create_from_pixbuf" gdk_cairo_surface_create_from_pixbuf :: -    Ptr GdkPixbuf.Pixbuf ->                 -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"-    Int32 ->                                -- scale : TBasicType TInt-    Ptr Window ->                           -- for_window : TInterface "Gdk" "Window"-    IO (Ptr Cairo.Surface)---cairoSurfaceCreateFromPixbuf ::-    (MonadIO m, GdkPixbuf.PixbufK a, WindowK b) =>-    a                                       -- pixbuf-    -> Int32                                -- scale-    -> Maybe (b)                            -- forWindow-    -> m Cairo.Surface                      -- result-cairoSurfaceCreateFromPixbuf pixbuf scale forWindow = liftIO $ do-    let pixbuf' = unsafeManagedPtrCastPtr pixbuf-    maybeForWindow <- case forWindow of-        Nothing -> return nullPtr-        Just jForWindow -> do-            let jForWindow' = unsafeManagedPtrCastPtr jForWindow-            return jForWindow'-    result <- gdk_cairo_surface_create_from_pixbuf pixbuf' scale maybeForWindow-    checkUnexpectedReturnNULL "gdk_cairo_surface_create_from_pixbuf" result-    result' <- (wrapBoxed Cairo.Surface) result-    touchManagedPtr pixbuf-    whenJust forWindow touchManagedPtr-    return result'----- function gdk_cairo_set_source_window--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_set_source_window" gdk_cairo_set_source_window :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    CDouble ->                              -- x : TBasicType TDouble-    CDouble ->                              -- y : TBasicType TDouble-    IO ()---cairoSetSourceWindow ::-    (MonadIO m, WindowK a) =>-    Cairo.Context                           -- cr-    -> a                                    -- window-    -> Double                               -- x-    -> Double                               -- y-    -> m ()                                 -- result-cairoSetSourceWindow cr window x y = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let window' = unsafeManagedPtrCastPtr window-    let x' = realToFrac x-    let y' = realToFrac y-    gdk_cairo_set_source_window cr' window' x' y'-    touchManagedPtr cr-    touchManagedPtr window-    return ()----- function gdk_cairo_set_source_rgba--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_set_source_rgba" gdk_cairo_set_source_rgba :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr RGBA ->                             -- rgba : TInterface "Gdk" "RGBA"-    IO ()---cairoSetSourceRgba ::-    (MonadIO m) =>-    Cairo.Context                           -- cr-    -> RGBA                                 -- rgba-    -> m ()                                 -- result-cairoSetSourceRgba cr rgba = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let rgba' = unsafeManagedPtrGetPtr rgba-    gdk_cairo_set_source_rgba cr' rgba'-    touchManagedPtr cr-    touchManagedPtr rgba-    return ()----- function gdk_cairo_set_source_pixbuf--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_set_source_pixbuf" gdk_cairo_set_source_pixbuf :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr GdkPixbuf.Pixbuf ->                 -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"-    CDouble ->                              -- pixbuf_x : TBasicType TDouble-    CDouble ->                              -- pixbuf_y : TBasicType TDouble-    IO ()---cairoSetSourcePixbuf ::-    (MonadIO m, GdkPixbuf.PixbufK a) =>-    Cairo.Context                           -- cr-    -> a                                    -- pixbuf-    -> Double                               -- pixbufX-    -> Double                               -- pixbufY-    -> m ()                                 -- result-cairoSetSourcePixbuf cr pixbuf pixbufX pixbufY = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let pixbuf' = unsafeManagedPtrCastPtr pixbuf-    let pixbufX' = realToFrac pixbufX-    let pixbufY' = realToFrac pixbufY-    gdk_cairo_set_source_pixbuf cr' pixbuf' pixbufX' pixbufY'-    touchManagedPtr cr-    touchManagedPtr pixbuf-    return ()----- function gdk_cairo_set_source_color--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_set_source_color" gdk_cairo_set_source_color :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr Color ->                            -- color : TInterface "Gdk" "Color"-    IO ()--{-# DEPRECATED cairoSetSourceColor ["(Since version 3.4)","Use gdk_cairo_set_source_rgba() instead"]#-}-cairoSetSourceColor ::-    (MonadIO m) =>-    Cairo.Context                           -- cr-    -> Color                                -- color-    -> m ()                                 -- result-cairoSetSourceColor cr color = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let color' = unsafeManagedPtrGetPtr color-    gdk_cairo_set_source_color cr' color'-    touchManagedPtr cr-    touchManagedPtr color-    return ()----- function gdk_cairo_region_create_from_surface--- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Region")--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_region_create_from_surface" gdk_cairo_region_create_from_surface :: -    Ptr Cairo.Surface ->                    -- surface : TInterface "cairo" "Surface"-    IO (Ptr Cairo.Region)---cairoRegionCreateFromSurface ::-    (MonadIO m) =>-    Cairo.Surface                           -- surface-    -> m Cairo.Region                       -- result-cairoRegionCreateFromSurface surface = liftIO $ do-    let surface' = unsafeManagedPtrGetPtr surface-    result <- gdk_cairo_region_create_from_surface surface'-    checkUnexpectedReturnNULL "gdk_cairo_region_create_from_surface" result-    result' <- (wrapBoxed Cairo.Region) result-    touchManagedPtr surface-    return result'----- function gdk_cairo_region--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_region" gdk_cairo_region :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr Cairo.Region ->                     -- region : TInterface "cairo" "Region"-    IO ()---cairoRegion ::-    (MonadIO m) =>-    Cairo.Context                           -- cr-    -> Cairo.Region                         -- region-    -> m ()                                 -- result-cairoRegion cr region = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let region' = unsafeManagedPtrGetPtr region-    gdk_cairo_region cr' region'-    touchManagedPtr cr-    touchManagedPtr region-    return ()----- function gdk_cairo_rectangle--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_rectangle" gdk_cairo_rectangle :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr Rectangle ->                        -- rectangle : TInterface "Gdk" "Rectangle"-    IO ()---cairoRectangle ::-    (MonadIO m) =>-    Cairo.Context                           -- cr-    -> Rectangle                            -- rectangle-    -> m ()                                 -- result-cairoRectangle cr rectangle = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let rectangle' = unsafeManagedPtrGetPtr rectangle-    gdk_cairo_rectangle cr' rectangle'-    touchManagedPtr cr-    touchManagedPtr rectangle-    return ()----- function gdk_cairo_get_clip_rectangle--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_get_clip_rectangle" gdk_cairo_get_clip_rectangle :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr Rectangle ->                        -- rect : TInterface "Gdk" "Rectangle"-    IO CInt---cairoGetClipRectangle ::-    (MonadIO m) =>-    Cairo.Context                           -- cr-    -> m (Bool,Rectangle)                   -- result-cairoGetClipRectangle cr = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle)-    result <- gdk_cairo_get_clip_rectangle cr' rect-    let result' = (/= 0) result-    rect' <- (wrapBoxed Rectangle) rect-    touchManagedPtr cr-    return (result', rect')----- function gdk_cairo_draw_from_gl--- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_type", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_draw_from_gl" gdk_cairo_draw_from_gl :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- source : TBasicType TInt-    Int32 ->                                -- source_type : TBasicType TInt-    Int32 ->                                -- buffer_scale : TBasicType TInt-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    IO ()---cairoDrawFromGl ::-    (MonadIO m, WindowK a) =>-    Cairo.Context                           -- cr-    -> a                                    -- window-    -> Int32                                -- source-    -> Int32                                -- sourceType-    -> Int32                                -- bufferScale-    -> Int32                                -- x-    -> Int32                                -- y-    -> Int32                                -- width-    -> Int32                                -- height-    -> m ()                                 -- result-cairoDrawFromGl cr window source sourceType bufferScale x y width height = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let window' = unsafeManagedPtrCastPtr window-    gdk_cairo_draw_from_gl cr' window' source sourceType bufferScale x y width height-    touchManagedPtr cr-    touchManagedPtr window-    return ()----- function gdk_cairo_create--- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Context")--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_create" gdk_cairo_create :: -    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    IO (Ptr Cairo.Context)---cairoCreate ::-    (MonadIO m, WindowK a) =>-    a                                       -- window-    -> m Cairo.Context                      -- result-cairoCreate window = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_cairo_create window'-    checkUnexpectedReturnNULL "gdk_cairo_create" result-    result' <- (wrapBoxed Cairo.Context) result-    touchManagedPtr window-    return result'----- function gdk_beep--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_beep" gdk_beep :: -    IO ()---beep ::-    (MonadIO m) =>-    m ()                                    -- result-beep  = liftIO $ do-    gdk_beep-    return ()----- function gdk_add_option_entries_libgtk_only--- Args : [Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_add_option_entries_libgtk_only" gdk_add_option_entries_libgtk_only :: -    Ptr GLib.OptionGroup ->                 -- group : TInterface "GLib" "OptionGroup"-    IO ()--{-# DEPRECATED addOptionEntriesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside","  of GTK+"]#-}-addOptionEntriesLibgtkOnly ::-    (MonadIO m) =>-    GLib.OptionGroup                        -- group-    -> m ()                                 -- result-addOptionEntriesLibgtkOnly group = liftIO $ do-    let group' = unsafeManagedPtrGetPtr group-    gdk_add_option_entries_libgtk_only group'-    touchManagedPtr group-    return ()---
− GI/Gdk/Objects.hs 
@@ -1,51 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects-    (     module GI.Gdk.Objects.AppLaunchContext  ,-    module GI.Gdk.Objects.Cursor            ,-    module GI.Gdk.Objects.Device            ,-    module GI.Gdk.Objects.DeviceManager     ,-    module GI.Gdk.Objects.Display           ,-    module GI.Gdk.Objects.DisplayManager    ,-    module GI.Gdk.Objects.DragContext       ,-    module GI.Gdk.Objects.FrameClock        ,-    module GI.Gdk.Objects.GLContext         ,-    module GI.Gdk.Objects.Keymap            ,-    module GI.Gdk.Objects.Screen            ,-    module GI.Gdk.Objects.Visual            ,-    module GI.Gdk.Objects.Window            ,---    ) where--import GI.Gdk.Objects.AppLaunchContext-import GI.Gdk.Objects.Cursor-import GI.Gdk.Objects.Device-import GI.Gdk.Objects.DeviceManager-import GI.Gdk.Objects.Display-import GI.Gdk.Objects.DisplayManager-import GI.Gdk.Objects.DragContext-import GI.Gdk.Objects.FrameClock-import GI.Gdk.Objects.GLContext-import GI.Gdk.Objects.Keymap-import GI.Gdk.Objects.Screen-import GI.Gdk.Objects.Visual-import GI.Gdk.Objects.Window--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--
− GI/Gdk/Objects/AppLaunchContext.hs 
@@ -1,389 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.AppLaunchContext-    ( ---- * Exported types-    AppLaunchContext(..)                    ,-    AppLaunchContextK                       ,-    toAppLaunchContext                      ,-    noAppLaunchContext                      ,--- -- * Methods--- ** appLaunchContextNew-    appLaunchContextNew                     ,----- ** appLaunchContextSetDesktop-    AppLaunchContextSetDesktopMethodInfo    ,-    appLaunchContextSetDesktop              ,----- ** appLaunchContextSetDisplay-    AppLaunchContextSetDisplayMethodInfo    ,-    appLaunchContextSetDisplay              ,----- ** appLaunchContextSetIcon-    AppLaunchContextSetIconMethodInfo       ,-    appLaunchContextSetIcon                 ,----- ** appLaunchContextSetIconName-    AppLaunchContextSetIconNameMethodInfo   ,-    appLaunchContextSetIconName             ,----- ** appLaunchContextSetScreen-    AppLaunchContextSetScreenMethodInfo     ,-    appLaunchContextSetScreen               ,----- ** appLaunchContextSetTimestamp-    AppLaunchContextSetTimestampMethodInfo  ,-    appLaunchContextSetTimestamp            ,----- -- * Properties--- ** Display-    AppLaunchContextDisplayPropertyInfo     ,-    appLaunchContextDisplay                 ,-    constructAppLaunchContextDisplay        ,-    getAppLaunchContextDisplay              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Gio as Gio--newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext)-foreign import ccall "gdk_app_launch_context_get_type"-    c_gdk_app_launch_context_get_type :: IO GType--type instance ParentTypes AppLaunchContext = AppLaunchContextParentTypes-type AppLaunchContextParentTypes = '[Gio.AppLaunchContext, GObject.Object]--instance GObject AppLaunchContext where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_app_launch_context_get_type-    --class GObject o => AppLaunchContextK o-instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o--toAppLaunchContext :: AppLaunchContextK o => o -> IO AppLaunchContext-toAppLaunchContext = unsafeCastTo AppLaunchContext--noAppLaunchContext :: Maybe AppLaunchContext-noAppLaunchContext = Nothing--type family ResolveAppLaunchContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveAppLaunchContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveAppLaunchContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveAppLaunchContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveAppLaunchContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveAppLaunchContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveAppLaunchContextMethod "launchFailed" o = Gio.AppLaunchContextLaunchFailedMethodInfo-    ResolveAppLaunchContextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveAppLaunchContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveAppLaunchContextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveAppLaunchContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveAppLaunchContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveAppLaunchContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveAppLaunchContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveAppLaunchContextMethod "setenv" o = Gio.AppLaunchContextSetenvMethodInfo-    ResolveAppLaunchContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveAppLaunchContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveAppLaunchContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveAppLaunchContextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveAppLaunchContextMethod "unsetenv" o = Gio.AppLaunchContextUnsetenvMethodInfo-    ResolveAppLaunchContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveAppLaunchContextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveAppLaunchContextMethod "getDisplay" o = Gio.AppLaunchContextGetDisplayMethodInfo-    ResolveAppLaunchContextMethod "getEnvironment" o = Gio.AppLaunchContextGetEnvironmentMethodInfo-    ResolveAppLaunchContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveAppLaunchContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveAppLaunchContextMethod "getStartupNotifyId" o = Gio.AppLaunchContextGetStartupNotifyIdMethodInfo-    ResolveAppLaunchContextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveAppLaunchContextMethod "setDesktop" o = AppLaunchContextSetDesktopMethodInfo-    ResolveAppLaunchContextMethod "setDisplay" o = AppLaunchContextSetDisplayMethodInfo-    ResolveAppLaunchContextMethod "setIcon" o = AppLaunchContextSetIconMethodInfo-    ResolveAppLaunchContextMethod "setIconName" o = AppLaunchContextSetIconNameMethodInfo-    ResolveAppLaunchContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveAppLaunchContextMethod "setScreen" o = AppLaunchContextSetScreenMethodInfo-    ResolveAppLaunchContextMethod "setTimestamp" o = AppLaunchContextSetTimestampMethodInfo-    ResolveAppLaunchContextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabelProxy t (AppLaunchContext -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAppLaunchContextMethod t AppLaunchContext, MethodInfo info AppLaunchContext p) => IsLabel t (AppLaunchContext -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Just False)--getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m (Maybe Display)-getAppLaunchContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display--constructAppLaunchContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" (Just val)--data AppLaunchContextDisplayPropertyInfo-instance AttrInfo AppLaunchContextDisplayPropertyInfo where-    type AttrAllowedOps AppLaunchContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AppLaunchContextDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint AppLaunchContextDisplayPropertyInfo = AppLaunchContextK-    type AttrGetType AppLaunchContextDisplayPropertyInfo = (Maybe Display)-    type AttrLabel AppLaunchContextDisplayPropertyInfo = "display"-    attrGet _ = getAppLaunchContextDisplay-    attrSet _ = undefined-    attrConstruct _ = constructAppLaunchContextDisplay-    attrClear _ = undefined--type instance AttributeList AppLaunchContext = AppLaunchContextAttributeList-type AppLaunchContextAttributeList = ('[ '("display", AppLaunchContextDisplayPropertyInfo)] :: [(Symbol, *)])--appLaunchContextDisplay :: AttrLabelProxy "display"-appLaunchContextDisplay = AttrLabelProxy--type instance SignalList AppLaunchContext = AppLaunchContextSignalList-type AppLaunchContextSignalList = ('[ '("launchFailed", Gio.AppLaunchContextLaunchFailedSignalInfo), '("launched", Gio.AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AppLaunchContext::new--- method type : Constructor--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "AppLaunchContext")--- throws : False--- Skip return : False--foreign import ccall "gdk_app_launch_context_new" gdk_app_launch_context_new :: -    IO (Ptr AppLaunchContext)--{-# DEPRECATED appLaunchContextNew ["(Since version 3.0)","Use gdk_display_get_app_launch_context() instead"]#-}-appLaunchContextNew ::-    (MonadIO m) =>-    m AppLaunchContext                      -- result-appLaunchContextNew  = liftIO $ do-    result <- gdk_app_launch_context_new-    checkUnexpectedReturnNULL "gdk_app_launch_context_new" result-    result' <- (wrapObject AppLaunchContext) result-    return result'---- method AppLaunchContext::set_desktop--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_app_launch_context_set_desktop" gdk_app_launch_context_set_desktop :: -    Ptr AppLaunchContext ->                 -- _obj : TInterface "Gdk" "AppLaunchContext"-    Int32 ->                                -- desktop : TBasicType TInt-    IO ()---appLaunchContextSetDesktop ::-    (MonadIO m, AppLaunchContextK a) =>-    a                                       -- _obj-    -> Int32                                -- desktop-    -> m ()                                 -- result-appLaunchContextSetDesktop _obj desktop = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_app_launch_context_set_desktop _obj' desktop-    touchManagedPtr _obj-    return ()--data AppLaunchContextSetDesktopMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetDesktopMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetDesktop---- method AppLaunchContext::set_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_app_launch_context_set_display" gdk_app_launch_context_set_display :: -    Ptr AppLaunchContext ->                 -- _obj : TInterface "Gdk" "AppLaunchContext"-    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    IO ()--{-# DEPRECATED appLaunchContextSetDisplay ["(Since version 3.0)","Use gdk_display_get_app_launch_context() instead"]#-}-appLaunchContextSetDisplay ::-    (MonadIO m, AppLaunchContextK a, DisplayK b) =>-    a                                       -- _obj-    -> b                                    -- display-    -> m ()                                 -- result-appLaunchContextSetDisplay _obj display = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let display' = unsafeManagedPtrCastPtr display-    gdk_app_launch_context_set_display _obj' display'-    touchManagedPtr _obj-    touchManagedPtr display-    return ()--data AppLaunchContextSetDisplayMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, AppLaunchContextK a, DisplayK b) => MethodInfo AppLaunchContextSetDisplayMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetDisplay---- method AppLaunchContext::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_app_launch_context_set_icon" gdk_app_launch_context_set_icon :: -    Ptr AppLaunchContext ->                 -- _obj : TInterface "Gdk" "AppLaunchContext"-    Ptr Gio.Icon ->                         -- icon : TInterface "Gio" "Icon"-    IO ()---appLaunchContextSetIcon ::-    (MonadIO m, AppLaunchContextK a, Gio.IconK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- icon-    -> m ()                                 -- result-appLaunchContextSetIcon _obj icon = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeIcon <- case icon of-        Nothing -> return nullPtr-        Just jIcon -> do-            let jIcon' = unsafeManagedPtrCastPtr jIcon-            return jIcon'-    gdk_app_launch_context_set_icon _obj' maybeIcon-    touchManagedPtr _obj-    whenJust icon touchManagedPtr-    return ()--data AppLaunchContextSetIconMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, AppLaunchContextK a, Gio.IconK b) => MethodInfo AppLaunchContextSetIconMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetIcon---- method AppLaunchContext::set_icon_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_app_launch_context_set_icon_name" gdk_app_launch_context_set_icon_name :: -    Ptr AppLaunchContext ->                 -- _obj : TInterface "Gdk" "AppLaunchContext"-    CString ->                              -- icon_name : TBasicType TUTF8-    IO ()---appLaunchContextSetIconName ::-    (MonadIO m, AppLaunchContextK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- iconName-    -> m ()                                 -- result-appLaunchContextSetIconName _obj iconName = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeIconName <- case iconName of-        Nothing -> return nullPtr-        Just jIconName -> do-            jIconName' <- textToCString jIconName-            return jIconName'-    gdk_app_launch_context_set_icon_name _obj' maybeIconName-    touchManagedPtr _obj-    freeMem maybeIconName-    return ()--data AppLaunchContextSetIconNameMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetIconNameMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetIconName---- method AppLaunchContext::set_screen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_app_launch_context_set_screen" gdk_app_launch_context_set_screen :: -    Ptr AppLaunchContext ->                 -- _obj : TInterface "Gdk" "AppLaunchContext"-    Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    IO ()---appLaunchContextSetScreen ::-    (MonadIO m, AppLaunchContextK a, ScreenK b) =>-    a                                       -- _obj-    -> b                                    -- screen-    -> m ()                                 -- result-appLaunchContextSetScreen _obj screen = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let screen' = unsafeManagedPtrCastPtr screen-    gdk_app_launch_context_set_screen _obj' screen'-    touchManagedPtr _obj-    touchManagedPtr screen-    return ()--data AppLaunchContextSetScreenMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, AppLaunchContextK a, ScreenK b) => MethodInfo AppLaunchContextSetScreenMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetScreen---- method AppLaunchContext::set_timestamp--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_app_launch_context_set_timestamp" gdk_app_launch_context_set_timestamp :: -    Ptr AppLaunchContext ->                 -- _obj : TInterface "Gdk" "AppLaunchContext"-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---appLaunchContextSetTimestamp ::-    (MonadIO m, AppLaunchContextK a) =>-    a                                       -- _obj-    -> Word32                               -- timestamp-    -> m ()                                 -- result-appLaunchContextSetTimestamp _obj timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_app_launch_context_set_timestamp _obj' timestamp-    touchManagedPtr _obj-    return ()--data AppLaunchContextSetTimestampMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, AppLaunchContextK a) => MethodInfo AppLaunchContextSetTimestampMethodInfo a signature where-    overloadedMethod _ = appLaunchContextSetTimestamp--
− GI/Gdk/Objects/AppLaunchContext.hs-boot 
@@ -1,20 +0,0 @@-module GI.Gdk.Objects.AppLaunchContext where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext)-instance GObject AppLaunchContext where-class GObject o => AppLaunchContextK o-instance (GObject o, IsDescendantOf AppLaunchContext o) => AppLaunchContextK o-data AppLaunchContextDisplayPropertyInfo-data AppLaunchContextSetDesktopMethodInfo-data AppLaunchContextSetDisplayMethodInfo-data AppLaunchContextSetIconMethodInfo-data AppLaunchContextSetIconNameMethodInfo-data AppLaunchContextSetScreenMethodInfo-data AppLaunchContextSetTimestampMethodInfo
− GI/Gdk/Objects/Cursor.hs 
@@ -1,551 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.Cursor-    ( ---- * Exported types-    Cursor(..)                              ,-    CursorK                                 ,-    toCursor                                ,-    noCursor                                ,--- -- * Methods--- ** cursorGetCursorType-    CursorGetCursorTypeMethodInfo           ,-    cursorGetCursorType                     ,----- ** cursorGetDisplay-    CursorGetDisplayMethodInfo              ,-    cursorGetDisplay                        ,----- ** cursorGetImage-    CursorGetImageMethodInfo                ,-    cursorGetImage                          ,----- ** cursorGetSurface-    CursorGetSurfaceMethodInfo              ,-    cursorGetSurface                        ,----- ** cursorNew-    cursorNew                               ,----- ** cursorNewForDisplay-    cursorNewForDisplay                     ,----- ** cursorNewFromName-    cursorNewFromName                       ,----- ** cursorNewFromPixbuf-    cursorNewFromPixbuf                     ,----- ** cursorNewFromSurface-    cursorNewFromSurface                    ,----- ** cursorRef-    CursorRefMethodInfo                     ,-    cursorRef                               ,----- ** cursorUnref-    CursorUnrefMethodInfo                   ,-    cursorUnref                             ,----- -- * Properties--- ** CursorType-    CursorCursorTypePropertyInfo            ,-    constructCursorCursorType               ,-    cursorCursorType                        ,-    getCursorCursorType                     ,----- ** Display-    CursorDisplayPropertyInfo               ,-    constructCursorDisplay                  ,-    cursorDisplay                           ,-    getCursorDisplay                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject-import qualified GI.GdkPixbuf as GdkPixbuf-import qualified GI.Cairo as Cairo--newtype Cursor = Cursor (ForeignPtr Cursor)-foreign import ccall "gdk_cursor_get_type"-    c_gdk_cursor_get_type :: IO GType--type instance ParentTypes Cursor = CursorParentTypes-type CursorParentTypes = '[GObject.Object]--instance GObject Cursor where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_cursor_get_type-    --class GObject o => CursorK o-instance (GObject o, IsDescendantOf Cursor o) => CursorK o--toCursor :: CursorK o => o -> IO Cursor-toCursor = unsafeCastTo Cursor--noCursor :: Maybe Cursor-noCursor = Nothing--type family ResolveCursorMethod (t :: Symbol) (o :: *) :: * where-    ResolveCursorMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveCursorMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveCursorMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveCursorMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveCursorMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveCursorMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveCursorMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveCursorMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveCursorMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveCursorMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveCursorMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveCursorMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveCursorMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveCursorMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveCursorMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveCursorMethod "getCursorType" o = CursorGetCursorTypeMethodInfo-    ResolveCursorMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveCursorMethod "getDisplay" o = CursorGetDisplayMethodInfo-    ResolveCursorMethod "getImage" o = CursorGetImageMethodInfo-    ResolveCursorMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveCursorMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveCursorMethod "getSurface" o = CursorGetSurfaceMethodInfo-    ResolveCursorMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveCursorMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveCursorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveCursorMethod t Cursor, MethodInfo info Cursor p) => IsLabelProxy t (Cursor -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveCursorMethod t Cursor, MethodInfo info Cursor p) => IsLabel t (Cursor -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "cursor-type"-   -- Type: TInterface "Gdk" "CursorType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getCursorCursorType :: (MonadIO m, CursorK o) => o -> m CursorType-getCursorCursorType obj = liftIO $ getObjectPropertyEnum obj "cursor-type"--constructCursorCursorType :: CursorType -> IO ([Char], GValue)-constructCursorCursorType val = constructObjectPropertyEnum "cursor-type" val--data CursorCursorTypePropertyInfo-instance AttrInfo CursorCursorTypePropertyInfo where-    type AttrAllowedOps CursorCursorTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CursorCursorTypePropertyInfo = (~) CursorType-    type AttrBaseTypeConstraint CursorCursorTypePropertyInfo = CursorK-    type AttrGetType CursorCursorTypePropertyInfo = CursorType-    type AttrLabel CursorCursorTypePropertyInfo = "cursor-type"-    attrGet _ = getCursorCursorType-    attrSet _ = undefined-    attrConstruct _ = constructCursorCursorType-    attrClear _ = undefined---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getCursorDisplay :: (MonadIO m, CursorK o) => o -> m Display-getCursorDisplay obj = liftIO $ checkUnexpectedNothing "getCursorDisplay" $ getObjectPropertyObject obj "display" Display--constructCursorDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructCursorDisplay val = constructObjectPropertyObject "display" (Just val)--data CursorDisplayPropertyInfo-instance AttrInfo CursorDisplayPropertyInfo where-    type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint CursorDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint CursorDisplayPropertyInfo = CursorK-    type AttrGetType CursorDisplayPropertyInfo = Display-    type AttrLabel CursorDisplayPropertyInfo = "display"-    attrGet _ = getCursorDisplay-    attrSet _ = undefined-    attrConstruct _ = constructCursorDisplay-    attrClear _ = undefined--type instance AttributeList Cursor = CursorAttributeList-type CursorAttributeList = ('[ '("cursorType", CursorCursorTypePropertyInfo), '("display", CursorDisplayPropertyInfo)] :: [(Symbol, *)])--cursorCursorType :: AttrLabelProxy "cursorType"-cursorCursorType = AttrLabelProxy--cursorDisplay :: AttrLabelProxy "display"-cursorDisplay = AttrLabelProxy--type instance SignalList Cursor = CursorSignalList-type CursorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Cursor::new--- method type : Constructor--- Args : [Arg {argCName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_new" gdk_cursor_new :: -    CUInt ->                                -- cursor_type : TInterface "Gdk" "CursorType"-    IO (Ptr Cursor)--{-# DEPRECATED cursorNew ["(Since version 3.16)","Use gdk_cursor_new_for_display() instead."]#-}-cursorNew ::-    (MonadIO m) =>-    CursorType                              -- cursorType-    -> m Cursor                             -- result-cursorNew cursorType = liftIO $ do-    let cursorType' = (fromIntegral . fromEnum) cursorType-    result <- gdk_cursor_new cursorType'-    checkUnexpectedReturnNULL "gdk_cursor_new" result-    result' <- (wrapObject Cursor) result-    return result'---- method Cursor::new_for_display--- method type : Constructor--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_new_for_display" gdk_cursor_new_for_display :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    CUInt ->                                -- cursor_type : TInterface "Gdk" "CursorType"-    IO (Ptr Cursor)---cursorNewForDisplay ::-    (MonadIO m, DisplayK a) =>-    a                                       -- display-    -> CursorType                           -- cursorType-    -> m Cursor                             -- result-cursorNewForDisplay display cursorType = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let cursorType' = (fromIntegral . fromEnum) cursorType-    result <- gdk_cursor_new_for_display display' cursorType'-    checkUnexpectedReturnNULL "gdk_cursor_new_for_display" result-    result' <- (wrapObject Cursor) result-    touchManagedPtr display-    return result'---- method Cursor::new_from_name--- method type : Constructor--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_new_from_name" gdk_cursor_new_from_name :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Cursor)---cursorNewFromName ::-    (MonadIO m, DisplayK a) =>-    a                                       -- display-    -> T.Text                               -- name-    -> m (Maybe Cursor)                     -- result-cursorNewFromName display name = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    name' <- textToCString name-    result <- gdk_cursor_new_from_name display' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Cursor) result'-        return result''-    touchManagedPtr display-    freeMem name'-    return maybeResult---- method Cursor::new_from_pixbuf--- method type : Constructor--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_new_from_pixbuf" gdk_cursor_new_from_pixbuf :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    Ptr GdkPixbuf.Pixbuf ->                 -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    IO (Ptr Cursor)---cursorNewFromPixbuf ::-    (MonadIO m, DisplayK a, GdkPixbuf.PixbufK b) =>-    a                                       -- display-    -> b                                    -- pixbuf-    -> Int32                                -- x-    -> Int32                                -- y-    -> m Cursor                             -- result-cursorNewFromPixbuf display pixbuf x y = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let pixbuf' = unsafeManagedPtrCastPtr pixbuf-    result <- gdk_cursor_new_from_pixbuf display' pixbuf' x y-    checkUnexpectedReturnNULL "gdk_cursor_new_from_pixbuf" result-    result' <- (wrapObject Cursor) result-    touchManagedPtr display-    touchManagedPtr pixbuf-    return result'---- method Cursor::new_from_surface--- method type : Constructor--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_new_from_surface" gdk_cursor_new_from_surface :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    Ptr Cairo.Surface ->                    -- surface : TInterface "cairo" "Surface"-    CDouble ->                              -- x : TBasicType TDouble-    CDouble ->                              -- y : TBasicType TDouble-    IO (Ptr Cursor)---cursorNewFromSurface ::-    (MonadIO m, DisplayK a) =>-    a                                       -- display-    -> Cairo.Surface                        -- surface-    -> Double                               -- x-    -> Double                               -- y-    -> m Cursor                             -- result-cursorNewFromSurface display surface x y = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let surface' = unsafeManagedPtrGetPtr surface-    let x' = realToFrac x-    let y' = realToFrac y-    result <- gdk_cursor_new_from_surface display' surface' x' y'-    checkUnexpectedReturnNULL "gdk_cursor_new_from_surface" result-    result' <- (wrapObject Cursor) result-    touchManagedPtr display-    touchManagedPtr surface-    return result'---- method Cursor::get_cursor_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "CursorType")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_get_cursor_type" gdk_cursor_get_cursor_type :: -    Ptr Cursor ->                           -- _obj : TInterface "Gdk" "Cursor"-    IO CUInt---cursorGetCursorType ::-    (MonadIO m, CursorK a) =>-    a                                       -- _obj-    -> m CursorType                         -- result-cursorGetCursorType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_cursor_get_cursor_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data CursorGetCursorTypeMethodInfo-instance (signature ~ (m CursorType), MonadIO m, CursorK a) => MethodInfo CursorGetCursorTypeMethodInfo a signature where-    overloadedMethod _ = cursorGetCursorType---- method Cursor::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_get_display" gdk_cursor_get_display :: -    Ptr Cursor ->                           -- _obj : TInterface "Gdk" "Cursor"-    IO (Ptr Display)---cursorGetDisplay ::-    (MonadIO m, CursorK a) =>-    a                                       -- _obj-    -> m Display                            -- result-cursorGetDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_cursor_get_display _obj'-    checkUnexpectedReturnNULL "gdk_cursor_get_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    return result'--data CursorGetDisplayMethodInfo-instance (signature ~ (m Display), MonadIO m, CursorK a) => MethodInfo CursorGetDisplayMethodInfo a signature where-    overloadedMethod _ = cursorGetDisplay---- method Cursor::get_image--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "GdkPixbuf" "Pixbuf")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_get_image" gdk_cursor_get_image :: -    Ptr Cursor ->                           -- _obj : TInterface "Gdk" "Cursor"-    IO (Ptr GdkPixbuf.Pixbuf)---cursorGetImage ::-    (MonadIO m, CursorK a) =>-    a                                       -- _obj-    -> m (Maybe GdkPixbuf.Pixbuf)           -- result-cursorGetImage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_cursor_get_image _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject GdkPixbuf.Pixbuf) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data CursorGetImageMethodInfo-instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, CursorK a) => MethodInfo CursorGetImageMethodInfo a signature where-    overloadedMethod _ = cursorGetImage---- method Cursor::get_surface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_get_surface" gdk_cursor_get_surface :: -    Ptr Cursor ->                           -- _obj : TInterface "Gdk" "Cursor"-    Ptr CDouble ->                          -- x_hot : TBasicType TDouble-    Ptr CDouble ->                          -- y_hot : TBasicType TDouble-    IO (Ptr Cairo.Surface)---cursorGetSurface ::-    (MonadIO m, CursorK a) =>-    a                                       -- _obj-    -> m ((Maybe Cairo.Surface),Double,Double)-- result-cursorGetSurface _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    xHot <- allocMem :: IO (Ptr CDouble)-    yHot <- allocMem :: IO (Ptr CDouble)-    result <- gdk_cursor_get_surface _obj' xHot yHot-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Cairo.Surface) result'-        return result''-    xHot' <- peek xHot-    let xHot'' = realToFrac xHot'-    yHot' <- peek yHot-    let yHot'' = realToFrac yHot'-    touchManagedPtr _obj-    freeMem xHot-    freeMem yHot-    return (maybeResult, xHot'', yHot'')--data CursorGetSurfaceMethodInfo-instance (signature ~ (m ((Maybe Cairo.Surface),Double,Double)), MonadIO m, CursorK a) => MethodInfo CursorGetSurfaceMethodInfo a signature where-    overloadedMethod _ = cursorGetSurface---- method Cursor::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_ref" gdk_cursor_ref :: -    Ptr Cursor ->                           -- _obj : TInterface "Gdk" "Cursor"-    IO (Ptr Cursor)--{-# DEPRECATED cursorRef ["(Since version 3.0)","Use g_object_ref() instead"]#-}-cursorRef ::-    (MonadIO m, CursorK a) =>-    a                                       -- _obj-    -> m Cursor                             -- result-cursorRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_cursor_ref _obj'-    checkUnexpectedReturnNULL "gdk_cursor_ref" result-    result' <- (wrapObject Cursor) result-    touchManagedPtr _obj-    return result'--data CursorRefMethodInfo-instance (signature ~ (m Cursor), MonadIO m, CursorK a) => MethodInfo CursorRefMethodInfo a signature where-    overloadedMethod _ = cursorRef---- method Cursor::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_cursor_unref" gdk_cursor_unref :: -    Ptr Cursor ->                           -- _obj : TInterface "Gdk" "Cursor"-    IO ()--{-# DEPRECATED cursorUnref ["(Since version 3.0)","Use g_object_unref() instead"]#-}-cursorUnref ::-    (MonadIO m, CursorK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-cursorUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_cursor_unref _obj'-    touchManagedPtr _obj-    return ()--data CursorUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m, CursorK a) => MethodInfo CursorUnrefMethodInfo a signature where-    overloadedMethod _ = cursorUnref--
− GI/Gdk/Objects/Cursor.hs-boot 
@@ -1,21 +0,0 @@-module GI.Gdk.Objects.Cursor where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Cursor = Cursor (ForeignPtr Cursor)-instance GObject Cursor where-class GObject o => CursorK o-instance (GObject o, IsDescendantOf Cursor o) => CursorK o-data CursorCursorTypePropertyInfo-data CursorDisplayPropertyInfo-data CursorGetCursorTypeMethodInfo-data CursorGetDisplayMethodInfo-data CursorGetImageMethodInfo-data CursorGetSurfaceMethodInfo-data CursorRefMethodInfo-data CursorUnrefMethodInfo
− GI/Gdk/Objects/Device.hs 
@@ -1,1557 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.Device-    ( ---- * Exported types-    Device(..)                              ,-    DeviceK                                 ,-    toDevice                                ,-    noDevice                                ,--- -- * Methods--- ** deviceGetAssociatedDevice-    DeviceGetAssociatedDeviceMethodInfo     ,-    deviceGetAssociatedDevice               ,----- ** deviceGetAxisUse-    DeviceGetAxisUseMethodInfo              ,-    deviceGetAxisUse                        ,----- ** deviceGetDeviceType-    DeviceGetDeviceTypeMethodInfo           ,-    deviceGetDeviceType                     ,----- ** deviceGetDisplay-    DeviceGetDisplayMethodInfo              ,-    deviceGetDisplay                        ,----- ** deviceGetHasCursor-    DeviceGetHasCursorMethodInfo            ,-    deviceGetHasCursor                      ,----- ** deviceGetKey-    DeviceGetKeyMethodInfo                  ,-    deviceGetKey                            ,----- ** deviceGetLastEventWindow-    DeviceGetLastEventWindowMethodInfo      ,-    deviceGetLastEventWindow                ,----- ** deviceGetMode-    DeviceGetModeMethodInfo                 ,-    deviceGetMode                           ,----- ** deviceGetNAxes-    DeviceGetNAxesMethodInfo                ,-    deviceGetNAxes                          ,----- ** deviceGetNKeys-    DeviceGetNKeysMethodInfo                ,-    deviceGetNKeys                          ,----- ** deviceGetName-    DeviceGetNameMethodInfo                 ,-    deviceGetName                           ,----- ** deviceGetPosition-    DeviceGetPositionMethodInfo             ,-    deviceGetPosition                       ,----- ** deviceGetPositionDouble-    DeviceGetPositionDoubleMethodInfo       ,-    deviceGetPositionDouble                 ,----- ** deviceGetProductId-    DeviceGetProductIdMethodInfo            ,-    deviceGetProductId                      ,----- ** deviceGetSource-    DeviceGetSourceMethodInfo               ,-    deviceGetSource                         ,----- ** deviceGetVendorId-    DeviceGetVendorIdMethodInfo             ,-    deviceGetVendorId                       ,----- ** deviceGetWindowAtPosition-    DeviceGetWindowAtPositionMethodInfo     ,-    deviceGetWindowAtPosition               ,----- ** deviceGetWindowAtPositionDouble-    DeviceGetWindowAtPositionDoubleMethodInfo,-    deviceGetWindowAtPositionDouble         ,----- ** deviceGrab-    DeviceGrabMethodInfo                    ,-    deviceGrab                              ,----- ** deviceGrabInfoLibgtkOnly-    deviceGrabInfoLibgtkOnly                ,----- ** deviceListAxes-    DeviceListAxesMethodInfo                ,-    deviceListAxes                          ,----- ** deviceListSlaveDevices-    DeviceListSlaveDevicesMethodInfo        ,-    deviceListSlaveDevices                  ,----- ** deviceSetAxisUse-    DeviceSetAxisUseMethodInfo              ,-    deviceSetAxisUse                        ,----- ** deviceSetKey-    DeviceSetKeyMethodInfo                  ,-    deviceSetKey                            ,----- ** deviceSetMode-    DeviceSetModeMethodInfo                 ,-    deviceSetMode                           ,----- ** deviceUngrab-    DeviceUngrabMethodInfo                  ,-    deviceUngrab                            ,----- ** deviceWarp-    DeviceWarpMethodInfo                    ,-    deviceWarp                              ,----- -- * Properties--- ** AssociatedDevice-    DeviceAssociatedDevicePropertyInfo      ,-    deviceAssociatedDevice                  ,-    getDeviceAssociatedDevice               ,----- ** DeviceManager-    DeviceDeviceManagerPropertyInfo         ,-    constructDeviceDeviceManager            ,-    deviceDeviceManager                     ,-    getDeviceDeviceManager                  ,----- ** Display-    DeviceDisplayPropertyInfo               ,-    constructDeviceDisplay                  ,-    deviceDisplay                           ,-    getDeviceDisplay                        ,----- ** HasCursor-    DeviceHasCursorPropertyInfo             ,-    constructDeviceHasCursor                ,-    deviceHasCursor                         ,-    getDeviceHasCursor                      ,----- ** InputMode-    DeviceInputModePropertyInfo             ,-    constructDeviceInputMode                ,-    deviceInputMode                         ,-    getDeviceInputMode                      ,-    setDeviceInputMode                      ,----- ** InputSource-    DeviceInputSourcePropertyInfo           ,-    constructDeviceInputSource              ,-    deviceInputSource                       ,-    getDeviceInputSource                    ,----- ** NAxes-    DeviceNAxesPropertyInfo                 ,-    deviceNAxes                             ,-    getDeviceNAxes                          ,----- ** Name-    DeviceNamePropertyInfo                  ,-    constructDeviceName                     ,-    deviceName                              ,-    getDeviceName                           ,----- ** ProductId-    DeviceProductIdPropertyInfo             ,-    constructDeviceProductId                ,-    deviceProductId                         ,-    getDeviceProductId                      ,----- ** Type-    DeviceTypePropertyInfo                  ,-    constructDeviceType                     ,-    deviceType                              ,-    getDeviceType                           ,----- ** VendorId-    DeviceVendorIdPropertyInfo              ,-    constructDeviceVendorId                 ,-    deviceVendorId                          ,-    getDeviceVendorId                       ,----- -- * Signals--- ** Changed-    DeviceChangedCallback                   ,-    DeviceChangedCallbackC                  ,-    DeviceChangedSignalInfo                 ,-    afterDeviceChanged                      ,-    deviceChangedCallbackWrapper            ,-    deviceChangedClosure                    ,-    mkDeviceChangedCallback                 ,-    noDeviceChangedCallback                 ,-    onDeviceChanged                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype Device = Device (ForeignPtr Device)-foreign import ccall "gdk_device_get_type"-    c_gdk_device_get_type :: IO GType--type instance ParentTypes Device = DeviceParentTypes-type DeviceParentTypes = '[GObject.Object]--instance GObject Device where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_device_get_type-    --class GObject o => DeviceK o-instance (GObject o, IsDescendantOf Device o) => DeviceK o--toDevice :: DeviceK o => o -> IO Device-toDevice = unsafeCastTo Device--noDevice :: Maybe Device-noDevice = Nothing--type family ResolveDeviceMethod (t :: Symbol) (o :: *) :: * where-    ResolveDeviceMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDeviceMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDeviceMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDeviceMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDeviceMethod "grab" o = DeviceGrabMethodInfo-    ResolveDeviceMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDeviceMethod "listAxes" o = DeviceListAxesMethodInfo-    ResolveDeviceMethod "listSlaveDevices" o = DeviceListSlaveDevicesMethodInfo-    ResolveDeviceMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDeviceMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDeviceMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDeviceMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDeviceMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDeviceMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDeviceMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDeviceMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDeviceMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDeviceMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDeviceMethod "ungrab" o = DeviceUngrabMethodInfo-    ResolveDeviceMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDeviceMethod "warp" o = DeviceWarpMethodInfo-    ResolveDeviceMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDeviceMethod "getAssociatedDevice" o = DeviceGetAssociatedDeviceMethodInfo-    ResolveDeviceMethod "getAxisUse" o = DeviceGetAxisUseMethodInfo-    ResolveDeviceMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDeviceMethod "getDeviceType" o = DeviceGetDeviceTypeMethodInfo-    ResolveDeviceMethod "getDisplay" o = DeviceGetDisplayMethodInfo-    ResolveDeviceMethod "getHasCursor" o = DeviceGetHasCursorMethodInfo-    ResolveDeviceMethod "getKey" o = DeviceGetKeyMethodInfo-    ResolveDeviceMethod "getLastEventWindow" o = DeviceGetLastEventWindowMethodInfo-    ResolveDeviceMethod "getMode" o = DeviceGetModeMethodInfo-    ResolveDeviceMethod "getNAxes" o = DeviceGetNAxesMethodInfo-    ResolveDeviceMethod "getNKeys" o = DeviceGetNKeysMethodInfo-    ResolveDeviceMethod "getName" o = DeviceGetNameMethodInfo-    ResolveDeviceMethod "getPosition" o = DeviceGetPositionMethodInfo-    ResolveDeviceMethod "getPositionDouble" o = DeviceGetPositionDoubleMethodInfo-    ResolveDeviceMethod "getProductId" o = DeviceGetProductIdMethodInfo-    ResolveDeviceMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDeviceMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDeviceMethod "getSource" o = DeviceGetSourceMethodInfo-    ResolveDeviceMethod "getVendorId" o = DeviceGetVendorIdMethodInfo-    ResolveDeviceMethod "getWindowAtPosition" o = DeviceGetWindowAtPositionMethodInfo-    ResolveDeviceMethod "getWindowAtPositionDouble" o = DeviceGetWindowAtPositionDoubleMethodInfo-    ResolveDeviceMethod "setAxisUse" o = DeviceSetAxisUseMethodInfo-    ResolveDeviceMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDeviceMethod "setKey" o = DeviceSetKeyMethodInfo-    ResolveDeviceMethod "setMode" o = DeviceSetModeMethodInfo-    ResolveDeviceMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDeviceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDeviceMethod t Device, MethodInfo info Device p) => IsLabelProxy t (Device -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDeviceMethod t Device, MethodInfo info Device p) => IsLabel t (Device -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Device::changed-type DeviceChangedCallback =-    IO ()--noDeviceChangedCallback :: Maybe DeviceChangedCallback-noDeviceChangedCallback = Nothing--type DeviceChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDeviceChangedCallback :: DeviceChangedCallbackC -> IO (FunPtr DeviceChangedCallbackC)--deviceChangedClosure :: DeviceChangedCallback -> IO Closure-deviceChangedClosure cb = newCClosure =<< mkDeviceChangedCallback wrapped-    where wrapped = deviceChangedCallbackWrapper cb--deviceChangedCallbackWrapper ::-    DeviceChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-deviceChangedCallbackWrapper _cb _ _ = do-    _cb --onDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceChangedCallback -> m SignalHandlerId-onDeviceChanged obj cb = liftIO $ connectDeviceChanged obj cb SignalConnectBefore-afterDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceChangedCallback -> m SignalHandlerId-afterDeviceChanged obj cb = connectDeviceChanged obj cb SignalConnectAfter--connectDeviceChanged :: (GObject a, MonadIO m) =>-                        a -> DeviceChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectDeviceChanged obj cb after = liftIO $ do-    cb' <- mkDeviceChangedCallback (deviceChangedCallbackWrapper cb)-    connectSignalFunPtr obj "changed" cb' after---- VVV Prop "associated-device"-   -- Type: TInterface "Gdk" "Device"-   -- Flags: [PropertyReadable]-   -- Nullable: (Just True,Nothing)--getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m (Maybe Device)-getDeviceAssociatedDevice obj = liftIO $ getObjectPropertyObject obj "associated-device" Device--data DeviceAssociatedDevicePropertyInfo-instance AttrInfo DeviceAssociatedDevicePropertyInfo where-    type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DeviceAssociatedDevicePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DeviceAssociatedDevicePropertyInfo = DeviceK-    type AttrGetType DeviceAssociatedDevicePropertyInfo = (Maybe Device)-    type AttrLabel DeviceAssociatedDevicePropertyInfo = "associated-device"-    attrGet _ = getDeviceAssociatedDevice-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "device-manager"-   -- Type: TInterface "Gdk" "DeviceManager"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m (Maybe DeviceManager)-getDeviceDeviceManager obj = liftIO $ getObjectPropertyObject obj "device-manager" DeviceManager--constructDeviceDeviceManager :: (DeviceManagerK a) => a -> IO ([Char], GValue)-constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" (Just val)--data DeviceDeviceManagerPropertyInfo-instance AttrInfo DeviceDeviceManagerPropertyInfo where-    type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceManagerK-    type AttrBaseTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceK-    type AttrGetType DeviceDeviceManagerPropertyInfo = (Maybe DeviceManager)-    type AttrLabel DeviceDeviceManagerPropertyInfo = "device-manager"-    attrGet _ = getDeviceDeviceManager-    attrSet _ = undefined-    attrConstruct _ = constructDeviceDeviceManager-    attrClear _ = undefined---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDeviceDisplay :: (MonadIO m, DeviceK o) => o -> m Display-getDeviceDisplay obj = liftIO $ checkUnexpectedNothing "getDeviceDisplay" $ getObjectPropertyObject obj "display" Display--constructDeviceDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDeviceDisplay val = constructObjectPropertyObject "display" (Just val)--data DeviceDisplayPropertyInfo-instance AttrInfo DeviceDisplayPropertyInfo where-    type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DeviceDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint DeviceDisplayPropertyInfo = DeviceK-    type AttrGetType DeviceDisplayPropertyInfo = Display-    type AttrLabel DeviceDisplayPropertyInfo = "display"-    attrGet _ = getDeviceDisplay-    attrSet _ = undefined-    attrConstruct _ = constructDeviceDisplay-    attrClear _ = undefined---- VVV Prop "has-cursor"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDeviceHasCursor :: (MonadIO m, DeviceK o) => o -> m Bool-getDeviceHasCursor obj = liftIO $ getObjectPropertyBool obj "has-cursor"--constructDeviceHasCursor :: Bool -> IO ([Char], GValue)-constructDeviceHasCursor val = constructObjectPropertyBool "has-cursor" val--data DeviceHasCursorPropertyInfo-instance AttrInfo DeviceHasCursorPropertyInfo where-    type AttrAllowedOps DeviceHasCursorPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceHasCursorPropertyInfo = (~) Bool-    type AttrBaseTypeConstraint DeviceHasCursorPropertyInfo = DeviceK-    type AttrGetType DeviceHasCursorPropertyInfo = Bool-    type AttrLabel DeviceHasCursorPropertyInfo = "has-cursor"-    attrGet _ = getDeviceHasCursor-    attrSet _ = undefined-    attrConstruct _ = constructDeviceHasCursor-    attrClear _ = undefined---- VVV Prop "input-mode"-   -- Type: TInterface "Gdk" "InputMode"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getDeviceInputMode :: (MonadIO m, DeviceK o) => o -> m InputMode-getDeviceInputMode obj = liftIO $ getObjectPropertyEnum obj "input-mode"--setDeviceInputMode :: (MonadIO m, DeviceK o) => o -> InputMode -> m ()-setDeviceInputMode obj val = liftIO $ setObjectPropertyEnum obj "input-mode" val--constructDeviceInputMode :: InputMode -> IO ([Char], GValue)-constructDeviceInputMode val = constructObjectPropertyEnum "input-mode" val--data DeviceInputModePropertyInfo-instance AttrInfo DeviceInputModePropertyInfo where-    type AttrAllowedOps DeviceInputModePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceInputModePropertyInfo = (~) InputMode-    type AttrBaseTypeConstraint DeviceInputModePropertyInfo = DeviceK-    type AttrGetType DeviceInputModePropertyInfo = InputMode-    type AttrLabel DeviceInputModePropertyInfo = "input-mode"-    attrGet _ = getDeviceInputMode-    attrSet _ = setDeviceInputMode-    attrConstruct _ = constructDeviceInputMode-    attrClear _ = undefined---- VVV Prop "input-source"-   -- Type: TInterface "Gdk" "InputSource"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDeviceInputSource :: (MonadIO m, DeviceK o) => o -> m InputSource-getDeviceInputSource obj = liftIO $ getObjectPropertyEnum obj "input-source"--constructDeviceInputSource :: InputSource -> IO ([Char], GValue)-constructDeviceInputSource val = constructObjectPropertyEnum "input-source" val--data DeviceInputSourcePropertyInfo-instance AttrInfo DeviceInputSourcePropertyInfo where-    type AttrAllowedOps DeviceInputSourcePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceInputSourcePropertyInfo = (~) InputSource-    type AttrBaseTypeConstraint DeviceInputSourcePropertyInfo = DeviceK-    type AttrGetType DeviceInputSourcePropertyInfo = InputSource-    type AttrLabel DeviceInputSourcePropertyInfo = "input-source"-    attrGet _ = getDeviceInputSource-    attrSet _ = undefined-    attrConstruct _ = constructDeviceInputSource-    attrClear _ = undefined---- VVV Prop "n-axes"-   -- Type: TBasicType TUInt-   -- Flags: [PropertyReadable]-   -- Nullable: (Nothing,Nothing)--getDeviceNAxes :: (MonadIO m, DeviceK o) => o -> m Word32-getDeviceNAxes obj = liftIO $ getObjectPropertyUInt32 obj "n-axes"--data DeviceNAxesPropertyInfo-instance AttrInfo DeviceNAxesPropertyInfo where-    type AttrAllowedOps DeviceNAxesPropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DeviceNAxesPropertyInfo = (~) ()-    type AttrBaseTypeConstraint DeviceNAxesPropertyInfo = DeviceK-    type AttrGetType DeviceNAxesPropertyInfo = Word32-    type AttrLabel DeviceNAxesPropertyInfo = "n-axes"-    attrGet _ = getDeviceNAxes-    attrSet _ = undefined-    attrConstruct _ = undefined-    attrClear _ = undefined---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getDeviceName :: (MonadIO m, DeviceK o) => o -> m T.Text-getDeviceName obj = liftIO $ checkUnexpectedNothing "getDeviceName" $ getObjectPropertyString obj "name"--constructDeviceName :: T.Text -> IO ([Char], GValue)-constructDeviceName val = constructObjectPropertyString "name" (Just val)--data DeviceNamePropertyInfo-instance AttrInfo DeviceNamePropertyInfo where-    type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DeviceNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DeviceNamePropertyInfo = DeviceK-    type AttrGetType DeviceNamePropertyInfo = T.Text-    type AttrLabel DeviceNamePropertyInfo = "name"-    attrGet _ = getDeviceName-    attrSet _ = undefined-    attrConstruct _ = constructDeviceName-    attrClear _ = undefined---- VVV Prop "product-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m (Maybe T.Text)-getDeviceProductId obj = liftIO $ getObjectPropertyString obj "product-id"--constructDeviceProductId :: T.Text -> IO ([Char], GValue)-constructDeviceProductId val = constructObjectPropertyString "product-id" (Just val)--data DeviceProductIdPropertyInfo-instance AttrInfo DeviceProductIdPropertyInfo where-    type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DeviceProductIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DeviceProductIdPropertyInfo = DeviceK-    type AttrGetType DeviceProductIdPropertyInfo = (Maybe T.Text)-    type AttrLabel DeviceProductIdPropertyInfo = "product-id"-    attrGet _ = getDeviceProductId-    attrSet _ = undefined-    attrConstruct _ = constructDeviceProductId-    attrClear _ = undefined---- VVV Prop "type"-   -- Type: TInterface "Gdk" "DeviceType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Nothing,Nothing)--getDeviceType :: (MonadIO m, DeviceK o) => o -> m DeviceType-getDeviceType obj = liftIO $ getObjectPropertyEnum obj "type"--constructDeviceType :: DeviceType -> IO ([Char], GValue)-constructDeviceType val = constructObjectPropertyEnum "type" val--data DeviceTypePropertyInfo-instance AttrInfo DeviceTypePropertyInfo where-    type AttrAllowedOps DeviceTypePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceTypePropertyInfo = (~) DeviceType-    type AttrBaseTypeConstraint DeviceTypePropertyInfo = DeviceK-    type AttrGetType DeviceTypePropertyInfo = DeviceType-    type AttrLabel DeviceTypePropertyInfo = "type"-    attrGet _ = getDeviceType-    attrSet _ = undefined-    attrConstruct _ = constructDeviceType-    attrClear _ = undefined---- VVV Prop "vendor-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m (Maybe T.Text)-getDeviceVendorId obj = liftIO $ getObjectPropertyString obj "vendor-id"--constructDeviceVendorId :: T.Text -> IO ([Char], GValue)-constructDeviceVendorId val = constructObjectPropertyString "vendor-id" (Just val)--data DeviceVendorIdPropertyInfo-instance AttrInfo DeviceVendorIdPropertyInfo where-    type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DeviceVendorIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DeviceVendorIdPropertyInfo = DeviceK-    type AttrGetType DeviceVendorIdPropertyInfo = (Maybe T.Text)-    type AttrLabel DeviceVendorIdPropertyInfo = "vendor-id"-    attrGet _ = getDeviceVendorId-    attrSet _ = undefined-    attrConstruct _ = constructDeviceVendorId-    attrClear _ = undefined--type instance AttributeList Device = DeviceAttributeList-type DeviceAttributeList = ('[ '("associatedDevice", DeviceAssociatedDevicePropertyInfo), '("deviceManager", DeviceDeviceManagerPropertyInfo), '("display", DeviceDisplayPropertyInfo), '("hasCursor", DeviceHasCursorPropertyInfo), '("inputMode", DeviceInputModePropertyInfo), '("inputSource", DeviceInputSourcePropertyInfo), '("nAxes", DeviceNAxesPropertyInfo), '("name", DeviceNamePropertyInfo), '("productId", DeviceProductIdPropertyInfo), '("type", DeviceTypePropertyInfo), '("vendorId", DeviceVendorIdPropertyInfo)] :: [(Symbol, *)])--deviceAssociatedDevice :: AttrLabelProxy "associatedDevice"-deviceAssociatedDevice = AttrLabelProxy--deviceDeviceManager :: AttrLabelProxy "deviceManager"-deviceDeviceManager = AttrLabelProxy--deviceDisplay :: AttrLabelProxy "display"-deviceDisplay = AttrLabelProxy--deviceHasCursor :: AttrLabelProxy "hasCursor"-deviceHasCursor = AttrLabelProxy--deviceInputMode :: AttrLabelProxy "inputMode"-deviceInputMode = AttrLabelProxy--deviceInputSource :: AttrLabelProxy "inputSource"-deviceInputSource = AttrLabelProxy--deviceNAxes :: AttrLabelProxy "nAxes"-deviceNAxes = AttrLabelProxy--deviceName :: AttrLabelProxy "name"-deviceName = AttrLabelProxy--deviceProductId :: AttrLabelProxy "productId"-deviceProductId = AttrLabelProxy--deviceType :: AttrLabelProxy "type"-deviceType = AttrLabelProxy--deviceVendorId :: AttrLabelProxy "vendorId"-deviceVendorId = AttrLabelProxy--data DeviceChangedSignalInfo-instance SignalInfo DeviceChangedSignalInfo where-    type HaskellCallbackType DeviceChangedSignalInfo = DeviceChangedCallback-    connectSignal _ = connectDeviceChanged--type instance SignalList Device = DeviceSignalList-type DeviceSignalList = ('[ '("changed", DeviceChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Device::get_associated_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Device")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_associated_device" gdk_device_get_associated_device :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO (Ptr Device)---deviceGetAssociatedDevice ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m (Maybe Device)                     -- result-deviceGetAssociatedDevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_associated_device _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Device) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DeviceGetAssociatedDeviceMethodInfo-instance (signature ~ (m (Maybe Device)), MonadIO m, DeviceK a) => MethodInfo DeviceGetAssociatedDeviceMethodInfo a signature where-    overloadedMethod _ = deviceGetAssociatedDevice---- method Device::get_axis_use--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "AxisUse")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_axis_use" gdk_device_get_axis_use :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt-    IO CUInt---deviceGetAxisUse ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> Word32                               -- index_-    -> m AxisUse                            -- result-deviceGetAxisUse _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_axis_use _obj' index_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DeviceGetAxisUseMethodInfo-instance (signature ~ (Word32 -> m AxisUse), MonadIO m, DeviceK a) => MethodInfo DeviceGetAxisUseMethodInfo a signature where-    overloadedMethod _ = deviceGetAxisUse---- method Device::get_device_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DeviceType")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_device_type" gdk_device_get_device_type :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO CUInt---deviceGetDeviceType ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m DeviceType                         -- result-deviceGetDeviceType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_device_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DeviceGetDeviceTypeMethodInfo-instance (signature ~ (m DeviceType), MonadIO m, DeviceK a) => MethodInfo DeviceGetDeviceTypeMethodInfo a signature where-    overloadedMethod _ = deviceGetDeviceType---- method Device::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_display" gdk_device_get_display :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO (Ptr Display)---deviceGetDisplay ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m Display                            -- result-deviceGetDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_display _obj'-    checkUnexpectedReturnNULL "gdk_device_get_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    return result'--data DeviceGetDisplayMethodInfo-instance (signature ~ (m Display), MonadIO m, DeviceK a) => MethodInfo DeviceGetDisplayMethodInfo a signature where-    overloadedMethod _ = deviceGetDisplay---- method Device::get_has_cursor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_has_cursor" gdk_device_get_has_cursor :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO CInt---deviceGetHasCursor ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-deviceGetHasCursor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_has_cursor _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DeviceGetHasCursorMethodInfo-instance (signature ~ (m Bool), MonadIO m, DeviceK a) => MethodInfo DeviceGetHasCursorMethodInfo a signature where-    overloadedMethod _ = deviceGetHasCursor---- method Device::get_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_key" gdk_device_get_key :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt-    Ptr Word32 ->                           -- keyval : TBasicType TUInt-    Ptr CUInt ->                            -- modifiers : TInterface "Gdk" "ModifierType"-    IO CInt---deviceGetKey ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> Word32                               -- index_-    -> m (Bool,Word32,[ModifierType])       -- result-deviceGetKey _obj index_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    keyval <- allocMem :: IO (Ptr Word32)-    modifiers <- allocMem :: IO (Ptr CUInt)-    result <- gdk_device_get_key _obj' index_ keyval modifiers-    let result' = (/= 0) result-    keyval' <- peek keyval-    modifiers' <- peek modifiers-    let modifiers'' = wordToGFlags modifiers'-    touchManagedPtr _obj-    freeMem keyval-    freeMem modifiers-    return (result', keyval', modifiers'')--data DeviceGetKeyMethodInfo-instance (signature ~ (Word32 -> m (Bool,Word32,[ModifierType])), MonadIO m, DeviceK a) => MethodInfo DeviceGetKeyMethodInfo a signature where-    overloadedMethod _ = deviceGetKey---- method Device::get_last_event_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_last_event_window" gdk_device_get_last_event_window :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO (Ptr Window)---deviceGetLastEventWindow ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m Window                             -- result-deviceGetLastEventWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_last_event_window _obj'-    checkUnexpectedReturnNULL "gdk_device_get_last_event_window" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data DeviceGetLastEventWindowMethodInfo-instance (signature ~ (m Window), MonadIO m, DeviceK a) => MethodInfo DeviceGetLastEventWindowMethodInfo a signature where-    overloadedMethod _ = deviceGetLastEventWindow---- method Device::get_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "InputMode")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_mode" gdk_device_get_mode :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO CUInt---deviceGetMode ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m InputMode                          -- result-deviceGetMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_mode _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DeviceGetModeMethodInfo-instance (signature ~ (m InputMode), MonadIO m, DeviceK a) => MethodInfo DeviceGetModeMethodInfo a signature where-    overloadedMethod _ = deviceGetMode---- method Device::get_n_axes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_n_axes" gdk_device_get_n_axes :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO Int32---deviceGetNAxes ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-deviceGetNAxes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_n_axes _obj'-    touchManagedPtr _obj-    return result--data DeviceGetNAxesMethodInfo-instance (signature ~ (m Int32), MonadIO m, DeviceK a) => MethodInfo DeviceGetNAxesMethodInfo a signature where-    overloadedMethod _ = deviceGetNAxes---- method Device::get_n_keys--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_n_keys" gdk_device_get_n_keys :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO Int32---deviceGetNKeys ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-deviceGetNKeys _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_n_keys _obj'-    touchManagedPtr _obj-    return result--data DeviceGetNKeysMethodInfo-instance (signature ~ (m Int32), MonadIO m, DeviceK a) => MethodInfo DeviceGetNKeysMethodInfo a signature where-    overloadedMethod _ = deviceGetNKeys---- method Device::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_name" gdk_device_get_name :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO CString---deviceGetName ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-deviceGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_name _obj'-    checkUnexpectedReturnNULL "gdk_device_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DeviceGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DeviceK a) => MethodInfo DeviceGetNameMethodInfo a signature where-    overloadedMethod _ = deviceGetName---- method Device::get_position--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_position" gdk_device_get_position :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Ptr (Ptr Screen) ->                     -- screen : TInterface "Gdk" "Screen"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    IO ()---deviceGetPosition ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m (Screen,Int32,Int32)               -- result-deviceGetPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    screen <- allocMem :: IO (Ptr (Ptr Screen))-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    gdk_device_get_position _obj' screen x y-    screen' <- peek screen-    screen'' <- (newObject Screen) screen'-    x' <- peek x-    y' <- peek y-    touchManagedPtr _obj-    freeMem screen-    freeMem x-    freeMem y-    return (screen'', x', y')--data DeviceGetPositionMethodInfo-instance (signature ~ (m (Screen,Int32,Int32)), MonadIO m, DeviceK a) => MethodInfo DeviceGetPositionMethodInfo a signature where-    overloadedMethod _ = deviceGetPosition---- method Device::get_position_double--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_position_double" gdk_device_get_position_double :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Ptr (Ptr Screen) ->                     -- screen : TInterface "Gdk" "Screen"-    Ptr CDouble ->                          -- x : TBasicType TDouble-    Ptr CDouble ->                          -- y : TBasicType TDouble-    IO ()---deviceGetPositionDouble ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m (Screen,Double,Double)             -- result-deviceGetPositionDouble _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    screen <- allocMem :: IO (Ptr (Ptr Screen))-    x <- allocMem :: IO (Ptr CDouble)-    y <- allocMem :: IO (Ptr CDouble)-    gdk_device_get_position_double _obj' screen x y-    screen' <- peek screen-    screen'' <- (newObject Screen) screen'-    x' <- peek x-    let x'' = realToFrac x'-    y' <- peek y-    let y'' = realToFrac y'-    touchManagedPtr _obj-    freeMem screen-    freeMem x-    freeMem y-    return (screen'', x'', y'')--data DeviceGetPositionDoubleMethodInfo-instance (signature ~ (m (Screen,Double,Double)), MonadIO m, DeviceK a) => MethodInfo DeviceGetPositionDoubleMethodInfo a signature where-    overloadedMethod _ = deviceGetPositionDouble---- method Device::get_product_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_product_id" gdk_device_get_product_id :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO CString---deviceGetProductId ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-deviceGetProductId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_product_id _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DeviceGetProductIdMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, DeviceK a) => MethodInfo DeviceGetProductIdMethodInfo a signature where-    overloadedMethod _ = deviceGetProductId---- method Device::get_source--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "InputSource")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_source" gdk_device_get_source :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO CUInt---deviceGetSource ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m InputSource                        -- result-deviceGetSource _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_source _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DeviceGetSourceMethodInfo-instance (signature ~ (m InputSource), MonadIO m, DeviceK a) => MethodInfo DeviceGetSourceMethodInfo a signature where-    overloadedMethod _ = deviceGetSource---- method Device::get_vendor_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_vendor_id" gdk_device_get_vendor_id :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO CString---deviceGetVendorId ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m (Maybe T.Text)                     -- result-deviceGetVendorId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_vendor_id _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DeviceGetVendorIdMethodInfo-instance (signature ~ (m (Maybe T.Text)), MonadIO m, DeviceK a) => MethodInfo DeviceGetVendorIdMethodInfo a signature where-    overloadedMethod _ = deviceGetVendorId---- method Device::get_window_at_position--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_window_at_position" gdk_device_get_window_at_position :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Ptr Int32 ->                            -- win_x : TBasicType TInt-    Ptr Int32 ->                            -- win_y : TBasicType TInt-    IO (Ptr Window)---deviceGetWindowAtPosition ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m ((Maybe Window),Int32,Int32)       -- result-deviceGetWindowAtPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    winX <- allocMem :: IO (Ptr Int32)-    winY <- allocMem :: IO (Ptr Int32)-    result <- gdk_device_get_window_at_position _obj' winX winY-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    winX' <- peek winX-    winY' <- peek winY-    touchManagedPtr _obj-    freeMem winX-    freeMem winY-    return (maybeResult, winX', winY')--data DeviceGetWindowAtPositionMethodInfo-instance (signature ~ (m ((Maybe Window),Int32,Int32)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionMethodInfo a signature where-    overloadedMethod _ = deviceGetWindowAtPosition---- method Device::get_window_at_position_double--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_get_window_at_position_double" gdk_device_get_window_at_position_double :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Ptr CDouble ->                          -- win_x : TBasicType TDouble-    Ptr CDouble ->                          -- win_y : TBasicType TDouble-    IO (Ptr Window)---deviceGetWindowAtPositionDouble ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m ((Maybe Window),Double,Double)     -- result-deviceGetWindowAtPositionDouble _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    winX <- allocMem :: IO (Ptr CDouble)-    winY <- allocMem :: IO (Ptr CDouble)-    result <- gdk_device_get_window_at_position_double _obj' winX winY-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    winX' <- peek winX-    let winX'' = realToFrac winX'-    winY' <- peek winY-    let winY'' = realToFrac winY'-    touchManagedPtr _obj-    freeMem winX-    freeMem winY-    return (maybeResult, winX'', winY'')--data DeviceGetWindowAtPositionDoubleMethodInfo-instance (signature ~ (m ((Maybe Window),Double,Double)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionDoubleMethodInfo a signature where-    overloadedMethod _ = deviceGetWindowAtPositionDouble---- method Device::grab--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "GrabStatus")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_grab" gdk_device_grab :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    CUInt ->                                -- grab_ownership : TInterface "Gdk" "GrabOwnership"-    CInt ->                                 -- owner_events : TBasicType TBoolean-    CUInt ->                                -- event_mask : TInterface "Gdk" "EventMask"-    Ptr Cursor ->                           -- cursor : TInterface "Gdk" "Cursor"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO CUInt---deviceGrab ::-    (MonadIO m, DeviceK a, WindowK b, CursorK c) =>-    a                                       -- _obj-    -> b                                    -- window-    -> GrabOwnership                        -- grabOwnership-    -> Bool                                 -- ownerEvents-    -> [EventMask]                          -- eventMask-    -> Maybe (c)                            -- cursor-    -> Word32                               -- time_-    -> m GrabStatus                         -- result-deviceGrab _obj window grabOwnership ownerEvents eventMask cursor time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let window' = unsafeManagedPtrCastPtr window-    let grabOwnership' = (fromIntegral . fromEnum) grabOwnership-    let ownerEvents' = (fromIntegral . fromEnum) ownerEvents-    let eventMask' = gflagsToWord eventMask-    maybeCursor <- case cursor of-        Nothing -> return nullPtr-        Just jCursor -> do-            let jCursor' = unsafeManagedPtrCastPtr jCursor-            return jCursor'-    result <- gdk_device_grab _obj' window' grabOwnership' ownerEvents' eventMask' maybeCursor time_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    touchManagedPtr window-    whenJust cursor touchManagedPtr-    return result'--data DeviceGrabMethodInfo-instance (signature ~ (b -> GrabOwnership -> Bool -> [EventMask] -> Maybe (c) -> Word32 -> m GrabStatus), MonadIO m, DeviceK a, WindowK b, CursorK c) => MethodInfo DeviceGrabMethodInfo a signature where-    overloadedMethod _ = deviceGrab---- method Device::list_axes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Atom"))--- throws : False--- Skip return : False--foreign import ccall "gdk_device_list_axes" gdk_device_list_axes :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO (Ptr (GList (Ptr Atom)))---deviceListAxes ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m [Atom]                             -- result-deviceListAxes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_list_axes _obj'-    result' <- unpackGList result-    result'' <- mapM (newPtr Atom) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DeviceListAxesMethodInfo-instance (signature ~ (m [Atom]), MonadIO m, DeviceK a) => MethodInfo DeviceListAxesMethodInfo a signature where-    overloadedMethod _ = deviceListAxes---- method Device::list_slave_devices--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Device"))--- throws : False--- Skip return : False--foreign import ccall "gdk_device_list_slave_devices" gdk_device_list_slave_devices :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    IO (Ptr (GList (Ptr Device)))---deviceListSlaveDevices ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> m [Device]                           -- result-deviceListSlaveDevices _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_list_slave_devices _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject Device) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DeviceListSlaveDevicesMethodInfo-instance (signature ~ (m [Device]), MonadIO m, DeviceK a) => MethodInfo DeviceListSlaveDevicesMethodInfo a signature where-    overloadedMethod _ = deviceListSlaveDevices---- method Device::set_axis_use--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_device_set_axis_use" gdk_device_set_axis_use :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt-    CUInt ->                                -- use : TInterface "Gdk" "AxisUse"-    IO ()---deviceSetAxisUse ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> Word32                               -- index_-    -> AxisUse                              -- use-    -> m ()                                 -- result-deviceSetAxisUse _obj index_ use = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let use' = (fromIntegral . fromEnum) use-    gdk_device_set_axis_use _obj' index_ use'-    touchManagedPtr _obj-    return ()--data DeviceSetAxisUseMethodInfo-instance (signature ~ (Word32 -> AxisUse -> m ()), MonadIO m, DeviceK a) => MethodInfo DeviceSetAxisUseMethodInfo a signature where-    overloadedMethod _ = deviceSetAxisUse---- method Device::set_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_device_set_key" gdk_device_set_key :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt-    Word32 ->                               -- keyval : TBasicType TUInt-    CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"-    IO ()---deviceSetKey ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> Word32                               -- index_-    -> Word32                               -- keyval-    -> [ModifierType]                       -- modifiers-    -> m ()                                 -- result-deviceSetKey _obj index_ keyval modifiers = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let modifiers' = gflagsToWord modifiers-    gdk_device_set_key _obj' index_ keyval modifiers'-    touchManagedPtr _obj-    return ()--data DeviceSetKeyMethodInfo-instance (signature ~ (Word32 -> Word32 -> [ModifierType] -> m ()), MonadIO m, DeviceK a) => MethodInfo DeviceSetKeyMethodInfo a signature where-    overloadedMethod _ = deviceSetKey---- method Device::set_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_set_mode" gdk_device_set_mode :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    CUInt ->                                -- mode : TInterface "Gdk" "InputMode"-    IO CInt---deviceSetMode ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> InputMode                            -- mode-    -> m Bool                               -- result-deviceSetMode _obj mode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let mode' = (fromIntegral . fromEnum) mode-    result <- gdk_device_set_mode _obj' mode'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DeviceSetModeMethodInfo-instance (signature ~ (InputMode -> m Bool), MonadIO m, DeviceK a) => MethodInfo DeviceSetModeMethodInfo a signature where-    overloadedMethod _ = deviceSetMode---- method Device::ungrab--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_device_ungrab" gdk_device_ungrab :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()---deviceUngrab ::-    (MonadIO m, DeviceK a) =>-    a                                       -- _obj-    -> Word32                               -- time_-    -> m ()                                 -- result-deviceUngrab _obj time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_device_ungrab _obj' time_-    touchManagedPtr _obj-    return ()--data DeviceUngrabMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DeviceK a) => MethodInfo DeviceUngrabMethodInfo a signature where-    overloadedMethod _ = deviceUngrab---- method Device::warp--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_device_warp" gdk_device_warp :: -    Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    IO ()---deviceWarp ::-    (MonadIO m, DeviceK a, ScreenK b) =>-    a                                       -- _obj-    -> b                                    -- screen-    -> Int32                                -- x-    -> Int32                                -- y-    -> m ()                                 -- result-deviceWarp _obj screen x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let screen' = unsafeManagedPtrCastPtr screen-    gdk_device_warp _obj' screen' x y-    touchManagedPtr _obj-    touchManagedPtr screen-    return ()--data DeviceWarpMethodInfo-instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, DeviceK a, ScreenK b) => MethodInfo DeviceWarpMethodInfo a signature where-    overloadedMethod _ = deviceWarp---- method Device::grab_info_libgtk_only--- method type : MemberFunction--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grab_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_device_grab_info_libgtk_only" gdk_device_grab_info_libgtk_only :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    Ptr (Ptr Window) ->                     -- grab_window : TInterface "Gdk" "Window"-    Ptr CInt ->                             -- owner_events : TBasicType TBoolean-    IO CInt--{-# DEPRECATED deviceGrabInfoLibgtkOnly ["(Since version 3.16)","The symbol was never meant to be used outside","  of GTK+"]#-}-deviceGrabInfoLibgtkOnly ::-    (MonadIO m, DisplayK a, DeviceK b) =>-    a                                       -- display-    -> b                                    -- device-    -> m (Bool,Window,Bool)                 -- result-deviceGrabInfoLibgtkOnly display device = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let device' = unsafeManagedPtrCastPtr device-    grabWindow <- allocMem :: IO (Ptr (Ptr Window))-    ownerEvents <- allocMem :: IO (Ptr CInt)-    result <- gdk_device_grab_info_libgtk_only display' device' grabWindow ownerEvents-    let result' = (/= 0) result-    grabWindow' <- peek grabWindow-    grabWindow'' <- (newObject Window) grabWindow'-    ownerEvents' <- peek ownerEvents-    let ownerEvents'' = (/= 0) ownerEvents'-    touchManagedPtr display-    touchManagedPtr device-    freeMem grabWindow-    freeMem ownerEvents-    return (result', grabWindow'', ownerEvents'')--
− GI/Gdk/Objects/Device.hs-boot 
@@ -1,51 +0,0 @@-module GI.Gdk.Objects.Device where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Device = Device (ForeignPtr Device)-instance GObject Device where-class GObject o => DeviceK o-instance (GObject o, IsDescendantOf Device o) => DeviceK o-data DeviceAssociatedDevicePropertyInfo-data DeviceDeviceManagerPropertyInfo-data DeviceDisplayPropertyInfo-data DeviceHasCursorPropertyInfo-data DeviceInputModePropertyInfo-data DeviceInputSourcePropertyInfo-data DeviceNAxesPropertyInfo-data DeviceNamePropertyInfo-data DeviceProductIdPropertyInfo-data DeviceTypePropertyInfo-data DeviceVendorIdPropertyInfo-data DeviceChangedSignalInfo-data DeviceGetAssociatedDeviceMethodInfo-data DeviceGetAxisUseMethodInfo-data DeviceGetDeviceTypeMethodInfo-data DeviceGetDisplayMethodInfo-data DeviceGetHasCursorMethodInfo-data DeviceGetKeyMethodInfo-data DeviceGetLastEventWindowMethodInfo-data DeviceGetModeMethodInfo-data DeviceGetNAxesMethodInfo-data DeviceGetNKeysMethodInfo-data DeviceGetNameMethodInfo-data DeviceGetPositionMethodInfo-data DeviceGetPositionDoubleMethodInfo-data DeviceGetProductIdMethodInfo-data DeviceGetSourceMethodInfo-data DeviceGetVendorIdMethodInfo-data DeviceGetWindowAtPositionMethodInfo-data DeviceGetWindowAtPositionDoubleMethodInfo-data DeviceGrabMethodInfo-data DeviceListAxesMethodInfo-data DeviceListSlaveDevicesMethodInfo-data DeviceSetAxisUseMethodInfo-data DeviceSetKeyMethodInfo-data DeviceSetModeMethodInfo-data DeviceUngrabMethodInfo-data DeviceWarpMethodInfo
− GI/Gdk/Objects/DeviceManager.hs 
@@ -1,421 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.DeviceManager-    ( ---- * Exported types-    DeviceManager(..)                       ,-    DeviceManagerK                          ,-    toDeviceManager                         ,-    noDeviceManager                         ,--- -- * Methods--- ** deviceManagerGetClientPointer-    DeviceManagerGetClientPointerMethodInfo ,-    deviceManagerGetClientPointer           ,----- ** deviceManagerGetDisplay-    DeviceManagerGetDisplayMethodInfo       ,-    deviceManagerGetDisplay                 ,----- ** deviceManagerListDevices-    DeviceManagerListDevicesMethodInfo      ,-    deviceManagerListDevices                ,----- -- * Properties--- ** Display-    DeviceManagerDisplayPropertyInfo        ,-    constructDeviceManagerDisplay           ,-    deviceManagerDisplay                    ,-    getDeviceManagerDisplay                 ,----- -- * Signals--- ** DeviceAdded-    DeviceManagerDeviceAddedCallback        ,-    DeviceManagerDeviceAddedCallbackC       ,-    DeviceManagerDeviceAddedSignalInfo      ,-    afterDeviceManagerDeviceAdded           ,-    deviceManagerDeviceAddedCallbackWrapper ,-    deviceManagerDeviceAddedClosure         ,-    mkDeviceManagerDeviceAddedCallback      ,-    noDeviceManagerDeviceAddedCallback      ,-    onDeviceManagerDeviceAdded              ,----- ** DeviceChanged-    DeviceManagerDeviceChangedCallback      ,-    DeviceManagerDeviceChangedCallbackC     ,-    DeviceManagerDeviceChangedSignalInfo    ,-    afterDeviceManagerDeviceChanged         ,-    deviceManagerDeviceChangedCallbackWrapper,-    deviceManagerDeviceChangedClosure       ,-    mkDeviceManagerDeviceChangedCallback    ,-    noDeviceManagerDeviceChangedCallback    ,-    onDeviceManagerDeviceChanged            ,----- ** DeviceRemoved-    DeviceManagerDeviceRemovedCallback      ,-    DeviceManagerDeviceRemovedCallbackC     ,-    DeviceManagerDeviceRemovedSignalInfo    ,-    afterDeviceManagerDeviceRemoved         ,-    deviceManagerDeviceRemovedCallbackWrapper,-    deviceManagerDeviceRemovedClosure       ,-    mkDeviceManagerDeviceRemovedCallback    ,-    noDeviceManagerDeviceRemovedCallback    ,-    onDeviceManagerDeviceRemoved            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager)-foreign import ccall "gdk_device_manager_get_type"-    c_gdk_device_manager_get_type :: IO GType--type instance ParentTypes DeviceManager = DeviceManagerParentTypes-type DeviceManagerParentTypes = '[GObject.Object]--instance GObject DeviceManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_device_manager_get_type-    --class GObject o => DeviceManagerK o-instance (GObject o, IsDescendantOf DeviceManager o) => DeviceManagerK o--toDeviceManager :: DeviceManagerK o => o -> IO DeviceManager-toDeviceManager = unsafeCastTo DeviceManager--noDeviceManager :: Maybe DeviceManager-noDeviceManager = Nothing--type family ResolveDeviceManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDeviceManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDeviceManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDeviceManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDeviceManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDeviceManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDeviceManagerMethod "listDevices" o = DeviceManagerListDevicesMethodInfo-    ResolveDeviceManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDeviceManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDeviceManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDeviceManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDeviceManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDeviceManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDeviceManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDeviceManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDeviceManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDeviceManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDeviceManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDeviceManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDeviceManagerMethod "getClientPointer" o = DeviceManagerGetClientPointerMethodInfo-    ResolveDeviceManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDeviceManagerMethod "getDisplay" o = DeviceManagerGetDisplayMethodInfo-    ResolveDeviceManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDeviceManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDeviceManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDeviceManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDeviceManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDeviceManagerMethod t DeviceManager, MethodInfo info DeviceManager p) => IsLabelProxy t (DeviceManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDeviceManagerMethod t DeviceManager, MethodInfo info DeviceManager p) => IsLabel t (DeviceManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DeviceManager::device-added-type DeviceManagerDeviceAddedCallback =-    Device ->-    IO ()--noDeviceManagerDeviceAddedCallback :: Maybe DeviceManagerDeviceAddedCallback-noDeviceManagerDeviceAddedCallback = Nothing--type DeviceManagerDeviceAddedCallbackC =-    Ptr () ->                               -- object-    Ptr Device ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDeviceManagerDeviceAddedCallback :: DeviceManagerDeviceAddedCallbackC -> IO (FunPtr DeviceManagerDeviceAddedCallbackC)--deviceManagerDeviceAddedClosure :: DeviceManagerDeviceAddedCallback -> IO Closure-deviceManagerDeviceAddedClosure cb = newCClosure =<< mkDeviceManagerDeviceAddedCallback wrapped-    where wrapped = deviceManagerDeviceAddedCallbackWrapper cb--deviceManagerDeviceAddedCallbackWrapper ::-    DeviceManagerDeviceAddedCallback ->-    Ptr () ->-    Ptr Device ->-    Ptr () ->-    IO ()-deviceManagerDeviceAddedCallbackWrapper _cb _ device _ = do-    device' <- (newObject Device) device-    _cb  device'--onDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceAddedCallback -> m SignalHandlerId-onDeviceManagerDeviceAdded obj cb = liftIO $ connectDeviceManagerDeviceAdded obj cb SignalConnectBefore-afterDeviceManagerDeviceAdded :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceAddedCallback -> m SignalHandlerId-afterDeviceManagerDeviceAdded obj cb = connectDeviceManagerDeviceAdded obj cb SignalConnectAfter--connectDeviceManagerDeviceAdded :: (GObject a, MonadIO m) =>-                                   a -> DeviceManagerDeviceAddedCallback -> SignalConnectMode -> m SignalHandlerId-connectDeviceManagerDeviceAdded obj cb after = liftIO $ do-    cb' <- mkDeviceManagerDeviceAddedCallback (deviceManagerDeviceAddedCallbackWrapper cb)-    connectSignalFunPtr obj "device-added" cb' after---- signal DeviceManager::device-changed-type DeviceManagerDeviceChangedCallback =-    Device ->-    IO ()--noDeviceManagerDeviceChangedCallback :: Maybe DeviceManagerDeviceChangedCallback-noDeviceManagerDeviceChangedCallback = Nothing--type DeviceManagerDeviceChangedCallbackC =-    Ptr () ->                               -- object-    Ptr Device ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDeviceManagerDeviceChangedCallback :: DeviceManagerDeviceChangedCallbackC -> IO (FunPtr DeviceManagerDeviceChangedCallbackC)--deviceManagerDeviceChangedClosure :: DeviceManagerDeviceChangedCallback -> IO Closure-deviceManagerDeviceChangedClosure cb = newCClosure =<< mkDeviceManagerDeviceChangedCallback wrapped-    where wrapped = deviceManagerDeviceChangedCallbackWrapper cb--deviceManagerDeviceChangedCallbackWrapper ::-    DeviceManagerDeviceChangedCallback ->-    Ptr () ->-    Ptr Device ->-    Ptr () ->-    IO ()-deviceManagerDeviceChangedCallbackWrapper _cb _ device _ = do-    device' <- (newObject Device) device-    _cb  device'--onDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceChangedCallback -> m SignalHandlerId-onDeviceManagerDeviceChanged obj cb = liftIO $ connectDeviceManagerDeviceChanged obj cb SignalConnectBefore-afterDeviceManagerDeviceChanged :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceChangedCallback -> m SignalHandlerId-afterDeviceManagerDeviceChanged obj cb = connectDeviceManagerDeviceChanged obj cb SignalConnectAfter--connectDeviceManagerDeviceChanged :: (GObject a, MonadIO m) =>-                                     a -> DeviceManagerDeviceChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectDeviceManagerDeviceChanged obj cb after = liftIO $ do-    cb' <- mkDeviceManagerDeviceChangedCallback (deviceManagerDeviceChangedCallbackWrapper cb)-    connectSignalFunPtr obj "device-changed" cb' after---- signal DeviceManager::device-removed-type DeviceManagerDeviceRemovedCallback =-    Device ->-    IO ()--noDeviceManagerDeviceRemovedCallback :: Maybe DeviceManagerDeviceRemovedCallback-noDeviceManagerDeviceRemovedCallback = Nothing--type DeviceManagerDeviceRemovedCallbackC =-    Ptr () ->                               -- object-    Ptr Device ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDeviceManagerDeviceRemovedCallback :: DeviceManagerDeviceRemovedCallbackC -> IO (FunPtr DeviceManagerDeviceRemovedCallbackC)--deviceManagerDeviceRemovedClosure :: DeviceManagerDeviceRemovedCallback -> IO Closure-deviceManagerDeviceRemovedClosure cb = newCClosure =<< mkDeviceManagerDeviceRemovedCallback wrapped-    where wrapped = deviceManagerDeviceRemovedCallbackWrapper cb--deviceManagerDeviceRemovedCallbackWrapper ::-    DeviceManagerDeviceRemovedCallback ->-    Ptr () ->-    Ptr Device ->-    Ptr () ->-    IO ()-deviceManagerDeviceRemovedCallbackWrapper _cb _ device _ = do-    device' <- (newObject Device) device-    _cb  device'--onDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceRemovedCallback -> m SignalHandlerId-onDeviceManagerDeviceRemoved obj cb = liftIO $ connectDeviceManagerDeviceRemoved obj cb SignalConnectBefore-afterDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) => a -> DeviceManagerDeviceRemovedCallback -> m SignalHandlerId-afterDeviceManagerDeviceRemoved obj cb = connectDeviceManagerDeviceRemoved obj cb SignalConnectAfter--connectDeviceManagerDeviceRemoved :: (GObject a, MonadIO m) =>-                                     a -> DeviceManagerDeviceRemovedCallback -> SignalConnectMode -> m SignalHandlerId-connectDeviceManagerDeviceRemoved obj cb after = liftIO $ do-    cb' <- mkDeviceManagerDeviceRemovedCallback (deviceManagerDeviceRemovedCallbackWrapper cb)-    connectSignalFunPtr obj "device-removed" cb' after---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just True,Nothing)--getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m (Maybe Display)-getDeviceManagerDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display--constructDeviceManagerDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDeviceManagerDisplay val = constructObjectPropertyObject "display" (Just val)--data DeviceManagerDisplayPropertyInfo-instance AttrInfo DeviceManagerDisplayPropertyInfo where-    type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint DeviceManagerDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint DeviceManagerDisplayPropertyInfo = DeviceManagerK-    type AttrGetType DeviceManagerDisplayPropertyInfo = (Maybe Display)-    type AttrLabel DeviceManagerDisplayPropertyInfo = "display"-    attrGet _ = getDeviceManagerDisplay-    attrSet _ = undefined-    attrConstruct _ = constructDeviceManagerDisplay-    attrClear _ = undefined--type instance AttributeList DeviceManager = DeviceManagerAttributeList-type DeviceManagerAttributeList = ('[ '("display", DeviceManagerDisplayPropertyInfo)] :: [(Symbol, *)])--deviceManagerDisplay :: AttrLabelProxy "display"-deviceManagerDisplay = AttrLabelProxy--data DeviceManagerDeviceAddedSignalInfo-instance SignalInfo DeviceManagerDeviceAddedSignalInfo where-    type HaskellCallbackType DeviceManagerDeviceAddedSignalInfo = DeviceManagerDeviceAddedCallback-    connectSignal _ = connectDeviceManagerDeviceAdded--data DeviceManagerDeviceChangedSignalInfo-instance SignalInfo DeviceManagerDeviceChangedSignalInfo where-    type HaskellCallbackType DeviceManagerDeviceChangedSignalInfo = DeviceManagerDeviceChangedCallback-    connectSignal _ = connectDeviceManagerDeviceChanged--data DeviceManagerDeviceRemovedSignalInfo-instance SignalInfo DeviceManagerDeviceRemovedSignalInfo where-    type HaskellCallbackType DeviceManagerDeviceRemovedSignalInfo = DeviceManagerDeviceRemovedCallback-    connectSignal _ = connectDeviceManagerDeviceRemoved--type instance SignalList DeviceManager = DeviceManagerSignalList-type DeviceManagerSignalList = ('[ '("deviceAdded", DeviceManagerDeviceAddedSignalInfo), '("deviceChanged", DeviceManagerDeviceChangedSignalInfo), '("deviceRemoved", DeviceManagerDeviceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DeviceManager::get_client_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Device")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_manager_get_client_pointer" gdk_device_manager_get_client_pointer :: -    Ptr DeviceManager ->                    -- _obj : TInterface "Gdk" "DeviceManager"-    IO (Ptr Device)---deviceManagerGetClientPointer ::-    (MonadIO m, DeviceManagerK a) =>-    a                                       -- _obj-    -> m Device                             -- result-deviceManagerGetClientPointer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_manager_get_client_pointer _obj'-    checkUnexpectedReturnNULL "gdk_device_manager_get_client_pointer" result-    result' <- (newObject Device) result-    touchManagedPtr _obj-    return result'--data DeviceManagerGetClientPointerMethodInfo-instance (signature ~ (m Device), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerGetClientPointerMethodInfo a signature where-    overloadedMethod _ = deviceManagerGetClientPointer---- method DeviceManager::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_device_manager_get_display" gdk_device_manager_get_display :: -    Ptr DeviceManager ->                    -- _obj : TInterface "Gdk" "DeviceManager"-    IO (Ptr Display)---deviceManagerGetDisplay ::-    (MonadIO m, DeviceManagerK a) =>-    a                                       -- _obj-    -> m (Maybe Display)                    -- result-deviceManagerGetDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_manager_get_display _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Display) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DeviceManagerGetDisplayMethodInfo-instance (signature ~ (m (Maybe Display)), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerGetDisplayMethodInfo a signature where-    overloadedMethod _ = deviceManagerGetDisplay---- method DeviceManager::list_devices--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Device"))--- throws : False--- Skip return : False--foreign import ccall "gdk_device_manager_list_devices" gdk_device_manager_list_devices :: -    Ptr DeviceManager ->                    -- _obj : TInterface "Gdk" "DeviceManager"-    CUInt ->                                -- type : TInterface "Gdk" "DeviceType"-    IO (Ptr (GList (Ptr Device)))---deviceManagerListDevices ::-    (MonadIO m, DeviceManagerK a) =>-    a                                       -- _obj-    -> DeviceType                           -- type_-    -> m [Device]                           -- result-deviceManagerListDevices _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- gdk_device_manager_list_devices _obj' type_'-    result' <- unpackGList result-    result'' <- mapM (newObject Device) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data DeviceManagerListDevicesMethodInfo-instance (signature ~ (DeviceType -> m [Device]), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerListDevicesMethodInfo a signature where-    overloadedMethod _ = deviceManagerListDevices--
− GI/Gdk/Objects/DeviceManager.hs-boot 
@@ -1,20 +0,0 @@-module GI.Gdk.Objects.DeviceManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager)-instance GObject DeviceManager where-class GObject o => DeviceManagerK o-instance (GObject o, IsDescendantOf DeviceManager o) => DeviceManagerK o-data DeviceManagerDisplayPropertyInfo-data DeviceManagerDeviceAddedSignalInfo-data DeviceManagerDeviceChangedSignalInfo-data DeviceManagerDeviceRemovedSignalInfo-data DeviceManagerGetClientPointerMethodInfo-data DeviceManagerGetDisplayMethodInfo-data DeviceManagerListDevicesMethodInfo
− GI/Gdk/Objects/Display.hs 
@@ -1,1666 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.Display-    ( ---- * Exported types-    Display(..)                             ,-    DisplayK                                ,-    toDisplay                               ,-    noDisplay                               ,--- -- * Methods--- ** displayBeep-    DisplayBeepMethodInfo                   ,-    displayBeep                             ,----- ** displayClose-    DisplayCloseMethodInfo                  ,-    displayClose                            ,----- ** displayDeviceIsGrabbed-    DisplayDeviceIsGrabbedMethodInfo        ,-    displayDeviceIsGrabbed                  ,----- ** displayFlush-    DisplayFlushMethodInfo                  ,-    displayFlush                            ,----- ** displayGetAppLaunchContext-    DisplayGetAppLaunchContextMethodInfo    ,-    displayGetAppLaunchContext              ,----- ** displayGetDefault-    displayGetDefault                       ,----- ** displayGetDefaultCursorSize-    DisplayGetDefaultCursorSizeMethodInfo   ,-    displayGetDefaultCursorSize             ,----- ** displayGetDefaultGroup-    DisplayGetDefaultGroupMethodInfo        ,-    displayGetDefaultGroup                  ,----- ** displayGetDefaultScreen-    DisplayGetDefaultScreenMethodInfo       ,-    displayGetDefaultScreen                 ,----- ** displayGetDeviceManager-    DisplayGetDeviceManagerMethodInfo       ,-    displayGetDeviceManager                 ,----- ** displayGetEvent-    DisplayGetEventMethodInfo               ,-    displayGetEvent                         ,----- ** displayGetMaximalCursorSize-    DisplayGetMaximalCursorSizeMethodInfo   ,-    displayGetMaximalCursorSize             ,----- ** displayGetNScreens-    DisplayGetNScreensMethodInfo            ,-    displayGetNScreens                      ,----- ** displayGetName-    DisplayGetNameMethodInfo                ,-    displayGetName                          ,----- ** displayGetPointer-    DisplayGetPointerMethodInfo             ,-    displayGetPointer                       ,----- ** displayGetScreen-    DisplayGetScreenMethodInfo              ,-    displayGetScreen                        ,----- ** displayGetWindowAtPointer-    DisplayGetWindowAtPointerMethodInfo     ,-    displayGetWindowAtPointer               ,----- ** displayHasPending-    DisplayHasPendingMethodInfo             ,-    displayHasPending                       ,----- ** displayIsClosed-    DisplayIsClosedMethodInfo               ,-    displayIsClosed                         ,----- ** displayKeyboardUngrab-    DisplayKeyboardUngrabMethodInfo         ,-    displayKeyboardUngrab                   ,----- ** displayListDevices-    DisplayListDevicesMethodInfo            ,-    displayListDevices                      ,----- ** displayNotifyStartupComplete-    DisplayNotifyStartupCompleteMethodInfo  ,-    displayNotifyStartupComplete            ,----- ** displayOpen-    displayOpen                             ,----- ** displayOpenDefaultLibgtkOnly-    displayOpenDefaultLibgtkOnly            ,----- ** displayPeekEvent-    DisplayPeekEventMethodInfo              ,-    displayPeekEvent                        ,----- ** displayPointerIsGrabbed-    DisplayPointerIsGrabbedMethodInfo       ,-    displayPointerIsGrabbed                 ,----- ** displayPointerUngrab-    DisplayPointerUngrabMethodInfo          ,-    displayPointerUngrab                    ,----- ** displayPutEvent-    DisplayPutEventMethodInfo               ,-    displayPutEvent                         ,----- ** displayRequestSelectionNotification-    DisplayRequestSelectionNotificationMethodInfo,-    displayRequestSelectionNotification     ,----- ** displaySetDoubleClickDistance-    DisplaySetDoubleClickDistanceMethodInfo ,-    displaySetDoubleClickDistance           ,----- ** displaySetDoubleClickTime-    DisplaySetDoubleClickTimeMethodInfo     ,-    displaySetDoubleClickTime               ,----- ** displayStoreClipboard-    DisplayStoreClipboardMethodInfo         ,-    displayStoreClipboard                   ,----- ** displaySupportsClipboardPersistence-    DisplaySupportsClipboardPersistenceMethodInfo,-    displaySupportsClipboardPersistence     ,----- ** displaySupportsComposite-    DisplaySupportsCompositeMethodInfo      ,-    displaySupportsComposite                ,----- ** displaySupportsCursorAlpha-    DisplaySupportsCursorAlphaMethodInfo    ,-    displaySupportsCursorAlpha              ,----- ** displaySupportsCursorColor-    DisplaySupportsCursorColorMethodInfo    ,-    displaySupportsCursorColor              ,----- ** displaySupportsInputShapes-    DisplaySupportsInputShapesMethodInfo    ,-    displaySupportsInputShapes              ,----- ** displaySupportsSelectionNotification-    DisplaySupportsSelectionNotificationMethodInfo,-    displaySupportsSelectionNotification    ,----- ** displaySupportsShapes-    DisplaySupportsShapesMethodInfo         ,-    displaySupportsShapes                   ,----- ** displaySync-    DisplaySyncMethodInfo                   ,-    displaySync                             ,----- ** displayWarpPointer-    DisplayWarpPointerMethodInfo            ,-    displayWarpPointer                      ,----- -- * Signals--- ** Closed-    DisplayClosedCallback                   ,-    DisplayClosedCallbackC                  ,-    DisplayClosedSignalInfo                 ,-    afterDisplayClosed                      ,-    displayClosedCallbackWrapper            ,-    displayClosedClosure                    ,-    mkDisplayClosedCallback                 ,-    noDisplayClosedCallback                 ,-    onDisplayClosed                         ,----- ** Opened-    DisplayOpenedCallback                   ,-    DisplayOpenedCallbackC                  ,-    DisplayOpenedSignalInfo                 ,-    afterDisplayOpened                      ,-    displayOpenedCallbackWrapper            ,-    displayOpenedClosure                    ,-    mkDisplayOpenedCallback                 ,-    noDisplayOpenedCallback                 ,-    onDisplayOpened                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype Display = Display (ForeignPtr Display)-foreign import ccall "gdk_display_get_type"-    c_gdk_display_get_type :: IO GType--type instance ParentTypes Display = DisplayParentTypes-type DisplayParentTypes = '[GObject.Object]--instance GObject Display where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_display_get_type-    --class GObject o => DisplayK o-instance (GObject o, IsDescendantOf Display o) => DisplayK o--toDisplay :: DisplayK o => o -> IO Display-toDisplay = unsafeCastTo Display--noDisplay :: Maybe Display-noDisplay = Nothing--type family ResolveDisplayMethod (t :: Symbol) (o :: *) :: * where-    ResolveDisplayMethod "beep" o = DisplayBeepMethodInfo-    ResolveDisplayMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDisplayMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDisplayMethod "close" o = DisplayCloseMethodInfo-    ResolveDisplayMethod "deviceIsGrabbed" o = DisplayDeviceIsGrabbedMethodInfo-    ResolveDisplayMethod "flush" o = DisplayFlushMethodInfo-    ResolveDisplayMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDisplayMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDisplayMethod "hasPending" o = DisplayHasPendingMethodInfo-    ResolveDisplayMethod "isClosed" o = DisplayIsClosedMethodInfo-    ResolveDisplayMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDisplayMethod "keyboardUngrab" o = DisplayKeyboardUngrabMethodInfo-    ResolveDisplayMethod "listDevices" o = DisplayListDevicesMethodInfo-    ResolveDisplayMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDisplayMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDisplayMethod "notifyStartupComplete" o = DisplayNotifyStartupCompleteMethodInfo-    ResolveDisplayMethod "peekEvent" o = DisplayPeekEventMethodInfo-    ResolveDisplayMethod "pointerIsGrabbed" o = DisplayPointerIsGrabbedMethodInfo-    ResolveDisplayMethod "pointerUngrab" o = DisplayPointerUngrabMethodInfo-    ResolveDisplayMethod "putEvent" o = DisplayPutEventMethodInfo-    ResolveDisplayMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDisplayMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDisplayMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDisplayMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDisplayMethod "requestSelectionNotification" o = DisplayRequestSelectionNotificationMethodInfo-    ResolveDisplayMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDisplayMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDisplayMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDisplayMethod "storeClipboard" o = DisplayStoreClipboardMethodInfo-    ResolveDisplayMethod "supportsClipboardPersistence" o = DisplaySupportsClipboardPersistenceMethodInfo-    ResolveDisplayMethod "supportsComposite" o = DisplaySupportsCompositeMethodInfo-    ResolveDisplayMethod "supportsCursorAlpha" o = DisplaySupportsCursorAlphaMethodInfo-    ResolveDisplayMethod "supportsCursorColor" o = DisplaySupportsCursorColorMethodInfo-    ResolveDisplayMethod "supportsInputShapes" o = DisplaySupportsInputShapesMethodInfo-    ResolveDisplayMethod "supportsSelectionNotification" o = DisplaySupportsSelectionNotificationMethodInfo-    ResolveDisplayMethod "supportsShapes" o = DisplaySupportsShapesMethodInfo-    ResolveDisplayMethod "sync" o = DisplaySyncMethodInfo-    ResolveDisplayMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDisplayMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDisplayMethod "warpPointer" o = DisplayWarpPointerMethodInfo-    ResolveDisplayMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDisplayMethod "getAppLaunchContext" o = DisplayGetAppLaunchContextMethodInfo-    ResolveDisplayMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDisplayMethod "getDefaultCursorSize" o = DisplayGetDefaultCursorSizeMethodInfo-    ResolveDisplayMethod "getDefaultGroup" o = DisplayGetDefaultGroupMethodInfo-    ResolveDisplayMethod "getDefaultScreen" o = DisplayGetDefaultScreenMethodInfo-    ResolveDisplayMethod "getDeviceManager" o = DisplayGetDeviceManagerMethodInfo-    ResolveDisplayMethod "getEvent" o = DisplayGetEventMethodInfo-    ResolveDisplayMethod "getMaximalCursorSize" o = DisplayGetMaximalCursorSizeMethodInfo-    ResolveDisplayMethod "getNScreens" o = DisplayGetNScreensMethodInfo-    ResolveDisplayMethod "getName" o = DisplayGetNameMethodInfo-    ResolveDisplayMethod "getPointer" o = DisplayGetPointerMethodInfo-    ResolveDisplayMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDisplayMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDisplayMethod "getScreen" o = DisplayGetScreenMethodInfo-    ResolveDisplayMethod "getWindowAtPointer" o = DisplayGetWindowAtPointerMethodInfo-    ResolveDisplayMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDisplayMethod "setDoubleClickDistance" o = DisplaySetDoubleClickDistanceMethodInfo-    ResolveDisplayMethod "setDoubleClickTime" o = DisplaySetDoubleClickTimeMethodInfo-    ResolveDisplayMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDisplayMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDisplayMethod t Display, MethodInfo info Display p) => IsLabelProxy t (Display -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDisplayMethod t Display, MethodInfo info Display p) => IsLabel t (Display -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Display::closed-type DisplayClosedCallback =-    Bool ->-    IO ()--noDisplayClosedCallback :: Maybe DisplayClosedCallback-noDisplayClosedCallback = Nothing--type DisplayClosedCallbackC =-    Ptr () ->                               -- object-    CInt ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDisplayClosedCallback :: DisplayClosedCallbackC -> IO (FunPtr DisplayClosedCallbackC)--displayClosedClosure :: DisplayClosedCallback -> IO Closure-displayClosedClosure cb = newCClosure =<< mkDisplayClosedCallback wrapped-    where wrapped = displayClosedCallbackWrapper cb--displayClosedCallbackWrapper ::-    DisplayClosedCallback ->-    Ptr () ->-    CInt ->-    Ptr () ->-    IO ()-displayClosedCallbackWrapper _cb _ isError _ = do-    let isError' = (/= 0) isError-    _cb  isError'--onDisplayClosed :: (GObject a, MonadIO m) => a -> DisplayClosedCallback -> m SignalHandlerId-onDisplayClosed obj cb = liftIO $ connectDisplayClosed obj cb SignalConnectBefore-afterDisplayClosed :: (GObject a, MonadIO m) => a -> DisplayClosedCallback -> m SignalHandlerId-afterDisplayClosed obj cb = connectDisplayClosed obj cb SignalConnectAfter--connectDisplayClosed :: (GObject a, MonadIO m) =>-                        a -> DisplayClosedCallback -> SignalConnectMode -> m SignalHandlerId-connectDisplayClosed obj cb after = liftIO $ do-    cb' <- mkDisplayClosedCallback (displayClosedCallbackWrapper cb)-    connectSignalFunPtr obj "closed" cb' after---- signal Display::opened-type DisplayOpenedCallback =-    IO ()--noDisplayOpenedCallback :: Maybe DisplayOpenedCallback-noDisplayOpenedCallback = Nothing--type DisplayOpenedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDisplayOpenedCallback :: DisplayOpenedCallbackC -> IO (FunPtr DisplayOpenedCallbackC)--displayOpenedClosure :: DisplayOpenedCallback -> IO Closure-displayOpenedClosure cb = newCClosure =<< mkDisplayOpenedCallback wrapped-    where wrapped = displayOpenedCallbackWrapper cb--displayOpenedCallbackWrapper ::-    DisplayOpenedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-displayOpenedCallbackWrapper _cb _ _ = do-    _cb --onDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayOpenedCallback -> m SignalHandlerId-onDisplayOpened obj cb = liftIO $ connectDisplayOpened obj cb SignalConnectBefore-afterDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayOpenedCallback -> m SignalHandlerId-afterDisplayOpened obj cb = connectDisplayOpened obj cb SignalConnectAfter--connectDisplayOpened :: (GObject a, MonadIO m) =>-                        a -> DisplayOpenedCallback -> SignalConnectMode -> m SignalHandlerId-connectDisplayOpened obj cb after = liftIO $ do-    cb' <- mkDisplayOpenedCallback (displayOpenedCallbackWrapper cb)-    connectSignalFunPtr obj "opened" cb' after--type instance AttributeList Display = DisplayAttributeList-type DisplayAttributeList = ('[ ] :: [(Symbol, *)])--data DisplayClosedSignalInfo-instance SignalInfo DisplayClosedSignalInfo where-    type HaskellCallbackType DisplayClosedSignalInfo = DisplayClosedCallback-    connectSignal _ = connectDisplayClosed--data DisplayOpenedSignalInfo-instance SignalInfo DisplayOpenedSignalInfo where-    type HaskellCallbackType DisplayOpenedSignalInfo = DisplayOpenedCallback-    connectSignal _ = connectDisplayOpened--type instance SignalList Display = DisplaySignalList-type DisplaySignalList = ('[ '("closed", DisplayClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("opened", DisplayOpenedSignalInfo)] :: [(Symbol, *)])---- method Display::beep--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_beep" gdk_display_beep :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO ()---displayBeep ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-displayBeep _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_beep _obj'-    touchManagedPtr _obj-    return ()--data DisplayBeepMethodInfo-instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplayBeepMethodInfo a signature where-    overloadedMethod _ = displayBeep---- method Display::close--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_close" gdk_display_close :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO ()---displayClose ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-displayClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_close _obj'-    touchManagedPtr _obj-    return ()--data DisplayCloseMethodInfo-instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplayCloseMethodInfo a signature where-    overloadedMethod _ = displayClose---- method Display::device_is_grabbed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_device_is_grabbed" gdk_display_device_is_grabbed :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    IO CInt---displayDeviceIsGrabbed ::-    (MonadIO m, DisplayK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> m Bool                               -- result-displayDeviceIsGrabbed _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    result <- gdk_display_device_is_grabbed _obj' device'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr device-    return result'--data DisplayDeviceIsGrabbedMethodInfo-instance (signature ~ (b -> m Bool), MonadIO m, DisplayK a, DeviceK b) => MethodInfo DisplayDeviceIsGrabbedMethodInfo a signature where-    overloadedMethod _ = displayDeviceIsGrabbed---- method Display::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_flush" gdk_display_flush :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO ()---displayFlush ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-displayFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_flush _obj'-    touchManagedPtr _obj-    return ()--data DisplayFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplayFlushMethodInfo a signature where-    overloadedMethod _ = displayFlush---- method Display::get_app_launch_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "AppLaunchContext")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_app_launch_context" gdk_display_get_app_launch_context :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO (Ptr AppLaunchContext)---displayGetAppLaunchContext ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m AppLaunchContext                   -- result-displayGetAppLaunchContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_app_launch_context _obj'-    checkUnexpectedReturnNULL "gdk_display_get_app_launch_context" result-    result' <- (wrapObject AppLaunchContext) result-    touchManagedPtr _obj-    return result'--data DisplayGetAppLaunchContextMethodInfo-instance (signature ~ (m AppLaunchContext), MonadIO m, DisplayK a) => MethodInfo DisplayGetAppLaunchContextMethodInfo a signature where-    overloadedMethod _ = displayGetAppLaunchContext---- method Display::get_default_cursor_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_default_cursor_size" gdk_display_get_default_cursor_size :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO Word32---displayGetDefaultCursorSize ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-displayGetDefaultCursorSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_default_cursor_size _obj'-    touchManagedPtr _obj-    return result--data DisplayGetDefaultCursorSizeMethodInfo-instance (signature ~ (m Word32), MonadIO m, DisplayK a) => MethodInfo DisplayGetDefaultCursorSizeMethodInfo a signature where-    overloadedMethod _ = displayGetDefaultCursorSize---- method Display::get_default_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_default_group" gdk_display_get_default_group :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO (Ptr Window)---displayGetDefaultGroup ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Window                             -- result-displayGetDefaultGroup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_default_group _obj'-    checkUnexpectedReturnNULL "gdk_display_get_default_group" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data DisplayGetDefaultGroupMethodInfo-instance (signature ~ (m Window), MonadIO m, DisplayK a) => MethodInfo DisplayGetDefaultGroupMethodInfo a signature where-    overloadedMethod _ = displayGetDefaultGroup---- method Display::get_default_screen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Screen")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_default_screen" gdk_display_get_default_screen :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO (Ptr Screen)---displayGetDefaultScreen ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Screen                             -- result-displayGetDefaultScreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_default_screen _obj'-    checkUnexpectedReturnNULL "gdk_display_get_default_screen" result-    result' <- (newObject Screen) result-    touchManagedPtr _obj-    return result'--data DisplayGetDefaultScreenMethodInfo-instance (signature ~ (m Screen), MonadIO m, DisplayK a) => MethodInfo DisplayGetDefaultScreenMethodInfo a signature where-    overloadedMethod _ = displayGetDefaultScreen---- method Display::get_device_manager--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DeviceManager")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_device_manager" gdk_display_get_device_manager :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO (Ptr DeviceManager)---displayGetDeviceManager ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m (Maybe DeviceManager)              -- result-displayGetDeviceManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_device_manager _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject DeviceManager) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DisplayGetDeviceManagerMethodInfo-instance (signature ~ (m (Maybe DeviceManager)), MonadIO m, DisplayK a) => MethodInfo DisplayGetDeviceManagerMethodInfo a signature where-    overloadedMethod _ = displayGetDeviceManager---- method Display::get_event--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Event")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_event" gdk_display_get_event :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO (Ptr Event)---displayGetEvent ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m (Maybe Event)                      -- result-displayGetEvent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_event _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Event) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DisplayGetEventMethodInfo-instance (signature ~ (m (Maybe Event)), MonadIO m, DisplayK a) => MethodInfo DisplayGetEventMethodInfo a signature where-    overloadedMethod _ = displayGetEvent---- method Display::get_maximal_cursor_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_maximal_cursor_size" gdk_display_get_maximal_cursor_size :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Word32 ->                           -- width : TBasicType TUInt-    Ptr Word32 ->                           -- height : TBasicType TUInt-    IO ()---displayGetMaximalCursorSize ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m (Word32,Word32)                    -- result-displayGetMaximalCursorSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    width <- allocMem :: IO (Ptr Word32)-    height <- allocMem :: IO (Ptr Word32)-    gdk_display_get_maximal_cursor_size _obj' width height-    width' <- peek width-    height' <- peek height-    touchManagedPtr _obj-    freeMem width-    freeMem height-    return (width', height')--data DisplayGetMaximalCursorSizeMethodInfo-instance (signature ~ (m (Word32,Word32)), MonadIO m, DisplayK a) => MethodInfo DisplayGetMaximalCursorSizeMethodInfo a signature where-    overloadedMethod _ = displayGetMaximalCursorSize---- method Display::get_n_screens--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_n_screens" gdk_display_get_n_screens :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO Int32--{-# DEPRECATED displayGetNScreens ["(Since version 3.10)","The number of screens is always 1."]#-}-displayGetNScreens ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-displayGetNScreens _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_n_screens _obj'-    touchManagedPtr _obj-    return result--data DisplayGetNScreensMethodInfo-instance (signature ~ (m Int32), MonadIO m, DisplayK a) => MethodInfo DisplayGetNScreensMethodInfo a signature where-    overloadedMethod _ = displayGetNScreens---- method Display::get_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_name" gdk_display_get_name :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CString---displayGetName ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-displayGetName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_name _obj'-    checkUnexpectedReturnNULL "gdk_display_get_name" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'--data DisplayGetNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DisplayK a) => MethodInfo DisplayGetNameMethodInfo a signature where-    overloadedMethod _ = displayGetName---- method Display::get_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_pointer" gdk_display_get_pointer :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr (Ptr Screen) ->                     -- screen : TInterface "Gdk" "Screen"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    Ptr CUInt ->                            -- mask : TInterface "Gdk" "ModifierType"-    IO ()--{-# DEPRECATED displayGetPointer ["(Since version 3.0)","Use gdk_device_get_position() instead."]#-}-displayGetPointer ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m (Screen,Int32,Int32,[ModifierType])-- result-displayGetPointer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    screen <- allocMem :: IO (Ptr (Ptr Screen))-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    mask <- allocMem :: IO (Ptr CUInt)-    gdk_display_get_pointer _obj' screen x y mask-    screen' <- peek screen-    screen'' <- (newObject Screen) screen'-    x' <- peek x-    y' <- peek y-    mask' <- peek mask-    let mask'' = wordToGFlags mask'-    touchManagedPtr _obj-    freeMem screen-    freeMem x-    freeMem y-    freeMem mask-    return (screen'', x', y', mask'')--data DisplayGetPointerMethodInfo-instance (signature ~ (m (Screen,Int32,Int32,[ModifierType])), MonadIO m, DisplayK a) => MethodInfo DisplayGetPointerMethodInfo a signature where-    overloadedMethod _ = displayGetPointer---- method Display::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Screen")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_screen" gdk_display_get_screen :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Int32 ->                                -- screen_num : TBasicType TInt-    IO (Ptr Screen)---displayGetScreen ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> Int32                                -- screenNum-    -> m Screen                             -- result-displayGetScreen _obj screenNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_screen _obj' screenNum-    checkUnexpectedReturnNULL "gdk_display_get_screen" result-    result' <- (newObject Screen) result-    touchManagedPtr _obj-    return result'--data DisplayGetScreenMethodInfo-instance (signature ~ (Int32 -> m Screen), MonadIO m, DisplayK a) => MethodInfo DisplayGetScreenMethodInfo a signature where-    overloadedMethod _ = displayGetScreen---- method Display::get_window_at_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_window_at_pointer" gdk_display_get_window_at_pointer :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Int32 ->                            -- win_x : TBasicType TInt-    Ptr Int32 ->                            -- win_y : TBasicType TInt-    IO (Ptr Window)--{-# DEPRECATED displayGetWindowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-}-displayGetWindowAtPointer ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m ((Maybe Window),Int32,Int32)       -- result-displayGetWindowAtPointer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    winX <- allocMem :: IO (Ptr Int32)-    winY <- allocMem :: IO (Ptr Int32)-    result <- gdk_display_get_window_at_pointer _obj' winX winY-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    winX' <- peek winX-    winY' <- peek winY-    touchManagedPtr _obj-    freeMem winX-    freeMem winY-    return (maybeResult, winX', winY')--data DisplayGetWindowAtPointerMethodInfo-instance (signature ~ (m ((Maybe Window),Int32,Int32)), MonadIO m, DisplayK a) => MethodInfo DisplayGetWindowAtPointerMethodInfo a signature where-    overloadedMethod _ = displayGetWindowAtPointer---- method Display::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_has_pending" gdk_display_has_pending :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displayHasPending ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displayHasPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_has_pending _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplayHasPendingMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayHasPendingMethodInfo a signature where-    overloadedMethod _ = displayHasPending---- method Display::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_is_closed" gdk_display_is_closed :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displayIsClosed ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displayIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplayIsClosedMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayIsClosedMethodInfo a signature where-    overloadedMethod _ = displayIsClosed---- method Display::keyboard_ungrab--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_keyboard_ungrab" gdk_display_keyboard_ungrab :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()--{-# DEPRECATED displayKeyboardUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()","            instead."]#-}-displayKeyboardUngrab ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> Word32                               -- time_-    -> m ()                                 -- result-displayKeyboardUngrab _obj time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_keyboard_ungrab _obj' time_-    touchManagedPtr _obj-    return ()--data DisplayKeyboardUngrabMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayKeyboardUngrabMethodInfo a signature where-    overloadedMethod _ = displayKeyboardUngrab---- method Display::list_devices--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Device"))--- throws : False--- Skip return : False--foreign import ccall "gdk_display_list_devices" gdk_display_list_devices :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO (Ptr (GList (Ptr Device)))--{-# DEPRECATED displayListDevices ["(Since version 3.0)","Use gdk_device_manager_list_devices() instead."]#-}-displayListDevices ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m [Device]                           -- result-displayListDevices _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_list_devices _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject Device) result'-    touchManagedPtr _obj-    return result''--data DisplayListDevicesMethodInfo-instance (signature ~ (m [Device]), MonadIO m, DisplayK a) => MethodInfo DisplayListDevicesMethodInfo a signature where-    overloadedMethod _ = displayListDevices---- method Display::notify_startup_complete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_notify_startup_complete" gdk_display_notify_startup_complete :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    CString ->                              -- startup_id : TBasicType TUTF8-    IO ()---displayNotifyStartupComplete ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> T.Text                               -- startupId-    -> m ()                                 -- result-displayNotifyStartupComplete _obj startupId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    startupId' <- textToCString startupId-    gdk_display_notify_startup_complete _obj' startupId'-    touchManagedPtr _obj-    freeMem startupId'-    return ()--data DisplayNotifyStartupCompleteMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayNotifyStartupCompleteMethodInfo a signature where-    overloadedMethod _ = displayNotifyStartupComplete---- method Display::peek_event--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Event")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_peek_event" gdk_display_peek_event :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO (Ptr Event)---displayPeekEvent ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m (Maybe Event)                      -- result-displayPeekEvent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_peek_event _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Event) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DisplayPeekEventMethodInfo-instance (signature ~ (m (Maybe Event)), MonadIO m, DisplayK a) => MethodInfo DisplayPeekEventMethodInfo a signature where-    overloadedMethod _ = displayPeekEvent---- method Display::pointer_is_grabbed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_pointer_is_grabbed" gdk_display_pointer_is_grabbed :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt--{-# DEPRECATED displayPointerIsGrabbed ["(Since version 3.0)","Use gdk_display_device_is_grabbed() instead."]#-}-displayPointerIsGrabbed ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displayPointerIsGrabbed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_pointer_is_grabbed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplayPointerIsGrabbedMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayPointerIsGrabbedMethodInfo a signature where-    overloadedMethod _ = displayPointerIsGrabbed---- method Display::pointer_ungrab--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_pointer_ungrab" gdk_display_pointer_ungrab :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Word32 ->                               -- time_ : TBasicType TUInt32-    IO ()--{-# DEPRECATED displayPointerUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()","            instead."]#-}-displayPointerUngrab ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> Word32                               -- time_-    -> m ()                                 -- result-displayPointerUngrab _obj time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_pointer_ungrab _obj' time_-    touchManagedPtr _obj-    return ()--data DisplayPointerUngrabMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayPointerUngrabMethodInfo a signature where-    overloadedMethod _ = displayPointerUngrab---- method Display::put_event--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_put_event" gdk_display_put_event :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Event ->                            -- event : TInterface "Gdk" "Event"-    IO ()---displayPutEvent ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> Event                                -- event-    -> m ()                                 -- result-displayPutEvent _obj event = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let event' = unsafeManagedPtrGetPtr event-    gdk_display_put_event _obj' event'-    touchManagedPtr _obj-    touchManagedPtr event-    return ()--data DisplayPutEventMethodInfo-instance (signature ~ (Event -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplayPutEventMethodInfo a signature where-    overloadedMethod _ = displayPutEvent---- method Display::request_selection_notification--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_request_selection_notification" gdk_display_request_selection_notification :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"-    IO CInt---displayRequestSelectionNotification ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> Atom                                 -- selection-    -> m Bool                               -- result-displayRequestSelectionNotification _obj selection = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let selection' = unsafeManagedPtrGetPtr selection-    result <- gdk_display_request_selection_notification _obj' selection'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr selection-    return result'--data DisplayRequestSelectionNotificationMethodInfo-instance (signature ~ (Atom -> m Bool), MonadIO m, DisplayK a) => MethodInfo DisplayRequestSelectionNotificationMethodInfo a signature where-    overloadedMethod _ = displayRequestSelectionNotification---- method Display::set_double_click_distance--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_set_double_click_distance" gdk_display_set_double_click_distance :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Word32 ->                               -- distance : TBasicType TUInt-    IO ()---displaySetDoubleClickDistance ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> Word32                               -- distance-    -> m ()                                 -- result-displaySetDoubleClickDistance _obj distance = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_set_double_click_distance _obj' distance-    touchManagedPtr _obj-    return ()--data DisplaySetDoubleClickDistanceMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplaySetDoubleClickDistanceMethodInfo a signature where-    overloadedMethod _ = displaySetDoubleClickDistance---- method Display::set_double_click_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msec", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_set_double_click_time" gdk_display_set_double_click_time :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Word32 ->                               -- msec : TBasicType TUInt-    IO ()---displaySetDoubleClickTime ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> Word32                               -- msec-    -> m ()                                 -- result-displaySetDoubleClickTime _obj msec = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_set_double_click_time _obj' msec-    touchManagedPtr _obj-    return ()--data DisplaySetDoubleClickTimeMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, DisplayK a) => MethodInfo DisplaySetDoubleClickTimeMethodInfo a signature where-    overloadedMethod _ = displaySetDoubleClickTime---- method Display::store_clipboard--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_store_clipboard" gdk_display_store_clipboard :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Window ->                           -- clipboard_window : TInterface "Gdk" "Window"-    Word32 ->                               -- time_ : TBasicType TUInt32-    Ptr (Ptr Atom) ->                       -- targets : TCArray False (-1) 4 (TInterface "Gdk" "Atom")-    Int32 ->                                -- n_targets : TBasicType TInt-    IO ()---displayStoreClipboard ::-    (MonadIO m, DisplayK a, WindowK b) =>-    a                                       -- _obj-    -> b                                    -- clipboardWindow-    -> Word32                               -- time_-    -> [Atom]                               -- targets-    -> m ()                                 -- result-displayStoreClipboard _obj clipboardWindow time_ targets = liftIO $ do-    let nTargets = fromIntegral $ length targets-    let _obj' = unsafeManagedPtrCastPtr _obj-    let clipboardWindow' = unsafeManagedPtrCastPtr clipboardWindow-    let targets' = map unsafeManagedPtrGetPtr targets-    targets'' <- packPtrArray targets'-    gdk_display_store_clipboard _obj' clipboardWindow' time_ targets'' nTargets-    touchManagedPtr _obj-    touchManagedPtr clipboardWindow-    mapM_ touchManagedPtr targets-    freeMem targets''-    return ()--data DisplayStoreClipboardMethodInfo-instance (signature ~ (b -> Word32 -> [Atom] -> m ()), MonadIO m, DisplayK a, WindowK b) => MethodInfo DisplayStoreClipboardMethodInfo a signature where-    overloadedMethod _ = displayStoreClipboard---- method Display::supports_clipboard_persistence--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_supports_clipboard_persistence" gdk_display_supports_clipboard_persistence :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displaySupportsClipboardPersistence ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displaySupportsClipboardPersistence _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_clipboard_persistence _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplaySupportsClipboardPersistenceMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsClipboardPersistenceMethodInfo a signature where-    overloadedMethod _ = displaySupportsClipboardPersistence---- method Display::supports_composite--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_supports_composite" gdk_display_supports_composite :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt--{-# DEPRECATED displaySupportsComposite ["(Since version 3.16)","Compositing is an outdated technology that","  only ever worked on X11."]#-}-displaySupportsComposite ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displaySupportsComposite _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_composite _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplaySupportsCompositeMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsCompositeMethodInfo a signature where-    overloadedMethod _ = displaySupportsComposite---- method Display::supports_cursor_alpha--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_supports_cursor_alpha" gdk_display_supports_cursor_alpha :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displaySupportsCursorAlpha ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displaySupportsCursorAlpha _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_cursor_alpha _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplaySupportsCursorAlphaMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsCursorAlphaMethodInfo a signature where-    overloadedMethod _ = displaySupportsCursorAlpha---- method Display::supports_cursor_color--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_supports_cursor_color" gdk_display_supports_cursor_color :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displaySupportsCursorColor ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displaySupportsCursorColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_cursor_color _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplaySupportsCursorColorMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsCursorColorMethodInfo a signature where-    overloadedMethod _ = displaySupportsCursorColor---- method Display::supports_input_shapes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_supports_input_shapes" gdk_display_supports_input_shapes :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displaySupportsInputShapes ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displaySupportsInputShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_input_shapes _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplaySupportsInputShapesMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsInputShapesMethodInfo a signature where-    overloadedMethod _ = displaySupportsInputShapes---- method Display::supports_selection_notification--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_supports_selection_notification" gdk_display_supports_selection_notification :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displaySupportsSelectionNotification ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displaySupportsSelectionNotification _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_selection_notification _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplaySupportsSelectionNotificationMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsSelectionNotificationMethodInfo a signature where-    overloadedMethod _ = displaySupportsSelectionNotification---- method Display::supports_shapes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_display_supports_shapes" gdk_display_supports_shapes :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO CInt---displaySupportsShapes ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-displaySupportsShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_shapes _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data DisplaySupportsShapesMethodInfo-instance (signature ~ (m Bool), MonadIO m, DisplayK a) => MethodInfo DisplaySupportsShapesMethodInfo a signature where-    overloadedMethod _ = displaySupportsShapes---- method Display::sync--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_sync" gdk_display_sync :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    IO ()---displaySync ::-    (MonadIO m, DisplayK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-displaySync _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_sync _obj'-    touchManagedPtr _obj-    return ()--data DisplaySyncMethodInfo-instance (signature ~ (m ()), MonadIO m, DisplayK a) => MethodInfo DisplaySyncMethodInfo a signature where-    overloadedMethod _ = displaySync---- method Display::warp_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_warp_pointer" gdk_display_warp_pointer :: -    Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    IO ()--{-# DEPRECATED displayWarpPointer ["(Since version 3.0)","Use gdk_device_warp() instead."]#-}-displayWarpPointer ::-    (MonadIO m, DisplayK a, ScreenK b) =>-    a                                       -- _obj-    -> b                                    -- screen-    -> Int32                                -- x-    -> Int32                                -- y-    -> m ()                                 -- result-displayWarpPointer _obj screen x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let screen' = unsafeManagedPtrCastPtr screen-    gdk_display_warp_pointer _obj' screen' x y-    touchManagedPtr _obj-    touchManagedPtr screen-    return ()--data DisplayWarpPointerMethodInfo-instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, DisplayK a, ScreenK b) => MethodInfo DisplayWarpPointerMethodInfo a signature where-    overloadedMethod _ = displayWarpPointer---- method Display::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_get_default" gdk_display_get_default :: -    IO (Ptr Display)---displayGetDefault ::-    (MonadIO m) =>-    m (Maybe Display)                       -- result-displayGetDefault  = liftIO $ do-    result <- gdk_display_get_default-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Display) result'-        return result''-    return maybeResult---- method Display::open--- method type : MemberFunction--- Args : [Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_open" gdk_display_open :: -    CString ->                              -- display_name : TBasicType TUTF8-    IO (Ptr Display)---displayOpen ::-    (MonadIO m) =>-    T.Text                                  -- displayName-    -> m (Maybe Display)                    -- result-displayOpen displayName = liftIO $ do-    displayName' <- textToCString displayName-    result <- gdk_display_open displayName'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Display) result'-        return result''-    freeMem displayName'-    return maybeResult---- method Display::open_default_libgtk_only--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_open_default_libgtk_only" gdk_display_open_default_libgtk_only :: -    IO (Ptr Display)--{-# DEPRECATED displayOpenDefaultLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside","  of GTK+"]#-}-displayOpenDefaultLibgtkOnly ::-    (MonadIO m) =>-    m (Maybe Display)                       -- result-displayOpenDefaultLibgtkOnly  = liftIO $ do-    result <- gdk_display_open_default_libgtk_only-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Display) result'-        return result''-    return maybeResult--
− GI/Gdk/Objects/Display.hs-boot 
@@ -1,53 +0,0 @@-module GI.Gdk.Objects.Display where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Display = Display (ForeignPtr Display)-instance GObject Display where-class GObject o => DisplayK o-instance (GObject o, IsDescendantOf Display o) => DisplayK o-data DisplayClosedSignalInfo-data DisplayOpenedSignalInfo-data DisplayBeepMethodInfo-data DisplayCloseMethodInfo-data DisplayDeviceIsGrabbedMethodInfo-data DisplayFlushMethodInfo-data DisplayGetAppLaunchContextMethodInfo-data DisplayGetDefaultCursorSizeMethodInfo-data DisplayGetDefaultGroupMethodInfo-data DisplayGetDefaultScreenMethodInfo-data DisplayGetDeviceManagerMethodInfo-data DisplayGetEventMethodInfo-data DisplayGetMaximalCursorSizeMethodInfo-data DisplayGetNScreensMethodInfo-data DisplayGetNameMethodInfo-data DisplayGetPointerMethodInfo-data DisplayGetScreenMethodInfo-data DisplayGetWindowAtPointerMethodInfo-data DisplayHasPendingMethodInfo-data DisplayIsClosedMethodInfo-data DisplayKeyboardUngrabMethodInfo-data DisplayListDevicesMethodInfo-data DisplayNotifyStartupCompleteMethodInfo-data DisplayPeekEventMethodInfo-data DisplayPointerIsGrabbedMethodInfo-data DisplayPointerUngrabMethodInfo-data DisplayPutEventMethodInfo-data DisplayRequestSelectionNotificationMethodInfo-data DisplaySetDoubleClickDistanceMethodInfo-data DisplaySetDoubleClickTimeMethodInfo-data DisplayStoreClipboardMethodInfo-data DisplaySupportsClipboardPersistenceMethodInfo-data DisplaySupportsCompositeMethodInfo-data DisplaySupportsCursorAlphaMethodInfo-data DisplaySupportsCursorColorMethodInfo-data DisplaySupportsInputShapesMethodInfo-data DisplaySupportsSelectionNotificationMethodInfo-data DisplaySupportsShapesMethodInfo-data DisplaySyncMethodInfo-data DisplayWarpPointerMethodInfo
− GI/Gdk/Objects/DisplayManager.hs 
@@ -1,371 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.DisplayManager-    ( ---- * Exported types-    DisplayManager(..)                      ,-    DisplayManagerK                         ,-    toDisplayManager                        ,-    noDisplayManager                        ,--- -- * Methods--- ** displayManagerGet-    displayManagerGet                       ,----- ** displayManagerGetDefaultDisplay-    DisplayManagerGetDefaultDisplayMethodInfo,-    displayManagerGetDefaultDisplay         ,----- ** displayManagerListDisplays-    DisplayManagerListDisplaysMethodInfo    ,-    displayManagerListDisplays              ,----- ** displayManagerOpenDisplay-    DisplayManagerOpenDisplayMethodInfo     ,-    displayManagerOpenDisplay               ,----- ** displayManagerSetDefaultDisplay-    DisplayManagerSetDefaultDisplayMethodInfo,-    displayManagerSetDefaultDisplay         ,----- -- * Properties--- ** DefaultDisplay-    DisplayManagerDefaultDisplayPropertyInfo,-    constructDisplayManagerDefaultDisplay   ,-    displayManagerDefaultDisplay            ,-    getDisplayManagerDefaultDisplay         ,-    setDisplayManagerDefaultDisplay         ,----- -- * Signals--- ** DisplayOpened-    DisplayManagerDisplayOpenedCallback     ,-    DisplayManagerDisplayOpenedCallbackC    ,-    DisplayManagerDisplayOpenedSignalInfo   ,-    afterDisplayManagerDisplayOpened        ,-    displayManagerDisplayOpenedCallbackWrapper,-    displayManagerDisplayOpenedClosure      ,-    mkDisplayManagerDisplayOpenedCallback   ,-    noDisplayManagerDisplayOpenedCallback   ,-    onDisplayManagerDisplayOpened           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager)-foreign import ccall "gdk_display_manager_get_type"-    c_gdk_display_manager_get_type :: IO GType--type instance ParentTypes DisplayManager = DisplayManagerParentTypes-type DisplayManagerParentTypes = '[GObject.Object]--instance GObject DisplayManager where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_display_manager_get_type-    --class GObject o => DisplayManagerK o-instance (GObject o, IsDescendantOf DisplayManager o) => DisplayManagerK o--toDisplayManager :: DisplayManagerK o => o -> IO DisplayManager-toDisplayManager = unsafeCastTo DisplayManager--noDisplayManager :: Maybe DisplayManager-noDisplayManager = Nothing--type family ResolveDisplayManagerMethod (t :: Symbol) (o :: *) :: * where-    ResolveDisplayManagerMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDisplayManagerMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDisplayManagerMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDisplayManagerMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDisplayManagerMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDisplayManagerMethod "listDisplays" o = DisplayManagerListDisplaysMethodInfo-    ResolveDisplayManagerMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDisplayManagerMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDisplayManagerMethod "openDisplay" o = DisplayManagerOpenDisplayMethodInfo-    ResolveDisplayManagerMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDisplayManagerMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDisplayManagerMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDisplayManagerMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDisplayManagerMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDisplayManagerMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDisplayManagerMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDisplayManagerMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDisplayManagerMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDisplayManagerMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDisplayManagerMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDisplayManagerMethod "getDefaultDisplay" o = DisplayManagerGetDefaultDisplayMethodInfo-    ResolveDisplayManagerMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDisplayManagerMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDisplayManagerMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDisplayManagerMethod "setDefaultDisplay" o = DisplayManagerSetDefaultDisplayMethodInfo-    ResolveDisplayManagerMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDisplayManagerMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDisplayManagerMethod t DisplayManager, MethodInfo info DisplayManager p) => IsLabelProxy t (DisplayManager -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDisplayManagerMethod t DisplayManager, MethodInfo info DisplayManager p) => IsLabel t (DisplayManager -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal DisplayManager::display-opened-type DisplayManagerDisplayOpenedCallback =-    Display ->-    IO ()--noDisplayManagerDisplayOpenedCallback :: Maybe DisplayManagerDisplayOpenedCallback-noDisplayManagerDisplayOpenedCallback = Nothing--type DisplayManagerDisplayOpenedCallbackC =-    Ptr () ->                               -- object-    Ptr Display ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkDisplayManagerDisplayOpenedCallback :: DisplayManagerDisplayOpenedCallbackC -> IO (FunPtr DisplayManagerDisplayOpenedCallbackC)--displayManagerDisplayOpenedClosure :: DisplayManagerDisplayOpenedCallback -> IO Closure-displayManagerDisplayOpenedClosure cb = newCClosure =<< mkDisplayManagerDisplayOpenedCallback wrapped-    where wrapped = displayManagerDisplayOpenedCallbackWrapper cb--displayManagerDisplayOpenedCallbackWrapper ::-    DisplayManagerDisplayOpenedCallback ->-    Ptr () ->-    Ptr Display ->-    Ptr () ->-    IO ()-displayManagerDisplayOpenedCallbackWrapper _cb _ display _ = do-    display' <- (newObject Display) display-    _cb  display'--onDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayManagerDisplayOpenedCallback -> m SignalHandlerId-onDisplayManagerDisplayOpened obj cb = liftIO $ connectDisplayManagerDisplayOpened obj cb SignalConnectBefore-afterDisplayManagerDisplayOpened :: (GObject a, MonadIO m) => a -> DisplayManagerDisplayOpenedCallback -> m SignalHandlerId-afterDisplayManagerDisplayOpened obj cb = connectDisplayManagerDisplayOpened obj cb SignalConnectAfter--connectDisplayManagerDisplayOpened :: (GObject a, MonadIO m) =>-                                      a -> DisplayManagerDisplayOpenedCallback -> SignalConnectMode -> m SignalHandlerId-connectDisplayManagerDisplayOpened obj cb after = liftIO $ do-    cb' <- mkDisplayManagerDisplayOpenedCallback (displayManagerDisplayOpenedCallbackWrapper cb)-    connectSignalFunPtr obj "display-opened" cb' after---- VVV Prop "default-display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just True,Just False)--getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m (Maybe Display)-getDisplayManagerDefaultDisplay obj = liftIO $ getObjectPropertyObject obj "default-display" Display--setDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o, DisplayK a) => o -> a -> m ()-setDisplayManagerDefaultDisplay obj val = liftIO $ setObjectPropertyObject obj "default-display" (Just val)--constructDisplayManagerDefaultDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" (Just val)--data DisplayManagerDefaultDisplayPropertyInfo-instance AttrInfo DisplayManagerDefaultDisplayPropertyInfo where-    type AttrAllowedOps DisplayManagerDefaultDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayManagerK-    type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = (Maybe Display)-    type AttrLabel DisplayManagerDefaultDisplayPropertyInfo = "default-display"-    attrGet _ = getDisplayManagerDefaultDisplay-    attrSet _ = setDisplayManagerDefaultDisplay-    attrConstruct _ = constructDisplayManagerDefaultDisplay-    attrClear _ = undefined--type instance AttributeList DisplayManager = DisplayManagerAttributeList-type DisplayManagerAttributeList = ('[ '("defaultDisplay", DisplayManagerDefaultDisplayPropertyInfo)] :: [(Symbol, *)])--displayManagerDefaultDisplay :: AttrLabelProxy "defaultDisplay"-displayManagerDefaultDisplay = AttrLabelProxy--data DisplayManagerDisplayOpenedSignalInfo-instance SignalInfo DisplayManagerDisplayOpenedSignalInfo where-    type HaskellCallbackType DisplayManagerDisplayOpenedSignalInfo = DisplayManagerDisplayOpenedCallback-    connectSignal _ = connectDisplayManagerDisplayOpened--type instance SignalList DisplayManager = DisplayManagerSignalList-type DisplayManagerSignalList = ('[ '("displayOpened", DisplayManagerDisplayOpenedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DisplayManager::get_default_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_manager_get_default_display" gdk_display_manager_get_default_display :: -    Ptr DisplayManager ->                   -- _obj : TInterface "Gdk" "DisplayManager"-    IO (Ptr Display)---displayManagerGetDefaultDisplay ::-    (MonadIO m, DisplayManagerK a) =>-    a                                       -- _obj-    -> m (Maybe Display)                    -- result-displayManagerGetDefaultDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_manager_get_default_display _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Display) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data DisplayManagerGetDefaultDisplayMethodInfo-instance (signature ~ (m (Maybe Display)), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerGetDefaultDisplayMethodInfo a signature where-    overloadedMethod _ = displayManagerGetDefaultDisplay---- method DisplayManager::list_displays--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGSList (TInterface "Gdk" "Display"))--- throws : False--- Skip return : False--foreign import ccall "gdk_display_manager_list_displays" gdk_display_manager_list_displays :: -    Ptr DisplayManager ->                   -- _obj : TInterface "Gdk" "DisplayManager"-    IO (Ptr (GSList (Ptr Display)))---displayManagerListDisplays ::-    (MonadIO m, DisplayManagerK a) =>-    a                                       -- _obj-    -> m [Display]                          -- result-displayManagerListDisplays _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_manager_list_displays _obj'-    result' <- unpackGSList result-    result'' <- mapM (newObject Display) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''--data DisplayManagerListDisplaysMethodInfo-instance (signature ~ (m [Display]), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerListDisplaysMethodInfo a signature where-    overloadedMethod _ = displayManagerListDisplays---- method DisplayManager::open_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_manager_open_display" gdk_display_manager_open_display :: -    Ptr DisplayManager ->                   -- _obj : TInterface "Gdk" "DisplayManager"-    CString ->                              -- name : TBasicType TUTF8-    IO (Ptr Display)---displayManagerOpenDisplay ::-    (MonadIO m, DisplayManagerK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> m (Maybe Display)                    -- result-displayManagerOpenDisplay _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- gdk_display_manager_open_display _obj' name'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Display) result'-        return result''-    touchManagedPtr _obj-    freeMem name'-    return maybeResult--data DisplayManagerOpenDisplayMethodInfo-instance (signature ~ (T.Text -> m (Maybe Display)), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerOpenDisplayMethodInfo a signature where-    overloadedMethod _ = displayManagerOpenDisplay---- method DisplayManager::set_default_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_display_manager_set_default_display" gdk_display_manager_set_default_display :: -    Ptr DisplayManager ->                   -- _obj : TInterface "Gdk" "DisplayManager"-    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    IO ()---displayManagerSetDefaultDisplay ::-    (MonadIO m, DisplayManagerK a, DisplayK b) =>-    a                                       -- _obj-    -> b                                    -- display-    -> m ()                                 -- result-displayManagerSetDefaultDisplay _obj display = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let display' = unsafeManagedPtrCastPtr display-    gdk_display_manager_set_default_display _obj' display'-    touchManagedPtr _obj-    touchManagedPtr display-    return ()--data DisplayManagerSetDefaultDisplayMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DisplayManagerK a, DisplayK b) => MethodInfo DisplayManagerSetDefaultDisplayMethodInfo a signature where-    overloadedMethod _ = displayManagerSetDefaultDisplay---- method DisplayManager::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "DisplayManager")--- throws : False--- Skip return : False--foreign import ccall "gdk_display_manager_get" gdk_display_manager_get :: -    IO (Ptr DisplayManager)---displayManagerGet ::-    (MonadIO m) =>-    m DisplayManager                        -- result-displayManagerGet  = liftIO $ do-    result <- gdk_display_manager_get-    checkUnexpectedReturnNULL "gdk_display_manager_get" result-    result' <- (newObject DisplayManager) result-    return result'--
− GI/Gdk/Objects/DisplayManager.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gdk.Objects.DisplayManager where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager)-instance GObject DisplayManager where-class GObject o => DisplayManagerK o-instance (GObject o, IsDescendantOf DisplayManager o) => DisplayManagerK o-data DisplayManagerDefaultDisplayPropertyInfo-data DisplayManagerDisplayOpenedSignalInfo-data DisplayManagerGetDefaultDisplayMethodInfo-data DisplayManagerListDisplaysMethodInfo-data DisplayManagerOpenDisplayMethodInfo-data DisplayManagerSetDefaultDisplayMethodInfo
− GI/Gdk/Objects/DragContext.hs 
@@ -1,408 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.DragContext-    ( ---- * Exported types-    DragContext(..)                         ,-    DragContextK                            ,-    toDragContext                           ,-    noDragContext                           ,--- -- * Methods--- ** dragContextGetActions-    DragContextGetActionsMethodInfo         ,-    dragContextGetActions                   ,----- ** dragContextGetDestWindow-    DragContextGetDestWindowMethodInfo      ,-    dragContextGetDestWindow                ,----- ** dragContextGetDevice-    DragContextGetDeviceMethodInfo          ,-    dragContextGetDevice                    ,----- ** dragContextGetProtocol-    DragContextGetProtocolMethodInfo        ,-    dragContextGetProtocol                  ,----- ** dragContextGetSelectedAction-    DragContextGetSelectedActionMethodInfo  ,-    dragContextGetSelectedAction            ,----- ** dragContextGetSourceWindow-    DragContextGetSourceWindowMethodInfo    ,-    dragContextGetSourceWindow              ,----- ** dragContextGetSuggestedAction-    DragContextGetSuggestedActionMethodInfo ,-    dragContextGetSuggestedAction           ,----- ** dragContextListTargets-    DragContextListTargetsMethodInfo        ,-    dragContextListTargets                  ,----- ** dragContextSetDevice-    DragContextSetDeviceMethodInfo          ,-    dragContextSetDevice                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype DragContext = DragContext (ForeignPtr DragContext)-foreign import ccall "gdk_drag_context_get_type"-    c_gdk_drag_context_get_type :: IO GType--type instance ParentTypes DragContext = DragContextParentTypes-type DragContextParentTypes = '[GObject.Object]--instance GObject DragContext where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_drag_context_get_type-    --class GObject o => DragContextK o-instance (GObject o, IsDescendantOf DragContext o) => DragContextK o--toDragContext :: DragContextK o => o -> IO DragContext-toDragContext = unsafeCastTo DragContext--noDragContext :: Maybe DragContext-noDragContext = Nothing--type family ResolveDragContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveDragContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveDragContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveDragContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveDragContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveDragContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveDragContextMethod "listTargets" o = DragContextListTargetsMethodInfo-    ResolveDragContextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveDragContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveDragContextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveDragContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveDragContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveDragContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveDragContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveDragContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveDragContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveDragContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveDragContextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveDragContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveDragContextMethod "getActions" o = DragContextGetActionsMethodInfo-    ResolveDragContextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveDragContextMethod "getDestWindow" o = DragContextGetDestWindowMethodInfo-    ResolveDragContextMethod "getDevice" o = DragContextGetDeviceMethodInfo-    ResolveDragContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveDragContextMethod "getProtocol" o = DragContextGetProtocolMethodInfo-    ResolveDragContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveDragContextMethod "getSelectedAction" o = DragContextGetSelectedActionMethodInfo-    ResolveDragContextMethod "getSourceWindow" o = DragContextGetSourceWindowMethodInfo-    ResolveDragContextMethod "getSuggestedAction" o = DragContextGetSuggestedActionMethodInfo-    ResolveDragContextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveDragContextMethod "setDevice" o = DragContextSetDeviceMethodInfo-    ResolveDragContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveDragContextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveDragContextMethod t DragContext, MethodInfo info DragContext p) => IsLabelProxy t (DragContext -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveDragContextMethod t DragContext, MethodInfo info DragContext p) => IsLabel t (DragContext -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList DragContext = DragContextAttributeList-type DragContextAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList DragContext = DragContextSignalList-type DragContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DragContext::get_actions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DragAction")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_get_actions" gdk_drag_context_get_actions :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO CUInt---dragContextGetActions ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m [DragAction]                       -- result-dragContextGetActions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_actions _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DragContextGetActionsMethodInfo-instance (signature ~ (m [DragAction]), MonadIO m, DragContextK a) => MethodInfo DragContextGetActionsMethodInfo a signature where-    overloadedMethod _ = dragContextGetActions---- method DragContext::get_dest_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_get_dest_window" gdk_drag_context_get_dest_window :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO (Ptr Window)---dragContextGetDestWindow ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m Window                             -- result-dragContextGetDestWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_dest_window _obj'-    checkUnexpectedReturnNULL "gdk_drag_context_get_dest_window" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data DragContextGetDestWindowMethodInfo-instance (signature ~ (m Window), MonadIO m, DragContextK a) => MethodInfo DragContextGetDestWindowMethodInfo a signature where-    overloadedMethod _ = dragContextGetDestWindow---- method DragContext::get_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Device")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_get_device" gdk_drag_context_get_device :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO (Ptr Device)---dragContextGetDevice ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m Device                             -- result-dragContextGetDevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_device _obj'-    checkUnexpectedReturnNULL "gdk_drag_context_get_device" result-    result' <- (newObject Device) result-    touchManagedPtr _obj-    return result'--data DragContextGetDeviceMethodInfo-instance (signature ~ (m Device), MonadIO m, DragContextK a) => MethodInfo DragContextGetDeviceMethodInfo a signature where-    overloadedMethod _ = dragContextGetDevice---- method DragContext::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DragProtocol")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_get_protocol" gdk_drag_context_get_protocol :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO CUInt---dragContextGetProtocol ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m DragProtocol                       -- result-dragContextGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_protocol _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data DragContextGetProtocolMethodInfo-instance (signature ~ (m DragProtocol), MonadIO m, DragContextK a) => MethodInfo DragContextGetProtocolMethodInfo a signature where-    overloadedMethod _ = dragContextGetProtocol---- method DragContext::get_selected_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DragAction")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_get_selected_action" gdk_drag_context_get_selected_action :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO CUInt---dragContextGetSelectedAction ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m [DragAction]                       -- result-dragContextGetSelectedAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_selected_action _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DragContextGetSelectedActionMethodInfo-instance (signature ~ (m [DragAction]), MonadIO m, DragContextK a) => MethodInfo DragContextGetSelectedActionMethodInfo a signature where-    overloadedMethod _ = dragContextGetSelectedAction---- method DragContext::get_source_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_get_source_window" gdk_drag_context_get_source_window :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO (Ptr Window)---dragContextGetSourceWindow ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m Window                             -- result-dragContextGetSourceWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_source_window _obj'-    checkUnexpectedReturnNULL "gdk_drag_context_get_source_window" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data DragContextGetSourceWindowMethodInfo-instance (signature ~ (m Window), MonadIO m, DragContextK a) => MethodInfo DragContextGetSourceWindowMethodInfo a signature where-    overloadedMethod _ = dragContextGetSourceWindow---- method DragContext::get_suggested_action--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DragAction")--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_get_suggested_action" gdk_drag_context_get_suggested_action :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO CUInt---dragContextGetSuggestedAction ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m [DragAction]                       -- result-dragContextGetSuggestedAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_suggested_action _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data DragContextGetSuggestedActionMethodInfo-instance (signature ~ (m [DragAction]), MonadIO m, DragContextK a) => MethodInfo DragContextGetSuggestedActionMethodInfo a signature where-    overloadedMethod _ = dragContextGetSuggestedAction---- method DragContext::list_targets--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Atom"))--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_list_targets" gdk_drag_context_list_targets :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    IO (Ptr (GList (Ptr Atom)))---dragContextListTargets ::-    (MonadIO m, DragContextK a) =>-    a                                       -- _obj-    -> m [Atom]                             -- result-dragContextListTargets _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_list_targets _obj'-    result' <- unpackGList result-    result'' <- mapM (newPtr Atom) result'-    touchManagedPtr _obj-    return result''--data DragContextListTargetsMethodInfo-instance (signature ~ (m [Atom]), MonadIO m, DragContextK a) => MethodInfo DragContextListTargetsMethodInfo a signature where-    overloadedMethod _ = dragContextListTargets---- method DragContext::set_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_drag_context_set_device" gdk_drag_context_set_device :: -    Ptr DragContext ->                      -- _obj : TInterface "Gdk" "DragContext"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    IO ()---dragContextSetDevice ::-    (MonadIO m, DragContextK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> m ()                                 -- result-dragContextSetDevice _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    gdk_drag_context_set_device _obj' device'-    touchManagedPtr _obj-    touchManagedPtr device-    return ()--data DragContextSetDeviceMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, DragContextK a, DeviceK b) => MethodInfo DragContextSetDeviceMethodInfo a signature where-    overloadedMethod _ = dragContextSetDevice--
− GI/Gdk/Objects/DragContext.hs-boot 
@@ -1,22 +0,0 @@-module GI.Gdk.Objects.DragContext where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype DragContext = DragContext (ForeignPtr DragContext)-instance GObject DragContext where-class GObject o => DragContextK o-instance (GObject o, IsDescendantOf DragContext o) => DragContextK o-data DragContextGetActionsMethodInfo-data DragContextGetDestWindowMethodInfo-data DragContextGetDeviceMethodInfo-data DragContextGetProtocolMethodInfo-data DragContextGetSelectedActionMethodInfo-data DragContextGetSourceWindowMethodInfo-data DragContextGetSuggestedActionMethodInfo-data DragContextListTargetsMethodInfo-data DragContextSetDeviceMethodInfo
− GI/Gdk/Objects/FrameClock.hs 
@@ -1,797 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.FrameClock-    ( ---- * Exported types-    FrameClock(..)                          ,-    FrameClockK                             ,-    toFrameClock                            ,-    noFrameClock                            ,--- -- * Methods--- ** frameClockBeginUpdating-    FrameClockBeginUpdatingMethodInfo       ,-    frameClockBeginUpdating                 ,----- ** frameClockEndUpdating-    FrameClockEndUpdatingMethodInfo         ,-    frameClockEndUpdating                   ,----- ** frameClockGetCurrentTimings-    FrameClockGetCurrentTimingsMethodInfo   ,-    frameClockGetCurrentTimings             ,----- ** frameClockGetFrameCounter-    FrameClockGetFrameCounterMethodInfo     ,-    frameClockGetFrameCounter               ,----- ** frameClockGetFrameTime-    FrameClockGetFrameTimeMethodInfo        ,-    frameClockGetFrameTime                  ,----- ** frameClockGetHistoryStart-    FrameClockGetHistoryStartMethodInfo     ,-    frameClockGetHistoryStart               ,----- ** frameClockGetRefreshInfo-    FrameClockGetRefreshInfoMethodInfo      ,-    frameClockGetRefreshInfo                ,----- ** frameClockGetTimings-    FrameClockGetTimingsMethodInfo          ,-    frameClockGetTimings                    ,----- ** frameClockRequestPhase-    FrameClockRequestPhaseMethodInfo        ,-    frameClockRequestPhase                  ,----- -- * Signals--- ** AfterPaint-    FrameClockAfterPaintCallback            ,-    FrameClockAfterPaintCallbackC           ,-    FrameClockAfterPaintSignalInfo          ,-    afterFrameClockAfterPaint               ,-    frameClockAfterPaintCallbackWrapper     ,-    frameClockAfterPaintClosure             ,-    mkFrameClockAfterPaintCallback          ,-    noFrameClockAfterPaintCallback          ,-    onFrameClockAfterPaint                  ,----- ** BeforePaint-    FrameClockBeforePaintCallback           ,-    FrameClockBeforePaintCallbackC          ,-    FrameClockBeforePaintSignalInfo         ,-    afterFrameClockBeforePaint              ,-    frameClockBeforePaintCallbackWrapper    ,-    frameClockBeforePaintClosure            ,-    mkFrameClockBeforePaintCallback         ,-    noFrameClockBeforePaintCallback         ,-    onFrameClockBeforePaint                 ,----- ** FlushEvents-    FrameClockFlushEventsCallback           ,-    FrameClockFlushEventsCallbackC          ,-    FrameClockFlushEventsSignalInfo         ,-    afterFrameClockFlushEvents              ,-    frameClockFlushEventsCallbackWrapper    ,-    frameClockFlushEventsClosure            ,-    mkFrameClockFlushEventsCallback         ,-    noFrameClockFlushEventsCallback         ,-    onFrameClockFlushEvents                 ,----- ** Layout-    FrameClockLayoutCallback                ,-    FrameClockLayoutCallbackC               ,-    FrameClockLayoutSignalInfo              ,-    afterFrameClockLayout                   ,-    frameClockLayoutCallbackWrapper         ,-    frameClockLayoutClosure                 ,-    mkFrameClockLayoutCallback              ,-    noFrameClockLayoutCallback              ,-    onFrameClockLayout                      ,----- ** Paint-    FrameClockPaintCallback                 ,-    FrameClockPaintCallbackC                ,-    FrameClockPaintSignalInfo               ,-    afterFrameClockPaint                    ,-    frameClockPaintCallbackWrapper          ,-    frameClockPaintClosure                  ,-    mkFrameClockPaintCallback               ,-    noFrameClockPaintCallback               ,-    onFrameClockPaint                       ,----- ** ResumeEvents-    FrameClockResumeEventsCallback          ,-    FrameClockResumeEventsCallbackC         ,-    FrameClockResumeEventsSignalInfo        ,-    afterFrameClockResumeEvents             ,-    frameClockResumeEventsCallbackWrapper   ,-    frameClockResumeEventsClosure           ,-    mkFrameClockResumeEventsCallback        ,-    noFrameClockResumeEventsCallback        ,-    onFrameClockResumeEvents                ,----- ** Update-    FrameClockUpdateCallback                ,-    FrameClockUpdateCallbackC               ,-    FrameClockUpdateSignalInfo              ,-    afterFrameClockUpdate                   ,-    frameClockUpdateCallbackWrapper         ,-    frameClockUpdateClosure                 ,-    mkFrameClockUpdateCallback              ,-    noFrameClockUpdateCallback              ,-    onFrameClockUpdate                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype FrameClock = FrameClock (ForeignPtr FrameClock)-foreign import ccall "gdk_frame_clock_get_type"-    c_gdk_frame_clock_get_type :: IO GType--type instance ParentTypes FrameClock = FrameClockParentTypes-type FrameClockParentTypes = '[GObject.Object]--instance GObject FrameClock where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_frame_clock_get_type-    --class GObject o => FrameClockK o-instance (GObject o, IsDescendantOf FrameClock o) => FrameClockK o--toFrameClock :: FrameClockK o => o -> IO FrameClock-toFrameClock = unsafeCastTo FrameClock--noFrameClock :: Maybe FrameClock-noFrameClock = Nothing--type family ResolveFrameClockMethod (t :: Symbol) (o :: *) :: * where-    ResolveFrameClockMethod "beginUpdating" o = FrameClockBeginUpdatingMethodInfo-    ResolveFrameClockMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveFrameClockMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveFrameClockMethod "endUpdating" o = FrameClockEndUpdatingMethodInfo-    ResolveFrameClockMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveFrameClockMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveFrameClockMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveFrameClockMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveFrameClockMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveFrameClockMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveFrameClockMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveFrameClockMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveFrameClockMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveFrameClockMethod "requestPhase" o = FrameClockRequestPhaseMethodInfo-    ResolveFrameClockMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveFrameClockMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveFrameClockMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveFrameClockMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveFrameClockMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveFrameClockMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveFrameClockMethod "getCurrentTimings" o = FrameClockGetCurrentTimingsMethodInfo-    ResolveFrameClockMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveFrameClockMethod "getFrameCounter" o = FrameClockGetFrameCounterMethodInfo-    ResolveFrameClockMethod "getFrameTime" o = FrameClockGetFrameTimeMethodInfo-    ResolveFrameClockMethod "getHistoryStart" o = FrameClockGetHistoryStartMethodInfo-    ResolveFrameClockMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveFrameClockMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveFrameClockMethod "getRefreshInfo" o = FrameClockGetRefreshInfoMethodInfo-    ResolveFrameClockMethod "getTimings" o = FrameClockGetTimingsMethodInfo-    ResolveFrameClockMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveFrameClockMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveFrameClockMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFrameClockMethod t FrameClock, MethodInfo info FrameClock p) => IsLabelProxy t (FrameClock -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFrameClockMethod t FrameClock, MethodInfo info FrameClock p) => IsLabel t (FrameClock -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal FrameClock::after-paint-type FrameClockAfterPaintCallback =-    IO ()--noFrameClockAfterPaintCallback :: Maybe FrameClockAfterPaintCallback-noFrameClockAfterPaintCallback = Nothing--type FrameClockAfterPaintCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFrameClockAfterPaintCallback :: FrameClockAfterPaintCallbackC -> IO (FunPtr FrameClockAfterPaintCallbackC)--frameClockAfterPaintClosure :: FrameClockAfterPaintCallback -> IO Closure-frameClockAfterPaintClosure cb = newCClosure =<< mkFrameClockAfterPaintCallback wrapped-    where wrapped = frameClockAfterPaintCallbackWrapper cb--frameClockAfterPaintCallbackWrapper ::-    FrameClockAfterPaintCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-frameClockAfterPaintCallbackWrapper _cb _ _ = do-    _cb --onFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId-onFrameClockAfterPaint obj cb = liftIO $ connectFrameClockAfterPaint obj cb SignalConnectBefore-afterFrameClockAfterPaint :: (GObject a, MonadIO m) => a -> FrameClockAfterPaintCallback -> m SignalHandlerId-afterFrameClockAfterPaint obj cb = connectFrameClockAfterPaint obj cb SignalConnectAfter--connectFrameClockAfterPaint :: (GObject a, MonadIO m) =>-                               a -> FrameClockAfterPaintCallback -> SignalConnectMode -> m SignalHandlerId-connectFrameClockAfterPaint obj cb after = liftIO $ do-    cb' <- mkFrameClockAfterPaintCallback (frameClockAfterPaintCallbackWrapper cb)-    connectSignalFunPtr obj "after-paint" cb' after---- signal FrameClock::before-paint-type FrameClockBeforePaintCallback =-    IO ()--noFrameClockBeforePaintCallback :: Maybe FrameClockBeforePaintCallback-noFrameClockBeforePaintCallback = Nothing--type FrameClockBeforePaintCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFrameClockBeforePaintCallback :: FrameClockBeforePaintCallbackC -> IO (FunPtr FrameClockBeforePaintCallbackC)--frameClockBeforePaintClosure :: FrameClockBeforePaintCallback -> IO Closure-frameClockBeforePaintClosure cb = newCClosure =<< mkFrameClockBeforePaintCallback wrapped-    where wrapped = frameClockBeforePaintCallbackWrapper cb--frameClockBeforePaintCallbackWrapper ::-    FrameClockBeforePaintCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-frameClockBeforePaintCallbackWrapper _cb _ _ = do-    _cb --onFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId-onFrameClockBeforePaint obj cb = liftIO $ connectFrameClockBeforePaint obj cb SignalConnectBefore-afterFrameClockBeforePaint :: (GObject a, MonadIO m) => a -> FrameClockBeforePaintCallback -> m SignalHandlerId-afterFrameClockBeforePaint obj cb = connectFrameClockBeforePaint obj cb SignalConnectAfter--connectFrameClockBeforePaint :: (GObject a, MonadIO m) =>-                                a -> FrameClockBeforePaintCallback -> SignalConnectMode -> m SignalHandlerId-connectFrameClockBeforePaint obj cb after = liftIO $ do-    cb' <- mkFrameClockBeforePaintCallback (frameClockBeforePaintCallbackWrapper cb)-    connectSignalFunPtr obj "before-paint" cb' after---- signal FrameClock::flush-events-type FrameClockFlushEventsCallback =-    IO ()--noFrameClockFlushEventsCallback :: Maybe FrameClockFlushEventsCallback-noFrameClockFlushEventsCallback = Nothing--type FrameClockFlushEventsCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFrameClockFlushEventsCallback :: FrameClockFlushEventsCallbackC -> IO (FunPtr FrameClockFlushEventsCallbackC)--frameClockFlushEventsClosure :: FrameClockFlushEventsCallback -> IO Closure-frameClockFlushEventsClosure cb = newCClosure =<< mkFrameClockFlushEventsCallback wrapped-    where wrapped = frameClockFlushEventsCallbackWrapper cb--frameClockFlushEventsCallbackWrapper ::-    FrameClockFlushEventsCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-frameClockFlushEventsCallbackWrapper _cb _ _ = do-    _cb --onFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId-onFrameClockFlushEvents obj cb = liftIO $ connectFrameClockFlushEvents obj cb SignalConnectBefore-afterFrameClockFlushEvents :: (GObject a, MonadIO m) => a -> FrameClockFlushEventsCallback -> m SignalHandlerId-afterFrameClockFlushEvents obj cb = connectFrameClockFlushEvents obj cb SignalConnectAfter--connectFrameClockFlushEvents :: (GObject a, MonadIO m) =>-                                a -> FrameClockFlushEventsCallback -> SignalConnectMode -> m SignalHandlerId-connectFrameClockFlushEvents obj cb after = liftIO $ do-    cb' <- mkFrameClockFlushEventsCallback (frameClockFlushEventsCallbackWrapper cb)-    connectSignalFunPtr obj "flush-events" cb' after---- signal FrameClock::layout-type FrameClockLayoutCallback =-    IO ()--noFrameClockLayoutCallback :: Maybe FrameClockLayoutCallback-noFrameClockLayoutCallback = Nothing--type FrameClockLayoutCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFrameClockLayoutCallback :: FrameClockLayoutCallbackC -> IO (FunPtr FrameClockLayoutCallbackC)--frameClockLayoutClosure :: FrameClockLayoutCallback -> IO Closure-frameClockLayoutClosure cb = newCClosure =<< mkFrameClockLayoutCallback wrapped-    where wrapped = frameClockLayoutCallbackWrapper cb--frameClockLayoutCallbackWrapper ::-    FrameClockLayoutCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-frameClockLayoutCallbackWrapper _cb _ _ = do-    _cb --onFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId-onFrameClockLayout obj cb = liftIO $ connectFrameClockLayout obj cb SignalConnectBefore-afterFrameClockLayout :: (GObject a, MonadIO m) => a -> FrameClockLayoutCallback -> m SignalHandlerId-afterFrameClockLayout obj cb = connectFrameClockLayout obj cb SignalConnectAfter--connectFrameClockLayout :: (GObject a, MonadIO m) =>-                           a -> FrameClockLayoutCallback -> SignalConnectMode -> m SignalHandlerId-connectFrameClockLayout obj cb after = liftIO $ do-    cb' <- mkFrameClockLayoutCallback (frameClockLayoutCallbackWrapper cb)-    connectSignalFunPtr obj "layout" cb' after---- signal FrameClock::paint-type FrameClockPaintCallback =-    IO ()--noFrameClockPaintCallback :: Maybe FrameClockPaintCallback-noFrameClockPaintCallback = Nothing--type FrameClockPaintCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFrameClockPaintCallback :: FrameClockPaintCallbackC -> IO (FunPtr FrameClockPaintCallbackC)--frameClockPaintClosure :: FrameClockPaintCallback -> IO Closure-frameClockPaintClosure cb = newCClosure =<< mkFrameClockPaintCallback wrapped-    where wrapped = frameClockPaintCallbackWrapper cb--frameClockPaintCallbackWrapper ::-    FrameClockPaintCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-frameClockPaintCallbackWrapper _cb _ _ = do-    _cb --onFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId-onFrameClockPaint obj cb = liftIO $ connectFrameClockPaint obj cb SignalConnectBefore-afterFrameClockPaint :: (GObject a, MonadIO m) => a -> FrameClockPaintCallback -> m SignalHandlerId-afterFrameClockPaint obj cb = connectFrameClockPaint obj cb SignalConnectAfter--connectFrameClockPaint :: (GObject a, MonadIO m) =>-                          a -> FrameClockPaintCallback -> SignalConnectMode -> m SignalHandlerId-connectFrameClockPaint obj cb after = liftIO $ do-    cb' <- mkFrameClockPaintCallback (frameClockPaintCallbackWrapper cb)-    connectSignalFunPtr obj "paint" cb' after---- signal FrameClock::resume-events-type FrameClockResumeEventsCallback =-    IO ()--noFrameClockResumeEventsCallback :: Maybe FrameClockResumeEventsCallback-noFrameClockResumeEventsCallback = Nothing--type FrameClockResumeEventsCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFrameClockResumeEventsCallback :: FrameClockResumeEventsCallbackC -> IO (FunPtr FrameClockResumeEventsCallbackC)--frameClockResumeEventsClosure :: FrameClockResumeEventsCallback -> IO Closure-frameClockResumeEventsClosure cb = newCClosure =<< mkFrameClockResumeEventsCallback wrapped-    where wrapped = frameClockResumeEventsCallbackWrapper cb--frameClockResumeEventsCallbackWrapper ::-    FrameClockResumeEventsCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-frameClockResumeEventsCallbackWrapper _cb _ _ = do-    _cb --onFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId-onFrameClockResumeEvents obj cb = liftIO $ connectFrameClockResumeEvents obj cb SignalConnectBefore-afterFrameClockResumeEvents :: (GObject a, MonadIO m) => a -> FrameClockResumeEventsCallback -> m SignalHandlerId-afterFrameClockResumeEvents obj cb = connectFrameClockResumeEvents obj cb SignalConnectAfter--connectFrameClockResumeEvents :: (GObject a, MonadIO m) =>-                                 a -> FrameClockResumeEventsCallback -> SignalConnectMode -> m SignalHandlerId-connectFrameClockResumeEvents obj cb after = liftIO $ do-    cb' <- mkFrameClockResumeEventsCallback (frameClockResumeEventsCallbackWrapper cb)-    connectSignalFunPtr obj "resume-events" cb' after---- signal FrameClock::update-type FrameClockUpdateCallback =-    IO ()--noFrameClockUpdateCallback :: Maybe FrameClockUpdateCallback-noFrameClockUpdateCallback = Nothing--type FrameClockUpdateCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkFrameClockUpdateCallback :: FrameClockUpdateCallbackC -> IO (FunPtr FrameClockUpdateCallbackC)--frameClockUpdateClosure :: FrameClockUpdateCallback -> IO Closure-frameClockUpdateClosure cb = newCClosure =<< mkFrameClockUpdateCallback wrapped-    where wrapped = frameClockUpdateCallbackWrapper cb--frameClockUpdateCallbackWrapper ::-    FrameClockUpdateCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-frameClockUpdateCallbackWrapper _cb _ _ = do-    _cb --onFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId-onFrameClockUpdate obj cb = liftIO $ connectFrameClockUpdate obj cb SignalConnectBefore-afterFrameClockUpdate :: (GObject a, MonadIO m) => a -> FrameClockUpdateCallback -> m SignalHandlerId-afterFrameClockUpdate obj cb = connectFrameClockUpdate obj cb SignalConnectAfter--connectFrameClockUpdate :: (GObject a, MonadIO m) =>-                           a -> FrameClockUpdateCallback -> SignalConnectMode -> m SignalHandlerId-connectFrameClockUpdate obj cb after = liftIO $ do-    cb' <- mkFrameClockUpdateCallback (frameClockUpdateCallbackWrapper cb)-    connectSignalFunPtr obj "update" cb' after--type instance AttributeList FrameClock = FrameClockAttributeList-type FrameClockAttributeList = ('[ ] :: [(Symbol, *)])--data FrameClockAfterPaintSignalInfo-instance SignalInfo FrameClockAfterPaintSignalInfo where-    type HaskellCallbackType FrameClockAfterPaintSignalInfo = FrameClockAfterPaintCallback-    connectSignal _ = connectFrameClockAfterPaint--data FrameClockBeforePaintSignalInfo-instance SignalInfo FrameClockBeforePaintSignalInfo where-    type HaskellCallbackType FrameClockBeforePaintSignalInfo = FrameClockBeforePaintCallback-    connectSignal _ = connectFrameClockBeforePaint--data FrameClockFlushEventsSignalInfo-instance SignalInfo FrameClockFlushEventsSignalInfo where-    type HaskellCallbackType FrameClockFlushEventsSignalInfo = FrameClockFlushEventsCallback-    connectSignal _ = connectFrameClockFlushEvents--data FrameClockLayoutSignalInfo-instance SignalInfo FrameClockLayoutSignalInfo where-    type HaskellCallbackType FrameClockLayoutSignalInfo = FrameClockLayoutCallback-    connectSignal _ = connectFrameClockLayout--data FrameClockPaintSignalInfo-instance SignalInfo FrameClockPaintSignalInfo where-    type HaskellCallbackType FrameClockPaintSignalInfo = FrameClockPaintCallback-    connectSignal _ = connectFrameClockPaint--data FrameClockResumeEventsSignalInfo-instance SignalInfo FrameClockResumeEventsSignalInfo where-    type HaskellCallbackType FrameClockResumeEventsSignalInfo = FrameClockResumeEventsCallback-    connectSignal _ = connectFrameClockResumeEvents--data FrameClockUpdateSignalInfo-instance SignalInfo FrameClockUpdateSignalInfo where-    type HaskellCallbackType FrameClockUpdateSignalInfo = FrameClockUpdateCallback-    connectSignal _ = connectFrameClockUpdate--type instance SignalList FrameClock = FrameClockSignalList-type FrameClockSignalList = ('[ '("afterPaint", FrameClockAfterPaintSignalInfo), '("beforePaint", FrameClockBeforePaintSignalInfo), '("flushEvents", FrameClockFlushEventsSignalInfo), '("layout", FrameClockLayoutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paint", FrameClockPaintSignalInfo), '("resumeEvents", FrameClockResumeEventsSignalInfo), '("update", FrameClockUpdateSignalInfo)] :: [(Symbol, *)])---- method FrameClock::begin_updating--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_begin_updating" gdk_frame_clock_begin_updating :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    IO ()---frameClockBeginUpdating ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-frameClockBeginUpdating _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_frame_clock_begin_updating _obj'-    touchManagedPtr _obj-    return ()--data FrameClockBeginUpdatingMethodInfo-instance (signature ~ (m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockBeginUpdatingMethodInfo a signature where-    overloadedMethod _ = frameClockBeginUpdating---- method FrameClock::end_updating--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_end_updating" gdk_frame_clock_end_updating :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    IO ()---frameClockEndUpdating ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-frameClockEndUpdating _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_frame_clock_end_updating _obj'-    touchManagedPtr _obj-    return ()--data FrameClockEndUpdatingMethodInfo-instance (signature ~ (m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockEndUpdatingMethodInfo a signature where-    overloadedMethod _ = frameClockEndUpdating---- method FrameClock::get_current_timings--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "FrameTimings")--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_get_current_timings" gdk_frame_clock_get_current_timings :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    IO (Ptr FrameTimings)---frameClockGetCurrentTimings ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> m (Maybe FrameTimings)               -- result-frameClockGetCurrentTimings _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_current_timings _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed FrameTimings) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data FrameClockGetCurrentTimingsMethodInfo-instance (signature ~ (m (Maybe FrameTimings)), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetCurrentTimingsMethodInfo a signature where-    overloadedMethod _ = frameClockGetCurrentTimings---- method FrameClock::get_frame_counter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_get_frame_counter" gdk_frame_clock_get_frame_counter :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    IO Int64---frameClockGetFrameCounter ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-frameClockGetFrameCounter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_frame_counter _obj'-    touchManagedPtr _obj-    return result--data FrameClockGetFrameCounterMethodInfo-instance (signature ~ (m Int64), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetFrameCounterMethodInfo a signature where-    overloadedMethod _ = frameClockGetFrameCounter---- method FrameClock::get_frame_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_get_frame_time" gdk_frame_clock_get_frame_time :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    IO Int64---frameClockGetFrameTime ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-frameClockGetFrameTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_frame_time _obj'-    touchManagedPtr _obj-    return result--data FrameClockGetFrameTimeMethodInfo-instance (signature ~ (m Int64), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetFrameTimeMethodInfo a signature where-    overloadedMethod _ = frameClockGetFrameTime---- method FrameClock::get_history_start--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_get_history_start" gdk_frame_clock_get_history_start :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    IO Int64---frameClockGetHistoryStart ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> m Int64                              -- result-frameClockGetHistoryStart _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_history_start _obj'-    touchManagedPtr _obj-    return result--data FrameClockGetHistoryStartMethodInfo-instance (signature ~ (m Int64), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetHistoryStartMethodInfo a signature where-    overloadedMethod _ = frameClockGetHistoryStart---- method FrameClock::get_refresh_info--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_get_refresh_info" gdk_frame_clock_get_refresh_info :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    Int64 ->                                -- base_time : TBasicType TInt64-    Int64 ->                                -- refresh_interval_return : TBasicType TInt64-    Int64 ->                                -- presentation_time_return : TBasicType TInt64-    IO ()---frameClockGetRefreshInfo ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> Int64                                -- baseTime-    -> Int64                                -- refreshIntervalReturn-    -> Int64                                -- presentationTimeReturn-    -> m ()                                 -- result-frameClockGetRefreshInfo _obj baseTime refreshIntervalReturn presentationTimeReturn = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_frame_clock_get_refresh_info _obj' baseTime refreshIntervalReturn presentationTimeReturn-    touchManagedPtr _obj-    return ()--data FrameClockGetRefreshInfoMethodInfo-instance (signature ~ (Int64 -> Int64 -> Int64 -> m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetRefreshInfoMethodInfo a signature where-    overloadedMethod _ = frameClockGetRefreshInfo---- method FrameClock::get_timings--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "FrameTimings")--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_get_timings" gdk_frame_clock_get_timings :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    Int64 ->                                -- frame_counter : TBasicType TInt64-    IO (Ptr FrameTimings)---frameClockGetTimings ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> Int64                                -- frameCounter-    -> m (Maybe FrameTimings)               -- result-frameClockGetTimings _obj frameCounter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_timings _obj' frameCounter-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed FrameTimings) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data FrameClockGetTimingsMethodInfo-instance (signature ~ (Int64 -> m (Maybe FrameTimings)), MonadIO m, FrameClockK a) => MethodInfo FrameClockGetTimingsMethodInfo a signature where-    overloadedMethod _ = frameClockGetTimings---- method FrameClock::request_phase--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_clock_request_phase" gdk_frame_clock_request_phase :: -    Ptr FrameClock ->                       -- _obj : TInterface "Gdk" "FrameClock"-    CUInt ->                                -- phase : TInterface "Gdk" "FrameClockPhase"-    IO ()---frameClockRequestPhase ::-    (MonadIO m, FrameClockK a) =>-    a                                       -- _obj-    -> [FrameClockPhase]                    -- phase-    -> m ()                                 -- result-frameClockRequestPhase _obj phase = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let phase' = gflagsToWord phase-    gdk_frame_clock_request_phase _obj' phase'-    touchManagedPtr _obj-    return ()--data FrameClockRequestPhaseMethodInfo-instance (signature ~ ([FrameClockPhase] -> m ()), MonadIO m, FrameClockK a) => MethodInfo FrameClockRequestPhaseMethodInfo a signature where-    overloadedMethod _ = frameClockRequestPhase--
− GI/Gdk/Objects/FrameClock.hs-boot 
@@ -1,29 +0,0 @@-module GI.Gdk.Objects.FrameClock where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FrameClock = FrameClock (ForeignPtr FrameClock)-instance GObject FrameClock where-class GObject o => FrameClockK o-instance (GObject o, IsDescendantOf FrameClock o) => FrameClockK o-data FrameClockAfterPaintSignalInfo-data FrameClockBeforePaintSignalInfo-data FrameClockFlushEventsSignalInfo-data FrameClockLayoutSignalInfo-data FrameClockPaintSignalInfo-data FrameClockResumeEventsSignalInfo-data FrameClockUpdateSignalInfo-data FrameClockBeginUpdatingMethodInfo-data FrameClockEndUpdatingMethodInfo-data FrameClockGetCurrentTimingsMethodInfo-data FrameClockGetFrameCounterMethodInfo-data FrameClockGetFrameTimeMethodInfo-data FrameClockGetHistoryStartMethodInfo-data FrameClockGetRefreshInfoMethodInfo-data FrameClockGetTimingsMethodInfo-data FrameClockRequestPhaseMethodInfo
− GI/Gdk/Objects/GLContext.hs 
@@ -1,680 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.GLContext-    ( ---- * Exported types-    GLContext(..)                           ,-    GLContextK                              ,-    toGLContext                             ,-    noGLContext                             ,--- -- * Methods--- ** gLContextClearCurrent-    gLContextClearCurrent                   ,----- ** gLContextGetCurrent-    gLContextGetCurrent                     ,----- ** gLContextGetDebugEnabled-    GLContextGetDebugEnabledMethodInfo      ,-    gLContextGetDebugEnabled                ,----- ** gLContextGetDisplay-    GLContextGetDisplayMethodInfo           ,-    gLContextGetDisplay                     ,----- ** gLContextGetForwardCompatible-    GLContextGetForwardCompatibleMethodInfo ,-    gLContextGetForwardCompatible           ,----- ** gLContextGetRequiredVersion-    GLContextGetRequiredVersionMethodInfo   ,-    gLContextGetRequiredVersion             ,----- ** gLContextGetSharedContext-    GLContextGetSharedContextMethodInfo     ,-    gLContextGetSharedContext               ,----- ** gLContextGetVersion-    GLContextGetVersionMethodInfo           ,-    gLContextGetVersion                     ,----- ** gLContextGetWindow-    GLContextGetWindowMethodInfo            ,-    gLContextGetWindow                      ,----- ** gLContextMakeCurrent-    GLContextMakeCurrentMethodInfo          ,-    gLContextMakeCurrent                    ,----- ** gLContextRealize-    GLContextRealizeMethodInfo              ,-    gLContextRealize                        ,----- ** gLContextSetDebugEnabled-    GLContextSetDebugEnabledMethodInfo      ,-    gLContextSetDebugEnabled                ,----- ** gLContextSetForwardCompatible-    GLContextSetForwardCompatibleMethodInfo ,-    gLContextSetForwardCompatible           ,----- ** gLContextSetRequiredVersion-    GLContextSetRequiredVersionMethodInfo   ,-    gLContextSetRequiredVersion             ,----- -- * Properties--- ** Display-    GLContextDisplayPropertyInfo            ,-    constructGLContextDisplay               ,-    gLContextDisplay                        ,-    getGLContextDisplay                     ,----- ** SharedContext-    GLContextSharedContextPropertyInfo      ,-    constructGLContextSharedContext         ,-    gLContextSharedContext                  ,-    getGLContextSharedContext               ,----- ** Window-    GLContextWindowPropertyInfo             ,-    constructGLContextWindow                ,-    gLContextWindow                         ,-    getGLContextWindow                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype GLContext = GLContext (ForeignPtr GLContext)-foreign import ccall "gdk_gl_context_get_type"-    c_gdk_gl_context_get_type :: IO GType--type instance ParentTypes GLContext = GLContextParentTypes-type GLContextParentTypes = '[GObject.Object]--instance GObject GLContext where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_gl_context_get_type-    --class GObject o => GLContextK o-instance (GObject o, IsDescendantOf GLContext o) => GLContextK o--toGLContext :: GLContextK o => o -> IO GLContext-toGLContext = unsafeCastTo GLContext--noGLContext :: Maybe GLContext-noGLContext = Nothing--type family ResolveGLContextMethod (t :: Symbol) (o :: *) :: * where-    ResolveGLContextMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveGLContextMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveGLContextMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveGLContextMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveGLContextMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveGLContextMethod "makeCurrent" o = GLContextMakeCurrentMethodInfo-    ResolveGLContextMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveGLContextMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveGLContextMethod "realize" o = GLContextRealizeMethodInfo-    ResolveGLContextMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveGLContextMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveGLContextMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveGLContextMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveGLContextMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveGLContextMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveGLContextMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveGLContextMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveGLContextMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveGLContextMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveGLContextMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveGLContextMethod "getDebugEnabled" o = GLContextGetDebugEnabledMethodInfo-    ResolveGLContextMethod "getDisplay" o = GLContextGetDisplayMethodInfo-    ResolveGLContextMethod "getForwardCompatible" o = GLContextGetForwardCompatibleMethodInfo-    ResolveGLContextMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveGLContextMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveGLContextMethod "getRequiredVersion" o = GLContextGetRequiredVersionMethodInfo-    ResolveGLContextMethod "getSharedContext" o = GLContextGetSharedContextMethodInfo-    ResolveGLContextMethod "getVersion" o = GLContextGetVersionMethodInfo-    ResolveGLContextMethod "getWindow" o = GLContextGetWindowMethodInfo-    ResolveGLContextMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveGLContextMethod "setDebugEnabled" o = GLContextSetDebugEnabledMethodInfo-    ResolveGLContextMethod "setForwardCompatible" o = GLContextSetForwardCompatibleMethodInfo-    ResolveGLContextMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveGLContextMethod "setRequiredVersion" o = GLContextSetRequiredVersionMethodInfo-    ResolveGLContextMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveGLContextMethod t GLContext, MethodInfo info GLContext p) => IsLabelProxy t (GLContext -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveGLContextMethod t GLContext, MethodInfo info GLContext p) => IsLabel t (GLContext -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getGLContextDisplay :: (MonadIO m, GLContextK o) => o -> m Display-getGLContextDisplay obj = liftIO $ checkUnexpectedNothing "getGLContextDisplay" $ getObjectPropertyObject obj "display" Display--constructGLContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructGLContextDisplay val = constructObjectPropertyObject "display" (Just val)--data GLContextDisplayPropertyInfo-instance AttrInfo GLContextDisplayPropertyInfo where-    type AttrAllowedOps GLContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint GLContextDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint GLContextDisplayPropertyInfo = GLContextK-    type AttrGetType GLContextDisplayPropertyInfo = Display-    type AttrLabel GLContextDisplayPropertyInfo = "display"-    attrGet _ = getGLContextDisplay-    attrSet _ = undefined-    attrConstruct _ = constructGLContextDisplay-    attrClear _ = undefined---- VVV Prop "shared-context"-   -- Type: TInterface "Gdk" "GLContext"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getGLContextSharedContext :: (MonadIO m, GLContextK o) => o -> m GLContext-getGLContextSharedContext obj = liftIO $ checkUnexpectedNothing "getGLContextSharedContext" $ getObjectPropertyObject obj "shared-context" GLContext--constructGLContextSharedContext :: (GLContextK a) => a -> IO ([Char], GValue)-constructGLContextSharedContext val = constructObjectPropertyObject "shared-context" (Just val)--data GLContextSharedContextPropertyInfo-instance AttrInfo GLContextSharedContextPropertyInfo where-    type AttrAllowedOps GLContextSharedContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint GLContextSharedContextPropertyInfo = GLContextK-    type AttrBaseTypeConstraint GLContextSharedContextPropertyInfo = GLContextK-    type AttrGetType GLContextSharedContextPropertyInfo = GLContext-    type AttrLabel GLContextSharedContextPropertyInfo = "shared-context"-    attrGet _ = getGLContextSharedContext-    attrSet _ = undefined-    attrConstruct _ = constructGLContextSharedContext-    attrClear _ = undefined---- VVV Prop "window"-   -- Type: TInterface "Gdk" "Window"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]-   -- Nullable: (Just False,Nothing)--getGLContextWindow :: (MonadIO m, GLContextK o) => o -> m Window-getGLContextWindow obj = liftIO $ checkUnexpectedNothing "getGLContextWindow" $ getObjectPropertyObject obj "window" Window--constructGLContextWindow :: (WindowK a) => a -> IO ([Char], GValue)-constructGLContextWindow val = constructObjectPropertyObject "window" (Just val)--data GLContextWindowPropertyInfo-instance AttrInfo GLContextWindowPropertyInfo where-    type AttrAllowedOps GLContextWindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint GLContextWindowPropertyInfo = WindowK-    type AttrBaseTypeConstraint GLContextWindowPropertyInfo = GLContextK-    type AttrGetType GLContextWindowPropertyInfo = Window-    type AttrLabel GLContextWindowPropertyInfo = "window"-    attrGet _ = getGLContextWindow-    attrSet _ = undefined-    attrConstruct _ = constructGLContextWindow-    attrClear _ = undefined--type instance AttributeList GLContext = GLContextAttributeList-type GLContextAttributeList = ('[ '("display", GLContextDisplayPropertyInfo), '("sharedContext", GLContextSharedContextPropertyInfo), '("window", GLContextWindowPropertyInfo)] :: [(Symbol, *)])--gLContextDisplay :: AttrLabelProxy "display"-gLContextDisplay = AttrLabelProxy--gLContextSharedContext :: AttrLabelProxy "sharedContext"-gLContextSharedContext = AttrLabelProxy--gLContextWindow :: AttrLabelProxy "window"-gLContextWindow = AttrLabelProxy--type instance SignalList GLContext = GLContextSignalList-type GLContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method GLContext::get_debug_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_debug_enabled" gdk_gl_context_get_debug_enabled :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    IO CInt---gLContextGetDebugEnabled ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-gLContextGetDebugEnabled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_gl_context_get_debug_enabled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data GLContextGetDebugEnabledMethodInfo-instance (signature ~ (m Bool), MonadIO m, GLContextK a) => MethodInfo GLContextGetDebugEnabledMethodInfo a signature where-    overloadedMethod _ = gLContextGetDebugEnabled---- method GLContext::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_display" gdk_gl_context_get_display :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    IO (Ptr Display)---gLContextGetDisplay ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m Display                            -- result-gLContextGetDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_gl_context_get_display _obj'-    checkUnexpectedReturnNULL "gdk_gl_context_get_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    return result'--data GLContextGetDisplayMethodInfo-instance (signature ~ (m Display), MonadIO m, GLContextK a) => MethodInfo GLContextGetDisplayMethodInfo a signature where-    overloadedMethod _ = gLContextGetDisplay---- method GLContext::get_forward_compatible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_forward_compatible" gdk_gl_context_get_forward_compatible :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    IO CInt---gLContextGetForwardCompatible ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-gLContextGetForwardCompatible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_gl_context_get_forward_compatible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data GLContextGetForwardCompatibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, GLContextK a) => MethodInfo GLContextGetForwardCompatibleMethodInfo a signature where-    overloadedMethod _ = gLContextGetForwardCompatible---- method GLContext::get_required_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_required_version" gdk_gl_context_get_required_version :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    Ptr Int32 ->                            -- major : TBasicType TInt-    Ptr Int32 ->                            -- minor : TBasicType TInt-    IO ()---gLContextGetRequiredVersion ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m (Int32,Int32)                      -- result-gLContextGetRequiredVersion _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    major <- allocMem :: IO (Ptr Int32)-    minor <- allocMem :: IO (Ptr Int32)-    gdk_gl_context_get_required_version _obj' major minor-    major' <- peek major-    minor' <- peek minor-    touchManagedPtr _obj-    freeMem major-    freeMem minor-    return (major', minor')--data GLContextGetRequiredVersionMethodInfo-instance (signature ~ (m (Int32,Int32)), MonadIO m, GLContextK a) => MethodInfo GLContextGetRequiredVersionMethodInfo a signature where-    overloadedMethod _ = gLContextGetRequiredVersion---- method GLContext::get_shared_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "GLContext")--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_shared_context" gdk_gl_context_get_shared_context :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    IO (Ptr GLContext)---gLContextGetSharedContext ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m GLContext                          -- result-gLContextGetSharedContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_gl_context_get_shared_context _obj'-    checkUnexpectedReturnNULL "gdk_gl_context_get_shared_context" result-    result' <- (newObject GLContext) result-    touchManagedPtr _obj-    return result'--data GLContextGetSharedContextMethodInfo-instance (signature ~ (m GLContext), MonadIO m, GLContextK a) => MethodInfo GLContextGetSharedContextMethodInfo a signature where-    overloadedMethod _ = gLContextGetSharedContext---- method GLContext::get_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_version" gdk_gl_context_get_version :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    Ptr Int32 ->                            -- major : TBasicType TInt-    Ptr Int32 ->                            -- minor : TBasicType TInt-    IO ()---gLContextGetVersion ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m (Int32,Int32)                      -- result-gLContextGetVersion _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    major <- allocMem :: IO (Ptr Int32)-    minor <- allocMem :: IO (Ptr Int32)-    gdk_gl_context_get_version _obj' major minor-    major' <- peek major-    minor' <- peek minor-    touchManagedPtr _obj-    freeMem major-    freeMem minor-    return (major', minor')--data GLContextGetVersionMethodInfo-instance (signature ~ (m (Int32,Int32)), MonadIO m, GLContextK a) => MethodInfo GLContextGetVersionMethodInfo a signature where-    overloadedMethod _ = gLContextGetVersion---- method GLContext::get_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_window" gdk_gl_context_get_window :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    IO (Ptr Window)---gLContextGetWindow ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m Window                             -- result-gLContextGetWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_gl_context_get_window _obj'-    checkUnexpectedReturnNULL "gdk_gl_context_get_window" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data GLContextGetWindowMethodInfo-instance (signature ~ (m Window), MonadIO m, GLContextK a) => MethodInfo GLContextGetWindowMethodInfo a signature where-    overloadedMethod _ = gLContextGetWindow---- method GLContext::make_current--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_make_current" gdk_gl_context_make_current :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    IO ()---gLContextMakeCurrent ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-gLContextMakeCurrent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_gl_context_make_current _obj'-    touchManagedPtr _obj-    return ()--data GLContextMakeCurrentMethodInfo-instance (signature ~ (m ()), MonadIO m, GLContextK a) => MethodInfo GLContextMakeCurrentMethodInfo a signature where-    overloadedMethod _ = gLContextMakeCurrent---- method GLContext::realize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : True--- Skip return : False--foreign import ccall "gdk_gl_context_realize" gdk_gl_context_realize :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    Ptr (Ptr GError) ->                     -- error-    IO CInt---gLContextRealize ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-gLContextRealize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ gdk_gl_context_realize _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )--data GLContextRealizeMethodInfo-instance (signature ~ (m ()), MonadIO m, GLContextK a) => MethodInfo GLContextRealizeMethodInfo a signature where-    overloadedMethod _ = gLContextRealize---- method GLContext::set_debug_enabled--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_set_debug_enabled" gdk_gl_context_set_debug_enabled :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    CInt ->                                 -- enabled : TBasicType TBoolean-    IO ()---gLContextSetDebugEnabled ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> Bool                                 -- enabled-    -> m ()                                 -- result-gLContextSetDebugEnabled _obj enabled = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let enabled' = (fromIntegral . fromEnum) enabled-    gdk_gl_context_set_debug_enabled _obj' enabled'-    touchManagedPtr _obj-    return ()--data GLContextSetDebugEnabledMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, GLContextK a) => MethodInfo GLContextSetDebugEnabledMethodInfo a signature where-    overloadedMethod _ = gLContextSetDebugEnabled---- method GLContext::set_forward_compatible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_set_forward_compatible" gdk_gl_context_set_forward_compatible :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    CInt ->                                 -- compatible : TBasicType TBoolean-    IO ()---gLContextSetForwardCompatible ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> Bool                                 -- compatible-    -> m ()                                 -- result-gLContextSetForwardCompatible _obj compatible = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let compatible' = (fromIntegral . fromEnum) compatible-    gdk_gl_context_set_forward_compatible _obj' compatible'-    touchManagedPtr _obj-    return ()--data GLContextSetForwardCompatibleMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, GLContextK a) => MethodInfo GLContextSetForwardCompatibleMethodInfo a signature where-    overloadedMethod _ = gLContextSetForwardCompatible---- method GLContext::set_required_version--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "major", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "minor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_set_required_version" gdk_gl_context_set_required_version :: -    Ptr GLContext ->                        -- _obj : TInterface "Gdk" "GLContext"-    Int32 ->                                -- major : TBasicType TInt-    Int32 ->                                -- minor : TBasicType TInt-    IO ()---gLContextSetRequiredVersion ::-    (MonadIO m, GLContextK a) =>-    a                                       -- _obj-    -> Int32                                -- major-    -> Int32                                -- minor-    -> m ()                                 -- result-gLContextSetRequiredVersion _obj major minor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_gl_context_set_required_version _obj' major minor-    touchManagedPtr _obj-    return ()--data GLContextSetRequiredVersionMethodInfo-instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, GLContextK a) => MethodInfo GLContextSetRequiredVersionMethodInfo a signature where-    overloadedMethod _ = gLContextSetRequiredVersion---- method GLContext::clear_current--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_clear_current" gdk_gl_context_clear_current :: -    IO ()---gLContextClearCurrent ::-    (MonadIO m) =>-    m ()                                    -- result-gLContextClearCurrent  = liftIO $ do-    gdk_gl_context_clear_current-    return ()---- method GLContext::get_current--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "GLContext")--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_get_current" gdk_gl_context_get_current :: -    IO (Ptr GLContext)---gLContextGetCurrent ::-    (MonadIO m) =>-    m GLContext                             -- result-gLContextGetCurrent  = liftIO $ do-    result <- gdk_gl_context_get_current-    checkUnexpectedReturnNULL "gdk_gl_context_get_current" result-    result' <- (newObject GLContext) result-    return result'--
− GI/Gdk/Objects/GLContext.hs-boot 
@@ -1,28 +0,0 @@-module GI.Gdk.Objects.GLContext where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype GLContext = GLContext (ForeignPtr GLContext)-instance GObject GLContext where-class GObject o => GLContextK o-instance (GObject o, IsDescendantOf GLContext o) => GLContextK o-data GLContextDisplayPropertyInfo-data GLContextSharedContextPropertyInfo-data GLContextWindowPropertyInfo-data GLContextGetDebugEnabledMethodInfo-data GLContextGetDisplayMethodInfo-data GLContextGetForwardCompatibleMethodInfo-data GLContextGetRequiredVersionMethodInfo-data GLContextGetSharedContextMethodInfo-data GLContextGetVersionMethodInfo-data GLContextGetWindowMethodInfo-data GLContextMakeCurrentMethodInfo-data GLContextRealizeMethodInfo-data GLContextSetDebugEnabledMethodInfo-data GLContextSetForwardCompatibleMethodInfo-data GLContextSetRequiredVersionMethodInfo
− GI/Gdk/Objects/Keymap.hs 
@@ -1,836 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.Keymap-    ( ---- * Exported types-    Keymap(..)                              ,-    KeymapK                                 ,-    toKeymap                                ,-    noKeymap                                ,--- -- * Methods--- ** keymapAddVirtualModifiers-    KeymapAddVirtualModifiersMethodInfo     ,-    keymapAddVirtualModifiers               ,----- ** keymapGetCapsLockState-    KeymapGetCapsLockStateMethodInfo        ,-    keymapGetCapsLockState                  ,----- ** keymapGetDefault-    keymapGetDefault                        ,----- ** keymapGetDirection-    KeymapGetDirectionMethodInfo            ,-    keymapGetDirection                      ,----- ** keymapGetEntriesForKeycode-    KeymapGetEntriesForKeycodeMethodInfo    ,-    keymapGetEntriesForKeycode              ,----- ** keymapGetEntriesForKeyval-    KeymapGetEntriesForKeyvalMethodInfo     ,-    keymapGetEntriesForKeyval               ,----- ** keymapGetForDisplay-    keymapGetForDisplay                     ,----- ** keymapGetModifierMask-    KeymapGetModifierMaskMethodInfo         ,-    keymapGetModifierMask                   ,----- ** keymapGetModifierState-    KeymapGetModifierStateMethodInfo        ,-    keymapGetModifierState                  ,----- ** keymapGetNumLockState-    KeymapGetNumLockStateMethodInfo         ,-    keymapGetNumLockState                   ,----- ** keymapGetScrollLockState-    KeymapGetScrollLockStateMethodInfo      ,-    keymapGetScrollLockState                ,----- ** keymapHaveBidiLayouts-    KeymapHaveBidiLayoutsMethodInfo         ,-    keymapHaveBidiLayouts                   ,----- ** keymapLookupKey-    KeymapLookupKeyMethodInfo               ,-    keymapLookupKey                         ,----- ** keymapMapVirtualModifiers-    KeymapMapVirtualModifiersMethodInfo     ,-    keymapMapVirtualModifiers               ,----- ** keymapTranslateKeyboardState-    KeymapTranslateKeyboardStateMethodInfo  ,-    keymapTranslateKeyboardState            ,----- -- * Signals--- ** DirectionChanged-    KeymapDirectionChangedCallback          ,-    KeymapDirectionChangedCallbackC         ,-    KeymapDirectionChangedSignalInfo        ,-    afterKeymapDirectionChanged             ,-    keymapDirectionChangedCallbackWrapper   ,-    keymapDirectionChangedClosure           ,-    mkKeymapDirectionChangedCallback        ,-    noKeymapDirectionChangedCallback        ,-    onKeymapDirectionChanged                ,----- ** KeysChanged-    KeymapKeysChangedCallback               ,-    KeymapKeysChangedCallbackC              ,-    KeymapKeysChangedSignalInfo             ,-    afterKeymapKeysChanged                  ,-    keymapKeysChangedCallbackWrapper        ,-    keymapKeysChangedClosure                ,-    mkKeymapKeysChangedCallback             ,-    noKeymapKeysChangedCallback             ,-    onKeymapKeysChanged                     ,----- ** StateChanged-    KeymapStateChangedCallback              ,-    KeymapStateChangedCallbackC             ,-    KeymapStateChangedSignalInfo            ,-    afterKeymapStateChanged                 ,-    keymapStateChangedCallbackWrapper       ,-    keymapStateChangedClosure               ,-    mkKeymapStateChangedCallback            ,-    noKeymapStateChangedCallback            ,-    onKeymapStateChanged                    ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Pango as Pango--newtype Keymap = Keymap (ForeignPtr Keymap)-foreign import ccall "gdk_keymap_get_type"-    c_gdk_keymap_get_type :: IO GType--type instance ParentTypes Keymap = KeymapParentTypes-type KeymapParentTypes = '[GObject.Object]--instance GObject Keymap where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_keymap_get_type-    --class GObject o => KeymapK o-instance (GObject o, IsDescendantOf Keymap o) => KeymapK o--toKeymap :: KeymapK o => o -> IO Keymap-toKeymap = unsafeCastTo Keymap--noKeymap :: Maybe Keymap-noKeymap = Nothing--type family ResolveKeymapMethod (t :: Symbol) (o :: *) :: * where-    ResolveKeymapMethod "addVirtualModifiers" o = KeymapAddVirtualModifiersMethodInfo-    ResolveKeymapMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveKeymapMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveKeymapMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveKeymapMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveKeymapMethod "haveBidiLayouts" o = KeymapHaveBidiLayoutsMethodInfo-    ResolveKeymapMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveKeymapMethod "lookupKey" o = KeymapLookupKeyMethodInfo-    ResolveKeymapMethod "mapVirtualModifiers" o = KeymapMapVirtualModifiersMethodInfo-    ResolveKeymapMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveKeymapMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveKeymapMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveKeymapMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveKeymapMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveKeymapMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveKeymapMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveKeymapMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveKeymapMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveKeymapMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveKeymapMethod "translateKeyboardState" o = KeymapTranslateKeyboardStateMethodInfo-    ResolveKeymapMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveKeymapMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveKeymapMethod "getCapsLockState" o = KeymapGetCapsLockStateMethodInfo-    ResolveKeymapMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveKeymapMethod "getDirection" o = KeymapGetDirectionMethodInfo-    ResolveKeymapMethod "getEntriesForKeycode" o = KeymapGetEntriesForKeycodeMethodInfo-    ResolveKeymapMethod "getEntriesForKeyval" o = KeymapGetEntriesForKeyvalMethodInfo-    ResolveKeymapMethod "getModifierMask" o = KeymapGetModifierMaskMethodInfo-    ResolveKeymapMethod "getModifierState" o = KeymapGetModifierStateMethodInfo-    ResolveKeymapMethod "getNumLockState" o = KeymapGetNumLockStateMethodInfo-    ResolveKeymapMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveKeymapMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveKeymapMethod "getScrollLockState" o = KeymapGetScrollLockStateMethodInfo-    ResolveKeymapMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveKeymapMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveKeymapMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveKeymapMethod t Keymap, MethodInfo info Keymap p) => IsLabelProxy t (Keymap -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveKeymapMethod t Keymap, MethodInfo info Keymap p) => IsLabel t (Keymap -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Keymap::direction-changed-type KeymapDirectionChangedCallback =-    IO ()--noKeymapDirectionChangedCallback :: Maybe KeymapDirectionChangedCallback-noKeymapDirectionChangedCallback = Nothing--type KeymapDirectionChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkKeymapDirectionChangedCallback :: KeymapDirectionChangedCallbackC -> IO (FunPtr KeymapDirectionChangedCallbackC)--keymapDirectionChangedClosure :: KeymapDirectionChangedCallback -> IO Closure-keymapDirectionChangedClosure cb = newCClosure =<< mkKeymapDirectionChangedCallback wrapped-    where wrapped = keymapDirectionChangedCallbackWrapper cb--keymapDirectionChangedCallbackWrapper ::-    KeymapDirectionChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-keymapDirectionChangedCallbackWrapper _cb _ _ = do-    _cb --onKeymapDirectionChanged :: (GObject a, MonadIO m) => a -> KeymapDirectionChangedCallback -> m SignalHandlerId-onKeymapDirectionChanged obj cb = liftIO $ connectKeymapDirectionChanged obj cb SignalConnectBefore-afterKeymapDirectionChanged :: (GObject a, MonadIO m) => a -> KeymapDirectionChangedCallback -> m SignalHandlerId-afterKeymapDirectionChanged obj cb = connectKeymapDirectionChanged obj cb SignalConnectAfter--connectKeymapDirectionChanged :: (GObject a, MonadIO m) =>-                                 a -> KeymapDirectionChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectKeymapDirectionChanged obj cb after = liftIO $ do-    cb' <- mkKeymapDirectionChangedCallback (keymapDirectionChangedCallbackWrapper cb)-    connectSignalFunPtr obj "direction-changed" cb' after---- signal Keymap::keys-changed-type KeymapKeysChangedCallback =-    IO ()--noKeymapKeysChangedCallback :: Maybe KeymapKeysChangedCallback-noKeymapKeysChangedCallback = Nothing--type KeymapKeysChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkKeymapKeysChangedCallback :: KeymapKeysChangedCallbackC -> IO (FunPtr KeymapKeysChangedCallbackC)--keymapKeysChangedClosure :: KeymapKeysChangedCallback -> IO Closure-keymapKeysChangedClosure cb = newCClosure =<< mkKeymapKeysChangedCallback wrapped-    where wrapped = keymapKeysChangedCallbackWrapper cb--keymapKeysChangedCallbackWrapper ::-    KeymapKeysChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-keymapKeysChangedCallbackWrapper _cb _ _ = do-    _cb --onKeymapKeysChanged :: (GObject a, MonadIO m) => a -> KeymapKeysChangedCallback -> m SignalHandlerId-onKeymapKeysChanged obj cb = liftIO $ connectKeymapKeysChanged obj cb SignalConnectBefore-afterKeymapKeysChanged :: (GObject a, MonadIO m) => a -> KeymapKeysChangedCallback -> m SignalHandlerId-afterKeymapKeysChanged obj cb = connectKeymapKeysChanged obj cb SignalConnectAfter--connectKeymapKeysChanged :: (GObject a, MonadIO m) =>-                            a -> KeymapKeysChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectKeymapKeysChanged obj cb after = liftIO $ do-    cb' <- mkKeymapKeysChangedCallback (keymapKeysChangedCallbackWrapper cb)-    connectSignalFunPtr obj "keys-changed" cb' after---- signal Keymap::state-changed-type KeymapStateChangedCallback =-    IO ()--noKeymapStateChangedCallback :: Maybe KeymapStateChangedCallback-noKeymapStateChangedCallback = Nothing--type KeymapStateChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkKeymapStateChangedCallback :: KeymapStateChangedCallbackC -> IO (FunPtr KeymapStateChangedCallbackC)--keymapStateChangedClosure :: KeymapStateChangedCallback -> IO Closure-keymapStateChangedClosure cb = newCClosure =<< mkKeymapStateChangedCallback wrapped-    where wrapped = keymapStateChangedCallbackWrapper cb--keymapStateChangedCallbackWrapper ::-    KeymapStateChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-keymapStateChangedCallbackWrapper _cb _ _ = do-    _cb --onKeymapStateChanged :: (GObject a, MonadIO m) => a -> KeymapStateChangedCallback -> m SignalHandlerId-onKeymapStateChanged obj cb = liftIO $ connectKeymapStateChanged obj cb SignalConnectBefore-afterKeymapStateChanged :: (GObject a, MonadIO m) => a -> KeymapStateChangedCallback -> m SignalHandlerId-afterKeymapStateChanged obj cb = connectKeymapStateChanged obj cb SignalConnectAfter--connectKeymapStateChanged :: (GObject a, MonadIO m) =>-                             a -> KeymapStateChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectKeymapStateChanged obj cb after = liftIO $ do-    cb' <- mkKeymapStateChangedCallback (keymapStateChangedCallbackWrapper cb)-    connectSignalFunPtr obj "state-changed" cb' after--type instance AttributeList Keymap = KeymapAttributeList-type KeymapAttributeList = ('[ ] :: [(Symbol, *)])--data KeymapDirectionChangedSignalInfo-instance SignalInfo KeymapDirectionChangedSignalInfo where-    type HaskellCallbackType KeymapDirectionChangedSignalInfo = KeymapDirectionChangedCallback-    connectSignal _ = connectKeymapDirectionChanged--data KeymapKeysChangedSignalInfo-instance SignalInfo KeymapKeysChangedSignalInfo where-    type HaskellCallbackType KeymapKeysChangedSignalInfo = KeymapKeysChangedCallback-    connectSignal _ = connectKeymapKeysChanged--data KeymapStateChangedSignalInfo-instance SignalInfo KeymapStateChangedSignalInfo where-    type HaskellCallbackType KeymapStateChangedSignalInfo = KeymapStateChangedCallback-    connectSignal _ = connectKeymapStateChanged--type instance SignalList Keymap = KeymapSignalList-type KeymapSignalList = ('[ '("directionChanged", KeymapDirectionChangedSignalInfo), '("keysChanged", KeymapKeysChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("stateChanged", KeymapStateChangedSignalInfo)] :: [(Symbol, *)])---- method Keymap::add_virtual_modifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_add_virtual_modifiers" gdk_keymap_add_virtual_modifiers :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    Ptr CUInt ->                            -- state : TInterface "Gdk" "ModifierType"-    IO ()---keymapAddVirtualModifiers ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> [ModifierType]                       -- state-    -> m ([ModifierType])                   -- result-keymapAddVirtualModifiers _obj state = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let state' = gflagsToWord state-    state'' <- allocMem :: IO (Ptr CUInt)-    poke state'' state'-    gdk_keymap_add_virtual_modifiers _obj' state''-    state''' <- peek state''-    let state'''' = wordToGFlags state'''-    touchManagedPtr _obj-    freeMem state''-    return state''''--data KeymapAddVirtualModifiersMethodInfo-instance (signature ~ ([ModifierType] -> m ([ModifierType])), MonadIO m, KeymapK a) => MethodInfo KeymapAddVirtualModifiersMethodInfo a signature where-    overloadedMethod _ = keymapAddVirtualModifiers---- method Keymap::get_caps_lock_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_caps_lock_state" gdk_keymap_get_caps_lock_state :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    IO CInt---keymapGetCapsLockState ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-keymapGetCapsLockState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_caps_lock_state _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data KeymapGetCapsLockStateMethodInfo-instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapGetCapsLockStateMethodInfo a signature where-    overloadedMethod _ = keymapGetCapsLockState---- method Keymap::get_direction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Pango" "Direction")--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_direction" gdk_keymap_get_direction :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    IO CUInt---keymapGetDirection ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> m Pango.Direction                    -- result-keymapGetDirection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_direction _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data KeymapGetDirectionMethodInfo-instance (signature ~ (m Pango.Direction), MonadIO m, KeymapK a) => MethodInfo KeymapGetDirectionMethodInfo a signature where-    overloadedMethod _ = keymapGetDirection---- method Keymap::get_entries_for_keycode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hardware_keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keys", argType = TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "keyvals", argType = TCArray False (-1) 4 (TBasicType TUInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_entries", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_entries_for_keycode" gdk_keymap_get_entries_for_keycode :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    Word32 ->                               -- hardware_keycode : TBasicType TUInt-    Ptr (Ptr KeymapKey) ->                  -- keys : TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey")-    Ptr (Ptr Word32) ->                     -- keyvals : TCArray False (-1) 4 (TBasicType TUInt)-    Ptr Int32 ->                            -- n_entries : TBasicType TInt-    IO CInt---keymapGetEntriesForKeycode ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> Word32                               -- hardwareKeycode-    -> m (Bool,[KeymapKey],[Word32])        -- result-keymapGetEntriesForKeycode _obj hardwareKeycode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    keys <- allocMem :: IO (Ptr (Ptr KeymapKey))-    keyvals <- allocMem :: IO (Ptr (Ptr Word32))-    nEntries <- allocMem :: IO (Ptr Int32)-    result <- gdk_keymap_get_entries_for_keycode _obj' hardwareKeycode keys keyvals nEntries-    nEntries' <- peek nEntries-    let result' = (/= 0) result-    keys' <- peek keys-    keys'' <- (unpackBlockArrayWithLength 12 nEntries') keys'-    keys''' <- mapM (wrapPtr KeymapKey) keys''-    freeMem keys'-    keyvals' <- peek keyvals-    keyvals'' <- (unpackStorableArrayWithLength nEntries') keyvals'-    freeMem keyvals'-    touchManagedPtr _obj-    freeMem keys-    freeMem keyvals-    freeMem nEntries-    return (result', keys''', keyvals'')--data KeymapGetEntriesForKeycodeMethodInfo-instance (signature ~ (Word32 -> m (Bool,[KeymapKey],[Word32])), MonadIO m, KeymapK a) => MethodInfo KeymapGetEntriesForKeycodeMethodInfo a signature where-    overloadedMethod _ = keymapGetEntriesForKeycode---- method Keymap::get_entries_for_keyval--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keys", argType = TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "n_keys", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : [Arg {argCName = "n_keys", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_entries_for_keyval" gdk_keymap_get_entries_for_keyval :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    Word32 ->                               -- keyval : TBasicType TUInt-    Ptr (Ptr KeymapKey) ->                  -- keys : TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey")-    Ptr Int32 ->                            -- n_keys : TBasicType TInt-    IO CInt---keymapGetEntriesForKeyval ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> Word32                               -- keyval-    -> m (Bool,[KeymapKey])                 -- result-keymapGetEntriesForKeyval _obj keyval = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    keys <- allocMem :: IO (Ptr (Ptr KeymapKey))-    nKeys <- allocMem :: IO (Ptr Int32)-    result <- gdk_keymap_get_entries_for_keyval _obj' keyval keys nKeys-    nKeys' <- peek nKeys-    let result' = (/= 0) result-    keys' <- peek keys-    keys'' <- (unpackBlockArrayWithLength 12 nKeys') keys'-    keys''' <- mapM (wrapPtr KeymapKey) keys''-    freeMem keys'-    touchManagedPtr _obj-    freeMem keys-    freeMem nKeys-    return (result', keys''')--data KeymapGetEntriesForKeyvalMethodInfo-instance (signature ~ (Word32 -> m (Bool,[KeymapKey])), MonadIO m, KeymapK a) => MethodInfo KeymapGetEntriesForKeyvalMethodInfo a signature where-    overloadedMethod _ = keymapGetEntriesForKeyval---- method Keymap::get_modifier_mask--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "ModifierType")--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_modifier_mask" gdk_keymap_get_modifier_mask :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    CUInt ->                                -- intent : TInterface "Gdk" "ModifierIntent"-    IO CUInt---keymapGetModifierMask ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> ModifierIntent                       -- intent-    -> m [ModifierType]                     -- result-keymapGetModifierMask _obj intent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let intent' = (fromIntegral . fromEnum) intent-    result <- gdk_keymap_get_modifier_mask _obj' intent'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data KeymapGetModifierMaskMethodInfo-instance (signature ~ (ModifierIntent -> m [ModifierType]), MonadIO m, KeymapK a) => MethodInfo KeymapGetModifierMaskMethodInfo a signature where-    overloadedMethod _ = keymapGetModifierMask---- method Keymap::get_modifier_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_modifier_state" gdk_keymap_get_modifier_state :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    IO Word32---keymapGetModifierState ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> m Word32                             -- result-keymapGetModifierState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_modifier_state _obj'-    touchManagedPtr _obj-    return result--data KeymapGetModifierStateMethodInfo-instance (signature ~ (m Word32), MonadIO m, KeymapK a) => MethodInfo KeymapGetModifierStateMethodInfo a signature where-    overloadedMethod _ = keymapGetModifierState---- method Keymap::get_num_lock_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_num_lock_state" gdk_keymap_get_num_lock_state :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    IO CInt---keymapGetNumLockState ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-keymapGetNumLockState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_num_lock_state _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data KeymapGetNumLockStateMethodInfo-instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapGetNumLockStateMethodInfo a signature where-    overloadedMethod _ = keymapGetNumLockState---- method Keymap::get_scroll_lock_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_scroll_lock_state" gdk_keymap_get_scroll_lock_state :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    IO CInt---keymapGetScrollLockState ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-keymapGetScrollLockState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_scroll_lock_state _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data KeymapGetScrollLockStateMethodInfo-instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapGetScrollLockStateMethodInfo a signature where-    overloadedMethod _ = keymapGetScrollLockState---- method Keymap::have_bidi_layouts--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_have_bidi_layouts" gdk_keymap_have_bidi_layouts :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    IO CInt---keymapHaveBidiLayouts ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-keymapHaveBidiLayouts _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_have_bidi_layouts _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data KeymapHaveBidiLayoutsMethodInfo-instance (signature ~ (m Bool), MonadIO m, KeymapK a) => MethodInfo KeymapHaveBidiLayoutsMethodInfo a signature where-    overloadedMethod _ = keymapHaveBidiLayouts---- method Keymap::lookup_key--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_lookup_key" gdk_keymap_lookup_key :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    Ptr KeymapKey ->                        -- key : TInterface "Gdk" "KeymapKey"-    IO Word32---keymapLookupKey ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> KeymapKey                            -- key-    -> m Word32                             -- result-keymapLookupKey _obj key = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let key' = unsafeManagedPtrGetPtr key-    result <- gdk_keymap_lookup_key _obj' key'-    touchManagedPtr _obj-    touchManagedPtr key-    return result--data KeymapLookupKeyMethodInfo-instance (signature ~ (KeymapKey -> m Word32), MonadIO m, KeymapK a) => MethodInfo KeymapLookupKeyMethodInfo a signature where-    overloadedMethod _ = keymapLookupKey---- method Keymap::map_virtual_modifiers--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_map_virtual_modifiers" gdk_keymap_map_virtual_modifiers :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    Ptr CUInt ->                            -- state : TInterface "Gdk" "ModifierType"-    IO CInt---keymapMapVirtualModifiers ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> [ModifierType]                       -- state-    -> m (Bool,[ModifierType])              -- result-keymapMapVirtualModifiers _obj state = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let state' = gflagsToWord state-    state'' <- allocMem :: IO (Ptr CUInt)-    poke state'' state'-    result <- gdk_keymap_map_virtual_modifiers _obj' state''-    let result' = (/= 0) result-    state''' <- peek state''-    let state'''' = wordToGFlags state'''-    touchManagedPtr _obj-    freeMem state''-    return (result', state'''')--data KeymapMapVirtualModifiersMethodInfo-instance (signature ~ ([ModifierType] -> m (Bool,[ModifierType])), MonadIO m, KeymapK a) => MethodInfo KeymapMapVirtualModifiersMethodInfo a signature where-    overloadedMethod _ = keymapMapVirtualModifiers---- method Keymap::translate_keyboard_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hardware_keycode", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "group", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "effective_group", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "level", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "consumed_modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_translate_keyboard_state" gdk_keymap_translate_keyboard_state :: -    Ptr Keymap ->                           -- _obj : TInterface "Gdk" "Keymap"-    Word32 ->                               -- hardware_keycode : TBasicType TUInt-    CUInt ->                                -- state : TInterface "Gdk" "ModifierType"-    Int32 ->                                -- group : TBasicType TInt-    Ptr Word32 ->                           -- keyval : TBasicType TUInt-    Ptr Int32 ->                            -- effective_group : TBasicType TInt-    Ptr Int32 ->                            -- level : TBasicType TInt-    Ptr CUInt ->                            -- consumed_modifiers : TInterface "Gdk" "ModifierType"-    IO CInt---keymapTranslateKeyboardState ::-    (MonadIO m, KeymapK a) =>-    a                                       -- _obj-    -> Word32                               -- hardwareKeycode-    -> [ModifierType]                       -- state-    -> Int32                                -- group-    -> m (Bool,Word32,Int32,Int32,[ModifierType])-- result-keymapTranslateKeyboardState _obj hardwareKeycode state group = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let state' = gflagsToWord state-    keyval <- allocMem :: IO (Ptr Word32)-    effectiveGroup <- allocMem :: IO (Ptr Int32)-    level <- allocMem :: IO (Ptr Int32)-    consumedModifiers <- allocMem :: IO (Ptr CUInt)-    result <- gdk_keymap_translate_keyboard_state _obj' hardwareKeycode state' group keyval effectiveGroup level consumedModifiers-    let result' = (/= 0) result-    keyval' <- peek keyval-    effectiveGroup' <- peek effectiveGroup-    level' <- peek level-    consumedModifiers' <- peek consumedModifiers-    let consumedModifiers'' = wordToGFlags consumedModifiers'-    touchManagedPtr _obj-    freeMem keyval-    freeMem effectiveGroup-    freeMem level-    freeMem consumedModifiers-    return (result', keyval', effectiveGroup', level', consumedModifiers'')--data KeymapTranslateKeyboardStateMethodInfo-instance (signature ~ (Word32 -> [ModifierType] -> Int32 -> m (Bool,Word32,Int32,Int32,[ModifierType])), MonadIO m, KeymapK a) => MethodInfo KeymapTranslateKeyboardStateMethodInfo a signature where-    overloadedMethod _ = keymapTranslateKeyboardState---- method Keymap::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Keymap")--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_default" gdk_keymap_get_default :: -    IO (Ptr Keymap)---keymapGetDefault ::-    (MonadIO m) =>-    m Keymap                                -- result-keymapGetDefault  = liftIO $ do-    result <- gdk_keymap_get_default-    checkUnexpectedReturnNULL "gdk_keymap_get_default" result-    result' <- (newObject Keymap) result-    return result'---- method Keymap::get_for_display--- method type : MemberFunction--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Keymap")--- throws : False--- Skip return : False--foreign import ccall "gdk_keymap_get_for_display" gdk_keymap_get_for_display :: -    Ptr Display ->                          -- display : TInterface "Gdk" "Display"-    IO (Ptr Keymap)---keymapGetForDisplay ::-    (MonadIO m, DisplayK a) =>-    a                                       -- display-    -> m Keymap                             -- result-keymapGetForDisplay display = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    result <- gdk_keymap_get_for_display display'-    checkUnexpectedReturnNULL "gdk_keymap_get_for_display" result-    result' <- (newObject Keymap) result-    touchManagedPtr display-    return result'--
− GI/Gdk/Objects/Keymap.hs-boot 
@@ -1,29 +0,0 @@-module GI.Gdk.Objects.Keymap where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Keymap = Keymap (ForeignPtr Keymap)-instance GObject Keymap where-class GObject o => KeymapK o-instance (GObject o, IsDescendantOf Keymap o) => KeymapK o-data KeymapDirectionChangedSignalInfo-data KeymapKeysChangedSignalInfo-data KeymapStateChangedSignalInfo-data KeymapAddVirtualModifiersMethodInfo-data KeymapGetCapsLockStateMethodInfo-data KeymapGetDirectionMethodInfo-data KeymapGetEntriesForKeycodeMethodInfo-data KeymapGetEntriesForKeyvalMethodInfo-data KeymapGetModifierMaskMethodInfo-data KeymapGetModifierStateMethodInfo-data KeymapGetNumLockStateMethodInfo-data KeymapGetScrollLockStateMethodInfo-data KeymapHaveBidiLayoutsMethodInfo-data KeymapLookupKeyMethodInfo-data KeymapMapVirtualModifiersMethodInfo-data KeymapTranslateKeyboardStateMethodInfo
− GI/Gdk/Objects/Screen.hs 
@@ -1,1528 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.Screen-    ( ---- * Exported types-    Screen(..)                              ,-    ScreenK                                 ,-    toScreen                                ,-    noScreen                                ,--- -- * Methods--- ** screenGetActiveWindow-    ScreenGetActiveWindowMethodInfo         ,-    screenGetActiveWindow                   ,----- ** screenGetDefault-    screenGetDefault                        ,----- ** screenGetDisplay-    ScreenGetDisplayMethodInfo              ,-    screenGetDisplay                        ,----- ** screenGetFontOptions-    ScreenGetFontOptionsMethodInfo          ,-    screenGetFontOptions                    ,----- ** screenGetHeight-    ScreenGetHeightMethodInfo               ,-    screenGetHeight                         ,----- ** screenGetHeightMm-    ScreenGetHeightMmMethodInfo             ,-    screenGetHeightMm                       ,----- ** screenGetMonitorAtPoint-    ScreenGetMonitorAtPointMethodInfo       ,-    screenGetMonitorAtPoint                 ,----- ** screenGetMonitorAtWindow-    ScreenGetMonitorAtWindowMethodInfo      ,-    screenGetMonitorAtWindow                ,----- ** screenGetMonitorGeometry-    ScreenGetMonitorGeometryMethodInfo      ,-    screenGetMonitorGeometry                ,----- ** screenGetMonitorHeightMm-    ScreenGetMonitorHeightMmMethodInfo      ,-    screenGetMonitorHeightMm                ,----- ** screenGetMonitorPlugName-    ScreenGetMonitorPlugNameMethodInfo      ,-    screenGetMonitorPlugName                ,----- ** screenGetMonitorScaleFactor-    ScreenGetMonitorScaleFactorMethodInfo   ,-    screenGetMonitorScaleFactor             ,----- ** screenGetMonitorWidthMm-    ScreenGetMonitorWidthMmMethodInfo       ,-    screenGetMonitorWidthMm                 ,----- ** screenGetMonitorWorkarea-    ScreenGetMonitorWorkareaMethodInfo      ,-    screenGetMonitorWorkarea                ,----- ** screenGetNMonitors-    ScreenGetNMonitorsMethodInfo            ,-    screenGetNMonitors                      ,----- ** screenGetNumber-    ScreenGetNumberMethodInfo               ,-    screenGetNumber                         ,----- ** screenGetPrimaryMonitor-    ScreenGetPrimaryMonitorMethodInfo       ,-    screenGetPrimaryMonitor                 ,----- ** screenGetResolution-    ScreenGetResolutionMethodInfo           ,-    screenGetResolution                     ,----- ** screenGetRgbaVisual-    ScreenGetRgbaVisualMethodInfo           ,-    screenGetRgbaVisual                     ,----- ** screenGetRootWindow-    ScreenGetRootWindowMethodInfo           ,-    screenGetRootWindow                     ,----- ** screenGetSetting-    ScreenGetSettingMethodInfo              ,-    screenGetSetting                        ,----- ** screenGetSystemVisual-    ScreenGetSystemVisualMethodInfo         ,-    screenGetSystemVisual                   ,----- ** screenGetToplevelWindows-    ScreenGetToplevelWindowsMethodInfo      ,-    screenGetToplevelWindows                ,----- ** screenGetWidth-    ScreenGetWidthMethodInfo                ,-    screenGetWidth                          ,----- ** screenGetWidthMm-    ScreenGetWidthMmMethodInfo              ,-    screenGetWidthMm                        ,----- ** screenGetWindowStack-    ScreenGetWindowStackMethodInfo          ,-    screenGetWindowStack                    ,----- ** screenHeight-    screenHeight                            ,----- ** screenHeightMm-    screenHeightMm                          ,----- ** screenIsComposited-    ScreenIsCompositedMethodInfo            ,-    screenIsComposited                      ,----- ** screenListVisuals-    ScreenListVisualsMethodInfo             ,-    screenListVisuals                       ,----- ** screenMakeDisplayName-    ScreenMakeDisplayNameMethodInfo         ,-    screenMakeDisplayName                   ,----- ** screenSetFontOptions-    ScreenSetFontOptionsMethodInfo          ,-    screenSetFontOptions                    ,----- ** screenSetResolution-    ScreenSetResolutionMethodInfo           ,-    screenSetResolution                     ,----- ** screenWidth-    screenWidth                             ,----- ** screenWidthMm-    screenWidthMm                           ,----- -- * Properties--- ** FontOptions-    ScreenFontOptionsPropertyInfo           ,-    constructScreenFontOptions              ,-    getScreenFontOptions                    ,-    screenFontOptions                       ,-    setScreenFontOptions                    ,----- ** Resolution-    ScreenResolutionPropertyInfo            ,-    constructScreenResolution               ,-    getScreenResolution                     ,-    screenResolution                        ,-    setScreenResolution                     ,----- -- * Signals--- ** CompositedChanged-    ScreenCompositedChangedCallback         ,-    ScreenCompositedChangedCallbackC        ,-    ScreenCompositedChangedSignalInfo       ,-    afterScreenCompositedChanged            ,-    mkScreenCompositedChangedCallback       ,-    noScreenCompositedChangedCallback       ,-    onScreenCompositedChanged               ,-    screenCompositedChangedCallbackWrapper  ,-    screenCompositedChangedClosure          ,----- ** MonitorsChanged-    ScreenMonitorsChangedCallback           ,-    ScreenMonitorsChangedCallbackC          ,-    ScreenMonitorsChangedSignalInfo         ,-    afterScreenMonitorsChanged              ,-    mkScreenMonitorsChangedCallback         ,-    noScreenMonitorsChangedCallback         ,-    onScreenMonitorsChanged                 ,-    screenMonitorsChangedCallbackWrapper    ,-    screenMonitorsChangedClosure            ,----- ** SizeChanged-    ScreenSizeChangedCallback               ,-    ScreenSizeChangedCallbackC              ,-    ScreenSizeChangedSignalInfo             ,-    afterScreenSizeChanged                  ,-    mkScreenSizeChangedCallback             ,-    noScreenSizeChangedCallback             ,-    onScreenSizeChanged                     ,-    screenSizeChangedCallbackWrapper        ,-    screenSizeChangedClosure                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject-import qualified GI.Cairo as Cairo--newtype Screen = Screen (ForeignPtr Screen)-foreign import ccall "gdk_screen_get_type"-    c_gdk_screen_get_type :: IO GType--type instance ParentTypes Screen = ScreenParentTypes-type ScreenParentTypes = '[GObject.Object]--instance GObject Screen where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_screen_get_type-    --class GObject o => ScreenK o-instance (GObject o, IsDescendantOf Screen o) => ScreenK o--toScreen :: ScreenK o => o -> IO Screen-toScreen = unsafeCastTo Screen--noScreen :: Maybe Screen-noScreen = Nothing--type family ResolveScreenMethod (t :: Symbol) (o :: *) :: * where-    ResolveScreenMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveScreenMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveScreenMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveScreenMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveScreenMethod "isComposited" o = ScreenIsCompositedMethodInfo-    ResolveScreenMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveScreenMethod "listVisuals" o = ScreenListVisualsMethodInfo-    ResolveScreenMethod "makeDisplayName" o = ScreenMakeDisplayNameMethodInfo-    ResolveScreenMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveScreenMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveScreenMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveScreenMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveScreenMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveScreenMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveScreenMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveScreenMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveScreenMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveScreenMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveScreenMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveScreenMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveScreenMethod "getActiveWindow" o = ScreenGetActiveWindowMethodInfo-    ResolveScreenMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveScreenMethod "getDisplay" o = ScreenGetDisplayMethodInfo-    ResolveScreenMethod "getFontOptions" o = ScreenGetFontOptionsMethodInfo-    ResolveScreenMethod "getHeight" o = ScreenGetHeightMethodInfo-    ResolveScreenMethod "getHeightMm" o = ScreenGetHeightMmMethodInfo-    ResolveScreenMethod "getMonitorAtPoint" o = ScreenGetMonitorAtPointMethodInfo-    ResolveScreenMethod "getMonitorAtWindow" o = ScreenGetMonitorAtWindowMethodInfo-    ResolveScreenMethod "getMonitorGeometry" o = ScreenGetMonitorGeometryMethodInfo-    ResolveScreenMethod "getMonitorHeightMm" o = ScreenGetMonitorHeightMmMethodInfo-    ResolveScreenMethod "getMonitorPlugName" o = ScreenGetMonitorPlugNameMethodInfo-    ResolveScreenMethod "getMonitorScaleFactor" o = ScreenGetMonitorScaleFactorMethodInfo-    ResolveScreenMethod "getMonitorWidthMm" o = ScreenGetMonitorWidthMmMethodInfo-    ResolveScreenMethod "getMonitorWorkarea" o = ScreenGetMonitorWorkareaMethodInfo-    ResolveScreenMethod "getNMonitors" o = ScreenGetNMonitorsMethodInfo-    ResolveScreenMethod "getNumber" o = ScreenGetNumberMethodInfo-    ResolveScreenMethod "getPrimaryMonitor" o = ScreenGetPrimaryMonitorMethodInfo-    ResolveScreenMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveScreenMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveScreenMethod "getResolution" o = ScreenGetResolutionMethodInfo-    ResolveScreenMethod "getRgbaVisual" o = ScreenGetRgbaVisualMethodInfo-    ResolveScreenMethod "getRootWindow" o = ScreenGetRootWindowMethodInfo-    ResolveScreenMethod "getSetting" o = ScreenGetSettingMethodInfo-    ResolveScreenMethod "getSystemVisual" o = ScreenGetSystemVisualMethodInfo-    ResolveScreenMethod "getToplevelWindows" o = ScreenGetToplevelWindowsMethodInfo-    ResolveScreenMethod "getWidth" o = ScreenGetWidthMethodInfo-    ResolveScreenMethod "getWidthMm" o = ScreenGetWidthMmMethodInfo-    ResolveScreenMethod "getWindowStack" o = ScreenGetWindowStackMethodInfo-    ResolveScreenMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveScreenMethod "setFontOptions" o = ScreenSetFontOptionsMethodInfo-    ResolveScreenMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveScreenMethod "setResolution" o = ScreenSetResolutionMethodInfo-    ResolveScreenMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveScreenMethod t Screen, MethodInfo info Screen p) => IsLabelProxy t (Screen -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveScreenMethod t Screen, MethodInfo info Screen p) => IsLabel t (Screen -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Screen::composited-changed-type ScreenCompositedChangedCallback =-    IO ()--noScreenCompositedChangedCallback :: Maybe ScreenCompositedChangedCallback-noScreenCompositedChangedCallback = Nothing--type ScreenCompositedChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkScreenCompositedChangedCallback :: ScreenCompositedChangedCallbackC -> IO (FunPtr ScreenCompositedChangedCallbackC)--screenCompositedChangedClosure :: ScreenCompositedChangedCallback -> IO Closure-screenCompositedChangedClosure cb = newCClosure =<< mkScreenCompositedChangedCallback wrapped-    where wrapped = screenCompositedChangedCallbackWrapper cb--screenCompositedChangedCallbackWrapper ::-    ScreenCompositedChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-screenCompositedChangedCallbackWrapper _cb _ _ = do-    _cb --onScreenCompositedChanged :: (GObject a, MonadIO m) => a -> ScreenCompositedChangedCallback -> m SignalHandlerId-onScreenCompositedChanged obj cb = liftIO $ connectScreenCompositedChanged obj cb SignalConnectBefore-afterScreenCompositedChanged :: (GObject a, MonadIO m) => a -> ScreenCompositedChangedCallback -> m SignalHandlerId-afterScreenCompositedChanged obj cb = connectScreenCompositedChanged obj cb SignalConnectAfter--connectScreenCompositedChanged :: (GObject a, MonadIO m) =>-                                  a -> ScreenCompositedChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectScreenCompositedChanged obj cb after = liftIO $ do-    cb' <- mkScreenCompositedChangedCallback (screenCompositedChangedCallbackWrapper cb)-    connectSignalFunPtr obj "composited-changed" cb' after---- signal Screen::monitors-changed-type ScreenMonitorsChangedCallback =-    IO ()--noScreenMonitorsChangedCallback :: Maybe ScreenMonitorsChangedCallback-noScreenMonitorsChangedCallback = Nothing--type ScreenMonitorsChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkScreenMonitorsChangedCallback :: ScreenMonitorsChangedCallbackC -> IO (FunPtr ScreenMonitorsChangedCallbackC)--screenMonitorsChangedClosure :: ScreenMonitorsChangedCallback -> IO Closure-screenMonitorsChangedClosure cb = newCClosure =<< mkScreenMonitorsChangedCallback wrapped-    where wrapped = screenMonitorsChangedCallbackWrapper cb--screenMonitorsChangedCallbackWrapper ::-    ScreenMonitorsChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-screenMonitorsChangedCallbackWrapper _cb _ _ = do-    _cb --onScreenMonitorsChanged :: (GObject a, MonadIO m) => a -> ScreenMonitorsChangedCallback -> m SignalHandlerId-onScreenMonitorsChanged obj cb = liftIO $ connectScreenMonitorsChanged obj cb SignalConnectBefore-afterScreenMonitorsChanged :: (GObject a, MonadIO m) => a -> ScreenMonitorsChangedCallback -> m SignalHandlerId-afterScreenMonitorsChanged obj cb = connectScreenMonitorsChanged obj cb SignalConnectAfter--connectScreenMonitorsChanged :: (GObject a, MonadIO m) =>-                                a -> ScreenMonitorsChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectScreenMonitorsChanged obj cb after = liftIO $ do-    cb' <- mkScreenMonitorsChangedCallback (screenMonitorsChangedCallbackWrapper cb)-    connectSignalFunPtr obj "monitors-changed" cb' after---- signal Screen::size-changed-type ScreenSizeChangedCallback =-    IO ()--noScreenSizeChangedCallback :: Maybe ScreenSizeChangedCallback-noScreenSizeChangedCallback = Nothing--type ScreenSizeChangedCallbackC =-    Ptr () ->                               -- object-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkScreenSizeChangedCallback :: ScreenSizeChangedCallbackC -> IO (FunPtr ScreenSizeChangedCallbackC)--screenSizeChangedClosure :: ScreenSizeChangedCallback -> IO Closure-screenSizeChangedClosure cb = newCClosure =<< mkScreenSizeChangedCallback wrapped-    where wrapped = screenSizeChangedCallbackWrapper cb--screenSizeChangedCallbackWrapper ::-    ScreenSizeChangedCallback ->-    Ptr () ->-    Ptr () ->-    IO ()-screenSizeChangedCallbackWrapper _cb _ _ = do-    _cb --onScreenSizeChanged :: (GObject a, MonadIO m) => a -> ScreenSizeChangedCallback -> m SignalHandlerId-onScreenSizeChanged obj cb = liftIO $ connectScreenSizeChanged obj cb SignalConnectBefore-afterScreenSizeChanged :: (GObject a, MonadIO m) => a -> ScreenSizeChangedCallback -> m SignalHandlerId-afterScreenSizeChanged obj cb = connectScreenSizeChanged obj cb SignalConnectAfter--connectScreenSizeChanged :: (GObject a, MonadIO m) =>-                            a -> ScreenSizeChangedCallback -> SignalConnectMode -> m SignalHandlerId-connectScreenSizeChanged obj cb after = liftIO $ do-    cb' <- mkScreenSizeChangedCallback (screenSizeChangedCallbackWrapper cb)-    connectSignalFunPtr obj "size-changed" cb' after---- VVV Prop "font-options"-   -- Type: TBasicType TPtr-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Nothing,Nothing)--getScreenFontOptions :: (MonadIO m, ScreenK o) => o -> m (Ptr ())-getScreenFontOptions obj = liftIO $ getObjectPropertyPtr obj "font-options"--setScreenFontOptions :: (MonadIO m, ScreenK o) => o -> Ptr () -> m ()-setScreenFontOptions obj val = liftIO $ setObjectPropertyPtr obj "font-options" val--constructScreenFontOptions :: Ptr () -> IO ([Char], GValue)-constructScreenFontOptions val = constructObjectPropertyPtr "font-options" val--data ScreenFontOptionsPropertyInfo-instance AttrInfo ScreenFontOptionsPropertyInfo where-    type AttrAllowedOps ScreenFontOptionsPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ScreenFontOptionsPropertyInfo = (~) (Ptr ())-    type AttrBaseTypeConstraint ScreenFontOptionsPropertyInfo = ScreenK-    type AttrGetType ScreenFontOptionsPropertyInfo = (Ptr ())-    type AttrLabel ScreenFontOptionsPropertyInfo = "font-options"-    attrGet _ = getScreenFontOptions-    attrSet _ = setScreenFontOptions-    attrConstruct _ = constructScreenFontOptions-    attrClear _ = undefined---- VVV Prop "resolution"-   -- Type: TBasicType TDouble-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just False,Just False)--getScreenResolution :: (MonadIO m, ScreenK o) => o -> m Double-getScreenResolution obj = liftIO $ getObjectPropertyDouble obj "resolution"--setScreenResolution :: (MonadIO m, ScreenK o) => o -> Double -> m ()-setScreenResolution obj val = liftIO $ setObjectPropertyDouble obj "resolution" val--constructScreenResolution :: Double -> IO ([Char], GValue)-constructScreenResolution val = constructObjectPropertyDouble "resolution" val--data ScreenResolutionPropertyInfo-instance AttrInfo ScreenResolutionPropertyInfo where-    type AttrAllowedOps ScreenResolutionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint ScreenResolutionPropertyInfo = (~) Double-    type AttrBaseTypeConstraint ScreenResolutionPropertyInfo = ScreenK-    type AttrGetType ScreenResolutionPropertyInfo = Double-    type AttrLabel ScreenResolutionPropertyInfo = "resolution"-    attrGet _ = getScreenResolution-    attrSet _ = setScreenResolution-    attrConstruct _ = constructScreenResolution-    attrClear _ = undefined--type instance AttributeList Screen = ScreenAttributeList-type ScreenAttributeList = ('[ '("fontOptions", ScreenFontOptionsPropertyInfo), '("resolution", ScreenResolutionPropertyInfo)] :: [(Symbol, *)])--screenFontOptions :: AttrLabelProxy "fontOptions"-screenFontOptions = AttrLabelProxy--screenResolution :: AttrLabelProxy "resolution"-screenResolution = AttrLabelProxy--data ScreenCompositedChangedSignalInfo-instance SignalInfo ScreenCompositedChangedSignalInfo where-    type HaskellCallbackType ScreenCompositedChangedSignalInfo = ScreenCompositedChangedCallback-    connectSignal _ = connectScreenCompositedChanged--data ScreenMonitorsChangedSignalInfo-instance SignalInfo ScreenMonitorsChangedSignalInfo where-    type HaskellCallbackType ScreenMonitorsChangedSignalInfo = ScreenMonitorsChangedCallback-    connectSignal _ = connectScreenMonitorsChanged--data ScreenSizeChangedSignalInfo-instance SignalInfo ScreenSizeChangedSignalInfo where-    type HaskellCallbackType ScreenSizeChangedSignalInfo = ScreenSizeChangedCallback-    connectSignal _ = connectScreenSizeChanged--type instance SignalList Screen = ScreenSignalList-type ScreenSignalList = ('[ '("compositedChanged", ScreenCompositedChangedSignalInfo), '("monitorsChanged", ScreenMonitorsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("sizeChanged", ScreenSizeChangedSignalInfo)] :: [(Symbol, *)])---- method Screen::get_active_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_active_window" gdk_screen_get_active_window :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr Window)---screenGetActiveWindow ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m (Maybe Window)                     -- result-screenGetActiveWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_active_window _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapObject Window) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ScreenGetActiveWindowMethodInfo-instance (signature ~ (m (Maybe Window)), MonadIO m, ScreenK a) => MethodInfo ScreenGetActiveWindowMethodInfo a signature where-    overloadedMethod _ = screenGetActiveWindow---- method Screen::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_display" gdk_screen_get_display :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr Display)---screenGetDisplay ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Display                            -- result-screenGetDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_display _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    return result'--data ScreenGetDisplayMethodInfo-instance (signature ~ (m Display), MonadIO m, ScreenK a) => MethodInfo ScreenGetDisplayMethodInfo a signature where-    overloadedMethod _ = screenGetDisplay---- method Screen::get_font_options--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "FontOptions")--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_font_options" gdk_screen_get_font_options :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr Cairo.FontOptions)---screenGetFontOptions ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m (Maybe Cairo.FontOptions)          -- result-screenGetFontOptions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_font_options _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newPtr Cairo.FontOptions) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ScreenGetFontOptionsMethodInfo-instance (signature ~ (m (Maybe Cairo.FontOptions)), MonadIO m, ScreenK a) => MethodInfo ScreenGetFontOptionsMethodInfo a signature where-    overloadedMethod _ = screenGetFontOptions---- method Screen::get_height--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_height" gdk_screen_get_height :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO Int32---screenGetHeight ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-screenGetHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_height _obj'-    touchManagedPtr _obj-    return result--data ScreenGetHeightMethodInfo-instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetHeightMethodInfo a signature where-    overloadedMethod _ = screenGetHeight---- method Screen::get_height_mm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_height_mm" gdk_screen_get_height_mm :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO Int32---screenGetHeightMm ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-screenGetHeightMm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_height_mm _obj'-    touchManagedPtr _obj-    return result--data ScreenGetHeightMmMethodInfo-instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetHeightMmMethodInfo a signature where-    overloadedMethod _ = screenGetHeightMm---- method Screen::get_monitor_at_point--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_at_point" gdk_screen_get_monitor_at_point :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    IO Int32---screenGetMonitorAtPoint ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Int32                                -- x-    -> Int32                                -- y-    -> m Int32                              -- result-screenGetMonitorAtPoint _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_at_point _obj' x y-    touchManagedPtr _obj-    return result--data ScreenGetMonitorAtPointMethodInfo-instance (signature ~ (Int32 -> Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorAtPointMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorAtPoint---- method Screen::get_monitor_at_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_at_window" gdk_screen_get_monitor_at_window :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    IO Int32---screenGetMonitorAtWindow ::-    (MonadIO m, ScreenK a, WindowK b) =>-    a                                       -- _obj-    -> b                                    -- window-    -> m Int32                              -- result-screenGetMonitorAtWindow _obj window = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_screen_get_monitor_at_window _obj' window'-    touchManagedPtr _obj-    touchManagedPtr window-    return result--data ScreenGetMonitorAtWindowMethodInfo-instance (signature ~ (b -> m Int32), MonadIO m, ScreenK a, WindowK b) => MethodInfo ScreenGetMonitorAtWindowMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorAtWindow---- method Screen::get_monitor_geometry--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_geometry" gdk_screen_get_monitor_geometry :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Int32 ->                                -- monitor_num : TBasicType TInt-    Ptr Rectangle ->                        -- dest : TInterface "Gdk" "Rectangle"-    IO ()---screenGetMonitorGeometry ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Int32                                -- monitorNum-    -> m (Rectangle)                        -- result-screenGetMonitorGeometry _obj monitorNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle)-    gdk_screen_get_monitor_geometry _obj' monitorNum dest-    dest' <- (wrapBoxed Rectangle) dest-    touchManagedPtr _obj-    return dest'--data ScreenGetMonitorGeometryMethodInfo-instance (signature ~ (Int32 -> m (Rectangle)), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorGeometryMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorGeometry---- method Screen::get_monitor_height_mm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_height_mm" gdk_screen_get_monitor_height_mm :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Int32 ->                                -- monitor_num : TBasicType TInt-    IO Int32---screenGetMonitorHeightMm ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Int32                                -- monitorNum-    -> m Int32                              -- result-screenGetMonitorHeightMm _obj monitorNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_height_mm _obj' monitorNum-    touchManagedPtr _obj-    return result--data ScreenGetMonitorHeightMmMethodInfo-instance (signature ~ (Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorHeightMmMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorHeightMm---- method Screen::get_monitor_plug_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_plug_name" gdk_screen_get_monitor_plug_name :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Int32 ->                                -- monitor_num : TBasicType TInt-    IO CString---screenGetMonitorPlugName ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Int32                                -- monitorNum-    -> m (Maybe T.Text)                     -- result-screenGetMonitorPlugName _obj monitorNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_plug_name _obj' monitorNum-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- cstringToText result'-        freeMem result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ScreenGetMonitorPlugNameMethodInfo-instance (signature ~ (Int32 -> m (Maybe T.Text)), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorPlugNameMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorPlugName---- method Screen::get_monitor_scale_factor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_scale_factor" gdk_screen_get_monitor_scale_factor :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Int32 ->                                -- monitor_num : TBasicType TInt-    IO Int32---screenGetMonitorScaleFactor ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Int32                                -- monitorNum-    -> m Int32                              -- result-screenGetMonitorScaleFactor _obj monitorNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_scale_factor _obj' monitorNum-    touchManagedPtr _obj-    return result--data ScreenGetMonitorScaleFactorMethodInfo-instance (signature ~ (Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorScaleFactorMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorScaleFactor---- method Screen::get_monitor_width_mm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_width_mm" gdk_screen_get_monitor_width_mm :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Int32 ->                                -- monitor_num : TBasicType TInt-    IO Int32---screenGetMonitorWidthMm ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Int32                                -- monitorNum-    -> m Int32                              -- result-screenGetMonitorWidthMm _obj monitorNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_width_mm _obj' monitorNum-    touchManagedPtr _obj-    return result--data ScreenGetMonitorWidthMmMethodInfo-instance (signature ~ (Int32 -> m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorWidthMmMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorWidthMm---- method Screen::get_monitor_workarea--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_monitor_workarea" gdk_screen_get_monitor_workarea :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Int32 ->                                -- monitor_num : TBasicType TInt-    Ptr Rectangle ->                        -- dest : TInterface "Gdk" "Rectangle"-    IO ()---screenGetMonitorWorkarea ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Int32                                -- monitorNum-    -> m (Rectangle)                        -- result-screenGetMonitorWorkarea _obj monitorNum = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle)-    gdk_screen_get_monitor_workarea _obj' monitorNum dest-    dest' <- (wrapBoxed Rectangle) dest-    touchManagedPtr _obj-    return dest'--data ScreenGetMonitorWorkareaMethodInfo-instance (signature ~ (Int32 -> m (Rectangle)), MonadIO m, ScreenK a) => MethodInfo ScreenGetMonitorWorkareaMethodInfo a signature where-    overloadedMethod _ = screenGetMonitorWorkarea---- method Screen::get_n_monitors--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_n_monitors" gdk_screen_get_n_monitors :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO Int32---screenGetNMonitors ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-screenGetNMonitors _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_n_monitors _obj'-    touchManagedPtr _obj-    return result--data ScreenGetNMonitorsMethodInfo-instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetNMonitorsMethodInfo a signature where-    overloadedMethod _ = screenGetNMonitors---- method Screen::get_number--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_number" gdk_screen_get_number :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO Int32---screenGetNumber ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-screenGetNumber _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_number _obj'-    touchManagedPtr _obj-    return result--data ScreenGetNumberMethodInfo-instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetNumberMethodInfo a signature where-    overloadedMethod _ = screenGetNumber---- method Screen::get_primary_monitor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_primary_monitor" gdk_screen_get_primary_monitor :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO Int32---screenGetPrimaryMonitor ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-screenGetPrimaryMonitor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_primary_monitor _obj'-    touchManagedPtr _obj-    return result--data ScreenGetPrimaryMonitorMethodInfo-instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetPrimaryMonitorMethodInfo a signature where-    overloadedMethod _ = screenGetPrimaryMonitor---- method Screen::get_resolution--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TDouble)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_resolution" gdk_screen_get_resolution :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO CDouble---screenGetResolution ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Double                             -- result-screenGetResolution _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_resolution _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'--data ScreenGetResolutionMethodInfo-instance (signature ~ (m Double), MonadIO m, ScreenK a) => MethodInfo ScreenGetResolutionMethodInfo a signature where-    overloadedMethod _ = screenGetResolution---- method Screen::get_rgba_visual--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_rgba_visual" gdk_screen_get_rgba_visual :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr Visual)---screenGetRgbaVisual ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m (Maybe Visual)                     -- result-screenGetRgbaVisual _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_rgba_visual _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Visual) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data ScreenGetRgbaVisualMethodInfo-instance (signature ~ (m (Maybe Visual)), MonadIO m, ScreenK a) => MethodInfo ScreenGetRgbaVisualMethodInfo a signature where-    overloadedMethod _ = screenGetRgbaVisual---- method Screen::get_root_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_root_window" gdk_screen_get_root_window :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr Window)---screenGetRootWindow ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Window                             -- result-screenGetRootWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_root_window _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_root_window" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data ScreenGetRootWindowMethodInfo-instance (signature ~ (m Window), MonadIO m, ScreenK a) => MethodInfo ScreenGetRootWindowMethodInfo a signature where-    overloadedMethod _ = screenGetRootWindow---- method Screen::get_setting--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_setting" gdk_screen_get_setting :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    CString ->                              -- name : TBasicType TUTF8-    Ptr GValue ->                           -- value : TInterface "GObject" "Value"-    IO CInt---screenGetSetting ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> T.Text                               -- name-    -> GValue                               -- value-    -> m Bool                               -- result-screenGetSetting _obj name value = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    let value' = unsafeManagedPtrGetPtr value-    result <- gdk_screen_get_setting _obj' name' value'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr value-    freeMem name'-    return result'--data ScreenGetSettingMethodInfo-instance (signature ~ (T.Text -> GValue -> m Bool), MonadIO m, ScreenK a) => MethodInfo ScreenGetSettingMethodInfo a signature where-    overloadedMethod _ = screenGetSetting---- method Screen::get_system_visual--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_system_visual" gdk_screen_get_system_visual :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr Visual)---screenGetSystemVisual ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Visual                             -- result-screenGetSystemVisual _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_system_visual _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_system_visual" result-    result' <- (newObject Visual) result-    touchManagedPtr _obj-    return result'--data ScreenGetSystemVisualMethodInfo-instance (signature ~ (m Visual), MonadIO m, ScreenK a) => MethodInfo ScreenGetSystemVisualMethodInfo a signature where-    overloadedMethod _ = screenGetSystemVisual---- method Screen::get_toplevel_windows--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Window"))--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_toplevel_windows" gdk_screen_get_toplevel_windows :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr (GList (Ptr Window)))---screenGetToplevelWindows ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m [Window]                           -- result-screenGetToplevelWindows _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_toplevel_windows _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data ScreenGetToplevelWindowsMethodInfo-instance (signature ~ (m [Window]), MonadIO m, ScreenK a) => MethodInfo ScreenGetToplevelWindowsMethodInfo a signature where-    overloadedMethod _ = screenGetToplevelWindows---- method Screen::get_width--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_width" gdk_screen_get_width :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO Int32---screenGetWidth ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-screenGetWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_width _obj'-    touchManagedPtr _obj-    return result--data ScreenGetWidthMethodInfo-instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetWidthMethodInfo a signature where-    overloadedMethod _ = screenGetWidth---- method Screen::get_width_mm--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_width_mm" gdk_screen_get_width_mm :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO Int32---screenGetWidthMm ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-screenGetWidthMm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_width_mm _obj'-    touchManagedPtr _obj-    return result--data ScreenGetWidthMmMethodInfo-instance (signature ~ (m Int32), MonadIO m, ScreenK a) => MethodInfo ScreenGetWidthMmMethodInfo a signature where-    overloadedMethod _ = screenGetWidthMm---- method Screen::get_window_stack--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Window"))--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_window_stack" gdk_screen_get_window_stack :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr (GList (Ptr Window)))---screenGetWindowStack ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m [Window]                           -- result-screenGetWindowStack _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_window_stack _obj'-    result' <- unpackGList result-    result'' <- mapM (wrapObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data ScreenGetWindowStackMethodInfo-instance (signature ~ (m [Window]), MonadIO m, ScreenK a) => MethodInfo ScreenGetWindowStackMethodInfo a signature where-    overloadedMethod _ = screenGetWindowStack---- method Screen::is_composited--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_is_composited" gdk_screen_is_composited :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO CInt---screenIsComposited ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-screenIsComposited _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_is_composited _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data ScreenIsCompositedMethodInfo-instance (signature ~ (m Bool), MonadIO m, ScreenK a) => MethodInfo ScreenIsCompositedMethodInfo a signature where-    overloadedMethod _ = screenIsComposited---- method Screen::list_visuals--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Visual"))--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_list_visuals" gdk_screen_list_visuals :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO (Ptr (GList (Ptr Visual)))---screenListVisuals ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m [Visual]                           -- result-screenListVisuals _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_list_visuals _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject Visual) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data ScreenListVisualsMethodInfo-instance (signature ~ (m [Visual]), MonadIO m, ScreenK a) => MethodInfo ScreenListVisualsMethodInfo a signature where-    overloadedMethod _ = screenListVisuals---- method Screen::make_display_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_make_display_name" gdk_screen_make_display_name :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    IO CString---screenMakeDisplayName ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> m T.Text                             -- result-screenMakeDisplayName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_make_display_name _obj'-    checkUnexpectedReturnNULL "gdk_screen_make_display_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data ScreenMakeDisplayNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m, ScreenK a) => MethodInfo ScreenMakeDisplayNameMethodInfo a signature where-    overloadedMethod _ = screenMakeDisplayName---- method Screen::set_font_options--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_set_font_options" gdk_screen_set_font_options :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    Ptr Cairo.FontOptions ->                -- options : TInterface "cairo" "FontOptions"-    IO ()---screenSetFontOptions ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Maybe (Cairo.FontOptions)            -- options-    -> m ()                                 -- result-screenSetFontOptions _obj options = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeOptions <- case options of-        Nothing -> return nullPtr-        Just jOptions -> do-            let jOptions' = unsafeManagedPtrGetPtr jOptions-            return jOptions'-    gdk_screen_set_font_options _obj' maybeOptions-    touchManagedPtr _obj-    whenJust options touchManagedPtr-    return ()--data ScreenSetFontOptionsMethodInfo-instance (signature ~ (Maybe (Cairo.FontOptions) -> m ()), MonadIO m, ScreenK a) => MethodInfo ScreenSetFontOptionsMethodInfo a signature where-    overloadedMethod _ = screenSetFontOptions---- method Screen::set_resolution--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_set_resolution" gdk_screen_set_resolution :: -    Ptr Screen ->                           -- _obj : TInterface "Gdk" "Screen"-    CDouble ->                              -- dpi : TBasicType TDouble-    IO ()---screenSetResolution ::-    (MonadIO m, ScreenK a) =>-    a                                       -- _obj-    -> Double                               -- dpi-    -> m ()                                 -- result-screenSetResolution _obj dpi = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let dpi' = realToFrac dpi-    gdk_screen_set_resolution _obj' dpi'-    touchManagedPtr _obj-    return ()--data ScreenSetResolutionMethodInfo-instance (signature ~ (Double -> m ()), MonadIO m, ScreenK a) => MethodInfo ScreenSetResolutionMethodInfo a signature where-    overloadedMethod _ = screenSetResolution---- method Screen::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Screen")--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_get_default" gdk_screen_get_default :: -    IO (Ptr Screen)---screenGetDefault ::-    (MonadIO m) =>-    m (Maybe Screen)                        -- result-screenGetDefault  = liftIO $ do-    result <- gdk_screen_get_default-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Screen) result'-        return result''-    return maybeResult---- method Screen::height--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_height" gdk_screen_height :: -    IO Int32---screenHeight ::-    (MonadIO m) =>-    m Int32                                 -- result-screenHeight  = liftIO $ do-    result <- gdk_screen_height-    return result---- method Screen::height_mm--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_height_mm" gdk_screen_height_mm :: -    IO Int32---screenHeightMm ::-    (MonadIO m) =>-    m Int32                                 -- result-screenHeightMm  = liftIO $ do-    result <- gdk_screen_height_mm-    return result---- method Screen::width--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_width" gdk_screen_width :: -    IO Int32---screenWidth ::-    (MonadIO m) =>-    m Int32                                 -- result-screenWidth  = liftIO $ do-    result <- gdk_screen_width-    return result---- method Screen::width_mm--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_width_mm" gdk_screen_width_mm :: -    IO Int32---screenWidthMm ::-    (MonadIO m) =>-    m Int32                                 -- result-screenWidthMm  = liftIO $ do-    result <- gdk_screen_width_mm-    return result--
− GI/Gdk/Objects/Screen.hs-boot 
@@ -1,48 +0,0 @@-module GI.Gdk.Objects.Screen where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Screen = Screen (ForeignPtr Screen)-instance GObject Screen where-class GObject o => ScreenK o-instance (GObject o, IsDescendantOf Screen o) => ScreenK o-data ScreenFontOptionsPropertyInfo-data ScreenResolutionPropertyInfo-data ScreenCompositedChangedSignalInfo-data ScreenMonitorsChangedSignalInfo-data ScreenSizeChangedSignalInfo-data ScreenGetActiveWindowMethodInfo-data ScreenGetDisplayMethodInfo-data ScreenGetFontOptionsMethodInfo-data ScreenGetHeightMethodInfo-data ScreenGetHeightMmMethodInfo-data ScreenGetMonitorAtPointMethodInfo-data ScreenGetMonitorAtWindowMethodInfo-data ScreenGetMonitorGeometryMethodInfo-data ScreenGetMonitorHeightMmMethodInfo-data ScreenGetMonitorPlugNameMethodInfo-data ScreenGetMonitorScaleFactorMethodInfo-data ScreenGetMonitorWidthMmMethodInfo-data ScreenGetMonitorWorkareaMethodInfo-data ScreenGetNMonitorsMethodInfo-data ScreenGetNumberMethodInfo-data ScreenGetPrimaryMonitorMethodInfo-data ScreenGetResolutionMethodInfo-data ScreenGetRgbaVisualMethodInfo-data ScreenGetRootWindowMethodInfo-data ScreenGetSettingMethodInfo-data ScreenGetSystemVisualMethodInfo-data ScreenGetToplevelWindowsMethodInfo-data ScreenGetWidthMethodInfo-data ScreenGetWidthMmMethodInfo-data ScreenGetWindowStackMethodInfo-data ScreenIsCompositedMethodInfo-data ScreenListVisualsMethodInfo-data ScreenMakeDisplayNameMethodInfo-data ScreenSetFontOptionsMethodInfo-data ScreenSetResolutionMethodInfo
− GI/Gdk/Objects/Visual.hs 
@@ -1,615 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.Visual-    ( ---- * Exported types-    Visual(..)                              ,-    VisualK                                 ,-    toVisual                                ,-    noVisual                                ,--- -- * Methods--- ** visualGetBest-    visualGetBest                           ,----- ** visualGetBestDepth-    visualGetBestDepth                      ,----- ** visualGetBestType-    visualGetBestType                       ,----- ** visualGetBestWithBoth-    visualGetBestWithBoth                   ,----- ** visualGetBestWithDepth-    visualGetBestWithDepth                  ,----- ** visualGetBestWithType-    visualGetBestWithType                   ,----- ** visualGetBitsPerRgb-    VisualGetBitsPerRgbMethodInfo           ,-    visualGetBitsPerRgb                     ,----- ** visualGetBluePixelDetails-    VisualGetBluePixelDetailsMethodInfo     ,-    visualGetBluePixelDetails               ,----- ** visualGetByteOrder-    VisualGetByteOrderMethodInfo            ,-    visualGetByteOrder                      ,----- ** visualGetColormapSize-    VisualGetColormapSizeMethodInfo         ,-    visualGetColormapSize                   ,----- ** visualGetDepth-    VisualGetDepthMethodInfo                ,-    visualGetDepth                          ,----- ** visualGetGreenPixelDetails-    VisualGetGreenPixelDetailsMethodInfo    ,-    visualGetGreenPixelDetails              ,----- ** visualGetRedPixelDetails-    VisualGetRedPixelDetailsMethodInfo      ,-    visualGetRedPixelDetails                ,----- ** visualGetScreen-    VisualGetScreenMethodInfo               ,-    visualGetScreen                         ,----- ** visualGetSystem-    visualGetSystem                         ,----- ** visualGetVisualType-    VisualGetVisualTypeMethodInfo           ,-    visualGetVisualType                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject--newtype Visual = Visual (ForeignPtr Visual)-foreign import ccall "gdk_visual_get_type"-    c_gdk_visual_get_type :: IO GType--type instance ParentTypes Visual = VisualParentTypes-type VisualParentTypes = '[GObject.Object]--instance GObject Visual where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_visual_get_type-    --class GObject o => VisualK o-instance (GObject o, IsDescendantOf Visual o) => VisualK o--toVisual :: VisualK o => o -> IO Visual-toVisual = unsafeCastTo Visual--noVisual :: Maybe Visual-noVisual = Nothing--type family ResolveVisualMethod (t :: Symbol) (o :: *) :: * where-    ResolveVisualMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveVisualMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveVisualMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveVisualMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveVisualMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveVisualMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveVisualMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveVisualMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveVisualMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveVisualMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveVisualMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveVisualMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveVisualMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveVisualMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveVisualMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveVisualMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveVisualMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveVisualMethod "getBitsPerRgb" o = VisualGetBitsPerRgbMethodInfo-    ResolveVisualMethod "getBluePixelDetails" o = VisualGetBluePixelDetailsMethodInfo-    ResolveVisualMethod "getByteOrder" o = VisualGetByteOrderMethodInfo-    ResolveVisualMethod "getColormapSize" o = VisualGetColormapSizeMethodInfo-    ResolveVisualMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveVisualMethod "getDepth" o = VisualGetDepthMethodInfo-    ResolveVisualMethod "getGreenPixelDetails" o = VisualGetGreenPixelDetailsMethodInfo-    ResolveVisualMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveVisualMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveVisualMethod "getRedPixelDetails" o = VisualGetRedPixelDetailsMethodInfo-    ResolveVisualMethod "getScreen" o = VisualGetScreenMethodInfo-    ResolveVisualMethod "getVisualType" o = VisualGetVisualTypeMethodInfo-    ResolveVisualMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveVisualMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveVisualMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveVisualMethod t Visual, MethodInfo info Visual p) => IsLabelProxy t (Visual -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveVisualMethod t Visual, MethodInfo info Visual p) => IsLabel t (Visual -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--type instance AttributeList Visual = VisualAttributeList-type VisualAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Visual = VisualSignalList-type VisualSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Visual::get_bits_per_rgb--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_bits_per_rgb" gdk_visual_get_bits_per_rgb :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    IO Int32---visualGetBitsPerRgb ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-visualGetBitsPerRgb _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_bits_per_rgb _obj'-    touchManagedPtr _obj-    return result--data VisualGetBitsPerRgbMethodInfo-instance (signature ~ (m Int32), MonadIO m, VisualK a) => MethodInfo VisualGetBitsPerRgbMethodInfo a signature where-    overloadedMethod _ = visualGetBitsPerRgb---- method Visual::get_blue_pixel_details--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "shift", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "precision", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_blue_pixel_details" gdk_visual_get_blue_pixel_details :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    Ptr Word32 ->                           -- mask : TBasicType TUInt32-    Ptr Int32 ->                            -- shift : TBasicType TInt-    Ptr Int32 ->                            -- precision : TBasicType TInt-    IO ()---visualGetBluePixelDetails ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m (Word32,Int32,Int32)               -- result-visualGetBluePixelDetails _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    mask <- allocMem :: IO (Ptr Word32)-    shift <- allocMem :: IO (Ptr Int32)-    precision <- allocMem :: IO (Ptr Int32)-    gdk_visual_get_blue_pixel_details _obj' mask shift precision-    mask' <- peek mask-    shift' <- peek shift-    precision' <- peek precision-    touchManagedPtr _obj-    freeMem mask-    freeMem shift-    freeMem precision-    return (mask', shift', precision')--data VisualGetBluePixelDetailsMethodInfo-instance (signature ~ (m (Word32,Int32,Int32)), MonadIO m, VisualK a) => MethodInfo VisualGetBluePixelDetailsMethodInfo a signature where-    overloadedMethod _ = visualGetBluePixelDetails---- method Visual::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "ByteOrder")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_byte_order" gdk_visual_get_byte_order :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    IO CUInt---visualGetByteOrder ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m ByteOrder                          -- result-visualGetByteOrder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_byte_order _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data VisualGetByteOrderMethodInfo-instance (signature ~ (m ByteOrder), MonadIO m, VisualK a) => MethodInfo VisualGetByteOrderMethodInfo a signature where-    overloadedMethod _ = visualGetByteOrder---- method Visual::get_colormap_size--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_colormap_size" gdk_visual_get_colormap_size :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    IO Int32---visualGetColormapSize ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-visualGetColormapSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_colormap_size _obj'-    touchManagedPtr _obj-    return result--data VisualGetColormapSizeMethodInfo-instance (signature ~ (m Int32), MonadIO m, VisualK a) => MethodInfo VisualGetColormapSizeMethodInfo a signature where-    overloadedMethod _ = visualGetColormapSize---- method Visual::get_depth--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_depth" gdk_visual_get_depth :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    IO Int32---visualGetDepth ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-visualGetDepth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_depth _obj'-    touchManagedPtr _obj-    return result--data VisualGetDepthMethodInfo-instance (signature ~ (m Int32), MonadIO m, VisualK a) => MethodInfo VisualGetDepthMethodInfo a signature where-    overloadedMethod _ = visualGetDepth---- method Visual::get_green_pixel_details--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "shift", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "precision", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_green_pixel_details" gdk_visual_get_green_pixel_details :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    Ptr Word32 ->                           -- mask : TBasicType TUInt32-    Ptr Int32 ->                            -- shift : TBasicType TInt-    Ptr Int32 ->                            -- precision : TBasicType TInt-    IO ()---visualGetGreenPixelDetails ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m (Word32,Int32,Int32)               -- result-visualGetGreenPixelDetails _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    mask <- allocMem :: IO (Ptr Word32)-    shift <- allocMem :: IO (Ptr Int32)-    precision <- allocMem :: IO (Ptr Int32)-    gdk_visual_get_green_pixel_details _obj' mask shift precision-    mask' <- peek mask-    shift' <- peek shift-    precision' <- peek precision-    touchManagedPtr _obj-    freeMem mask-    freeMem shift-    freeMem precision-    return (mask', shift', precision')--data VisualGetGreenPixelDetailsMethodInfo-instance (signature ~ (m (Word32,Int32,Int32)), MonadIO m, VisualK a) => MethodInfo VisualGetGreenPixelDetailsMethodInfo a signature where-    overloadedMethod _ = visualGetGreenPixelDetails---- method Visual::get_red_pixel_details--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "shift", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "precision", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_red_pixel_details" gdk_visual_get_red_pixel_details :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    Ptr Word32 ->                           -- mask : TBasicType TUInt32-    Ptr Int32 ->                            -- shift : TBasicType TInt-    Ptr Int32 ->                            -- precision : TBasicType TInt-    IO ()---visualGetRedPixelDetails ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m (Word32,Int32,Int32)               -- result-visualGetRedPixelDetails _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    mask <- allocMem :: IO (Ptr Word32)-    shift <- allocMem :: IO (Ptr Int32)-    precision <- allocMem :: IO (Ptr Int32)-    gdk_visual_get_red_pixel_details _obj' mask shift precision-    mask' <- peek mask-    shift' <- peek shift-    precision' <- peek precision-    touchManagedPtr _obj-    freeMem mask-    freeMem shift-    freeMem precision-    return (mask', shift', precision')--data VisualGetRedPixelDetailsMethodInfo-instance (signature ~ (m (Word32,Int32,Int32)), MonadIO m, VisualK a) => MethodInfo VisualGetRedPixelDetailsMethodInfo a signature where-    overloadedMethod _ = visualGetRedPixelDetails---- method Visual::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Screen")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_screen" gdk_visual_get_screen :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    IO (Ptr Screen)---visualGetScreen ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m Screen                             -- result-visualGetScreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_screen _obj'-    checkUnexpectedReturnNULL "gdk_visual_get_screen" result-    result' <- (newObject Screen) result-    touchManagedPtr _obj-    return result'--data VisualGetScreenMethodInfo-instance (signature ~ (m Screen), MonadIO m, VisualK a) => MethodInfo VisualGetScreenMethodInfo a signature where-    overloadedMethod _ = visualGetScreen---- method Visual::get_visual_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "VisualType")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_visual_type" gdk_visual_get_visual_type :: -    Ptr Visual ->                           -- _obj : TInterface "Gdk" "Visual"-    IO CUInt---visualGetVisualType ::-    (MonadIO m, VisualK a) =>-    a                                       -- _obj-    -> m VisualType                         -- result-visualGetVisualType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_visual_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data VisualGetVisualTypeMethodInfo-instance (signature ~ (m VisualType), MonadIO m, VisualK a) => MethodInfo VisualGetVisualTypeMethodInfo a signature where-    overloadedMethod _ = visualGetVisualType---- method Visual::get_best--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_best" gdk_visual_get_best :: -    IO (Ptr Visual)---visualGetBest ::-    (MonadIO m) =>-    m Visual                                -- result-visualGetBest  = liftIO $ do-    result <- gdk_visual_get_best-    checkUnexpectedReturnNULL "gdk_visual_get_best" result-    result' <- (newObject Visual) result-    return result'---- method Visual::get_best_depth--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_best_depth" gdk_visual_get_best_depth :: -    IO Int32---visualGetBestDepth ::-    (MonadIO m) =>-    m Int32                                 -- result-visualGetBestDepth  = liftIO $ do-    result <- gdk_visual_get_best_depth-    return result---- method Visual::get_best_type--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "VisualType")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_best_type" gdk_visual_get_best_type :: -    IO CUInt---visualGetBestType ::-    (MonadIO m) =>-    m VisualType                            -- result-visualGetBestType  = liftIO $ do-    result <- gdk_visual_get_best_type-    let result' = (toEnum . fromIntegral) result-    return result'---- method Visual::get_best_with_both--- method type : MemberFunction--- Args : [Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_best_with_both" gdk_visual_get_best_with_both :: -    Int32 ->                                -- depth : TBasicType TInt-    CUInt ->                                -- visual_type : TInterface "Gdk" "VisualType"-    IO (Ptr Visual)---visualGetBestWithBoth ::-    (MonadIO m) =>-    Int32                                   -- depth-    -> VisualType                           -- visualType-    -> m (Maybe Visual)                     -- result-visualGetBestWithBoth depth visualType = liftIO $ do-    let visualType' = (fromIntegral . fromEnum) visualType-    result <- gdk_visual_get_best_with_both depth visualType'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Visual) result'-        return result''-    return maybeResult---- method Visual::get_best_with_depth--- method type : MemberFunction--- Args : [Arg {argCName = "depth", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_best_with_depth" gdk_visual_get_best_with_depth :: -    Int32 ->                                -- depth : TBasicType TInt-    IO (Ptr Visual)---visualGetBestWithDepth ::-    (MonadIO m) =>-    Int32                                   -- depth-    -> m Visual                             -- result-visualGetBestWithDepth depth = liftIO $ do-    result <- gdk_visual_get_best_with_depth depth-    checkUnexpectedReturnNULL "gdk_visual_get_best_with_depth" result-    result' <- (newObject Visual) result-    return result'---- method Visual::get_best_with_type--- method type : MemberFunction--- Args : [Arg {argCName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_best_with_type" gdk_visual_get_best_with_type :: -    CUInt ->                                -- visual_type : TInterface "Gdk" "VisualType"-    IO (Ptr Visual)---visualGetBestWithType ::-    (MonadIO m) =>-    VisualType                              -- visualType-    -> m Visual                             -- result-visualGetBestWithType visualType = liftIO $ do-    let visualType' = (fromIntegral . fromEnum) visualType-    result <- gdk_visual_get_best_with_type visualType'-    checkUnexpectedReturnNULL "gdk_visual_get_best_with_type" result-    result' <- (newObject Visual) result-    return result'---- method Visual::get_system--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_visual_get_system" gdk_visual_get_system :: -    IO (Ptr Visual)---visualGetSystem ::-    (MonadIO m) =>-    m Visual                                -- result-visualGetSystem  = liftIO $ do-    result <- gdk_visual_get_system-    checkUnexpectedReturnNULL "gdk_visual_get_system" result-    result' <- (newObject Visual) result-    return result'--
− GI/Gdk/Objects/Visual.hs-boot 
@@ -1,22 +0,0 @@-module GI.Gdk.Objects.Visual where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Visual = Visual (ForeignPtr Visual)-instance GObject Visual where-class GObject o => VisualK o-instance (GObject o, IsDescendantOf Visual o) => VisualK o-data VisualGetBitsPerRgbMethodInfo-data VisualGetBluePixelDetailsMethodInfo-data VisualGetByteOrderMethodInfo-data VisualGetColormapSizeMethodInfo-data VisualGetDepthMethodInfo-data VisualGetGreenPixelDetailsMethodInfo-data VisualGetRedPixelDetailsMethodInfo-data VisualGetScreenMethodInfo-data VisualGetVisualTypeMethodInfo
− GI/Gdk/Objects/Window.hs 
@@ -1,6168 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Objects.Window-    ( ---- * Exported types-    Window(..)                              ,-    WindowK                                 ,-    toWindow                                ,-    noWindow                                ,--- -- * Methods--- ** windowAtPointer-    windowAtPointer                         ,----- ** windowBeep-    WindowBeepMethodInfo                    ,-    windowBeep                              ,----- ** windowBeginMoveDrag-    WindowBeginMoveDragMethodInfo           ,-    windowBeginMoveDrag                     ,----- ** windowBeginMoveDragForDevice-    WindowBeginMoveDragForDeviceMethodInfo  ,-    windowBeginMoveDragForDevice            ,----- ** windowBeginPaintRect-    WindowBeginPaintRectMethodInfo          ,-    windowBeginPaintRect                    ,----- ** windowBeginPaintRegion-    WindowBeginPaintRegionMethodInfo        ,-    windowBeginPaintRegion                  ,----- ** windowBeginResizeDrag-    WindowBeginResizeDragMethodInfo         ,-    windowBeginResizeDrag                   ,----- ** windowBeginResizeDragForDevice-    WindowBeginResizeDragForDeviceMethodInfo,-    windowBeginResizeDragForDevice          ,----- ** windowConfigureFinished-    WindowConfigureFinishedMethodInfo       ,-    windowConfigureFinished                 ,----- ** windowConstrainSize-    windowConstrainSize                     ,----- ** windowCoordsFromParent-    WindowCoordsFromParentMethodInfo        ,-    windowCoordsFromParent                  ,----- ** windowCoordsToParent-    WindowCoordsToParentMethodInfo          ,-    windowCoordsToParent                    ,----- ** windowCreateGlContext-    WindowCreateGlContextMethodInfo         ,-    windowCreateGlContext                   ,----- ** windowCreateSimilarImageSurface-    WindowCreateSimilarImageSurfaceMethodInfo,-    windowCreateSimilarImageSurface         ,----- ** windowCreateSimilarSurface-    WindowCreateSimilarSurfaceMethodInfo    ,-    windowCreateSimilarSurface              ,----- ** windowDeiconify-    WindowDeiconifyMethodInfo               ,-    windowDeiconify                         ,----- ** windowDestroy-    WindowDestroyMethodInfo                 ,-    windowDestroy                           ,----- ** windowDestroyNotify-    WindowDestroyNotifyMethodInfo           ,-    windowDestroyNotify                     ,----- ** windowEnableSynchronizedConfigure-    WindowEnableSynchronizedConfigureMethodInfo,-    windowEnableSynchronizedConfigure       ,----- ** windowEndPaint-    WindowEndPaintMethodInfo                ,-    windowEndPaint                          ,----- ** windowEnsureNative-    WindowEnsureNativeMethodInfo            ,-    windowEnsureNative                      ,----- ** windowFlush-    WindowFlushMethodInfo                   ,-    windowFlush                             ,----- ** windowFocus-    WindowFocusMethodInfo                   ,-    windowFocus                             ,----- ** windowFreezeToplevelUpdatesLibgtkOnly-    WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo,-    windowFreezeToplevelUpdatesLibgtkOnly   ,----- ** windowFreezeUpdates-    WindowFreezeUpdatesMethodInfo           ,-    windowFreezeUpdates                     ,----- ** windowFullscreen-    WindowFullscreenMethodInfo              ,-    windowFullscreen                        ,----- ** windowFullscreenOnMonitor-    WindowFullscreenOnMonitorMethodInfo     ,-    windowFullscreenOnMonitor               ,----- ** windowGeometryChanged-    WindowGeometryChangedMethodInfo         ,-    windowGeometryChanged                   ,----- ** windowGetAcceptFocus-    WindowGetAcceptFocusMethodInfo          ,-    windowGetAcceptFocus                    ,----- ** windowGetBackgroundPattern-    WindowGetBackgroundPatternMethodInfo    ,-    windowGetBackgroundPattern              ,----- ** windowGetChildren-    WindowGetChildrenMethodInfo             ,-    windowGetChildren                       ,----- ** windowGetChildrenWithUserData-    WindowGetChildrenWithUserDataMethodInfo ,-    windowGetChildrenWithUserData           ,----- ** windowGetClipRegion-    WindowGetClipRegionMethodInfo           ,-    windowGetClipRegion                     ,----- ** windowGetComposited-    WindowGetCompositedMethodInfo           ,-    windowGetComposited                     ,----- ** windowGetCursor-    WindowGetCursorMethodInfo               ,-    windowGetCursor                         ,----- ** windowGetDecorations-    WindowGetDecorationsMethodInfo          ,-    windowGetDecorations                    ,----- ** windowGetDeviceCursor-    WindowGetDeviceCursorMethodInfo         ,-    windowGetDeviceCursor                   ,----- ** windowGetDeviceEvents-    WindowGetDeviceEventsMethodInfo         ,-    windowGetDeviceEvents                   ,----- ** windowGetDevicePosition-    WindowGetDevicePositionMethodInfo       ,-    windowGetDevicePosition                 ,----- ** windowGetDevicePositionDouble-    WindowGetDevicePositionDoubleMethodInfo ,-    windowGetDevicePositionDouble           ,----- ** windowGetDisplay-    WindowGetDisplayMethodInfo              ,-    windowGetDisplay                        ,----- ** windowGetDragProtocol-    WindowGetDragProtocolMethodInfo         ,-    windowGetDragProtocol                   ,----- ** windowGetEffectiveParent-    WindowGetEffectiveParentMethodInfo      ,-    windowGetEffectiveParent                ,----- ** windowGetEffectiveToplevel-    WindowGetEffectiveToplevelMethodInfo    ,-    windowGetEffectiveToplevel              ,----- ** windowGetEventCompression-    WindowGetEventCompressionMethodInfo     ,-    windowGetEventCompression               ,----- ** windowGetEvents-    WindowGetEventsMethodInfo               ,-    windowGetEvents                         ,----- ** windowGetFocusOnMap-    WindowGetFocusOnMapMethodInfo           ,-    windowGetFocusOnMap                     ,----- ** windowGetFrameClock-    WindowGetFrameClockMethodInfo           ,-    windowGetFrameClock                     ,----- ** windowGetFrameExtents-    WindowGetFrameExtentsMethodInfo         ,-    windowGetFrameExtents                   ,----- ** windowGetFullscreenMode-    WindowGetFullscreenModeMethodInfo       ,-    windowGetFullscreenMode                 ,----- ** windowGetGeometry-    WindowGetGeometryMethodInfo             ,-    windowGetGeometry                       ,----- ** windowGetGroup-    WindowGetGroupMethodInfo                ,-    windowGetGroup                          ,----- ** windowGetHeight-    WindowGetHeightMethodInfo               ,-    windowGetHeight                         ,----- ** windowGetModalHint-    WindowGetModalHintMethodInfo            ,-    windowGetModalHint                      ,----- ** windowGetOrigin-    WindowGetOriginMethodInfo               ,-    windowGetOrigin                         ,----- ** windowGetParent-    WindowGetParentMethodInfo               ,-    windowGetParent                         ,----- ** windowGetPassThrough-    WindowGetPassThroughMethodInfo          ,-    windowGetPassThrough                    ,----- ** windowGetPointer-    WindowGetPointerMethodInfo              ,-    windowGetPointer                        ,----- ** windowGetPosition-    WindowGetPositionMethodInfo             ,-    windowGetPosition                       ,----- ** windowGetRootCoords-    WindowGetRootCoordsMethodInfo           ,-    windowGetRootCoords                     ,----- ** windowGetRootOrigin-    WindowGetRootOriginMethodInfo           ,-    windowGetRootOrigin                     ,----- ** windowGetScaleFactor-    WindowGetScaleFactorMethodInfo          ,-    windowGetScaleFactor                    ,----- ** windowGetScreen-    WindowGetScreenMethodInfo               ,-    windowGetScreen                         ,----- ** windowGetSourceEvents-    WindowGetSourceEventsMethodInfo         ,-    windowGetSourceEvents                   ,----- ** windowGetState-    WindowGetStateMethodInfo                ,-    windowGetState                          ,----- ** windowGetSupportMultidevice-    WindowGetSupportMultideviceMethodInfo   ,-    windowGetSupportMultidevice             ,----- ** windowGetToplevel-    WindowGetToplevelMethodInfo             ,-    windowGetToplevel                       ,----- ** windowGetTypeHint-    WindowGetTypeHintMethodInfo             ,-    windowGetTypeHint                       ,----- ** windowGetUpdateArea-    WindowGetUpdateAreaMethodInfo           ,-    windowGetUpdateArea                     ,----- ** windowGetUserData-    WindowGetUserDataMethodInfo             ,-    windowGetUserData                       ,----- ** windowGetVisibleRegion-    WindowGetVisibleRegionMethodInfo        ,-    windowGetVisibleRegion                  ,----- ** windowGetVisual-    WindowGetVisualMethodInfo               ,-    windowGetVisual                         ,----- ** windowGetWidth-    WindowGetWidthMethodInfo                ,-    windowGetWidth                          ,----- ** windowGetWindowType-    WindowGetWindowTypeMethodInfo           ,-    windowGetWindowType                     ,----- ** windowHasNative-    WindowHasNativeMethodInfo               ,-    windowHasNative                         ,----- ** windowHide-    WindowHideMethodInfo                    ,-    windowHide                              ,----- ** windowIconify-    WindowIconifyMethodInfo                 ,-    windowIconify                           ,----- ** windowInputShapeCombineRegion-    WindowInputShapeCombineRegionMethodInfo ,-    windowInputShapeCombineRegion           ,----- ** windowInvalidateMaybeRecurse-    WindowInvalidateMaybeRecurseMethodInfo  ,-    windowInvalidateMaybeRecurse            ,----- ** windowInvalidateRect-    WindowInvalidateRectMethodInfo          ,-    windowInvalidateRect                    ,----- ** windowInvalidateRegion-    WindowInvalidateRegionMethodInfo        ,-    windowInvalidateRegion                  ,----- ** windowIsDestroyed-    WindowIsDestroyedMethodInfo             ,-    windowIsDestroyed                       ,----- ** windowIsInputOnly-    WindowIsInputOnlyMethodInfo             ,-    windowIsInputOnly                       ,----- ** windowIsShaped-    WindowIsShapedMethodInfo                ,-    windowIsShaped                          ,----- ** windowIsViewable-    WindowIsViewableMethodInfo              ,-    windowIsViewable                        ,----- ** windowIsVisible-    WindowIsVisibleMethodInfo               ,-    windowIsVisible                         ,----- ** windowLower-    WindowLowerMethodInfo                   ,-    windowLower                             ,----- ** windowMarkPaintFromClip-    WindowMarkPaintFromClipMethodInfo       ,-    windowMarkPaintFromClip                 ,----- ** windowMaximize-    WindowMaximizeMethodInfo                ,-    windowMaximize                          ,----- ** windowMergeChildInputShapes-    WindowMergeChildInputShapesMethodInfo   ,-    windowMergeChildInputShapes             ,----- ** windowMergeChildShapes-    WindowMergeChildShapesMethodInfo        ,-    windowMergeChildShapes                  ,----- ** windowMove-    WindowMoveMethodInfo                    ,-    windowMove                              ,----- ** windowMoveRegion-    WindowMoveRegionMethodInfo              ,-    windowMoveRegion                        ,----- ** windowMoveResize-    WindowMoveResizeMethodInfo              ,-    windowMoveResize                        ,----- ** windowNew-    windowNew                               ,----- ** windowPeekChildren-    WindowPeekChildrenMethodInfo            ,-    windowPeekChildren                      ,----- ** windowProcessAllUpdates-    windowProcessAllUpdates                 ,----- ** windowProcessUpdates-    WindowProcessUpdatesMethodInfo          ,-    windowProcessUpdates                    ,----- ** windowRaise-    WindowRaiseMethodInfo                   ,-    windowRaise                             ,----- ** windowRegisterDnd-    WindowRegisterDndMethodInfo             ,-    windowRegisterDnd                       ,----- ** windowReparent-    WindowReparentMethodInfo                ,-    windowReparent                          ,----- ** windowResize-    WindowResizeMethodInfo                  ,-    windowResize                            ,----- ** windowRestack-    WindowRestackMethodInfo                 ,-    windowRestack                           ,----- ** windowScroll-    WindowScrollMethodInfo                  ,-    windowScroll                            ,----- ** windowSetAcceptFocus-    WindowSetAcceptFocusMethodInfo          ,-    windowSetAcceptFocus                    ,----- ** windowSetBackground-    WindowSetBackgroundMethodInfo           ,-    windowSetBackground                     ,----- ** windowSetBackgroundPattern-    WindowSetBackgroundPatternMethodInfo    ,-    windowSetBackgroundPattern              ,----- ** windowSetBackgroundRgba-    WindowSetBackgroundRgbaMethodInfo       ,-    windowSetBackgroundRgba                 ,----- ** windowSetChildInputShapes-    WindowSetChildInputShapesMethodInfo     ,-    windowSetChildInputShapes               ,----- ** windowSetChildShapes-    WindowSetChildShapesMethodInfo          ,-    windowSetChildShapes                    ,----- ** windowSetComposited-    WindowSetCompositedMethodInfo           ,-    windowSetComposited                     ,----- ** windowSetCursor-    WindowSetCursorMethodInfo               ,-    windowSetCursor                         ,----- ** windowSetDebugUpdates-    windowSetDebugUpdates                   ,----- ** windowSetDecorations-    WindowSetDecorationsMethodInfo          ,-    windowSetDecorations                    ,----- ** windowSetDeviceCursor-    WindowSetDeviceCursorMethodInfo         ,-    windowSetDeviceCursor                   ,----- ** windowSetDeviceEvents-    WindowSetDeviceEventsMethodInfo         ,-    windowSetDeviceEvents                   ,----- ** windowSetEventCompression-    WindowSetEventCompressionMethodInfo     ,-    windowSetEventCompression               ,----- ** windowSetEvents-    WindowSetEventsMethodInfo               ,-    windowSetEvents                         ,----- ** windowSetFocusOnMap-    WindowSetFocusOnMapMethodInfo           ,-    windowSetFocusOnMap                     ,----- ** windowSetFullscreenMode-    WindowSetFullscreenModeMethodInfo       ,-    windowSetFullscreenMode                 ,----- ** windowSetFunctions-    WindowSetFunctionsMethodInfo            ,-    windowSetFunctions                      ,----- ** windowSetGeometryHints-    WindowSetGeometryHintsMethodInfo        ,-    windowSetGeometryHints                  ,----- ** windowSetGroup-    WindowSetGroupMethodInfo                ,-    windowSetGroup                          ,----- ** windowSetIconList-    WindowSetIconListMethodInfo             ,-    windowSetIconList                       ,----- ** windowSetIconName-    WindowSetIconNameMethodInfo             ,-    windowSetIconName                       ,----- ** windowSetKeepAbove-    WindowSetKeepAboveMethodInfo            ,-    windowSetKeepAbove                      ,----- ** windowSetKeepBelow-    WindowSetKeepBelowMethodInfo            ,-    windowSetKeepBelow                      ,----- ** windowSetModalHint-    WindowSetModalHintMethodInfo            ,-    windowSetModalHint                      ,----- ** windowSetOpacity-    WindowSetOpacityMethodInfo              ,-    windowSetOpacity                        ,----- ** windowSetOpaqueRegion-    WindowSetOpaqueRegionMethodInfo         ,-    windowSetOpaqueRegion                   ,----- ** windowSetOverrideRedirect-    WindowSetOverrideRedirectMethodInfo     ,-    windowSetOverrideRedirect               ,----- ** windowSetPassThrough-    WindowSetPassThroughMethodInfo          ,-    windowSetPassThrough                    ,----- ** windowSetRole-    WindowSetRoleMethodInfo                 ,-    windowSetRole                           ,----- ** windowSetShadowWidth-    WindowSetShadowWidthMethodInfo          ,-    windowSetShadowWidth                    ,----- ** windowSetSkipPagerHint-    WindowSetSkipPagerHintMethodInfo        ,-    windowSetSkipPagerHint                  ,----- ** windowSetSkipTaskbarHint-    WindowSetSkipTaskbarHintMethodInfo      ,-    windowSetSkipTaskbarHint                ,----- ** windowSetSourceEvents-    WindowSetSourceEventsMethodInfo         ,-    windowSetSourceEvents                   ,----- ** windowSetStartupId-    WindowSetStartupIdMethodInfo            ,-    windowSetStartupId                      ,----- ** windowSetStaticGravities-    WindowSetStaticGravitiesMethodInfo      ,-    windowSetStaticGravities                ,----- ** windowSetSupportMultidevice-    WindowSetSupportMultideviceMethodInfo   ,-    windowSetSupportMultidevice             ,----- ** windowSetTitle-    WindowSetTitleMethodInfo                ,-    windowSetTitle                          ,----- ** windowSetTransientFor-    WindowSetTransientForMethodInfo         ,-    windowSetTransientFor                   ,----- ** windowSetTypeHint-    WindowSetTypeHintMethodInfo             ,-    windowSetTypeHint                       ,----- ** windowSetUrgencyHint-    WindowSetUrgencyHintMethodInfo          ,-    windowSetUrgencyHint                    ,----- ** windowSetUserData-    WindowSetUserDataMethodInfo             ,-    windowSetUserData                       ,----- ** windowShapeCombineRegion-    WindowShapeCombineRegionMethodInfo      ,-    windowShapeCombineRegion                ,----- ** windowShow-    WindowShowMethodInfo                    ,-    windowShow                              ,----- ** windowShowUnraised-    WindowShowUnraisedMethodInfo            ,-    windowShowUnraised                      ,----- ** windowShowWindowMenu-    WindowShowWindowMenuMethodInfo          ,-    windowShowWindowMenu                    ,----- ** windowStick-    WindowStickMethodInfo                   ,-    windowStick                             ,----- ** windowThawToplevelUpdatesLibgtkOnly-    WindowThawToplevelUpdatesLibgtkOnlyMethodInfo,-    windowThawToplevelUpdatesLibgtkOnly     ,----- ** windowThawUpdates-    WindowThawUpdatesMethodInfo             ,-    windowThawUpdates                       ,----- ** windowUnfullscreen-    WindowUnfullscreenMethodInfo            ,-    windowUnfullscreen                      ,----- ** windowUnmaximize-    WindowUnmaximizeMethodInfo              ,-    windowUnmaximize                        ,----- ** windowUnstick-    WindowUnstickMethodInfo                 ,-    windowUnstick                           ,----- ** windowWithdraw-    WindowWithdrawMethodInfo                ,-    windowWithdraw                          ,----- -- * Properties--- ** Cursor-    WindowCursorPropertyInfo                ,-    clearWindowCursor                       ,-    constructWindowCursor                   ,-    getWindowCursor                         ,-    setWindowCursor                         ,-    windowCursor                            ,----- -- * Signals--- ** CreateSurface-    WindowCreateSurfaceCallback             ,-    WindowCreateSurfaceCallbackC            ,-    WindowCreateSurfaceSignalInfo           ,-    afterWindowCreateSurface                ,-    mkWindowCreateSurfaceCallback           ,-    noWindowCreateSurfaceCallback           ,-    onWindowCreateSurface                   ,-    windowCreateSurfaceCallbackWrapper      ,-    windowCreateSurfaceClosure              ,----- ** FromEmbedder-    WindowFromEmbedderCallback              ,-    WindowFromEmbedderCallbackC             ,-    WindowFromEmbedderSignalInfo            ,-    afterWindowFromEmbedder                 ,-    mkWindowFromEmbedderCallback            ,-    noWindowFromEmbedderCallback            ,-    onWindowFromEmbedder                    ,-    windowFromEmbedderCallbackWrapper       ,-    windowFromEmbedderClosure               ,----- ** PickEmbeddedChild-    WindowPickEmbeddedChildCallback         ,-    WindowPickEmbeddedChildCallbackC        ,-    WindowPickEmbeddedChildSignalInfo       ,-    afterWindowPickEmbeddedChild            ,-    mkWindowPickEmbeddedChildCallback       ,-    noWindowPickEmbeddedChildCallback       ,-    onWindowPickEmbeddedChild               ,-    windowPickEmbeddedChildCallbackWrapper  ,-    windowPickEmbeddedChildClosure          ,----- ** ToEmbedder-    WindowToEmbedderCallback                ,-    WindowToEmbedderCallbackC               ,-    WindowToEmbedderSignalInfo              ,-    afterWindowToEmbedder                   ,-    mkWindowToEmbedderCallback              ,-    noWindowToEmbedderCallback              ,-    onWindowToEmbedder                      ,-    windowToEmbedderCallbackWrapper         ,-    windowToEmbedderClosure                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GObject as GObject-import qualified GI.GdkPixbuf as GdkPixbuf-import qualified GI.Cairo as Cairo--newtype Window = Window (ForeignPtr Window)-foreign import ccall "gdk_window_get_type"-    c_gdk_window_get_type :: IO GType--type instance ParentTypes Window = WindowParentTypes-type WindowParentTypes = '[GObject.Object]--instance GObject Window where-    gobjectIsInitiallyUnowned _ = False-    gobjectType _ = c_gdk_window_get_type-    --class GObject o => WindowK o-instance (GObject o, IsDescendantOf Window o) => WindowK o--toWindow :: WindowK o => o -> IO Window-toWindow = unsafeCastTo Window--noWindow :: Maybe Window-noWindow = Nothing--type family ResolveWindowMethod (t :: Symbol) (o :: *) :: * where-    ResolveWindowMethod "beep" o = WindowBeepMethodInfo-    ResolveWindowMethod "beginMoveDrag" o = WindowBeginMoveDragMethodInfo-    ResolveWindowMethod "beginMoveDragForDevice" o = WindowBeginMoveDragForDeviceMethodInfo-    ResolveWindowMethod "beginPaintRect" o = WindowBeginPaintRectMethodInfo-    ResolveWindowMethod "beginPaintRegion" o = WindowBeginPaintRegionMethodInfo-    ResolveWindowMethod "beginResizeDrag" o = WindowBeginResizeDragMethodInfo-    ResolveWindowMethod "beginResizeDragForDevice" o = WindowBeginResizeDragForDeviceMethodInfo-    ResolveWindowMethod "bindProperty" o = GObject.ObjectBindPropertyMethodInfo-    ResolveWindowMethod "bindPropertyFull" o = GObject.ObjectBindPropertyFullMethodInfo-    ResolveWindowMethod "configureFinished" o = WindowConfigureFinishedMethodInfo-    ResolveWindowMethod "coordsFromParent" o = WindowCoordsFromParentMethodInfo-    ResolveWindowMethod "coordsToParent" o = WindowCoordsToParentMethodInfo-    ResolveWindowMethod "createGlContext" o = WindowCreateGlContextMethodInfo-    ResolveWindowMethod "createSimilarImageSurface" o = WindowCreateSimilarImageSurfaceMethodInfo-    ResolveWindowMethod "createSimilarSurface" o = WindowCreateSimilarSurfaceMethodInfo-    ResolveWindowMethod "deiconify" o = WindowDeiconifyMethodInfo-    ResolveWindowMethod "destroy" o = WindowDestroyMethodInfo-    ResolveWindowMethod "destroyNotify" o = WindowDestroyNotifyMethodInfo-    ResolveWindowMethod "enableSynchronizedConfigure" o = WindowEnableSynchronizedConfigureMethodInfo-    ResolveWindowMethod "endPaint" o = WindowEndPaintMethodInfo-    ResolveWindowMethod "ensureNative" o = WindowEnsureNativeMethodInfo-    ResolveWindowMethod "flush" o = WindowFlushMethodInfo-    ResolveWindowMethod "focus" o = WindowFocusMethodInfo-    ResolveWindowMethod "forceFloating" o = GObject.ObjectForceFloatingMethodInfo-    ResolveWindowMethod "freezeNotify" o = GObject.ObjectFreezeNotifyMethodInfo-    ResolveWindowMethod "freezeToplevelUpdatesLibgtkOnly" o = WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo-    ResolveWindowMethod "freezeUpdates" o = WindowFreezeUpdatesMethodInfo-    ResolveWindowMethod "fullscreen" o = WindowFullscreenMethodInfo-    ResolveWindowMethod "fullscreenOnMonitor" o = WindowFullscreenOnMonitorMethodInfo-    ResolveWindowMethod "geometryChanged" o = WindowGeometryChangedMethodInfo-    ResolveWindowMethod "hasNative" o = WindowHasNativeMethodInfo-    ResolveWindowMethod "hide" o = WindowHideMethodInfo-    ResolveWindowMethod "iconify" o = WindowIconifyMethodInfo-    ResolveWindowMethod "inputShapeCombineRegion" o = WindowInputShapeCombineRegionMethodInfo-    ResolveWindowMethod "invalidateMaybeRecurse" o = WindowInvalidateMaybeRecurseMethodInfo-    ResolveWindowMethod "invalidateRect" o = WindowInvalidateRectMethodInfo-    ResolveWindowMethod "invalidateRegion" o = WindowInvalidateRegionMethodInfo-    ResolveWindowMethod "isDestroyed" o = WindowIsDestroyedMethodInfo-    ResolveWindowMethod "isFloating" o = GObject.ObjectIsFloatingMethodInfo-    ResolveWindowMethod "isInputOnly" o = WindowIsInputOnlyMethodInfo-    ResolveWindowMethod "isShaped" o = WindowIsShapedMethodInfo-    ResolveWindowMethod "isViewable" o = WindowIsViewableMethodInfo-    ResolveWindowMethod "isVisible" o = WindowIsVisibleMethodInfo-    ResolveWindowMethod "lower" o = WindowLowerMethodInfo-    ResolveWindowMethod "markPaintFromClip" o = WindowMarkPaintFromClipMethodInfo-    ResolveWindowMethod "maximize" o = WindowMaximizeMethodInfo-    ResolveWindowMethod "mergeChildInputShapes" o = WindowMergeChildInputShapesMethodInfo-    ResolveWindowMethod "mergeChildShapes" o = WindowMergeChildShapesMethodInfo-    ResolveWindowMethod "move" o = WindowMoveMethodInfo-    ResolveWindowMethod "moveRegion" o = WindowMoveRegionMethodInfo-    ResolveWindowMethod "moveResize" o = WindowMoveResizeMethodInfo-    ResolveWindowMethod "notify" o = GObject.ObjectNotifyMethodInfo-    ResolveWindowMethod "notifyByPspec" o = GObject.ObjectNotifyByPspecMethodInfo-    ResolveWindowMethod "peekChildren" o = WindowPeekChildrenMethodInfo-    ResolveWindowMethod "processUpdates" o = WindowProcessUpdatesMethodInfo-    ResolveWindowMethod "raise" o = WindowRaiseMethodInfo-    ResolveWindowMethod "ref" o = GObject.ObjectRefMethodInfo-    ResolveWindowMethod "refSink" o = GObject.ObjectRefSinkMethodInfo-    ResolveWindowMethod "registerDnd" o = WindowRegisterDndMethodInfo-    ResolveWindowMethod "reparent" o = WindowReparentMethodInfo-    ResolveWindowMethod "replaceData" o = GObject.ObjectReplaceDataMethodInfo-    ResolveWindowMethod "replaceQdata" o = GObject.ObjectReplaceQdataMethodInfo-    ResolveWindowMethod "resize" o = WindowResizeMethodInfo-    ResolveWindowMethod "restack" o = WindowRestackMethodInfo-    ResolveWindowMethod "runDispose" o = GObject.ObjectRunDisposeMethodInfo-    ResolveWindowMethod "scroll" o = WindowScrollMethodInfo-    ResolveWindowMethod "shapeCombineRegion" o = WindowShapeCombineRegionMethodInfo-    ResolveWindowMethod "show" o = WindowShowMethodInfo-    ResolveWindowMethod "showUnraised" o = WindowShowUnraisedMethodInfo-    ResolveWindowMethod "showWindowMenu" o = WindowShowWindowMenuMethodInfo-    ResolveWindowMethod "stealData" o = GObject.ObjectStealDataMethodInfo-    ResolveWindowMethod "stealQdata" o = GObject.ObjectStealQdataMethodInfo-    ResolveWindowMethod "stick" o = WindowStickMethodInfo-    ResolveWindowMethod "thawNotify" o = GObject.ObjectThawNotifyMethodInfo-    ResolveWindowMethod "thawToplevelUpdatesLibgtkOnly" o = WindowThawToplevelUpdatesLibgtkOnlyMethodInfo-    ResolveWindowMethod "thawUpdates" o = WindowThawUpdatesMethodInfo-    ResolveWindowMethod "unfullscreen" o = WindowUnfullscreenMethodInfo-    ResolveWindowMethod "unmaximize" o = WindowUnmaximizeMethodInfo-    ResolveWindowMethod "unref" o = GObject.ObjectUnrefMethodInfo-    ResolveWindowMethod "unstick" o = WindowUnstickMethodInfo-    ResolveWindowMethod "watchClosure" o = GObject.ObjectWatchClosureMethodInfo-    ResolveWindowMethod "withdraw" o = WindowWithdrawMethodInfo-    ResolveWindowMethod "getAcceptFocus" o = WindowGetAcceptFocusMethodInfo-    ResolveWindowMethod "getBackgroundPattern" o = WindowGetBackgroundPatternMethodInfo-    ResolveWindowMethod "getChildren" o = WindowGetChildrenMethodInfo-    ResolveWindowMethod "getChildrenWithUserData" o = WindowGetChildrenWithUserDataMethodInfo-    ResolveWindowMethod "getClipRegion" o = WindowGetClipRegionMethodInfo-    ResolveWindowMethod "getComposited" o = WindowGetCompositedMethodInfo-    ResolveWindowMethod "getCursor" o = WindowGetCursorMethodInfo-    ResolveWindowMethod "getData" o = GObject.ObjectGetDataMethodInfo-    ResolveWindowMethod "getDecorations" o = WindowGetDecorationsMethodInfo-    ResolveWindowMethod "getDeviceCursor" o = WindowGetDeviceCursorMethodInfo-    ResolveWindowMethod "getDeviceEvents" o = WindowGetDeviceEventsMethodInfo-    ResolveWindowMethod "getDevicePosition" o = WindowGetDevicePositionMethodInfo-    ResolveWindowMethod "getDevicePositionDouble" o = WindowGetDevicePositionDoubleMethodInfo-    ResolveWindowMethod "getDisplay" o = WindowGetDisplayMethodInfo-    ResolveWindowMethod "getDragProtocol" o = WindowGetDragProtocolMethodInfo-    ResolveWindowMethod "getEffectiveParent" o = WindowGetEffectiveParentMethodInfo-    ResolveWindowMethod "getEffectiveToplevel" o = WindowGetEffectiveToplevelMethodInfo-    ResolveWindowMethod "getEventCompression" o = WindowGetEventCompressionMethodInfo-    ResolveWindowMethod "getEvents" o = WindowGetEventsMethodInfo-    ResolveWindowMethod "getFocusOnMap" o = WindowGetFocusOnMapMethodInfo-    ResolveWindowMethod "getFrameClock" o = WindowGetFrameClockMethodInfo-    ResolveWindowMethod "getFrameExtents" o = WindowGetFrameExtentsMethodInfo-    ResolveWindowMethod "getFullscreenMode" o = WindowGetFullscreenModeMethodInfo-    ResolveWindowMethod "getGeometry" o = WindowGetGeometryMethodInfo-    ResolveWindowMethod "getGroup" o = WindowGetGroupMethodInfo-    ResolveWindowMethod "getHeight" o = WindowGetHeightMethodInfo-    ResolveWindowMethod "getModalHint" o = WindowGetModalHintMethodInfo-    ResolveWindowMethod "getOrigin" o = WindowGetOriginMethodInfo-    ResolveWindowMethod "getParent" o = WindowGetParentMethodInfo-    ResolveWindowMethod "getPassThrough" o = WindowGetPassThroughMethodInfo-    ResolveWindowMethod "getPointer" o = WindowGetPointerMethodInfo-    ResolveWindowMethod "getPosition" o = WindowGetPositionMethodInfo-    ResolveWindowMethod "getProperty" o = GObject.ObjectGetPropertyMethodInfo-    ResolveWindowMethod "getQdata" o = GObject.ObjectGetQdataMethodInfo-    ResolveWindowMethod "getRootCoords" o = WindowGetRootCoordsMethodInfo-    ResolveWindowMethod "getRootOrigin" o = WindowGetRootOriginMethodInfo-    ResolveWindowMethod "getScaleFactor" o = WindowGetScaleFactorMethodInfo-    ResolveWindowMethod "getScreen" o = WindowGetScreenMethodInfo-    ResolveWindowMethod "getSourceEvents" o = WindowGetSourceEventsMethodInfo-    ResolveWindowMethod "getState" o = WindowGetStateMethodInfo-    ResolveWindowMethod "getSupportMultidevice" o = WindowGetSupportMultideviceMethodInfo-    ResolveWindowMethod "getToplevel" o = WindowGetToplevelMethodInfo-    ResolveWindowMethod "getTypeHint" o = WindowGetTypeHintMethodInfo-    ResolveWindowMethod "getUpdateArea" o = WindowGetUpdateAreaMethodInfo-    ResolveWindowMethod "getUserData" o = WindowGetUserDataMethodInfo-    ResolveWindowMethod "getVisibleRegion" o = WindowGetVisibleRegionMethodInfo-    ResolveWindowMethod "getVisual" o = WindowGetVisualMethodInfo-    ResolveWindowMethod "getWidth" o = WindowGetWidthMethodInfo-    ResolveWindowMethod "getWindowType" o = WindowGetWindowTypeMethodInfo-    ResolveWindowMethod "setAcceptFocus" o = WindowSetAcceptFocusMethodInfo-    ResolveWindowMethod "setBackground" o = WindowSetBackgroundMethodInfo-    ResolveWindowMethod "setBackgroundPattern" o = WindowSetBackgroundPatternMethodInfo-    ResolveWindowMethod "setBackgroundRgba" o = WindowSetBackgroundRgbaMethodInfo-    ResolveWindowMethod "setChildInputShapes" o = WindowSetChildInputShapesMethodInfo-    ResolveWindowMethod "setChildShapes" o = WindowSetChildShapesMethodInfo-    ResolveWindowMethod "setComposited" o = WindowSetCompositedMethodInfo-    ResolveWindowMethod "setCursor" o = WindowSetCursorMethodInfo-    ResolveWindowMethod "setData" o = GObject.ObjectSetDataMethodInfo-    ResolveWindowMethod "setDecorations" o = WindowSetDecorationsMethodInfo-    ResolveWindowMethod "setDeviceCursor" o = WindowSetDeviceCursorMethodInfo-    ResolveWindowMethod "setDeviceEvents" o = WindowSetDeviceEventsMethodInfo-    ResolveWindowMethod "setEventCompression" o = WindowSetEventCompressionMethodInfo-    ResolveWindowMethod "setEvents" o = WindowSetEventsMethodInfo-    ResolveWindowMethod "setFocusOnMap" o = WindowSetFocusOnMapMethodInfo-    ResolveWindowMethod "setFullscreenMode" o = WindowSetFullscreenModeMethodInfo-    ResolveWindowMethod "setFunctions" o = WindowSetFunctionsMethodInfo-    ResolveWindowMethod "setGeometryHints" o = WindowSetGeometryHintsMethodInfo-    ResolveWindowMethod "setGroup" o = WindowSetGroupMethodInfo-    ResolveWindowMethod "setIconList" o = WindowSetIconListMethodInfo-    ResolveWindowMethod "setIconName" o = WindowSetIconNameMethodInfo-    ResolveWindowMethod "setKeepAbove" o = WindowSetKeepAboveMethodInfo-    ResolveWindowMethod "setKeepBelow" o = WindowSetKeepBelowMethodInfo-    ResolveWindowMethod "setModalHint" o = WindowSetModalHintMethodInfo-    ResolveWindowMethod "setOpacity" o = WindowSetOpacityMethodInfo-    ResolveWindowMethod "setOpaqueRegion" o = WindowSetOpaqueRegionMethodInfo-    ResolveWindowMethod "setOverrideRedirect" o = WindowSetOverrideRedirectMethodInfo-    ResolveWindowMethod "setPassThrough" o = WindowSetPassThroughMethodInfo-    ResolveWindowMethod "setProperty" o = GObject.ObjectSetPropertyMethodInfo-    ResolveWindowMethod "setRole" o = WindowSetRoleMethodInfo-    ResolveWindowMethod "setShadowWidth" o = WindowSetShadowWidthMethodInfo-    ResolveWindowMethod "setSkipPagerHint" o = WindowSetSkipPagerHintMethodInfo-    ResolveWindowMethod "setSkipTaskbarHint" o = WindowSetSkipTaskbarHintMethodInfo-    ResolveWindowMethod "setSourceEvents" o = WindowSetSourceEventsMethodInfo-    ResolveWindowMethod "setStartupId" o = WindowSetStartupIdMethodInfo-    ResolveWindowMethod "setStaticGravities" o = WindowSetStaticGravitiesMethodInfo-    ResolveWindowMethod "setSupportMultidevice" o = WindowSetSupportMultideviceMethodInfo-    ResolveWindowMethod "setTitle" o = WindowSetTitleMethodInfo-    ResolveWindowMethod "setTransientFor" o = WindowSetTransientForMethodInfo-    ResolveWindowMethod "setTypeHint" o = WindowSetTypeHintMethodInfo-    ResolveWindowMethod "setUrgencyHint" o = WindowSetUrgencyHintMethodInfo-    ResolveWindowMethod "setUserData" o = WindowSetUserDataMethodInfo-    ResolveWindowMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabelProxy t (Window -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWindowMethod t Window, MethodInfo info Window p) => IsLabel t (Window -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif---- signal Window::create-surface-type WindowCreateSurfaceCallback =-    Int32 ->-    Int32 ->-    IO Cairo.Surface--noWindowCreateSurfaceCallback :: Maybe WindowCreateSurfaceCallback-noWindowCreateSurfaceCallback = Nothing--type WindowCreateSurfaceCallbackC =-    Ptr () ->                               -- object-    Int32 ->-    Int32 ->-    Ptr () ->                               -- user_data-    IO (Ptr Cairo.Surface)--foreign import ccall "wrapper"-    mkWindowCreateSurfaceCallback :: WindowCreateSurfaceCallbackC -> IO (FunPtr WindowCreateSurfaceCallbackC)--windowCreateSurfaceClosure :: WindowCreateSurfaceCallback -> IO Closure-windowCreateSurfaceClosure cb = newCClosure =<< mkWindowCreateSurfaceCallback wrapped-    where wrapped = windowCreateSurfaceCallbackWrapper cb--windowCreateSurfaceCallbackWrapper ::-    WindowCreateSurfaceCallback ->-    Ptr () ->-    Int32 ->-    Int32 ->-    Ptr () ->-    IO (Ptr Cairo.Surface)-windowCreateSurfaceCallbackWrapper _cb _ width height _ = do-    result <- _cb  width height-    result' <- copyBoxed result-    return result'--onWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId-onWindowCreateSurface obj cb = liftIO $ connectWindowCreateSurface obj cb SignalConnectBefore-afterWindowCreateSurface :: (GObject a, MonadIO m) => a -> WindowCreateSurfaceCallback -> m SignalHandlerId-afterWindowCreateSurface obj cb = connectWindowCreateSurface obj cb SignalConnectAfter--connectWindowCreateSurface :: (GObject a, MonadIO m) =>-                              a -> WindowCreateSurfaceCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowCreateSurface obj cb after = liftIO $ do-    cb' <- mkWindowCreateSurfaceCallback (windowCreateSurfaceCallbackWrapper cb)-    connectSignalFunPtr obj "create-surface" cb' after---- signal Window::from-embedder-type WindowFromEmbedderCallback =-    Double ->-    Double ->-    IO (Double,Double)--noWindowFromEmbedderCallback :: Maybe WindowFromEmbedderCallback-noWindowFromEmbedderCallback = Nothing--type WindowFromEmbedderCallbackC =-    Ptr () ->                               -- object-    CDouble ->-    CDouble ->-    Ptr CDouble ->-    Ptr CDouble ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowFromEmbedderCallback :: WindowFromEmbedderCallbackC -> IO (FunPtr WindowFromEmbedderCallbackC)--windowFromEmbedderClosure :: WindowFromEmbedderCallback -> IO Closure-windowFromEmbedderClosure cb = newCClosure =<< mkWindowFromEmbedderCallback wrapped-    where wrapped = windowFromEmbedderCallbackWrapper cb--windowFromEmbedderCallbackWrapper ::-    WindowFromEmbedderCallback ->-    Ptr () ->-    CDouble ->-    CDouble ->-    Ptr CDouble ->-    Ptr CDouble ->-    Ptr () ->-    IO ()-windowFromEmbedderCallbackWrapper _cb _ embedderX embedderY offscreenX offscreenY _ = do-    let embedderX' = realToFrac embedderX-    let embedderY' = realToFrac embedderY-    (outoffscreenX, outoffscreenY) <- _cb  embedderX' embedderY'-    let outoffscreenX' = realToFrac outoffscreenX-    poke offscreenX outoffscreenX'-    let outoffscreenY' = realToFrac outoffscreenY-    poke offscreenY outoffscreenY'--onWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId-onWindowFromEmbedder obj cb = liftIO $ connectWindowFromEmbedder obj cb SignalConnectBefore-afterWindowFromEmbedder :: (GObject a, MonadIO m) => a -> WindowFromEmbedderCallback -> m SignalHandlerId-afterWindowFromEmbedder obj cb = connectWindowFromEmbedder obj cb SignalConnectAfter--connectWindowFromEmbedder :: (GObject a, MonadIO m) =>-                             a -> WindowFromEmbedderCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowFromEmbedder obj cb after = liftIO $ do-    cb' <- mkWindowFromEmbedderCallback (windowFromEmbedderCallbackWrapper cb)-    connectSignalFunPtr obj "from-embedder" cb' after---- signal Window::pick-embedded-child-type WindowPickEmbeddedChildCallback =-    Double ->-    Double ->-    IO (Maybe Window)--noWindowPickEmbeddedChildCallback :: Maybe WindowPickEmbeddedChildCallback-noWindowPickEmbeddedChildCallback = Nothing--type WindowPickEmbeddedChildCallbackC =-    Ptr () ->                               -- object-    CDouble ->-    CDouble ->-    Ptr () ->                               -- user_data-    IO (Ptr Window)--foreign import ccall "wrapper"-    mkWindowPickEmbeddedChildCallback :: WindowPickEmbeddedChildCallbackC -> IO (FunPtr WindowPickEmbeddedChildCallbackC)--windowPickEmbeddedChildClosure :: WindowPickEmbeddedChildCallback -> IO Closure-windowPickEmbeddedChildClosure cb = newCClosure =<< mkWindowPickEmbeddedChildCallback wrapped-    where wrapped = windowPickEmbeddedChildCallbackWrapper cb--windowPickEmbeddedChildCallbackWrapper ::-    WindowPickEmbeddedChildCallback ->-    Ptr () ->-    CDouble ->-    CDouble ->-    Ptr () ->-    IO (Ptr Window)-windowPickEmbeddedChildCallbackWrapper _cb _ x y _ = do-    let x' = realToFrac x-    let y' = realToFrac y-    result <- _cb  x' y'-    maybeM nullPtr result $ \result' -> do-        let result'' = unsafeManagedPtrCastPtr result'-        return result''--onWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId-onWindowPickEmbeddedChild obj cb = liftIO $ connectWindowPickEmbeddedChild obj cb SignalConnectBefore-afterWindowPickEmbeddedChild :: (GObject a, MonadIO m) => a -> WindowPickEmbeddedChildCallback -> m SignalHandlerId-afterWindowPickEmbeddedChild obj cb = connectWindowPickEmbeddedChild obj cb SignalConnectAfter--connectWindowPickEmbeddedChild :: (GObject a, MonadIO m) =>-                                  a -> WindowPickEmbeddedChildCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowPickEmbeddedChild obj cb after = liftIO $ do-    cb' <- mkWindowPickEmbeddedChildCallback (windowPickEmbeddedChildCallbackWrapper cb)-    connectSignalFunPtr obj "pick-embedded-child" cb' after---- signal Window::to-embedder-type WindowToEmbedderCallback =-    Double ->-    Double ->-    IO (Double,Double)--noWindowToEmbedderCallback :: Maybe WindowToEmbedderCallback-noWindowToEmbedderCallback = Nothing--type WindowToEmbedderCallbackC =-    Ptr () ->                               -- object-    CDouble ->-    CDouble ->-    Ptr CDouble ->-    Ptr CDouble ->-    Ptr () ->                               -- user_data-    IO ()--foreign import ccall "wrapper"-    mkWindowToEmbedderCallback :: WindowToEmbedderCallbackC -> IO (FunPtr WindowToEmbedderCallbackC)--windowToEmbedderClosure :: WindowToEmbedderCallback -> IO Closure-windowToEmbedderClosure cb = newCClosure =<< mkWindowToEmbedderCallback wrapped-    where wrapped = windowToEmbedderCallbackWrapper cb--windowToEmbedderCallbackWrapper ::-    WindowToEmbedderCallback ->-    Ptr () ->-    CDouble ->-    CDouble ->-    Ptr CDouble ->-    Ptr CDouble ->-    Ptr () ->-    IO ()-windowToEmbedderCallbackWrapper _cb _ offscreenX offscreenY embedderX embedderY _ = do-    let offscreenX' = realToFrac offscreenX-    let offscreenY' = realToFrac offscreenY-    (outembedderX, outembedderY) <- _cb  offscreenX' offscreenY'-    let outembedderX' = realToFrac outembedderX-    poke embedderX outembedderX'-    let outembedderY' = realToFrac outembedderY-    poke embedderY outembedderY'--onWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId-onWindowToEmbedder obj cb = liftIO $ connectWindowToEmbedder obj cb SignalConnectBefore-afterWindowToEmbedder :: (GObject a, MonadIO m) => a -> WindowToEmbedderCallback -> m SignalHandlerId-afterWindowToEmbedder obj cb = connectWindowToEmbedder obj cb SignalConnectAfter--connectWindowToEmbedder :: (GObject a, MonadIO m) =>-                           a -> WindowToEmbedderCallback -> SignalConnectMode -> m SignalHandlerId-connectWindowToEmbedder obj cb after = liftIO $ do-    cb' <- mkWindowToEmbedderCallback (windowToEmbedderCallbackWrapper cb)-    connectSignalFunPtr obj "to-embedder" cb' after---- VVV Prop "cursor"-   -- Type: TInterface "Gdk" "Cursor"-   -- Flags: [PropertyReadable,PropertyWritable]-   -- Nullable: (Just True,Just True)--getWindowCursor :: (MonadIO m, WindowK o) => o -> m (Maybe Cursor)-getWindowCursor obj = liftIO $ getObjectPropertyObject obj "cursor" Cursor--setWindowCursor :: (MonadIO m, WindowK o, CursorK a) => o -> a -> m ()-setWindowCursor obj val = liftIO $ setObjectPropertyObject obj "cursor" (Just val)--constructWindowCursor :: (CursorK a) => a -> IO ([Char], GValue)-constructWindowCursor val = constructObjectPropertyObject "cursor" (Just val)--clearWindowCursor :: (MonadIO m, WindowK o) => o -> m ()-clearWindowCursor obj = liftIO $ setObjectPropertyObject obj "cursor" (Nothing :: Maybe Cursor)--data WindowCursorPropertyInfo-instance AttrInfo WindowCursorPropertyInfo where-    type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WindowCursorPropertyInfo = CursorK-    type AttrBaseTypeConstraint WindowCursorPropertyInfo = WindowK-    type AttrGetType WindowCursorPropertyInfo = (Maybe Cursor)-    type AttrLabel WindowCursorPropertyInfo = "cursor"-    attrGet _ = getWindowCursor-    attrSet _ = setWindowCursor-    attrConstruct _ = constructWindowCursor-    attrClear _ = clearWindowCursor--type instance AttributeList Window = WindowAttributeList-type WindowAttributeList = ('[ '("cursor", WindowCursorPropertyInfo)] :: [(Symbol, *)])--windowCursor :: AttrLabelProxy "cursor"-windowCursor = AttrLabelProxy--data WindowCreateSurfaceSignalInfo-instance SignalInfo WindowCreateSurfaceSignalInfo where-    type HaskellCallbackType WindowCreateSurfaceSignalInfo = WindowCreateSurfaceCallback-    connectSignal _ = connectWindowCreateSurface--data WindowFromEmbedderSignalInfo-instance SignalInfo WindowFromEmbedderSignalInfo where-    type HaskellCallbackType WindowFromEmbedderSignalInfo = WindowFromEmbedderCallback-    connectSignal _ = connectWindowFromEmbedder--data WindowPickEmbeddedChildSignalInfo-instance SignalInfo WindowPickEmbeddedChildSignalInfo where-    type HaskellCallbackType WindowPickEmbeddedChildSignalInfo = WindowPickEmbeddedChildCallback-    connectSignal _ = connectWindowPickEmbeddedChild--data WindowToEmbedderSignalInfo-instance SignalInfo WindowToEmbedderSignalInfo where-    type HaskellCallbackType WindowToEmbedderSignalInfo = WindowToEmbedderCallback-    connectSignal _ = connectWindowToEmbedder--type instance SignalList Window = WindowSignalList-type WindowSignalList = ('[ '("createSurface", WindowCreateSurfaceSignalInfo), '("fromEmbedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pickEmbeddedChild", WindowPickEmbeddedChildSignalInfo), '("toEmbedder", WindowToEmbedderSignalInfo)] :: [(Symbol, *)])---- method Window::new--- method type : Constructor--- Args : [Arg {argCName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_new" gdk_window_new :: -    Ptr Window ->                           -- parent : TInterface "Gdk" "Window"-    Ptr WindowAttr ->                       -- attributes : TInterface "Gdk" "WindowAttr"-    CUInt ->                                -- attributes_mask : TInterface "Gdk" "WindowAttributesType"-    IO (Ptr Window)---windowNew ::-    (MonadIO m, WindowK a) =>-    Maybe (a)                               -- parent-    -> WindowAttr                           -- attributes-    -> [WindowAttributesType]               -- attributesMask-    -> m Window                             -- result-windowNew parent attributes attributesMask = liftIO $ do-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            let jParent' = unsafeManagedPtrCastPtr jParent-            return jParent'-    let attributes' = unsafeManagedPtrGetPtr attributes-    let attributesMask' = gflagsToWord attributesMask-    result <- gdk_window_new maybeParent attributes' attributesMask'-    checkUnexpectedReturnNULL "gdk_window_new" result-    result' <- (wrapObject Window) result-    whenJust parent touchManagedPtr-    touchManagedPtr attributes-    return result'---- method Window::beep--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_beep" gdk_window_beep :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowBeep ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowBeep _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_beep _obj'-    touchManagedPtr _obj-    return ()--data WindowBeepMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowBeepMethodInfo a signature where-    overloadedMethod _ = windowBeep---- method Window::begin_move_drag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_begin_move_drag" gdk_window_begin_move_drag :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- button : TBasicType TInt-    Int32 ->                                -- root_x : TBasicType TInt-    Int32 ->                                -- root_y : TBasicType TInt-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginMoveDrag ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- button-    -> Int32                                -- rootX-    -> Int32                                -- rootY-    -> Word32                               -- timestamp-    -> m ()                                 -- result-windowBeginMoveDrag _obj button rootX rootY timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_begin_move_drag _obj' button rootX rootY timestamp-    touchManagedPtr _obj-    return ()--data WindowBeginMoveDragMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginMoveDragMethodInfo a signature where-    overloadedMethod _ = windowBeginMoveDrag---- method Window::begin_move_drag_for_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_begin_move_drag_for_device" gdk_window_begin_move_drag_for_device :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    Int32 ->                                -- button : TBasicType TInt-    Int32 ->                                -- root_x : TBasicType TInt-    Int32 ->                                -- root_y : TBasicType TInt-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginMoveDragForDevice ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> Int32                                -- button-    -> Int32                                -- rootX-    -> Int32                                -- rootY-    -> Word32                               -- timestamp-    -> m ()                                 -- result-windowBeginMoveDragForDevice _obj device button rootX rootY timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    gdk_window_begin_move_drag_for_device _obj' device' button rootX rootY timestamp-    touchManagedPtr _obj-    touchManagedPtr device-    return ()--data WindowBeginMoveDragForDeviceMethodInfo-instance (signature ~ (b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowBeginMoveDragForDeviceMethodInfo a signature where-    overloadedMethod _ = windowBeginMoveDragForDevice---- method Window::begin_paint_rect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_begin_paint_rect" gdk_window_begin_paint_rect :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Rectangle ->                        -- rectangle : TInterface "Gdk" "Rectangle"-    IO ()---windowBeginPaintRect ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Rectangle                            -- rectangle-    -> m ()                                 -- result-windowBeginPaintRect _obj rectangle = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let rectangle' = unsafeManagedPtrGetPtr rectangle-    gdk_window_begin_paint_rect _obj' rectangle'-    touchManagedPtr _obj-    touchManagedPtr rectangle-    return ()--data WindowBeginPaintRectMethodInfo-instance (signature ~ (Rectangle -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginPaintRectMethodInfo a signature where-    overloadedMethod _ = windowBeginPaintRect---- method Window::begin_paint_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_begin_paint_region" gdk_window_begin_paint_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Region ->                     -- region : TInterface "cairo" "Region"-    IO ()---windowBeginPaintRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Cairo.Region                         -- region-    -> m ()                                 -- result-windowBeginPaintRegion _obj region = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let region' = unsafeManagedPtrGetPtr region-    gdk_window_begin_paint_region _obj' region'-    touchManagedPtr _obj-    touchManagedPtr region-    return ()--data WindowBeginPaintRegionMethodInfo-instance (signature ~ (Cairo.Region -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginPaintRegionMethodInfo a signature where-    overloadedMethod _ = windowBeginPaintRegion---- method Window::begin_resize_drag--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_begin_resize_drag" gdk_window_begin_resize_drag :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- edge : TInterface "Gdk" "WindowEdge"-    Int32 ->                                -- button : TBasicType TInt-    Int32 ->                                -- root_x : TBasicType TInt-    Int32 ->                                -- root_y : TBasicType TInt-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginResizeDrag ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> WindowEdge                           -- edge-    -> Int32                                -- button-    -> Int32                                -- rootX-    -> Int32                                -- rootY-    -> Word32                               -- timestamp-    -> m ()                                 -- result-windowBeginResizeDrag _obj edge button rootX rootY timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let edge' = (fromIntegral . fromEnum) edge-    gdk_window_begin_resize_drag _obj' edge' button rootX rootY timestamp-    touchManagedPtr _obj-    return ()--data WindowBeginResizeDragMethodInfo-instance (signature ~ (WindowEdge -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowBeginResizeDragMethodInfo a signature where-    overloadedMethod _ = windowBeginResizeDrag---- method Window::begin_resize_drag_for_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_begin_resize_drag_for_device" gdk_window_begin_resize_drag_for_device :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- edge : TInterface "Gdk" "WindowEdge"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    Int32 ->                                -- button : TBasicType TInt-    Int32 ->                                -- root_x : TBasicType TInt-    Int32 ->                                -- root_y : TBasicType TInt-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginResizeDragForDevice ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- _obj-    -> WindowEdge                           -- edge-    -> b                                    -- device-    -> Int32                                -- button-    -> Int32                                -- rootX-    -> Int32                                -- rootY-    -> Word32                               -- timestamp-    -> m ()                                 -- result-windowBeginResizeDragForDevice _obj edge device button rootX rootY timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let edge' = (fromIntegral . fromEnum) edge-    let device' = unsafeManagedPtrCastPtr device-    gdk_window_begin_resize_drag_for_device _obj' edge' device' button rootX rootY timestamp-    touchManagedPtr _obj-    touchManagedPtr device-    return ()--data WindowBeginResizeDragForDeviceMethodInfo-instance (signature ~ (WindowEdge -> b -> Int32 -> Int32 -> Int32 -> Word32 -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowBeginResizeDragForDeviceMethodInfo a signature where-    overloadedMethod _ = windowBeginResizeDragForDevice---- method Window::configure_finished--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_configure_finished" gdk_window_configure_finished :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()--{-# DEPRECATED windowConfigureFinished ["(Since version 3.8)","this function is no longer needed"]#-}-windowConfigureFinished ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowConfigureFinished _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_configure_finished _obj'-    touchManagedPtr _obj-    return ()--data WindowConfigureFinishedMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowConfigureFinishedMethodInfo a signature where-    overloadedMethod _ = windowConfigureFinished---- method Window::coords_from_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_coords_from_parent" gdk_window_coords_from_parent :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CDouble ->                              -- parent_x : TBasicType TDouble-    CDouble ->                              -- parent_y : TBasicType TDouble-    Ptr CDouble ->                          -- x : TBasicType TDouble-    Ptr CDouble ->                          -- y : TBasicType TDouble-    IO ()---windowCoordsFromParent ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Double                               -- parentX-    -> Double                               -- parentY-    -> m (Double,Double)                    -- result-windowCoordsFromParent _obj parentX parentY = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let parentX' = realToFrac parentX-    let parentY' = realToFrac parentY-    x <- allocMem :: IO (Ptr CDouble)-    y <- allocMem :: IO (Ptr CDouble)-    gdk_window_coords_from_parent _obj' parentX' parentY' x y-    x' <- peek x-    let x'' = realToFrac x'-    y' <- peek y-    let y'' = realToFrac y'-    touchManagedPtr _obj-    freeMem x-    freeMem y-    return (x'', y'')--data WindowCoordsFromParentMethodInfo-instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m, WindowK a) => MethodInfo WindowCoordsFromParentMethodInfo a signature where-    overloadedMethod _ = windowCoordsFromParent---- method Window::coords_to_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_coords_to_parent" gdk_window_coords_to_parent :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CDouble ->                              -- x : TBasicType TDouble-    CDouble ->                              -- y : TBasicType TDouble-    Ptr CDouble ->                          -- parent_x : TBasicType TDouble-    Ptr CDouble ->                          -- parent_y : TBasicType TDouble-    IO ()---windowCoordsToParent ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Double                               -- x-    -> Double                               -- y-    -> m (Double,Double)                    -- result-windowCoordsToParent _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let x' = realToFrac x-    let y' = realToFrac y-    parentX <- allocMem :: IO (Ptr CDouble)-    parentY <- allocMem :: IO (Ptr CDouble)-    gdk_window_coords_to_parent _obj' x' y' parentX parentY-    parentX' <- peek parentX-    let parentX'' = realToFrac parentX'-    parentY' <- peek parentY-    let parentY'' = realToFrac parentY'-    touchManagedPtr _obj-    freeMem parentX-    freeMem parentY-    return (parentX'', parentY'')--data WindowCoordsToParentMethodInfo-instance (signature ~ (Double -> Double -> m (Double,Double)), MonadIO m, WindowK a) => MethodInfo WindowCoordsToParentMethodInfo a signature where-    overloadedMethod _ = windowCoordsToParent---- method Window::create_gl_context--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "GLContext")--- throws : True--- Skip return : False--foreign import ccall "gdk_window_create_gl_context" gdk_window_create_gl_context :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr (Ptr GError) ->                     -- error-    IO (Ptr GLContext)---windowCreateGlContext ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m GLContext                          -- result-windowCreateGlContext _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        result <- propagateGError $ gdk_window_create_gl_context _obj'-        checkUnexpectedReturnNULL "gdk_window_create_gl_context" result-        result' <- (wrapObject GLContext) result-        touchManagedPtr _obj-        return result'-     ) (do-        return ()-     )--data WindowCreateGlContextMethodInfo-instance (signature ~ (m GLContext), MonadIO m, WindowK a) => MethodInfo WindowCreateGlContextMethodInfo a signature where-    overloadedMethod _ = windowCreateGlContext---- method Window::create_similar_image_surface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_create_similar_image_surface" gdk_window_create_similar_image_surface :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- format : TBasicType TInt-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    Int32 ->                                -- scale : TBasicType TInt-    IO (Ptr Cairo.Surface)---windowCreateSimilarImageSurface ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- format-    -> Int32                                -- width-    -> Int32                                -- height-    -> Int32                                -- scale-    -> m Cairo.Surface                      -- result-windowCreateSimilarImageSurface _obj format width height scale = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_create_similar_image_surface _obj' format width height scale-    checkUnexpectedReturnNULL "gdk_window_create_similar_image_surface" result-    result' <- (wrapBoxed Cairo.Surface) result-    touchManagedPtr _obj-    return result'--data WindowCreateSimilarImageSurfaceMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m Cairo.Surface), MonadIO m, WindowK a) => MethodInfo WindowCreateSimilarImageSurfaceMethodInfo a signature where-    overloadedMethod _ = windowCreateSimilarImageSurface---- method Window::create_similar_surface--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Surface")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_create_similar_surface" gdk_window_create_similar_surface :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- content : TInterface "cairo" "Content"-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    IO (Ptr Cairo.Surface)---windowCreateSimilarSurface ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Cairo.Content                        -- content-    -> Int32                                -- width-    -> Int32                                -- height-    -> m Cairo.Surface                      -- result-windowCreateSimilarSurface _obj content width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let content' = (fromIntegral . fromEnum) content-    result <- gdk_window_create_similar_surface _obj' content' width height-    checkUnexpectedReturnNULL "gdk_window_create_similar_surface" result-    result' <- (wrapBoxed Cairo.Surface) result-    touchManagedPtr _obj-    return result'--data WindowCreateSimilarSurfaceMethodInfo-instance (signature ~ (Cairo.Content -> Int32 -> Int32 -> m Cairo.Surface), MonadIO m, WindowK a) => MethodInfo WindowCreateSimilarSurfaceMethodInfo a signature where-    overloadedMethod _ = windowCreateSimilarSurface---- method Window::deiconify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_deiconify" gdk_window_deiconify :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowDeiconify ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowDeiconify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_deiconify _obj'-    touchManagedPtr _obj-    return ()--data WindowDeiconifyMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDeiconifyMethodInfo a signature where-    overloadedMethod _ = windowDeiconify---- method Window::destroy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_destroy" gdk_window_destroy :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowDestroy ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_destroy _obj'-    touchManagedPtr _obj-    return ()--data WindowDestroyMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDestroyMethodInfo a signature where-    overloadedMethod _ = windowDestroy---- method Window::destroy_notify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_destroy_notify" gdk_window_destroy_notify :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowDestroyNotify ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowDestroyNotify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_destroy_notify _obj'-    touchManagedPtr _obj-    return ()--data WindowDestroyNotifyMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowDestroyNotifyMethodInfo a signature where-    overloadedMethod _ = windowDestroyNotify---- method Window::enable_synchronized_configure--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_enable_synchronized_configure" gdk_window_enable_synchronized_configure :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()--{-# DEPRECATED windowEnableSynchronizedConfigure ["(Since version 3.8)","this function is no longer needed"]#-}-windowEnableSynchronizedConfigure ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowEnableSynchronizedConfigure _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_enable_synchronized_configure _obj'-    touchManagedPtr _obj-    return ()--data WindowEnableSynchronizedConfigureMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowEnableSynchronizedConfigureMethodInfo a signature where-    overloadedMethod _ = windowEnableSynchronizedConfigure---- method Window::end_paint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_end_paint" gdk_window_end_paint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowEndPaint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowEndPaint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_end_paint _obj'-    touchManagedPtr _obj-    return ()--data WindowEndPaintMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowEndPaintMethodInfo a signature where-    overloadedMethod _ = windowEndPaint---- method Window::ensure_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_ensure_native" gdk_window_ensure_native :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowEnsureNative ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowEnsureNative _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_ensure_native _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowEnsureNativeMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowEnsureNativeMethodInfo a signature where-    overloadedMethod _ = windowEnsureNative---- method Window::flush--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_flush" gdk_window_flush :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()--{-# DEPRECATED windowFlush ["(Since version 3.14)"]#-}-windowFlush ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_flush _obj'-    touchManagedPtr _obj-    return ()--data WindowFlushMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFlushMethodInfo a signature where-    overloadedMethod _ = windowFlush---- method Window::focus--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_focus" gdk_window_focus :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowFocus ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Word32                               -- timestamp-    -> m ()                                 -- result-windowFocus _obj timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_focus _obj' timestamp-    touchManagedPtr _obj-    return ()--data WindowFocusMethodInfo-instance (signature ~ (Word32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowFocusMethodInfo a signature where-    overloadedMethod _ = windowFocus---- method Window::freeze_toplevel_updates_libgtk_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_freeze_toplevel_updates_libgtk_only" gdk_window_freeze_toplevel_updates_libgtk_only :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()--{-# DEPRECATED windowFreezeToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-}-windowFreezeToplevelUpdatesLibgtkOnly ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowFreezeToplevelUpdatesLibgtkOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_freeze_toplevel_updates_libgtk_only _obj'-    touchManagedPtr _obj-    return ()--data WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo a signature where-    overloadedMethod _ = windowFreezeToplevelUpdatesLibgtkOnly---- method Window::freeze_updates--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_freeze_updates" gdk_window_freeze_updates :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowFreezeUpdates ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowFreezeUpdates _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_freeze_updates _obj'-    touchManagedPtr _obj-    return ()--data WindowFreezeUpdatesMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFreezeUpdatesMethodInfo a signature where-    overloadedMethod _ = windowFreezeUpdates---- method Window::fullscreen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_fullscreen" gdk_window_fullscreen :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowFullscreen ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowFullscreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_fullscreen _obj'-    touchManagedPtr _obj-    return ()--data WindowFullscreenMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenMethodInfo a signature where-    overloadedMethod _ = windowFullscreen---- method Window::fullscreen_on_monitor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "monitor", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_fullscreen_on_monitor" gdk_window_fullscreen_on_monitor :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- monitor : TBasicType TInt-    IO ()---windowFullscreenOnMonitor ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- monitor-    -> m ()                                 -- result-windowFullscreenOnMonitor _obj monitor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_fullscreen_on_monitor _obj' monitor-    touchManagedPtr _obj-    return ()--data WindowFullscreenOnMonitorMethodInfo-instance (signature ~ (Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowFullscreenOnMonitorMethodInfo a signature where-    overloadedMethod _ = windowFullscreenOnMonitor---- method Window::geometry_changed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_geometry_changed" gdk_window_geometry_changed :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowGeometryChanged ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowGeometryChanged _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_geometry_changed _obj'-    touchManagedPtr _obj-    return ()--data WindowGeometryChangedMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowGeometryChangedMethodInfo a signature where-    overloadedMethod _ = windowGeometryChanged---- method Window::get_accept_focus--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_accept_focus" gdk_window_get_accept_focus :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowGetAcceptFocus ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowGetAcceptFocus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_accept_focus _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowGetAcceptFocusMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetAcceptFocusMethodInfo a signature where-    overloadedMethod _ = windowGetAcceptFocus---- method Window::get_background_pattern--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Pattern")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_background_pattern" gdk_window_get_background_pattern :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Cairo.Pattern)---windowGetBackgroundPattern ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Maybe Cairo.Pattern)              -- result-windowGetBackgroundPattern _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_background_pattern _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newBoxed Cairo.Pattern) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data WindowGetBackgroundPatternMethodInfo-instance (signature ~ (m (Maybe Cairo.Pattern)), MonadIO m, WindowK a) => MethodInfo WindowGetBackgroundPatternMethodInfo a signature where-    overloadedMethod _ = windowGetBackgroundPattern---- method Window::get_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Window"))--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_children" gdk_window_get_children :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr (GList (Ptr Window)))---windowGetChildren ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m [Window]                           -- result-windowGetChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_children _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data WindowGetChildrenMethodInfo-instance (signature ~ (m [Window]), MonadIO m, WindowK a) => MethodInfo WindowGetChildrenMethodInfo a signature where-    overloadedMethod _ = windowGetChildren---- method Window::get_children_with_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Window"))--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_children_with_user_data" gdk_window_get_children_with_user_data :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO (Ptr (GList (Ptr Window)))---windowGetChildrenWithUserData ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Ptr ()                               -- userData-    -> m [Window]                           -- result-windowGetChildrenWithUserData _obj userData = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_children_with_user_data _obj' userData-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--data WindowGetChildrenWithUserDataMethodInfo-instance (signature ~ (Ptr () -> m [Window]), MonadIO m, WindowK a) => MethodInfo WindowGetChildrenWithUserDataMethodInfo a signature where-    overloadedMethod _ = windowGetChildrenWithUserData---- method Window::get_clip_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Region")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_clip_region" gdk_window_get_clip_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Cairo.Region)---windowGetClipRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Cairo.Region                       -- result-windowGetClipRegion _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_clip_region _obj'-    checkUnexpectedReturnNULL "gdk_window_get_clip_region" result-    result' <- (wrapBoxed Cairo.Region) result-    touchManagedPtr _obj-    return result'--data WindowGetClipRegionMethodInfo-instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetClipRegionMethodInfo a signature where-    overloadedMethod _ = windowGetClipRegion---- method Window::get_composited--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_composited" gdk_window_get_composited :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt--{-# DEPRECATED windowGetComposited ["(Since version 3.16)","Compositing is an outdated technology that","  only ever worked on X11."]#-}-windowGetComposited ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowGetComposited _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_composited _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowGetCompositedMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetCompositedMethodInfo a signature where-    overloadedMethod _ = windowGetComposited---- method Window::get_cursor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_cursor" gdk_window_get_cursor :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Cursor)---windowGetCursor ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Maybe Cursor)                     -- result-windowGetCursor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_cursor _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Cursor) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data WindowGetCursorMethodInfo-instance (signature ~ (m (Maybe Cursor)), MonadIO m, WindowK a) => MethodInfo WindowGetCursorMethodInfo a signature where-    overloadedMethod _ = windowGetCursor---- method Window::get_decorations--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_decorations" gdk_window_get_decorations :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr CUInt ->                            -- decorations : TInterface "Gdk" "WMDecoration"-    IO CInt---windowGetDecorations ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Bool,[WMDecoration])              -- result-windowGetDecorations _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    decorations <- allocMem :: IO (Ptr CUInt)-    result <- gdk_window_get_decorations _obj' decorations-    let result' = (/= 0) result-    decorations' <- peek decorations-    let decorations'' = wordToGFlags decorations'-    touchManagedPtr _obj-    freeMem decorations-    return (result', decorations'')--data WindowGetDecorationsMethodInfo-instance (signature ~ (m (Bool,[WMDecoration])), MonadIO m, WindowK a) => MethodInfo WindowGetDecorationsMethodInfo a signature where-    overloadedMethod _ = windowGetDecorations---- method Window::get_device_cursor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Cursor")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_device_cursor" gdk_window_get_device_cursor :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    IO (Ptr Cursor)---windowGetDeviceCursor ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> m (Maybe Cursor)                     -- result-windowGetDeviceCursor _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    result <- gdk_window_get_device_cursor _obj' device'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Cursor) result'-        return result''-    touchManagedPtr _obj-    touchManagedPtr device-    return maybeResult--data WindowGetDeviceCursorMethodInfo-instance (signature ~ (b -> m (Maybe Cursor)), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDeviceCursorMethodInfo a signature where-    overloadedMethod _ = windowGetDeviceCursor---- method Window::get_device_events--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "EventMask")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_device_events" gdk_window_get_device_events :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    IO CUInt---windowGetDeviceEvents ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> m [EventMask]                        -- result-windowGetDeviceEvents _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    result <- gdk_window_get_device_events _obj' device'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    touchManagedPtr device-    return result'--data WindowGetDeviceEventsMethodInfo-instance (signature ~ (b -> m [EventMask]), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDeviceEventsMethodInfo a signature where-    overloadedMethod _ = windowGetDeviceEvents---- method Window::get_device_position--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_device_position" gdk_window_get_device_position :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    Ptr CUInt ->                            -- mask : TInterface "Gdk" "ModifierType"-    IO (Ptr Window)---windowGetDevicePosition ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> m ((Maybe Window),Int32,Int32,[ModifierType])-- result-windowGetDevicePosition _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    mask <- allocMem :: IO (Ptr CUInt)-    result <- gdk_window_get_device_position _obj' device' x y mask-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    x' <- peek x-    y' <- peek y-    mask' <- peek mask-    let mask'' = wordToGFlags mask'-    touchManagedPtr _obj-    touchManagedPtr device-    freeMem x-    freeMem y-    freeMem mask-    return (maybeResult, x', y', mask'')--data WindowGetDevicePositionMethodInfo-instance (signature ~ (b -> m ((Maybe Window),Int32,Int32,[ModifierType])), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDevicePositionMethodInfo a signature where-    overloadedMethod _ = windowGetDevicePosition---- method Window::get_device_position_double--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_device_position_double" gdk_window_get_device_position_double :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    Ptr CDouble ->                          -- x : TBasicType TDouble-    Ptr CDouble ->                          -- y : TBasicType TDouble-    Ptr CUInt ->                            -- mask : TInterface "Gdk" "ModifierType"-    IO (Ptr Window)---windowGetDevicePositionDouble ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> m ((Maybe Window),Double,Double,[ModifierType])-- result-windowGetDevicePositionDouble _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    x <- allocMem :: IO (Ptr CDouble)-    y <- allocMem :: IO (Ptr CDouble)-    mask <- allocMem :: IO (Ptr CUInt)-    result <- gdk_window_get_device_position_double _obj' device' x y mask-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    x' <- peek x-    let x'' = realToFrac x'-    y' <- peek y-    let y'' = realToFrac y'-    mask' <- peek mask-    let mask'' = wordToGFlags mask'-    touchManagedPtr _obj-    touchManagedPtr device-    freeMem x-    freeMem y-    freeMem mask-    return (maybeResult, x'', y'', mask'')--data WindowGetDevicePositionDoubleMethodInfo-instance (signature ~ (b -> m ((Maybe Window),Double,Double,[ModifierType])), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowGetDevicePositionDoubleMethodInfo a signature where-    overloadedMethod _ = windowGetDevicePositionDouble---- method Window::get_display--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Display")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_display" gdk_window_get_display :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Display)---windowGetDisplay ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Display                            -- result-windowGetDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_display _obj'-    checkUnexpectedReturnNULL "gdk_window_get_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    return result'--data WindowGetDisplayMethodInfo-instance (signature ~ (m Display), MonadIO m, WindowK a) => MethodInfo WindowGetDisplayMethodInfo a signature where-    overloadedMethod _ = windowGetDisplay---- method Window::get_drag_protocol--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "DragProtocol")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_drag_protocol" gdk_window_get_drag_protocol :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr (Ptr Window) ->                     -- target : TInterface "Gdk" "Window"-    IO CUInt---windowGetDragProtocol ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (DragProtocol,Window)              -- result-windowGetDragProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    target <- allocMem :: IO (Ptr (Ptr Window))-    result <- gdk_window_get_drag_protocol _obj' target-    let result' = (toEnum . fromIntegral) result-    target' <- peek target-    target'' <- (wrapObject Window) target'-    touchManagedPtr _obj-    freeMem target-    return (result', target'')--data WindowGetDragProtocolMethodInfo-instance (signature ~ (m (DragProtocol,Window)), MonadIO m, WindowK a) => MethodInfo WindowGetDragProtocolMethodInfo a signature where-    overloadedMethod _ = windowGetDragProtocol---- method Window::get_effective_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_effective_parent" gdk_window_get_effective_parent :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Window)---windowGetEffectiveParent ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Window                             -- result-windowGetEffectiveParent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_effective_parent _obj'-    checkUnexpectedReturnNULL "gdk_window_get_effective_parent" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data WindowGetEffectiveParentMethodInfo-instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetEffectiveParentMethodInfo a signature where-    overloadedMethod _ = windowGetEffectiveParent---- method Window::get_effective_toplevel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_effective_toplevel" gdk_window_get_effective_toplevel :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Window)---windowGetEffectiveToplevel ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Window                             -- result-windowGetEffectiveToplevel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_effective_toplevel _obj'-    checkUnexpectedReturnNULL "gdk_window_get_effective_toplevel" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data WindowGetEffectiveToplevelMethodInfo-instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetEffectiveToplevelMethodInfo a signature where-    overloadedMethod _ = windowGetEffectiveToplevel---- method Window::get_event_compression--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_event_compression" gdk_window_get_event_compression :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowGetEventCompression ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowGetEventCompression _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_event_compression _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowGetEventCompressionMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetEventCompressionMethodInfo a signature where-    overloadedMethod _ = windowGetEventCompression---- method Window::get_events--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "EventMask")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_events" gdk_window_get_events :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CUInt---windowGetEvents ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m [EventMask]                        -- result-windowGetEvents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_events _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data WindowGetEventsMethodInfo-instance (signature ~ (m [EventMask]), MonadIO m, WindowK a) => MethodInfo WindowGetEventsMethodInfo a signature where-    overloadedMethod _ = windowGetEvents---- method Window::get_focus_on_map--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_focus_on_map" gdk_window_get_focus_on_map :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowGetFocusOnMap ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowGetFocusOnMap _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_focus_on_map _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowGetFocusOnMapMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetFocusOnMapMethodInfo a signature where-    overloadedMethod _ = windowGetFocusOnMap---- method Window::get_frame_clock--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "FrameClock")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_frame_clock" gdk_window_get_frame_clock :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr FrameClock)---windowGetFrameClock ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m FrameClock                         -- result-windowGetFrameClock _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_frame_clock _obj'-    checkUnexpectedReturnNULL "gdk_window_get_frame_clock" result-    result' <- (newObject FrameClock) result-    touchManagedPtr _obj-    return result'--data WindowGetFrameClockMethodInfo-instance (signature ~ (m FrameClock), MonadIO m, WindowK a) => MethodInfo WindowGetFrameClockMethodInfo a signature where-    overloadedMethod _ = windowGetFrameClock---- method Window::get_frame_extents--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_frame_extents" gdk_window_get_frame_extents :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Rectangle ->                        -- rect : TInterface "Gdk" "Rectangle"-    IO ()---windowGetFrameExtents ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Rectangle)                        -- result-windowGetFrameExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle)-    gdk_window_get_frame_extents _obj' rect-    rect' <- (wrapBoxed Rectangle) rect-    touchManagedPtr _obj-    return rect'--data WindowGetFrameExtentsMethodInfo-instance (signature ~ (m (Rectangle)), MonadIO m, WindowK a) => MethodInfo WindowGetFrameExtentsMethodInfo a signature where-    overloadedMethod _ = windowGetFrameExtents---- method Window::get_fullscreen_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "FullscreenMode")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_fullscreen_mode" gdk_window_get_fullscreen_mode :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CUInt---windowGetFullscreenMode ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m FullscreenMode                     -- result-windowGetFullscreenMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_fullscreen_mode _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WindowGetFullscreenModeMethodInfo-instance (signature ~ (m FullscreenMode), MonadIO m, WindowK a) => MethodInfo WindowGetFullscreenModeMethodInfo a signature where-    overloadedMethod _ = windowGetFullscreenMode---- method Window::get_geometry--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_geometry" gdk_window_get_geometry :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    Ptr Int32 ->                            -- width : TBasicType TInt-    Ptr Int32 ->                            -- height : TBasicType TInt-    IO ()---windowGetGeometry ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Int32,Int32,Int32,Int32)          -- result-windowGetGeometry _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    width <- allocMem :: IO (Ptr Int32)-    height <- allocMem :: IO (Ptr Int32)-    gdk_window_get_geometry _obj' x y width height-    x' <- peek x-    y' <- peek y-    width' <- peek width-    height' <- peek height-    touchManagedPtr _obj-    freeMem x-    freeMem y-    freeMem width-    freeMem height-    return (x', y', width', height')--data WindowGetGeometryMethodInfo-instance (signature ~ (m (Int32,Int32,Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetGeometryMethodInfo a signature where-    overloadedMethod _ = windowGetGeometry---- method Window::get_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_group" gdk_window_get_group :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Window)---windowGetGroup ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Window                             -- result-windowGetGroup _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_group _obj'-    checkUnexpectedReturnNULL "gdk_window_get_group" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data WindowGetGroupMethodInfo-instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetGroupMethodInfo a signature where-    overloadedMethod _ = windowGetGroup---- method Window::get_height--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_height" gdk_window_get_height :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO Int32---windowGetHeight ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-windowGetHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_height _obj'-    touchManagedPtr _obj-    return result--data WindowGetHeightMethodInfo-instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetHeightMethodInfo a signature where-    overloadedMethod _ = windowGetHeight---- method Window::get_modal_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_modal_hint" gdk_window_get_modal_hint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowGetModalHint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowGetModalHint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_modal_hint _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowGetModalHintMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetModalHintMethodInfo a signature where-    overloadedMethod _ = windowGetModalHint---- method Window::get_origin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_origin" gdk_window_get_origin :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    IO Int32---windowGetOrigin ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Int32,Int32,Int32)                -- result-windowGetOrigin _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    result <- gdk_window_get_origin _obj' x y-    x' <- peek x-    y' <- peek y-    touchManagedPtr _obj-    freeMem x-    freeMem y-    return (result, x', y')--data WindowGetOriginMethodInfo-instance (signature ~ (m (Int32,Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetOriginMethodInfo a signature where-    overloadedMethod _ = windowGetOrigin---- method Window::get_parent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_parent" gdk_window_get_parent :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Window)---windowGetParent ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Window                             -- result-windowGetParent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_parent _obj'-    checkUnexpectedReturnNULL "gdk_window_get_parent" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data WindowGetParentMethodInfo-instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetParentMethodInfo a signature where-    overloadedMethod _ = windowGetParent---- method Window::get_pass_through--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_pass_through" gdk_window_get_pass_through :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowGetPassThrough ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowGetPassThrough _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_pass_through _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowGetPassThroughMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetPassThroughMethodInfo a signature where-    overloadedMethod _ = windowGetPassThrough---- method Window::get_pointer--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_pointer" gdk_window_get_pointer :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    Ptr CUInt ->                            -- mask : TInterface "Gdk" "ModifierType"-    IO (Ptr Window)--{-# DEPRECATED windowGetPointer ["(Since version 3.0)","Use gdk_window_get_device_position() instead."]#-}-windowGetPointer ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ((Maybe Window),Int32,Int32,[ModifierType])-- result-windowGetPointer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    mask <- allocMem :: IO (Ptr CUInt)-    result <- gdk_window_get_pointer _obj' x y mask-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Window) result'-        return result''-    x' <- peek x-    y' <- peek y-    mask' <- peek mask-    let mask'' = wordToGFlags mask'-    touchManagedPtr _obj-    freeMem x-    freeMem y-    freeMem mask-    return (maybeResult, x', y', mask'')--data WindowGetPointerMethodInfo-instance (signature ~ (m ((Maybe Window),Int32,Int32,[ModifierType])), MonadIO m, WindowK a) => MethodInfo WindowGetPointerMethodInfo a signature where-    overloadedMethod _ = windowGetPointer---- method Window::get_position--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_position" gdk_window_get_position :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    IO ()---windowGetPosition ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Int32,Int32)                      -- result-windowGetPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    gdk_window_get_position _obj' x y-    x' <- peek x-    y' <- peek y-    touchManagedPtr _obj-    freeMem x-    freeMem y-    return (x', y')--data WindowGetPositionMethodInfo-instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetPositionMethodInfo a signature where-    overloadedMethod _ = windowGetPosition---- method Window::get_root_coords--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "root_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "root_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_root_coords" gdk_window_get_root_coords :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    Ptr Int32 ->                            -- root_x : TBasicType TInt-    Ptr Int32 ->                            -- root_y : TBasicType TInt-    IO ()---windowGetRootCoords ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- x-    -> Int32                                -- y-    -> m (Int32,Int32)                      -- result-windowGetRootCoords _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rootX <- allocMem :: IO (Ptr Int32)-    rootY <- allocMem :: IO (Ptr Int32)-    gdk_window_get_root_coords _obj' x y rootX rootY-    rootX' <- peek rootX-    rootY' <- peek rootY-    touchManagedPtr _obj-    freeMem rootX-    freeMem rootY-    return (rootX', rootY')--data WindowGetRootCoordsMethodInfo-instance (signature ~ (Int32 -> Int32 -> m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetRootCoordsMethodInfo a signature where-    overloadedMethod _ = windowGetRootCoords---- method Window::get_root_origin--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_root_origin" gdk_window_get_root_origin :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Int32 ->                            -- x : TBasicType TInt-    Ptr Int32 ->                            -- y : TBasicType TInt-    IO ()---windowGetRootOrigin ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m (Int32,Int32)                      -- result-windowGetRootOrigin _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    x <- allocMem :: IO (Ptr Int32)-    y <- allocMem :: IO (Ptr Int32)-    gdk_window_get_root_origin _obj' x y-    x' <- peek x-    y' <- peek y-    touchManagedPtr _obj-    freeMem x-    freeMem y-    return (x', y')--data WindowGetRootOriginMethodInfo-instance (signature ~ (m (Int32,Int32)), MonadIO m, WindowK a) => MethodInfo WindowGetRootOriginMethodInfo a signature where-    overloadedMethod _ = windowGetRootOrigin---- method Window::get_scale_factor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_scale_factor" gdk_window_get_scale_factor :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO Int32---windowGetScaleFactor ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-windowGetScaleFactor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_scale_factor _obj'-    touchManagedPtr _obj-    return result--data WindowGetScaleFactorMethodInfo-instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetScaleFactorMethodInfo a signature where-    overloadedMethod _ = windowGetScaleFactor---- method Window::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Screen")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_screen" gdk_window_get_screen :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Screen)---windowGetScreen ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Screen                             -- result-windowGetScreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_screen _obj'-    checkUnexpectedReturnNULL "gdk_window_get_screen" result-    result' <- (newObject Screen) result-    touchManagedPtr _obj-    return result'--data WindowGetScreenMethodInfo-instance (signature ~ (m Screen), MonadIO m, WindowK a) => MethodInfo WindowGetScreenMethodInfo a signature where-    overloadedMethod _ = windowGetScreen---- method Window::get_source_events--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "EventMask")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_source_events" gdk_window_get_source_events :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- source : TInterface "Gdk" "InputSource"-    IO CUInt---windowGetSourceEvents ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> InputSource                          -- source-    -> m [EventMask]                        -- result-windowGetSourceEvents _obj source = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let source' = (fromIntegral . fromEnum) source-    result <- gdk_window_get_source_events _obj' source'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data WindowGetSourceEventsMethodInfo-instance (signature ~ (InputSource -> m [EventMask]), MonadIO m, WindowK a) => MethodInfo WindowGetSourceEventsMethodInfo a signature where-    overloadedMethod _ = windowGetSourceEvents---- method Window::get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "WindowState")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_state" gdk_window_get_state :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CUInt---windowGetState ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m [WindowState]                      -- result-windowGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_state _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'--data WindowGetStateMethodInfo-instance (signature ~ (m [WindowState]), MonadIO m, WindowK a) => MethodInfo WindowGetStateMethodInfo a signature where-    overloadedMethod _ = windowGetState---- method Window::get_support_multidevice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_support_multidevice" gdk_window_get_support_multidevice :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowGetSupportMultidevice ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowGetSupportMultidevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_support_multidevice _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowGetSupportMultideviceMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowGetSupportMultideviceMethodInfo a signature where-    overloadedMethod _ = windowGetSupportMultidevice---- method Window::get_toplevel--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_toplevel" gdk_window_get_toplevel :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Window)---windowGetToplevel ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Window                             -- result-windowGetToplevel _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_toplevel _obj'-    checkUnexpectedReturnNULL "gdk_window_get_toplevel" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data WindowGetToplevelMethodInfo-instance (signature ~ (m Window), MonadIO m, WindowK a) => MethodInfo WindowGetToplevelMethodInfo a signature where-    overloadedMethod _ = windowGetToplevel---- method Window::get_type_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "WindowTypeHint")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_type_hint" gdk_window_get_type_hint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CUInt---windowGetTypeHint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m WindowTypeHint                     -- result-windowGetTypeHint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_type_hint _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WindowGetTypeHintMethodInfo-instance (signature ~ (m WindowTypeHint), MonadIO m, WindowK a) => MethodInfo WindowGetTypeHintMethodInfo a signature where-    overloadedMethod _ = windowGetTypeHint---- method Window::get_update_area--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Region")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_update_area" gdk_window_get_update_area :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Cairo.Region)---windowGetUpdateArea ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Cairo.Region                       -- result-windowGetUpdateArea _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_update_area _obj'-    checkUnexpectedReturnNULL "gdk_window_get_update_area" result-    result' <- (wrapBoxed Cairo.Region) result-    touchManagedPtr _obj-    return result'--data WindowGetUpdateAreaMethodInfo-instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetUpdateAreaMethodInfo a signature where-    overloadedMethod _ = windowGetUpdateArea---- method Window::get_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_user_data" gdk_window_get_user_data :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr (Ptr ()) ->                         -- data : TBasicType TPtr-    IO ()---windowGetUserData ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ((Ptr ()))                         -- result-windowGetUserData _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    data_ <- allocMem :: IO (Ptr (Ptr ()))-    gdk_window_get_user_data _obj' data_-    data_' <- peek data_-    touchManagedPtr _obj-    freeMem data_-    return data_'--data WindowGetUserDataMethodInfo-instance (signature ~ (m ((Ptr ()))), MonadIO m, WindowK a) => MethodInfo WindowGetUserDataMethodInfo a signature where-    overloadedMethod _ = windowGetUserData---- method Window::get_visible_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "cairo" "Region")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_visible_region" gdk_window_get_visible_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Cairo.Region)---windowGetVisibleRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Cairo.Region                       -- result-windowGetVisibleRegion _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_visible_region _obj'-    checkUnexpectedReturnNULL "gdk_window_get_visible_region" result-    result' <- (wrapBoxed Cairo.Region) result-    touchManagedPtr _obj-    return result'--data WindowGetVisibleRegionMethodInfo-instance (signature ~ (m Cairo.Region), MonadIO m, WindowK a) => MethodInfo WindowGetVisibleRegionMethodInfo a signature where-    overloadedMethod _ = windowGetVisibleRegion---- method Window::get_visual--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Visual")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_visual" gdk_window_get_visual :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr Visual)---windowGetVisual ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Visual                             -- result-windowGetVisual _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_visual _obj'-    checkUnexpectedReturnNULL "gdk_window_get_visual" result-    result' <- (newObject Visual) result-    touchManagedPtr _obj-    return result'--data WindowGetVisualMethodInfo-instance (signature ~ (m Visual), MonadIO m, WindowK a) => MethodInfo WindowGetVisualMethodInfo a signature where-    overloadedMethod _ = windowGetVisual---- method Window::get_width--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_width" gdk_window_get_width :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO Int32---windowGetWidth ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Int32                              -- result-windowGetWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_width _obj'-    touchManagedPtr _obj-    return result--data WindowGetWidthMethodInfo-instance (signature ~ (m Int32), MonadIO m, WindowK a) => MethodInfo WindowGetWidthMethodInfo a signature where-    overloadedMethod _ = windowGetWidth---- method Window::get_window_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "WindowType")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_get_window_type" gdk_window_get_window_type :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CUInt---windowGetWindowType ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m WindowType                         -- result-windowGetWindowType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_window_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data WindowGetWindowTypeMethodInfo-instance (signature ~ (m WindowType), MonadIO m, WindowK a) => MethodInfo WindowGetWindowTypeMethodInfo a signature where-    overloadedMethod _ = windowGetWindowType---- method Window::has_native--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_has_native" gdk_window_has_native :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowHasNative ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowHasNative _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_has_native _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowHasNativeMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowHasNativeMethodInfo a signature where-    overloadedMethod _ = windowHasNative---- method Window::hide--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_hide" gdk_window_hide :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowHide ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowHide _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_hide _obj'-    touchManagedPtr _obj-    return ()--data WindowHideMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowHideMethodInfo a signature where-    overloadedMethod _ = windowHide---- method Window::iconify--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_iconify" gdk_window_iconify :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowIconify ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowIconify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_iconify _obj'-    touchManagedPtr _obj-    return ()--data WindowIconifyMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowIconifyMethodInfo a signature where-    overloadedMethod _ = windowIconify---- method Window::input_shape_combine_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_input_shape_combine_region" gdk_window_input_shape_combine_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Region ->                     -- shape_region : TInterface "cairo" "Region"-    Int32 ->                                -- offset_x : TBasicType TInt-    Int32 ->                                -- offset_y : TBasicType TInt-    IO ()---windowInputShapeCombineRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Cairo.Region                         -- shapeRegion-    -> Int32                                -- offsetX-    -> Int32                                -- offsetY-    -> m ()                                 -- result-windowInputShapeCombineRegion _obj shapeRegion offsetX offsetY = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let shapeRegion' = unsafeManagedPtrGetPtr shapeRegion-    gdk_window_input_shape_combine_region _obj' shapeRegion' offsetX offsetY-    touchManagedPtr _obj-    touchManagedPtr shapeRegion-    return ()--data WindowInputShapeCombineRegionMethodInfo-instance (signature ~ (Cairo.Region -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInputShapeCombineRegionMethodInfo a signature where-    overloadedMethod _ = windowInputShapeCombineRegion---- method Window::invalidate_maybe_recurse--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_invalidate_maybe_recurse" gdk_window_invalidate_maybe_recurse :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Region ->                     -- region : TInterface "cairo" "Region"-    FunPtr WindowChildFuncC ->              -- child_func : TInterface "Gdk" "WindowChildFunc"-    Ptr () ->                               -- user_data : TBasicType TPtr-    IO ()---windowInvalidateMaybeRecurse ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Cairo.Region                         -- region-    -> Maybe (WindowChildFunc)              -- childFunc-    -> m ()                                 -- result-windowInvalidateMaybeRecurse _obj region childFunc = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let region' = unsafeManagedPtrGetPtr region-    maybeChildFunc <- case childFunc of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jChildFunc -> do-            jChildFunc' <- mkWindowChildFunc (windowChildFuncWrapper Nothing jChildFunc)-            return jChildFunc'-    let userData = nullPtr-    gdk_window_invalidate_maybe_recurse _obj' region' maybeChildFunc userData-    safeFreeFunPtr $ castFunPtrToPtr maybeChildFunc-    touchManagedPtr _obj-    touchManagedPtr region-    return ()--data WindowInvalidateMaybeRecurseMethodInfo-instance (signature ~ (Cairo.Region -> Maybe (WindowChildFunc) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateMaybeRecurseMethodInfo a signature where-    overloadedMethod _ = windowInvalidateMaybeRecurse---- method Window::invalidate_rect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_invalidate_rect" gdk_window_invalidate_rect :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Rectangle ->                        -- rect : TInterface "Gdk" "Rectangle"-    CInt ->                                 -- invalidate_children : TBasicType TBoolean-    IO ()---windowInvalidateRect ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Maybe (Rectangle)                    -- rect-    -> Bool                                 -- invalidateChildren-    -> m ()                                 -- result-windowInvalidateRect _obj rect invalidateChildren = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeRect <- case rect of-        Nothing -> return nullPtr-        Just jRect -> do-            let jRect' = unsafeManagedPtrGetPtr jRect-            return jRect'-    let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren-    gdk_window_invalidate_rect _obj' maybeRect invalidateChildren'-    touchManagedPtr _obj-    whenJust rect touchManagedPtr-    return ()--data WindowInvalidateRectMethodInfo-instance (signature ~ (Maybe (Rectangle) -> Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateRectMethodInfo a signature where-    overloadedMethod _ = windowInvalidateRect---- method Window::invalidate_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_invalidate_region" gdk_window_invalidate_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Region ->                     -- region : TInterface "cairo" "Region"-    CInt ->                                 -- invalidate_children : TBasicType TBoolean-    IO ()---windowInvalidateRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Cairo.Region                         -- region-    -> Bool                                 -- invalidateChildren-    -> m ()                                 -- result-windowInvalidateRegion _obj region invalidateChildren = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let region' = unsafeManagedPtrGetPtr region-    let invalidateChildren' = (fromIntegral . fromEnum) invalidateChildren-    gdk_window_invalidate_region _obj' region' invalidateChildren'-    touchManagedPtr _obj-    touchManagedPtr region-    return ()--data WindowInvalidateRegionMethodInfo-instance (signature ~ (Cairo.Region -> Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowInvalidateRegionMethodInfo a signature where-    overloadedMethod _ = windowInvalidateRegion---- method Window::is_destroyed--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_is_destroyed" gdk_window_is_destroyed :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowIsDestroyed ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowIsDestroyed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_destroyed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowIsDestroyedMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsDestroyedMethodInfo a signature where-    overloadedMethod _ = windowIsDestroyed---- method Window::is_input_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_is_input_only" gdk_window_is_input_only :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowIsInputOnly ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowIsInputOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_input_only _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowIsInputOnlyMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsInputOnlyMethodInfo a signature where-    overloadedMethod _ = windowIsInputOnly---- method Window::is_shaped--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_is_shaped" gdk_window_is_shaped :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowIsShaped ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowIsShaped _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_shaped _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowIsShapedMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsShapedMethodInfo a signature where-    overloadedMethod _ = windowIsShaped---- method Window::is_viewable--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_is_viewable" gdk_window_is_viewable :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowIsViewable ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowIsViewable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_viewable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowIsViewableMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsViewableMethodInfo a signature where-    overloadedMethod _ = windowIsViewable---- method Window::is_visible--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_is_visible" gdk_window_is_visible :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO CInt---windowIsVisible ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m Bool                               -- result-windowIsVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowIsVisibleMethodInfo-instance (signature ~ (m Bool), MonadIO m, WindowK a) => MethodInfo WindowIsVisibleMethodInfo a signature where-    overloadedMethod _ = windowIsVisible---- method Window::lower--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_lower" gdk_window_lower :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowLower ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowLower _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_lower _obj'-    touchManagedPtr _obj-    return ()--data WindowLowerMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowLowerMethodInfo a signature where-    overloadedMethod _ = windowLower---- method Window::mark_paint_from_clip--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_mark_paint_from_clip" gdk_window_mark_paint_from_clip :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    IO ()---windowMarkPaintFromClip ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Cairo.Context                        -- cr-    -> m ()                                 -- result-windowMarkPaintFromClip _obj cr = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let cr' = unsafeManagedPtrGetPtr cr-    gdk_window_mark_paint_from_clip _obj' cr'-    touchManagedPtr _obj-    touchManagedPtr cr-    return ()--data WindowMarkPaintFromClipMethodInfo-instance (signature ~ (Cairo.Context -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMarkPaintFromClipMethodInfo a signature where-    overloadedMethod _ = windowMarkPaintFromClip---- method Window::maximize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_maximize" gdk_window_maximize :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowMaximize ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowMaximize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_maximize _obj'-    touchManagedPtr _obj-    return ()--data WindowMaximizeMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMaximizeMethodInfo a signature where-    overloadedMethod _ = windowMaximize---- method Window::merge_child_input_shapes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_merge_child_input_shapes" gdk_window_merge_child_input_shapes :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowMergeChildInputShapes ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowMergeChildInputShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_merge_child_input_shapes _obj'-    touchManagedPtr _obj-    return ()--data WindowMergeChildInputShapesMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMergeChildInputShapesMethodInfo a signature where-    overloadedMethod _ = windowMergeChildInputShapes---- method Window::merge_child_shapes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_merge_child_shapes" gdk_window_merge_child_shapes :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowMergeChildShapes ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowMergeChildShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_merge_child_shapes _obj'-    touchManagedPtr _obj-    return ()--data WindowMergeChildShapesMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowMergeChildShapesMethodInfo a signature where-    overloadedMethod _ = windowMergeChildShapes---- method Window::move--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_move" gdk_window_move :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    IO ()---windowMove ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- x-    -> Int32                                -- y-    -> m ()                                 -- result-windowMove _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_move _obj' x y-    touchManagedPtr _obj-    return ()--data WindowMoveMethodInfo-instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveMethodInfo a signature where-    overloadedMethod _ = windowMove---- method Window::move_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_move_region" gdk_window_move_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Region ->                     -- region : TInterface "cairo" "Region"-    Int32 ->                                -- dx : TBasicType TInt-    Int32 ->                                -- dy : TBasicType TInt-    IO ()---windowMoveRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Cairo.Region                         -- region-    -> Int32                                -- dx-    -> Int32                                -- dy-    -> m ()                                 -- result-windowMoveRegion _obj region dx dy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let region' = unsafeManagedPtrGetPtr region-    gdk_window_move_region _obj' region' dx dy-    touchManagedPtr _obj-    touchManagedPtr region-    return ()--data WindowMoveRegionMethodInfo-instance (signature ~ (Cairo.Region -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveRegionMethodInfo a signature where-    overloadedMethod _ = windowMoveRegion---- method Window::move_resize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_move_resize" gdk_window_move_resize :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    IO ()---windowMoveResize ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- x-    -> Int32                                -- y-    -> Int32                                -- width-    -> Int32                                -- height-    -> m ()                                 -- result-windowMoveResize _obj x y width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_move_resize _obj' x y width height-    touchManagedPtr _obj-    return ()--data WindowMoveResizeMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowMoveResizeMethodInfo a signature where-    overloadedMethod _ = windowMoveResize---- method Window::peek_children--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TGList (TInterface "Gdk" "Window"))--- throws : False--- Skip return : False--foreign import ccall "gdk_window_peek_children" gdk_window_peek_children :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO (Ptr (GList (Ptr Window)))---windowPeekChildren ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m [Window]                           -- result-windowPeekChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_peek_children _obj'-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    touchManagedPtr _obj-    return result''--data WindowPeekChildrenMethodInfo-instance (signature ~ (m [Window]), MonadIO m, WindowK a) => MethodInfo WindowPeekChildrenMethodInfo a signature where-    overloadedMethod _ = windowPeekChildren---- method Window::process_updates--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_process_updates" gdk_window_process_updates :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- update_children : TBasicType TBoolean-    IO ()---windowProcessUpdates ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- updateChildren-    -> m ()                                 -- result-windowProcessUpdates _obj updateChildren = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let updateChildren' = (fromIntegral . fromEnum) updateChildren-    gdk_window_process_updates _obj' updateChildren'-    touchManagedPtr _obj-    return ()--data WindowProcessUpdatesMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowProcessUpdatesMethodInfo a signature where-    overloadedMethod _ = windowProcessUpdates---- method Window::raise--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_raise" gdk_window_raise :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowRaise ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowRaise _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_raise _obj'-    touchManagedPtr _obj-    return ()--data WindowRaiseMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowRaiseMethodInfo a signature where-    overloadedMethod _ = windowRaise---- method Window::register_dnd--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_register_dnd" gdk_window_register_dnd :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowRegisterDnd ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowRegisterDnd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_register_dnd _obj'-    touchManagedPtr _obj-    return ()--data WindowRegisterDndMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowRegisterDndMethodInfo a signature where-    overloadedMethod _ = windowRegisterDnd---- method Window::reparent--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_reparent" gdk_window_reparent :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Window ->                           -- new_parent : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt-    Int32 ->                                -- y : TBasicType TInt-    IO ()---windowReparent ::-    (MonadIO m, WindowK a, WindowK b) =>-    a                                       -- _obj-    -> b                                    -- newParent-    -> Int32                                -- x-    -> Int32                                -- y-    -> m ()                                 -- result-windowReparent _obj newParent x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let newParent' = unsafeManagedPtrCastPtr newParent-    gdk_window_reparent _obj' newParent' x y-    touchManagedPtr _obj-    touchManagedPtr newParent-    return ()--data WindowReparentMethodInfo-instance (signature ~ (b -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowReparentMethodInfo a signature where-    overloadedMethod _ = windowReparent---- method Window::resize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_resize" gdk_window_resize :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    IO ()---windowResize ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- width-    -> Int32                                -- height-    -> m ()                                 -- result-windowResize _obj width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_resize _obj' width height-    touchManagedPtr _obj-    return ()--data WindowResizeMethodInfo-instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowResizeMethodInfo a signature where-    overloadedMethod _ = windowResize---- method Window::restack--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_restack" gdk_window_restack :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Window ->                           -- sibling : TInterface "Gdk" "Window"-    CInt ->                                 -- above : TBasicType TBoolean-    IO ()---windowRestack ::-    (MonadIO m, WindowK a, WindowK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- sibling-    -> Bool                                 -- above-    -> m ()                                 -- result-windowRestack _obj sibling above = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeSibling <- case sibling of-        Nothing -> return nullPtr-        Just jSibling -> do-            let jSibling' = unsafeManagedPtrCastPtr jSibling-            return jSibling'-    let above' = (fromIntegral . fromEnum) above-    gdk_window_restack _obj' maybeSibling above'-    touchManagedPtr _obj-    whenJust sibling touchManagedPtr-    return ()--data WindowRestackMethodInfo-instance (signature ~ (Maybe (b) -> Bool -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowRestackMethodInfo a signature where-    overloadedMethod _ = windowRestack---- method Window::scroll--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dx", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dy", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_scroll" gdk_window_scroll :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- dx : TBasicType TInt-    Int32 ->                                -- dy : TBasicType TInt-    IO ()---windowScroll ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- dx-    -> Int32                                -- dy-    -> m ()                                 -- result-windowScroll _obj dx dy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_scroll _obj' dx dy-    touchManagedPtr _obj-    return ()--data WindowScrollMethodInfo-instance (signature ~ (Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowScrollMethodInfo a signature where-    overloadedMethod _ = windowScroll---- method Window::set_accept_focus--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_accept_focus" gdk_window_set_accept_focus :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- accept_focus : TBasicType TBoolean-    IO ()---windowSetAcceptFocus ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- acceptFocus-    -> m ()                                 -- result-windowSetAcceptFocus _obj acceptFocus = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let acceptFocus' = (fromIntegral . fromEnum) acceptFocus-    gdk_window_set_accept_focus _obj' acceptFocus'-    touchManagedPtr _obj-    return ()--data WindowSetAcceptFocusMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetAcceptFocusMethodInfo a signature where-    overloadedMethod _ = windowSetAcceptFocus---- method Window::set_background--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_background" gdk_window_set_background :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Color ->                            -- color : TInterface "Gdk" "Color"-    IO ()--{-# DEPRECATED windowSetBackground ["(Since version 3.4)","Use gdk_window_set_background_rgba() instead."]#-}-windowSetBackground ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Color                                -- color-    -> m ()                                 -- result-windowSetBackground _obj color = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let color' = unsafeManagedPtrGetPtr color-    gdk_window_set_background _obj' color'-    touchManagedPtr _obj-    touchManagedPtr color-    return ()--data WindowSetBackgroundMethodInfo-instance (signature ~ (Color -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundMethodInfo a signature where-    overloadedMethod _ = windowSetBackground---- method Window::set_background_pattern--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_background_pattern" gdk_window_set_background_pattern :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Pattern ->                    -- pattern : TInterface "cairo" "Pattern"-    IO ()---windowSetBackgroundPattern ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Maybe (Cairo.Pattern)                -- pattern-    -> m ()                                 -- result-windowSetBackgroundPattern _obj pattern = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybePattern <- case pattern of-        Nothing -> return nullPtr-        Just jPattern -> do-            let jPattern' = unsafeManagedPtrGetPtr jPattern-            return jPattern'-    gdk_window_set_background_pattern _obj' maybePattern-    touchManagedPtr _obj-    whenJust pattern touchManagedPtr-    return ()--data WindowSetBackgroundPatternMethodInfo-instance (signature ~ (Maybe (Cairo.Pattern) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundPatternMethodInfo a signature where-    overloadedMethod _ = windowSetBackgroundPattern---- method Window::set_background_rgba--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_background_rgba" gdk_window_set_background_rgba :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr RGBA ->                             -- rgba : TInterface "Gdk" "RGBA"-    IO ()---windowSetBackgroundRgba ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> RGBA                                 -- rgba-    -> m ()                                 -- result-windowSetBackgroundRgba _obj rgba = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let rgba' = unsafeManagedPtrGetPtr rgba-    gdk_window_set_background_rgba _obj' rgba'-    touchManagedPtr _obj-    touchManagedPtr rgba-    return ()--data WindowSetBackgroundRgbaMethodInfo-instance (signature ~ (RGBA -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetBackgroundRgbaMethodInfo a signature where-    overloadedMethod _ = windowSetBackgroundRgba---- method Window::set_child_input_shapes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_child_input_shapes" gdk_window_set_child_input_shapes :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowSetChildInputShapes ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowSetChildInputShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_set_child_input_shapes _obj'-    touchManagedPtr _obj-    return ()--data WindowSetChildInputShapesMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowSetChildInputShapesMethodInfo a signature where-    overloadedMethod _ = windowSetChildInputShapes---- method Window::set_child_shapes--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_child_shapes" gdk_window_set_child_shapes :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowSetChildShapes ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowSetChildShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_set_child_shapes _obj'-    touchManagedPtr _obj-    return ()--data WindowSetChildShapesMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowSetChildShapesMethodInfo a signature where-    overloadedMethod _ = windowSetChildShapes---- method Window::set_composited--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_composited" gdk_window_set_composited :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- composited : TBasicType TBoolean-    IO ()--{-# DEPRECATED windowSetComposited ["(Since version 3.16)","Compositing is an outdated technology that","  only ever worked on X11."]#-}-windowSetComposited ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- composited-    -> m ()                                 -- result-windowSetComposited _obj composited = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let composited' = (fromIntegral . fromEnum) composited-    gdk_window_set_composited _obj' composited'-    touchManagedPtr _obj-    return ()--data WindowSetCompositedMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetCompositedMethodInfo a signature where-    overloadedMethod _ = windowSetComposited---- method Window::set_cursor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_cursor" gdk_window_set_cursor :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cursor ->                           -- cursor : TInterface "Gdk" "Cursor"-    IO ()---windowSetCursor ::-    (MonadIO m, WindowK a, CursorK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- cursor-    -> m ()                                 -- result-windowSetCursor _obj cursor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeCursor <- case cursor of-        Nothing -> return nullPtr-        Just jCursor -> do-            let jCursor' = unsafeManagedPtrCastPtr jCursor-            return jCursor'-    gdk_window_set_cursor _obj' maybeCursor-    touchManagedPtr _obj-    whenJust cursor touchManagedPtr-    return ()--data WindowSetCursorMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, CursorK b) => MethodInfo WindowSetCursorMethodInfo a signature where-    overloadedMethod _ = windowSetCursor---- method Window::set_decorations--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_decorations" gdk_window_set_decorations :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- decorations : TInterface "Gdk" "WMDecoration"-    IO ()---windowSetDecorations ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> [WMDecoration]                       -- decorations-    -> m ()                                 -- result-windowSetDecorations _obj decorations = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let decorations' = gflagsToWord decorations-    gdk_window_set_decorations _obj' decorations'-    touchManagedPtr _obj-    return ()--data WindowSetDecorationsMethodInfo-instance (signature ~ ([WMDecoration] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetDecorationsMethodInfo a signature where-    overloadedMethod _ = windowSetDecorations---- method Window::set_device_cursor--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_device_cursor" gdk_window_set_device_cursor :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    Ptr Cursor ->                           -- cursor : TInterface "Gdk" "Cursor"-    IO ()---windowSetDeviceCursor ::-    (MonadIO m, WindowK a, DeviceK b, CursorK c) =>-    a                                       -- _obj-    -> b                                    -- device-    -> c                                    -- cursor-    -> m ()                                 -- result-windowSetDeviceCursor _obj device cursor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    let cursor' = unsafeManagedPtrCastPtr cursor-    gdk_window_set_device_cursor _obj' device' cursor'-    touchManagedPtr _obj-    touchManagedPtr device-    touchManagedPtr cursor-    return ()--data WindowSetDeviceCursorMethodInfo-instance (signature ~ (b -> c -> m ()), MonadIO m, WindowK a, DeviceK b, CursorK c) => MethodInfo WindowSetDeviceCursorMethodInfo a signature where-    overloadedMethod _ = windowSetDeviceCursor---- method Window::set_device_events--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_device_events" gdk_window_set_device_events :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    CUInt ->                                -- event_mask : TInterface "Gdk" "EventMask"-    IO ()---windowSetDeviceEvents ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a                                       -- _obj-    -> b                                    -- device-    -> [EventMask]                          -- eventMask-    -> m ()                                 -- result-windowSetDeviceEvents _obj device eventMask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    let eventMask' = gflagsToWord eventMask-    gdk_window_set_device_events _obj' device' eventMask'-    touchManagedPtr _obj-    touchManagedPtr device-    return ()--data WindowSetDeviceEventsMethodInfo-instance (signature ~ (b -> [EventMask] -> m ()), MonadIO m, WindowK a, DeviceK b) => MethodInfo WindowSetDeviceEventsMethodInfo a signature where-    overloadedMethod _ = windowSetDeviceEvents---- method Window::set_event_compression--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_event_compression" gdk_window_set_event_compression :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- event_compression : TBasicType TBoolean-    IO ()---windowSetEventCompression ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- eventCompression-    -> m ()                                 -- result-windowSetEventCompression _obj eventCompression = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let eventCompression' = (fromIntegral . fromEnum) eventCompression-    gdk_window_set_event_compression _obj' eventCompression'-    touchManagedPtr _obj-    return ()--data WindowSetEventCompressionMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetEventCompressionMethodInfo a signature where-    overloadedMethod _ = windowSetEventCompression---- method Window::set_events--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_events" gdk_window_set_events :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- event_mask : TInterface "Gdk" "EventMask"-    IO ()---windowSetEvents ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> [EventMask]                          -- eventMask-    -> m ()                                 -- result-windowSetEvents _obj eventMask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let eventMask' = gflagsToWord eventMask-    gdk_window_set_events _obj' eventMask'-    touchManagedPtr _obj-    return ()--data WindowSetEventsMethodInfo-instance (signature ~ ([EventMask] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetEventsMethodInfo a signature where-    overloadedMethod _ = windowSetEvents---- method Window::set_focus_on_map--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_focus_on_map" gdk_window_set_focus_on_map :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- focus_on_map : TBasicType TBoolean-    IO ()---windowSetFocusOnMap ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- focusOnMap-    -> m ()                                 -- result-windowSetFocusOnMap _obj focusOnMap = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let focusOnMap' = (fromIntegral . fromEnum) focusOnMap-    gdk_window_set_focus_on_map _obj' focusOnMap'-    touchManagedPtr _obj-    return ()--data WindowSetFocusOnMapMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFocusOnMapMethodInfo a signature where-    overloadedMethod _ = windowSetFocusOnMap---- method Window::set_fullscreen_mode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_fullscreen_mode" gdk_window_set_fullscreen_mode :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- mode : TInterface "Gdk" "FullscreenMode"-    IO ()---windowSetFullscreenMode ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> FullscreenMode                       -- mode-    -> m ()                                 -- result-windowSetFullscreenMode _obj mode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let mode' = (fromIntegral . fromEnum) mode-    gdk_window_set_fullscreen_mode _obj' mode'-    touchManagedPtr _obj-    return ()--data WindowSetFullscreenModeMethodInfo-instance (signature ~ (FullscreenMode -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFullscreenModeMethodInfo a signature where-    overloadedMethod _ = windowSetFullscreenMode---- method Window::set_functions--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_functions" gdk_window_set_functions :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- functions : TInterface "Gdk" "WMFunction"-    IO ()---windowSetFunctions ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> [WMFunction]                         -- functions-    -> m ()                                 -- result-windowSetFunctions _obj functions = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let functions' = gflagsToWord functions-    gdk_window_set_functions _obj' functions'-    touchManagedPtr _obj-    return ()--data WindowSetFunctionsMethodInfo-instance (signature ~ ([WMFunction] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetFunctionsMethodInfo a signature where-    overloadedMethod _ = windowSetFunctions---- method Window::set_geometry_hints--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_geometry_hints" gdk_window_set_geometry_hints :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Geometry ->                         -- geometry : TInterface "Gdk" "Geometry"-    CUInt ->                                -- geom_mask : TInterface "Gdk" "WindowHints"-    IO ()---windowSetGeometryHints ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Geometry                             -- geometry-    -> [WindowHints]                        -- geomMask-    -> m ()                                 -- result-windowSetGeometryHints _obj geometry geomMask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let geometry' = unsafeManagedPtrGetPtr geometry-    let geomMask' = gflagsToWord geomMask-    gdk_window_set_geometry_hints _obj' geometry' geomMask'-    touchManagedPtr _obj-    touchManagedPtr geometry-    return ()--data WindowSetGeometryHintsMethodInfo-instance (signature ~ (Geometry -> [WindowHints] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetGeometryHintsMethodInfo a signature where-    overloadedMethod _ = windowSetGeometryHints---- method Window::set_group--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_group" gdk_window_set_group :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Window ->                           -- leader : TInterface "Gdk" "Window"-    IO ()---windowSetGroup ::-    (MonadIO m, WindowK a, WindowK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- leader-    -> m ()                                 -- result-windowSetGroup _obj leader = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeLeader <- case leader of-        Nothing -> return nullPtr-        Just jLeader -> do-            let jLeader' = unsafeManagedPtrCastPtr jLeader-            return jLeader'-    gdk_window_set_group _obj' maybeLeader-    touchManagedPtr _obj-    whenJust leader touchManagedPtr-    return ()--data WindowSetGroupMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetGroupMethodInfo a signature where-    overloadedMethod _ = windowSetGroup---- method Window::set_icon_list--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_icon_list" gdk_window_set_icon_list :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr (GList (Ptr GdkPixbuf.Pixbuf)) ->   -- pixbufs : TGList (TInterface "GdkPixbuf" "Pixbuf")-    IO ()---windowSetIconList ::-    (MonadIO m, WindowK a, GdkPixbuf.PixbufK b) =>-    a                                       -- _obj-    -> [b]                                  -- pixbufs-    -> m ()                                 -- result-windowSetIconList _obj pixbufs = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let pixbufs' = map unsafeManagedPtrCastPtr pixbufs-    pixbufs'' <- packGList pixbufs'-    gdk_window_set_icon_list _obj' pixbufs''-    touchManagedPtr _obj-    mapM_ touchManagedPtr pixbufs-    g_list_free pixbufs''-    return ()--data WindowSetIconListMethodInfo-instance (signature ~ ([b] -> m ()), MonadIO m, WindowK a, GdkPixbuf.PixbufK b) => MethodInfo WindowSetIconListMethodInfo a signature where-    overloadedMethod _ = windowSetIconList---- method Window::set_icon_name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_icon_name" gdk_window_set_icon_name :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CString ->                              -- name : TBasicType TUTF8-    IO ()---windowSetIconName ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Maybe (T.Text)                       -- name-    -> m ()                                 -- result-windowSetIconName _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeName <- case name of-        Nothing -> return nullPtr-        Just jName -> do-            jName' <- textToCString jName-            return jName'-    gdk_window_set_icon_name _obj' maybeName-    touchManagedPtr _obj-    freeMem maybeName-    return ()--data WindowSetIconNameMethodInfo-instance (signature ~ (Maybe (T.Text) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetIconNameMethodInfo a signature where-    overloadedMethod _ = windowSetIconName---- method Window::set_keep_above--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_keep_above" gdk_window_set_keep_above :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- setting : TBasicType TBoolean-    IO ()---windowSetKeepAbove ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- setting-    -> m ()                                 -- result-windowSetKeepAbove _obj setting = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let setting' = (fromIntegral . fromEnum) setting-    gdk_window_set_keep_above _obj' setting'-    touchManagedPtr _obj-    return ()--data WindowSetKeepAboveMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepAboveMethodInfo a signature where-    overloadedMethod _ = windowSetKeepAbove---- method Window::set_keep_below--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_keep_below" gdk_window_set_keep_below :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- setting : TBasicType TBoolean-    IO ()---windowSetKeepBelow ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- setting-    -> m ()                                 -- result-windowSetKeepBelow _obj setting = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let setting' = (fromIntegral . fromEnum) setting-    gdk_window_set_keep_below _obj' setting'-    touchManagedPtr _obj-    return ()--data WindowSetKeepBelowMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetKeepBelowMethodInfo a signature where-    overloadedMethod _ = windowSetKeepBelow---- method Window::set_modal_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_modal_hint" gdk_window_set_modal_hint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- modal : TBasicType TBoolean-    IO ()---windowSetModalHint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- modal-    -> m ()                                 -- result-windowSetModalHint _obj modal = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let modal' = (fromIntegral . fromEnum) modal-    gdk_window_set_modal_hint _obj' modal'-    touchManagedPtr _obj-    return ()--data WindowSetModalHintMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetModalHintMethodInfo a signature where-    overloadedMethod _ = windowSetModalHint---- method Window::set_opacity--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_opacity" gdk_window_set_opacity :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CDouble ->                              -- opacity : TBasicType TDouble-    IO ()---windowSetOpacity ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Double                               -- opacity-    -> m ()                                 -- result-windowSetOpacity _obj opacity = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let opacity' = realToFrac opacity-    gdk_window_set_opacity _obj' opacity'-    touchManagedPtr _obj-    return ()--data WindowSetOpacityMethodInfo-instance (signature ~ (Double -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpacityMethodInfo a signature where-    overloadedMethod _ = windowSetOpacity---- method Window::set_opaque_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_opaque_region" gdk_window_set_opaque_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Region ->                     -- region : TInterface "cairo" "Region"-    IO ()---windowSetOpaqueRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Maybe (Cairo.Region)                 -- region-    -> m ()                                 -- result-windowSetOpaqueRegion _obj region = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeRegion <- case region of-        Nothing -> return nullPtr-        Just jRegion -> do-            let jRegion' = unsafeManagedPtrGetPtr jRegion-            return jRegion'-    gdk_window_set_opaque_region _obj' maybeRegion-    touchManagedPtr _obj-    whenJust region touchManagedPtr-    return ()--data WindowSetOpaqueRegionMethodInfo-instance (signature ~ (Maybe (Cairo.Region) -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOpaqueRegionMethodInfo a signature where-    overloadedMethod _ = windowSetOpaqueRegion---- method Window::set_override_redirect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_override_redirect" gdk_window_set_override_redirect :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- override_redirect : TBasicType TBoolean-    IO ()---windowSetOverrideRedirect ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- overrideRedirect-    -> m ()                                 -- result-windowSetOverrideRedirect _obj overrideRedirect = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let overrideRedirect' = (fromIntegral . fromEnum) overrideRedirect-    gdk_window_set_override_redirect _obj' overrideRedirect'-    touchManagedPtr _obj-    return ()--data WindowSetOverrideRedirectMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetOverrideRedirectMethodInfo a signature where-    overloadedMethod _ = windowSetOverrideRedirect---- method Window::set_pass_through--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_pass_through" gdk_window_set_pass_through :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- pass_through : TBasicType TBoolean-    IO ()---windowSetPassThrough ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- passThrough-    -> m ()                                 -- result-windowSetPassThrough _obj passThrough = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let passThrough' = (fromIntegral . fromEnum) passThrough-    gdk_window_set_pass_through _obj' passThrough'-    touchManagedPtr _obj-    return ()--data WindowSetPassThroughMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetPassThroughMethodInfo a signature where-    overloadedMethod _ = windowSetPassThrough---- method Window::set_role--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_role" gdk_window_set_role :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CString ->                              -- role : TBasicType TUTF8-    IO ()---windowSetRole ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> T.Text                               -- role-    -> m ()                                 -- result-windowSetRole _obj role = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    role' <- textToCString role-    gdk_window_set_role _obj' role'-    touchManagedPtr _obj-    freeMem role'-    return ()--data WindowSetRoleMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetRoleMethodInfo a signature where-    overloadedMethod _ = windowSetRole---- method Window::set_shadow_width--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "left", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "right", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "top", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "bottom", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_shadow_width" gdk_window_set_shadow_width :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- left : TBasicType TInt-    Int32 ->                                -- right : TBasicType TInt-    Int32 ->                                -- top : TBasicType TInt-    Int32 ->                                -- bottom : TBasicType TInt-    IO ()---windowSetShadowWidth ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Int32                                -- left-    -> Int32                                -- right-    -> Int32                                -- top-    -> Int32                                -- bottom-    -> m ()                                 -- result-windowSetShadowWidth _obj left right top bottom = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_set_shadow_width _obj' left right top bottom-    touchManagedPtr _obj-    return ()--data WindowSetShadowWidthMethodInfo-instance (signature ~ (Int32 -> Int32 -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetShadowWidthMethodInfo a signature where-    overloadedMethod _ = windowSetShadowWidth---- method Window::set_skip_pager_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_skip_pager_hint" gdk_window_set_skip_pager_hint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- skips_pager : TBasicType TBoolean-    IO ()---windowSetSkipPagerHint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- skipsPager-    -> m ()                                 -- result-windowSetSkipPagerHint _obj skipsPager = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let skipsPager' = (fromIntegral . fromEnum) skipsPager-    gdk_window_set_skip_pager_hint _obj' skipsPager'-    touchManagedPtr _obj-    return ()--data WindowSetSkipPagerHintMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipPagerHintMethodInfo a signature where-    overloadedMethod _ = windowSetSkipPagerHint---- method Window::set_skip_taskbar_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_skip_taskbar_hint" gdk_window_set_skip_taskbar_hint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- skips_taskbar : TBasicType TBoolean-    IO ()---windowSetSkipTaskbarHint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- skipsTaskbar-    -> m ()                                 -- result-windowSetSkipTaskbarHint _obj skipsTaskbar = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let skipsTaskbar' = (fromIntegral . fromEnum) skipsTaskbar-    gdk_window_set_skip_taskbar_hint _obj' skipsTaskbar'-    touchManagedPtr _obj-    return ()--data WindowSetSkipTaskbarHintMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSkipTaskbarHintMethodInfo a signature where-    overloadedMethod _ = windowSetSkipTaskbarHint---- method Window::set_source_events--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_source_events" gdk_window_set_source_events :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- source : TInterface "Gdk" "InputSource"-    CUInt ->                                -- event_mask : TInterface "Gdk" "EventMask"-    IO ()---windowSetSourceEvents ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> InputSource                          -- source-    -> [EventMask]                          -- eventMask-    -> m ()                                 -- result-windowSetSourceEvents _obj source eventMask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let source' = (fromIntegral . fromEnum) source-    let eventMask' = gflagsToWord eventMask-    gdk_window_set_source_events _obj' source' eventMask'-    touchManagedPtr _obj-    return ()--data WindowSetSourceEventsMethodInfo-instance (signature ~ (InputSource -> [EventMask] -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSourceEventsMethodInfo a signature where-    overloadedMethod _ = windowSetSourceEvents---- method Window::set_startup_id--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_startup_id" gdk_window_set_startup_id :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CString ->                              -- startup_id : TBasicType TUTF8-    IO ()---windowSetStartupId ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> T.Text                               -- startupId-    -> m ()                                 -- result-windowSetStartupId _obj startupId = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    startupId' <- textToCString startupId-    gdk_window_set_startup_id _obj' startupId'-    touchManagedPtr _obj-    freeMem startupId'-    return ()--data WindowSetStartupIdMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetStartupIdMethodInfo a signature where-    overloadedMethod _ = windowSetStartupId---- method Window::set_static_gravities--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_static_gravities" gdk_window_set_static_gravities :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- use_static : TBasicType TBoolean-    IO CInt--{-# DEPRECATED windowSetStaticGravities ["(Since version 3.16)","static gravities haven't worked on anything but X11","  for a long time."]#-}-windowSetStaticGravities ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- useStatic-    -> m Bool                               -- result-windowSetStaticGravities _obj useStatic = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let useStatic' = (fromIntegral . fromEnum) useStatic-    result <- gdk_window_set_static_gravities _obj' useStatic'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data WindowSetStaticGravitiesMethodInfo-instance (signature ~ (Bool -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowSetStaticGravitiesMethodInfo a signature where-    overloadedMethod _ = windowSetStaticGravities---- method Window::set_support_multidevice--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_support_multidevice" gdk_window_set_support_multidevice :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- support_multidevice : TBasicType TBoolean-    IO ()---windowSetSupportMultidevice ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- supportMultidevice-    -> m ()                                 -- result-windowSetSupportMultidevice _obj supportMultidevice = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let supportMultidevice' = (fromIntegral . fromEnum) supportMultidevice-    gdk_window_set_support_multidevice _obj' supportMultidevice'-    touchManagedPtr _obj-    return ()--data WindowSetSupportMultideviceMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetSupportMultideviceMethodInfo a signature where-    overloadedMethod _ = windowSetSupportMultidevice---- method Window::set_title--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_title" gdk_window_set_title :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CString ->                              -- title : TBasicType TUTF8-    IO ()---windowSetTitle ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> T.Text                               -- title-    -> m ()                                 -- result-windowSetTitle _obj title = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    title' <- textToCString title-    gdk_window_set_title _obj' title'-    touchManagedPtr _obj-    freeMem title'-    return ()--data WindowSetTitleMethodInfo-instance (signature ~ (T.Text -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTitleMethodInfo a signature where-    overloadedMethod _ = windowSetTitle---- method Window::set_transient_for--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_transient_for" gdk_window_set_transient_for :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Window ->                           -- parent : TInterface "Gdk" "Window"-    IO ()---windowSetTransientFor ::-    (MonadIO m, WindowK a, WindowK b) =>-    a                                       -- _obj-    -> b                                    -- parent-    -> m ()                                 -- result-windowSetTransientFor _obj parent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let parent' = unsafeManagedPtrCastPtr parent-    gdk_window_set_transient_for _obj' parent'-    touchManagedPtr _obj-    touchManagedPtr parent-    return ()--data WindowSetTransientForMethodInfo-instance (signature ~ (b -> m ()), MonadIO m, WindowK a, WindowK b) => MethodInfo WindowSetTransientForMethodInfo a signature where-    overloadedMethod _ = windowSetTransientFor---- method Window::set_type_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_type_hint" gdk_window_set_type_hint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CUInt ->                                -- hint : TInterface "Gdk" "WindowTypeHint"-    IO ()---windowSetTypeHint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> WindowTypeHint                       -- hint-    -> m ()                                 -- result-windowSetTypeHint _obj hint = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let hint' = (fromIntegral . fromEnum) hint-    gdk_window_set_type_hint _obj' hint'-    touchManagedPtr _obj-    return ()--data WindowSetTypeHintMethodInfo-instance (signature ~ (WindowTypeHint -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetTypeHintMethodInfo a signature where-    overloadedMethod _ = windowSetTypeHint---- method Window::set_urgency_hint--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_urgency_hint" gdk_window_set_urgency_hint :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    CInt ->                                 -- urgent : TBasicType TBoolean-    IO ()---windowSetUrgencyHint ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Bool                                 -- urgent-    -> m ()                                 -- result-windowSetUrgencyHint _obj urgent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let urgent' = (fromIntegral . fromEnum) urgent-    gdk_window_set_urgency_hint _obj' urgent'-    touchManagedPtr _obj-    return ()--data WindowSetUrgencyHintMethodInfo-instance (signature ~ (Bool -> m ()), MonadIO m, WindowK a) => MethodInfo WindowSetUrgencyHintMethodInfo a signature where-    overloadedMethod _ = windowSetUrgencyHint---- method Window::set_user_data--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_user_data" gdk_window_set_user_data :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr GObject.Object ->                   -- user_data : TInterface "GObject" "Object"-    IO ()---windowSetUserData ::-    (MonadIO m, WindowK a, GObject.ObjectK b) =>-    a                                       -- _obj-    -> Maybe (b)                            -- userData-    -> m ()                                 -- result-windowSetUserData _obj userData = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeUserData <- case userData of-        Nothing -> return nullPtr-        Just jUserData -> do-            let jUserData' = unsafeManagedPtrCastPtr jUserData-            return jUserData'-    gdk_window_set_user_data _obj' maybeUserData-    touchManagedPtr _obj-    whenJust userData touchManagedPtr-    return ()--data WindowSetUserDataMethodInfo-instance (signature ~ (Maybe (b) -> m ()), MonadIO m, WindowK a, GObject.ObjectK b) => MethodInfo WindowSetUserDataMethodInfo a signature where-    overloadedMethod _ = windowSetUserData---- method Window::shape_combine_region--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_shape_combine_region" gdk_window_shape_combine_region :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.Region ->                     -- shape_region : TInterface "cairo" "Region"-    Int32 ->                                -- offset_x : TBasicType TInt-    Int32 ->                                -- offset_y : TBasicType TInt-    IO ()---windowShapeCombineRegion ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Maybe (Cairo.Region)                 -- shapeRegion-    -> Int32                                -- offsetX-    -> Int32                                -- offsetY-    -> m ()                                 -- result-windowShapeCombineRegion _obj shapeRegion offsetX offsetY = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeShapeRegion <- case shapeRegion of-        Nothing -> return nullPtr-        Just jShapeRegion -> do-            let jShapeRegion' = unsafeManagedPtrGetPtr jShapeRegion-            return jShapeRegion'-    gdk_window_shape_combine_region _obj' maybeShapeRegion offsetX offsetY-    touchManagedPtr _obj-    whenJust shapeRegion touchManagedPtr-    return ()--data WindowShapeCombineRegionMethodInfo-instance (signature ~ (Maybe (Cairo.Region) -> Int32 -> Int32 -> m ()), MonadIO m, WindowK a) => MethodInfo WindowShapeCombineRegionMethodInfo a signature where-    overloadedMethod _ = windowShapeCombineRegion---- method Window::show--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_show" gdk_window_show :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowShow ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowShow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_show _obj'-    touchManagedPtr _obj-    return ()--data WindowShowMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowShowMethodInfo a signature where-    overloadedMethod _ = windowShow---- method Window::show_unraised--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_show_unraised" gdk_window_show_unraised :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowShowUnraised ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowShowUnraised _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_show_unraised _obj'-    touchManagedPtr _obj-    return ()--data WindowShowUnraisedMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowShowUnraisedMethodInfo a signature where-    overloadedMethod _ = windowShowUnraised---- method Window::show_window_menu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_window_show_window_menu" gdk_window_show_window_menu :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Event ->                            -- event : TInterface "Gdk" "Event"-    IO CInt---windowShowWindowMenu ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> Event                                -- event-    -> m Bool                               -- result-windowShowWindowMenu _obj event = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let event' = unsafeManagedPtrGetPtr event-    result <- gdk_window_show_window_menu _obj' event'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr event-    return result'--data WindowShowWindowMenuMethodInfo-instance (signature ~ (Event -> m Bool), MonadIO m, WindowK a) => MethodInfo WindowShowWindowMenuMethodInfo a signature where-    overloadedMethod _ = windowShowWindowMenu---- method Window::stick--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_stick" gdk_window_stick :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowStick ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowStick _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_stick _obj'-    touchManagedPtr _obj-    return ()--data WindowStickMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowStickMethodInfo a signature where-    overloadedMethod _ = windowStick---- method Window::thaw_toplevel_updates_libgtk_only--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_thaw_toplevel_updates_libgtk_only" gdk_window_thaw_toplevel_updates_libgtk_only :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()--{-# DEPRECATED windowThawToplevelUpdatesLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside of GTK+"]#-}-windowThawToplevelUpdatesLibgtkOnly ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowThawToplevelUpdatesLibgtkOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_thaw_toplevel_updates_libgtk_only _obj'-    touchManagedPtr _obj-    return ()--data WindowThawToplevelUpdatesLibgtkOnlyMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowThawToplevelUpdatesLibgtkOnlyMethodInfo a signature where-    overloadedMethod _ = windowThawToplevelUpdatesLibgtkOnly---- method Window::thaw_updates--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_thaw_updates" gdk_window_thaw_updates :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowThawUpdates ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowThawUpdates _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_thaw_updates _obj'-    touchManagedPtr _obj-    return ()--data WindowThawUpdatesMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowThawUpdatesMethodInfo a signature where-    overloadedMethod _ = windowThawUpdates---- method Window::unfullscreen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_unfullscreen" gdk_window_unfullscreen :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowUnfullscreen ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowUnfullscreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_unfullscreen _obj'-    touchManagedPtr _obj-    return ()--data WindowUnfullscreenMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnfullscreenMethodInfo a signature where-    overloadedMethod _ = windowUnfullscreen---- method Window::unmaximize--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_unmaximize" gdk_window_unmaximize :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowUnmaximize ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowUnmaximize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_unmaximize _obj'-    touchManagedPtr _obj-    return ()--data WindowUnmaximizeMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnmaximizeMethodInfo a signature where-    overloadedMethod _ = windowUnmaximize---- method Window::unstick--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_unstick" gdk_window_unstick :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowUnstick ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowUnstick _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_unstick _obj'-    touchManagedPtr _obj-    return ()--data WindowUnstickMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowUnstickMethodInfo a signature where-    overloadedMethod _ = windowUnstick---- method Window::withdraw--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_withdraw" gdk_window_withdraw :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    IO ()---windowWithdraw ::-    (MonadIO m, WindowK a) =>-    a                                       -- _obj-    -> m ()                                 -- result-windowWithdraw _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_withdraw _obj'-    touchManagedPtr _obj-    return ()--data WindowWithdrawMethodInfo-instance (signature ~ (m ()), MonadIO m, WindowK a) => MethodInfo WindowWithdrawMethodInfo a signature where-    overloadedMethod _ = windowWithdraw---- method Window::at_pointer--- method type : MemberFunction--- Args : [Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_window_at_pointer" gdk_window_at_pointer :: -    Ptr Int32 ->                            -- win_x : TBasicType TInt-    Ptr Int32 ->                            -- win_y : TBasicType TInt-    IO (Ptr Window)--{-# DEPRECATED windowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-}-windowAtPointer ::-    (MonadIO m) =>-    m (Window,Int32,Int32)                  -- result-windowAtPointer  = liftIO $ do-    winX <- allocMem :: IO (Ptr Int32)-    winY <- allocMem :: IO (Ptr Int32)-    result <- gdk_window_at_pointer winX winY-    checkUnexpectedReturnNULL "gdk_window_at_pointer" result-    result' <- (newObject Window) result-    winX' <- peek winX-    winY' <- peek winY-    freeMem winX-    freeMem winY-    return (result', winX', winY')---- method Window::constrain_size--- method type : MemberFunction--- Args : [Arg {argCName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "new_width", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "new_height", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_constrain_size" gdk_window_constrain_size :: -    Ptr Geometry ->                         -- geometry : TInterface "Gdk" "Geometry"-    CUInt ->                                -- flags : TInterface "Gdk" "WindowHints"-    Int32 ->                                -- width : TBasicType TInt-    Int32 ->                                -- height : TBasicType TInt-    Ptr Int32 ->                            -- new_width : TBasicType TInt-    Ptr Int32 ->                            -- new_height : TBasicType TInt-    IO ()---windowConstrainSize ::-    (MonadIO m) =>-    Geometry                                -- geometry-    -> [WindowHints]                        -- flags-    -> Int32                                -- width-    -> Int32                                -- height-    -> m (Int32,Int32)                      -- result-windowConstrainSize geometry flags width height = liftIO $ do-    let geometry' = unsafeManagedPtrGetPtr geometry-    let flags' = gflagsToWord flags-    newWidth <- allocMem :: IO (Ptr Int32)-    newHeight <- allocMem :: IO (Ptr Int32)-    gdk_window_constrain_size geometry' flags' width height newWidth newHeight-    newWidth' <- peek newWidth-    newHeight' <- peek newHeight-    touchManagedPtr geometry-    freeMem newWidth-    freeMem newHeight-    return (newWidth', newHeight')---- method Window::process_all_updates--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_process_all_updates" gdk_window_process_all_updates :: -    IO ()---windowProcessAllUpdates ::-    (MonadIO m) =>-    m ()                                    -- result-windowProcessAllUpdates  = liftIO $ do-    gdk_window_process_all_updates-    return ()---- method Window::set_debug_updates--- method type : MemberFunction--- Args : [Arg {argCName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_window_set_debug_updates" gdk_window_set_debug_updates :: -    CInt ->                                 -- setting : TBasicType TBoolean-    IO ()---windowSetDebugUpdates ::-    (MonadIO m) =>-    Bool                                    -- setting-    -> m ()                                 -- result-windowSetDebugUpdates setting = liftIO $ do-    let setting' = (fromIntegral . fromEnum) setting-    gdk_window_set_debug_updates setting'-    return ()--
− GI/Gdk/Objects/Window.hs-boot 
@@ -1,169 +0,0 @@-module GI.Gdk.Objects.Window where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Window = Window (ForeignPtr Window)-instance GObject Window where-class GObject o => WindowK o-instance (GObject o, IsDescendantOf Window o) => WindowK o-data WindowCursorPropertyInfo-data WindowCreateSurfaceSignalInfo-data WindowFromEmbedderSignalInfo-data WindowPickEmbeddedChildSignalInfo-data WindowToEmbedderSignalInfo-data WindowBeepMethodInfo-data WindowBeginMoveDragMethodInfo-data WindowBeginMoveDragForDeviceMethodInfo-data WindowBeginPaintRectMethodInfo-data WindowBeginPaintRegionMethodInfo-data WindowBeginResizeDragMethodInfo-data WindowBeginResizeDragForDeviceMethodInfo-data WindowConfigureFinishedMethodInfo-data WindowCoordsFromParentMethodInfo-data WindowCoordsToParentMethodInfo-data WindowCreateGlContextMethodInfo-data WindowCreateSimilarImageSurfaceMethodInfo-data WindowCreateSimilarSurfaceMethodInfo-data WindowDeiconifyMethodInfo-data WindowDestroyMethodInfo-data WindowDestroyNotifyMethodInfo-data WindowEnableSynchronizedConfigureMethodInfo-data WindowEndPaintMethodInfo-data WindowEnsureNativeMethodInfo-data WindowFlushMethodInfo-data WindowFocusMethodInfo-data WindowFreezeToplevelUpdatesLibgtkOnlyMethodInfo-data WindowFreezeUpdatesMethodInfo-data WindowFullscreenMethodInfo-data WindowFullscreenOnMonitorMethodInfo-data WindowGeometryChangedMethodInfo-data WindowGetAcceptFocusMethodInfo-data WindowGetBackgroundPatternMethodInfo-data WindowGetChildrenMethodInfo-data WindowGetChildrenWithUserDataMethodInfo-data WindowGetClipRegionMethodInfo-data WindowGetCompositedMethodInfo-data WindowGetCursorMethodInfo-data WindowGetDecorationsMethodInfo-data WindowGetDeviceCursorMethodInfo-data WindowGetDeviceEventsMethodInfo-data WindowGetDevicePositionMethodInfo-data WindowGetDevicePositionDoubleMethodInfo-data WindowGetDisplayMethodInfo-data WindowGetDragProtocolMethodInfo-data WindowGetEffectiveParentMethodInfo-data WindowGetEffectiveToplevelMethodInfo-data WindowGetEventCompressionMethodInfo-data WindowGetEventsMethodInfo-data WindowGetFocusOnMapMethodInfo-data WindowGetFrameClockMethodInfo-data WindowGetFrameExtentsMethodInfo-data WindowGetFullscreenModeMethodInfo-data WindowGetGeometryMethodInfo-data WindowGetGroupMethodInfo-data WindowGetHeightMethodInfo-data WindowGetModalHintMethodInfo-data WindowGetOriginMethodInfo-data WindowGetParentMethodInfo-data WindowGetPassThroughMethodInfo-data WindowGetPointerMethodInfo-data WindowGetPositionMethodInfo-data WindowGetRootCoordsMethodInfo-data WindowGetRootOriginMethodInfo-data WindowGetScaleFactorMethodInfo-data WindowGetScreenMethodInfo-data WindowGetSourceEventsMethodInfo-data WindowGetStateMethodInfo-data WindowGetSupportMultideviceMethodInfo-data WindowGetToplevelMethodInfo-data WindowGetTypeHintMethodInfo-data WindowGetUpdateAreaMethodInfo-data WindowGetUserDataMethodInfo-data WindowGetVisibleRegionMethodInfo-data WindowGetVisualMethodInfo-data WindowGetWidthMethodInfo-data WindowGetWindowTypeMethodInfo-data WindowHasNativeMethodInfo-data WindowHideMethodInfo-data WindowIconifyMethodInfo-data WindowInputShapeCombineRegionMethodInfo-data WindowInvalidateMaybeRecurseMethodInfo-data WindowInvalidateRectMethodInfo-data WindowInvalidateRegionMethodInfo-data WindowIsDestroyedMethodInfo-data WindowIsInputOnlyMethodInfo-data WindowIsShapedMethodInfo-data WindowIsViewableMethodInfo-data WindowIsVisibleMethodInfo-data WindowLowerMethodInfo-data WindowMarkPaintFromClipMethodInfo-data WindowMaximizeMethodInfo-data WindowMergeChildInputShapesMethodInfo-data WindowMergeChildShapesMethodInfo-data WindowMoveMethodInfo-data WindowMoveRegionMethodInfo-data WindowMoveResizeMethodInfo-data WindowPeekChildrenMethodInfo-data WindowProcessUpdatesMethodInfo-data WindowRaiseMethodInfo-data WindowRegisterDndMethodInfo-data WindowReparentMethodInfo-data WindowResizeMethodInfo-data WindowRestackMethodInfo-data WindowScrollMethodInfo-data WindowSetAcceptFocusMethodInfo-data WindowSetBackgroundMethodInfo-data WindowSetBackgroundPatternMethodInfo-data WindowSetBackgroundRgbaMethodInfo-data WindowSetChildInputShapesMethodInfo-data WindowSetChildShapesMethodInfo-data WindowSetCompositedMethodInfo-data WindowSetCursorMethodInfo-data WindowSetDecorationsMethodInfo-data WindowSetDeviceCursorMethodInfo-data WindowSetDeviceEventsMethodInfo-data WindowSetEventCompressionMethodInfo-data WindowSetEventsMethodInfo-data WindowSetFocusOnMapMethodInfo-data WindowSetFullscreenModeMethodInfo-data WindowSetFunctionsMethodInfo-data WindowSetGeometryHintsMethodInfo-data WindowSetGroupMethodInfo-data WindowSetIconListMethodInfo-data WindowSetIconNameMethodInfo-data WindowSetKeepAboveMethodInfo-data WindowSetKeepBelowMethodInfo-data WindowSetModalHintMethodInfo-data WindowSetOpacityMethodInfo-data WindowSetOpaqueRegionMethodInfo-data WindowSetOverrideRedirectMethodInfo-data WindowSetPassThroughMethodInfo-data WindowSetRoleMethodInfo-data WindowSetShadowWidthMethodInfo-data WindowSetSkipPagerHintMethodInfo-data WindowSetSkipTaskbarHintMethodInfo-data WindowSetSourceEventsMethodInfo-data WindowSetStartupIdMethodInfo-data WindowSetStaticGravitiesMethodInfo-data WindowSetSupportMultideviceMethodInfo-data WindowSetTitleMethodInfo-data WindowSetTransientForMethodInfo-data WindowSetTypeHintMethodInfo-data WindowSetUrgencyHintMethodInfo-data WindowSetUserDataMethodInfo-data WindowShapeCombineRegionMethodInfo-data WindowShowMethodInfo-data WindowShowUnraisedMethodInfo-data WindowShowWindowMenuMethodInfo-data WindowStickMethodInfo-data WindowThawToplevelUpdatesLibgtkOnlyMethodInfo-data WindowThawUpdatesMethodInfo-data WindowUnfullscreenMethodInfo-data WindowUnmaximizeMethodInfo-data WindowUnstickMethodInfo-data WindowWithdrawMethodInfo
− GI/Gdk/Structs.hs 
@@ -1,91 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Structs-    (     module GI.Gdk.Structs.Atom              ,-    module GI.Gdk.Structs.Color             ,-    module GI.Gdk.Structs.EventAny          ,-    module GI.Gdk.Structs.EventButton       ,-    module GI.Gdk.Structs.EventConfigure    ,-    module GI.Gdk.Structs.EventCrossing     ,-    module GI.Gdk.Structs.EventDND          ,-    module GI.Gdk.Structs.EventExpose       ,-    module GI.Gdk.Structs.EventFocus        ,-    module GI.Gdk.Structs.EventGrabBroken   ,-    module GI.Gdk.Structs.EventKey          ,-    module GI.Gdk.Structs.EventMotion       ,-    module GI.Gdk.Structs.EventOwnerChange  ,-    module GI.Gdk.Structs.EventProperty     ,-    module GI.Gdk.Structs.EventProximity    ,-    module GI.Gdk.Structs.EventScroll       ,-    module GI.Gdk.Structs.EventSelection    ,-    module GI.Gdk.Structs.EventSequence     ,-    module GI.Gdk.Structs.EventSetting      ,-    module GI.Gdk.Structs.EventTouch        ,-    module GI.Gdk.Structs.EventTouchpadPinch,-    module GI.Gdk.Structs.EventTouchpadSwipe,-    module GI.Gdk.Structs.EventVisibility   ,-    module GI.Gdk.Structs.EventWindowState  ,-    module GI.Gdk.Structs.FrameTimings      ,-    module GI.Gdk.Structs.Geometry          ,-    module GI.Gdk.Structs.KeymapKey         ,-    module GI.Gdk.Structs.Point             ,-    module GI.Gdk.Structs.RGBA              ,-    module GI.Gdk.Structs.Rectangle         ,-    module GI.Gdk.Structs.TimeCoord         ,-    module GI.Gdk.Structs.WindowAttr        ,-    module GI.Gdk.Structs.WindowRedirect    ,---    ) where--import GI.Gdk.Structs.Atom-import GI.Gdk.Structs.Color-import GI.Gdk.Structs.EventAny-import GI.Gdk.Structs.EventButton-import GI.Gdk.Structs.EventConfigure-import GI.Gdk.Structs.EventCrossing-import GI.Gdk.Structs.EventDND-import GI.Gdk.Structs.EventExpose-import GI.Gdk.Structs.EventFocus-import GI.Gdk.Structs.EventGrabBroken-import GI.Gdk.Structs.EventKey-import GI.Gdk.Structs.EventMotion-import GI.Gdk.Structs.EventOwnerChange-import GI.Gdk.Structs.EventProperty-import GI.Gdk.Structs.EventProximity-import GI.Gdk.Structs.EventScroll-import GI.Gdk.Structs.EventSelection-import GI.Gdk.Structs.EventSequence-import GI.Gdk.Structs.EventSetting-import GI.Gdk.Structs.EventTouch-import GI.Gdk.Structs.EventTouchpadPinch-import GI.Gdk.Structs.EventTouchpadSwipe-import GI.Gdk.Structs.EventVisibility-import GI.Gdk.Structs.EventWindowState-import GI.Gdk.Structs.FrameTimings-import GI.Gdk.Structs.Geometry-import GI.Gdk.Structs.KeymapKey-import GI.Gdk.Structs.Point-import GI.Gdk.Structs.RGBA-import GI.Gdk.Structs.Rectangle-import GI.Gdk.Structs.TimeCoord-import GI.Gdk.Structs.WindowAttr-import GI.Gdk.Structs.WindowRedirect--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--
− GI/Gdk/Structs/Atom.hs 
@@ -1,157 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--An opaque type representing a string as an index into a table-of strings on the X server.--}--module GI.Gdk.Structs.Atom-    ( ---- * Exported types-    Atom(..)                                ,-    noAtom                                  ,--- -- * Methods--- ** atomIntern-    atomIntern                              ,----- ** atomInternStaticString-    atomInternStaticString                  ,----- ** atomName-    AtomNameMethodInfo                      ,-    atomName                                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype Atom = Atom (ForeignPtr Atom)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr Atom where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noAtom :: Maybe Atom-noAtom = Nothing---type instance AttributeList Atom = AtomAttributeList-type AtomAttributeList = ('[ ] :: [(Symbol, *)])---- method Atom::name--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_atom_name" gdk_atom_name :: -    Ptr Atom ->                             -- _obj : TInterface "Gdk" "Atom"-    IO CString---atomName ::-    (MonadIO m) =>-    Atom                                    -- _obj-    -> m T.Text                             -- result-atomName _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_atom_name _obj'-    checkUnexpectedReturnNULL "gdk_atom_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data AtomNameMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo AtomNameMethodInfo Atom signature where-    overloadedMethod _ = atomName---- method Atom::intern--- method type : MemberFunction--- Args : [Arg {argCName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Atom")--- throws : False--- Skip return : False--foreign import ccall "gdk_atom_intern" gdk_atom_intern :: -    CString ->                              -- atom_name : TBasicType TUTF8-    CInt ->                                 -- only_if_exists : TBasicType TBoolean-    IO (Ptr Atom)---atomIntern ::-    (MonadIO m) =>-    T.Text                                  -- atomName-    -> Bool                                 -- onlyIfExists-    -> m Atom                               -- result-atomIntern atomName onlyIfExists = liftIO $ do-    atomName' <- textToCString atomName-    let onlyIfExists' = (fromIntegral . fromEnum) onlyIfExists-    result <- gdk_atom_intern atomName' onlyIfExists'-    checkUnexpectedReturnNULL "gdk_atom_intern" result-    result' <- (newPtr Atom) result-    freeMem atomName'-    return result'---- method Atom::intern_static_string--- method type : MemberFunction--- Args : [Arg {argCName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Atom")--- throws : False--- Skip return : False--foreign import ccall "gdk_atom_intern_static_string" gdk_atom_intern_static_string :: -    CString ->                              -- atom_name : TBasicType TUTF8-    IO (Ptr Atom)---atomInternStaticString ::-    (MonadIO m) =>-    T.Text                                  -- atomName-    -> m Atom                               -- result-atomInternStaticString atomName = liftIO $ do-    atomName' <- textToCString atomName-    result <- gdk_atom_intern_static_string atomName'-    checkUnexpectedReturnNULL "gdk_atom_intern_static_string" result-    result' <- (newPtr Atom) result-    freeMem atomName'-    return result'--type family ResolveAtomMethod (t :: Symbol) (o :: *) :: * where-    ResolveAtomMethod "name" o = AtomNameMethodInfo-    ResolveAtomMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveAtomMethod t Atom, MethodInfo info Atom p) => IsLabelProxy t (Atom -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveAtomMethod t Atom, MethodInfo info Atom p) => IsLabel t (Atom -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/Atom.hs-boot 
@@ -1,12 +0,0 @@-module GI.Gdk.Structs.Atom where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Atom = Atom (ForeignPtr Atom)-instance WrappedPtr Atom where-data AtomNameMethodInfo
− GI/Gdk/Structs/Color.hs 
@@ -1,405 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #GdkColor is used to describe a color,-similar to the XColor struct used in the X11 drawing API.--}--module GI.Gdk.Structs.Color-    ( ---- * Exported types-    Color(..)                               ,-    newZeroColor                            ,-    noColor                                 ,--- -- * Methods--- ** colorCopy-    ColorCopyMethodInfo                     ,-    colorCopy                               ,----- ** colorEqual-    ColorEqualMethodInfo                    ,-    colorEqual                              ,----- ** colorFree-    ColorFreeMethodInfo                     ,-    colorFree                               ,----- ** colorHash-    ColorHashMethodInfo                     ,-    colorHash                               ,----- ** colorParse-    colorParse                              ,----- ** colorToString-    ColorToStringMethodInfo                 ,-    colorToString                           ,----- -- * Properties--- ** Blue-    colorBlue                               ,-    colorReadBlue                           ,-    colorWriteBlue                          ,----- ** Green-    colorGreen                              ,-    colorReadGreen                          ,-    colorWriteGreen                         ,----- ** Pixel-    colorPixel                              ,-    colorReadPixel                          ,-    colorWritePixel                         ,----- ** Red-    colorReadRed                            ,-    colorRed                                ,-    colorWriteRed                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype Color = Color (ForeignPtr Color)-foreign import ccall "gdk_color_get_type" c_gdk_color_get_type :: -    IO GType--instance BoxedObject Color where-    boxedType _ = c_gdk_color_get_type---- | Construct a `Color` struct initialized to zero.-newZeroColor :: MonadIO m => m Color-newZeroColor = liftIO $ callocBoxedBytes 12 >>= wrapBoxed Color--instance tag ~ 'AttrSet => Constructible Color tag where-    new _ attrs = do-        o <- newZeroColor-        GI.Attributes.set o attrs-        return o---noColor :: Maybe Color-noColor = Nothing--colorReadPixel :: MonadIO m => Color -> m Word32-colorReadPixel s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--colorWritePixel :: MonadIO m => Color -> Word32 -> m ()-colorWritePixel s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Word32)--data ColorPixelFieldInfo-instance AttrInfo ColorPixelFieldInfo where-    type AttrAllowedOps ColorPixelFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ColorPixelFieldInfo = (~) Word32-    type AttrBaseTypeConstraint ColorPixelFieldInfo = (~) Color-    type AttrGetType ColorPixelFieldInfo = Word32-    type AttrLabel ColorPixelFieldInfo = "pixel"-    attrGet _ = colorReadPixel-    attrSet _ = colorWritePixel-    attrConstruct = undefined-    attrClear _ = undefined--colorPixel :: AttrLabelProxy "pixel"-colorPixel = AttrLabelProxy---colorReadRed :: MonadIO m => Color -> m Word16-colorReadRed s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word16-    return val--colorWriteRed :: MonadIO m => Color -> Word16 -> m ()-colorWriteRed s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Word16)--data ColorRedFieldInfo-instance AttrInfo ColorRedFieldInfo where-    type AttrAllowedOps ColorRedFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ColorRedFieldInfo = (~) Word16-    type AttrBaseTypeConstraint ColorRedFieldInfo = (~) Color-    type AttrGetType ColorRedFieldInfo = Word16-    type AttrLabel ColorRedFieldInfo = "red"-    attrGet _ = colorReadRed-    attrSet _ = colorWriteRed-    attrConstruct = undefined-    attrClear _ = undefined--colorRed :: AttrLabelProxy "red"-colorRed = AttrLabelProxy---colorReadGreen :: MonadIO m => Color -> m Word16-colorReadGreen s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 6) :: IO Word16-    return val--colorWriteGreen :: MonadIO m => Color -> Word16 -> m ()-colorWriteGreen s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 6) (val :: Word16)--data ColorGreenFieldInfo-instance AttrInfo ColorGreenFieldInfo where-    type AttrAllowedOps ColorGreenFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ColorGreenFieldInfo = (~) Word16-    type AttrBaseTypeConstraint ColorGreenFieldInfo = (~) Color-    type AttrGetType ColorGreenFieldInfo = Word16-    type AttrLabel ColorGreenFieldInfo = "green"-    attrGet _ = colorReadGreen-    attrSet _ = colorWriteGreen-    attrConstruct = undefined-    attrClear _ = undefined--colorGreen :: AttrLabelProxy "green"-colorGreen = AttrLabelProxy---colorReadBlue :: MonadIO m => Color -> m Word16-colorReadBlue s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word16-    return val--colorWriteBlue :: MonadIO m => Color -> Word16 -> m ()-colorWriteBlue s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Word16)--data ColorBlueFieldInfo-instance AttrInfo ColorBlueFieldInfo where-    type AttrAllowedOps ColorBlueFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint ColorBlueFieldInfo = (~) Word16-    type AttrBaseTypeConstraint ColorBlueFieldInfo = (~) Color-    type AttrGetType ColorBlueFieldInfo = Word16-    type AttrLabel ColorBlueFieldInfo = "blue"-    attrGet _ = colorReadBlue-    attrSet _ = colorWriteBlue-    attrConstruct = undefined-    attrClear _ = undefined--colorBlue :: AttrLabelProxy "blue"-colorBlue = AttrLabelProxy----type instance AttributeList Color = ColorAttributeList-type ColorAttributeList = ('[ '("pixel", ColorPixelFieldInfo), '("red", ColorRedFieldInfo), '("green", ColorGreenFieldInfo), '("blue", ColorBlueFieldInfo)] :: [(Symbol, *)])---- method Color::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Color")--- throws : False--- Skip return : False--foreign import ccall "gdk_color_copy" gdk_color_copy :: -    Ptr Color ->                            -- _obj : TInterface "Gdk" "Color"-    IO (Ptr Color)--{-# DEPRECATED colorCopy ["(Since version 3.14)","Use #GdkRGBA"]#-}-colorCopy ::-    (MonadIO m) =>-    Color                                   -- _obj-    -> m Color                              -- result-colorCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_color_copy _obj'-    checkUnexpectedReturnNULL "gdk_color_copy" result-    result' <- (wrapBoxed Color) result-    touchManagedPtr _obj-    return result'--data ColorCopyMethodInfo-instance (signature ~ (m Color), MonadIO m) => MethodInfo ColorCopyMethodInfo Color signature where-    overloadedMethod _ = colorCopy---- method Color::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_color_equal" gdk_color_equal :: -    Ptr Color ->                            -- _obj : TInterface "Gdk" "Color"-    Ptr Color ->                            -- colorb : TInterface "Gdk" "Color"-    IO CInt--{-# DEPRECATED colorEqual ["(Since version 3.14)","Use #GdkRGBA"]#-}-colorEqual ::-    (MonadIO m) =>-    Color                                   -- _obj-    -> Color                                -- colorb-    -> m Bool                               -- result-colorEqual _obj colorb = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let colorb' = unsafeManagedPtrGetPtr colorb-    result <- gdk_color_equal _obj' colorb'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr colorb-    return result'--data ColorEqualMethodInfo-instance (signature ~ (Color -> m Bool), MonadIO m) => MethodInfo ColorEqualMethodInfo Color signature where-    overloadedMethod _ = colorEqual---- method Color::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_color_free" gdk_color_free :: -    Ptr Color ->                            -- _obj : TInterface "Gdk" "Color"-    IO ()--{-# DEPRECATED colorFree ["(Since version 3.14)","Use #GdkRGBA"]#-}-colorFree ::-    (MonadIO m) =>-    Color                                   -- _obj-    -> m ()                                 -- result-colorFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_color_free _obj'-    touchManagedPtr _obj-    return ()--data ColorFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo ColorFreeMethodInfo Color signature where-    overloadedMethod _ = colorFree---- method Color::hash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_color_hash" gdk_color_hash :: -    Ptr Color ->                            -- _obj : TInterface "Gdk" "Color"-    IO Word32--{-# DEPRECATED colorHash ["(Since version 3.14)","Use #GdkRGBA"]#-}-colorHash ::-    (MonadIO m) =>-    Color                                   -- _obj-    -> m Word32                             -- result-colorHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_color_hash _obj'-    touchManagedPtr _obj-    return result--data ColorHashMethodInfo-instance (signature ~ (m Word32), MonadIO m) => MethodInfo ColorHashMethodInfo Color signature where-    overloadedMethod _ = colorHash---- method Color::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_color_to_string" gdk_color_to_string :: -    Ptr Color ->                            -- _obj : TInterface "Gdk" "Color"-    IO CString--{-# DEPRECATED colorToString ["(Since version 3.14)","Use #GdkRGBA"]#-}-colorToString ::-    (MonadIO m) =>-    Color                                   -- _obj-    -> m T.Text                             -- result-colorToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_color_to_string _obj'-    checkUnexpectedReturnNULL "gdk_color_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data ColorToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo ColorToStringMethodInfo Color signature where-    overloadedMethod _ = colorToString---- method Color::parse--- method type : MemberFunction--- Args : [Arg {argCName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_color_parse" gdk_color_parse :: -    CString ->                              -- spec : TBasicType TUTF8-    Ptr Color ->                            -- color : TInterface "Gdk" "Color"-    IO CInt--{-# DEPRECATED colorParse ["(Since version 3.14)","Use #GdkRGBA"]#-}-colorParse ::-    (MonadIO m) =>-    T.Text                                  -- spec-    -> m (Bool,Color)                       -- result-colorParse spec = liftIO $ do-    spec' <- textToCString spec-    color <- callocBoxedBytes 12 :: IO (Ptr Color)-    result <- gdk_color_parse spec' color-    let result' = (/= 0) result-    color' <- (wrapBoxed Color) color-    freeMem spec'-    return (result', color')--type family ResolveColorMethod (t :: Symbol) (o :: *) :: * where-    ResolveColorMethod "copy" o = ColorCopyMethodInfo-    ResolveColorMethod "equal" o = ColorEqualMethodInfo-    ResolveColorMethod "free" o = ColorFreeMethodInfo-    ResolveColorMethod "hash" o = ColorHashMethodInfo-    ResolveColorMethod "toString" o = ColorToStringMethodInfo-    ResolveColorMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabelProxy t (Color -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveColorMethod t Color, MethodInfo info Color p) => IsLabel t (Color -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/Color.hs-boot 
@@ -1,16 +0,0 @@-module GI.Gdk.Structs.Color where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Color = Color (ForeignPtr Color)-instance BoxedObject Color where-data ColorCopyMethodInfo-data ColorEqualMethodInfo-data ColorFreeMethodInfo-data ColorHashMethodInfo-data ColorToStringMethodInfo
− GI/Gdk/Structs/EventAny.hs 
@@ -1,175 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Contains the fields which are common to all event structs.-Any event pointer can safely be cast to a pointer to a #GdkEventAny to-access these fields.--}--module GI.Gdk.Structs.EventAny-    ( ---- * Exported types-    EventAny(..)                            ,-    newZeroEventAny                         ,-    noEventAny                              ,--- -- * Properties--- ** SendEvent-    eventAnyReadSendEvent                   ,-    eventAnySendEvent                       ,-    eventAnyWriteSendEvent                  ,----- ** Type-    eventAnyReadType                        ,-    eventAnyType                            ,-    eventAnyWriteType                       ,----- ** Window-    eventAnyClearWindow                     ,-    eventAnyReadWindow                      ,-    eventAnyWindow                          ,-    eventAnyWriteWindow                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventAny = EventAny (ForeignPtr EventAny)-instance WrappedPtr EventAny where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventAny` struct initialized to zero.-newZeroEventAny :: MonadIO m => m EventAny-newZeroEventAny = liftIO $ wrappedPtrCalloc >>= wrapPtr EventAny--instance tag ~ 'AttrSet => Constructible EventAny tag where-    new _ attrs = do-        o <- newZeroEventAny-        GI.Attributes.set o attrs-        return o---noEventAny :: Maybe EventAny-noEventAny = Nothing--eventAnyReadType :: MonadIO m => EventAny -> m EventType-eventAnyReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventAnyWriteType :: MonadIO m => EventAny -> EventType -> m ()-eventAnyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventAnyTypeFieldInfo-instance AttrInfo EventAnyTypeFieldInfo where-    type AttrAllowedOps EventAnyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventAnyTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventAnyTypeFieldInfo = (~) EventAny-    type AttrGetType EventAnyTypeFieldInfo = EventType-    type AttrLabel EventAnyTypeFieldInfo = "type"-    attrGet _ = eventAnyReadType-    attrSet _ = eventAnyWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventAnyType :: AttrLabelProxy "type"-eventAnyType = AttrLabelProxy---eventAnyReadWindow :: MonadIO m => EventAny -> m (Maybe Window)-eventAnyReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventAnyWriteWindow :: MonadIO m => EventAny -> Ptr Window -> m ()-eventAnyWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventAnyClearWindow :: MonadIO m => EventAny -> m ()-eventAnyClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventAnyWindowFieldInfo-instance AttrInfo EventAnyWindowFieldInfo where-    type AttrAllowedOps EventAnyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventAnyWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventAnyWindowFieldInfo = (~) EventAny-    type AttrGetType EventAnyWindowFieldInfo = Maybe Window-    type AttrLabel EventAnyWindowFieldInfo = "window"-    attrGet _ = eventAnyReadWindow-    attrSet _ = eventAnyWriteWindow-    attrConstruct = undefined-    attrClear _ = eventAnyClearWindow--eventAnyWindow :: AttrLabelProxy "window"-eventAnyWindow = AttrLabelProxy---eventAnyReadSendEvent :: MonadIO m => EventAny -> m Int8-eventAnyReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventAnyWriteSendEvent :: MonadIO m => EventAny -> Int8 -> m ()-eventAnyWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventAnySendEventFieldInfo-instance AttrInfo EventAnySendEventFieldInfo where-    type AttrAllowedOps EventAnySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventAnySendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventAnySendEventFieldInfo = (~) EventAny-    type AttrGetType EventAnySendEventFieldInfo = Int8-    type AttrLabel EventAnySendEventFieldInfo = "send_event"-    attrGet _ = eventAnyReadSendEvent-    attrSet _ = eventAnyWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventAnySendEvent :: AttrLabelProxy "sendEvent"-eventAnySendEvent = AttrLabelProxy----type instance AttributeList EventAny = EventAnyAttributeList-type EventAnyAttributeList = ('[ '("type", EventAnyTypeFieldInfo), '("window", EventAnyWindowFieldInfo), '("sendEvent", EventAnySendEventFieldInfo)] :: [(Symbol, *)])--type family ResolveEventAnyMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventAnyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventAnyMethod t EventAny, MethodInfo info EventAny p) => IsLabelProxy t (EventAny -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventAnyMethod t EventAny, MethodInfo info EventAny p) => IsLabel t (EventAny -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventAny.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventAny where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventAny = EventAny (ForeignPtr EventAny)-instance WrappedPtr EventAny where
− GI/Gdk/Structs/EventButton.hs 
@@ -1,504 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Used for button press and button release events. The-@type field will be one of %GDK_BUTTON_PRESS,-%GDK_2BUTTON_PRESS, %GDK_3BUTTON_PRESS or %GDK_BUTTON_RELEASE,--Double and triple-clicks result in a sequence of events being received.-For double-clicks the order of events will be:--- %GDK_BUTTON_PRESS-- %GDK_BUTTON_RELEASE-- %GDK_BUTTON_PRESS-- %GDK_2BUTTON_PRESS-- %GDK_BUTTON_RELEASE--Note that the first click is received just like a normal-button press, while the second click results in a %GDK_2BUTTON_PRESS-being received just after the %GDK_BUTTON_PRESS.--Triple-clicks are very similar to double-clicks, except that-%GDK_3BUTTON_PRESS is inserted after the third click. The order of the-events is:--- %GDK_BUTTON_PRESS-- %GDK_BUTTON_RELEASE-- %GDK_BUTTON_PRESS-- %GDK_2BUTTON_PRESS-- %GDK_BUTTON_RELEASE-- %GDK_BUTTON_PRESS-- %GDK_3BUTTON_PRESS-- %GDK_BUTTON_RELEASE--For a double click to occur, the second button press must occur within-1/4 of a second of the first. For a triple click to occur, the third-button press must also occur within 1/2 second of the first button press.--}--module GI.Gdk.Structs.EventButton-    ( ---- * Exported types-    EventButton(..)                         ,-    newZeroEventButton                      ,-    noEventButton                           ,--- -- * Properties--- ** Axes-    eventButtonAxes                         ,-    eventButtonReadAxes                     ,-    eventButtonWriteAxes                    ,----- ** Button-    eventButtonButton                       ,-    eventButtonReadButton                   ,-    eventButtonWriteButton                  ,----- ** Device-    eventButtonClearDevice                  ,-    eventButtonDevice                       ,-    eventButtonReadDevice                   ,-    eventButtonWriteDevice                  ,----- ** SendEvent-    eventButtonReadSendEvent                ,-    eventButtonSendEvent                    ,-    eventButtonWriteSendEvent               ,----- ** State-    eventButtonReadState                    ,-    eventButtonState                        ,-    eventButtonWriteState                   ,----- ** Time-    eventButtonReadTime                     ,-    eventButtonTime                         ,-    eventButtonWriteTime                    ,----- ** Type-    eventButtonReadType                     ,-    eventButtonType                         ,-    eventButtonWriteType                    ,----- ** Window-    eventButtonClearWindow                  ,-    eventButtonReadWindow                   ,-    eventButtonWindow                       ,-    eventButtonWriteWindow                  ,----- ** X-    eventButtonReadX                        ,-    eventButtonWriteX                       ,-    eventButtonX                            ,----- ** XRoot-    eventButtonReadXRoot                    ,-    eventButtonWriteXRoot                   ,-    eventButtonXRoot                        ,----- ** Y-    eventButtonReadY                        ,-    eventButtonWriteY                       ,-    eventButtonY                            ,----- ** YRoot-    eventButtonReadYRoot                    ,-    eventButtonWriteYRoot                   ,-    eventButtonYRoot                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventButton = EventButton (ForeignPtr EventButton)-instance WrappedPtr EventButton where-    wrappedPtrCalloc = callocBytes 80-    wrappedPtrCopy = copyPtr 80-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventButton` struct initialized to zero.-newZeroEventButton :: MonadIO m => m EventButton-newZeroEventButton = liftIO $ wrappedPtrCalloc >>= wrapPtr EventButton--instance tag ~ 'AttrSet => Constructible EventButton tag where-    new _ attrs = do-        o <- newZeroEventButton-        GI.Attributes.set o attrs-        return o---noEventButton :: Maybe EventButton-noEventButton = Nothing--eventButtonReadType :: MonadIO m => EventButton -> m EventType-eventButtonReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventButtonWriteType :: MonadIO m => EventButton -> EventType -> m ()-eventButtonWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventButtonTypeFieldInfo-instance AttrInfo EventButtonTypeFieldInfo where-    type AttrAllowedOps EventButtonTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventButtonTypeFieldInfo = (~) EventButton-    type AttrGetType EventButtonTypeFieldInfo = EventType-    type AttrLabel EventButtonTypeFieldInfo = "type"-    attrGet _ = eventButtonReadType-    attrSet _ = eventButtonWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonType :: AttrLabelProxy "type"-eventButtonType = AttrLabelProxy---eventButtonReadWindow :: MonadIO m => EventButton -> m (Maybe Window)-eventButtonReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventButtonWriteWindow :: MonadIO m => EventButton -> Ptr Window -> m ()-eventButtonWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventButtonClearWindow :: MonadIO m => EventButton -> m ()-eventButtonClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventButtonWindowFieldInfo-instance AttrInfo EventButtonWindowFieldInfo where-    type AttrAllowedOps EventButtonWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventButtonWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventButtonWindowFieldInfo = (~) EventButton-    type AttrGetType EventButtonWindowFieldInfo = Maybe Window-    type AttrLabel EventButtonWindowFieldInfo = "window"-    attrGet _ = eventButtonReadWindow-    attrSet _ = eventButtonWriteWindow-    attrConstruct = undefined-    attrClear _ = eventButtonClearWindow--eventButtonWindow :: AttrLabelProxy "window"-eventButtonWindow = AttrLabelProxy---eventButtonReadSendEvent :: MonadIO m => EventButton -> m Int8-eventButtonReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventButtonWriteSendEvent :: MonadIO m => EventButton -> Int8 -> m ()-eventButtonWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventButtonSendEventFieldInfo-instance AttrInfo EventButtonSendEventFieldInfo where-    type AttrAllowedOps EventButtonSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventButtonSendEventFieldInfo = (~) EventButton-    type AttrGetType EventButtonSendEventFieldInfo = Int8-    type AttrLabel EventButtonSendEventFieldInfo = "send_event"-    attrGet _ = eventButtonReadSendEvent-    attrSet _ = eventButtonWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonSendEvent :: AttrLabelProxy "sendEvent"-eventButtonSendEvent = AttrLabelProxy---eventButtonReadTime :: MonadIO m => EventButton -> m Word32-eventButtonReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventButtonWriteTime :: MonadIO m => EventButton -> Word32 -> m ()-eventButtonWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--data EventButtonTimeFieldInfo-instance AttrInfo EventButtonTimeFieldInfo where-    type AttrAllowedOps EventButtonTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventButtonTimeFieldInfo = (~) EventButton-    type AttrGetType EventButtonTimeFieldInfo = Word32-    type AttrLabel EventButtonTimeFieldInfo = "time"-    attrGet _ = eventButtonReadTime-    attrSet _ = eventButtonWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonTime :: AttrLabelProxy "time"-eventButtonTime = AttrLabelProxy---eventButtonReadX :: MonadIO m => EventButton -> m Double-eventButtonReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonWriteX :: MonadIO m => EventButton -> Double -> m ()-eventButtonWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data EventButtonXFieldInfo-instance AttrInfo EventButtonXFieldInfo where-    type AttrAllowedOps EventButtonXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventButtonXFieldInfo = (~) EventButton-    type AttrGetType EventButtonXFieldInfo = Double-    type AttrLabel EventButtonXFieldInfo = "x"-    attrGet _ = eventButtonReadX-    attrSet _ = eventButtonWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonX :: AttrLabelProxy "x"-eventButtonX = AttrLabelProxy---eventButtonReadY :: MonadIO m => EventButton -> m Double-eventButtonReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonWriteY :: MonadIO m => EventButton -> Double -> m ()-eventButtonWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data EventButtonYFieldInfo-instance AttrInfo EventButtonYFieldInfo where-    type AttrAllowedOps EventButtonYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventButtonYFieldInfo = (~) EventButton-    type AttrGetType EventButtonYFieldInfo = Double-    type AttrLabel EventButtonYFieldInfo = "y"-    attrGet _ = eventButtonReadY-    attrSet _ = eventButtonWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonY :: AttrLabelProxy "y"-eventButtonY = AttrLabelProxy---eventButtonReadAxes :: MonadIO m => EventButton -> m Double-eventButtonReadAxes s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonWriteAxes :: MonadIO m => EventButton -> Double -> m ()-eventButtonWriteAxes s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data EventButtonAxesFieldInfo-instance AttrInfo EventButtonAxesFieldInfo where-    type AttrAllowedOps EventButtonAxesFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonAxesFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventButtonAxesFieldInfo = (~) EventButton-    type AttrGetType EventButtonAxesFieldInfo = Double-    type AttrLabel EventButtonAxesFieldInfo = "axes"-    attrGet _ = eventButtonReadAxes-    attrSet _ = eventButtonWriteAxes-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonAxes :: AttrLabelProxy "axes"-eventButtonAxes = AttrLabelProxy---eventButtonReadState :: MonadIO m => EventButton -> m [ModifierType]-eventButtonReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventButtonWriteState :: MonadIO m => EventButton -> [ModifierType] -> m ()-eventButtonWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 48) (val' :: CUInt)--data EventButtonStateFieldInfo-instance AttrInfo EventButtonStateFieldInfo where-    type AttrAllowedOps EventButtonStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventButtonStateFieldInfo = (~) EventButton-    type AttrGetType EventButtonStateFieldInfo = [ModifierType]-    type AttrLabel EventButtonStateFieldInfo = "state"-    attrGet _ = eventButtonReadState-    attrSet _ = eventButtonWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonState :: AttrLabelProxy "state"-eventButtonState = AttrLabelProxy---eventButtonReadButton :: MonadIO m => EventButton -> m Word32-eventButtonReadButton s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Word32-    return val--eventButtonWriteButton :: MonadIO m => EventButton -> Word32 -> m ()-eventButtonWriteButton s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 52) (val :: Word32)--data EventButtonButtonFieldInfo-instance AttrInfo EventButtonButtonFieldInfo where-    type AttrAllowedOps EventButtonButtonFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonButtonFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventButtonButtonFieldInfo = (~) EventButton-    type AttrGetType EventButtonButtonFieldInfo = Word32-    type AttrLabel EventButtonButtonFieldInfo = "button"-    attrGet _ = eventButtonReadButton-    attrSet _ = eventButtonWriteButton-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonButton :: AttrLabelProxy "button"-eventButtonButton = AttrLabelProxy---eventButtonReadDevice :: MonadIO m => EventButton -> m (Maybe Device)-eventButtonReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Device) val'-        return val''-    return result--eventButtonWriteDevice :: MonadIO m => EventButton -> Ptr Device -> m ()-eventButtonWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: Ptr Device)--eventButtonClearDevice :: MonadIO m => EventButton -> m ()-eventButtonClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (nullPtr :: Ptr Device)--data EventButtonDeviceFieldInfo-instance AttrInfo EventButtonDeviceFieldInfo where-    type AttrAllowedOps EventButtonDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventButtonDeviceFieldInfo = (~) (Ptr Device)-    type AttrBaseTypeConstraint EventButtonDeviceFieldInfo = (~) EventButton-    type AttrGetType EventButtonDeviceFieldInfo = Maybe Device-    type AttrLabel EventButtonDeviceFieldInfo = "device"-    attrGet _ = eventButtonReadDevice-    attrSet _ = eventButtonWriteDevice-    attrConstruct = undefined-    attrClear _ = eventButtonClearDevice--eventButtonDevice :: AttrLabelProxy "device"-eventButtonDevice = AttrLabelProxy---eventButtonReadXRoot :: MonadIO m => EventButton -> m Double-eventButtonReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonWriteXRoot :: MonadIO m => EventButton -> Double -> m ()-eventButtonWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 64) (val' :: CDouble)--data EventButtonXRootFieldInfo-instance AttrInfo EventButtonXRootFieldInfo where-    type AttrAllowedOps EventButtonXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonXRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventButtonXRootFieldInfo = (~) EventButton-    type AttrGetType EventButtonXRootFieldInfo = Double-    type AttrLabel EventButtonXRootFieldInfo = "x_root"-    attrGet _ = eventButtonReadXRoot-    attrSet _ = eventButtonWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonXRoot :: AttrLabelProxy "xRoot"-eventButtonXRoot = AttrLabelProxy---eventButtonReadYRoot :: MonadIO m => EventButton -> m Double-eventButtonReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonWriteYRoot :: MonadIO m => EventButton -> Double -> m ()-eventButtonWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 72) (val' :: CDouble)--data EventButtonYRootFieldInfo-instance AttrInfo EventButtonYRootFieldInfo where-    type AttrAllowedOps EventButtonYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventButtonYRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventButtonYRootFieldInfo = (~) EventButton-    type AttrGetType EventButtonYRootFieldInfo = Double-    type AttrLabel EventButtonYRootFieldInfo = "y_root"-    attrGet _ = eventButtonReadYRoot-    attrSet _ = eventButtonWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventButtonYRoot :: AttrLabelProxy "yRoot"-eventButtonYRoot = AttrLabelProxy----type instance AttributeList EventButton = EventButtonAttributeList-type EventButtonAttributeList = ('[ '("type", EventButtonTypeFieldInfo), '("window", EventButtonWindowFieldInfo), '("sendEvent", EventButtonSendEventFieldInfo), '("time", EventButtonTimeFieldInfo), '("x", EventButtonXFieldInfo), '("y", EventButtonYFieldInfo), '("axes", EventButtonAxesFieldInfo), '("state", EventButtonStateFieldInfo), '("button", EventButtonButtonFieldInfo), '("device", EventButtonDeviceFieldInfo), '("xRoot", EventButtonXRootFieldInfo), '("yRoot", EventButtonYRootFieldInfo)] :: [(Symbol, *)])--type family ResolveEventButtonMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventButtonMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventButtonMethod t EventButton, MethodInfo info EventButton p) => IsLabelProxy t (EventButton -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventButtonMethod t EventButton, MethodInfo info EventButton p) => IsLabel t (EventButton -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventButton.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventButton where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventButton = EventButton (ForeignPtr EventButton)-instance WrappedPtr EventButton where
− GI/Gdk/Structs/EventConfigure.hs 
@@ -1,297 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when a window size or position has changed.--}--module GI.Gdk.Structs.EventConfigure-    ( ---- * Exported types-    EventConfigure(..)                      ,-    newZeroEventConfigure                   ,-    noEventConfigure                        ,--- -- * Properties--- ** Height-    eventConfigureHeight                    ,-    eventConfigureReadHeight                ,-    eventConfigureWriteHeight               ,----- ** SendEvent-    eventConfigureReadSendEvent             ,-    eventConfigureSendEvent                 ,-    eventConfigureWriteSendEvent            ,----- ** Type-    eventConfigureReadType                  ,-    eventConfigureType                      ,-    eventConfigureWriteType                 ,----- ** Width-    eventConfigureReadWidth                 ,-    eventConfigureWidth                     ,-    eventConfigureWriteWidth                ,----- ** Window-    eventConfigureClearWindow               ,-    eventConfigureReadWindow                ,-    eventConfigureWindow                    ,-    eventConfigureWriteWindow               ,----- ** X-    eventConfigureReadX                     ,-    eventConfigureWriteX                    ,-    eventConfigureX                         ,----- ** Y-    eventConfigureReadY                     ,-    eventConfigureWriteY                    ,-    eventConfigureY                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure)-instance WrappedPtr EventConfigure where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = copyPtr 40-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventConfigure` struct initialized to zero.-newZeroEventConfigure :: MonadIO m => m EventConfigure-newZeroEventConfigure = liftIO $ wrappedPtrCalloc >>= wrapPtr EventConfigure--instance tag ~ 'AttrSet => Constructible EventConfigure tag where-    new _ attrs = do-        o <- newZeroEventConfigure-        GI.Attributes.set o attrs-        return o---noEventConfigure :: Maybe EventConfigure-noEventConfigure = Nothing--eventConfigureReadType :: MonadIO m => EventConfigure -> m EventType-eventConfigureReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventConfigureWriteType :: MonadIO m => EventConfigure -> EventType -> m ()-eventConfigureWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventConfigureTypeFieldInfo-instance AttrInfo EventConfigureTypeFieldInfo where-    type AttrAllowedOps EventConfigureTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventConfigureTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventConfigureTypeFieldInfo = (~) EventConfigure-    type AttrGetType EventConfigureTypeFieldInfo = EventType-    type AttrLabel EventConfigureTypeFieldInfo = "type"-    attrGet _ = eventConfigureReadType-    attrSet _ = eventConfigureWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventConfigureType :: AttrLabelProxy "type"-eventConfigureType = AttrLabelProxy---eventConfigureReadWindow :: MonadIO m => EventConfigure -> m (Maybe Window)-eventConfigureReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventConfigureWriteWindow :: MonadIO m => EventConfigure -> Ptr Window -> m ()-eventConfigureWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventConfigureClearWindow :: MonadIO m => EventConfigure -> m ()-eventConfigureClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventConfigureWindowFieldInfo-instance AttrInfo EventConfigureWindowFieldInfo where-    type AttrAllowedOps EventConfigureWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventConfigureWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventConfigureWindowFieldInfo = (~) EventConfigure-    type AttrGetType EventConfigureWindowFieldInfo = Maybe Window-    type AttrLabel EventConfigureWindowFieldInfo = "window"-    attrGet _ = eventConfigureReadWindow-    attrSet _ = eventConfigureWriteWindow-    attrConstruct = undefined-    attrClear _ = eventConfigureClearWindow--eventConfigureWindow :: AttrLabelProxy "window"-eventConfigureWindow = AttrLabelProxy---eventConfigureReadSendEvent :: MonadIO m => EventConfigure -> m Int8-eventConfigureReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventConfigureWriteSendEvent :: MonadIO m => EventConfigure -> Int8 -> m ()-eventConfigureWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventConfigureSendEventFieldInfo-instance AttrInfo EventConfigureSendEventFieldInfo where-    type AttrAllowedOps EventConfigureSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventConfigureSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventConfigureSendEventFieldInfo = (~) EventConfigure-    type AttrGetType EventConfigureSendEventFieldInfo = Int8-    type AttrLabel EventConfigureSendEventFieldInfo = "send_event"-    attrGet _ = eventConfigureReadSendEvent-    attrSet _ = eventConfigureWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventConfigureSendEvent :: AttrLabelProxy "sendEvent"-eventConfigureSendEvent = AttrLabelProxy---eventConfigureReadX :: MonadIO m => EventConfigure -> m Int32-eventConfigureReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--eventConfigureWriteX :: MonadIO m => EventConfigure -> Int32 -> m ()-eventConfigureWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Int32)--data EventConfigureXFieldInfo-instance AttrInfo EventConfigureXFieldInfo where-    type AttrAllowedOps EventConfigureXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventConfigureXFieldInfo = (~) Int32-    type AttrBaseTypeConstraint EventConfigureXFieldInfo = (~) EventConfigure-    type AttrGetType EventConfigureXFieldInfo = Int32-    type AttrLabel EventConfigureXFieldInfo = "x"-    attrGet _ = eventConfigureReadX-    attrSet _ = eventConfigureWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventConfigureX :: AttrLabelProxy "x"-eventConfigureX = AttrLabelProxy---eventConfigureReadY :: MonadIO m => EventConfigure -> m Int32-eventConfigureReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--eventConfigureWriteY :: MonadIO m => EventConfigure -> Int32 -> m ()-eventConfigureWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Int32)--data EventConfigureYFieldInfo-instance AttrInfo EventConfigureYFieldInfo where-    type AttrAllowedOps EventConfigureYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventConfigureYFieldInfo = (~) Int32-    type AttrBaseTypeConstraint EventConfigureYFieldInfo = (~) EventConfigure-    type AttrGetType EventConfigureYFieldInfo = Int32-    type AttrLabel EventConfigureYFieldInfo = "y"-    attrGet _ = eventConfigureReadY-    attrSet _ = eventConfigureWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventConfigureY :: AttrLabelProxy "y"-eventConfigureY = AttrLabelProxy---eventConfigureReadWidth :: MonadIO m => EventConfigure -> m Int32-eventConfigureReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--eventConfigureWriteWidth :: MonadIO m => EventConfigure -> Int32 -> m ()-eventConfigureWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Int32)--data EventConfigureWidthFieldInfo-instance AttrInfo EventConfigureWidthFieldInfo where-    type AttrAllowedOps EventConfigureWidthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventConfigureWidthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint EventConfigureWidthFieldInfo = (~) EventConfigure-    type AttrGetType EventConfigureWidthFieldInfo = Int32-    type AttrLabel EventConfigureWidthFieldInfo = "width"-    attrGet _ = eventConfigureReadWidth-    attrSet _ = eventConfigureWriteWidth-    attrConstruct = undefined-    attrClear _ = undefined--eventConfigureWidth :: AttrLabelProxy "width"-eventConfigureWidth = AttrLabelProxy---eventConfigureReadHeight :: MonadIO m => EventConfigure -> m Int32-eventConfigureReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--eventConfigureWriteHeight :: MonadIO m => EventConfigure -> Int32 -> m ()-eventConfigureWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Int32)--data EventConfigureHeightFieldInfo-instance AttrInfo EventConfigureHeightFieldInfo where-    type AttrAllowedOps EventConfigureHeightFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventConfigureHeightFieldInfo = (~) Int32-    type AttrBaseTypeConstraint EventConfigureHeightFieldInfo = (~) EventConfigure-    type AttrGetType EventConfigureHeightFieldInfo = Int32-    type AttrLabel EventConfigureHeightFieldInfo = "height"-    attrGet _ = eventConfigureReadHeight-    attrSet _ = eventConfigureWriteHeight-    attrConstruct = undefined-    attrClear _ = undefined--eventConfigureHeight :: AttrLabelProxy "height"-eventConfigureHeight = AttrLabelProxy----type instance AttributeList EventConfigure = EventConfigureAttributeList-type EventConfigureAttributeList = ('[ '("type", EventConfigureTypeFieldInfo), '("window", EventConfigureWindowFieldInfo), '("sendEvent", EventConfigureSendEventFieldInfo), '("x", EventConfigureXFieldInfo), '("y", EventConfigureYFieldInfo), '("width", EventConfigureWidthFieldInfo), '("height", EventConfigureHeightFieldInfo)] :: [(Symbol, *)])--type family ResolveEventConfigureMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventConfigureMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventConfigureMethod t EventConfigure, MethodInfo info EventConfigure p) => IsLabelProxy t (EventConfigure -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventConfigureMethod t EventConfigure, MethodInfo info EventConfigure p) => IsLabel t (EventConfigure -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventConfigure.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventConfigure where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure)-instance WrappedPtr EventConfigure where
− GI/Gdk/Structs/EventCrossing.hs 
@@ -1,507 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when the pointer enters or leaves a window.--}--module GI.Gdk.Structs.EventCrossing-    ( ---- * Exported types-    EventCrossing(..)                       ,-    newZeroEventCrossing                    ,-    noEventCrossing                         ,--- -- * Properties--- ** Detail-    eventCrossingDetail                     ,-    eventCrossingReadDetail                 ,-    eventCrossingWriteDetail                ,----- ** Focus-    eventCrossingFocus                      ,-    eventCrossingReadFocus                  ,-    eventCrossingWriteFocus                 ,----- ** Mode-    eventCrossingMode                       ,-    eventCrossingReadMode                   ,-    eventCrossingWriteMode                  ,----- ** SendEvent-    eventCrossingReadSendEvent              ,-    eventCrossingSendEvent                  ,-    eventCrossingWriteSendEvent             ,----- ** State-    eventCrossingReadState                  ,-    eventCrossingState                      ,-    eventCrossingWriteState                 ,----- ** Subwindow-    eventCrossingClearSubwindow             ,-    eventCrossingReadSubwindow              ,-    eventCrossingSubwindow                  ,-    eventCrossingWriteSubwindow             ,----- ** Time-    eventCrossingReadTime                   ,-    eventCrossingTime                       ,-    eventCrossingWriteTime                  ,----- ** Type-    eventCrossingReadType                   ,-    eventCrossingType                       ,-    eventCrossingWriteType                  ,----- ** Window-    eventCrossingClearWindow                ,-    eventCrossingReadWindow                 ,-    eventCrossingWindow                     ,-    eventCrossingWriteWindow                ,----- ** X-    eventCrossingReadX                      ,-    eventCrossingWriteX                     ,-    eventCrossingX                          ,----- ** XRoot-    eventCrossingReadXRoot                  ,-    eventCrossingWriteXRoot                 ,-    eventCrossingXRoot                      ,----- ** Y-    eventCrossingReadY                      ,-    eventCrossingWriteY                     ,-    eventCrossingY                          ,----- ** YRoot-    eventCrossingReadYRoot                  ,-    eventCrossingWriteYRoot                 ,-    eventCrossingYRoot                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing)-instance WrappedPtr EventCrossing where-    wrappedPtrCalloc = callocBytes 88-    wrappedPtrCopy = copyPtr 88-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventCrossing` struct initialized to zero.-newZeroEventCrossing :: MonadIO m => m EventCrossing-newZeroEventCrossing = liftIO $ wrappedPtrCalloc >>= wrapPtr EventCrossing--instance tag ~ 'AttrSet => Constructible EventCrossing tag where-    new _ attrs = do-        o <- newZeroEventCrossing-        GI.Attributes.set o attrs-        return o---noEventCrossing :: Maybe EventCrossing-noEventCrossing = Nothing--eventCrossingReadType :: MonadIO m => EventCrossing -> m EventType-eventCrossingReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventCrossingWriteType :: MonadIO m => EventCrossing -> EventType -> m ()-eventCrossingWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventCrossingTypeFieldInfo-instance AttrInfo EventCrossingTypeFieldInfo where-    type AttrAllowedOps EventCrossingTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventCrossingTypeFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingTypeFieldInfo = EventType-    type AttrLabel EventCrossingTypeFieldInfo = "type"-    attrGet _ = eventCrossingReadType-    attrSet _ = eventCrossingWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingType :: AttrLabelProxy "type"-eventCrossingType = AttrLabelProxy---eventCrossingReadWindow :: MonadIO m => EventCrossing -> m (Maybe Window)-eventCrossingReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventCrossingWriteWindow :: MonadIO m => EventCrossing -> Ptr Window -> m ()-eventCrossingWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventCrossingClearWindow :: MonadIO m => EventCrossing -> m ()-eventCrossingClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventCrossingWindowFieldInfo-instance AttrInfo EventCrossingWindowFieldInfo where-    type AttrAllowedOps EventCrossingWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventCrossingWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventCrossingWindowFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingWindowFieldInfo = Maybe Window-    type AttrLabel EventCrossingWindowFieldInfo = "window"-    attrGet _ = eventCrossingReadWindow-    attrSet _ = eventCrossingWriteWindow-    attrConstruct = undefined-    attrClear _ = eventCrossingClearWindow--eventCrossingWindow :: AttrLabelProxy "window"-eventCrossingWindow = AttrLabelProxy---eventCrossingReadSendEvent :: MonadIO m => EventCrossing -> m Int8-eventCrossingReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventCrossingWriteSendEvent :: MonadIO m => EventCrossing -> Int8 -> m ()-eventCrossingWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventCrossingSendEventFieldInfo-instance AttrInfo EventCrossingSendEventFieldInfo where-    type AttrAllowedOps EventCrossingSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventCrossingSendEventFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingSendEventFieldInfo = Int8-    type AttrLabel EventCrossingSendEventFieldInfo = "send_event"-    attrGet _ = eventCrossingReadSendEvent-    attrSet _ = eventCrossingWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingSendEvent :: AttrLabelProxy "sendEvent"-eventCrossingSendEvent = AttrLabelProxy---eventCrossingReadSubwindow :: MonadIO m => EventCrossing -> m (Maybe Window)-eventCrossingReadSubwindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventCrossingWriteSubwindow :: MonadIO m => EventCrossing -> Ptr Window -> m ()-eventCrossingWriteSubwindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Window)--eventCrossingClearSubwindow :: MonadIO m => EventCrossing -> m ()-eventCrossingClearSubwindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Window)--data EventCrossingSubwindowFieldInfo-instance AttrInfo EventCrossingSubwindowFieldInfo where-    type AttrAllowedOps EventCrossingSubwindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventCrossingSubwindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventCrossingSubwindowFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingSubwindowFieldInfo = Maybe Window-    type AttrLabel EventCrossingSubwindowFieldInfo = "subwindow"-    attrGet _ = eventCrossingReadSubwindow-    attrSet _ = eventCrossingWriteSubwindow-    attrConstruct = undefined-    attrClear _ = eventCrossingClearSubwindow--eventCrossingSubwindow :: AttrLabelProxy "subwindow"-eventCrossingSubwindow = AttrLabelProxy---eventCrossingReadTime :: MonadIO m => EventCrossing -> m Word32-eventCrossingReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--eventCrossingWriteTime :: MonadIO m => EventCrossing -> Word32 -> m ()-eventCrossingWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Word32)--data EventCrossingTimeFieldInfo-instance AttrInfo EventCrossingTimeFieldInfo where-    type AttrAllowedOps EventCrossingTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventCrossingTimeFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingTimeFieldInfo = Word32-    type AttrLabel EventCrossingTimeFieldInfo = "time"-    attrGet _ = eventCrossingReadTime-    attrSet _ = eventCrossingWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingTime :: AttrLabelProxy "time"-eventCrossingTime = AttrLabelProxy---eventCrossingReadX :: MonadIO m => EventCrossing -> m Double-eventCrossingReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingWriteX :: MonadIO m => EventCrossing -> Double -> m ()-eventCrossingWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data EventCrossingXFieldInfo-instance AttrInfo EventCrossingXFieldInfo where-    type AttrAllowedOps EventCrossingXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventCrossingXFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingXFieldInfo = Double-    type AttrLabel EventCrossingXFieldInfo = "x"-    attrGet _ = eventCrossingReadX-    attrSet _ = eventCrossingWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingX :: AttrLabelProxy "x"-eventCrossingX = AttrLabelProxy---eventCrossingReadY :: MonadIO m => EventCrossing -> m Double-eventCrossingReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingWriteY :: MonadIO m => EventCrossing -> Double -> m ()-eventCrossingWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 48) (val' :: CDouble)--data EventCrossingYFieldInfo-instance AttrInfo EventCrossingYFieldInfo where-    type AttrAllowedOps EventCrossingYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventCrossingYFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingYFieldInfo = Double-    type AttrLabel EventCrossingYFieldInfo = "y"-    attrGet _ = eventCrossingReadY-    attrSet _ = eventCrossingWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingY :: AttrLabelProxy "y"-eventCrossingY = AttrLabelProxy---eventCrossingReadXRoot :: MonadIO m => EventCrossing -> m Double-eventCrossingReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingWriteXRoot :: MonadIO m => EventCrossing -> Double -> m ()-eventCrossingWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 56) (val' :: CDouble)--data EventCrossingXRootFieldInfo-instance AttrInfo EventCrossingXRootFieldInfo where-    type AttrAllowedOps EventCrossingXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingXRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventCrossingXRootFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingXRootFieldInfo = Double-    type AttrLabel EventCrossingXRootFieldInfo = "x_root"-    attrGet _ = eventCrossingReadXRoot-    attrSet _ = eventCrossingWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingXRoot :: AttrLabelProxy "xRoot"-eventCrossingXRoot = AttrLabelProxy---eventCrossingReadYRoot :: MonadIO m => EventCrossing -> m Double-eventCrossingReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingWriteYRoot :: MonadIO m => EventCrossing -> Double -> m ()-eventCrossingWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 64) (val' :: CDouble)--data EventCrossingYRootFieldInfo-instance AttrInfo EventCrossingYRootFieldInfo where-    type AttrAllowedOps EventCrossingYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingYRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventCrossingYRootFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingYRootFieldInfo = Double-    type AttrLabel EventCrossingYRootFieldInfo = "y_root"-    attrGet _ = eventCrossingReadYRoot-    attrSet _ = eventCrossingWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingYRoot :: AttrLabelProxy "yRoot"-eventCrossingYRoot = AttrLabelProxy---eventCrossingReadMode :: MonadIO m => EventCrossing -> m CrossingMode-eventCrossingReadMode s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventCrossingWriteMode :: MonadIO m => EventCrossing -> CrossingMode -> m ()-eventCrossingWriteMode s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 72) (val' :: CUInt)--data EventCrossingModeFieldInfo-instance AttrInfo EventCrossingModeFieldInfo where-    type AttrAllowedOps EventCrossingModeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingModeFieldInfo = (~) CrossingMode-    type AttrBaseTypeConstraint EventCrossingModeFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingModeFieldInfo = CrossingMode-    type AttrLabel EventCrossingModeFieldInfo = "mode"-    attrGet _ = eventCrossingReadMode-    attrSet _ = eventCrossingWriteMode-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingMode :: AttrLabelProxy "mode"-eventCrossingMode = AttrLabelProxy---eventCrossingReadDetail :: MonadIO m => EventCrossing -> m NotifyType-eventCrossingReadDetail s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 76) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventCrossingWriteDetail :: MonadIO m => EventCrossing -> NotifyType -> m ()-eventCrossingWriteDetail s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 76) (val' :: CUInt)--data EventCrossingDetailFieldInfo-instance AttrInfo EventCrossingDetailFieldInfo where-    type AttrAllowedOps EventCrossingDetailFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingDetailFieldInfo = (~) NotifyType-    type AttrBaseTypeConstraint EventCrossingDetailFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingDetailFieldInfo = NotifyType-    type AttrLabel EventCrossingDetailFieldInfo = "detail"-    attrGet _ = eventCrossingReadDetail-    attrSet _ = eventCrossingWriteDetail-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingDetail :: AttrLabelProxy "detail"-eventCrossingDetail = AttrLabelProxy---eventCrossingReadFocus :: MonadIO m => EventCrossing -> m Bool-eventCrossingReadFocus s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CInt-    let val' = (/= 0) val-    return val'--eventCrossingWriteFocus :: MonadIO m => EventCrossing -> Bool -> m ()-eventCrossingWriteFocus s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 80) (val' :: CInt)--data EventCrossingFocusFieldInfo-instance AttrInfo EventCrossingFocusFieldInfo where-    type AttrAllowedOps EventCrossingFocusFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingFocusFieldInfo = (~) Bool-    type AttrBaseTypeConstraint EventCrossingFocusFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingFocusFieldInfo = Bool-    type AttrLabel EventCrossingFocusFieldInfo = "focus"-    attrGet _ = eventCrossingReadFocus-    attrSet _ = eventCrossingWriteFocus-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingFocus :: AttrLabelProxy "focus"-eventCrossingFocus = AttrLabelProxy---eventCrossingReadState :: MonadIO m => EventCrossing -> m [ModifierType]-eventCrossingReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 84) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventCrossingWriteState :: MonadIO m => EventCrossing -> [ModifierType] -> m ()-eventCrossingWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 84) (val' :: CUInt)--data EventCrossingStateFieldInfo-instance AttrInfo EventCrossingStateFieldInfo where-    type AttrAllowedOps EventCrossingStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventCrossingStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventCrossingStateFieldInfo = (~) EventCrossing-    type AttrGetType EventCrossingStateFieldInfo = [ModifierType]-    type AttrLabel EventCrossingStateFieldInfo = "state"-    attrGet _ = eventCrossingReadState-    attrSet _ = eventCrossingWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventCrossingState :: AttrLabelProxy "state"-eventCrossingState = AttrLabelProxy----type instance AttributeList EventCrossing = EventCrossingAttributeList-type EventCrossingAttributeList = ('[ '("type", EventCrossingTypeFieldInfo), '("window", EventCrossingWindowFieldInfo), '("sendEvent", EventCrossingSendEventFieldInfo), '("subwindow", EventCrossingSubwindowFieldInfo), '("time", EventCrossingTimeFieldInfo), '("x", EventCrossingXFieldInfo), '("y", EventCrossingYFieldInfo), '("xRoot", EventCrossingXRootFieldInfo), '("yRoot", EventCrossingYRootFieldInfo), '("mode", EventCrossingModeFieldInfo), '("detail", EventCrossingDetailFieldInfo), '("focus", EventCrossingFocusFieldInfo), '("state", EventCrossingStateFieldInfo)] :: [(Symbol, *)])--type family ResolveEventCrossingMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventCrossingMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventCrossingMethod t EventCrossing, MethodInfo info EventCrossing p) => IsLabelProxy t (EventCrossing -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventCrossingMethod t EventCrossing, MethodInfo info EventCrossing p) => IsLabel t (EventCrossing -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventCrossing.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventCrossing where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing)-instance WrappedPtr EventCrossing where
− GI/Gdk/Structs/EventDND.hs 
@@ -1,305 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated during DND operations.--}--module GI.Gdk.Structs.EventDND-    ( ---- * Exported types-    EventDND(..)                            ,-    newZeroEventDND                         ,-    noEventDND                              ,--- -- * Properties--- ** Context-    eventDNDClearContext                    ,-    eventDNDContext                         ,-    eventDNDReadContext                     ,-    eventDNDWriteContext                    ,----- ** SendEvent-    eventDNDReadSendEvent                   ,-    eventDNDSendEvent                       ,-    eventDNDWriteSendEvent                  ,----- ** Time-    eventDNDReadTime                        ,-    eventDNDTime                            ,-    eventDNDWriteTime                       ,----- ** Type-    eventDNDReadType                        ,-    eventDNDType                            ,-    eventDNDWriteType                       ,----- ** Window-    eventDNDClearWindow                     ,-    eventDNDReadWindow                      ,-    eventDNDWindow                          ,-    eventDNDWriteWindow                     ,----- ** XRoot-    eventDNDReadXRoot                       ,-    eventDNDWriteXRoot                      ,-    eventDNDXRoot                           ,----- ** YRoot-    eventDNDReadYRoot                       ,-    eventDNDWriteYRoot                      ,-    eventDNDYRoot                           ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventDND = EventDND (ForeignPtr EventDND)-instance WrappedPtr EventDND where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = copyPtr 40-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventDND` struct initialized to zero.-newZeroEventDND :: MonadIO m => m EventDND-newZeroEventDND = liftIO $ wrappedPtrCalloc >>= wrapPtr EventDND--instance tag ~ 'AttrSet => Constructible EventDND tag where-    new _ attrs = do-        o <- newZeroEventDND-        GI.Attributes.set o attrs-        return o---noEventDND :: Maybe EventDND-noEventDND = Nothing--eventDNDReadType :: MonadIO m => EventDND -> m EventType-eventDNDReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventDNDWriteType :: MonadIO m => EventDND -> EventType -> m ()-eventDNDWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventDNDTypeFieldInfo-instance AttrInfo EventDNDTypeFieldInfo where-    type AttrAllowedOps EventDNDTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventDNDTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventDNDTypeFieldInfo = (~) EventDND-    type AttrGetType EventDNDTypeFieldInfo = EventType-    type AttrLabel EventDNDTypeFieldInfo = "type"-    attrGet _ = eventDNDReadType-    attrSet _ = eventDNDWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventDNDType :: AttrLabelProxy "type"-eventDNDType = AttrLabelProxy---eventDNDReadWindow :: MonadIO m => EventDND -> m (Maybe Window)-eventDNDReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventDNDWriteWindow :: MonadIO m => EventDND -> Ptr Window -> m ()-eventDNDWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventDNDClearWindow :: MonadIO m => EventDND -> m ()-eventDNDClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventDNDWindowFieldInfo-instance AttrInfo EventDNDWindowFieldInfo where-    type AttrAllowedOps EventDNDWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventDNDWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventDNDWindowFieldInfo = (~) EventDND-    type AttrGetType EventDNDWindowFieldInfo = Maybe Window-    type AttrLabel EventDNDWindowFieldInfo = "window"-    attrGet _ = eventDNDReadWindow-    attrSet _ = eventDNDWriteWindow-    attrConstruct = undefined-    attrClear _ = eventDNDClearWindow--eventDNDWindow :: AttrLabelProxy "window"-eventDNDWindow = AttrLabelProxy---eventDNDReadSendEvent :: MonadIO m => EventDND -> m Int8-eventDNDReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventDNDWriteSendEvent :: MonadIO m => EventDND -> Int8 -> m ()-eventDNDWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventDNDSendEventFieldInfo-instance AttrInfo EventDNDSendEventFieldInfo where-    type AttrAllowedOps EventDNDSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventDNDSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventDNDSendEventFieldInfo = (~) EventDND-    type AttrGetType EventDNDSendEventFieldInfo = Int8-    type AttrLabel EventDNDSendEventFieldInfo = "send_event"-    attrGet _ = eventDNDReadSendEvent-    attrSet _ = eventDNDWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventDNDSendEvent :: AttrLabelProxy "sendEvent"-eventDNDSendEvent = AttrLabelProxy---eventDNDReadContext :: MonadIO m => EventDND -> m (Maybe DragContext)-eventDNDReadContext s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr DragContext)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject DragContext) val'-        return val''-    return result--eventDNDWriteContext :: MonadIO m => EventDND -> Ptr DragContext -> m ()-eventDNDWriteContext s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr DragContext)--eventDNDClearContext :: MonadIO m => EventDND -> m ()-eventDNDClearContext s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr DragContext)--data EventDNDContextFieldInfo-instance AttrInfo EventDNDContextFieldInfo where-    type AttrAllowedOps EventDNDContextFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventDNDContextFieldInfo = (~) (Ptr DragContext)-    type AttrBaseTypeConstraint EventDNDContextFieldInfo = (~) EventDND-    type AttrGetType EventDNDContextFieldInfo = Maybe DragContext-    type AttrLabel EventDNDContextFieldInfo = "context"-    attrGet _ = eventDNDReadContext-    attrSet _ = eventDNDWriteContext-    attrConstruct = undefined-    attrClear _ = eventDNDClearContext--eventDNDContext :: AttrLabelProxy "context"-eventDNDContext = AttrLabelProxy---eventDNDReadTime :: MonadIO m => EventDND -> m Word32-eventDNDReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--eventDNDWriteTime :: MonadIO m => EventDND -> Word32 -> m ()-eventDNDWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Word32)--data EventDNDTimeFieldInfo-instance AttrInfo EventDNDTimeFieldInfo where-    type AttrAllowedOps EventDNDTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventDNDTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventDNDTimeFieldInfo = (~) EventDND-    type AttrGetType EventDNDTimeFieldInfo = Word32-    type AttrLabel EventDNDTimeFieldInfo = "time"-    attrGet _ = eventDNDReadTime-    attrSet _ = eventDNDWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventDNDTime :: AttrLabelProxy "time"-eventDNDTime = AttrLabelProxy---eventDNDReadXRoot :: MonadIO m => EventDND -> m Int16-eventDNDReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 36) :: IO Int16-    return val--eventDNDWriteXRoot :: MonadIO m => EventDND -> Int16 -> m ()-eventDNDWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 36) (val :: Int16)--data EventDNDXRootFieldInfo-instance AttrInfo EventDNDXRootFieldInfo where-    type AttrAllowedOps EventDNDXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventDNDXRootFieldInfo = (~) Int16-    type AttrBaseTypeConstraint EventDNDXRootFieldInfo = (~) EventDND-    type AttrGetType EventDNDXRootFieldInfo = Int16-    type AttrLabel EventDNDXRootFieldInfo = "x_root"-    attrGet _ = eventDNDReadXRoot-    attrSet _ = eventDNDWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventDNDXRoot :: AttrLabelProxy "xRoot"-eventDNDXRoot = AttrLabelProxy---eventDNDReadYRoot :: MonadIO m => EventDND -> m Int16-eventDNDReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 38) :: IO Int16-    return val--eventDNDWriteYRoot :: MonadIO m => EventDND -> Int16 -> m ()-eventDNDWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 38) (val :: Int16)--data EventDNDYRootFieldInfo-instance AttrInfo EventDNDYRootFieldInfo where-    type AttrAllowedOps EventDNDYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventDNDYRootFieldInfo = (~) Int16-    type AttrBaseTypeConstraint EventDNDYRootFieldInfo = (~) EventDND-    type AttrGetType EventDNDYRootFieldInfo = Int16-    type AttrLabel EventDNDYRootFieldInfo = "y_root"-    attrGet _ = eventDNDReadYRoot-    attrSet _ = eventDNDWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventDNDYRoot :: AttrLabelProxy "yRoot"-eventDNDYRoot = AttrLabelProxy----type instance AttributeList EventDND = EventDNDAttributeList-type EventDNDAttributeList = ('[ '("type", EventDNDTypeFieldInfo), '("window", EventDNDWindowFieldInfo), '("sendEvent", EventDNDSendEventFieldInfo), '("context", EventDNDContextFieldInfo), '("time", EventDNDTimeFieldInfo), '("xRoot", EventDNDXRootFieldInfo), '("yRoot", EventDNDYRootFieldInfo)] :: [(Symbol, *)])--type family ResolveEventDNDMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventDNDMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventDNDMethod t EventDND, MethodInfo info EventDND p) => IsLabelProxy t (EventDND -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventDNDMethod t EventDND, MethodInfo info EventDND p) => IsLabel t (EventDND -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventDND.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventDND where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventDND = EventDND (ForeignPtr EventDND)-instance WrappedPtr EventDND where
− GI/Gdk/Structs/EventExpose.hs 
@@ -1,284 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when all or part of a window becomes visible and needs to be-redrawn.--}--module GI.Gdk.Structs.EventExpose-    ( ---- * Exported types-    EventExpose(..)                         ,-    newZeroEventExpose                      ,-    noEventExpose                           ,--- -- * Properties--- ** Area-    eventExposeArea                         ,-    eventExposeClearArea                    ,-    eventExposeReadArea                     ,-    eventExposeWriteArea                    ,----- ** Count-    eventExposeCount                        ,-    eventExposeReadCount                    ,-    eventExposeWriteCount                   ,----- ** Region-    eventExposeClearRegion                  ,-    eventExposeReadRegion                   ,-    eventExposeRegion                       ,-    eventExposeWriteRegion                  ,----- ** SendEvent-    eventExposeReadSendEvent                ,-    eventExposeSendEvent                    ,-    eventExposeWriteSendEvent               ,----- ** Type-    eventExposeReadType                     ,-    eventExposeType                         ,-    eventExposeWriteType                    ,----- ** Window-    eventExposeClearWindow                  ,-    eventExposeReadWindow                   ,-    eventExposeWindow                       ,-    eventExposeWriteWindow                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.Cairo as Cairo--newtype EventExpose = EventExpose (ForeignPtr EventExpose)-instance WrappedPtr EventExpose where-    wrappedPtrCalloc = callocBytes 56-    wrappedPtrCopy = copyPtr 56-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventExpose` struct initialized to zero.-newZeroEventExpose :: MonadIO m => m EventExpose-newZeroEventExpose = liftIO $ wrappedPtrCalloc >>= wrapPtr EventExpose--instance tag ~ 'AttrSet => Constructible EventExpose tag where-    new _ attrs = do-        o <- newZeroEventExpose-        GI.Attributes.set o attrs-        return o---noEventExpose :: Maybe EventExpose-noEventExpose = Nothing--eventExposeReadType :: MonadIO m => EventExpose -> m EventType-eventExposeReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventExposeWriteType :: MonadIO m => EventExpose -> EventType -> m ()-eventExposeWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventExposeTypeFieldInfo-instance AttrInfo EventExposeTypeFieldInfo where-    type AttrAllowedOps EventExposeTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventExposeTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventExposeTypeFieldInfo = (~) EventExpose-    type AttrGetType EventExposeTypeFieldInfo = EventType-    type AttrLabel EventExposeTypeFieldInfo = "type"-    attrGet _ = eventExposeReadType-    attrSet _ = eventExposeWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventExposeType :: AttrLabelProxy "type"-eventExposeType = AttrLabelProxy---eventExposeReadWindow :: MonadIO m => EventExpose -> m (Maybe Window)-eventExposeReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventExposeWriteWindow :: MonadIO m => EventExpose -> Ptr Window -> m ()-eventExposeWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventExposeClearWindow :: MonadIO m => EventExpose -> m ()-eventExposeClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventExposeWindowFieldInfo-instance AttrInfo EventExposeWindowFieldInfo where-    type AttrAllowedOps EventExposeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventExposeWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventExposeWindowFieldInfo = (~) EventExpose-    type AttrGetType EventExposeWindowFieldInfo = Maybe Window-    type AttrLabel EventExposeWindowFieldInfo = "window"-    attrGet _ = eventExposeReadWindow-    attrSet _ = eventExposeWriteWindow-    attrConstruct = undefined-    attrClear _ = eventExposeClearWindow--eventExposeWindow :: AttrLabelProxy "window"-eventExposeWindow = AttrLabelProxy---eventExposeReadSendEvent :: MonadIO m => EventExpose -> m Int8-eventExposeReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventExposeWriteSendEvent :: MonadIO m => EventExpose -> Int8 -> m ()-eventExposeWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventExposeSendEventFieldInfo-instance AttrInfo EventExposeSendEventFieldInfo where-    type AttrAllowedOps EventExposeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventExposeSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventExposeSendEventFieldInfo = (~) EventExpose-    type AttrGetType EventExposeSendEventFieldInfo = Int8-    type AttrLabel EventExposeSendEventFieldInfo = "send_event"-    attrGet _ = eventExposeReadSendEvent-    attrSet _ = eventExposeWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventExposeSendEvent :: AttrLabelProxy "sendEvent"-eventExposeSendEvent = AttrLabelProxy---eventExposeReadArea :: MonadIO m => EventExpose -> m (Maybe Rectangle)-eventExposeReadArea s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO (Ptr Rectangle)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Rectangle) val'-        return val''-    return result--eventExposeWriteArea :: MonadIO m => EventExpose -> Ptr Rectangle -> m ()-eventExposeWriteArea s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Ptr Rectangle)--eventExposeClearArea :: MonadIO m => EventExpose -> m ()-eventExposeClearArea s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (nullPtr :: Ptr Rectangle)--data EventExposeAreaFieldInfo-instance AttrInfo EventExposeAreaFieldInfo where-    type AttrAllowedOps EventExposeAreaFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventExposeAreaFieldInfo = (~) (Ptr Rectangle)-    type AttrBaseTypeConstraint EventExposeAreaFieldInfo = (~) EventExpose-    type AttrGetType EventExposeAreaFieldInfo = Maybe Rectangle-    type AttrLabel EventExposeAreaFieldInfo = "area"-    attrGet _ = eventExposeReadArea-    attrSet _ = eventExposeWriteArea-    attrConstruct = undefined-    attrClear _ = eventExposeClearArea--eventExposeArea :: AttrLabelProxy "area"-eventExposeArea = AttrLabelProxy---eventExposeReadRegion :: MonadIO m => EventExpose -> m (Maybe Cairo.Region)-eventExposeReadRegion s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Cairo.Region)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed Cairo.Region) val'-        return val''-    return result--eventExposeWriteRegion :: MonadIO m => EventExpose -> Ptr Cairo.Region -> m ()-eventExposeWriteRegion s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: Ptr Cairo.Region)--eventExposeClearRegion :: MonadIO m => EventExpose -> m ()-eventExposeClearRegion s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (nullPtr :: Ptr Cairo.Region)--data EventExposeRegionFieldInfo-instance AttrInfo EventExposeRegionFieldInfo where-    type AttrAllowedOps EventExposeRegionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventExposeRegionFieldInfo = (~) (Ptr Cairo.Region)-    type AttrBaseTypeConstraint EventExposeRegionFieldInfo = (~) EventExpose-    type AttrGetType EventExposeRegionFieldInfo = Maybe Cairo.Region-    type AttrLabel EventExposeRegionFieldInfo = "region"-    attrGet _ = eventExposeReadRegion-    attrSet _ = eventExposeWriteRegion-    attrConstruct = undefined-    attrClear _ = eventExposeClearRegion--eventExposeRegion :: AttrLabelProxy "region"-eventExposeRegion = AttrLabelProxy---eventExposeReadCount :: MonadIO m => EventExpose -> m Int32-eventExposeReadCount s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Int32-    return val--eventExposeWriteCount :: MonadIO m => EventExpose -> Int32 -> m ()-eventExposeWriteCount s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Int32)--data EventExposeCountFieldInfo-instance AttrInfo EventExposeCountFieldInfo where-    type AttrAllowedOps EventExposeCountFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventExposeCountFieldInfo = (~) Int32-    type AttrBaseTypeConstraint EventExposeCountFieldInfo = (~) EventExpose-    type AttrGetType EventExposeCountFieldInfo = Int32-    type AttrLabel EventExposeCountFieldInfo = "count"-    attrGet _ = eventExposeReadCount-    attrSet _ = eventExposeWriteCount-    attrConstruct = undefined-    attrClear _ = undefined--eventExposeCount :: AttrLabelProxy "count"-eventExposeCount = AttrLabelProxy----type instance AttributeList EventExpose = EventExposeAttributeList-type EventExposeAttributeList = ('[ '("type", EventExposeTypeFieldInfo), '("window", EventExposeWindowFieldInfo), '("sendEvent", EventExposeSendEventFieldInfo), '("area", EventExposeAreaFieldInfo), '("region", EventExposeRegionFieldInfo), '("count", EventExposeCountFieldInfo)] :: [(Symbol, *)])--type family ResolveEventExposeMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventExposeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventExposeMethod t EventExpose, MethodInfo info EventExpose p) => IsLabelProxy t (EventExpose -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventExposeMethod t EventExpose, MethodInfo info EventExpose p) => IsLabel t (EventExpose -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventExpose.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventExpose where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventExpose = EventExpose (ForeignPtr EventExpose)-instance WrappedPtr EventExpose where
− GI/Gdk/Structs/EventFocus.hs 
@@ -1,204 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Describes a change of keyboard focus.--}--module GI.Gdk.Structs.EventFocus-    ( ---- * Exported types-    EventFocus(..)                          ,-    newZeroEventFocus                       ,-    noEventFocus                            ,--- -- * Properties--- ** In-    eventFocusIn                            ,-    eventFocusReadIn                        ,-    eventFocusWriteIn                       ,----- ** SendEvent-    eventFocusReadSendEvent                 ,-    eventFocusSendEvent                     ,-    eventFocusWriteSendEvent                ,----- ** Type-    eventFocusReadType                      ,-    eventFocusType                          ,-    eventFocusWriteType                     ,----- ** Window-    eventFocusClearWindow                   ,-    eventFocusReadWindow                    ,-    eventFocusWindow                        ,-    eventFocusWriteWindow                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventFocus = EventFocus (ForeignPtr EventFocus)-instance WrappedPtr EventFocus where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventFocus` struct initialized to zero.-newZeroEventFocus :: MonadIO m => m EventFocus-newZeroEventFocus = liftIO $ wrappedPtrCalloc >>= wrapPtr EventFocus--instance tag ~ 'AttrSet => Constructible EventFocus tag where-    new _ attrs = do-        o <- newZeroEventFocus-        GI.Attributes.set o attrs-        return o---noEventFocus :: Maybe EventFocus-noEventFocus = Nothing--eventFocusReadType :: MonadIO m => EventFocus -> m EventType-eventFocusReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventFocusWriteType :: MonadIO m => EventFocus -> EventType -> m ()-eventFocusWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventFocusTypeFieldInfo-instance AttrInfo EventFocusTypeFieldInfo where-    type AttrAllowedOps EventFocusTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventFocusTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventFocusTypeFieldInfo = (~) EventFocus-    type AttrGetType EventFocusTypeFieldInfo = EventType-    type AttrLabel EventFocusTypeFieldInfo = "type"-    attrGet _ = eventFocusReadType-    attrSet _ = eventFocusWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventFocusType :: AttrLabelProxy "type"-eventFocusType = AttrLabelProxy---eventFocusReadWindow :: MonadIO m => EventFocus -> m (Maybe Window)-eventFocusReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventFocusWriteWindow :: MonadIO m => EventFocus -> Ptr Window -> m ()-eventFocusWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventFocusClearWindow :: MonadIO m => EventFocus -> m ()-eventFocusClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventFocusWindowFieldInfo-instance AttrInfo EventFocusWindowFieldInfo where-    type AttrAllowedOps EventFocusWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventFocusWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventFocusWindowFieldInfo = (~) EventFocus-    type AttrGetType EventFocusWindowFieldInfo = Maybe Window-    type AttrLabel EventFocusWindowFieldInfo = "window"-    attrGet _ = eventFocusReadWindow-    attrSet _ = eventFocusWriteWindow-    attrConstruct = undefined-    attrClear _ = eventFocusClearWindow--eventFocusWindow :: AttrLabelProxy "window"-eventFocusWindow = AttrLabelProxy---eventFocusReadSendEvent :: MonadIO m => EventFocus -> m Int8-eventFocusReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventFocusWriteSendEvent :: MonadIO m => EventFocus -> Int8 -> m ()-eventFocusWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventFocusSendEventFieldInfo-instance AttrInfo EventFocusSendEventFieldInfo where-    type AttrAllowedOps EventFocusSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventFocusSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventFocusSendEventFieldInfo = (~) EventFocus-    type AttrGetType EventFocusSendEventFieldInfo = Int8-    type AttrLabel EventFocusSendEventFieldInfo = "send_event"-    attrGet _ = eventFocusReadSendEvent-    attrSet _ = eventFocusWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventFocusSendEvent :: AttrLabelProxy "sendEvent"-eventFocusSendEvent = AttrLabelProxy---eventFocusReadIn :: MonadIO m => EventFocus -> m Int16-eventFocusReadIn s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 18) :: IO Int16-    return val--eventFocusWriteIn :: MonadIO m => EventFocus -> Int16 -> m ()-eventFocusWriteIn s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 18) (val :: Int16)--data EventFocusInFieldInfo-instance AttrInfo EventFocusInFieldInfo where-    type AttrAllowedOps EventFocusInFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventFocusInFieldInfo = (~) Int16-    type AttrBaseTypeConstraint EventFocusInFieldInfo = (~) EventFocus-    type AttrGetType EventFocusInFieldInfo = Int16-    type AttrLabel EventFocusInFieldInfo = "in"-    attrGet _ = eventFocusReadIn-    attrSet _ = eventFocusWriteIn-    attrConstruct = undefined-    attrClear _ = undefined--eventFocusIn :: AttrLabelProxy "in"-eventFocusIn = AttrLabelProxy----type instance AttributeList EventFocus = EventFocusAttributeList-type EventFocusAttributeList = ('[ '("type", EventFocusTypeFieldInfo), '("window", EventFocusWindowFieldInfo), '("sendEvent", EventFocusSendEventFieldInfo), '("in", EventFocusInFieldInfo)] :: [(Symbol, *)])--type family ResolveEventFocusMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventFocusMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventFocusMethod t EventFocus, MethodInfo info EventFocus p) => IsLabelProxy t (EventFocus -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventFocusMethod t EventFocus, MethodInfo info EventFocus p) => IsLabel t (EventFocus -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventFocus.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventFocus where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventFocus = EventFocus (ForeignPtr EventFocus)-instance WrappedPtr EventFocus where
− GI/Gdk/Structs/EventGrabBroken.hs 
@@ -1,282 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when a pointer or keyboard grab is broken. On X11, this happens-when the grab window becomes unviewable (i.e. it or one of its ancestors-is unmapped), or if the same application grabs the pointer or keyboard-again. Note that implicit grabs (which are initiated by button presses)-can also cause #GdkEventGrabBroken events.--}--module GI.Gdk.Structs.EventGrabBroken-    ( ---- * Exported types-    EventGrabBroken(..)                     ,-    newZeroEventGrabBroken                  ,-    noEventGrabBroken                       ,--- -- * Properties--- ** GrabWindow-    eventGrabBrokenClearGrabWindow          ,-    eventGrabBrokenGrabWindow               ,-    eventGrabBrokenReadGrabWindow           ,-    eventGrabBrokenWriteGrabWindow          ,----- ** Implicit-    eventGrabBrokenImplicit                 ,-    eventGrabBrokenReadImplicit             ,-    eventGrabBrokenWriteImplicit            ,----- ** Keyboard-    eventGrabBrokenKeyboard                 ,-    eventGrabBrokenReadKeyboard             ,-    eventGrabBrokenWriteKeyboard            ,----- ** SendEvent-    eventGrabBrokenReadSendEvent            ,-    eventGrabBrokenSendEvent                ,-    eventGrabBrokenWriteSendEvent           ,----- ** Type-    eventGrabBrokenReadType                 ,-    eventGrabBrokenType                     ,-    eventGrabBrokenWriteType                ,----- ** Window-    eventGrabBrokenClearWindow              ,-    eventGrabBrokenReadWindow               ,-    eventGrabBrokenWindow                   ,-    eventGrabBrokenWriteWindow              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken)-instance WrappedPtr EventGrabBroken where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = copyPtr 40-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventGrabBroken` struct initialized to zero.-newZeroEventGrabBroken :: MonadIO m => m EventGrabBroken-newZeroEventGrabBroken = liftIO $ wrappedPtrCalloc >>= wrapPtr EventGrabBroken--instance tag ~ 'AttrSet => Constructible EventGrabBroken tag where-    new _ attrs = do-        o <- newZeroEventGrabBroken-        GI.Attributes.set o attrs-        return o---noEventGrabBroken :: Maybe EventGrabBroken-noEventGrabBroken = Nothing--eventGrabBrokenReadType :: MonadIO m => EventGrabBroken -> m EventType-eventGrabBrokenReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventGrabBrokenWriteType :: MonadIO m => EventGrabBroken -> EventType -> m ()-eventGrabBrokenWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventGrabBrokenTypeFieldInfo-instance AttrInfo EventGrabBrokenTypeFieldInfo where-    type AttrAllowedOps EventGrabBrokenTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventGrabBrokenTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventGrabBrokenTypeFieldInfo = (~) EventGrabBroken-    type AttrGetType EventGrabBrokenTypeFieldInfo = EventType-    type AttrLabel EventGrabBrokenTypeFieldInfo = "type"-    attrGet _ = eventGrabBrokenReadType-    attrSet _ = eventGrabBrokenWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventGrabBrokenType :: AttrLabelProxy "type"-eventGrabBrokenType = AttrLabelProxy---eventGrabBrokenReadWindow :: MonadIO m => EventGrabBroken -> m (Maybe Window)-eventGrabBrokenReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventGrabBrokenWriteWindow :: MonadIO m => EventGrabBroken -> Ptr Window -> m ()-eventGrabBrokenWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventGrabBrokenClearWindow :: MonadIO m => EventGrabBroken -> m ()-eventGrabBrokenClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventGrabBrokenWindowFieldInfo-instance AttrInfo EventGrabBrokenWindowFieldInfo where-    type AttrAllowedOps EventGrabBrokenWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventGrabBrokenWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventGrabBrokenWindowFieldInfo = (~) EventGrabBroken-    type AttrGetType EventGrabBrokenWindowFieldInfo = Maybe Window-    type AttrLabel EventGrabBrokenWindowFieldInfo = "window"-    attrGet _ = eventGrabBrokenReadWindow-    attrSet _ = eventGrabBrokenWriteWindow-    attrConstruct = undefined-    attrClear _ = eventGrabBrokenClearWindow--eventGrabBrokenWindow :: AttrLabelProxy "window"-eventGrabBrokenWindow = AttrLabelProxy---eventGrabBrokenReadSendEvent :: MonadIO m => EventGrabBroken -> m Int8-eventGrabBrokenReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventGrabBrokenWriteSendEvent :: MonadIO m => EventGrabBroken -> Int8 -> m ()-eventGrabBrokenWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventGrabBrokenSendEventFieldInfo-instance AttrInfo EventGrabBrokenSendEventFieldInfo where-    type AttrAllowedOps EventGrabBrokenSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventGrabBrokenSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventGrabBrokenSendEventFieldInfo = (~) EventGrabBroken-    type AttrGetType EventGrabBrokenSendEventFieldInfo = Int8-    type AttrLabel EventGrabBrokenSendEventFieldInfo = "send_event"-    attrGet _ = eventGrabBrokenReadSendEvent-    attrSet _ = eventGrabBrokenWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventGrabBrokenSendEvent :: AttrLabelProxy "sendEvent"-eventGrabBrokenSendEvent = AttrLabelProxy---eventGrabBrokenReadKeyboard :: MonadIO m => EventGrabBroken -> m Bool-eventGrabBrokenReadKeyboard s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CInt-    let val' = (/= 0) val-    return val'--eventGrabBrokenWriteKeyboard :: MonadIO m => EventGrabBroken -> Bool -> m ()-eventGrabBrokenWriteKeyboard s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 20) (val' :: CInt)--data EventGrabBrokenKeyboardFieldInfo-instance AttrInfo EventGrabBrokenKeyboardFieldInfo where-    type AttrAllowedOps EventGrabBrokenKeyboardFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventGrabBrokenKeyboardFieldInfo = (~) Bool-    type AttrBaseTypeConstraint EventGrabBrokenKeyboardFieldInfo = (~) EventGrabBroken-    type AttrGetType EventGrabBrokenKeyboardFieldInfo = Bool-    type AttrLabel EventGrabBrokenKeyboardFieldInfo = "keyboard"-    attrGet _ = eventGrabBrokenReadKeyboard-    attrSet _ = eventGrabBrokenWriteKeyboard-    attrConstruct = undefined-    attrClear _ = undefined--eventGrabBrokenKeyboard :: AttrLabelProxy "keyboard"-eventGrabBrokenKeyboard = AttrLabelProxy---eventGrabBrokenReadImplicit :: MonadIO m => EventGrabBroken -> m Bool-eventGrabBrokenReadImplicit s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CInt-    let val' = (/= 0) val-    return val'--eventGrabBrokenWriteImplicit :: MonadIO m => EventGrabBroken -> Bool -> m ()-eventGrabBrokenWriteImplicit s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 24) (val' :: CInt)--data EventGrabBrokenImplicitFieldInfo-instance AttrInfo EventGrabBrokenImplicitFieldInfo where-    type AttrAllowedOps EventGrabBrokenImplicitFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventGrabBrokenImplicitFieldInfo = (~) Bool-    type AttrBaseTypeConstraint EventGrabBrokenImplicitFieldInfo = (~) EventGrabBroken-    type AttrGetType EventGrabBrokenImplicitFieldInfo = Bool-    type AttrLabel EventGrabBrokenImplicitFieldInfo = "implicit"-    attrGet _ = eventGrabBrokenReadImplicit-    attrSet _ = eventGrabBrokenWriteImplicit-    attrConstruct = undefined-    attrClear _ = undefined--eventGrabBrokenImplicit :: AttrLabelProxy "implicit"-eventGrabBrokenImplicit = AttrLabelProxy---eventGrabBrokenReadGrabWindow :: MonadIO m => EventGrabBroken -> m (Maybe Window)-eventGrabBrokenReadGrabWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventGrabBrokenWriteGrabWindow :: MonadIO m => EventGrabBroken -> Ptr Window -> m ()-eventGrabBrokenWriteGrabWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Window)--eventGrabBrokenClearGrabWindow :: MonadIO m => EventGrabBroken -> m ()-eventGrabBrokenClearGrabWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Window)--data EventGrabBrokenGrabWindowFieldInfo-instance AttrInfo EventGrabBrokenGrabWindowFieldInfo where-    type AttrAllowedOps EventGrabBrokenGrabWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventGrabBrokenGrabWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventGrabBrokenGrabWindowFieldInfo = (~) EventGrabBroken-    type AttrGetType EventGrabBrokenGrabWindowFieldInfo = Maybe Window-    type AttrLabel EventGrabBrokenGrabWindowFieldInfo = "grab_window"-    attrGet _ = eventGrabBrokenReadGrabWindow-    attrSet _ = eventGrabBrokenWriteGrabWindow-    attrConstruct = undefined-    attrClear _ = eventGrabBrokenClearGrabWindow--eventGrabBrokenGrabWindow :: AttrLabelProxy "grabWindow"-eventGrabBrokenGrabWindow = AttrLabelProxy----type instance AttributeList EventGrabBroken = EventGrabBrokenAttributeList-type EventGrabBrokenAttributeList = ('[ '("type", EventGrabBrokenTypeFieldInfo), '("window", EventGrabBrokenWindowFieldInfo), '("sendEvent", EventGrabBrokenSendEventFieldInfo), '("keyboard", EventGrabBrokenKeyboardFieldInfo), '("implicit", EventGrabBrokenImplicitFieldInfo), '("grabWindow", EventGrabBrokenGrabWindowFieldInfo)] :: [(Symbol, *)])--type family ResolveEventGrabBrokenMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventGrabBrokenMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventGrabBrokenMethod t EventGrabBroken, MethodInfo info EventGrabBroken p) => IsLabelProxy t (EventGrabBroken -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventGrabBrokenMethod t EventGrabBroken, MethodInfo info EventGrabBroken p) => IsLabel t (EventGrabBroken -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventGrabBroken.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventGrabBroken where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken)-instance WrappedPtr EventGrabBroken where
− GI/Gdk/Structs/EventKey.hs 
@@ -1,431 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Describes a key press or key release event.--}--module GI.Gdk.Structs.EventKey-    ( ---- * Exported types-    EventKey(..)                            ,-    newZeroEventKey                         ,-    noEventKey                              ,--- -- * Properties--- ** Group-    eventKeyGroup                           ,-    eventKeyReadGroup                       ,-    eventKeyWriteGroup                      ,----- ** HardwareKeycode-    eventKeyHardwareKeycode                 ,-    eventKeyReadHardwareKeycode             ,-    eventKeyWriteHardwareKeycode            ,----- ** IsModifier-    eventKeyIsModifier                      ,-    eventKeyReadIsModifier                  ,-    eventKeyWriteIsModifier                 ,----- ** Keyval-    eventKeyKeyval                          ,-    eventKeyReadKeyval                      ,-    eventKeyWriteKeyval                     ,----- ** Length-    eventKeyLength                          ,-    eventKeyReadLength                      ,-    eventKeyWriteLength                     ,----- ** SendEvent-    eventKeyReadSendEvent                   ,-    eventKeySendEvent                       ,-    eventKeyWriteSendEvent                  ,----- ** State-    eventKeyReadState                       ,-    eventKeyState                           ,-    eventKeyWriteState                      ,----- ** String-    eventKeyClearString                     ,-    eventKeyReadString                      ,-    eventKeyString                          ,-    eventKeyWriteString                     ,----- ** Time-    eventKeyReadTime                        ,-    eventKeyTime                            ,-    eventKeyWriteTime                       ,----- ** Type-    eventKeyReadType                        ,-    eventKeyType                            ,-    eventKeyWriteType                       ,----- ** Window-    eventKeyClearWindow                     ,-    eventKeyReadWindow                      ,-    eventKeyWindow                          ,-    eventKeyWriteWindow                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventKey = EventKey (ForeignPtr EventKey)-instance WrappedPtr EventKey where-    wrappedPtrCalloc = callocBytes 56-    wrappedPtrCopy = copyPtr 56-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventKey` struct initialized to zero.-newZeroEventKey :: MonadIO m => m EventKey-newZeroEventKey = liftIO $ wrappedPtrCalloc >>= wrapPtr EventKey--instance tag ~ 'AttrSet => Constructible EventKey tag where-    new _ attrs = do-        o <- newZeroEventKey-        GI.Attributes.set o attrs-        return o---noEventKey :: Maybe EventKey-noEventKey = Nothing--eventKeyReadType :: MonadIO m => EventKey -> m EventType-eventKeyReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventKeyWriteType :: MonadIO m => EventKey -> EventType -> m ()-eventKeyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventKeyTypeFieldInfo-instance AttrInfo EventKeyTypeFieldInfo where-    type AttrAllowedOps EventKeyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventKeyTypeFieldInfo = (~) EventKey-    type AttrGetType EventKeyTypeFieldInfo = EventType-    type AttrLabel EventKeyTypeFieldInfo = "type"-    attrGet _ = eventKeyReadType-    attrSet _ = eventKeyWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyType :: AttrLabelProxy "type"-eventKeyType = AttrLabelProxy---eventKeyReadWindow :: MonadIO m => EventKey -> m (Maybe Window)-eventKeyReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventKeyWriteWindow :: MonadIO m => EventKey -> Ptr Window -> m ()-eventKeyWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventKeyClearWindow :: MonadIO m => EventKey -> m ()-eventKeyClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventKeyWindowFieldInfo-instance AttrInfo EventKeyWindowFieldInfo where-    type AttrAllowedOps EventKeyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventKeyWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventKeyWindowFieldInfo = (~) EventKey-    type AttrGetType EventKeyWindowFieldInfo = Maybe Window-    type AttrLabel EventKeyWindowFieldInfo = "window"-    attrGet _ = eventKeyReadWindow-    attrSet _ = eventKeyWriteWindow-    attrConstruct = undefined-    attrClear _ = eventKeyClearWindow--eventKeyWindow :: AttrLabelProxy "window"-eventKeyWindow = AttrLabelProxy---eventKeyReadSendEvent :: MonadIO m => EventKey -> m Int8-eventKeyReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventKeyWriteSendEvent :: MonadIO m => EventKey -> Int8 -> m ()-eventKeyWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventKeySendEventFieldInfo-instance AttrInfo EventKeySendEventFieldInfo where-    type AttrAllowedOps EventKeySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeySendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventKeySendEventFieldInfo = (~) EventKey-    type AttrGetType EventKeySendEventFieldInfo = Int8-    type AttrLabel EventKeySendEventFieldInfo = "send_event"-    attrGet _ = eventKeyReadSendEvent-    attrSet _ = eventKeyWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventKeySendEvent :: AttrLabelProxy "sendEvent"-eventKeySendEvent = AttrLabelProxy---eventKeyReadTime :: MonadIO m => EventKey -> m Word32-eventKeyReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventKeyWriteTime :: MonadIO m => EventKey -> Word32 -> m ()-eventKeyWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--data EventKeyTimeFieldInfo-instance AttrInfo EventKeyTimeFieldInfo where-    type AttrAllowedOps EventKeyTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventKeyTimeFieldInfo = (~) EventKey-    type AttrGetType EventKeyTimeFieldInfo = Word32-    type AttrLabel EventKeyTimeFieldInfo = "time"-    attrGet _ = eventKeyReadTime-    attrSet _ = eventKeyWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyTime :: AttrLabelProxy "time"-eventKeyTime = AttrLabelProxy---eventKeyReadState :: MonadIO m => EventKey -> m [ModifierType]-eventKeyReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventKeyWriteState :: MonadIO m => EventKey -> [ModifierType] -> m ()-eventKeyWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 24) (val' :: CUInt)--data EventKeyStateFieldInfo-instance AttrInfo EventKeyStateFieldInfo where-    type AttrAllowedOps EventKeyStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventKeyStateFieldInfo = (~) EventKey-    type AttrGetType EventKeyStateFieldInfo = [ModifierType]-    type AttrLabel EventKeyStateFieldInfo = "state"-    attrGet _ = eventKeyReadState-    attrSet _ = eventKeyWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyState :: AttrLabelProxy "state"-eventKeyState = AttrLabelProxy---eventKeyReadKeyval :: MonadIO m => EventKey -> m Word32-eventKeyReadKeyval s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Word32-    return val--eventKeyWriteKeyval :: MonadIO m => EventKey -> Word32 -> m ()-eventKeyWriteKeyval s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Word32)--data EventKeyKeyvalFieldInfo-instance AttrInfo EventKeyKeyvalFieldInfo where-    type AttrAllowedOps EventKeyKeyvalFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyKeyvalFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventKeyKeyvalFieldInfo = (~) EventKey-    type AttrGetType EventKeyKeyvalFieldInfo = Word32-    type AttrLabel EventKeyKeyvalFieldInfo = "keyval"-    attrGet _ = eventKeyReadKeyval-    attrSet _ = eventKeyWriteKeyval-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyKeyval :: AttrLabelProxy "keyval"-eventKeyKeyval = AttrLabelProxy---eventKeyReadLength :: MonadIO m => EventKey -> m Int32-eventKeyReadLength s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--eventKeyWriteLength :: MonadIO m => EventKey -> Int32 -> m ()-eventKeyWriteLength s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Int32)--data EventKeyLengthFieldInfo-instance AttrInfo EventKeyLengthFieldInfo where-    type AttrAllowedOps EventKeyLengthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyLengthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint EventKeyLengthFieldInfo = (~) EventKey-    type AttrGetType EventKeyLengthFieldInfo = Int32-    type AttrLabel EventKeyLengthFieldInfo = "length"-    attrGet _ = eventKeyReadLength-    attrSet _ = eventKeyWriteLength-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyLength :: AttrLabelProxy "length"-eventKeyLength = AttrLabelProxy---eventKeyReadString :: MonadIO m => EventKey -> m (Maybe T.Text)-eventKeyReadString s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--eventKeyWriteString :: MonadIO m => EventKey -> CString -> m ()-eventKeyWriteString s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: CString)--eventKeyClearString :: MonadIO m => EventKey -> m ()-eventKeyClearString s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (nullPtr :: CString)--data EventKeyStringFieldInfo-instance AttrInfo EventKeyStringFieldInfo where-    type AttrAllowedOps EventKeyStringFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventKeyStringFieldInfo = (~) CString-    type AttrBaseTypeConstraint EventKeyStringFieldInfo = (~) EventKey-    type AttrGetType EventKeyStringFieldInfo = Maybe T.Text-    type AttrLabel EventKeyStringFieldInfo = "string"-    attrGet _ = eventKeyReadString-    attrSet _ = eventKeyWriteString-    attrConstruct = undefined-    attrClear _ = eventKeyClearString--eventKeyString :: AttrLabelProxy "string"-eventKeyString = AttrLabelProxy---eventKeyReadHardwareKeycode :: MonadIO m => EventKey -> m Word16-eventKeyReadHardwareKeycode s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word16-    return val--eventKeyWriteHardwareKeycode :: MonadIO m => EventKey -> Word16 -> m ()-eventKeyWriteHardwareKeycode s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Word16)--data EventKeyHardwareKeycodeFieldInfo-instance AttrInfo EventKeyHardwareKeycodeFieldInfo where-    type AttrAllowedOps EventKeyHardwareKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyHardwareKeycodeFieldInfo = (~) Word16-    type AttrBaseTypeConstraint EventKeyHardwareKeycodeFieldInfo = (~) EventKey-    type AttrGetType EventKeyHardwareKeycodeFieldInfo = Word16-    type AttrLabel EventKeyHardwareKeycodeFieldInfo = "hardware_keycode"-    attrGet _ = eventKeyReadHardwareKeycode-    attrSet _ = eventKeyWriteHardwareKeycode-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyHardwareKeycode :: AttrLabelProxy "hardwareKeycode"-eventKeyHardwareKeycode = AttrLabelProxy---eventKeyReadGroup :: MonadIO m => EventKey -> m Word8-eventKeyReadGroup s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 50) :: IO Word8-    return val--eventKeyWriteGroup :: MonadIO m => EventKey -> Word8 -> m ()-eventKeyWriteGroup s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 50) (val :: Word8)--data EventKeyGroupFieldInfo-instance AttrInfo EventKeyGroupFieldInfo where-    type AttrAllowedOps EventKeyGroupFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyGroupFieldInfo = (~) Word8-    type AttrBaseTypeConstraint EventKeyGroupFieldInfo = (~) EventKey-    type AttrGetType EventKeyGroupFieldInfo = Word8-    type AttrLabel EventKeyGroupFieldInfo = "group"-    attrGet _ = eventKeyReadGroup-    attrSet _ = eventKeyWriteGroup-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyGroup :: AttrLabelProxy "group"-eventKeyGroup = AttrLabelProxy---eventKeyReadIsModifier :: MonadIO m => EventKey -> m Word32-eventKeyReadIsModifier s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Word32-    return val--eventKeyWriteIsModifier :: MonadIO m => EventKey -> Word32 -> m ()-eventKeyWriteIsModifier s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 52) (val :: Word32)--data EventKeyIsModifierFieldInfo-instance AttrInfo EventKeyIsModifierFieldInfo where-    type AttrAllowedOps EventKeyIsModifierFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventKeyIsModifierFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventKeyIsModifierFieldInfo = (~) EventKey-    type AttrGetType EventKeyIsModifierFieldInfo = Word32-    type AttrLabel EventKeyIsModifierFieldInfo = "is_modifier"-    attrGet _ = eventKeyReadIsModifier-    attrSet _ = eventKeyWriteIsModifier-    attrConstruct = undefined-    attrClear _ = undefined--eventKeyIsModifier :: AttrLabelProxy "isModifier"-eventKeyIsModifier = AttrLabelProxy----type instance AttributeList EventKey = EventKeyAttributeList-type EventKeyAttributeList = ('[ '("type", EventKeyTypeFieldInfo), '("window", EventKeyWindowFieldInfo), '("sendEvent", EventKeySendEventFieldInfo), '("time", EventKeyTimeFieldInfo), '("state", EventKeyStateFieldInfo), '("keyval", EventKeyKeyvalFieldInfo), '("length", EventKeyLengthFieldInfo), '("string", EventKeyStringFieldInfo), '("hardwareKeycode", EventKeyHardwareKeycodeFieldInfo), '("group", EventKeyGroupFieldInfo), '("isModifier", EventKeyIsModifierFieldInfo)] :: [(Symbol, *)])--type family ResolveEventKeyMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventKeyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventKeyMethod t EventKey, MethodInfo info EventKey p) => IsLabelProxy t (EventKey -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventKeyMethod t EventKey, MethodInfo info EventKey p) => IsLabel t (EventKey -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventKey.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventKey where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventKey = EventKey (ForeignPtr EventKey)-instance WrappedPtr EventKey where
− GI/Gdk/Structs/EventMotion.hs 
@@ -1,472 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when the pointer moves.--}--module GI.Gdk.Structs.EventMotion-    ( ---- * Exported types-    EventMotion(..)                         ,-    newZeroEventMotion                      ,-    noEventMotion                           ,--- -- * Properties--- ** Axes-    eventMotionAxes                         ,-    eventMotionReadAxes                     ,-    eventMotionWriteAxes                    ,----- ** Device-    eventMotionClearDevice                  ,-    eventMotionDevice                       ,-    eventMotionReadDevice                   ,-    eventMotionWriteDevice                  ,----- ** IsHint-    eventMotionIsHint                       ,-    eventMotionReadIsHint                   ,-    eventMotionWriteIsHint                  ,----- ** SendEvent-    eventMotionReadSendEvent                ,-    eventMotionSendEvent                    ,-    eventMotionWriteSendEvent               ,----- ** State-    eventMotionReadState                    ,-    eventMotionState                        ,-    eventMotionWriteState                   ,----- ** Time-    eventMotionReadTime                     ,-    eventMotionTime                         ,-    eventMotionWriteTime                    ,----- ** Type-    eventMotionReadType                     ,-    eventMotionType                         ,-    eventMotionWriteType                    ,----- ** Window-    eventMotionClearWindow                  ,-    eventMotionReadWindow                   ,-    eventMotionWindow                       ,-    eventMotionWriteWindow                  ,----- ** X-    eventMotionReadX                        ,-    eventMotionWriteX                       ,-    eventMotionX                            ,----- ** XRoot-    eventMotionReadXRoot                    ,-    eventMotionWriteXRoot                   ,-    eventMotionXRoot                        ,----- ** Y-    eventMotionReadY                        ,-    eventMotionWriteY                       ,-    eventMotionY                            ,----- ** YRoot-    eventMotionReadYRoot                    ,-    eventMotionWriteYRoot                   ,-    eventMotionYRoot                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventMotion = EventMotion (ForeignPtr EventMotion)-instance WrappedPtr EventMotion where-    wrappedPtrCalloc = callocBytes 80-    wrappedPtrCopy = copyPtr 80-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventMotion` struct initialized to zero.-newZeroEventMotion :: MonadIO m => m EventMotion-newZeroEventMotion = liftIO $ wrappedPtrCalloc >>= wrapPtr EventMotion--instance tag ~ 'AttrSet => Constructible EventMotion tag where-    new _ attrs = do-        o <- newZeroEventMotion-        GI.Attributes.set o attrs-        return o---noEventMotion :: Maybe EventMotion-noEventMotion = Nothing--eventMotionReadType :: MonadIO m => EventMotion -> m EventType-eventMotionReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventMotionWriteType :: MonadIO m => EventMotion -> EventType -> m ()-eventMotionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventMotionTypeFieldInfo-instance AttrInfo EventMotionTypeFieldInfo where-    type AttrAllowedOps EventMotionTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventMotionTypeFieldInfo = (~) EventMotion-    type AttrGetType EventMotionTypeFieldInfo = EventType-    type AttrLabel EventMotionTypeFieldInfo = "type"-    attrGet _ = eventMotionReadType-    attrSet _ = eventMotionWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionType :: AttrLabelProxy "type"-eventMotionType = AttrLabelProxy---eventMotionReadWindow :: MonadIO m => EventMotion -> m (Maybe Window)-eventMotionReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventMotionWriteWindow :: MonadIO m => EventMotion -> Ptr Window -> m ()-eventMotionWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventMotionClearWindow :: MonadIO m => EventMotion -> m ()-eventMotionClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventMotionWindowFieldInfo-instance AttrInfo EventMotionWindowFieldInfo where-    type AttrAllowedOps EventMotionWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventMotionWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventMotionWindowFieldInfo = (~) EventMotion-    type AttrGetType EventMotionWindowFieldInfo = Maybe Window-    type AttrLabel EventMotionWindowFieldInfo = "window"-    attrGet _ = eventMotionReadWindow-    attrSet _ = eventMotionWriteWindow-    attrConstruct = undefined-    attrClear _ = eventMotionClearWindow--eventMotionWindow :: AttrLabelProxy "window"-eventMotionWindow = AttrLabelProxy---eventMotionReadSendEvent :: MonadIO m => EventMotion -> m Int8-eventMotionReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventMotionWriteSendEvent :: MonadIO m => EventMotion -> Int8 -> m ()-eventMotionWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventMotionSendEventFieldInfo-instance AttrInfo EventMotionSendEventFieldInfo where-    type AttrAllowedOps EventMotionSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventMotionSendEventFieldInfo = (~) EventMotion-    type AttrGetType EventMotionSendEventFieldInfo = Int8-    type AttrLabel EventMotionSendEventFieldInfo = "send_event"-    attrGet _ = eventMotionReadSendEvent-    attrSet _ = eventMotionWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionSendEvent :: AttrLabelProxy "sendEvent"-eventMotionSendEvent = AttrLabelProxy---eventMotionReadTime :: MonadIO m => EventMotion -> m Word32-eventMotionReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventMotionWriteTime :: MonadIO m => EventMotion -> Word32 -> m ()-eventMotionWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--data EventMotionTimeFieldInfo-instance AttrInfo EventMotionTimeFieldInfo where-    type AttrAllowedOps EventMotionTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventMotionTimeFieldInfo = (~) EventMotion-    type AttrGetType EventMotionTimeFieldInfo = Word32-    type AttrLabel EventMotionTimeFieldInfo = "time"-    attrGet _ = eventMotionReadTime-    attrSet _ = eventMotionWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionTime :: AttrLabelProxy "time"-eventMotionTime = AttrLabelProxy---eventMotionReadX :: MonadIO m => EventMotion -> m Double-eventMotionReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionWriteX :: MonadIO m => EventMotion -> Double -> m ()-eventMotionWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data EventMotionXFieldInfo-instance AttrInfo EventMotionXFieldInfo where-    type AttrAllowedOps EventMotionXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventMotionXFieldInfo = (~) EventMotion-    type AttrGetType EventMotionXFieldInfo = Double-    type AttrLabel EventMotionXFieldInfo = "x"-    attrGet _ = eventMotionReadX-    attrSet _ = eventMotionWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionX :: AttrLabelProxy "x"-eventMotionX = AttrLabelProxy---eventMotionReadY :: MonadIO m => EventMotion -> m Double-eventMotionReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionWriteY :: MonadIO m => EventMotion -> Double -> m ()-eventMotionWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data EventMotionYFieldInfo-instance AttrInfo EventMotionYFieldInfo where-    type AttrAllowedOps EventMotionYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventMotionYFieldInfo = (~) EventMotion-    type AttrGetType EventMotionYFieldInfo = Double-    type AttrLabel EventMotionYFieldInfo = "y"-    attrGet _ = eventMotionReadY-    attrSet _ = eventMotionWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionY :: AttrLabelProxy "y"-eventMotionY = AttrLabelProxy---eventMotionReadAxes :: MonadIO m => EventMotion -> m Double-eventMotionReadAxes s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionWriteAxes :: MonadIO m => EventMotion -> Double -> m ()-eventMotionWriteAxes s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data EventMotionAxesFieldInfo-instance AttrInfo EventMotionAxesFieldInfo where-    type AttrAllowedOps EventMotionAxesFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionAxesFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventMotionAxesFieldInfo = (~) EventMotion-    type AttrGetType EventMotionAxesFieldInfo = Double-    type AttrLabel EventMotionAxesFieldInfo = "axes"-    attrGet _ = eventMotionReadAxes-    attrSet _ = eventMotionWriteAxes-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionAxes :: AttrLabelProxy "axes"-eventMotionAxes = AttrLabelProxy---eventMotionReadState :: MonadIO m => EventMotion -> m [ModifierType]-eventMotionReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventMotionWriteState :: MonadIO m => EventMotion -> [ModifierType] -> m ()-eventMotionWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 48) (val' :: CUInt)--data EventMotionStateFieldInfo-instance AttrInfo EventMotionStateFieldInfo where-    type AttrAllowedOps EventMotionStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventMotionStateFieldInfo = (~) EventMotion-    type AttrGetType EventMotionStateFieldInfo = [ModifierType]-    type AttrLabel EventMotionStateFieldInfo = "state"-    attrGet _ = eventMotionReadState-    attrSet _ = eventMotionWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionState :: AttrLabelProxy "state"-eventMotionState = AttrLabelProxy---eventMotionReadIsHint :: MonadIO m => EventMotion -> m Int16-eventMotionReadIsHint s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Int16-    return val--eventMotionWriteIsHint :: MonadIO m => EventMotion -> Int16 -> m ()-eventMotionWriteIsHint s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 52) (val :: Int16)--data EventMotionIsHintFieldInfo-instance AttrInfo EventMotionIsHintFieldInfo where-    type AttrAllowedOps EventMotionIsHintFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionIsHintFieldInfo = (~) Int16-    type AttrBaseTypeConstraint EventMotionIsHintFieldInfo = (~) EventMotion-    type AttrGetType EventMotionIsHintFieldInfo = Int16-    type AttrLabel EventMotionIsHintFieldInfo = "is_hint"-    attrGet _ = eventMotionReadIsHint-    attrSet _ = eventMotionWriteIsHint-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionIsHint :: AttrLabelProxy "isHint"-eventMotionIsHint = AttrLabelProxy---eventMotionReadDevice :: MonadIO m => EventMotion -> m (Maybe Device)-eventMotionReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Device) val'-        return val''-    return result--eventMotionWriteDevice :: MonadIO m => EventMotion -> Ptr Device -> m ()-eventMotionWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: Ptr Device)--eventMotionClearDevice :: MonadIO m => EventMotion -> m ()-eventMotionClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (nullPtr :: Ptr Device)--data EventMotionDeviceFieldInfo-instance AttrInfo EventMotionDeviceFieldInfo where-    type AttrAllowedOps EventMotionDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventMotionDeviceFieldInfo = (~) (Ptr Device)-    type AttrBaseTypeConstraint EventMotionDeviceFieldInfo = (~) EventMotion-    type AttrGetType EventMotionDeviceFieldInfo = Maybe Device-    type AttrLabel EventMotionDeviceFieldInfo = "device"-    attrGet _ = eventMotionReadDevice-    attrSet _ = eventMotionWriteDevice-    attrConstruct = undefined-    attrClear _ = eventMotionClearDevice--eventMotionDevice :: AttrLabelProxy "device"-eventMotionDevice = AttrLabelProxy---eventMotionReadXRoot :: MonadIO m => EventMotion -> m Double-eventMotionReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionWriteXRoot :: MonadIO m => EventMotion -> Double -> m ()-eventMotionWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 64) (val' :: CDouble)--data EventMotionXRootFieldInfo-instance AttrInfo EventMotionXRootFieldInfo where-    type AttrAllowedOps EventMotionXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionXRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventMotionXRootFieldInfo = (~) EventMotion-    type AttrGetType EventMotionXRootFieldInfo = Double-    type AttrLabel EventMotionXRootFieldInfo = "x_root"-    attrGet _ = eventMotionReadXRoot-    attrSet _ = eventMotionWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionXRoot :: AttrLabelProxy "xRoot"-eventMotionXRoot = AttrLabelProxy---eventMotionReadYRoot :: MonadIO m => EventMotion -> m Double-eventMotionReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionWriteYRoot :: MonadIO m => EventMotion -> Double -> m ()-eventMotionWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 72) (val' :: CDouble)--data EventMotionYRootFieldInfo-instance AttrInfo EventMotionYRootFieldInfo where-    type AttrAllowedOps EventMotionYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventMotionYRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventMotionYRootFieldInfo = (~) EventMotion-    type AttrGetType EventMotionYRootFieldInfo = Double-    type AttrLabel EventMotionYRootFieldInfo = "y_root"-    attrGet _ = eventMotionReadYRoot-    attrSet _ = eventMotionWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventMotionYRoot :: AttrLabelProxy "yRoot"-eventMotionYRoot = AttrLabelProxy----type instance AttributeList EventMotion = EventMotionAttributeList-type EventMotionAttributeList = ('[ '("type", EventMotionTypeFieldInfo), '("window", EventMotionWindowFieldInfo), '("sendEvent", EventMotionSendEventFieldInfo), '("time", EventMotionTimeFieldInfo), '("x", EventMotionXFieldInfo), '("y", EventMotionYFieldInfo), '("axes", EventMotionAxesFieldInfo), '("state", EventMotionStateFieldInfo), '("isHint", EventMotionIsHintFieldInfo), '("device", EventMotionDeviceFieldInfo), '("xRoot", EventMotionXRootFieldInfo), '("yRoot", EventMotionYRootFieldInfo)] :: [(Symbol, *)])--type family ResolveEventMotionMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventMotionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventMotionMethod t EventMotion, MethodInfo info EventMotion p) => IsLabelProxy t (EventMotion -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventMotionMethod t EventMotion, MethodInfo info EventMotion p) => IsLabel t (EventMotion -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventMotion.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventMotion where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventMotion = EventMotion (ForeignPtr EventMotion)-instance WrappedPtr EventMotion where
− GI/Gdk/Structs/EventOwnerChange.hs 
@@ -1,348 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when the owner of a selection changes. On X11, this-information is only available if the X server supports the XFIXES-extension.--}--module GI.Gdk.Structs.EventOwnerChange-    ( ---- * Exported types-    EventOwnerChange(..)                    ,-    newZeroEventOwnerChange                 ,-    noEventOwnerChange                      ,--- -- * Properties--- ** Owner-    eventOwnerChangeClearOwner              ,-    eventOwnerChangeOwner                   ,-    eventOwnerChangeReadOwner               ,-    eventOwnerChangeWriteOwner              ,----- ** Reason-    eventOwnerChangeReadReason              ,-    eventOwnerChangeReason                  ,-    eventOwnerChangeWriteReason             ,----- ** Selection-    eventOwnerChangeClearSelection          ,-    eventOwnerChangeReadSelection           ,-    eventOwnerChangeSelection               ,-    eventOwnerChangeWriteSelection          ,----- ** SelectionTime-    eventOwnerChangeReadSelectionTime       ,-    eventOwnerChangeSelectionTime           ,-    eventOwnerChangeWriteSelectionTime      ,----- ** SendEvent-    eventOwnerChangeReadSendEvent           ,-    eventOwnerChangeSendEvent               ,-    eventOwnerChangeWriteSendEvent          ,----- ** Time-    eventOwnerChangeReadTime                ,-    eventOwnerChangeTime                    ,-    eventOwnerChangeWriteTime               ,----- ** Type-    eventOwnerChangeReadType                ,-    eventOwnerChangeType                    ,-    eventOwnerChangeWriteType               ,----- ** Window-    eventOwnerChangeClearWindow             ,-    eventOwnerChangeReadWindow              ,-    eventOwnerChangeWindow                  ,-    eventOwnerChangeWriteWindow             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange)-instance WrappedPtr EventOwnerChange where-    wrappedPtrCalloc = callocBytes 56-    wrappedPtrCopy = copyPtr 56-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventOwnerChange` struct initialized to zero.-newZeroEventOwnerChange :: MonadIO m => m EventOwnerChange-newZeroEventOwnerChange = liftIO $ wrappedPtrCalloc >>= wrapPtr EventOwnerChange--instance tag ~ 'AttrSet => Constructible EventOwnerChange tag where-    new _ attrs = do-        o <- newZeroEventOwnerChange-        GI.Attributes.set o attrs-        return o---noEventOwnerChange :: Maybe EventOwnerChange-noEventOwnerChange = Nothing--eventOwnerChangeReadType :: MonadIO m => EventOwnerChange -> m EventType-eventOwnerChangeReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventOwnerChangeWriteType :: MonadIO m => EventOwnerChange -> EventType -> m ()-eventOwnerChangeWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventOwnerChangeTypeFieldInfo-instance AttrInfo EventOwnerChangeTypeFieldInfo where-    type AttrAllowedOps EventOwnerChangeTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventOwnerChangeTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventOwnerChangeTypeFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeTypeFieldInfo = EventType-    type AttrLabel EventOwnerChangeTypeFieldInfo = "type"-    attrGet _ = eventOwnerChangeReadType-    attrSet _ = eventOwnerChangeWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventOwnerChangeType :: AttrLabelProxy "type"-eventOwnerChangeType = AttrLabelProxy---eventOwnerChangeReadWindow :: MonadIO m => EventOwnerChange -> m (Maybe Window)-eventOwnerChangeReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventOwnerChangeWriteWindow :: MonadIO m => EventOwnerChange -> Ptr Window -> m ()-eventOwnerChangeWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventOwnerChangeClearWindow :: MonadIO m => EventOwnerChange -> m ()-eventOwnerChangeClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventOwnerChangeWindowFieldInfo-instance AttrInfo EventOwnerChangeWindowFieldInfo where-    type AttrAllowedOps EventOwnerChangeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventOwnerChangeWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventOwnerChangeWindowFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeWindowFieldInfo = Maybe Window-    type AttrLabel EventOwnerChangeWindowFieldInfo = "window"-    attrGet _ = eventOwnerChangeReadWindow-    attrSet _ = eventOwnerChangeWriteWindow-    attrConstruct = undefined-    attrClear _ = eventOwnerChangeClearWindow--eventOwnerChangeWindow :: AttrLabelProxy "window"-eventOwnerChangeWindow = AttrLabelProxy---eventOwnerChangeReadSendEvent :: MonadIO m => EventOwnerChange -> m Int8-eventOwnerChangeReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventOwnerChangeWriteSendEvent :: MonadIO m => EventOwnerChange -> Int8 -> m ()-eventOwnerChangeWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventOwnerChangeSendEventFieldInfo-instance AttrInfo EventOwnerChangeSendEventFieldInfo where-    type AttrAllowedOps EventOwnerChangeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventOwnerChangeSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventOwnerChangeSendEventFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeSendEventFieldInfo = Int8-    type AttrLabel EventOwnerChangeSendEventFieldInfo = "send_event"-    attrGet _ = eventOwnerChangeReadSendEvent-    attrSet _ = eventOwnerChangeWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventOwnerChangeSendEvent :: AttrLabelProxy "sendEvent"-eventOwnerChangeSendEvent = AttrLabelProxy---eventOwnerChangeReadOwner :: MonadIO m => EventOwnerChange -> m (Maybe Window)-eventOwnerChangeReadOwner s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventOwnerChangeWriteOwner :: MonadIO m => EventOwnerChange -> Ptr Window -> m ()-eventOwnerChangeWriteOwner s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Window)--eventOwnerChangeClearOwner :: MonadIO m => EventOwnerChange -> m ()-eventOwnerChangeClearOwner s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Window)--data EventOwnerChangeOwnerFieldInfo-instance AttrInfo EventOwnerChangeOwnerFieldInfo where-    type AttrAllowedOps EventOwnerChangeOwnerFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventOwnerChangeOwnerFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventOwnerChangeOwnerFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeOwnerFieldInfo = Maybe Window-    type AttrLabel EventOwnerChangeOwnerFieldInfo = "owner"-    attrGet _ = eventOwnerChangeReadOwner-    attrSet _ = eventOwnerChangeWriteOwner-    attrConstruct = undefined-    attrClear _ = eventOwnerChangeClearOwner--eventOwnerChangeOwner :: AttrLabelProxy "owner"-eventOwnerChangeOwner = AttrLabelProxy---eventOwnerChangeReadReason :: MonadIO m => EventOwnerChange -> m OwnerChange-eventOwnerChangeReadReason s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventOwnerChangeWriteReason :: MonadIO m => EventOwnerChange -> OwnerChange -> m ()-eventOwnerChangeWriteReason s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 32) (val' :: CUInt)--data EventOwnerChangeReasonFieldInfo-instance AttrInfo EventOwnerChangeReasonFieldInfo where-    type AttrAllowedOps EventOwnerChangeReasonFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventOwnerChangeReasonFieldInfo = (~) OwnerChange-    type AttrBaseTypeConstraint EventOwnerChangeReasonFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeReasonFieldInfo = OwnerChange-    type AttrLabel EventOwnerChangeReasonFieldInfo = "reason"-    attrGet _ = eventOwnerChangeReadReason-    attrSet _ = eventOwnerChangeWriteReason-    attrConstruct = undefined-    attrClear _ = undefined--eventOwnerChangeReason :: AttrLabelProxy "reason"-eventOwnerChangeReason = AttrLabelProxy---eventOwnerChangeReadSelection :: MonadIO m => EventOwnerChange -> m (Maybe Atom)-eventOwnerChangeReadSelection s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr Atom) val'-        return val''-    return result--eventOwnerChangeWriteSelection :: MonadIO m => EventOwnerChange -> Ptr Atom -> m ()-eventOwnerChangeWriteSelection s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: Ptr Atom)--eventOwnerChangeClearSelection :: MonadIO m => EventOwnerChange -> m ()-eventOwnerChangeClearSelection s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (nullPtr :: Ptr Atom)--data EventOwnerChangeSelectionFieldInfo-instance AttrInfo EventOwnerChangeSelectionFieldInfo where-    type AttrAllowedOps EventOwnerChangeSelectionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventOwnerChangeSelectionFieldInfo = (~) (Ptr Atom)-    type AttrBaseTypeConstraint EventOwnerChangeSelectionFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeSelectionFieldInfo = Maybe Atom-    type AttrLabel EventOwnerChangeSelectionFieldInfo = "selection"-    attrGet _ = eventOwnerChangeReadSelection-    attrSet _ = eventOwnerChangeWriteSelection-    attrConstruct = undefined-    attrClear _ = eventOwnerChangeClearSelection--eventOwnerChangeSelection :: AttrLabelProxy "selection"-eventOwnerChangeSelection = AttrLabelProxy---eventOwnerChangeReadTime :: MonadIO m => EventOwnerChange -> m Word32-eventOwnerChangeReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word32-    return val--eventOwnerChangeWriteTime :: MonadIO m => EventOwnerChange -> Word32 -> m ()-eventOwnerChangeWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Word32)--data EventOwnerChangeTimeFieldInfo-instance AttrInfo EventOwnerChangeTimeFieldInfo where-    type AttrAllowedOps EventOwnerChangeTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventOwnerChangeTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventOwnerChangeTimeFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeTimeFieldInfo = Word32-    type AttrLabel EventOwnerChangeTimeFieldInfo = "time"-    attrGet _ = eventOwnerChangeReadTime-    attrSet _ = eventOwnerChangeWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventOwnerChangeTime :: AttrLabelProxy "time"-eventOwnerChangeTime = AttrLabelProxy---eventOwnerChangeReadSelectionTime :: MonadIO m => EventOwnerChange -> m Word32-eventOwnerChangeReadSelectionTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Word32-    return val--eventOwnerChangeWriteSelectionTime :: MonadIO m => EventOwnerChange -> Word32 -> m ()-eventOwnerChangeWriteSelectionTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 52) (val :: Word32)--data EventOwnerChangeSelectionTimeFieldInfo-instance AttrInfo EventOwnerChangeSelectionTimeFieldInfo where-    type AttrAllowedOps EventOwnerChangeSelectionTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventOwnerChangeSelectionTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventOwnerChangeSelectionTimeFieldInfo = (~) EventOwnerChange-    type AttrGetType EventOwnerChangeSelectionTimeFieldInfo = Word32-    type AttrLabel EventOwnerChangeSelectionTimeFieldInfo = "selection_time"-    attrGet _ = eventOwnerChangeReadSelectionTime-    attrSet _ = eventOwnerChangeWriteSelectionTime-    attrConstruct = undefined-    attrClear _ = undefined--eventOwnerChangeSelectionTime :: AttrLabelProxy "selectionTime"-eventOwnerChangeSelectionTime = AttrLabelProxy----type instance AttributeList EventOwnerChange = EventOwnerChangeAttributeList-type EventOwnerChangeAttributeList = ('[ '("type", EventOwnerChangeTypeFieldInfo), '("window", EventOwnerChangeWindowFieldInfo), '("sendEvent", EventOwnerChangeSendEventFieldInfo), '("owner", EventOwnerChangeOwnerFieldInfo), '("reason", EventOwnerChangeReasonFieldInfo), '("selection", EventOwnerChangeSelectionFieldInfo), '("time", EventOwnerChangeTimeFieldInfo), '("selectionTime", EventOwnerChangeSelectionTimeFieldInfo)] :: [(Symbol, *)])--type family ResolveEventOwnerChangeMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventOwnerChangeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, MethodInfo info EventOwnerChange p) => IsLabelProxy t (EventOwnerChange -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventOwnerChangeMethod t EventOwnerChange, MethodInfo info EventOwnerChange p) => IsLabel t (EventOwnerChange -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventOwnerChange.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventOwnerChange where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange)-instance WrappedPtr EventOwnerChange where
− GI/Gdk/Structs/EventProperty.hs 
@@ -1,276 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Describes a property change on a window.--}--module GI.Gdk.Structs.EventProperty-    ( ---- * Exported types-    EventProperty(..)                       ,-    newZeroEventProperty                    ,-    noEventProperty                         ,--- -- * Properties--- ** Atom-    eventPropertyAtom                       ,-    eventPropertyClearAtom                  ,-    eventPropertyReadAtom                   ,-    eventPropertyWriteAtom                  ,----- ** SendEvent-    eventPropertyReadSendEvent              ,-    eventPropertySendEvent                  ,-    eventPropertyWriteSendEvent             ,----- ** State-    eventPropertyReadState                  ,-    eventPropertyState                      ,-    eventPropertyWriteState                 ,----- ** Time-    eventPropertyReadTime                   ,-    eventPropertyTime                       ,-    eventPropertyWriteTime                  ,----- ** Type-    eventPropertyReadType                   ,-    eventPropertyType                       ,-    eventPropertyWriteType                  ,----- ** Window-    eventPropertyClearWindow                ,-    eventPropertyReadWindow                 ,-    eventPropertyWindow                     ,-    eventPropertyWriteWindow                ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventProperty = EventProperty (ForeignPtr EventProperty)-instance WrappedPtr EventProperty where-    wrappedPtrCalloc = callocBytes 40-    wrappedPtrCopy = copyPtr 40-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventProperty` struct initialized to zero.-newZeroEventProperty :: MonadIO m => m EventProperty-newZeroEventProperty = liftIO $ wrappedPtrCalloc >>= wrapPtr EventProperty--instance tag ~ 'AttrSet => Constructible EventProperty tag where-    new _ attrs = do-        o <- newZeroEventProperty-        GI.Attributes.set o attrs-        return o---noEventProperty :: Maybe EventProperty-noEventProperty = Nothing--eventPropertyReadType :: MonadIO m => EventProperty -> m EventType-eventPropertyReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventPropertyWriteType :: MonadIO m => EventProperty -> EventType -> m ()-eventPropertyWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventPropertyTypeFieldInfo-instance AttrInfo EventPropertyTypeFieldInfo where-    type AttrAllowedOps EventPropertyTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventPropertyTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventPropertyTypeFieldInfo = (~) EventProperty-    type AttrGetType EventPropertyTypeFieldInfo = EventType-    type AttrLabel EventPropertyTypeFieldInfo = "type"-    attrGet _ = eventPropertyReadType-    attrSet _ = eventPropertyWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventPropertyType :: AttrLabelProxy "type"-eventPropertyType = AttrLabelProxy---eventPropertyReadWindow :: MonadIO m => EventProperty -> m (Maybe Window)-eventPropertyReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventPropertyWriteWindow :: MonadIO m => EventProperty -> Ptr Window -> m ()-eventPropertyWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventPropertyClearWindow :: MonadIO m => EventProperty -> m ()-eventPropertyClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventPropertyWindowFieldInfo-instance AttrInfo EventPropertyWindowFieldInfo where-    type AttrAllowedOps EventPropertyWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventPropertyWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventPropertyWindowFieldInfo = (~) EventProperty-    type AttrGetType EventPropertyWindowFieldInfo = Maybe Window-    type AttrLabel EventPropertyWindowFieldInfo = "window"-    attrGet _ = eventPropertyReadWindow-    attrSet _ = eventPropertyWriteWindow-    attrConstruct = undefined-    attrClear _ = eventPropertyClearWindow--eventPropertyWindow :: AttrLabelProxy "window"-eventPropertyWindow = AttrLabelProxy---eventPropertyReadSendEvent :: MonadIO m => EventProperty -> m Int8-eventPropertyReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventPropertyWriteSendEvent :: MonadIO m => EventProperty -> Int8 -> m ()-eventPropertyWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventPropertySendEventFieldInfo-instance AttrInfo EventPropertySendEventFieldInfo where-    type AttrAllowedOps EventPropertySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventPropertySendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventPropertySendEventFieldInfo = (~) EventProperty-    type AttrGetType EventPropertySendEventFieldInfo = Int8-    type AttrLabel EventPropertySendEventFieldInfo = "send_event"-    attrGet _ = eventPropertyReadSendEvent-    attrSet _ = eventPropertyWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventPropertySendEvent :: AttrLabelProxy "sendEvent"-eventPropertySendEvent = AttrLabelProxy---eventPropertyReadAtom :: MonadIO m => EventProperty -> m (Maybe Atom)-eventPropertyReadAtom s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr Atom) val'-        return val''-    return result--eventPropertyWriteAtom :: MonadIO m => EventProperty -> Ptr Atom -> m ()-eventPropertyWriteAtom s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Atom)--eventPropertyClearAtom :: MonadIO m => EventProperty -> m ()-eventPropertyClearAtom s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Atom)--data EventPropertyAtomFieldInfo-instance AttrInfo EventPropertyAtomFieldInfo where-    type AttrAllowedOps EventPropertyAtomFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventPropertyAtomFieldInfo = (~) (Ptr Atom)-    type AttrBaseTypeConstraint EventPropertyAtomFieldInfo = (~) EventProperty-    type AttrGetType EventPropertyAtomFieldInfo = Maybe Atom-    type AttrLabel EventPropertyAtomFieldInfo = "atom"-    attrGet _ = eventPropertyReadAtom-    attrSet _ = eventPropertyWriteAtom-    attrConstruct = undefined-    attrClear _ = eventPropertyClearAtom--eventPropertyAtom :: AttrLabelProxy "atom"-eventPropertyAtom = AttrLabelProxy---eventPropertyReadTime :: MonadIO m => EventProperty -> m Word32-eventPropertyReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--eventPropertyWriteTime :: MonadIO m => EventProperty -> Word32 -> m ()-eventPropertyWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Word32)--data EventPropertyTimeFieldInfo-instance AttrInfo EventPropertyTimeFieldInfo where-    type AttrAllowedOps EventPropertyTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventPropertyTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventPropertyTimeFieldInfo = (~) EventProperty-    type AttrGetType EventPropertyTimeFieldInfo = Word32-    type AttrLabel EventPropertyTimeFieldInfo = "time"-    attrGet _ = eventPropertyReadTime-    attrSet _ = eventPropertyWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventPropertyTime :: AttrLabelProxy "time"-eventPropertyTime = AttrLabelProxy---eventPropertyReadState :: MonadIO m => EventProperty -> m PropertyState-eventPropertyReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 36) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventPropertyWriteState :: MonadIO m => EventProperty -> PropertyState -> m ()-eventPropertyWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 36) (val' :: CUInt)--data EventPropertyStateFieldInfo-instance AttrInfo EventPropertyStateFieldInfo where-    type AttrAllowedOps EventPropertyStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventPropertyStateFieldInfo = (~) PropertyState-    type AttrBaseTypeConstraint EventPropertyStateFieldInfo = (~) EventProperty-    type AttrGetType EventPropertyStateFieldInfo = PropertyState-    type AttrLabel EventPropertyStateFieldInfo = "state"-    attrGet _ = eventPropertyReadState-    attrSet _ = eventPropertyWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventPropertyState :: AttrLabelProxy "state"-eventPropertyState = AttrLabelProxy----type instance AttributeList EventProperty = EventPropertyAttributeList-type EventPropertyAttributeList = ('[ '("type", EventPropertyTypeFieldInfo), '("window", EventPropertyWindowFieldInfo), '("sendEvent", EventPropertySendEventFieldInfo), '("atom", EventPropertyAtomFieldInfo), '("time", EventPropertyTimeFieldInfo), '("state", EventPropertyStateFieldInfo)] :: [(Symbol, *)])--type family ResolveEventPropertyMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventPropertyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventPropertyMethod t EventProperty, MethodInfo info EventProperty p) => IsLabelProxy t (EventProperty -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventPropertyMethod t EventProperty, MethodInfo info EventProperty p) => IsLabel t (EventProperty -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventProperty.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventProperty where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventProperty = EventProperty (ForeignPtr EventProperty)-instance WrappedPtr EventProperty where
− GI/Gdk/Structs/EventProximity.hs 
@@ -1,251 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Proximity events are generated when using GDK’s wrapper for the-XInput extension. The XInput extension is an add-on for standard X-that allows you to use nonstandard devices such as graphics tablets.-A proximity event indicates that the stylus has moved in or out of-contact with the tablet, or perhaps that the user’s finger has moved-in or out of contact with a touch screen.--This event type will be used pretty rarely. It only is important for-XInput aware programs that are drawing their own cursor.--}--module GI.Gdk.Structs.EventProximity-    ( ---- * Exported types-    EventProximity(..)                      ,-    newZeroEventProximity                   ,-    noEventProximity                        ,--- -- * Properties--- ** Device-    eventProximityClearDevice               ,-    eventProximityDevice                    ,-    eventProximityReadDevice                ,-    eventProximityWriteDevice               ,----- ** SendEvent-    eventProximityReadSendEvent             ,-    eventProximitySendEvent                 ,-    eventProximityWriteSendEvent            ,----- ** Time-    eventProximityReadTime                  ,-    eventProximityTime                      ,-    eventProximityWriteTime                 ,----- ** Type-    eventProximityReadType                  ,-    eventProximityType                      ,-    eventProximityWriteType                 ,----- ** Window-    eventProximityClearWindow               ,-    eventProximityReadWindow                ,-    eventProximityWindow                    ,-    eventProximityWriteWindow               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventProximity = EventProximity (ForeignPtr EventProximity)-instance WrappedPtr EventProximity where-    wrappedPtrCalloc = callocBytes 32-    wrappedPtrCopy = copyPtr 32-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventProximity` struct initialized to zero.-newZeroEventProximity :: MonadIO m => m EventProximity-newZeroEventProximity = liftIO $ wrappedPtrCalloc >>= wrapPtr EventProximity--instance tag ~ 'AttrSet => Constructible EventProximity tag where-    new _ attrs = do-        o <- newZeroEventProximity-        GI.Attributes.set o attrs-        return o---noEventProximity :: Maybe EventProximity-noEventProximity = Nothing--eventProximityReadType :: MonadIO m => EventProximity -> m EventType-eventProximityReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventProximityWriteType :: MonadIO m => EventProximity -> EventType -> m ()-eventProximityWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventProximityTypeFieldInfo-instance AttrInfo EventProximityTypeFieldInfo where-    type AttrAllowedOps EventProximityTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventProximityTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventProximityTypeFieldInfo = (~) EventProximity-    type AttrGetType EventProximityTypeFieldInfo = EventType-    type AttrLabel EventProximityTypeFieldInfo = "type"-    attrGet _ = eventProximityReadType-    attrSet _ = eventProximityWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventProximityType :: AttrLabelProxy "type"-eventProximityType = AttrLabelProxy---eventProximityReadWindow :: MonadIO m => EventProximity -> m (Maybe Window)-eventProximityReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventProximityWriteWindow :: MonadIO m => EventProximity -> Ptr Window -> m ()-eventProximityWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventProximityClearWindow :: MonadIO m => EventProximity -> m ()-eventProximityClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventProximityWindowFieldInfo-instance AttrInfo EventProximityWindowFieldInfo where-    type AttrAllowedOps EventProximityWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventProximityWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventProximityWindowFieldInfo = (~) EventProximity-    type AttrGetType EventProximityWindowFieldInfo = Maybe Window-    type AttrLabel EventProximityWindowFieldInfo = "window"-    attrGet _ = eventProximityReadWindow-    attrSet _ = eventProximityWriteWindow-    attrConstruct = undefined-    attrClear _ = eventProximityClearWindow--eventProximityWindow :: AttrLabelProxy "window"-eventProximityWindow = AttrLabelProxy---eventProximityReadSendEvent :: MonadIO m => EventProximity -> m Int8-eventProximityReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventProximityWriteSendEvent :: MonadIO m => EventProximity -> Int8 -> m ()-eventProximityWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventProximitySendEventFieldInfo-instance AttrInfo EventProximitySendEventFieldInfo where-    type AttrAllowedOps EventProximitySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventProximitySendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventProximitySendEventFieldInfo = (~) EventProximity-    type AttrGetType EventProximitySendEventFieldInfo = Int8-    type AttrLabel EventProximitySendEventFieldInfo = "send_event"-    attrGet _ = eventProximityReadSendEvent-    attrSet _ = eventProximityWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventProximitySendEvent :: AttrLabelProxy "sendEvent"-eventProximitySendEvent = AttrLabelProxy---eventProximityReadTime :: MonadIO m => EventProximity -> m Word32-eventProximityReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventProximityWriteTime :: MonadIO m => EventProximity -> Word32 -> m ()-eventProximityWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--data EventProximityTimeFieldInfo-instance AttrInfo EventProximityTimeFieldInfo where-    type AttrAllowedOps EventProximityTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventProximityTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventProximityTimeFieldInfo = (~) EventProximity-    type AttrGetType EventProximityTimeFieldInfo = Word32-    type AttrLabel EventProximityTimeFieldInfo = "time"-    attrGet _ = eventProximityReadTime-    attrSet _ = eventProximityWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventProximityTime :: AttrLabelProxy "time"-eventProximityTime = AttrLabelProxy---eventProximityReadDevice :: MonadIO m => EventProximity -> m (Maybe Device)-eventProximityReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Device)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Device) val'-        return val''-    return result--eventProximityWriteDevice :: MonadIO m => EventProximity -> Ptr Device -> m ()-eventProximityWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Device)--eventProximityClearDevice :: MonadIO m => EventProximity -> m ()-eventProximityClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Device)--data EventProximityDeviceFieldInfo-instance AttrInfo EventProximityDeviceFieldInfo where-    type AttrAllowedOps EventProximityDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventProximityDeviceFieldInfo = (~) (Ptr Device)-    type AttrBaseTypeConstraint EventProximityDeviceFieldInfo = (~) EventProximity-    type AttrGetType EventProximityDeviceFieldInfo = Maybe Device-    type AttrLabel EventProximityDeviceFieldInfo = "device"-    attrGet _ = eventProximityReadDevice-    attrSet _ = eventProximityWriteDevice-    attrConstruct = undefined-    attrClear _ = eventProximityClearDevice--eventProximityDevice :: AttrLabelProxy "device"-eventProximityDevice = AttrLabelProxy----type instance AttributeList EventProximity = EventProximityAttributeList-type EventProximityAttributeList = ('[ '("type", EventProximityTypeFieldInfo), '("window", EventProximityWindowFieldInfo), '("sendEvent", EventProximitySendEventFieldInfo), '("time", EventProximityTimeFieldInfo), '("device", EventProximityDeviceFieldInfo)] :: [(Symbol, *)])--type family ResolveEventProximityMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventProximityMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventProximityMethod t EventProximity, MethodInfo info EventProximity p) => IsLabelProxy t (EventProximity -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventProximityMethod t EventProximity, MethodInfo info EventProximity p) => IsLabel t (EventProximity -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventProximity.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventProximity where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventProximity = EventProximity (ForeignPtr EventProximity)-instance WrappedPtr EventProximity where
− GI/Gdk/Structs/EventScroll.hs 
@@ -1,514 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated from button presses for the buttons 4 to 7. Wheel mice are-usually configured to generate button press events for buttons 4 and 5-when the wheel is turned.--Some GDK backends can also generate “smooth” scroll events, which-can be recognized by the %GDK_SCROLL_SMOOTH scroll direction. For-these, the scroll deltas can be obtained with-gdk_event_get_scroll_deltas().--}--module GI.Gdk.Structs.EventScroll-    ( ---- * Exported types-    EventScroll(..)                         ,-    newZeroEventScroll                      ,-    noEventScroll                           ,--- -- * Properties--- ** DeltaX-    eventScrollDeltaX                       ,-    eventScrollReadDeltaX                   ,-    eventScrollWriteDeltaX                  ,----- ** DeltaY-    eventScrollDeltaY                       ,-    eventScrollReadDeltaY                   ,-    eventScrollWriteDeltaY                  ,----- ** Device-    eventScrollClearDevice                  ,-    eventScrollDevice                       ,-    eventScrollReadDevice                   ,-    eventScrollWriteDevice                  ,----- ** Direction-    eventScrollDirection                    ,-    eventScrollReadDirection                ,-    eventScrollWriteDirection               ,----- ** SendEvent-    eventScrollReadSendEvent                ,-    eventScrollSendEvent                    ,-    eventScrollWriteSendEvent               ,----- ** State-    eventScrollReadState                    ,-    eventScrollState                        ,-    eventScrollWriteState                   ,----- ** Time-    eventScrollReadTime                     ,-    eventScrollTime                         ,-    eventScrollWriteTime                    ,----- ** Type-    eventScrollReadType                     ,-    eventScrollType                         ,-    eventScrollWriteType                    ,----- ** Window-    eventScrollClearWindow                  ,-    eventScrollReadWindow                   ,-    eventScrollWindow                       ,-    eventScrollWriteWindow                  ,----- ** X-    eventScrollReadX                        ,-    eventScrollWriteX                       ,-    eventScrollX                            ,----- ** XRoot-    eventScrollReadXRoot                    ,-    eventScrollWriteXRoot                   ,-    eventScrollXRoot                        ,----- ** Y-    eventScrollReadY                        ,-    eventScrollWriteY                       ,-    eventScrollY                            ,----- ** YRoot-    eventScrollReadYRoot                    ,-    eventScrollWriteYRoot                   ,-    eventScrollYRoot                        ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventScroll = EventScroll (ForeignPtr EventScroll)-instance WrappedPtr EventScroll where-    wrappedPtrCalloc = callocBytes 88-    wrappedPtrCopy = copyPtr 88-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventScroll` struct initialized to zero.-newZeroEventScroll :: MonadIO m => m EventScroll-newZeroEventScroll = liftIO $ wrappedPtrCalloc >>= wrapPtr EventScroll--instance tag ~ 'AttrSet => Constructible EventScroll tag where-    new _ attrs = do-        o <- newZeroEventScroll-        GI.Attributes.set o attrs-        return o---noEventScroll :: Maybe EventScroll-noEventScroll = Nothing--eventScrollReadType :: MonadIO m => EventScroll -> m EventType-eventScrollReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventScrollWriteType :: MonadIO m => EventScroll -> EventType -> m ()-eventScrollWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventScrollTypeFieldInfo-instance AttrInfo EventScrollTypeFieldInfo where-    type AttrAllowedOps EventScrollTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventScrollTypeFieldInfo = (~) EventScroll-    type AttrGetType EventScrollTypeFieldInfo = EventType-    type AttrLabel EventScrollTypeFieldInfo = "type"-    attrGet _ = eventScrollReadType-    attrSet _ = eventScrollWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollType :: AttrLabelProxy "type"-eventScrollType = AttrLabelProxy---eventScrollReadWindow :: MonadIO m => EventScroll -> m (Maybe Window)-eventScrollReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventScrollWriteWindow :: MonadIO m => EventScroll -> Ptr Window -> m ()-eventScrollWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventScrollClearWindow :: MonadIO m => EventScroll -> m ()-eventScrollClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventScrollWindowFieldInfo-instance AttrInfo EventScrollWindowFieldInfo where-    type AttrAllowedOps EventScrollWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventScrollWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventScrollWindowFieldInfo = (~) EventScroll-    type AttrGetType EventScrollWindowFieldInfo = Maybe Window-    type AttrLabel EventScrollWindowFieldInfo = "window"-    attrGet _ = eventScrollReadWindow-    attrSet _ = eventScrollWriteWindow-    attrConstruct = undefined-    attrClear _ = eventScrollClearWindow--eventScrollWindow :: AttrLabelProxy "window"-eventScrollWindow = AttrLabelProxy---eventScrollReadSendEvent :: MonadIO m => EventScroll -> m Int8-eventScrollReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventScrollWriteSendEvent :: MonadIO m => EventScroll -> Int8 -> m ()-eventScrollWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventScrollSendEventFieldInfo-instance AttrInfo EventScrollSendEventFieldInfo where-    type AttrAllowedOps EventScrollSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventScrollSendEventFieldInfo = (~) EventScroll-    type AttrGetType EventScrollSendEventFieldInfo = Int8-    type AttrLabel EventScrollSendEventFieldInfo = "send_event"-    attrGet _ = eventScrollReadSendEvent-    attrSet _ = eventScrollWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollSendEvent :: AttrLabelProxy "sendEvent"-eventScrollSendEvent = AttrLabelProxy---eventScrollReadTime :: MonadIO m => EventScroll -> m Word32-eventScrollReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventScrollWriteTime :: MonadIO m => EventScroll -> Word32 -> m ()-eventScrollWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--data EventScrollTimeFieldInfo-instance AttrInfo EventScrollTimeFieldInfo where-    type AttrAllowedOps EventScrollTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventScrollTimeFieldInfo = (~) EventScroll-    type AttrGetType EventScrollTimeFieldInfo = Word32-    type AttrLabel EventScrollTimeFieldInfo = "time"-    attrGet _ = eventScrollReadTime-    attrSet _ = eventScrollWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollTime :: AttrLabelProxy "time"-eventScrollTime = AttrLabelProxy---eventScrollReadX :: MonadIO m => EventScroll -> m Double-eventScrollReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollWriteX :: MonadIO m => EventScroll -> Double -> m ()-eventScrollWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data EventScrollXFieldInfo-instance AttrInfo EventScrollXFieldInfo where-    type AttrAllowedOps EventScrollXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventScrollXFieldInfo = (~) EventScroll-    type AttrGetType EventScrollXFieldInfo = Double-    type AttrLabel EventScrollXFieldInfo = "x"-    attrGet _ = eventScrollReadX-    attrSet _ = eventScrollWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollX :: AttrLabelProxy "x"-eventScrollX = AttrLabelProxy---eventScrollReadY :: MonadIO m => EventScroll -> m Double-eventScrollReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollWriteY :: MonadIO m => EventScroll -> Double -> m ()-eventScrollWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data EventScrollYFieldInfo-instance AttrInfo EventScrollYFieldInfo where-    type AttrAllowedOps EventScrollYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventScrollYFieldInfo = (~) EventScroll-    type AttrGetType EventScrollYFieldInfo = Double-    type AttrLabel EventScrollYFieldInfo = "y"-    attrGet _ = eventScrollReadY-    attrSet _ = eventScrollWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollY :: AttrLabelProxy "y"-eventScrollY = AttrLabelProxy---eventScrollReadState :: MonadIO m => EventScroll -> m [ModifierType]-eventScrollReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventScrollWriteState :: MonadIO m => EventScroll -> [ModifierType] -> m ()-eventScrollWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 40) (val' :: CUInt)--data EventScrollStateFieldInfo-instance AttrInfo EventScrollStateFieldInfo where-    type AttrAllowedOps EventScrollStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventScrollStateFieldInfo = (~) EventScroll-    type AttrGetType EventScrollStateFieldInfo = [ModifierType]-    type AttrLabel EventScrollStateFieldInfo = "state"-    attrGet _ = eventScrollReadState-    attrSet _ = eventScrollWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollState :: AttrLabelProxy "state"-eventScrollState = AttrLabelProxy---eventScrollReadDirection :: MonadIO m => EventScroll -> m ScrollDirection-eventScrollReadDirection s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 44) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventScrollWriteDirection :: MonadIO m => EventScroll -> ScrollDirection -> m ()-eventScrollWriteDirection s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 44) (val' :: CUInt)--data EventScrollDirectionFieldInfo-instance AttrInfo EventScrollDirectionFieldInfo where-    type AttrAllowedOps EventScrollDirectionFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollDirectionFieldInfo = (~) ScrollDirection-    type AttrBaseTypeConstraint EventScrollDirectionFieldInfo = (~) EventScroll-    type AttrGetType EventScrollDirectionFieldInfo = ScrollDirection-    type AttrLabel EventScrollDirectionFieldInfo = "direction"-    attrGet _ = eventScrollReadDirection-    attrSet _ = eventScrollWriteDirection-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollDirection :: AttrLabelProxy "direction"-eventScrollDirection = AttrLabelProxy---eventScrollReadDevice :: MonadIO m => EventScroll -> m (Maybe Device)-eventScrollReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr Device)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Device) val'-        return val''-    return result--eventScrollWriteDevice :: MonadIO m => EventScroll -> Ptr Device -> m ()-eventScrollWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Ptr Device)--eventScrollClearDevice :: MonadIO m => EventScroll -> m ()-eventScrollClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (nullPtr :: Ptr Device)--data EventScrollDeviceFieldInfo-instance AttrInfo EventScrollDeviceFieldInfo where-    type AttrAllowedOps EventScrollDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventScrollDeviceFieldInfo = (~) (Ptr Device)-    type AttrBaseTypeConstraint EventScrollDeviceFieldInfo = (~) EventScroll-    type AttrGetType EventScrollDeviceFieldInfo = Maybe Device-    type AttrLabel EventScrollDeviceFieldInfo = "device"-    attrGet _ = eventScrollReadDevice-    attrSet _ = eventScrollWriteDevice-    attrConstruct = undefined-    attrClear _ = eventScrollClearDevice--eventScrollDevice :: AttrLabelProxy "device"-eventScrollDevice = AttrLabelProxy---eventScrollReadXRoot :: MonadIO m => EventScroll -> m Double-eventScrollReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollWriteXRoot :: MonadIO m => EventScroll -> Double -> m ()-eventScrollWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 56) (val' :: CDouble)--data EventScrollXRootFieldInfo-instance AttrInfo EventScrollXRootFieldInfo where-    type AttrAllowedOps EventScrollXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollXRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventScrollXRootFieldInfo = (~) EventScroll-    type AttrGetType EventScrollXRootFieldInfo = Double-    type AttrLabel EventScrollXRootFieldInfo = "x_root"-    attrGet _ = eventScrollReadXRoot-    attrSet _ = eventScrollWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollXRoot :: AttrLabelProxy "xRoot"-eventScrollXRoot = AttrLabelProxy---eventScrollReadYRoot :: MonadIO m => EventScroll -> m Double-eventScrollReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollWriteYRoot :: MonadIO m => EventScroll -> Double -> m ()-eventScrollWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 64) (val' :: CDouble)--data EventScrollYRootFieldInfo-instance AttrInfo EventScrollYRootFieldInfo where-    type AttrAllowedOps EventScrollYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollYRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventScrollYRootFieldInfo = (~) EventScroll-    type AttrGetType EventScrollYRootFieldInfo = Double-    type AttrLabel EventScrollYRootFieldInfo = "y_root"-    attrGet _ = eventScrollReadYRoot-    attrSet _ = eventScrollWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollYRoot :: AttrLabelProxy "yRoot"-eventScrollYRoot = AttrLabelProxy---eventScrollReadDeltaX :: MonadIO m => EventScroll -> m Double-eventScrollReadDeltaX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollWriteDeltaX :: MonadIO m => EventScroll -> Double -> m ()-eventScrollWriteDeltaX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 72) (val' :: CDouble)--data EventScrollDeltaXFieldInfo-instance AttrInfo EventScrollDeltaXFieldInfo where-    type AttrAllowedOps EventScrollDeltaXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollDeltaXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventScrollDeltaXFieldInfo = (~) EventScroll-    type AttrGetType EventScrollDeltaXFieldInfo = Double-    type AttrLabel EventScrollDeltaXFieldInfo = "delta_x"-    attrGet _ = eventScrollReadDeltaX-    attrSet _ = eventScrollWriteDeltaX-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollDeltaX :: AttrLabelProxy "deltaX"-eventScrollDeltaX = AttrLabelProxy---eventScrollReadDeltaY :: MonadIO m => EventScroll -> m Double-eventScrollReadDeltaY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollWriteDeltaY :: MonadIO m => EventScroll -> Double -> m ()-eventScrollWriteDeltaY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 80) (val' :: CDouble)--data EventScrollDeltaYFieldInfo-instance AttrInfo EventScrollDeltaYFieldInfo where-    type AttrAllowedOps EventScrollDeltaYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventScrollDeltaYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventScrollDeltaYFieldInfo = (~) EventScroll-    type AttrGetType EventScrollDeltaYFieldInfo = Double-    type AttrLabel EventScrollDeltaYFieldInfo = "delta_y"-    attrGet _ = eventScrollReadDeltaY-    attrSet _ = eventScrollWriteDeltaY-    attrConstruct = undefined-    attrClear _ = undefined--eventScrollDeltaY :: AttrLabelProxy "deltaY"-eventScrollDeltaY = AttrLabelProxy----type instance AttributeList EventScroll = EventScrollAttributeList-type EventScrollAttributeList = ('[ '("type", EventScrollTypeFieldInfo), '("window", EventScrollWindowFieldInfo), '("sendEvent", EventScrollSendEventFieldInfo), '("time", EventScrollTimeFieldInfo), '("x", EventScrollXFieldInfo), '("y", EventScrollYFieldInfo), '("state", EventScrollStateFieldInfo), '("direction", EventScrollDirectionFieldInfo), '("device", EventScrollDeviceFieldInfo), '("xRoot", EventScrollXRootFieldInfo), '("yRoot", EventScrollYRootFieldInfo), '("deltaX", EventScrollDeltaXFieldInfo), '("deltaY", EventScrollDeltaYFieldInfo)] :: [(Symbol, *)])--type family ResolveEventScrollMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventScrollMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventScrollMethod t EventScroll, MethodInfo info EventScroll p) => IsLabelProxy t (EventScroll -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventScrollMethod t EventScroll, MethodInfo info EventScroll p) => IsLabel t (EventScroll -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventScroll.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventScroll where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventScroll = EventScroll (ForeignPtr EventScroll)-instance WrappedPtr EventScroll where
− GI/Gdk/Structs/EventSelection.hs 
@@ -1,361 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when a selection is requested or ownership of a selection-is taken over by another client application.--}--module GI.Gdk.Structs.EventSelection-    ( ---- * Exported types-    EventSelection(..)                      ,-    newZeroEventSelection                   ,-    noEventSelection                        ,--- -- * Properties--- ** Property-    eventSelectionClearProperty             ,-    eventSelectionProperty                  ,-    eventSelectionReadProperty              ,-    eventSelectionWriteProperty             ,----- ** Requestor-    eventSelectionClearRequestor            ,-    eventSelectionReadRequestor             ,-    eventSelectionRequestor                 ,-    eventSelectionWriteRequestor            ,----- ** Selection-    eventSelectionClearSelection            ,-    eventSelectionReadSelection             ,-    eventSelectionSelection                 ,-    eventSelectionWriteSelection            ,----- ** SendEvent-    eventSelectionReadSendEvent             ,-    eventSelectionSendEvent                 ,-    eventSelectionWriteSendEvent            ,----- ** Target-    eventSelectionClearTarget               ,-    eventSelectionReadTarget                ,-    eventSelectionTarget                    ,-    eventSelectionWriteTarget               ,----- ** Time-    eventSelectionReadTime                  ,-    eventSelectionTime                      ,-    eventSelectionWriteTime                 ,----- ** Type-    eventSelectionReadType                  ,-    eventSelectionType                      ,-    eventSelectionWriteType                 ,----- ** Window-    eventSelectionClearWindow               ,-    eventSelectionReadWindow                ,-    eventSelectionWindow                    ,-    eventSelectionWriteWindow               ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventSelection = EventSelection (ForeignPtr EventSelection)-instance WrappedPtr EventSelection where-    wrappedPtrCalloc = callocBytes 64-    wrappedPtrCopy = copyPtr 64-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventSelection` struct initialized to zero.-newZeroEventSelection :: MonadIO m => m EventSelection-newZeroEventSelection = liftIO $ wrappedPtrCalloc >>= wrapPtr EventSelection--instance tag ~ 'AttrSet => Constructible EventSelection tag where-    new _ attrs = do-        o <- newZeroEventSelection-        GI.Attributes.set o attrs-        return o---noEventSelection :: Maybe EventSelection-noEventSelection = Nothing--eventSelectionReadType :: MonadIO m => EventSelection -> m EventType-eventSelectionReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventSelectionWriteType :: MonadIO m => EventSelection -> EventType -> m ()-eventSelectionWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventSelectionTypeFieldInfo-instance AttrInfo EventSelectionTypeFieldInfo where-    type AttrAllowedOps EventSelectionTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventSelectionTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventSelectionTypeFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionTypeFieldInfo = EventType-    type AttrLabel EventSelectionTypeFieldInfo = "type"-    attrGet _ = eventSelectionReadType-    attrSet _ = eventSelectionWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventSelectionType :: AttrLabelProxy "type"-eventSelectionType = AttrLabelProxy---eventSelectionReadWindow :: MonadIO m => EventSelection -> m (Maybe Window)-eventSelectionReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventSelectionWriteWindow :: MonadIO m => EventSelection -> Ptr Window -> m ()-eventSelectionWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventSelectionClearWindow :: MonadIO m => EventSelection -> m ()-eventSelectionClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventSelectionWindowFieldInfo-instance AttrInfo EventSelectionWindowFieldInfo where-    type AttrAllowedOps EventSelectionWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSelectionWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventSelectionWindowFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionWindowFieldInfo = Maybe Window-    type AttrLabel EventSelectionWindowFieldInfo = "window"-    attrGet _ = eventSelectionReadWindow-    attrSet _ = eventSelectionWriteWindow-    attrConstruct = undefined-    attrClear _ = eventSelectionClearWindow--eventSelectionWindow :: AttrLabelProxy "window"-eventSelectionWindow = AttrLabelProxy---eventSelectionReadSendEvent :: MonadIO m => EventSelection -> m Int8-eventSelectionReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventSelectionWriteSendEvent :: MonadIO m => EventSelection -> Int8 -> m ()-eventSelectionWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventSelectionSendEventFieldInfo-instance AttrInfo EventSelectionSendEventFieldInfo where-    type AttrAllowedOps EventSelectionSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventSelectionSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventSelectionSendEventFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionSendEventFieldInfo = Int8-    type AttrLabel EventSelectionSendEventFieldInfo = "send_event"-    attrGet _ = eventSelectionReadSendEvent-    attrSet _ = eventSelectionWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventSelectionSendEvent :: AttrLabelProxy "sendEvent"-eventSelectionSendEvent = AttrLabelProxy---eventSelectionReadSelection :: MonadIO m => EventSelection -> m (Maybe Atom)-eventSelectionReadSelection s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr Atom) val'-        return val''-    return result--eventSelectionWriteSelection :: MonadIO m => EventSelection -> Ptr Atom -> m ()-eventSelectionWriteSelection s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Ptr Atom)--eventSelectionClearSelection :: MonadIO m => EventSelection -> m ()-eventSelectionClearSelection s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: Ptr Atom)--data EventSelectionSelectionFieldInfo-instance AttrInfo EventSelectionSelectionFieldInfo where-    type AttrAllowedOps EventSelectionSelectionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSelectionSelectionFieldInfo = (~) (Ptr Atom)-    type AttrBaseTypeConstraint EventSelectionSelectionFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionSelectionFieldInfo = Maybe Atom-    type AttrLabel EventSelectionSelectionFieldInfo = "selection"-    attrGet _ = eventSelectionReadSelection-    attrSet _ = eventSelectionWriteSelection-    attrConstruct = undefined-    attrClear _ = eventSelectionClearSelection--eventSelectionSelection :: AttrLabelProxy "selection"-eventSelectionSelection = AttrLabelProxy---eventSelectionReadTarget :: MonadIO m => EventSelection -> m (Maybe Atom)-eventSelectionReadTarget s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Atom)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr Atom) val'-        return val''-    return result--eventSelectionWriteTarget :: MonadIO m => EventSelection -> Ptr Atom -> m ()-eventSelectionWriteTarget s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Atom)--eventSelectionClearTarget :: MonadIO m => EventSelection -> m ()-eventSelectionClearTarget s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Atom)--data EventSelectionTargetFieldInfo-instance AttrInfo EventSelectionTargetFieldInfo where-    type AttrAllowedOps EventSelectionTargetFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSelectionTargetFieldInfo = (~) (Ptr Atom)-    type AttrBaseTypeConstraint EventSelectionTargetFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionTargetFieldInfo = Maybe Atom-    type AttrLabel EventSelectionTargetFieldInfo = "target"-    attrGet _ = eventSelectionReadTarget-    attrSet _ = eventSelectionWriteTarget-    attrConstruct = undefined-    attrClear _ = eventSelectionClearTarget--eventSelectionTarget :: AttrLabelProxy "target"-eventSelectionTarget = AttrLabelProxy---eventSelectionReadProperty :: MonadIO m => EventSelection -> m (Maybe Atom)-eventSelectionReadProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr Atom) val'-        return val''-    return result--eventSelectionWriteProperty :: MonadIO m => EventSelection -> Ptr Atom -> m ()-eventSelectionWriteProperty s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (val :: Ptr Atom)--eventSelectionClearProperty :: MonadIO m => EventSelection -> m ()-eventSelectionClearProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 40) (nullPtr :: Ptr Atom)--data EventSelectionPropertyFieldInfo-instance AttrInfo EventSelectionPropertyFieldInfo where-    type AttrAllowedOps EventSelectionPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSelectionPropertyFieldInfo = (~) (Ptr Atom)-    type AttrBaseTypeConstraint EventSelectionPropertyFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionPropertyFieldInfo = Maybe Atom-    type AttrLabel EventSelectionPropertyFieldInfo = "property"-    attrGet _ = eventSelectionReadProperty-    attrSet _ = eventSelectionWriteProperty-    attrConstruct = undefined-    attrClear _ = eventSelectionClearProperty--eventSelectionProperty :: AttrLabelProxy "property"-eventSelectionProperty = AttrLabelProxy---eventSelectionReadTime :: MonadIO m => EventSelection -> m Word32-eventSelectionReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word32-    return val--eventSelectionWriteTime :: MonadIO m => EventSelection -> Word32 -> m ()-eventSelectionWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Word32)--data EventSelectionTimeFieldInfo-instance AttrInfo EventSelectionTimeFieldInfo where-    type AttrAllowedOps EventSelectionTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventSelectionTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventSelectionTimeFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionTimeFieldInfo = Word32-    type AttrLabel EventSelectionTimeFieldInfo = "time"-    attrGet _ = eventSelectionReadTime-    attrSet _ = eventSelectionWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventSelectionTime :: AttrLabelProxy "time"-eventSelectionTime = AttrLabelProxy---eventSelectionReadRequestor :: MonadIO m => EventSelection -> m (Maybe Window)-eventSelectionReadRequestor s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventSelectionWriteRequestor :: MonadIO m => EventSelection -> Ptr Window -> m ()-eventSelectionWriteRequestor s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: Ptr Window)--eventSelectionClearRequestor :: MonadIO m => EventSelection -> m ()-eventSelectionClearRequestor s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (nullPtr :: Ptr Window)--data EventSelectionRequestorFieldInfo-instance AttrInfo EventSelectionRequestorFieldInfo where-    type AttrAllowedOps EventSelectionRequestorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSelectionRequestorFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventSelectionRequestorFieldInfo = (~) EventSelection-    type AttrGetType EventSelectionRequestorFieldInfo = Maybe Window-    type AttrLabel EventSelectionRequestorFieldInfo = "requestor"-    attrGet _ = eventSelectionReadRequestor-    attrSet _ = eventSelectionWriteRequestor-    attrConstruct = undefined-    attrClear _ = eventSelectionClearRequestor--eventSelectionRequestor :: AttrLabelProxy "requestor"-eventSelectionRequestor = AttrLabelProxy----type instance AttributeList EventSelection = EventSelectionAttributeList-type EventSelectionAttributeList = ('[ '("type", EventSelectionTypeFieldInfo), '("window", EventSelectionWindowFieldInfo), '("sendEvent", EventSelectionSendEventFieldInfo), '("selection", EventSelectionSelectionFieldInfo), '("target", EventSelectionTargetFieldInfo), '("property", EventSelectionPropertyFieldInfo), '("time", EventSelectionTimeFieldInfo), '("requestor", EventSelectionRequestorFieldInfo)] :: [(Symbol, *)])--type family ResolveEventSelectionMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventSelectionMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventSelectionMethod t EventSelection, MethodInfo info EventSelection p) => IsLabelProxy t (EventSelection -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventSelectionMethod t EventSelection, MethodInfo info EventSelection p) => IsLabel t (EventSelection -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventSelection.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventSelection where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventSelection = EventSelection (ForeignPtr EventSelection)-instance WrappedPtr EventSelection where
− GI/Gdk/Structs/EventSequence.hs 
@@ -1,54 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Structs.EventSequence-    ( ---- * Exported types-    EventSequence(..)                       ,-    noEventSequence                         ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventSequence = EventSequence (ForeignPtr EventSequence)-foreign import ccall "gdk_event_sequence_get_type" c_gdk_event_sequence_get_type :: -    IO GType--instance BoxedObject EventSequence where-    boxedType _ = c_gdk_event_sequence_get_type--noEventSequence :: Maybe EventSequence-noEventSequence = Nothing---type instance AttributeList EventSequence = EventSequenceAttributeList-type EventSequenceAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveEventSequenceMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventSequenceMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventSequenceMethod t EventSequence, MethodInfo info EventSequence p) => IsLabelProxy t (EventSequence -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventSequenceMethod t EventSequence, MethodInfo info EventSequence p) => IsLabel t (EventSequence -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventSequence.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventSequence where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventSequence = EventSequence (ForeignPtr EventSequence)-instance BoxedObject EventSequence where
− GI/Gdk/Structs/EventSetting.hs 
@@ -1,245 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when a setting is modified.--}--module GI.Gdk.Structs.EventSetting-    ( ---- * Exported types-    EventSetting(..)                        ,-    newZeroEventSetting                     ,-    noEventSetting                          ,--- -- * Properties--- ** Action-    eventSettingAction                      ,-    eventSettingReadAction                  ,-    eventSettingWriteAction                 ,----- ** Name-    eventSettingClearName                   ,-    eventSettingName                        ,-    eventSettingReadName                    ,-    eventSettingWriteName                   ,----- ** SendEvent-    eventSettingReadSendEvent               ,-    eventSettingSendEvent                   ,-    eventSettingWriteSendEvent              ,----- ** Type-    eventSettingReadType                    ,-    eventSettingType                        ,-    eventSettingWriteType                   ,----- ** Window-    eventSettingClearWindow                 ,-    eventSettingReadWindow                  ,-    eventSettingWindow                      ,-    eventSettingWriteWindow                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventSetting = EventSetting (ForeignPtr EventSetting)-instance WrappedPtr EventSetting where-    wrappedPtrCalloc = callocBytes 32-    wrappedPtrCopy = copyPtr 32-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventSetting` struct initialized to zero.-newZeroEventSetting :: MonadIO m => m EventSetting-newZeroEventSetting = liftIO $ wrappedPtrCalloc >>= wrapPtr EventSetting--instance tag ~ 'AttrSet => Constructible EventSetting tag where-    new _ attrs = do-        o <- newZeroEventSetting-        GI.Attributes.set o attrs-        return o---noEventSetting :: Maybe EventSetting-noEventSetting = Nothing--eventSettingReadType :: MonadIO m => EventSetting -> m EventType-eventSettingReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventSettingWriteType :: MonadIO m => EventSetting -> EventType -> m ()-eventSettingWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventSettingTypeFieldInfo-instance AttrInfo EventSettingTypeFieldInfo where-    type AttrAllowedOps EventSettingTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventSettingTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventSettingTypeFieldInfo = (~) EventSetting-    type AttrGetType EventSettingTypeFieldInfo = EventType-    type AttrLabel EventSettingTypeFieldInfo = "type"-    attrGet _ = eventSettingReadType-    attrSet _ = eventSettingWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventSettingType :: AttrLabelProxy "type"-eventSettingType = AttrLabelProxy---eventSettingReadWindow :: MonadIO m => EventSetting -> m (Maybe Window)-eventSettingReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventSettingWriteWindow :: MonadIO m => EventSetting -> Ptr Window -> m ()-eventSettingWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventSettingClearWindow :: MonadIO m => EventSetting -> m ()-eventSettingClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventSettingWindowFieldInfo-instance AttrInfo EventSettingWindowFieldInfo where-    type AttrAllowedOps EventSettingWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSettingWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventSettingWindowFieldInfo = (~) EventSetting-    type AttrGetType EventSettingWindowFieldInfo = Maybe Window-    type AttrLabel EventSettingWindowFieldInfo = "window"-    attrGet _ = eventSettingReadWindow-    attrSet _ = eventSettingWriteWindow-    attrConstruct = undefined-    attrClear _ = eventSettingClearWindow--eventSettingWindow :: AttrLabelProxy "window"-eventSettingWindow = AttrLabelProxy---eventSettingReadSendEvent :: MonadIO m => EventSetting -> m Int8-eventSettingReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventSettingWriteSendEvent :: MonadIO m => EventSetting -> Int8 -> m ()-eventSettingWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventSettingSendEventFieldInfo-instance AttrInfo EventSettingSendEventFieldInfo where-    type AttrAllowedOps EventSettingSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventSettingSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventSettingSendEventFieldInfo = (~) EventSetting-    type AttrGetType EventSettingSendEventFieldInfo = Int8-    type AttrLabel EventSettingSendEventFieldInfo = "send_event"-    attrGet _ = eventSettingReadSendEvent-    attrSet _ = eventSettingWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventSettingSendEvent :: AttrLabelProxy "sendEvent"-eventSettingSendEvent = AttrLabelProxy---eventSettingReadAction :: MonadIO m => EventSetting -> m SettingAction-eventSettingReadAction s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventSettingWriteAction :: MonadIO m => EventSetting -> SettingAction -> m ()-eventSettingWriteAction s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 20) (val' :: CUInt)--data EventSettingActionFieldInfo-instance AttrInfo EventSettingActionFieldInfo where-    type AttrAllowedOps EventSettingActionFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventSettingActionFieldInfo = (~) SettingAction-    type AttrBaseTypeConstraint EventSettingActionFieldInfo = (~) EventSetting-    type AttrGetType EventSettingActionFieldInfo = SettingAction-    type AttrLabel EventSettingActionFieldInfo = "action"-    attrGet _ = eventSettingReadAction-    attrSet _ = eventSettingWriteAction-    attrConstruct = undefined-    attrClear _ = undefined--eventSettingAction :: AttrLabelProxy "action"-eventSettingAction = AttrLabelProxy---eventSettingReadName :: MonadIO m => EventSetting -> m (Maybe T.Text)-eventSettingReadName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--eventSettingWriteName :: MonadIO m => EventSetting -> CString -> m ()-eventSettingWriteName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: CString)--eventSettingClearName :: MonadIO m => EventSetting -> m ()-eventSettingClearName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (nullPtr :: CString)--data EventSettingNameFieldInfo-instance AttrInfo EventSettingNameFieldInfo where-    type AttrAllowedOps EventSettingNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSettingNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint EventSettingNameFieldInfo = (~) EventSetting-    type AttrGetType EventSettingNameFieldInfo = Maybe T.Text-    type AttrLabel EventSettingNameFieldInfo = "name"-    attrGet _ = eventSettingReadName-    attrSet _ = eventSettingWriteName-    attrConstruct = undefined-    attrClear _ = eventSettingClearName--eventSettingName :: AttrLabelProxy "name"-eventSettingName = AttrLabelProxy----type instance AttributeList EventSetting = EventSettingAttributeList-type EventSettingAttributeList = ('[ '("type", EventSettingTypeFieldInfo), '("window", EventSettingWindowFieldInfo), '("sendEvent", EventSettingSendEventFieldInfo), '("action", EventSettingActionFieldInfo), '("name", EventSettingNameFieldInfo)] :: [(Symbol, *)])--type family ResolveEventSettingMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventSettingMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventSettingMethod t EventSetting, MethodInfo info EventSetting p) => IsLabelProxy t (EventSetting -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventSettingMethod t EventSetting, MethodInfo info EventSetting p) => IsLabel t (EventSetting -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventSetting.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventSetting where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventSetting = EventSetting (ForeignPtr EventSetting)-instance WrappedPtr EventSetting where
− GI/Gdk/Structs/EventTouch.hs 
@@ -1,522 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Used for touch events.-@type field will be one of %GDK_TOUCH_BEGIN, %GDK_TOUCH_UPDATE,-%GDK_TOUCH_END or %GDK_TOUCH_CANCEL.--Touch events are grouped into sequences by means of the @sequence-field, which can also be obtained with gdk_event_get_event_sequence().-Each sequence begins with a %GDK_TOUCH_BEGIN event, followed by-any number of %GDK_TOUCH_UPDATE events, and ends with a %GDK_TOUCH_END-(or %GDK_TOUCH_CANCEL) event. With multitouch devices, there may be-several active sequences at the same time.--}--module GI.Gdk.Structs.EventTouch-    ( ---- * Exported types-    EventTouch(..)                          ,-    newZeroEventTouch                       ,-    noEventTouch                            ,--- -- * Properties--- ** Axes-    eventTouchAxes                          ,-    eventTouchReadAxes                      ,-    eventTouchWriteAxes                     ,----- ** Device-    eventTouchClearDevice                   ,-    eventTouchDevice                        ,-    eventTouchReadDevice                    ,-    eventTouchWriteDevice                   ,----- ** EmulatingPointer-    eventTouchEmulatingPointer              ,-    eventTouchReadEmulatingPointer          ,-    eventTouchWriteEmulatingPointer         ,----- ** SendEvent-    eventTouchReadSendEvent                 ,-    eventTouchSendEvent                     ,-    eventTouchWriteSendEvent                ,----- ** Sequence-    eventTouchClearSequence                 ,-    eventTouchReadSequence                  ,-    eventTouchSequence                      ,-    eventTouchWriteSequence                 ,----- ** State-    eventTouchReadState                     ,-    eventTouchState                         ,-    eventTouchWriteState                    ,----- ** Time-    eventTouchReadTime                      ,-    eventTouchTime                          ,-    eventTouchWriteTime                     ,----- ** Type-    eventTouchReadType                      ,-    eventTouchType                          ,-    eventTouchWriteType                     ,----- ** Window-    eventTouchClearWindow                   ,-    eventTouchReadWindow                    ,-    eventTouchWindow                        ,-    eventTouchWriteWindow                   ,----- ** X-    eventTouchReadX                         ,-    eventTouchWriteX                        ,-    eventTouchX                             ,----- ** XRoot-    eventTouchReadXRoot                     ,-    eventTouchWriteXRoot                    ,-    eventTouchXRoot                         ,----- ** Y-    eventTouchReadY                         ,-    eventTouchWriteY                        ,-    eventTouchY                             ,----- ** YRoot-    eventTouchReadYRoot                     ,-    eventTouchWriteYRoot                    ,-    eventTouchYRoot                         ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventTouch = EventTouch (ForeignPtr EventTouch)-instance WrappedPtr EventTouch where-    wrappedPtrCalloc = callocBytes 96-    wrappedPtrCopy = copyPtr 96-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventTouch` struct initialized to zero.-newZeroEventTouch :: MonadIO m => m EventTouch-newZeroEventTouch = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouch--instance tag ~ 'AttrSet => Constructible EventTouch tag where-    new _ attrs = do-        o <- newZeroEventTouch-        GI.Attributes.set o attrs-        return o---noEventTouch :: Maybe EventTouch-noEventTouch = Nothing--eventTouchReadType :: MonadIO m => EventTouch -> m EventType-eventTouchReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventTouchWriteType :: MonadIO m => EventTouch -> EventType -> m ()-eventTouchWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventTouchTypeFieldInfo-instance AttrInfo EventTouchTypeFieldInfo where-    type AttrAllowedOps EventTouchTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventTouchTypeFieldInfo = (~) EventTouch-    type AttrGetType EventTouchTypeFieldInfo = EventType-    type AttrLabel EventTouchTypeFieldInfo = "type"-    attrGet _ = eventTouchReadType-    attrSet _ = eventTouchWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchType :: AttrLabelProxy "type"-eventTouchType = AttrLabelProxy---eventTouchReadWindow :: MonadIO m => EventTouch -> m (Maybe Window)-eventTouchReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventTouchWriteWindow :: MonadIO m => EventTouch -> Ptr Window -> m ()-eventTouchWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventTouchClearWindow :: MonadIO m => EventTouch -> m ()-eventTouchClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventTouchWindowFieldInfo-instance AttrInfo EventTouchWindowFieldInfo where-    type AttrAllowedOps EventTouchWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventTouchWindowFieldInfo = (~) EventTouch-    type AttrGetType EventTouchWindowFieldInfo = Maybe Window-    type AttrLabel EventTouchWindowFieldInfo = "window"-    attrGet _ = eventTouchReadWindow-    attrSet _ = eventTouchWriteWindow-    attrConstruct = undefined-    attrClear _ = eventTouchClearWindow--eventTouchWindow :: AttrLabelProxy "window"-eventTouchWindow = AttrLabelProxy---eventTouchReadSendEvent :: MonadIO m => EventTouch -> m Int8-eventTouchReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventTouchWriteSendEvent :: MonadIO m => EventTouch -> Int8 -> m ()-eventTouchWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventTouchSendEventFieldInfo-instance AttrInfo EventTouchSendEventFieldInfo where-    type AttrAllowedOps EventTouchSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventTouchSendEventFieldInfo = (~) EventTouch-    type AttrGetType EventTouchSendEventFieldInfo = Int8-    type AttrLabel EventTouchSendEventFieldInfo = "send_event"-    attrGet _ = eventTouchReadSendEvent-    attrSet _ = eventTouchWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchSendEvent :: AttrLabelProxy "sendEvent"-eventTouchSendEvent = AttrLabelProxy---eventTouchReadTime :: MonadIO m => EventTouch -> m Word32-eventTouchReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventTouchWriteTime :: MonadIO m => EventTouch -> Word32 -> m ()-eventTouchWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Word32)--data EventTouchTimeFieldInfo-instance AttrInfo EventTouchTimeFieldInfo where-    type AttrAllowedOps EventTouchTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventTouchTimeFieldInfo = (~) EventTouch-    type AttrGetType EventTouchTimeFieldInfo = Word32-    type AttrLabel EventTouchTimeFieldInfo = "time"-    attrGet _ = eventTouchReadTime-    attrSet _ = eventTouchWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchTime :: AttrLabelProxy "time"-eventTouchTime = AttrLabelProxy---eventTouchReadX :: MonadIO m => EventTouch -> m Double-eventTouchReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchWriteX :: MonadIO m => EventTouch -> Double -> m ()-eventTouchWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data EventTouchXFieldInfo-instance AttrInfo EventTouchXFieldInfo where-    type AttrAllowedOps EventTouchXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchXFieldInfo = (~) EventTouch-    type AttrGetType EventTouchXFieldInfo = Double-    type AttrLabel EventTouchXFieldInfo = "x"-    attrGet _ = eventTouchReadX-    attrSet _ = eventTouchWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchX :: AttrLabelProxy "x"-eventTouchX = AttrLabelProxy---eventTouchReadY :: MonadIO m => EventTouch -> m Double-eventTouchReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchWriteY :: MonadIO m => EventTouch -> Double -> m ()-eventTouchWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data EventTouchYFieldInfo-instance AttrInfo EventTouchYFieldInfo where-    type AttrAllowedOps EventTouchYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchYFieldInfo = (~) EventTouch-    type AttrGetType EventTouchYFieldInfo = Double-    type AttrLabel EventTouchYFieldInfo = "y"-    attrGet _ = eventTouchReadY-    attrSet _ = eventTouchWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchY :: AttrLabelProxy "y"-eventTouchY = AttrLabelProxy---eventTouchReadAxes :: MonadIO m => EventTouch -> m Double-eventTouchReadAxes s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchWriteAxes :: MonadIO m => EventTouch -> Double -> m ()-eventTouchWriteAxes s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data EventTouchAxesFieldInfo-instance AttrInfo EventTouchAxesFieldInfo where-    type AttrAllowedOps EventTouchAxesFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchAxesFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchAxesFieldInfo = (~) EventTouch-    type AttrGetType EventTouchAxesFieldInfo = Double-    type AttrLabel EventTouchAxesFieldInfo = "axes"-    attrGet _ = eventTouchReadAxes-    attrSet _ = eventTouchWriteAxes-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchAxes :: AttrLabelProxy "axes"-eventTouchAxes = AttrLabelProxy---eventTouchReadState :: MonadIO m => EventTouch -> m [ModifierType]-eventTouchReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventTouchWriteState :: MonadIO m => EventTouch -> [ModifierType] -> m ()-eventTouchWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 48) (val' :: CUInt)--data EventTouchStateFieldInfo-instance AttrInfo EventTouchStateFieldInfo where-    type AttrAllowedOps EventTouchStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventTouchStateFieldInfo = (~) EventTouch-    type AttrGetType EventTouchStateFieldInfo = [ModifierType]-    type AttrLabel EventTouchStateFieldInfo = "state"-    attrGet _ = eventTouchReadState-    attrSet _ = eventTouchWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchState :: AttrLabelProxy "state"-eventTouchState = AttrLabelProxy---eventTouchReadSequence :: MonadIO m => EventTouch -> m (Maybe EventSequence)-eventTouchReadSequence s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr EventSequence)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newBoxed EventSequence) val'-        return val''-    return result--eventTouchWriteSequence :: MonadIO m => EventTouch -> Ptr EventSequence -> m ()-eventTouchWriteSequence s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: Ptr EventSequence)--eventTouchClearSequence :: MonadIO m => EventTouch -> m ()-eventTouchClearSequence s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (nullPtr :: Ptr EventSequence)--data EventTouchSequenceFieldInfo-instance AttrInfo EventTouchSequenceFieldInfo where-    type AttrAllowedOps EventTouchSequenceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchSequenceFieldInfo = (~) (Ptr EventSequence)-    type AttrBaseTypeConstraint EventTouchSequenceFieldInfo = (~) EventTouch-    type AttrGetType EventTouchSequenceFieldInfo = Maybe EventSequence-    type AttrLabel EventTouchSequenceFieldInfo = "sequence"-    attrGet _ = eventTouchReadSequence-    attrSet _ = eventTouchWriteSequence-    attrConstruct = undefined-    attrClear _ = eventTouchClearSequence--eventTouchSequence :: AttrLabelProxy "sequence"-eventTouchSequence = AttrLabelProxy---eventTouchReadEmulatingPointer :: MonadIO m => EventTouch -> m Bool-eventTouchReadEmulatingPointer s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CInt-    let val' = (/= 0) val-    return val'--eventTouchWriteEmulatingPointer :: MonadIO m => EventTouch -> Bool -> m ()-eventTouchWriteEmulatingPointer s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 64) (val' :: CInt)--data EventTouchEmulatingPointerFieldInfo-instance AttrInfo EventTouchEmulatingPointerFieldInfo where-    type AttrAllowedOps EventTouchEmulatingPointerFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchEmulatingPointerFieldInfo = (~) Bool-    type AttrBaseTypeConstraint EventTouchEmulatingPointerFieldInfo = (~) EventTouch-    type AttrGetType EventTouchEmulatingPointerFieldInfo = Bool-    type AttrLabel EventTouchEmulatingPointerFieldInfo = "emulating_pointer"-    attrGet _ = eventTouchReadEmulatingPointer-    attrSet _ = eventTouchWriteEmulatingPointer-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchEmulatingPointer :: AttrLabelProxy "emulatingPointer"-eventTouchEmulatingPointer = AttrLabelProxy---eventTouchReadDevice :: MonadIO m => EventTouch -> m (Maybe Device)-eventTouchReadDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO (Ptr Device)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Device) val'-        return val''-    return result--eventTouchWriteDevice :: MonadIO m => EventTouch -> Ptr Device -> m ()-eventTouchWriteDevice s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 72) (val :: Ptr Device)--eventTouchClearDevice :: MonadIO m => EventTouch -> m ()-eventTouchClearDevice s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 72) (nullPtr :: Ptr Device)--data EventTouchDeviceFieldInfo-instance AttrInfo EventTouchDeviceFieldInfo where-    type AttrAllowedOps EventTouchDeviceFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchDeviceFieldInfo = (~) (Ptr Device)-    type AttrBaseTypeConstraint EventTouchDeviceFieldInfo = (~) EventTouch-    type AttrGetType EventTouchDeviceFieldInfo = Maybe Device-    type AttrLabel EventTouchDeviceFieldInfo = "device"-    attrGet _ = eventTouchReadDevice-    attrSet _ = eventTouchWriteDevice-    attrConstruct = undefined-    attrClear _ = eventTouchClearDevice--eventTouchDevice :: AttrLabelProxy "device"-eventTouchDevice = AttrLabelProxy---eventTouchReadXRoot :: MonadIO m => EventTouch -> m Double-eventTouchReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchWriteXRoot :: MonadIO m => EventTouch -> Double -> m ()-eventTouchWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 80) (val' :: CDouble)--data EventTouchXRootFieldInfo-instance AttrInfo EventTouchXRootFieldInfo where-    type AttrAllowedOps EventTouchXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchXRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchXRootFieldInfo = (~) EventTouch-    type AttrGetType EventTouchXRootFieldInfo = Double-    type AttrLabel EventTouchXRootFieldInfo = "x_root"-    attrGet _ = eventTouchReadXRoot-    attrSet _ = eventTouchWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchXRoot :: AttrLabelProxy "xRoot"-eventTouchXRoot = AttrLabelProxy---eventTouchReadYRoot :: MonadIO m => EventTouch -> m Double-eventTouchReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 88) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchWriteYRoot :: MonadIO m => EventTouch -> Double -> m ()-eventTouchWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 88) (val' :: CDouble)--data EventTouchYRootFieldInfo-instance AttrInfo EventTouchYRootFieldInfo where-    type AttrAllowedOps EventTouchYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchYRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchYRootFieldInfo = (~) EventTouch-    type AttrGetType EventTouchYRootFieldInfo = Double-    type AttrLabel EventTouchYRootFieldInfo = "y_root"-    attrGet _ = eventTouchReadYRoot-    attrSet _ = eventTouchWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchYRoot :: AttrLabelProxy "yRoot"-eventTouchYRoot = AttrLabelProxy----type instance AttributeList EventTouch = EventTouchAttributeList-type EventTouchAttributeList = ('[ '("type", EventTouchTypeFieldInfo), '("window", EventTouchWindowFieldInfo), '("sendEvent", EventTouchSendEventFieldInfo), '("time", EventTouchTimeFieldInfo), '("x", EventTouchXFieldInfo), '("y", EventTouchYFieldInfo), '("axes", EventTouchAxesFieldInfo), '("state", EventTouchStateFieldInfo), '("sequence", EventTouchSequenceFieldInfo), '("emulatingPointer", EventTouchEmulatingPointerFieldInfo), '("device", EventTouchDeviceFieldInfo), '("xRoot", EventTouchXRootFieldInfo), '("yRoot", EventTouchYRootFieldInfo)] :: [(Symbol, *)])--type family ResolveEventTouchMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventTouchMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventTouchMethod t EventTouch, MethodInfo info EventTouch p) => IsLabelProxy t (EventTouch -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventTouchMethod t EventTouch, MethodInfo info EventTouch p) => IsLabel t (EventTouch -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventTouch.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventTouch where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventTouch = EventTouch (ForeignPtr EventTouch)-instance WrappedPtr EventTouch where
− GI/Gdk/Structs/EventTouchpadPinch.hs 
@@ -1,565 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated during touchpad swipe gestures.--}--module GI.Gdk.Structs.EventTouchpadPinch-    ( ---- * Exported types-    EventTouchpadPinch(..)                  ,-    newZeroEventTouchpadPinch               ,-    noEventTouchpadPinch                    ,--- -- * Properties--- ** AngleDelta-    eventTouchpadPinchAngleDelta            ,-    eventTouchpadPinchReadAngleDelta        ,-    eventTouchpadPinchWriteAngleDelta       ,----- ** Dx-    eventTouchpadPinchDx                    ,-    eventTouchpadPinchReadDx                ,-    eventTouchpadPinchWriteDx               ,----- ** Dy-    eventTouchpadPinchDy                    ,-    eventTouchpadPinchReadDy                ,-    eventTouchpadPinchWriteDy               ,----- ** NFingers-    eventTouchpadPinchNFingers              ,-    eventTouchpadPinchReadNFingers          ,-    eventTouchpadPinchWriteNFingers         ,----- ** Phase-    eventTouchpadPinchPhase                 ,-    eventTouchpadPinchReadPhase             ,-    eventTouchpadPinchWritePhase            ,----- ** Scale-    eventTouchpadPinchReadScale             ,-    eventTouchpadPinchScale                 ,-    eventTouchpadPinchWriteScale            ,----- ** SendEvent-    eventTouchpadPinchReadSendEvent         ,-    eventTouchpadPinchSendEvent             ,-    eventTouchpadPinchWriteSendEvent        ,----- ** State-    eventTouchpadPinchReadState             ,-    eventTouchpadPinchState                 ,-    eventTouchpadPinchWriteState            ,----- ** Time-    eventTouchpadPinchReadTime              ,-    eventTouchpadPinchTime                  ,-    eventTouchpadPinchWriteTime             ,----- ** Type-    eventTouchpadPinchReadType              ,-    eventTouchpadPinchType                  ,-    eventTouchpadPinchWriteType             ,----- ** Window-    eventTouchpadPinchClearWindow           ,-    eventTouchpadPinchReadWindow            ,-    eventTouchpadPinchWindow                ,-    eventTouchpadPinchWriteWindow           ,----- ** X-    eventTouchpadPinchReadX                 ,-    eventTouchpadPinchWriteX                ,-    eventTouchpadPinchX                     ,----- ** XRoot-    eventTouchpadPinchReadXRoot             ,-    eventTouchpadPinchWriteXRoot            ,-    eventTouchpadPinchXRoot                 ,----- ** Y-    eventTouchpadPinchReadY                 ,-    eventTouchpadPinchWriteY                ,-    eventTouchpadPinchY                     ,----- ** YRoot-    eventTouchpadPinchReadYRoot             ,-    eventTouchpadPinchWriteYRoot            ,-    eventTouchpadPinchYRoot                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch)-instance WrappedPtr EventTouchpadPinch where-    wrappedPtrCalloc = callocBytes 104-    wrappedPtrCopy = copyPtr 104-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventTouchpadPinch` struct initialized to zero.-newZeroEventTouchpadPinch :: MonadIO m => m EventTouchpadPinch-newZeroEventTouchpadPinch = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouchpadPinch--instance tag ~ 'AttrSet => Constructible EventTouchpadPinch tag where-    new _ attrs = do-        o <- newZeroEventTouchpadPinch-        GI.Attributes.set o attrs-        return o---noEventTouchpadPinch :: Maybe EventTouchpadPinch-noEventTouchpadPinch = Nothing--eventTouchpadPinchReadType :: MonadIO m => EventTouchpadPinch -> m EventType-eventTouchpadPinchReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventTouchpadPinchWriteType :: MonadIO m => EventTouchpadPinch -> EventType -> m ()-eventTouchpadPinchWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventTouchpadPinchTypeFieldInfo-instance AttrInfo EventTouchpadPinchTypeFieldInfo where-    type AttrAllowedOps EventTouchpadPinchTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventTouchpadPinchTypeFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchTypeFieldInfo = EventType-    type AttrLabel EventTouchpadPinchTypeFieldInfo = "type"-    attrGet _ = eventTouchpadPinchReadType-    attrSet _ = eventTouchpadPinchWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchType :: AttrLabelProxy "type"-eventTouchpadPinchType = AttrLabelProxy---eventTouchpadPinchReadWindow :: MonadIO m => EventTouchpadPinch -> m (Maybe Window)-eventTouchpadPinchReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventTouchpadPinchWriteWindow :: MonadIO m => EventTouchpadPinch -> Ptr Window -> m ()-eventTouchpadPinchWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventTouchpadPinchClearWindow :: MonadIO m => EventTouchpadPinch -> m ()-eventTouchpadPinchClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventTouchpadPinchWindowFieldInfo-instance AttrInfo EventTouchpadPinchWindowFieldInfo where-    type AttrAllowedOps EventTouchpadPinchWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchpadPinchWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventTouchpadPinchWindowFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchWindowFieldInfo = Maybe Window-    type AttrLabel EventTouchpadPinchWindowFieldInfo = "window"-    attrGet _ = eventTouchpadPinchReadWindow-    attrSet _ = eventTouchpadPinchWriteWindow-    attrConstruct = undefined-    attrClear _ = eventTouchpadPinchClearWindow--eventTouchpadPinchWindow :: AttrLabelProxy "window"-eventTouchpadPinchWindow = AttrLabelProxy---eventTouchpadPinchReadSendEvent :: MonadIO m => EventTouchpadPinch -> m Int8-eventTouchpadPinchReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventTouchpadPinchWriteSendEvent :: MonadIO m => EventTouchpadPinch -> Int8 -> m ()-eventTouchpadPinchWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventTouchpadPinchSendEventFieldInfo-instance AttrInfo EventTouchpadPinchSendEventFieldInfo where-    type AttrAllowedOps EventTouchpadPinchSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventTouchpadPinchSendEventFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchSendEventFieldInfo = Int8-    type AttrLabel EventTouchpadPinchSendEventFieldInfo = "send_event"-    attrGet _ = eventTouchpadPinchReadSendEvent-    attrSet _ = eventTouchpadPinchWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchSendEvent :: AttrLabelProxy "sendEvent"-eventTouchpadPinchSendEvent = AttrLabelProxy---eventTouchpadPinchReadPhase :: MonadIO m => EventTouchpadPinch -> m TouchpadGesturePhase-eventTouchpadPinchReadPhase s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventTouchpadPinchWritePhase :: MonadIO m => EventTouchpadPinch -> TouchpadGesturePhase -> m ()-eventTouchpadPinchWritePhase s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 20) (val' :: CUInt)--data EventTouchpadPinchPhaseFieldInfo-instance AttrInfo EventTouchpadPinchPhaseFieldInfo where-    type AttrAllowedOps EventTouchpadPinchPhaseFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchPhaseFieldInfo = (~) TouchpadGesturePhase-    type AttrBaseTypeConstraint EventTouchpadPinchPhaseFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchPhaseFieldInfo = TouchpadGesturePhase-    type AttrLabel EventTouchpadPinchPhaseFieldInfo = "phase"-    attrGet _ = eventTouchpadPinchReadPhase-    attrSet _ = eventTouchpadPinchWritePhase-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchPhase :: AttrLabelProxy "phase"-eventTouchpadPinchPhase = AttrLabelProxy---eventTouchpadPinchReadNFingers :: MonadIO m => EventTouchpadPinch -> m Int8-eventTouchpadPinchReadNFingers s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int8-    return val--eventTouchpadPinchWriteNFingers :: MonadIO m => EventTouchpadPinch -> Int8 -> m ()-eventTouchpadPinchWriteNFingers s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Int8)--data EventTouchpadPinchNFingersFieldInfo-instance AttrInfo EventTouchpadPinchNFingersFieldInfo where-    type AttrAllowedOps EventTouchpadPinchNFingersFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchNFingersFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventTouchpadPinchNFingersFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchNFingersFieldInfo = Int8-    type AttrLabel EventTouchpadPinchNFingersFieldInfo = "n_fingers"-    attrGet _ = eventTouchpadPinchReadNFingers-    attrSet _ = eventTouchpadPinchWriteNFingers-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchNFingers :: AttrLabelProxy "nFingers"-eventTouchpadPinchNFingers = AttrLabelProxy---eventTouchpadPinchReadTime :: MonadIO m => EventTouchpadPinch -> m Word32-eventTouchpadPinchReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Word32-    return val--eventTouchpadPinchWriteTime :: MonadIO m => EventTouchpadPinch -> Word32 -> m ()-eventTouchpadPinchWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Word32)--data EventTouchpadPinchTimeFieldInfo-instance AttrInfo EventTouchpadPinchTimeFieldInfo where-    type AttrAllowedOps EventTouchpadPinchTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventTouchpadPinchTimeFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchTimeFieldInfo = Word32-    type AttrLabel EventTouchpadPinchTimeFieldInfo = "time"-    attrGet _ = eventTouchpadPinchReadTime-    attrSet _ = eventTouchpadPinchWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchTime :: AttrLabelProxy "time"-eventTouchpadPinchTime = AttrLabelProxy---eventTouchpadPinchReadX :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteX :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data EventTouchpadPinchXFieldInfo-instance AttrInfo EventTouchpadPinchXFieldInfo where-    type AttrAllowedOps EventTouchpadPinchXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchXFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchXFieldInfo = Double-    type AttrLabel EventTouchpadPinchXFieldInfo = "x"-    attrGet _ = eventTouchpadPinchReadX-    attrSet _ = eventTouchpadPinchWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchX :: AttrLabelProxy "x"-eventTouchpadPinchX = AttrLabelProxy---eventTouchpadPinchReadY :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteY :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data EventTouchpadPinchYFieldInfo-instance AttrInfo EventTouchpadPinchYFieldInfo where-    type AttrAllowedOps EventTouchpadPinchYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchYFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchYFieldInfo = Double-    type AttrLabel EventTouchpadPinchYFieldInfo = "y"-    attrGet _ = eventTouchpadPinchReadY-    attrSet _ = eventTouchpadPinchWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchY :: AttrLabelProxy "y"-eventTouchpadPinchY = AttrLabelProxy---eventTouchpadPinchReadDx :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadDx s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteDx :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteDx s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 48) (val' :: CDouble)--data EventTouchpadPinchDxFieldInfo-instance AttrInfo EventTouchpadPinchDxFieldInfo where-    type AttrAllowedOps EventTouchpadPinchDxFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchDxFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchDxFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchDxFieldInfo = Double-    type AttrLabel EventTouchpadPinchDxFieldInfo = "dx"-    attrGet _ = eventTouchpadPinchReadDx-    attrSet _ = eventTouchpadPinchWriteDx-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchDx :: AttrLabelProxy "dx"-eventTouchpadPinchDx = AttrLabelProxy---eventTouchpadPinchReadDy :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadDy s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteDy :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteDy s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 56) (val' :: CDouble)--data EventTouchpadPinchDyFieldInfo-instance AttrInfo EventTouchpadPinchDyFieldInfo where-    type AttrAllowedOps EventTouchpadPinchDyFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchDyFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchDyFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchDyFieldInfo = Double-    type AttrLabel EventTouchpadPinchDyFieldInfo = "dy"-    attrGet _ = eventTouchpadPinchReadDy-    attrSet _ = eventTouchpadPinchWriteDy-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchDy :: AttrLabelProxy "dy"-eventTouchpadPinchDy = AttrLabelProxy---eventTouchpadPinchReadAngleDelta :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadAngleDelta s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteAngleDelta :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteAngleDelta s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 64) (val' :: CDouble)--data EventTouchpadPinchAngleDeltaFieldInfo-instance AttrInfo EventTouchpadPinchAngleDeltaFieldInfo where-    type AttrAllowedOps EventTouchpadPinchAngleDeltaFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchAngleDeltaFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchAngleDeltaFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchAngleDeltaFieldInfo = Double-    type AttrLabel EventTouchpadPinchAngleDeltaFieldInfo = "angle_delta"-    attrGet _ = eventTouchpadPinchReadAngleDelta-    attrSet _ = eventTouchpadPinchWriteAngleDelta-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchAngleDelta :: AttrLabelProxy "angleDelta"-eventTouchpadPinchAngleDelta = AttrLabelProxy---eventTouchpadPinchReadScale :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadScale s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteScale :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteScale s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 72) (val' :: CDouble)--data EventTouchpadPinchScaleFieldInfo-instance AttrInfo EventTouchpadPinchScaleFieldInfo where-    type AttrAllowedOps EventTouchpadPinchScaleFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchScaleFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchScaleFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchScaleFieldInfo = Double-    type AttrLabel EventTouchpadPinchScaleFieldInfo = "scale"-    attrGet _ = eventTouchpadPinchReadScale-    attrSet _ = eventTouchpadPinchWriteScale-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchScale :: AttrLabelProxy "scale"-eventTouchpadPinchScale = AttrLabelProxy---eventTouchpadPinchReadXRoot :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteXRoot :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 80) (val' :: CDouble)--data EventTouchpadPinchXRootFieldInfo-instance AttrInfo EventTouchpadPinchXRootFieldInfo where-    type AttrAllowedOps EventTouchpadPinchXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchXRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchXRootFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchXRootFieldInfo = Double-    type AttrLabel EventTouchpadPinchXRootFieldInfo = "x_root"-    attrGet _ = eventTouchpadPinchReadXRoot-    attrSet _ = eventTouchpadPinchWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchXRoot :: AttrLabelProxy "xRoot"-eventTouchpadPinchXRoot = AttrLabelProxy---eventTouchpadPinchReadYRoot :: MonadIO m => EventTouchpadPinch -> m Double-eventTouchpadPinchReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 88) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadPinchWriteYRoot :: MonadIO m => EventTouchpadPinch -> Double -> m ()-eventTouchpadPinchWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 88) (val' :: CDouble)--data EventTouchpadPinchYRootFieldInfo-instance AttrInfo EventTouchpadPinchYRootFieldInfo where-    type AttrAllowedOps EventTouchpadPinchYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchYRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadPinchYRootFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchYRootFieldInfo = Double-    type AttrLabel EventTouchpadPinchYRootFieldInfo = "y_root"-    attrGet _ = eventTouchpadPinchReadYRoot-    attrSet _ = eventTouchpadPinchWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchYRoot :: AttrLabelProxy "yRoot"-eventTouchpadPinchYRoot = AttrLabelProxy---eventTouchpadPinchReadState :: MonadIO m => EventTouchpadPinch -> m [ModifierType]-eventTouchpadPinchReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 96) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventTouchpadPinchWriteState :: MonadIO m => EventTouchpadPinch -> [ModifierType] -> m ()-eventTouchpadPinchWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 96) (val' :: CUInt)--data EventTouchpadPinchStateFieldInfo-instance AttrInfo EventTouchpadPinchStateFieldInfo where-    type AttrAllowedOps EventTouchpadPinchStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadPinchStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventTouchpadPinchStateFieldInfo = (~) EventTouchpadPinch-    type AttrGetType EventTouchpadPinchStateFieldInfo = [ModifierType]-    type AttrLabel EventTouchpadPinchStateFieldInfo = "state"-    attrGet _ = eventTouchpadPinchReadState-    attrSet _ = eventTouchpadPinchWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadPinchState :: AttrLabelProxy "state"-eventTouchpadPinchState = AttrLabelProxy----type instance AttributeList EventTouchpadPinch = EventTouchpadPinchAttributeList-type EventTouchpadPinchAttributeList = ('[ '("type", EventTouchpadPinchTypeFieldInfo), '("window", EventTouchpadPinchWindowFieldInfo), '("sendEvent", EventTouchpadPinchSendEventFieldInfo), '("phase", EventTouchpadPinchPhaseFieldInfo), '("nFingers", EventTouchpadPinchNFingersFieldInfo), '("time", EventTouchpadPinchTimeFieldInfo), '("x", EventTouchpadPinchXFieldInfo), '("y", EventTouchpadPinchYFieldInfo), '("dx", EventTouchpadPinchDxFieldInfo), '("dy", EventTouchpadPinchDyFieldInfo), '("angleDelta", EventTouchpadPinchAngleDeltaFieldInfo), '("scale", EventTouchpadPinchScaleFieldInfo), '("xRoot", EventTouchpadPinchXRootFieldInfo), '("yRoot", EventTouchpadPinchYRootFieldInfo), '("state", EventTouchpadPinchStateFieldInfo)] :: [(Symbol, *)])--type family ResolveEventTouchpadPinchMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventTouchpadPinchMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventTouchpadPinchMethod t EventTouchpadPinch, MethodInfo info EventTouchpadPinch p) => IsLabelProxy t (EventTouchpadPinch -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventTouchpadPinchMethod t EventTouchpadPinch, MethodInfo info EventTouchpadPinch p) => IsLabel t (EventTouchpadPinch -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventTouchpadPinch.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventTouchpadPinch where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch)-instance WrappedPtr EventTouchpadPinch where
− GI/Gdk/Structs/EventTouchpadSwipe.hs 
@@ -1,499 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated during touchpad swipe gestures.--}--module GI.Gdk.Structs.EventTouchpadSwipe-    ( ---- * Exported types-    EventTouchpadSwipe(..)                  ,-    newZeroEventTouchpadSwipe               ,-    noEventTouchpadSwipe                    ,--- -- * Properties--- ** Dx-    eventTouchpadSwipeDx                    ,-    eventTouchpadSwipeReadDx                ,-    eventTouchpadSwipeWriteDx               ,----- ** Dy-    eventTouchpadSwipeDy                    ,-    eventTouchpadSwipeReadDy                ,-    eventTouchpadSwipeWriteDy               ,----- ** NFingers-    eventTouchpadSwipeNFingers              ,-    eventTouchpadSwipeReadNFingers          ,-    eventTouchpadSwipeWriteNFingers         ,----- ** Phase-    eventTouchpadSwipePhase                 ,-    eventTouchpadSwipeReadPhase             ,-    eventTouchpadSwipeWritePhase            ,----- ** SendEvent-    eventTouchpadSwipeReadSendEvent         ,-    eventTouchpadSwipeSendEvent             ,-    eventTouchpadSwipeWriteSendEvent        ,----- ** State-    eventTouchpadSwipeReadState             ,-    eventTouchpadSwipeState                 ,-    eventTouchpadSwipeWriteState            ,----- ** Time-    eventTouchpadSwipeReadTime              ,-    eventTouchpadSwipeTime                  ,-    eventTouchpadSwipeWriteTime             ,----- ** Type-    eventTouchpadSwipeReadType              ,-    eventTouchpadSwipeType                  ,-    eventTouchpadSwipeWriteType             ,----- ** Window-    eventTouchpadSwipeClearWindow           ,-    eventTouchpadSwipeReadWindow            ,-    eventTouchpadSwipeWindow                ,-    eventTouchpadSwipeWriteWindow           ,----- ** X-    eventTouchpadSwipeReadX                 ,-    eventTouchpadSwipeWriteX                ,-    eventTouchpadSwipeX                     ,----- ** XRoot-    eventTouchpadSwipeReadXRoot             ,-    eventTouchpadSwipeWriteXRoot            ,-    eventTouchpadSwipeXRoot                 ,----- ** Y-    eventTouchpadSwipeReadY                 ,-    eventTouchpadSwipeWriteY                ,-    eventTouchpadSwipeY                     ,----- ** YRoot-    eventTouchpadSwipeReadYRoot             ,-    eventTouchpadSwipeWriteYRoot            ,-    eventTouchpadSwipeYRoot                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe)-instance WrappedPtr EventTouchpadSwipe where-    wrappedPtrCalloc = callocBytes 88-    wrappedPtrCopy = copyPtr 88-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventTouchpadSwipe` struct initialized to zero.-newZeroEventTouchpadSwipe :: MonadIO m => m EventTouchpadSwipe-newZeroEventTouchpadSwipe = liftIO $ wrappedPtrCalloc >>= wrapPtr EventTouchpadSwipe--instance tag ~ 'AttrSet => Constructible EventTouchpadSwipe tag where-    new _ attrs = do-        o <- newZeroEventTouchpadSwipe-        GI.Attributes.set o attrs-        return o---noEventTouchpadSwipe :: Maybe EventTouchpadSwipe-noEventTouchpadSwipe = Nothing--eventTouchpadSwipeReadType :: MonadIO m => EventTouchpadSwipe -> m EventType-eventTouchpadSwipeReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventTouchpadSwipeWriteType :: MonadIO m => EventTouchpadSwipe -> EventType -> m ()-eventTouchpadSwipeWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventTouchpadSwipeTypeFieldInfo-instance AttrInfo EventTouchpadSwipeTypeFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventTouchpadSwipeTypeFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeTypeFieldInfo = EventType-    type AttrLabel EventTouchpadSwipeTypeFieldInfo = "type"-    attrGet _ = eventTouchpadSwipeReadType-    attrSet _ = eventTouchpadSwipeWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeType :: AttrLabelProxy "type"-eventTouchpadSwipeType = AttrLabelProxy---eventTouchpadSwipeReadWindow :: MonadIO m => EventTouchpadSwipe -> m (Maybe Window)-eventTouchpadSwipeReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventTouchpadSwipeWriteWindow :: MonadIO m => EventTouchpadSwipe -> Ptr Window -> m ()-eventTouchpadSwipeWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventTouchpadSwipeClearWindow :: MonadIO m => EventTouchpadSwipe -> m ()-eventTouchpadSwipeClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventTouchpadSwipeWindowFieldInfo-instance AttrInfo EventTouchpadSwipeWindowFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventTouchpadSwipeWindowFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeWindowFieldInfo = Maybe Window-    type AttrLabel EventTouchpadSwipeWindowFieldInfo = "window"-    attrGet _ = eventTouchpadSwipeReadWindow-    attrSet _ = eventTouchpadSwipeWriteWindow-    attrConstruct = undefined-    attrClear _ = eventTouchpadSwipeClearWindow--eventTouchpadSwipeWindow :: AttrLabelProxy "window"-eventTouchpadSwipeWindow = AttrLabelProxy---eventTouchpadSwipeReadSendEvent :: MonadIO m => EventTouchpadSwipe -> m Int8-eventTouchpadSwipeReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventTouchpadSwipeWriteSendEvent :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()-eventTouchpadSwipeWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventTouchpadSwipeSendEventFieldInfo-instance AttrInfo EventTouchpadSwipeSendEventFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventTouchpadSwipeSendEventFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeSendEventFieldInfo = Int8-    type AttrLabel EventTouchpadSwipeSendEventFieldInfo = "send_event"-    attrGet _ = eventTouchpadSwipeReadSendEvent-    attrSet _ = eventTouchpadSwipeWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeSendEvent :: AttrLabelProxy "sendEvent"-eventTouchpadSwipeSendEvent = AttrLabelProxy---eventTouchpadSwipeReadPhase :: MonadIO m => EventTouchpadSwipe -> m TouchpadGesturePhase-eventTouchpadSwipeReadPhase s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventTouchpadSwipeWritePhase :: MonadIO m => EventTouchpadSwipe -> TouchpadGesturePhase -> m ()-eventTouchpadSwipeWritePhase s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 20) (val' :: CUInt)--data EventTouchpadSwipePhaseFieldInfo-instance AttrInfo EventTouchpadSwipePhaseFieldInfo where-    type AttrAllowedOps EventTouchpadSwipePhaseFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) TouchpadGesturePhase-    type AttrBaseTypeConstraint EventTouchpadSwipePhaseFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipePhaseFieldInfo = TouchpadGesturePhase-    type AttrLabel EventTouchpadSwipePhaseFieldInfo = "phase"-    attrGet _ = eventTouchpadSwipeReadPhase-    attrSet _ = eventTouchpadSwipeWritePhase-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipePhase :: AttrLabelProxy "phase"-eventTouchpadSwipePhase = AttrLabelProxy---eventTouchpadSwipeReadNFingers :: MonadIO m => EventTouchpadSwipe -> m Int8-eventTouchpadSwipeReadNFingers s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int8-    return val--eventTouchpadSwipeWriteNFingers :: MonadIO m => EventTouchpadSwipe -> Int8 -> m ()-eventTouchpadSwipeWriteNFingers s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Int8)--data EventTouchpadSwipeNFingersFieldInfo-instance AttrInfo EventTouchpadSwipeNFingersFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeNFingersFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventTouchpadSwipeNFingersFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeNFingersFieldInfo = Int8-    type AttrLabel EventTouchpadSwipeNFingersFieldInfo = "n_fingers"-    attrGet _ = eventTouchpadSwipeReadNFingers-    attrSet _ = eventTouchpadSwipeWriteNFingers-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeNFingers :: AttrLabelProxy "nFingers"-eventTouchpadSwipeNFingers = AttrLabelProxy---eventTouchpadSwipeReadTime :: MonadIO m => EventTouchpadSwipe -> m Word32-eventTouchpadSwipeReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Word32-    return val--eventTouchpadSwipeWriteTime :: MonadIO m => EventTouchpadSwipe -> Word32 -> m ()-eventTouchpadSwipeWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Word32)--data EventTouchpadSwipeTimeFieldInfo-instance AttrInfo EventTouchpadSwipeTimeFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint EventTouchpadSwipeTimeFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeTimeFieldInfo = Word32-    type AttrLabel EventTouchpadSwipeTimeFieldInfo = "time"-    attrGet _ = eventTouchpadSwipeReadTime-    attrSet _ = eventTouchpadSwipeWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeTime :: AttrLabelProxy "time"-eventTouchpadSwipeTime = AttrLabelProxy---eventTouchpadSwipeReadX :: MonadIO m => EventTouchpadSwipe -> m Double-eventTouchpadSwipeReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadSwipeWriteX :: MonadIO m => EventTouchpadSwipe -> Double -> m ()-eventTouchpadSwipeWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data EventTouchpadSwipeXFieldInfo-instance AttrInfo EventTouchpadSwipeXFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeXFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadSwipeXFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeXFieldInfo = Double-    type AttrLabel EventTouchpadSwipeXFieldInfo = "x"-    attrGet _ = eventTouchpadSwipeReadX-    attrSet _ = eventTouchpadSwipeWriteX-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeX :: AttrLabelProxy "x"-eventTouchpadSwipeX = AttrLabelProxy---eventTouchpadSwipeReadY :: MonadIO m => EventTouchpadSwipe -> m Double-eventTouchpadSwipeReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadSwipeWriteY :: MonadIO m => EventTouchpadSwipe -> Double -> m ()-eventTouchpadSwipeWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data EventTouchpadSwipeYFieldInfo-instance AttrInfo EventTouchpadSwipeYFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeYFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadSwipeYFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeYFieldInfo = Double-    type AttrLabel EventTouchpadSwipeYFieldInfo = "y"-    attrGet _ = eventTouchpadSwipeReadY-    attrSet _ = eventTouchpadSwipeWriteY-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeY :: AttrLabelProxy "y"-eventTouchpadSwipeY = AttrLabelProxy---eventTouchpadSwipeReadDx :: MonadIO m => EventTouchpadSwipe -> m Double-eventTouchpadSwipeReadDx s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadSwipeWriteDx :: MonadIO m => EventTouchpadSwipe -> Double -> m ()-eventTouchpadSwipeWriteDx s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 48) (val' :: CDouble)--data EventTouchpadSwipeDxFieldInfo-instance AttrInfo EventTouchpadSwipeDxFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeDxFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadSwipeDxFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeDxFieldInfo = Double-    type AttrLabel EventTouchpadSwipeDxFieldInfo = "dx"-    attrGet _ = eventTouchpadSwipeReadDx-    attrSet _ = eventTouchpadSwipeWriteDx-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeDx :: AttrLabelProxy "dx"-eventTouchpadSwipeDx = AttrLabelProxy---eventTouchpadSwipeReadDy :: MonadIO m => EventTouchpadSwipe -> m Double-eventTouchpadSwipeReadDy s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadSwipeWriteDy :: MonadIO m => EventTouchpadSwipe -> Double -> m ()-eventTouchpadSwipeWriteDy s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 56) (val' :: CDouble)--data EventTouchpadSwipeDyFieldInfo-instance AttrInfo EventTouchpadSwipeDyFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeDyFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadSwipeDyFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeDyFieldInfo = Double-    type AttrLabel EventTouchpadSwipeDyFieldInfo = "dy"-    attrGet _ = eventTouchpadSwipeReadDy-    attrSet _ = eventTouchpadSwipeWriteDy-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeDy :: AttrLabelProxy "dy"-eventTouchpadSwipeDy = AttrLabelProxy---eventTouchpadSwipeReadXRoot :: MonadIO m => EventTouchpadSwipe -> m Double-eventTouchpadSwipeReadXRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadSwipeWriteXRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()-eventTouchpadSwipeWriteXRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 64) (val' :: CDouble)--data EventTouchpadSwipeXRootFieldInfo-instance AttrInfo EventTouchpadSwipeXRootFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeXRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadSwipeXRootFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeXRootFieldInfo = Double-    type AttrLabel EventTouchpadSwipeXRootFieldInfo = "x_root"-    attrGet _ = eventTouchpadSwipeReadXRoot-    attrSet _ = eventTouchpadSwipeWriteXRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeXRoot :: AttrLabelProxy "xRoot"-eventTouchpadSwipeXRoot = AttrLabelProxy---eventTouchpadSwipeReadYRoot :: MonadIO m => EventTouchpadSwipe -> m Double-eventTouchpadSwipeReadYRoot s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchpadSwipeWriteYRoot :: MonadIO m => EventTouchpadSwipe -> Double -> m ()-eventTouchpadSwipeWriteYRoot s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 72) (val' :: CDouble)--data EventTouchpadSwipeYRootFieldInfo-instance AttrInfo EventTouchpadSwipeYRootFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeYRootFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) Double-    type AttrBaseTypeConstraint EventTouchpadSwipeYRootFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeYRootFieldInfo = Double-    type AttrLabel EventTouchpadSwipeYRootFieldInfo = "y_root"-    attrGet _ = eventTouchpadSwipeReadYRoot-    attrSet _ = eventTouchpadSwipeWriteYRoot-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeYRoot :: AttrLabelProxy "yRoot"-eventTouchpadSwipeYRoot = AttrLabelProxy---eventTouchpadSwipeReadState :: MonadIO m => EventTouchpadSwipe -> m [ModifierType]-eventTouchpadSwipeReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventTouchpadSwipeWriteState :: MonadIO m => EventTouchpadSwipe -> [ModifierType] -> m ()-eventTouchpadSwipeWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 80) (val' :: CUInt)--data EventTouchpadSwipeStateFieldInfo-instance AttrInfo EventTouchpadSwipeStateFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) [ModifierType]-    type AttrBaseTypeConstraint EventTouchpadSwipeStateFieldInfo = (~) EventTouchpadSwipe-    type AttrGetType EventTouchpadSwipeStateFieldInfo = [ModifierType]-    type AttrLabel EventTouchpadSwipeStateFieldInfo = "state"-    attrGet _ = eventTouchpadSwipeReadState-    attrSet _ = eventTouchpadSwipeWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventTouchpadSwipeState :: AttrLabelProxy "state"-eventTouchpadSwipeState = AttrLabelProxy----type instance AttributeList EventTouchpadSwipe = EventTouchpadSwipeAttributeList-type EventTouchpadSwipeAttributeList = ('[ '("type", EventTouchpadSwipeTypeFieldInfo), '("window", EventTouchpadSwipeWindowFieldInfo), '("sendEvent", EventTouchpadSwipeSendEventFieldInfo), '("phase", EventTouchpadSwipePhaseFieldInfo), '("nFingers", EventTouchpadSwipeNFingersFieldInfo), '("time", EventTouchpadSwipeTimeFieldInfo), '("x", EventTouchpadSwipeXFieldInfo), '("y", EventTouchpadSwipeYFieldInfo), '("dx", EventTouchpadSwipeDxFieldInfo), '("dy", EventTouchpadSwipeDyFieldInfo), '("xRoot", EventTouchpadSwipeXRootFieldInfo), '("yRoot", EventTouchpadSwipeYRootFieldInfo), '("state", EventTouchpadSwipeStateFieldInfo)] :: [(Symbol, *)])--type family ResolveEventTouchpadSwipeMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventTouchpadSwipeMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, MethodInfo info EventTouchpadSwipe p) => IsLabelProxy t (EventTouchpadSwipe -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventTouchpadSwipeMethod t EventTouchpadSwipe, MethodInfo info EventTouchpadSwipe p) => IsLabel t (EventTouchpadSwipe -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventTouchpadSwipe.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventTouchpadSwipe where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe)-instance WrappedPtr EventTouchpadSwipe where
− GI/Gdk/Structs/EventVisibility.hs 
@@ -1,206 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when the window visibility status has changed.--}--module GI.Gdk.Structs.EventVisibility-    ( ---- * Exported types-    EventVisibility(..)                     ,-    newZeroEventVisibility                  ,-    noEventVisibility                       ,--- -- * Properties--- ** SendEvent-    eventVisibilityReadSendEvent            ,-    eventVisibilitySendEvent                ,-    eventVisibilityWriteSendEvent           ,----- ** State-    eventVisibilityReadState                ,-    eventVisibilityState                    ,-    eventVisibilityWriteState               ,----- ** Type-    eventVisibilityReadType                 ,-    eventVisibilityType                     ,-    eventVisibilityWriteType                ,----- ** Window-    eventVisibilityClearWindow              ,-    eventVisibilityReadWindow               ,-    eventVisibilityWindow                   ,-    eventVisibilityWriteWindow              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility)-instance WrappedPtr EventVisibility where-    wrappedPtrCalloc = callocBytes 24-    wrappedPtrCopy = copyPtr 24-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventVisibility` struct initialized to zero.-newZeroEventVisibility :: MonadIO m => m EventVisibility-newZeroEventVisibility = liftIO $ wrappedPtrCalloc >>= wrapPtr EventVisibility--instance tag ~ 'AttrSet => Constructible EventVisibility tag where-    new _ attrs = do-        o <- newZeroEventVisibility-        GI.Attributes.set o attrs-        return o---noEventVisibility :: Maybe EventVisibility-noEventVisibility = Nothing--eventVisibilityReadType :: MonadIO m => EventVisibility -> m EventType-eventVisibilityReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventVisibilityWriteType :: MonadIO m => EventVisibility -> EventType -> m ()-eventVisibilityWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventVisibilityTypeFieldInfo-instance AttrInfo EventVisibilityTypeFieldInfo where-    type AttrAllowedOps EventVisibilityTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventVisibilityTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventVisibilityTypeFieldInfo = (~) EventVisibility-    type AttrGetType EventVisibilityTypeFieldInfo = EventType-    type AttrLabel EventVisibilityTypeFieldInfo = "type"-    attrGet _ = eventVisibilityReadType-    attrSet _ = eventVisibilityWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventVisibilityType :: AttrLabelProxy "type"-eventVisibilityType = AttrLabelProxy---eventVisibilityReadWindow :: MonadIO m => EventVisibility -> m (Maybe Window)-eventVisibilityReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventVisibilityWriteWindow :: MonadIO m => EventVisibility -> Ptr Window -> m ()-eventVisibilityWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventVisibilityClearWindow :: MonadIO m => EventVisibility -> m ()-eventVisibilityClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventVisibilityWindowFieldInfo-instance AttrInfo EventVisibilityWindowFieldInfo where-    type AttrAllowedOps EventVisibilityWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventVisibilityWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventVisibilityWindowFieldInfo = (~) EventVisibility-    type AttrGetType EventVisibilityWindowFieldInfo = Maybe Window-    type AttrLabel EventVisibilityWindowFieldInfo = "window"-    attrGet _ = eventVisibilityReadWindow-    attrSet _ = eventVisibilityWriteWindow-    attrConstruct = undefined-    attrClear _ = eventVisibilityClearWindow--eventVisibilityWindow :: AttrLabelProxy "window"-eventVisibilityWindow = AttrLabelProxy---eventVisibilityReadSendEvent :: MonadIO m => EventVisibility -> m Int8-eventVisibilityReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventVisibilityWriteSendEvent :: MonadIO m => EventVisibility -> Int8 -> m ()-eventVisibilityWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventVisibilitySendEventFieldInfo-instance AttrInfo EventVisibilitySendEventFieldInfo where-    type AttrAllowedOps EventVisibilitySendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventVisibilitySendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventVisibilitySendEventFieldInfo = (~) EventVisibility-    type AttrGetType EventVisibilitySendEventFieldInfo = Int8-    type AttrLabel EventVisibilitySendEventFieldInfo = "send_event"-    attrGet _ = eventVisibilityReadSendEvent-    attrSet _ = eventVisibilityWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventVisibilitySendEvent :: AttrLabelProxy "sendEvent"-eventVisibilitySendEvent = AttrLabelProxy---eventVisibilityReadState :: MonadIO m => EventVisibility -> m VisibilityState-eventVisibilityReadState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventVisibilityWriteState :: MonadIO m => EventVisibility -> VisibilityState -> m ()-eventVisibilityWriteState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 20) (val' :: CUInt)--data EventVisibilityStateFieldInfo-instance AttrInfo EventVisibilityStateFieldInfo where-    type AttrAllowedOps EventVisibilityStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventVisibilityStateFieldInfo = (~) VisibilityState-    type AttrBaseTypeConstraint EventVisibilityStateFieldInfo = (~) EventVisibility-    type AttrGetType EventVisibilityStateFieldInfo = VisibilityState-    type AttrLabel EventVisibilityStateFieldInfo = "state"-    attrGet _ = eventVisibilityReadState-    attrSet _ = eventVisibilityWriteState-    attrConstruct = undefined-    attrClear _ = undefined--eventVisibilityState :: AttrLabelProxy "state"-eventVisibilityState = AttrLabelProxy----type instance AttributeList EventVisibility = EventVisibilityAttributeList-type EventVisibilityAttributeList = ('[ '("type", EventVisibilityTypeFieldInfo), '("window", EventVisibilityWindowFieldInfo), '("sendEvent", EventVisibilitySendEventFieldInfo), '("state", EventVisibilityStateFieldInfo)] :: [(Symbol, *)])--type family ResolveEventVisibilityMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventVisibilityMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventVisibilityMethod t EventVisibility, MethodInfo info EventVisibility p) => IsLabelProxy t (EventVisibility -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventVisibilityMethod t EventVisibility, MethodInfo info EventVisibility p) => IsLabel t (EventVisibility -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventVisibility.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventVisibility where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility)-instance WrappedPtr EventVisibility where
− GI/Gdk/Structs/EventWindowState.hs 
@@ -1,239 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Generated when the state of a toplevel window changes.--}--module GI.Gdk.Structs.EventWindowState-    ( ---- * Exported types-    EventWindowState(..)                    ,-    newZeroEventWindowState                 ,-    noEventWindowState                      ,--- -- * Properties--- ** ChangedMask-    eventWindowStateChangedMask             ,-    eventWindowStateReadChangedMask         ,-    eventWindowStateWriteChangedMask        ,----- ** NewWindowState-    eventWindowStateNewWindowState          ,-    eventWindowStateReadNewWindowState      ,-    eventWindowStateWriteNewWindowState     ,----- ** SendEvent-    eventWindowStateReadSendEvent           ,-    eventWindowStateSendEvent               ,-    eventWindowStateWriteSendEvent          ,----- ** Type-    eventWindowStateReadType                ,-    eventWindowStateType                    ,-    eventWindowStateWriteType               ,----- ** Window-    eventWindowStateClearWindow             ,-    eventWindowStateReadWindow              ,-    eventWindowStateWindow                  ,-    eventWindowStateWriteWindow             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState)-instance WrappedPtr EventWindowState where-    wrappedPtrCalloc = callocBytes 32-    wrappedPtrCopy = copyPtr 32-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `EventWindowState` struct initialized to zero.-newZeroEventWindowState :: MonadIO m => m EventWindowState-newZeroEventWindowState = liftIO $ wrappedPtrCalloc >>= wrapPtr EventWindowState--instance tag ~ 'AttrSet => Constructible EventWindowState tag where-    new _ attrs = do-        o <- newZeroEventWindowState-        GI.Attributes.set o attrs-        return o---noEventWindowState :: Maybe EventWindowState-noEventWindowState = Nothing--eventWindowStateReadType :: MonadIO m => EventWindowState -> m EventType-eventWindowStateReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventWindowStateWriteType :: MonadIO m => EventWindowState -> EventType -> m ()-eventWindowStateWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventWindowStateTypeFieldInfo-instance AttrInfo EventWindowStateTypeFieldInfo where-    type AttrAllowedOps EventWindowStateTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventWindowStateTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventWindowStateTypeFieldInfo = (~) EventWindowState-    type AttrGetType EventWindowStateTypeFieldInfo = EventType-    type AttrLabel EventWindowStateTypeFieldInfo = "type"-    attrGet _ = eventWindowStateReadType-    attrSet _ = eventWindowStateWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventWindowStateType :: AttrLabelProxy "type"-eventWindowStateType = AttrLabelProxy---eventWindowStateReadWindow :: MonadIO m => EventWindowState -> m (Maybe Window)-eventWindowStateReadWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Window) val'-        return val''-    return result--eventWindowStateWriteWindow :: MonadIO m => EventWindowState -> Ptr Window -> m ()-eventWindowStateWriteWindow s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Ptr Window)--eventWindowStateClearWindow :: MonadIO m => EventWindowState -> m ()-eventWindowStateClearWindow s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (nullPtr :: Ptr Window)--data EventWindowStateWindowFieldInfo-instance AttrInfo EventWindowStateWindowFieldInfo where-    type AttrAllowedOps EventWindowStateWindowFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventWindowStateWindowFieldInfo = (~) (Ptr Window)-    type AttrBaseTypeConstraint EventWindowStateWindowFieldInfo = (~) EventWindowState-    type AttrGetType EventWindowStateWindowFieldInfo = Maybe Window-    type AttrLabel EventWindowStateWindowFieldInfo = "window"-    attrGet _ = eventWindowStateReadWindow-    attrSet _ = eventWindowStateWriteWindow-    attrConstruct = undefined-    attrClear _ = eventWindowStateClearWindow--eventWindowStateWindow :: AttrLabelProxy "window"-eventWindowStateWindow = AttrLabelProxy---eventWindowStateReadSendEvent :: MonadIO m => EventWindowState -> m Int8-eventWindowStateReadSendEvent s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventWindowStateWriteSendEvent :: MonadIO m => EventWindowState -> Int8 -> m ()-eventWindowStateWriteSendEvent s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int8)--data EventWindowStateSendEventFieldInfo-instance AttrInfo EventWindowStateSendEventFieldInfo where-    type AttrAllowedOps EventWindowStateSendEventFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventWindowStateSendEventFieldInfo = (~) Int8-    type AttrBaseTypeConstraint EventWindowStateSendEventFieldInfo = (~) EventWindowState-    type AttrGetType EventWindowStateSendEventFieldInfo = Int8-    type AttrLabel EventWindowStateSendEventFieldInfo = "send_event"-    attrGet _ = eventWindowStateReadSendEvent-    attrSet _ = eventWindowStateWriteSendEvent-    attrConstruct = undefined-    attrClear _ = undefined--eventWindowStateSendEvent :: AttrLabelProxy "sendEvent"-eventWindowStateSendEvent = AttrLabelProxy---eventWindowStateReadChangedMask :: MonadIO m => EventWindowState -> m [WindowState]-eventWindowStateReadChangedMask s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventWindowStateWriteChangedMask :: MonadIO m => EventWindowState -> [WindowState] -> m ()-eventWindowStateWriteChangedMask s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 20) (val' :: CUInt)--data EventWindowStateChangedMaskFieldInfo-instance AttrInfo EventWindowStateChangedMaskFieldInfo where-    type AttrAllowedOps EventWindowStateChangedMaskFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventWindowStateChangedMaskFieldInfo = (~) [WindowState]-    type AttrBaseTypeConstraint EventWindowStateChangedMaskFieldInfo = (~) EventWindowState-    type AttrGetType EventWindowStateChangedMaskFieldInfo = [WindowState]-    type AttrLabel EventWindowStateChangedMaskFieldInfo = "changed_mask"-    attrGet _ = eventWindowStateReadChangedMask-    attrSet _ = eventWindowStateWriteChangedMask-    attrConstruct = undefined-    attrClear _ = undefined--eventWindowStateChangedMask :: AttrLabelProxy "changedMask"-eventWindowStateChangedMask = AttrLabelProxy---eventWindowStateReadNewWindowState :: MonadIO m => EventWindowState -> m [WindowState]-eventWindowStateReadNewWindowState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventWindowStateWriteNewWindowState :: MonadIO m => EventWindowState -> [WindowState] -> m ()-eventWindowStateWriteNewWindowState s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = gflagsToWord val-    poke (ptr `plusPtr` 24) (val' :: CUInt)--data EventWindowStateNewWindowStateFieldInfo-instance AttrInfo EventWindowStateNewWindowStateFieldInfo where-    type AttrAllowedOps EventWindowStateNewWindowStateFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventWindowStateNewWindowStateFieldInfo = (~) [WindowState]-    type AttrBaseTypeConstraint EventWindowStateNewWindowStateFieldInfo = (~) EventWindowState-    type AttrGetType EventWindowStateNewWindowStateFieldInfo = [WindowState]-    type AttrLabel EventWindowStateNewWindowStateFieldInfo = "new_window_state"-    attrGet _ = eventWindowStateReadNewWindowState-    attrSet _ = eventWindowStateWriteNewWindowState-    attrConstruct = undefined-    attrClear _ = undefined--eventWindowStateNewWindowState :: AttrLabelProxy "newWindowState"-eventWindowStateNewWindowState = AttrLabelProxy----type instance AttributeList EventWindowState = EventWindowStateAttributeList-type EventWindowStateAttributeList = ('[ '("type", EventWindowStateTypeFieldInfo), '("window", EventWindowStateWindowFieldInfo), '("sendEvent", EventWindowStateSendEventFieldInfo), '("changedMask", EventWindowStateChangedMaskFieldInfo), '("newWindowState", EventWindowStateNewWindowStateFieldInfo)] :: [(Symbol, *)])--type family ResolveEventWindowStateMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventWindowStateMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventWindowStateMethod t EventWindowState, MethodInfo info EventWindowState p) => IsLabelProxy t (EventWindowState -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventWindowStateMethod t EventWindowState, MethodInfo info EventWindowState p) => IsLabel t (EventWindowState -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/EventWindowState.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventWindowState where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState)-instance WrappedPtr EventWindowState where
− GI/Gdk/Structs/FrameTimings.hs 
@@ -1,331 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #GdkFrameTimings object holds timing information for a single frame-of the application’s displays. To retrieve #GdkFrameTimings objects,-use gdk_frame_clock_get_timings() or gdk_frame_clock_get_current_timings().-The information in #GdkFrameTimings is useful for precise synchronization-of video with the event or audio streams, and for measuring-quality metrics for the application’s display, such as latency and jitter.--}--module GI.Gdk.Structs.FrameTimings-    ( ---- * Exported types-    FrameTimings(..)                        ,-    noFrameTimings                          ,--- -- * Methods--- ** frameTimingsGetComplete-    FrameTimingsGetCompleteMethodInfo       ,-    frameTimingsGetComplete                 ,----- ** frameTimingsGetFrameCounter-    FrameTimingsGetFrameCounterMethodInfo   ,-    frameTimingsGetFrameCounter             ,----- ** frameTimingsGetFrameTime-    FrameTimingsGetFrameTimeMethodInfo      ,-    frameTimingsGetFrameTime                ,----- ** frameTimingsGetPredictedPresentationTime-    FrameTimingsGetPredictedPresentationTimeMethodInfo,-    frameTimingsGetPredictedPresentationTime,----- ** frameTimingsGetPresentationTime-    FrameTimingsGetPresentationTimeMethodInfo,-    frameTimingsGetPresentationTime         ,----- ** frameTimingsGetRefreshInterval-    FrameTimingsGetRefreshIntervalMethodInfo,-    frameTimingsGetRefreshInterval          ,----- ** frameTimingsRef-    FrameTimingsRefMethodInfo               ,-    frameTimingsRef                         ,----- ** frameTimingsUnref-    FrameTimingsUnrefMethodInfo             ,-    frameTimingsUnref                       ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings)-foreign import ccall "gdk_frame_timings_get_type" c_gdk_frame_timings_get_type :: -    IO GType--instance BoxedObject FrameTimings where-    boxedType _ = c_gdk_frame_timings_get_type--noFrameTimings :: Maybe FrameTimings-noFrameTimings = Nothing---type instance AttributeList FrameTimings = FrameTimingsAttributeList-type FrameTimingsAttributeList = ('[ ] :: [(Symbol, *)])---- method FrameTimings::get_complete--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_get_complete" gdk_frame_timings_get_complete :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO CInt---frameTimingsGetComplete ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m Bool                               -- result-frameTimingsGetComplete _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_complete _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data FrameTimingsGetCompleteMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo FrameTimingsGetCompleteMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsGetComplete---- method FrameTimings::get_frame_counter--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_get_frame_counter" gdk_frame_timings_get_frame_counter :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO Int64---frameTimingsGetFrameCounter ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m Int64                              -- result-frameTimingsGetFrameCounter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_frame_counter _obj'-    touchManagedPtr _obj-    return result--data FrameTimingsGetFrameCounterMethodInfo-instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetFrameCounterMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsGetFrameCounter---- method FrameTimings::get_frame_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_get_frame_time" gdk_frame_timings_get_frame_time :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO Int64---frameTimingsGetFrameTime ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m Int64                              -- result-frameTimingsGetFrameTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_frame_time _obj'-    touchManagedPtr _obj-    return result--data FrameTimingsGetFrameTimeMethodInfo-instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetFrameTimeMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsGetFrameTime---- method FrameTimings::get_predicted_presentation_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_get_predicted_presentation_time" gdk_frame_timings_get_predicted_presentation_time :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO Int64---frameTimingsGetPredictedPresentationTime ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m Int64                              -- result-frameTimingsGetPredictedPresentationTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_predicted_presentation_time _obj'-    touchManagedPtr _obj-    return result--data FrameTimingsGetPredictedPresentationTimeMethodInfo-instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetPredictedPresentationTimeMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsGetPredictedPresentationTime---- method FrameTimings::get_presentation_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_get_presentation_time" gdk_frame_timings_get_presentation_time :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO Int64---frameTimingsGetPresentationTime ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m Int64                              -- result-frameTimingsGetPresentationTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_presentation_time _obj'-    touchManagedPtr _obj-    return result--data FrameTimingsGetPresentationTimeMethodInfo-instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetPresentationTimeMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsGetPresentationTime---- method FrameTimings::get_refresh_interval--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TInt64)--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_get_refresh_interval" gdk_frame_timings_get_refresh_interval :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO Int64---frameTimingsGetRefreshInterval ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m Int64                              -- result-frameTimingsGetRefreshInterval _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_refresh_interval _obj'-    touchManagedPtr _obj-    return result--data FrameTimingsGetRefreshIntervalMethodInfo-instance (signature ~ (m Int64), MonadIO m) => MethodInfo FrameTimingsGetRefreshIntervalMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsGetRefreshInterval---- method FrameTimings::ref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "FrameTimings")--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_ref" gdk_frame_timings_ref :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO (Ptr FrameTimings)---frameTimingsRef ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m FrameTimings                       -- result-frameTimingsRef _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_ref _obj'-    checkUnexpectedReturnNULL "gdk_frame_timings_ref" result-    result' <- (wrapBoxed FrameTimings) result-    touchManagedPtr _obj-    return result'--data FrameTimingsRefMethodInfo-instance (signature ~ (m FrameTimings), MonadIO m) => MethodInfo FrameTimingsRefMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsRef---- method FrameTimings::unref--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_frame_timings_unref" gdk_frame_timings_unref :: -    Ptr FrameTimings ->                     -- _obj : TInterface "Gdk" "FrameTimings"-    IO ()---frameTimingsUnref ::-    (MonadIO m) =>-    FrameTimings                            -- _obj-    -> m ()                                 -- result-frameTimingsUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_frame_timings_unref _obj'-    touchManagedPtr _obj-    return ()--data FrameTimingsUnrefMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo FrameTimingsUnrefMethodInfo FrameTimings signature where-    overloadedMethod _ = frameTimingsUnref--type family ResolveFrameTimingsMethod (t :: Symbol) (o :: *) :: * where-    ResolveFrameTimingsMethod "ref" o = FrameTimingsRefMethodInfo-    ResolveFrameTimingsMethod "unref" o = FrameTimingsUnrefMethodInfo-    ResolveFrameTimingsMethod "getComplete" o = FrameTimingsGetCompleteMethodInfo-    ResolveFrameTimingsMethod "getFrameCounter" o = FrameTimingsGetFrameCounterMethodInfo-    ResolveFrameTimingsMethod "getFrameTime" o = FrameTimingsGetFrameTimeMethodInfo-    ResolveFrameTimingsMethod "getPredictedPresentationTime" o = FrameTimingsGetPredictedPresentationTimeMethodInfo-    ResolveFrameTimingsMethod "getPresentationTime" o = FrameTimingsGetPresentationTimeMethodInfo-    ResolveFrameTimingsMethod "getRefreshInterval" o = FrameTimingsGetRefreshIntervalMethodInfo-    ResolveFrameTimingsMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveFrameTimingsMethod t FrameTimings, MethodInfo info FrameTimings p) => IsLabelProxy t (FrameTimings -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveFrameTimingsMethod t FrameTimings, MethodInfo info FrameTimings p) => IsLabel t (FrameTimings -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/FrameTimings.hs-boot 
@@ -1,19 +0,0 @@-module GI.Gdk.Structs.FrameTimings where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings)-instance BoxedObject FrameTimings where-data FrameTimingsGetCompleteMethodInfo-data FrameTimingsGetFrameCounterMethodInfo-data FrameTimingsGetFrameTimeMethodInfo-data FrameTimingsGetPredictedPresentationTimeMethodInfo-data FrameTimingsGetPresentationTimeMethodInfo-data FrameTimingsGetRefreshIntervalMethodInfo-data FrameTimingsRefMethodInfo-data FrameTimingsUnrefMethodInfo
− GI/Gdk/Structs/Geometry.hs 
@@ -1,471 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--The #GdkGeometry struct gives the window manager information about-a window’s geometry constraints. Normally you would set these on-the GTK+ level using gtk_window_set_geometry_hints(). #GtkWindow-then sets the hints on the #GdkWindow it creates.--gdk_window_set_geometry_hints() expects the hints to be fully valid already-and simply passes them to the window manager; in contrast,-gtk_window_set_geometry_hints() performs some interpretation. For example,-#GtkWindow will apply the hints to the geometry widget instead of the-toplevel window, if you set a geometry widget. Also, the-@min_width/@min_height/@max_width/@max_height fields may be set to -1, and-#GtkWindow will substitute the size request of the window or geometry widget.-If the minimum size hint is not provided, #GtkWindow will use its requisition-as the minimum size. If the minimum size is provided and a geometry widget is-set, #GtkWindow will take the minimum size as the minimum size of the-geometry widget rather than the entire window. The base size is treated-similarly.--The canonical use-case for gtk_window_set_geometry_hints() is to get a-terminal widget to resize properly. Here, the terminal text area should be-the geometry widget; #GtkWindow will then automatically set the base size to-the size of other widgets in the terminal window, such as the menubar and-scrollbar. Then, the @width_inc and @height_inc fields should be set to the-size of one character in the terminal. Finally, the base size should be set-to the size of one character. The net effect is that the minimum size of the-terminal will have a 1x1 character terminal area, and only terminal sizes on-the “character grid” will be allowed.--Here’s an example of how the terminal example would be implemented, assuming-a terminal area widget called “terminal” and a toplevel window “toplevel”:--|[<!-- language="C" -->-	GdkGeometry hints;--	hints.base_width = terminal->char_width;-        hints.base_height = terminal->char_height;-        hints.min_width = terminal->char_width;-        hints.min_height = terminal->char_height;-        hints.width_inc = terminal->char_width;-        hints.height_inc = terminal->char_height;-- gtk_window_set_geometry_hints (GTK_WINDOW (toplevel),-                                GTK_WIDGET (terminal),-                                &hints,-                                GDK_HINT_RESIZE_INC |-                                GDK_HINT_MIN_SIZE |-                                GDK_HINT_BASE_SIZE);-]|--The other useful fields are the @min_aspect and @max_aspect fields; these-contain a width/height ratio as a floating point number. If a geometry widget-is set, the aspect applies to the geometry widget rather than the entire-window. The most common use of these hints is probably to set @min_aspect and-@max_aspect to the same value, thus forcing the window to keep a constant-aspect ratio.--}--module GI.Gdk.Structs.Geometry-    ( ---- * Exported types-    Geometry(..)                            ,-    newZeroGeometry                         ,-    noGeometry                              ,--- -- * Properties--- ** BaseHeight-    geometryBaseHeight                      ,-    geometryReadBaseHeight                  ,-    geometryWriteBaseHeight                 ,----- ** BaseWidth-    geometryBaseWidth                       ,-    geometryReadBaseWidth                   ,-    geometryWriteBaseWidth                  ,----- ** HeightInc-    geometryHeightInc                       ,-    geometryReadHeightInc                   ,-    geometryWriteHeightInc                  ,----- ** MaxAspect-    geometryMaxAspect                       ,-    geometryReadMaxAspect                   ,-    geometryWriteMaxAspect                  ,----- ** MaxHeight-    geometryMaxHeight                       ,-    geometryReadMaxHeight                   ,-    geometryWriteMaxHeight                  ,----- ** MaxWidth-    geometryMaxWidth                        ,-    geometryReadMaxWidth                    ,-    geometryWriteMaxWidth                   ,----- ** MinAspect-    geometryMinAspect                       ,-    geometryReadMinAspect                   ,-    geometryWriteMinAspect                  ,----- ** MinHeight-    geometryMinHeight                       ,-    geometryReadMinHeight                   ,-    geometryWriteMinHeight                  ,----- ** MinWidth-    geometryMinWidth                        ,-    geometryReadMinWidth                    ,-    geometryWriteMinWidth                   ,----- ** WidthInc-    geometryReadWidthInc                    ,-    geometryWidthInc                        ,-    geometryWriteWidthInc                   ,----- ** WinGravity-    geometryReadWinGravity                  ,-    geometryWinGravity                      ,-    geometryWriteWinGravity                 ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype Geometry = Geometry (ForeignPtr Geometry)-instance WrappedPtr Geometry where-    wrappedPtrCalloc = callocBytes 56-    wrappedPtrCopy = copyPtr 56-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `Geometry` struct initialized to zero.-newZeroGeometry :: MonadIO m => m Geometry-newZeroGeometry = liftIO $ wrappedPtrCalloc >>= wrapPtr Geometry--instance tag ~ 'AttrSet => Constructible Geometry tag where-    new _ attrs = do-        o <- newZeroGeometry-        GI.Attributes.set o attrs-        return o---noGeometry :: Maybe Geometry-noGeometry = Nothing--geometryReadMinWidth :: MonadIO m => Geometry -> m Int32-geometryReadMinWidth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--geometryWriteMinWidth :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteMinWidth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--data GeometryMinWidthFieldInfo-instance AttrInfo GeometryMinWidthFieldInfo where-    type AttrAllowedOps GeometryMinWidthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryMinWidthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryMinWidthFieldInfo = (~) Geometry-    type AttrGetType GeometryMinWidthFieldInfo = Int32-    type AttrLabel GeometryMinWidthFieldInfo = "min_width"-    attrGet _ = geometryReadMinWidth-    attrSet _ = geometryWriteMinWidth-    attrConstruct = undefined-    attrClear _ = undefined--geometryMinWidth :: AttrLabelProxy "minWidth"-geometryMinWidth = AttrLabelProxy---geometryReadMinHeight :: MonadIO m => Geometry -> m Int32-geometryReadMinHeight s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--geometryWriteMinHeight :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteMinHeight s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Int32)--data GeometryMinHeightFieldInfo-instance AttrInfo GeometryMinHeightFieldInfo where-    type AttrAllowedOps GeometryMinHeightFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryMinHeightFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryMinHeightFieldInfo = (~) Geometry-    type AttrGetType GeometryMinHeightFieldInfo = Int32-    type AttrLabel GeometryMinHeightFieldInfo = "min_height"-    attrGet _ = geometryReadMinHeight-    attrSet _ = geometryWriteMinHeight-    attrConstruct = undefined-    attrClear _ = undefined--geometryMinHeight :: AttrLabelProxy "minHeight"-geometryMinHeight = AttrLabelProxy---geometryReadMaxWidth :: MonadIO m => Geometry -> m Int32-geometryReadMaxWidth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--geometryWriteMaxWidth :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteMaxWidth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--data GeometryMaxWidthFieldInfo-instance AttrInfo GeometryMaxWidthFieldInfo where-    type AttrAllowedOps GeometryMaxWidthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryMaxWidthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryMaxWidthFieldInfo = (~) Geometry-    type AttrGetType GeometryMaxWidthFieldInfo = Int32-    type AttrLabel GeometryMaxWidthFieldInfo = "max_width"-    attrGet _ = geometryReadMaxWidth-    attrSet _ = geometryWriteMaxWidth-    attrConstruct = undefined-    attrClear _ = undefined--geometryMaxWidth :: AttrLabelProxy "maxWidth"-geometryMaxWidth = AttrLabelProxy---geometryReadMaxHeight :: MonadIO m => Geometry -> m Int32-geometryReadMaxHeight s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--geometryWriteMaxHeight :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteMaxHeight s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 12) (val :: Int32)--data GeometryMaxHeightFieldInfo-instance AttrInfo GeometryMaxHeightFieldInfo where-    type AttrAllowedOps GeometryMaxHeightFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryMaxHeightFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryMaxHeightFieldInfo = (~) Geometry-    type AttrGetType GeometryMaxHeightFieldInfo = Int32-    type AttrLabel GeometryMaxHeightFieldInfo = "max_height"-    attrGet _ = geometryReadMaxHeight-    attrSet _ = geometryWriteMaxHeight-    attrConstruct = undefined-    attrClear _ = undefined--geometryMaxHeight :: AttrLabelProxy "maxHeight"-geometryMaxHeight = AttrLabelProxy---geometryReadBaseWidth :: MonadIO m => Geometry -> m Int32-geometryReadBaseWidth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--geometryWriteBaseWidth :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteBaseWidth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int32)--data GeometryBaseWidthFieldInfo-instance AttrInfo GeometryBaseWidthFieldInfo where-    type AttrAllowedOps GeometryBaseWidthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryBaseWidthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryBaseWidthFieldInfo = (~) Geometry-    type AttrGetType GeometryBaseWidthFieldInfo = Int32-    type AttrLabel GeometryBaseWidthFieldInfo = "base_width"-    attrGet _ = geometryReadBaseWidth-    attrSet _ = geometryWriteBaseWidth-    attrConstruct = undefined-    attrClear _ = undefined--geometryBaseWidth :: AttrLabelProxy "baseWidth"-geometryBaseWidth = AttrLabelProxy---geometryReadBaseHeight :: MonadIO m => Geometry -> m Int32-geometryReadBaseHeight s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--geometryWriteBaseHeight :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteBaseHeight s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Int32)--data GeometryBaseHeightFieldInfo-instance AttrInfo GeometryBaseHeightFieldInfo where-    type AttrAllowedOps GeometryBaseHeightFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryBaseHeightFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryBaseHeightFieldInfo = (~) Geometry-    type AttrGetType GeometryBaseHeightFieldInfo = Int32-    type AttrLabel GeometryBaseHeightFieldInfo = "base_height"-    attrGet _ = geometryReadBaseHeight-    attrSet _ = geometryWriteBaseHeight-    attrConstruct = undefined-    attrClear _ = undefined--geometryBaseHeight :: AttrLabelProxy "baseHeight"-geometryBaseHeight = AttrLabelProxy---geometryReadWidthInc :: MonadIO m => Geometry -> m Int32-geometryReadWidthInc s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--geometryWriteWidthInc :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteWidthInc s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Int32)--data GeometryWidthIncFieldInfo-instance AttrInfo GeometryWidthIncFieldInfo where-    type AttrAllowedOps GeometryWidthIncFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryWidthIncFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryWidthIncFieldInfo = (~) Geometry-    type AttrGetType GeometryWidthIncFieldInfo = Int32-    type AttrLabel GeometryWidthIncFieldInfo = "width_inc"-    attrGet _ = geometryReadWidthInc-    attrSet _ = geometryWriteWidthInc-    attrConstruct = undefined-    attrClear _ = undefined--geometryWidthInc :: AttrLabelProxy "widthInc"-geometryWidthInc = AttrLabelProxy---geometryReadHeightInc :: MonadIO m => Geometry -> m Int32-geometryReadHeightInc s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--geometryWriteHeightInc :: MonadIO m => Geometry -> Int32 -> m ()-geometryWriteHeightInc s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 28) (val :: Int32)--data GeometryHeightIncFieldInfo-instance AttrInfo GeometryHeightIncFieldInfo where-    type AttrAllowedOps GeometryHeightIncFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryHeightIncFieldInfo = (~) Int32-    type AttrBaseTypeConstraint GeometryHeightIncFieldInfo = (~) Geometry-    type AttrGetType GeometryHeightIncFieldInfo = Int32-    type AttrLabel GeometryHeightIncFieldInfo = "height_inc"-    attrGet _ = geometryReadHeightInc-    attrSet _ = geometryWriteHeightInc-    attrConstruct = undefined-    attrClear _ = undefined--geometryHeightInc :: AttrLabelProxy "heightInc"-geometryHeightInc = AttrLabelProxy---geometryReadMinAspect :: MonadIO m => Geometry -> m Double-geometryReadMinAspect s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--geometryWriteMinAspect :: MonadIO m => Geometry -> Double -> m ()-geometryWriteMinAspect s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 32) (val' :: CDouble)--data GeometryMinAspectFieldInfo-instance AttrInfo GeometryMinAspectFieldInfo where-    type AttrAllowedOps GeometryMinAspectFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryMinAspectFieldInfo = (~) Double-    type AttrBaseTypeConstraint GeometryMinAspectFieldInfo = (~) Geometry-    type AttrGetType GeometryMinAspectFieldInfo = Double-    type AttrLabel GeometryMinAspectFieldInfo = "min_aspect"-    attrGet _ = geometryReadMinAspect-    attrSet _ = geometryWriteMinAspect-    attrConstruct = undefined-    attrClear _ = undefined--geometryMinAspect :: AttrLabelProxy "minAspect"-geometryMinAspect = AttrLabelProxy---geometryReadMaxAspect :: MonadIO m => Geometry -> m Double-geometryReadMaxAspect s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--geometryWriteMaxAspect :: MonadIO m => Geometry -> Double -> m ()-geometryWriteMaxAspect s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 40) (val' :: CDouble)--data GeometryMaxAspectFieldInfo-instance AttrInfo GeometryMaxAspectFieldInfo where-    type AttrAllowedOps GeometryMaxAspectFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryMaxAspectFieldInfo = (~) Double-    type AttrBaseTypeConstraint GeometryMaxAspectFieldInfo = (~) Geometry-    type AttrGetType GeometryMaxAspectFieldInfo = Double-    type AttrLabel GeometryMaxAspectFieldInfo = "max_aspect"-    attrGet _ = geometryReadMaxAspect-    attrSet _ = geometryWriteMaxAspect-    attrConstruct = undefined-    attrClear _ = undefined--geometryMaxAspect :: AttrLabelProxy "maxAspect"-geometryMaxAspect = AttrLabelProxy---geometryReadWinGravity :: MonadIO m => Geometry -> m Gravity-geometryReadWinGravity s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--geometryWriteWinGravity :: MonadIO m => Geometry -> Gravity -> m ()-geometryWriteWinGravity s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 48) (val' :: CUInt)--data GeometryWinGravityFieldInfo-instance AttrInfo GeometryWinGravityFieldInfo where-    type AttrAllowedOps GeometryWinGravityFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint GeometryWinGravityFieldInfo = (~) Gravity-    type AttrBaseTypeConstraint GeometryWinGravityFieldInfo = (~) Geometry-    type AttrGetType GeometryWinGravityFieldInfo = Gravity-    type AttrLabel GeometryWinGravityFieldInfo = "win_gravity"-    attrGet _ = geometryReadWinGravity-    attrSet _ = geometryWriteWinGravity-    attrConstruct = undefined-    attrClear _ = undefined--geometryWinGravity :: AttrLabelProxy "winGravity"-geometryWinGravity = AttrLabelProxy----type instance AttributeList Geometry = GeometryAttributeList-type GeometryAttributeList = ('[ '("minWidth", GeometryMinWidthFieldInfo), '("minHeight", GeometryMinHeightFieldInfo), '("maxWidth", GeometryMaxWidthFieldInfo), '("maxHeight", GeometryMaxHeightFieldInfo), '("baseWidth", GeometryBaseWidthFieldInfo), '("baseHeight", GeometryBaseHeightFieldInfo), '("widthInc", GeometryWidthIncFieldInfo), '("heightInc", GeometryHeightIncFieldInfo), '("minAspect", GeometryMinAspectFieldInfo), '("maxAspect", GeometryMaxAspectFieldInfo), '("winGravity", GeometryWinGravityFieldInfo)] :: [(Symbol, *)])--type family ResolveGeometryMethod (t :: Symbol) (o :: *) :: * where-    ResolveGeometryMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveGeometryMethod t Geometry, MethodInfo info Geometry p) => IsLabelProxy t (Geometry -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveGeometryMethod t Geometry, MethodInfo info Geometry p) => IsLabel t (Geometry -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/Geometry.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.Geometry where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Geometry = Geometry (ForeignPtr Geometry)-instance WrappedPtr Geometry where
− GI/Gdk/Structs/KeymapKey.hs 
@@ -1,163 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #GdkKeymapKey is a hardware key that can be mapped to a keyval.--}--module GI.Gdk.Structs.KeymapKey-    ( ---- * Exported types-    KeymapKey(..)                           ,-    newZeroKeymapKey                        ,-    noKeymapKey                             ,--- -- * Properties--- ** Group-    keymapKeyGroup                          ,-    keymapKeyReadGroup                      ,-    keymapKeyWriteGroup                     ,----- ** Keycode-    keymapKeyKeycode                        ,-    keymapKeyReadKeycode                    ,-    keymapKeyWriteKeycode                   ,----- ** Level-    keymapKeyLevel                          ,-    keymapKeyReadLevel                      ,-    keymapKeyWriteLevel                     ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey)-instance WrappedPtr KeymapKey where-    wrappedPtrCalloc = callocBytes 12-    wrappedPtrCopy = copyPtr 12-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `KeymapKey` struct initialized to zero.-newZeroKeymapKey :: MonadIO m => m KeymapKey-newZeroKeymapKey = liftIO $ wrappedPtrCalloc >>= wrapPtr KeymapKey--instance tag ~ 'AttrSet => Constructible KeymapKey tag where-    new _ attrs = do-        o <- newZeroKeymapKey-        GI.Attributes.set o attrs-        return o---noKeymapKey :: Maybe KeymapKey-noKeymapKey = Nothing--keymapKeyReadKeycode :: MonadIO m => KeymapKey -> m Word32-keymapKeyReadKeycode s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--keymapKeyWriteKeycode :: MonadIO m => KeymapKey -> Word32 -> m ()-keymapKeyWriteKeycode s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Word32)--data KeymapKeyKeycodeFieldInfo-instance AttrInfo KeymapKeyKeycodeFieldInfo where-    type AttrAllowedOps KeymapKeyKeycodeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint KeymapKeyKeycodeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint KeymapKeyKeycodeFieldInfo = (~) KeymapKey-    type AttrGetType KeymapKeyKeycodeFieldInfo = Word32-    type AttrLabel KeymapKeyKeycodeFieldInfo = "keycode"-    attrGet _ = keymapKeyReadKeycode-    attrSet _ = keymapKeyWriteKeycode-    attrConstruct = undefined-    attrClear _ = undefined--keymapKeyKeycode :: AttrLabelProxy "keycode"-keymapKeyKeycode = AttrLabelProxy---keymapKeyReadGroup :: MonadIO m => KeymapKey -> m Int32-keymapKeyReadGroup s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--keymapKeyWriteGroup :: MonadIO m => KeymapKey -> Int32 -> m ()-keymapKeyWriteGroup s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Int32)--data KeymapKeyGroupFieldInfo-instance AttrInfo KeymapKeyGroupFieldInfo where-    type AttrAllowedOps KeymapKeyGroupFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint KeymapKeyGroupFieldInfo = (~) Int32-    type AttrBaseTypeConstraint KeymapKeyGroupFieldInfo = (~) KeymapKey-    type AttrGetType KeymapKeyGroupFieldInfo = Int32-    type AttrLabel KeymapKeyGroupFieldInfo = "group"-    attrGet _ = keymapKeyReadGroup-    attrSet _ = keymapKeyWriteGroup-    attrConstruct = undefined-    attrClear _ = undefined--keymapKeyGroup :: AttrLabelProxy "group"-keymapKeyGroup = AttrLabelProxy---keymapKeyReadLevel :: MonadIO m => KeymapKey -> m Int32-keymapKeyReadLevel s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--keymapKeyWriteLevel :: MonadIO m => KeymapKey -> Int32 -> m ()-keymapKeyWriteLevel s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--data KeymapKeyLevelFieldInfo-instance AttrInfo KeymapKeyLevelFieldInfo where-    type AttrAllowedOps KeymapKeyLevelFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint KeymapKeyLevelFieldInfo = (~) Int32-    type AttrBaseTypeConstraint KeymapKeyLevelFieldInfo = (~) KeymapKey-    type AttrGetType KeymapKeyLevelFieldInfo = Int32-    type AttrLabel KeymapKeyLevelFieldInfo = "level"-    attrGet _ = keymapKeyReadLevel-    attrSet _ = keymapKeyWriteLevel-    attrConstruct = undefined-    attrClear _ = undefined--keymapKeyLevel :: AttrLabelProxy "level"-keymapKeyLevel = AttrLabelProxy----type instance AttributeList KeymapKey = KeymapKeyAttributeList-type KeymapKeyAttributeList = ('[ '("keycode", KeymapKeyKeycodeFieldInfo), '("group", KeymapKeyGroupFieldInfo), '("level", KeymapKeyLevelFieldInfo)] :: [(Symbol, *)])--type family ResolveKeymapKeyMethod (t :: Symbol) (o :: *) :: * where-    ResolveKeymapKeyMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveKeymapKeyMethod t KeymapKey, MethodInfo info KeymapKey p) => IsLabelProxy t (KeymapKey -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveKeymapKeyMethod t KeymapKey, MethodInfo info KeymapKey p) => IsLabel t (KeymapKey -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/KeymapKey.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.KeymapKey where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey)-instance WrappedPtr KeymapKey where
− GI/Gdk/Structs/Point.hs 
@@ -1,132 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Defines the x and y coordinates of a point.--}--module GI.Gdk.Structs.Point-    ( ---- * Exported types-    Point(..)                               ,-    newZeroPoint                            ,-    noPoint                                 ,--- -- * Properties--- ** X-    pointReadX                              ,-    pointWriteX                             ,-    pointX                                  ,----- ** Y-    pointReadY                              ,-    pointWriteY                             ,-    pointY                                  ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype Point = Point (ForeignPtr Point)-instance WrappedPtr Point where-    wrappedPtrCalloc = callocBytes 8-    wrappedPtrCopy = copyPtr 8-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `Point` struct initialized to zero.-newZeroPoint :: MonadIO m => m Point-newZeroPoint = liftIO $ wrappedPtrCalloc >>= wrapPtr Point--instance tag ~ 'AttrSet => Constructible Point tag where-    new _ attrs = do-        o <- newZeroPoint-        GI.Attributes.set o attrs-        return o---noPoint :: Maybe Point-noPoint = Nothing--pointReadX :: MonadIO m => Point -> m Int32-pointReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--pointWriteX :: MonadIO m => Point -> Int32 -> m ()-pointWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--data PointXFieldInfo-instance AttrInfo PointXFieldInfo where-    type AttrAllowedOps PointXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PointXFieldInfo = (~) Int32-    type AttrBaseTypeConstraint PointXFieldInfo = (~) Point-    type AttrGetType PointXFieldInfo = Int32-    type AttrLabel PointXFieldInfo = "x"-    attrGet _ = pointReadX-    attrSet _ = pointWriteX-    attrConstruct = undefined-    attrClear _ = undefined--pointX :: AttrLabelProxy "x"-pointX = AttrLabelProxy---pointReadY :: MonadIO m => Point -> m Int32-pointReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--pointWriteY :: MonadIO m => Point -> Int32 -> m ()-pointWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Int32)--data PointYFieldInfo-instance AttrInfo PointYFieldInfo where-    type AttrAllowedOps PointYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint PointYFieldInfo = (~) Int32-    type AttrBaseTypeConstraint PointYFieldInfo = (~) Point-    type AttrGetType PointYFieldInfo = Int32-    type AttrLabel PointYFieldInfo = "y"-    attrGet _ = pointReadY-    attrSet _ = pointWriteY-    attrConstruct = undefined-    attrClear _ = undefined--pointY :: AttrLabelProxy "y"-pointY = AttrLabelProxy----type instance AttributeList Point = PointAttributeList-type PointAttributeList = ('[ '("x", PointXFieldInfo), '("y", PointYFieldInfo)] :: [(Symbol, *)])--type family ResolvePointMethod (t :: Symbol) (o :: *) :: * where-    ResolvePointMethod l o = MethodResolutionFailed l o--instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabelProxy t (Point -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolvePointMethod t Point, MethodInfo info Point p) => IsLabel t (Point -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/Point.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.Point where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Point = Point (ForeignPtr Point)-instance WrappedPtr Point where
− GI/Gdk/Structs/RGBA.hs 
@@ -1,420 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #GdkRGBA is used to represent a (possibly translucent)-color, in a way that is compatible with cairos notion of color.--}--module GI.Gdk.Structs.RGBA-    ( ---- * Exported types-    RGBA(..)                                ,-    newZeroRGBA                             ,-    noRGBA                                  ,--- -- * Methods--- ** rGBACopy-    RGBACopyMethodInfo                      ,-    rGBACopy                                ,----- ** rGBAEqual-    RGBAEqualMethodInfo                     ,-    rGBAEqual                               ,----- ** rGBAFree-    RGBAFreeMethodInfo                      ,-    rGBAFree                                ,----- ** rGBAHash-    RGBAHashMethodInfo                      ,-    rGBAHash                                ,----- ** rGBAParse-    RGBAParseMethodInfo                     ,-    rGBAParse                               ,----- ** rGBAToString-    RGBAToStringMethodInfo                  ,-    rGBAToString                            ,----- -- * Properties--- ** Alpha-    rGBAAlpha                               ,-    rGBAReadAlpha                           ,-    rGBAWriteAlpha                          ,----- ** Blue-    rGBABlue                                ,-    rGBAReadBlue                            ,-    rGBAWriteBlue                           ,----- ** Green-    rGBAGreen                               ,-    rGBAReadGreen                           ,-    rGBAWriteGreen                          ,----- ** Red-    rGBAReadRed                             ,-    rGBARed                                 ,-    rGBAWriteRed                            ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype RGBA = RGBA (ForeignPtr RGBA)-foreign import ccall "gdk_rgba_get_type" c_gdk_rgba_get_type :: -    IO GType--instance BoxedObject RGBA where-    boxedType _ = c_gdk_rgba_get_type---- | Construct a `RGBA` struct initialized to zero.-newZeroRGBA :: MonadIO m => m RGBA-newZeroRGBA = liftIO $ callocBoxedBytes 32 >>= wrapBoxed RGBA--instance tag ~ 'AttrSet => Constructible RGBA tag where-    new _ attrs = do-        o <- newZeroRGBA-        GI.Attributes.set o attrs-        return o---noRGBA :: Maybe RGBA-noRGBA = Nothing--rGBAReadRed :: MonadIO m => RGBA -> m Double-rGBAReadRed s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CDouble-    let val' = realToFrac val-    return val'--rGBAWriteRed :: MonadIO m => RGBA -> Double -> m ()-rGBAWriteRed s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 0) (val' :: CDouble)--data RGBARedFieldInfo-instance AttrInfo RGBARedFieldInfo where-    type AttrAllowedOps RGBARedFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RGBARedFieldInfo = (~) Double-    type AttrBaseTypeConstraint RGBARedFieldInfo = (~) RGBA-    type AttrGetType RGBARedFieldInfo = Double-    type AttrLabel RGBARedFieldInfo = "red"-    attrGet _ = rGBAReadRed-    attrSet _ = rGBAWriteRed-    attrConstruct = undefined-    attrClear _ = undefined--rGBARed :: AttrLabelProxy "red"-rGBARed = AttrLabelProxy---rGBAReadGreen :: MonadIO m => RGBA -> m Double-rGBAReadGreen s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--rGBAWriteGreen :: MonadIO m => RGBA -> Double -> m ()-rGBAWriteGreen s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 8) (val' :: CDouble)--data RGBAGreenFieldInfo-instance AttrInfo RGBAGreenFieldInfo where-    type AttrAllowedOps RGBAGreenFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RGBAGreenFieldInfo = (~) Double-    type AttrBaseTypeConstraint RGBAGreenFieldInfo = (~) RGBA-    type AttrGetType RGBAGreenFieldInfo = Double-    type AttrLabel RGBAGreenFieldInfo = "green"-    attrGet _ = rGBAReadGreen-    attrSet _ = rGBAWriteGreen-    attrConstruct = undefined-    attrClear _ = undefined--rGBAGreen :: AttrLabelProxy "green"-rGBAGreen = AttrLabelProxy---rGBAReadBlue :: MonadIO m => RGBA -> m Double-rGBAReadBlue s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CDouble-    let val' = realToFrac val-    return val'--rGBAWriteBlue :: MonadIO m => RGBA -> Double -> m ()-rGBAWriteBlue s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 16) (val' :: CDouble)--data RGBABlueFieldInfo-instance AttrInfo RGBABlueFieldInfo where-    type AttrAllowedOps RGBABlueFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RGBABlueFieldInfo = (~) Double-    type AttrBaseTypeConstraint RGBABlueFieldInfo = (~) RGBA-    type AttrGetType RGBABlueFieldInfo = Double-    type AttrLabel RGBABlueFieldInfo = "blue"-    attrGet _ = rGBAReadBlue-    attrSet _ = rGBAWriteBlue-    attrConstruct = undefined-    attrClear _ = undefined--rGBABlue :: AttrLabelProxy "blue"-rGBABlue = AttrLabelProxy---rGBAReadAlpha :: MonadIO m => RGBA -> m Double-rGBAReadAlpha s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--rGBAWriteAlpha :: MonadIO m => RGBA -> Double -> m ()-rGBAWriteAlpha s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = realToFrac val-    poke (ptr `plusPtr` 24) (val' :: CDouble)--data RGBAAlphaFieldInfo-instance AttrInfo RGBAAlphaFieldInfo where-    type AttrAllowedOps RGBAAlphaFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RGBAAlphaFieldInfo = (~) Double-    type AttrBaseTypeConstraint RGBAAlphaFieldInfo = (~) RGBA-    type AttrGetType RGBAAlphaFieldInfo = Double-    type AttrLabel RGBAAlphaFieldInfo = "alpha"-    attrGet _ = rGBAReadAlpha-    attrSet _ = rGBAWriteAlpha-    attrConstruct = undefined-    attrClear _ = undefined--rGBAAlpha :: AttrLabelProxy "alpha"-rGBAAlpha = AttrLabelProxy----type instance AttributeList RGBA = RGBAAttributeList-type RGBAAttributeList = ('[ '("red", RGBARedFieldInfo), '("green", RGBAGreenFieldInfo), '("blue", RGBABlueFieldInfo), '("alpha", RGBAAlphaFieldInfo)] :: [(Symbol, *)])---- method RGBA::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "RGBA")--- throws : False--- Skip return : False--foreign import ccall "gdk_rgba_copy" gdk_rgba_copy :: -    Ptr RGBA ->                             -- _obj : TInterface "Gdk" "RGBA"-    IO (Ptr RGBA)---rGBACopy ::-    (MonadIO m) =>-    RGBA                                    -- _obj-    -> m RGBA                               -- result-rGBACopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_rgba_copy _obj'-    checkUnexpectedReturnNULL "gdk_rgba_copy" result-    result' <- (wrapBoxed RGBA) result-    touchManagedPtr _obj-    return result'--data RGBACopyMethodInfo-instance (signature ~ (m RGBA), MonadIO m) => MethodInfo RGBACopyMethodInfo RGBA signature where-    overloadedMethod _ = rGBACopy---- method RGBA::equal--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_rgba_equal" gdk_rgba_equal :: -    Ptr RGBA ->                             -- _obj : TInterface "Gdk" "RGBA"-    Ptr RGBA ->                             -- p2 : TInterface "Gdk" "RGBA"-    IO CInt---rGBAEqual ::-    (MonadIO m) =>-    RGBA                                    -- _obj-    -> RGBA                                 -- p2-    -> m Bool                               -- result-rGBAEqual _obj p2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let p2' = unsafeManagedPtrGetPtr p2-    result <- gdk_rgba_equal _obj' p2'-    let result' = (/= 0) result-    touchManagedPtr _obj-    touchManagedPtr p2-    return result'--data RGBAEqualMethodInfo-instance (signature ~ (RGBA -> m Bool), MonadIO m) => MethodInfo RGBAEqualMethodInfo RGBA signature where-    overloadedMethod _ = rGBAEqual---- method RGBA::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_rgba_free" gdk_rgba_free :: -    Ptr RGBA ->                             -- _obj : TInterface "Gdk" "RGBA"-    IO ()---rGBAFree ::-    (MonadIO m) =>-    RGBA                                    -- _obj-    -> m ()                                 -- result-rGBAFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_rgba_free _obj'-    touchManagedPtr _obj-    return ()--data RGBAFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo RGBAFreeMethodInfo RGBA signature where-    overloadedMethod _ = rGBAFree---- method RGBA::hash--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt)--- throws : False--- Skip return : False--foreign import ccall "gdk_rgba_hash" gdk_rgba_hash :: -    Ptr RGBA ->                             -- _obj : TInterface "Gdk" "RGBA"-    IO Word32---rGBAHash ::-    (MonadIO m) =>-    RGBA                                    -- _obj-    -> m Word32                             -- result-rGBAHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_rgba_hash _obj'-    touchManagedPtr _obj-    return result--data RGBAHashMethodInfo-instance (signature ~ (m Word32), MonadIO m) => MethodInfo RGBAHashMethodInfo RGBA signature where-    overloadedMethod _ = rGBAHash---- method RGBA::parse--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_rgba_parse" gdk_rgba_parse :: -    Ptr RGBA ->                             -- _obj : TInterface "Gdk" "RGBA"-    CString ->                              -- spec : TBasicType TUTF8-    IO CInt---rGBAParse ::-    (MonadIO m) =>-    RGBA                                    -- _obj-    -> T.Text                               -- spec-    -> m Bool                               -- result-rGBAParse _obj spec = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    spec' <- textToCString spec-    result <- gdk_rgba_parse _obj' spec'-    let result' = (/= 0) result-    touchManagedPtr _obj-    freeMem spec'-    return result'--data RGBAParseMethodInfo-instance (signature ~ (T.Text -> m Bool), MonadIO m) => MethodInfo RGBAParseMethodInfo RGBA signature where-    overloadedMethod _ = rGBAParse---- method RGBA::to_string--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUTF8)--- throws : False--- Skip return : False--foreign import ccall "gdk_rgba_to_string" gdk_rgba_to_string :: -    Ptr RGBA ->                             -- _obj : TInterface "Gdk" "RGBA"-    IO CString---rGBAToString ::-    (MonadIO m) =>-    RGBA                                    -- _obj-    -> m T.Text                             -- result-rGBAToString _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_rgba_to_string _obj'-    checkUnexpectedReturnNULL "gdk_rgba_to_string" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'--data RGBAToStringMethodInfo-instance (signature ~ (m T.Text), MonadIO m) => MethodInfo RGBAToStringMethodInfo RGBA signature where-    overloadedMethod _ = rGBAToString--type family ResolveRGBAMethod (t :: Symbol) (o :: *) :: * where-    ResolveRGBAMethod "copy" o = RGBACopyMethodInfo-    ResolveRGBAMethod "equal" o = RGBAEqualMethodInfo-    ResolveRGBAMethod "free" o = RGBAFreeMethodInfo-    ResolveRGBAMethod "hash" o = RGBAHashMethodInfo-    ResolveRGBAMethod "parse" o = RGBAParseMethodInfo-    ResolveRGBAMethod "toString" o = RGBAToStringMethodInfo-    ResolveRGBAMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRGBAMethod t RGBA, MethodInfo info RGBA p) => IsLabelProxy t (RGBA -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRGBAMethod t RGBA, MethodInfo info RGBA p) => IsLabel t (RGBA -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/RGBA.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gdk.Structs.RGBA where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype RGBA = RGBA (ForeignPtr RGBA)-instance BoxedObject RGBA where-data RGBACopyMethodInfo-data RGBAEqualMethodInfo-data RGBAFreeMethodInfo-data RGBAHashMethodInfo-data RGBAParseMethodInfo-data RGBAToStringMethodInfo
− GI/Gdk/Structs/Rectangle.hs 
@@ -1,280 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Defines the position and size of a rectangle. It is identical to-#cairo_rectangle_int_t.--}--module GI.Gdk.Structs.Rectangle-    ( ---- * Exported types-    Rectangle(..)                           ,-    newZeroRectangle                        ,-    noRectangle                             ,--- -- * Methods--- ** rectangleIntersect-    RectangleIntersectMethodInfo            ,-    rectangleIntersect                      ,----- ** rectangleUnion-    RectangleUnionMethodInfo                ,-    rectangleUnion                          ,----- -- * Properties--- ** Height-    rectangleHeight                         ,-    rectangleReadHeight                     ,-    rectangleWriteHeight                    ,----- ** Width-    rectangleReadWidth                      ,-    rectangleWidth                          ,-    rectangleWriteWidth                     ,----- ** X-    rectangleReadX                          ,-    rectangleWriteX                         ,-    rectangleX                              ,----- ** Y-    rectangleReadY                          ,-    rectangleWriteY                         ,-    rectangleY                              ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype Rectangle = Rectangle (ForeignPtr Rectangle)-foreign import ccall "gdk_rectangle_get_type" c_gdk_rectangle_get_type :: -    IO GType--instance BoxedObject Rectangle where-    boxedType _ = c_gdk_rectangle_get_type---- | Construct a `Rectangle` struct initialized to zero.-newZeroRectangle :: MonadIO m => m Rectangle-newZeroRectangle = liftIO $ callocBoxedBytes 16 >>= wrapBoxed Rectangle--instance tag ~ 'AttrSet => Constructible Rectangle tag where-    new _ attrs = do-        o <- newZeroRectangle-        GI.Attributes.set o attrs-        return o---noRectangle :: Maybe Rectangle-noRectangle = Nothing--rectangleReadX :: MonadIO m => Rectangle -> m Int32-rectangleReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--rectangleWriteX :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Int32)--data RectangleXFieldInfo-instance AttrInfo RectangleXFieldInfo where-    type AttrAllowedOps RectangleXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleXFieldInfo = (~) Int32-    type AttrBaseTypeConstraint RectangleXFieldInfo = (~) Rectangle-    type AttrGetType RectangleXFieldInfo = Int32-    type AttrLabel RectangleXFieldInfo = "x"-    attrGet _ = rectangleReadX-    attrSet _ = rectangleWriteX-    attrConstruct = undefined-    attrClear _ = undefined--rectangleX :: AttrLabelProxy "x"-rectangleX = AttrLabelProxy---rectangleReadY :: MonadIO m => Rectangle -> m Int32-rectangleReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--rectangleWriteY :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 4) (val :: Int32)--data RectangleYFieldInfo-instance AttrInfo RectangleYFieldInfo where-    type AttrAllowedOps RectangleYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleYFieldInfo = (~) Int32-    type AttrBaseTypeConstraint RectangleYFieldInfo = (~) Rectangle-    type AttrGetType RectangleYFieldInfo = Int32-    type AttrLabel RectangleYFieldInfo = "y"-    attrGet _ = rectangleReadY-    attrSet _ = rectangleWriteY-    attrConstruct = undefined-    attrClear _ = undefined--rectangleY :: AttrLabelProxy "y"-rectangleY = AttrLabelProxy---rectangleReadWidth :: MonadIO m => Rectangle -> m Int32-rectangleReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--rectangleWriteWidth :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--data RectangleWidthFieldInfo-instance AttrInfo RectangleWidthFieldInfo where-    type AttrAllowedOps RectangleWidthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleWidthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint RectangleWidthFieldInfo = (~) Rectangle-    type AttrGetType RectangleWidthFieldInfo = Int32-    type AttrLabel RectangleWidthFieldInfo = "width"-    attrGet _ = rectangleReadWidth-    attrSet _ = rectangleWriteWidth-    attrConstruct = undefined-    attrClear _ = undefined--rectangleWidth :: AttrLabelProxy "width"-rectangleWidth = AttrLabelProxy---rectangleReadHeight :: MonadIO m => Rectangle -> m Int32-rectangleReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--rectangleWriteHeight :: MonadIO m => Rectangle -> Int32 -> m ()-rectangleWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 12) (val :: Int32)--data RectangleHeightFieldInfo-instance AttrInfo RectangleHeightFieldInfo where-    type AttrAllowedOps RectangleHeightFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint RectangleHeightFieldInfo = (~) Int32-    type AttrBaseTypeConstraint RectangleHeightFieldInfo = (~) Rectangle-    type AttrGetType RectangleHeightFieldInfo = Int32-    type AttrLabel RectangleHeightFieldInfo = "height"-    attrGet _ = rectangleReadHeight-    attrSet _ = rectangleWriteHeight-    attrConstruct = undefined-    attrClear _ = undefined--rectangleHeight :: AttrLabelProxy "height"-rectangleHeight = AttrLabelProxy----type instance AttributeList Rectangle = RectangleAttributeList-type RectangleAttributeList = ('[ '("x", RectangleXFieldInfo), '("y", RectangleYFieldInfo), '("width", RectangleWidthFieldInfo), '("height", RectangleHeightFieldInfo)] :: [(Symbol, *)])---- method Rectangle::intersect--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_rectangle_intersect" gdk_rectangle_intersect :: -    Ptr Rectangle ->                        -- _obj : TInterface "Gdk" "Rectangle"-    Ptr Rectangle ->                        -- src2 : TInterface "Gdk" "Rectangle"-    Ptr Rectangle ->                        -- dest : TInterface "Gdk" "Rectangle"-    IO CInt---rectangleIntersect ::-    (MonadIO m) =>-    Rectangle                               -- _obj-    -> Rectangle                            -- src2-    -> m (Bool,Rectangle)                   -- result-rectangleIntersect _obj src2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let src2' = unsafeManagedPtrGetPtr src2-    dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle)-    result <- gdk_rectangle_intersect _obj' src2' dest-    let result' = (/= 0) result-    dest' <- (wrapBoxed Rectangle) dest-    touchManagedPtr _obj-    touchManagedPtr src2-    return (result', dest')--data RectangleIntersectMethodInfo-instance (signature ~ (Rectangle -> m (Bool,Rectangle)), MonadIO m) => MethodInfo RectangleIntersectMethodInfo Rectangle signature where-    overloadedMethod _ = rectangleIntersect---- method Rectangle::union--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_rectangle_union" gdk_rectangle_union :: -    Ptr Rectangle ->                        -- _obj : TInterface "Gdk" "Rectangle"-    Ptr Rectangle ->                        -- src2 : TInterface "Gdk" "Rectangle"-    Ptr Rectangle ->                        -- dest : TInterface "Gdk" "Rectangle"-    IO ()---rectangleUnion ::-    (MonadIO m) =>-    Rectangle                               -- _obj-    -> Rectangle                            -- src2-    -> m (Rectangle)                        -- result-rectangleUnion _obj src2 = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let src2' = unsafeManagedPtrGetPtr src2-    dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle)-    gdk_rectangle_union _obj' src2' dest-    dest' <- (wrapBoxed Rectangle) dest-    touchManagedPtr _obj-    touchManagedPtr src2-    return dest'--data RectangleUnionMethodInfo-instance (signature ~ (Rectangle -> m (Rectangle)), MonadIO m) => MethodInfo RectangleUnionMethodInfo Rectangle signature where-    overloadedMethod _ = rectangleUnion--type family ResolveRectangleMethod (t :: Symbol) (o :: *) :: * where-    ResolveRectangleMethod "intersect" o = RectangleIntersectMethodInfo-    ResolveRectangleMethod "union" o = RectangleUnionMethodInfo-    ResolveRectangleMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabelProxy t (Rectangle -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveRectangleMethod t Rectangle, MethodInfo info Rectangle p) => IsLabel t (Rectangle -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/Rectangle.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gdk.Structs.Rectangle where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Rectangle = Rectangle (ForeignPtr Rectangle)-instance BoxedObject Rectangle where-data RectangleIntersectMethodInfo-data RectangleUnionMethodInfo
− GI/Gdk/Structs/TimeCoord.hs 
@@ -1,102 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--A #GdkTimeCoord stores a single event in a motion history.--}--module GI.Gdk.Structs.TimeCoord-    ( ---- * Exported types-    TimeCoord(..)                           ,-    newZeroTimeCoord                        ,-    noTimeCoord                             ,--- -- * Properties--- ** Time-    timeCoordReadTime                       ,-    timeCoordTime                           ,-    timeCoordWriteTime                      ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord)-instance WrappedPtr TimeCoord where-    wrappedPtrCalloc = callocBytes 1032-    wrappedPtrCopy = copyPtr 1032-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `TimeCoord` struct initialized to zero.-newZeroTimeCoord :: MonadIO m => m TimeCoord-newZeroTimeCoord = liftIO $ wrappedPtrCalloc >>= wrapPtr TimeCoord--instance tag ~ 'AttrSet => Constructible TimeCoord tag where-    new _ attrs = do-        o <- newZeroTimeCoord-        GI.Attributes.set o attrs-        return o---noTimeCoord :: Maybe TimeCoord-noTimeCoord = Nothing--timeCoordReadTime :: MonadIO m => TimeCoord -> m Word32-timeCoordReadTime s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--timeCoordWriteTime :: MonadIO m => TimeCoord -> Word32 -> m ()-timeCoordWriteTime s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Word32)--data TimeCoordTimeFieldInfo-instance AttrInfo TimeCoordTimeFieldInfo where-    type AttrAllowedOps TimeCoordTimeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint TimeCoordTimeFieldInfo = (~) Word32-    type AttrBaseTypeConstraint TimeCoordTimeFieldInfo = (~) TimeCoord-    type AttrGetType TimeCoordTimeFieldInfo = Word32-    type AttrLabel TimeCoordTimeFieldInfo = "time"-    attrGet _ = timeCoordReadTime-    attrSet _ = timeCoordWriteTime-    attrConstruct = undefined-    attrClear _ = undefined--timeCoordTime :: AttrLabelProxy "time"-timeCoordTime = AttrLabelProxy----- XXX Skipped attribute for "TimeCoord:axes" :: Not implemented: "Don't know how to unpack C array of type TCArray False 128 (-1) (TBasicType TDouble)"--type instance AttributeList TimeCoord = TimeCoordAttributeList-type TimeCoordAttributeList = ('[ '("time", TimeCoordTimeFieldInfo)] :: [(Symbol, *)])--type family ResolveTimeCoordMethod (t :: Symbol) (o :: *) :: * where-    ResolveTimeCoordMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveTimeCoordMethod t TimeCoord, MethodInfo info TimeCoord p) => IsLabelProxy t (TimeCoord -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveTimeCoordMethod t TimeCoord, MethodInfo info TimeCoord p) => IsLabel t (TimeCoord -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/TimeCoord.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.TimeCoord where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord)-instance WrappedPtr TimeCoord where
− GI/Gdk/Structs/WindowAttr.hs 
@@ -1,552 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--Attributes to use for a newly-created window.--}--module GI.Gdk.Structs.WindowAttr-    ( ---- * Exported types-    WindowAttr(..)                          ,-    newZeroWindowAttr                       ,-    noWindowAttr                            ,--- -- * Properties--- ** Cursor-    windowAttrClearCursor                   ,-    windowAttrCursor                        ,-    windowAttrReadCursor                    ,-    windowAttrWriteCursor                   ,----- ** EventMask-    windowAttrEventMask                     ,-    windowAttrReadEventMask                 ,-    windowAttrWriteEventMask                ,----- ** Height-    windowAttrHeight                        ,-    windowAttrReadHeight                    ,-    windowAttrWriteHeight                   ,----- ** OverrideRedirect-    windowAttrOverrideRedirect              ,-    windowAttrReadOverrideRedirect          ,-    windowAttrWriteOverrideRedirect         ,----- ** Title-    windowAttrClearTitle                    ,-    windowAttrReadTitle                     ,-    windowAttrTitle                         ,-    windowAttrWriteTitle                    ,----- ** TypeHint-    windowAttrReadTypeHint                  ,-    windowAttrTypeHint                      ,-    windowAttrWriteTypeHint                 ,----- ** Visual-    windowAttrClearVisual                   ,-    windowAttrReadVisual                    ,-    windowAttrVisual                        ,-    windowAttrWriteVisual                   ,----- ** Wclass-    windowAttrReadWclass                    ,-    windowAttrWclass                        ,-    windowAttrWriteWclass                   ,----- ** Width-    windowAttrReadWidth                     ,-    windowAttrWidth                         ,-    windowAttrWriteWidth                    ,----- ** WindowType-    windowAttrReadWindowType                ,-    windowAttrWindowType                    ,-    windowAttrWriteWindowType               ,----- ** WmclassClass-    windowAttrClearWmclassClass             ,-    windowAttrReadWmclassClass              ,-    windowAttrWmclassClass                  ,-    windowAttrWriteWmclassClass             ,----- ** WmclassName-    windowAttrClearWmclassName              ,-    windowAttrReadWmclassName               ,-    windowAttrWmclassName                   ,-    windowAttrWriteWmclassName              ,----- ** X-    windowAttrReadX                         ,-    windowAttrWriteX                        ,-    windowAttrX                             ,----- ** Y-    windowAttrReadY                         ,-    windowAttrWriteY                        ,-    windowAttrY                             ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr)-instance WrappedPtr WindowAttr where-    wrappedPtrCalloc = callocBytes 80-    wrappedPtrCopy = copyPtr 80-    wrappedPtrFree = Just ptr_to_g_free---- | Construct a `WindowAttr` struct initialized to zero.-newZeroWindowAttr :: MonadIO m => m WindowAttr-newZeroWindowAttr = liftIO $ wrappedPtrCalloc >>= wrapPtr WindowAttr--instance tag ~ 'AttrSet => Constructible WindowAttr tag where-    new _ attrs = do-        o <- newZeroWindowAttr-        GI.Attributes.set o attrs-        return o---noWindowAttr :: Maybe WindowAttr-noWindowAttr = Nothing--windowAttrReadTitle :: MonadIO m => WindowAttr -> m (Maybe T.Text)-windowAttrReadTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--windowAttrWriteTitle :: MonadIO m => WindowAttr -> CString -> m ()-windowAttrWriteTitle s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: CString)--windowAttrClearTitle :: MonadIO m => WindowAttr -> m ()-windowAttrClearTitle s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: CString)--data WindowAttrTitleFieldInfo-instance AttrInfo WindowAttrTitleFieldInfo where-    type AttrAllowedOps WindowAttrTitleFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WindowAttrTitleFieldInfo = (~) CString-    type AttrBaseTypeConstraint WindowAttrTitleFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrTitleFieldInfo = Maybe T.Text-    type AttrLabel WindowAttrTitleFieldInfo = "title"-    attrGet _ = windowAttrReadTitle-    attrSet _ = windowAttrWriteTitle-    attrConstruct = undefined-    attrClear _ = windowAttrClearTitle--windowAttrTitle :: AttrLabelProxy "title"-windowAttrTitle = AttrLabelProxy---windowAttrReadEventMask :: MonadIO m => WindowAttr -> m Int32-windowAttrReadEventMask s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--windowAttrWriteEventMask :: MonadIO m => WindowAttr -> Int32 -> m ()-windowAttrWriteEventMask s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 8) (val :: Int32)--data WindowAttrEventMaskFieldInfo-instance AttrInfo WindowAttrEventMaskFieldInfo where-    type AttrAllowedOps WindowAttrEventMaskFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrEventMaskFieldInfo = (~) Int32-    type AttrBaseTypeConstraint WindowAttrEventMaskFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrEventMaskFieldInfo = Int32-    type AttrLabel WindowAttrEventMaskFieldInfo = "event_mask"-    attrGet _ = windowAttrReadEventMask-    attrSet _ = windowAttrWriteEventMask-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrEventMask :: AttrLabelProxy "eventMask"-windowAttrEventMask = AttrLabelProxy---windowAttrReadX :: MonadIO m => WindowAttr -> m Int32-windowAttrReadX s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--windowAttrWriteX :: MonadIO m => WindowAttr -> Int32 -> m ()-windowAttrWriteX s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 12) (val :: Int32)--data WindowAttrXFieldInfo-instance AttrInfo WindowAttrXFieldInfo where-    type AttrAllowedOps WindowAttrXFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrXFieldInfo = (~) Int32-    type AttrBaseTypeConstraint WindowAttrXFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrXFieldInfo = Int32-    type AttrLabel WindowAttrXFieldInfo = "x"-    attrGet _ = windowAttrReadX-    attrSet _ = windowAttrWriteX-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrX :: AttrLabelProxy "x"-windowAttrX = AttrLabelProxy---windowAttrReadY :: MonadIO m => WindowAttr -> m Int32-windowAttrReadY s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--windowAttrWriteY :: MonadIO m => WindowAttr -> Int32 -> m ()-windowAttrWriteY s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 16) (val :: Int32)--data WindowAttrYFieldInfo-instance AttrInfo WindowAttrYFieldInfo where-    type AttrAllowedOps WindowAttrYFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrYFieldInfo = (~) Int32-    type AttrBaseTypeConstraint WindowAttrYFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrYFieldInfo = Int32-    type AttrLabel WindowAttrYFieldInfo = "y"-    attrGet _ = windowAttrReadY-    attrSet _ = windowAttrWriteY-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrY :: AttrLabelProxy "y"-windowAttrY = AttrLabelProxy---windowAttrReadWidth :: MonadIO m => WindowAttr -> m Int32-windowAttrReadWidth s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--windowAttrWriteWidth :: MonadIO m => WindowAttr -> Int32 -> m ()-windowAttrWriteWidth s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 20) (val :: Int32)--data WindowAttrWidthFieldInfo-instance AttrInfo WindowAttrWidthFieldInfo where-    type AttrAllowedOps WindowAttrWidthFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrWidthFieldInfo = (~) Int32-    type AttrBaseTypeConstraint WindowAttrWidthFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrWidthFieldInfo = Int32-    type AttrLabel WindowAttrWidthFieldInfo = "width"-    attrGet _ = windowAttrReadWidth-    attrSet _ = windowAttrWriteWidth-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrWidth :: AttrLabelProxy "width"-windowAttrWidth = AttrLabelProxy---windowAttrReadHeight :: MonadIO m => WindowAttr -> m Int32-windowAttrReadHeight s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--windowAttrWriteHeight :: MonadIO m => WindowAttr -> Int32 -> m ()-windowAttrWriteHeight s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 24) (val :: Int32)--data WindowAttrHeightFieldInfo-instance AttrInfo WindowAttrHeightFieldInfo where-    type AttrAllowedOps WindowAttrHeightFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrHeightFieldInfo = (~) Int32-    type AttrBaseTypeConstraint WindowAttrHeightFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrHeightFieldInfo = Int32-    type AttrLabel WindowAttrHeightFieldInfo = "height"-    attrGet _ = windowAttrReadHeight-    attrSet _ = windowAttrWriteHeight-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrHeight :: AttrLabelProxy "height"-windowAttrHeight = AttrLabelProxy---windowAttrReadWclass :: MonadIO m => WindowAttr -> m WindowWindowClass-windowAttrReadWclass s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--windowAttrWriteWclass :: MonadIO m => WindowAttr -> WindowWindowClass -> m ()-windowAttrWriteWclass s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 28) (val' :: CUInt)--data WindowAttrWclassFieldInfo-instance AttrInfo WindowAttrWclassFieldInfo where-    type AttrAllowedOps WindowAttrWclassFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrWclassFieldInfo = (~) WindowWindowClass-    type AttrBaseTypeConstraint WindowAttrWclassFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrWclassFieldInfo = WindowWindowClass-    type AttrLabel WindowAttrWclassFieldInfo = "wclass"-    attrGet _ = windowAttrReadWclass-    attrSet _ = windowAttrWriteWclass-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrWclass :: AttrLabelProxy "wclass"-windowAttrWclass = AttrLabelProxy---windowAttrReadVisual :: MonadIO m => WindowAttr -> m (Maybe Visual)-windowAttrReadVisual s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Visual)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Visual) val'-        return val''-    return result--windowAttrWriteVisual :: MonadIO m => WindowAttr -> Ptr Visual -> m ()-windowAttrWriteVisual s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (val :: Ptr Visual)--windowAttrClearVisual :: MonadIO m => WindowAttr -> m ()-windowAttrClearVisual s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 32) (nullPtr :: Ptr Visual)--data WindowAttrVisualFieldInfo-instance AttrInfo WindowAttrVisualFieldInfo where-    type AttrAllowedOps WindowAttrVisualFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WindowAttrVisualFieldInfo = (~) (Ptr Visual)-    type AttrBaseTypeConstraint WindowAttrVisualFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrVisualFieldInfo = Maybe Visual-    type AttrLabel WindowAttrVisualFieldInfo = "visual"-    attrGet _ = windowAttrReadVisual-    attrSet _ = windowAttrWriteVisual-    attrConstruct = undefined-    attrClear _ = windowAttrClearVisual--windowAttrVisual :: AttrLabelProxy "visual"-windowAttrVisual = AttrLabelProxy---windowAttrReadWindowType :: MonadIO m => WindowAttr -> m WindowType-windowAttrReadWindowType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--windowAttrWriteWindowType :: MonadIO m => WindowAttr -> WindowType -> m ()-windowAttrWriteWindowType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 40) (val' :: CUInt)--data WindowAttrWindowTypeFieldInfo-instance AttrInfo WindowAttrWindowTypeFieldInfo where-    type AttrAllowedOps WindowAttrWindowTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrWindowTypeFieldInfo = (~) WindowType-    type AttrBaseTypeConstraint WindowAttrWindowTypeFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrWindowTypeFieldInfo = WindowType-    type AttrLabel WindowAttrWindowTypeFieldInfo = "window_type"-    attrGet _ = windowAttrReadWindowType-    attrSet _ = windowAttrWriteWindowType-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrWindowType :: AttrLabelProxy "windowType"-windowAttrWindowType = AttrLabelProxy---windowAttrReadCursor :: MonadIO m => WindowAttr -> m (Maybe Cursor)-windowAttrReadCursor s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr Cursor)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newObject Cursor) val'-        return val''-    return result--windowAttrWriteCursor :: MonadIO m => WindowAttr -> Ptr Cursor -> m ()-windowAttrWriteCursor s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (val :: Ptr Cursor)--windowAttrClearCursor :: MonadIO m => WindowAttr -> m ()-windowAttrClearCursor s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 48) (nullPtr :: Ptr Cursor)--data WindowAttrCursorFieldInfo-instance AttrInfo WindowAttrCursorFieldInfo where-    type AttrAllowedOps WindowAttrCursorFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WindowAttrCursorFieldInfo = (~) (Ptr Cursor)-    type AttrBaseTypeConstraint WindowAttrCursorFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrCursorFieldInfo = Maybe Cursor-    type AttrLabel WindowAttrCursorFieldInfo = "cursor"-    attrGet _ = windowAttrReadCursor-    attrSet _ = windowAttrWriteCursor-    attrConstruct = undefined-    attrClear _ = windowAttrClearCursor--windowAttrCursor :: AttrLabelProxy "cursor"-windowAttrCursor = AttrLabelProxy---windowAttrReadWmclassName :: MonadIO m => WindowAttr -> m (Maybe T.Text)-windowAttrReadWmclassName s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--windowAttrWriteWmclassName :: MonadIO m => WindowAttr -> CString -> m ()-windowAttrWriteWmclassName s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (val :: CString)--windowAttrClearWmclassName :: MonadIO m => WindowAttr -> m ()-windowAttrClearWmclassName s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 56) (nullPtr :: CString)--data WindowAttrWmclassNameFieldInfo-instance AttrInfo WindowAttrWmclassNameFieldInfo where-    type AttrAllowedOps WindowAttrWmclassNameFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WindowAttrWmclassNameFieldInfo = (~) CString-    type AttrBaseTypeConstraint WindowAttrWmclassNameFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrWmclassNameFieldInfo = Maybe T.Text-    type AttrLabel WindowAttrWmclassNameFieldInfo = "wmclass_name"-    attrGet _ = windowAttrReadWmclassName-    attrSet _ = windowAttrWriteWmclassName-    attrConstruct = undefined-    attrClear _ = windowAttrClearWmclassName--windowAttrWmclassName :: AttrLabelProxy "wmclassName"-windowAttrWmclassName = AttrLabelProxy---windowAttrReadWmclassClass :: MonadIO m => WindowAttr -> m (Maybe T.Text)-windowAttrReadWmclassClass s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CString-    result <- convertIfNonNull val $ \val' -> do-        val'' <- cstringToText val'-        return val''-    return result--windowAttrWriteWmclassClass :: MonadIO m => WindowAttr -> CString -> m ()-windowAttrWriteWmclassClass s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 64) (val :: CString)--windowAttrClearWmclassClass :: MonadIO m => WindowAttr -> m ()-windowAttrClearWmclassClass s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 64) (nullPtr :: CString)--data WindowAttrWmclassClassFieldInfo-instance AttrInfo WindowAttrWmclassClassFieldInfo where-    type AttrAllowedOps WindowAttrWmclassClassFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint WindowAttrWmclassClassFieldInfo = (~) CString-    type AttrBaseTypeConstraint WindowAttrWmclassClassFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrWmclassClassFieldInfo = Maybe T.Text-    type AttrLabel WindowAttrWmclassClassFieldInfo = "wmclass_class"-    attrGet _ = windowAttrReadWmclassClass-    attrSet _ = windowAttrWriteWmclassClass-    attrConstruct = undefined-    attrClear _ = windowAttrClearWmclassClass--windowAttrWmclassClass :: AttrLabelProxy "wmclassClass"-windowAttrWmclassClass = AttrLabelProxy---windowAttrReadOverrideRedirect :: MonadIO m => WindowAttr -> m Bool-windowAttrReadOverrideRedirect s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CInt-    let val' = (/= 0) val-    return val'--windowAttrWriteOverrideRedirect :: MonadIO m => WindowAttr -> Bool -> m ()-windowAttrWriteOverrideRedirect s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 72) (val' :: CInt)--data WindowAttrOverrideRedirectFieldInfo-instance AttrInfo WindowAttrOverrideRedirectFieldInfo where-    type AttrAllowedOps WindowAttrOverrideRedirectFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrOverrideRedirectFieldInfo = (~) Bool-    type AttrBaseTypeConstraint WindowAttrOverrideRedirectFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrOverrideRedirectFieldInfo = Bool-    type AttrLabel WindowAttrOverrideRedirectFieldInfo = "override_redirect"-    attrGet _ = windowAttrReadOverrideRedirect-    attrSet _ = windowAttrWriteOverrideRedirect-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrOverrideRedirect :: AttrLabelProxy "overrideRedirect"-windowAttrOverrideRedirect = AttrLabelProxy---windowAttrReadTypeHint :: MonadIO m => WindowAttr -> m WindowTypeHint-windowAttrReadTypeHint s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 76) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--windowAttrWriteTypeHint :: MonadIO m => WindowAttr -> WindowTypeHint -> m ()-windowAttrWriteTypeHint s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 76) (val' :: CUInt)--data WindowAttrTypeHintFieldInfo-instance AttrInfo WindowAttrTypeHintFieldInfo where-    type AttrAllowedOps WindowAttrTypeHintFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint WindowAttrTypeHintFieldInfo = (~) WindowTypeHint-    type AttrBaseTypeConstraint WindowAttrTypeHintFieldInfo = (~) WindowAttr-    type AttrGetType WindowAttrTypeHintFieldInfo = WindowTypeHint-    type AttrLabel WindowAttrTypeHintFieldInfo = "type_hint"-    attrGet _ = windowAttrReadTypeHint-    attrSet _ = windowAttrWriteTypeHint-    attrConstruct = undefined-    attrClear _ = undefined--windowAttrTypeHint :: AttrLabelProxy "typeHint"-windowAttrTypeHint = AttrLabelProxy----type instance AttributeList WindowAttr = WindowAttrAttributeList-type WindowAttrAttributeList = ('[ '("title", WindowAttrTitleFieldInfo), '("eventMask", WindowAttrEventMaskFieldInfo), '("x", WindowAttrXFieldInfo), '("y", WindowAttrYFieldInfo), '("width", WindowAttrWidthFieldInfo), '("height", WindowAttrHeightFieldInfo), '("wclass", WindowAttrWclassFieldInfo), '("visual", WindowAttrVisualFieldInfo), '("windowType", WindowAttrWindowTypeFieldInfo), '("cursor", WindowAttrCursorFieldInfo), '("wmclassName", WindowAttrWmclassNameFieldInfo), '("wmclassClass", WindowAttrWmclassClassFieldInfo), '("overrideRedirect", WindowAttrOverrideRedirectFieldInfo), '("typeHint", WindowAttrTypeHintFieldInfo)] :: [(Symbol, *)])--type family ResolveWindowAttrMethod (t :: Symbol) (o :: *) :: * where-    ResolveWindowAttrMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWindowAttrMethod t WindowAttr, MethodInfo info WindowAttr p) => IsLabelProxy t (WindowAttr -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWindowAttrMethod t WindowAttr, MethodInfo info WindowAttr p) => IsLabel t (WindowAttr -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/WindowAttr.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.WindowAttr where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr)-instance WrappedPtr WindowAttr where
− GI/Gdk/Structs/WindowRedirect.hs 
@@ -1,54 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Structs.WindowRedirect-    ( ---- * Exported types-    WindowRedirect(..)                      ,-    noWindowRedirect                        ,---    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect)--- XXX Wrapping a foreign struct/union with no known destructor or size, leak?-instance WrappedPtr WindowRedirect where-    wrappedPtrCalloc = return nullPtr-    wrappedPtrCopy = return-    wrappedPtrFree = Nothing--noWindowRedirect :: Maybe WindowRedirect-noWindowRedirect = Nothing---type instance AttributeList WindowRedirect = WindowRedirectAttributeList-type WindowRedirectAttributeList = ('[ ] :: [(Symbol, *)])--type family ResolveWindowRedirectMethod (t :: Symbol) (o :: *) :: * where-    ResolveWindowRedirectMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveWindowRedirectMethod t WindowRedirect, MethodInfo info WindowRedirect p) => IsLabelProxy t (WindowRedirect -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveWindowRedirectMethod t WindowRedirect, MethodInfo info WindowRedirect p) => IsLabel t (WindowRedirect -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Structs/WindowRedirect.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.WindowRedirect where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect)-instance WrappedPtr WindowRedirect where
− GI/Gdk/Types.hs 
@@ -1,106 +0,0 @@-module GI.Gdk.Types-    (     module GI.Gdk.Objects.AppLaunchContext  ,-    module GI.Gdk.Objects.Cursor            ,-    module GI.Gdk.Objects.Device            ,-    module GI.Gdk.Objects.DeviceManager     ,-    module GI.Gdk.Objects.Display           ,-    module GI.Gdk.Objects.DisplayManager    ,-    module GI.Gdk.Objects.DragContext       ,-    module GI.Gdk.Objects.FrameClock        ,-    module GI.Gdk.Objects.GLContext         ,-    module GI.Gdk.Objects.Keymap            ,-    module GI.Gdk.Objects.Screen            ,-    module GI.Gdk.Objects.Visual            ,-    module GI.Gdk.Objects.Window            ,-    module GI.Gdk.Structs.Atom              ,-    module GI.Gdk.Structs.Color             ,-    module GI.Gdk.Structs.EventAny          ,-    module GI.Gdk.Structs.EventButton       ,-    module GI.Gdk.Structs.EventConfigure    ,-    module GI.Gdk.Structs.EventCrossing     ,-    module GI.Gdk.Structs.EventDND          ,-    module GI.Gdk.Structs.EventExpose       ,-    module GI.Gdk.Structs.EventFocus        ,-    module GI.Gdk.Structs.EventGrabBroken   ,-    module GI.Gdk.Structs.EventKey          ,-    module GI.Gdk.Structs.EventMotion       ,-    module GI.Gdk.Structs.EventOwnerChange  ,-    module GI.Gdk.Structs.EventProperty     ,-    module GI.Gdk.Structs.EventProximity    ,-    module GI.Gdk.Structs.EventScroll       ,-    module GI.Gdk.Structs.EventSelection    ,-    module GI.Gdk.Structs.EventSequence     ,-    module GI.Gdk.Structs.EventSetting      ,-    module GI.Gdk.Structs.EventTouch        ,-    module GI.Gdk.Structs.EventTouchpadPinch,-    module GI.Gdk.Structs.EventTouchpadSwipe,-    module GI.Gdk.Structs.EventVisibility   ,-    module GI.Gdk.Structs.EventWindowState  ,-    module GI.Gdk.Structs.FrameTimings      ,-    module GI.Gdk.Structs.Geometry          ,-    module GI.Gdk.Structs.KeymapKey         ,-    module GI.Gdk.Structs.Point             ,-    module GI.Gdk.Structs.RGBA              ,-    module GI.Gdk.Structs.Rectangle         ,-    module GI.Gdk.Structs.TimeCoord         ,-    module GI.Gdk.Structs.WindowAttr        ,-    module GI.Gdk.Structs.WindowRedirect    ,-    module GI.Gdk.Unions.Event              ,-    module GI.Gdk.Enums                     ,-    module GI.Gdk.Flags                     ,---    ) where---import {-# SOURCE #-} GI.Gdk.Objects.AppLaunchContext-import {-# SOURCE #-} GI.Gdk.Objects.Cursor-import {-# SOURCE #-} GI.Gdk.Objects.Device-import {-# SOURCE #-} GI.Gdk.Objects.DeviceManager-import {-# SOURCE #-} GI.Gdk.Objects.Display-import {-# SOURCE #-} GI.Gdk.Objects.DisplayManager-import {-# SOURCE #-} GI.Gdk.Objects.DragContext-import {-# SOURCE #-} GI.Gdk.Objects.FrameClock-import {-# SOURCE #-} GI.Gdk.Objects.GLContext-import {-# SOURCE #-} GI.Gdk.Objects.Keymap-import {-# SOURCE #-} GI.Gdk.Objects.Screen-import {-# SOURCE #-} GI.Gdk.Objects.Visual-import {-# SOURCE #-} GI.Gdk.Objects.Window-import {-# SOURCE #-} GI.Gdk.Structs.Atom-import {-# SOURCE #-} GI.Gdk.Structs.Color-import {-# SOURCE #-} GI.Gdk.Structs.EventAny-import {-# SOURCE #-} GI.Gdk.Structs.EventButton-import {-# SOURCE #-} GI.Gdk.Structs.EventConfigure-import {-# SOURCE #-} GI.Gdk.Structs.EventCrossing-import {-# SOURCE #-} GI.Gdk.Structs.EventDND-import {-# SOURCE #-} GI.Gdk.Structs.EventExpose-import {-# SOURCE #-} GI.Gdk.Structs.EventFocus-import {-# SOURCE #-} GI.Gdk.Structs.EventGrabBroken-import {-# SOURCE #-} GI.Gdk.Structs.EventKey-import {-# SOURCE #-} GI.Gdk.Structs.EventMotion-import {-# SOURCE #-} GI.Gdk.Structs.EventOwnerChange-import {-# SOURCE #-} GI.Gdk.Structs.EventProperty-import {-# SOURCE #-} GI.Gdk.Structs.EventProximity-import {-# SOURCE #-} GI.Gdk.Structs.EventScroll-import {-# SOURCE #-} GI.Gdk.Structs.EventSelection-import {-# SOURCE #-} GI.Gdk.Structs.EventSequence-import {-# SOURCE #-} GI.Gdk.Structs.EventSetting-import {-# SOURCE #-} GI.Gdk.Structs.EventTouch-import {-# SOURCE #-} GI.Gdk.Structs.EventTouchpadPinch-import {-# SOURCE #-} GI.Gdk.Structs.EventTouchpadSwipe-import {-# SOURCE #-} GI.Gdk.Structs.EventVisibility-import {-# SOURCE #-} GI.Gdk.Structs.EventWindowState-import {-# SOURCE #-} GI.Gdk.Structs.FrameTimings-import {-# SOURCE #-} GI.Gdk.Structs.Geometry-import {-# SOURCE #-} GI.Gdk.Structs.KeymapKey-import {-# SOURCE #-} GI.Gdk.Structs.Point-import {-# SOURCE #-} GI.Gdk.Structs.RGBA-import {-# SOURCE #-} GI.Gdk.Structs.Rectangle-import {-# SOURCE #-} GI.Gdk.Structs.TimeCoord-import {-# SOURCE #-} GI.Gdk.Structs.WindowAttr-import {-# SOURCE #-} GI.Gdk.Structs.WindowRedirect-import {-# SOURCE #-} GI.Gdk.Unions.Event--import GI.Gdk.Enums-import GI.Gdk.Flags-
− GI/Gdk/Unions.hs 
@@ -1,27 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Unions-    (     module GI.Gdk.Unions.Event              ,---    ) where--import GI.Gdk.Unions.Event--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks--
− GI/Gdk/Unions/Event.hs 
@@ -1,1956 +0,0 @@---{- |-Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte-License    : LGPL-2.1-Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)--}--module GI.Gdk.Unions.Event-    ( ---- * Exported types-    Event(..)                               ,-    newZeroEvent                            ,-    noEvent                                 ,--- -- * Methods--- ** eventCopy-    EventCopyMethodInfo                     ,-    eventCopy                               ,----- ** eventFree-    EventFreeMethodInfo                     ,-    eventFree                               ,----- ** eventGet-    eventGet                                ,----- ** eventGetAxis-    EventGetAxisMethodInfo                  ,-    eventGetAxis                            ,----- ** eventGetButton-    EventGetButtonMethodInfo                ,-    eventGetButton                          ,----- ** eventGetClickCount-    EventGetClickCountMethodInfo            ,-    eventGetClickCount                      ,----- ** eventGetCoords-    EventGetCoordsMethodInfo                ,-    eventGetCoords                          ,----- ** eventGetDevice-    EventGetDeviceMethodInfo                ,-    eventGetDevice                          ,----- ** eventGetEventSequence-    EventGetEventSequenceMethodInfo         ,-    eventGetEventSequence                   ,----- ** eventGetEventType-    EventGetEventTypeMethodInfo             ,-    eventGetEventType                       ,----- ** eventGetKeycode-    EventGetKeycodeMethodInfo               ,-    eventGetKeycode                         ,----- ** eventGetKeyval-    EventGetKeyvalMethodInfo                ,-    eventGetKeyval                          ,----- ** eventGetRootCoords-    EventGetRootCoordsMethodInfo            ,-    eventGetRootCoords                      ,----- ** eventGetScreen-    EventGetScreenMethodInfo                ,-    eventGetScreen                          ,----- ** eventGetScrollDeltas-    EventGetScrollDeltasMethodInfo          ,-    eventGetScrollDeltas                    ,----- ** eventGetScrollDirection-    EventGetScrollDirectionMethodInfo       ,-    eventGetScrollDirection                 ,----- ** eventGetSourceDevice-    EventGetSourceDeviceMethodInfo          ,-    eventGetSourceDevice                    ,----- ** eventGetState-    EventGetStateMethodInfo                 ,-    eventGetState                           ,----- ** eventGetTime-    EventGetTimeMethodInfo                  ,-    eventGetTime                            ,----- ** eventGetWindow-    EventGetWindowMethodInfo                ,-    eventGetWindow                          ,----- ** eventHandlerSet-    eventHandlerSet                         ,----- ** eventNew-    eventNew                                ,----- ** eventPeek-    eventPeek                               ,----- ** eventPut-    EventPutMethodInfo                      ,-    eventPut                                ,----- ** eventRequestMotions-    eventRequestMotions                     ,----- ** eventSetDevice-    EventSetDeviceMethodInfo                ,-    eventSetDevice                          ,----- ** eventSetScreen-    EventSetScreenMethodInfo                ,-    eventSetScreen                          ,----- ** eventSetSourceDevice-    EventSetSourceDeviceMethodInfo          ,-    eventSetSourceDevice                    ,----- ** eventTriggersContextMenu-    EventTriggersContextMenuMethodInfo      ,-    eventTriggersContextMenu                ,----- -- * Properties--- ** Any-    eventAny                                ,-    eventClearAny                           ,-    eventReadAny                            ,-    eventWriteAny                           ,----- ** Button-    eventButton                             ,-    eventClearButton                        ,-    eventReadButton                         ,-    eventWriteButton                        ,----- ** Configure-    eventClearConfigure                     ,-    eventConfigure                          ,-    eventReadConfigure                      ,-    eventWriteConfigure                     ,----- ** Crossing-    eventClearCrossing                      ,-    eventCrossing                           ,-    eventReadCrossing                       ,-    eventWriteCrossing                      ,----- ** Dnd-    eventClearDnd                           ,-    eventDnd                                ,-    eventReadDnd                            ,-    eventWriteDnd                           ,----- ** Expose-    eventClearExpose                        ,-    eventExpose                             ,-    eventReadExpose                         ,-    eventWriteExpose                        ,----- ** FocusChange-    eventClearFocusChange                   ,-    eventFocusChange                        ,-    eventReadFocusChange                    ,-    eventWriteFocusChange                   ,----- ** GrabBroken-    eventClearGrabBroken                    ,-    eventGrabBroken                         ,-    eventReadGrabBroken                     ,-    eventWriteGrabBroken                    ,----- ** Key-    eventClearKey                           ,-    eventKey                                ,-    eventReadKey                            ,-    eventWriteKey                           ,----- ** Motion-    eventClearMotion                        ,-    eventMotion                             ,-    eventReadMotion                         ,-    eventWriteMotion                        ,----- ** OwnerChange-    eventClearOwnerChange                   ,-    eventOwnerChange                        ,-    eventReadOwnerChange                    ,-    eventWriteOwnerChange                   ,----- ** Property-    eventClearProperty                      ,-    eventProperty                           ,-    eventReadProperty                       ,-    eventWriteProperty                      ,----- ** Proximity-    eventClearProximity                     ,-    eventProximity                          ,-    eventReadProximity                      ,-    eventWriteProximity                     ,----- ** Scroll-    eventClearScroll                        ,-    eventReadScroll                         ,-    eventScroll                             ,-    eventWriteScroll                        ,----- ** Selection-    eventClearSelection                     ,-    eventReadSelection                      ,-    eventSelection                          ,-    eventWriteSelection                     ,----- ** Setting-    eventClearSetting                       ,-    eventReadSetting                        ,-    eventSetting                            ,-    eventWriteSetting                       ,----- ** Touch-    eventClearTouch                         ,-    eventReadTouch                          ,-    eventTouch                              ,-    eventWriteTouch                         ,----- ** TouchpadPinch-    eventClearTouchpadPinch                 ,-    eventReadTouchpadPinch                  ,-    eventTouchpadPinch                      ,-    eventWriteTouchpadPinch                 ,----- ** TouchpadSwipe-    eventClearTouchpadSwipe                 ,-    eventReadTouchpadSwipe                  ,-    eventTouchpadSwipe                      ,-    eventWriteTouchpadSwipe                 ,----- ** Type-    eventReadType                           ,-    eventType                               ,-    eventWriteType                          ,----- ** Visibility-    eventClearVisibility                    ,-    eventReadVisibility                     ,-    eventVisibility                         ,-    eventWriteVisibility                    ,----- ** WindowState-    eventClearWindowState                   ,-    eventReadWindowState                    ,-    eventWindowState                        ,-    eventWriteWindowState                   ,-----    ) where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--import GI.Gdk.Types-import GI.Gdk.Callbacks-import qualified GI.GLib as GLib--newtype Event = Event (ForeignPtr Event)-foreign import ccall "gdk_event_get_type" c_gdk_event_get_type :: -    IO GType--instance BoxedObject Event where-    boxedType _ = c_gdk_event_get_type---- | Construct a `Event` struct initialized to zero.-newZeroEvent :: MonadIO m => m Event-newZeroEvent = liftIO $ callocBoxedBytes 104 >>= wrapBoxed Event--instance tag ~ 'AttrSet => Constructible Event tag where-    new _ attrs = do-        o <- newZeroEvent-        GI.Attributes.set o attrs-        return o---noEvent :: Maybe Event-noEvent = Nothing--eventReadType :: MonadIO m => Event -> m EventType-eventReadType s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventWriteType :: MonadIO m => Event -> EventType -> m ()-eventWriteType s val = liftIO $ withManagedPtr s $ \ptr -> do-    let val' = (fromIntegral . fromEnum) val-    poke (ptr `plusPtr` 0) (val' :: CUInt)--data EventTypeFieldInfo-instance AttrInfo EventTypeFieldInfo where-    type AttrAllowedOps EventTypeFieldInfo = '[ 'AttrSet, 'AttrGet]-    type AttrSetTypeConstraint EventTypeFieldInfo = (~) EventType-    type AttrBaseTypeConstraint EventTypeFieldInfo = (~) Event-    type AttrGetType EventTypeFieldInfo = EventType-    type AttrLabel EventTypeFieldInfo = "type"-    attrGet _ = eventReadType-    attrSet _ = eventWriteType-    attrConstruct = undefined-    attrClear _ = undefined--eventType :: AttrLabelProxy "type"-eventType = AttrLabelProxy---eventReadAny :: MonadIO m => Event -> m (Maybe EventAny)-eventReadAny s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventAny)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventAny) val'-        return val''-    return result--eventWriteAny :: MonadIO m => Event -> Ptr EventAny -> m ()-eventWriteAny s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventAny)--eventClearAny :: MonadIO m => Event -> m ()-eventClearAny s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventAny)--data EventAnyFieldInfo-instance AttrInfo EventAnyFieldInfo where-    type AttrAllowedOps EventAnyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventAnyFieldInfo = (~) (Ptr EventAny)-    type AttrBaseTypeConstraint EventAnyFieldInfo = (~) Event-    type AttrGetType EventAnyFieldInfo = Maybe EventAny-    type AttrLabel EventAnyFieldInfo = "any"-    attrGet _ = eventReadAny-    attrSet _ = eventWriteAny-    attrConstruct = undefined-    attrClear _ = eventClearAny--eventAny :: AttrLabelProxy "any"-eventAny = AttrLabelProxy---eventReadExpose :: MonadIO m => Event -> m (Maybe EventExpose)-eventReadExpose s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventExpose)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventExpose) val'-        return val''-    return result--eventWriteExpose :: MonadIO m => Event -> Ptr EventExpose -> m ()-eventWriteExpose s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventExpose)--eventClearExpose :: MonadIO m => Event -> m ()-eventClearExpose s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventExpose)--data EventExposeFieldInfo-instance AttrInfo EventExposeFieldInfo where-    type AttrAllowedOps EventExposeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventExposeFieldInfo = (~) (Ptr EventExpose)-    type AttrBaseTypeConstraint EventExposeFieldInfo = (~) Event-    type AttrGetType EventExposeFieldInfo = Maybe EventExpose-    type AttrLabel EventExposeFieldInfo = "expose"-    attrGet _ = eventReadExpose-    attrSet _ = eventWriteExpose-    attrConstruct = undefined-    attrClear _ = eventClearExpose--eventExpose :: AttrLabelProxy "expose"-eventExpose = AttrLabelProxy---eventReadVisibility :: MonadIO m => Event -> m (Maybe EventVisibility)-eventReadVisibility s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventVisibility)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventVisibility) val'-        return val''-    return result--eventWriteVisibility :: MonadIO m => Event -> Ptr EventVisibility -> m ()-eventWriteVisibility s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventVisibility)--eventClearVisibility :: MonadIO m => Event -> m ()-eventClearVisibility s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventVisibility)--data EventVisibilityFieldInfo-instance AttrInfo EventVisibilityFieldInfo where-    type AttrAllowedOps EventVisibilityFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventVisibilityFieldInfo = (~) (Ptr EventVisibility)-    type AttrBaseTypeConstraint EventVisibilityFieldInfo = (~) Event-    type AttrGetType EventVisibilityFieldInfo = Maybe EventVisibility-    type AttrLabel EventVisibilityFieldInfo = "visibility"-    attrGet _ = eventReadVisibility-    attrSet _ = eventWriteVisibility-    attrConstruct = undefined-    attrClear _ = eventClearVisibility--eventVisibility :: AttrLabelProxy "visibility"-eventVisibility = AttrLabelProxy---eventReadMotion :: MonadIO m => Event -> m (Maybe EventMotion)-eventReadMotion s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventMotion)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventMotion) val'-        return val''-    return result--eventWriteMotion :: MonadIO m => Event -> Ptr EventMotion -> m ()-eventWriteMotion s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventMotion)--eventClearMotion :: MonadIO m => Event -> m ()-eventClearMotion s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventMotion)--data EventMotionFieldInfo-instance AttrInfo EventMotionFieldInfo where-    type AttrAllowedOps EventMotionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventMotionFieldInfo = (~) (Ptr EventMotion)-    type AttrBaseTypeConstraint EventMotionFieldInfo = (~) Event-    type AttrGetType EventMotionFieldInfo = Maybe EventMotion-    type AttrLabel EventMotionFieldInfo = "motion"-    attrGet _ = eventReadMotion-    attrSet _ = eventWriteMotion-    attrConstruct = undefined-    attrClear _ = eventClearMotion--eventMotion :: AttrLabelProxy "motion"-eventMotion = AttrLabelProxy---eventReadButton :: MonadIO m => Event -> m (Maybe EventButton)-eventReadButton s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventButton)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventButton) val'-        return val''-    return result--eventWriteButton :: MonadIO m => Event -> Ptr EventButton -> m ()-eventWriteButton s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventButton)--eventClearButton :: MonadIO m => Event -> m ()-eventClearButton s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventButton)--data EventButtonFieldInfo-instance AttrInfo EventButtonFieldInfo where-    type AttrAllowedOps EventButtonFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventButtonFieldInfo = (~) (Ptr EventButton)-    type AttrBaseTypeConstraint EventButtonFieldInfo = (~) Event-    type AttrGetType EventButtonFieldInfo = Maybe EventButton-    type AttrLabel EventButtonFieldInfo = "button"-    attrGet _ = eventReadButton-    attrSet _ = eventWriteButton-    attrConstruct = undefined-    attrClear _ = eventClearButton--eventButton :: AttrLabelProxy "button"-eventButton = AttrLabelProxy---eventReadTouch :: MonadIO m => Event -> m (Maybe EventTouch)-eventReadTouch s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouch)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventTouch) val'-        return val''-    return result--eventWriteTouch :: MonadIO m => Event -> Ptr EventTouch -> m ()-eventWriteTouch s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventTouch)--eventClearTouch :: MonadIO m => Event -> m ()-eventClearTouch s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventTouch)--data EventTouchFieldInfo-instance AttrInfo EventTouchFieldInfo where-    type AttrAllowedOps EventTouchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchFieldInfo = (~) (Ptr EventTouch)-    type AttrBaseTypeConstraint EventTouchFieldInfo = (~) Event-    type AttrGetType EventTouchFieldInfo = Maybe EventTouch-    type AttrLabel EventTouchFieldInfo = "touch"-    attrGet _ = eventReadTouch-    attrSet _ = eventWriteTouch-    attrConstruct = undefined-    attrClear _ = eventClearTouch--eventTouch :: AttrLabelProxy "touch"-eventTouch = AttrLabelProxy---eventReadScroll :: MonadIO m => Event -> m (Maybe EventScroll)-eventReadScroll s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventScroll)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventScroll) val'-        return val''-    return result--eventWriteScroll :: MonadIO m => Event -> Ptr EventScroll -> m ()-eventWriteScroll s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventScroll)--eventClearScroll :: MonadIO m => Event -> m ()-eventClearScroll s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventScroll)--data EventScrollFieldInfo-instance AttrInfo EventScrollFieldInfo where-    type AttrAllowedOps EventScrollFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventScrollFieldInfo = (~) (Ptr EventScroll)-    type AttrBaseTypeConstraint EventScrollFieldInfo = (~) Event-    type AttrGetType EventScrollFieldInfo = Maybe EventScroll-    type AttrLabel EventScrollFieldInfo = "scroll"-    attrGet _ = eventReadScroll-    attrSet _ = eventWriteScroll-    attrConstruct = undefined-    attrClear _ = eventClearScroll--eventScroll :: AttrLabelProxy "scroll"-eventScroll = AttrLabelProxy---eventReadKey :: MonadIO m => Event -> m (Maybe EventKey)-eventReadKey s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventKey)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventKey) val'-        return val''-    return result--eventWriteKey :: MonadIO m => Event -> Ptr EventKey -> m ()-eventWriteKey s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventKey)--eventClearKey :: MonadIO m => Event -> m ()-eventClearKey s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventKey)--data EventKeyFieldInfo-instance AttrInfo EventKeyFieldInfo where-    type AttrAllowedOps EventKeyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventKeyFieldInfo = (~) (Ptr EventKey)-    type AttrBaseTypeConstraint EventKeyFieldInfo = (~) Event-    type AttrGetType EventKeyFieldInfo = Maybe EventKey-    type AttrLabel EventKeyFieldInfo = "key"-    attrGet _ = eventReadKey-    attrSet _ = eventWriteKey-    attrConstruct = undefined-    attrClear _ = eventClearKey--eventKey :: AttrLabelProxy "key"-eventKey = AttrLabelProxy---eventReadCrossing :: MonadIO m => Event -> m (Maybe EventCrossing)-eventReadCrossing s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventCrossing)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventCrossing) val'-        return val''-    return result--eventWriteCrossing :: MonadIO m => Event -> Ptr EventCrossing -> m ()-eventWriteCrossing s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventCrossing)--eventClearCrossing :: MonadIO m => Event -> m ()-eventClearCrossing s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventCrossing)--data EventCrossingFieldInfo-instance AttrInfo EventCrossingFieldInfo where-    type AttrAllowedOps EventCrossingFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventCrossingFieldInfo = (~) (Ptr EventCrossing)-    type AttrBaseTypeConstraint EventCrossingFieldInfo = (~) Event-    type AttrGetType EventCrossingFieldInfo = Maybe EventCrossing-    type AttrLabel EventCrossingFieldInfo = "crossing"-    attrGet _ = eventReadCrossing-    attrSet _ = eventWriteCrossing-    attrConstruct = undefined-    attrClear _ = eventClearCrossing--eventCrossing :: AttrLabelProxy "crossing"-eventCrossing = AttrLabelProxy---eventReadFocusChange :: MonadIO m => Event -> m (Maybe EventFocus)-eventReadFocusChange s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventFocus)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventFocus) val'-        return val''-    return result--eventWriteFocusChange :: MonadIO m => Event -> Ptr EventFocus -> m ()-eventWriteFocusChange s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventFocus)--eventClearFocusChange :: MonadIO m => Event -> m ()-eventClearFocusChange s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventFocus)--data EventFocusChangeFieldInfo-instance AttrInfo EventFocusChangeFieldInfo where-    type AttrAllowedOps EventFocusChangeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventFocusChangeFieldInfo = (~) (Ptr EventFocus)-    type AttrBaseTypeConstraint EventFocusChangeFieldInfo = (~) Event-    type AttrGetType EventFocusChangeFieldInfo = Maybe EventFocus-    type AttrLabel EventFocusChangeFieldInfo = "focus_change"-    attrGet _ = eventReadFocusChange-    attrSet _ = eventWriteFocusChange-    attrConstruct = undefined-    attrClear _ = eventClearFocusChange--eventFocusChange :: AttrLabelProxy "focusChange"-eventFocusChange = AttrLabelProxy---eventReadConfigure :: MonadIO m => Event -> m (Maybe EventConfigure)-eventReadConfigure s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventConfigure)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventConfigure) val'-        return val''-    return result--eventWriteConfigure :: MonadIO m => Event -> Ptr EventConfigure -> m ()-eventWriteConfigure s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventConfigure)--eventClearConfigure :: MonadIO m => Event -> m ()-eventClearConfigure s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventConfigure)--data EventConfigureFieldInfo-instance AttrInfo EventConfigureFieldInfo where-    type AttrAllowedOps EventConfigureFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventConfigureFieldInfo = (~) (Ptr EventConfigure)-    type AttrBaseTypeConstraint EventConfigureFieldInfo = (~) Event-    type AttrGetType EventConfigureFieldInfo = Maybe EventConfigure-    type AttrLabel EventConfigureFieldInfo = "configure"-    attrGet _ = eventReadConfigure-    attrSet _ = eventWriteConfigure-    attrConstruct = undefined-    attrClear _ = eventClearConfigure--eventConfigure :: AttrLabelProxy "configure"-eventConfigure = AttrLabelProxy---eventReadProperty :: MonadIO m => Event -> m (Maybe EventProperty)-eventReadProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProperty)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventProperty) val'-        return val''-    return result--eventWriteProperty :: MonadIO m => Event -> Ptr EventProperty -> m ()-eventWriteProperty s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventProperty)--eventClearProperty :: MonadIO m => Event -> m ()-eventClearProperty s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventProperty)--data EventPropertyFieldInfo-instance AttrInfo EventPropertyFieldInfo where-    type AttrAllowedOps EventPropertyFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventPropertyFieldInfo = (~) (Ptr EventProperty)-    type AttrBaseTypeConstraint EventPropertyFieldInfo = (~) Event-    type AttrGetType EventPropertyFieldInfo = Maybe EventProperty-    type AttrLabel EventPropertyFieldInfo = "property"-    attrGet _ = eventReadProperty-    attrSet _ = eventWriteProperty-    attrConstruct = undefined-    attrClear _ = eventClearProperty--eventProperty :: AttrLabelProxy "property"-eventProperty = AttrLabelProxy---eventReadSelection :: MonadIO m => Event -> m (Maybe EventSelection)-eventReadSelection s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSelection)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventSelection) val'-        return val''-    return result--eventWriteSelection :: MonadIO m => Event -> Ptr EventSelection -> m ()-eventWriteSelection s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventSelection)--eventClearSelection :: MonadIO m => Event -> m ()-eventClearSelection s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventSelection)--data EventSelectionFieldInfo-instance AttrInfo EventSelectionFieldInfo where-    type AttrAllowedOps EventSelectionFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSelectionFieldInfo = (~) (Ptr EventSelection)-    type AttrBaseTypeConstraint EventSelectionFieldInfo = (~) Event-    type AttrGetType EventSelectionFieldInfo = Maybe EventSelection-    type AttrLabel EventSelectionFieldInfo = "selection"-    attrGet _ = eventReadSelection-    attrSet _ = eventWriteSelection-    attrConstruct = undefined-    attrClear _ = eventClearSelection--eventSelection :: AttrLabelProxy "selection"-eventSelection = AttrLabelProxy---eventReadOwnerChange :: MonadIO m => Event -> m (Maybe EventOwnerChange)-eventReadOwnerChange s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventOwnerChange)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventOwnerChange) val'-        return val''-    return result--eventWriteOwnerChange :: MonadIO m => Event -> Ptr EventOwnerChange -> m ()-eventWriteOwnerChange s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventOwnerChange)--eventClearOwnerChange :: MonadIO m => Event -> m ()-eventClearOwnerChange s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventOwnerChange)--data EventOwnerChangeFieldInfo-instance AttrInfo EventOwnerChangeFieldInfo where-    type AttrAllowedOps EventOwnerChangeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventOwnerChangeFieldInfo = (~) (Ptr EventOwnerChange)-    type AttrBaseTypeConstraint EventOwnerChangeFieldInfo = (~) Event-    type AttrGetType EventOwnerChangeFieldInfo = Maybe EventOwnerChange-    type AttrLabel EventOwnerChangeFieldInfo = "owner_change"-    attrGet _ = eventReadOwnerChange-    attrSet _ = eventWriteOwnerChange-    attrConstruct = undefined-    attrClear _ = eventClearOwnerChange--eventOwnerChange :: AttrLabelProxy "ownerChange"-eventOwnerChange = AttrLabelProxy---eventReadProximity :: MonadIO m => Event -> m (Maybe EventProximity)-eventReadProximity s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProximity)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventProximity) val'-        return val''-    return result--eventWriteProximity :: MonadIO m => Event -> Ptr EventProximity -> m ()-eventWriteProximity s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventProximity)--eventClearProximity :: MonadIO m => Event -> m ()-eventClearProximity s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventProximity)--data EventProximityFieldInfo-instance AttrInfo EventProximityFieldInfo where-    type AttrAllowedOps EventProximityFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventProximityFieldInfo = (~) (Ptr EventProximity)-    type AttrBaseTypeConstraint EventProximityFieldInfo = (~) Event-    type AttrGetType EventProximityFieldInfo = Maybe EventProximity-    type AttrLabel EventProximityFieldInfo = "proximity"-    attrGet _ = eventReadProximity-    attrSet _ = eventWriteProximity-    attrConstruct = undefined-    attrClear _ = eventClearProximity--eventProximity :: AttrLabelProxy "proximity"-eventProximity = AttrLabelProxy---eventReadDnd :: MonadIO m => Event -> m (Maybe EventDND)-eventReadDnd s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventDND)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventDND) val'-        return val''-    return result--eventWriteDnd :: MonadIO m => Event -> Ptr EventDND -> m ()-eventWriteDnd s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventDND)--eventClearDnd :: MonadIO m => Event -> m ()-eventClearDnd s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventDND)--data EventDndFieldInfo-instance AttrInfo EventDndFieldInfo where-    type AttrAllowedOps EventDndFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventDndFieldInfo = (~) (Ptr EventDND)-    type AttrBaseTypeConstraint EventDndFieldInfo = (~) Event-    type AttrGetType EventDndFieldInfo = Maybe EventDND-    type AttrLabel EventDndFieldInfo = "dnd"-    attrGet _ = eventReadDnd-    attrSet _ = eventWriteDnd-    attrConstruct = undefined-    attrClear _ = eventClearDnd--eventDnd :: AttrLabelProxy "dnd"-eventDnd = AttrLabelProxy---eventReadWindowState :: MonadIO m => Event -> m (Maybe EventWindowState)-eventReadWindowState s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventWindowState)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventWindowState) val'-        return val''-    return result--eventWriteWindowState :: MonadIO m => Event -> Ptr EventWindowState -> m ()-eventWriteWindowState s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventWindowState)--eventClearWindowState :: MonadIO m => Event -> m ()-eventClearWindowState s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventWindowState)--data EventWindowStateFieldInfo-instance AttrInfo EventWindowStateFieldInfo where-    type AttrAllowedOps EventWindowStateFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventWindowStateFieldInfo = (~) (Ptr EventWindowState)-    type AttrBaseTypeConstraint EventWindowStateFieldInfo = (~) Event-    type AttrGetType EventWindowStateFieldInfo = Maybe EventWindowState-    type AttrLabel EventWindowStateFieldInfo = "window_state"-    attrGet _ = eventReadWindowState-    attrSet _ = eventWriteWindowState-    attrConstruct = undefined-    attrClear _ = eventClearWindowState--eventWindowState :: AttrLabelProxy "windowState"-eventWindowState = AttrLabelProxy---eventReadSetting :: MonadIO m => Event -> m (Maybe EventSetting)-eventReadSetting s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSetting)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventSetting) val'-        return val''-    return result--eventWriteSetting :: MonadIO m => Event -> Ptr EventSetting -> m ()-eventWriteSetting s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventSetting)--eventClearSetting :: MonadIO m => Event -> m ()-eventClearSetting s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventSetting)--data EventSettingFieldInfo-instance AttrInfo EventSettingFieldInfo where-    type AttrAllowedOps EventSettingFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventSettingFieldInfo = (~) (Ptr EventSetting)-    type AttrBaseTypeConstraint EventSettingFieldInfo = (~) Event-    type AttrGetType EventSettingFieldInfo = Maybe EventSetting-    type AttrLabel EventSettingFieldInfo = "setting"-    attrGet _ = eventReadSetting-    attrSet _ = eventWriteSetting-    attrConstruct = undefined-    attrClear _ = eventClearSetting--eventSetting :: AttrLabelProxy "setting"-eventSetting = AttrLabelProxy---eventReadGrabBroken :: MonadIO m => Event -> m (Maybe EventGrabBroken)-eventReadGrabBroken s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventGrabBroken)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventGrabBroken) val'-        return val''-    return result--eventWriteGrabBroken :: MonadIO m => Event -> Ptr EventGrabBroken -> m ()-eventWriteGrabBroken s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventGrabBroken)--eventClearGrabBroken :: MonadIO m => Event -> m ()-eventClearGrabBroken s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventGrabBroken)--data EventGrabBrokenFieldInfo-instance AttrInfo EventGrabBrokenFieldInfo where-    type AttrAllowedOps EventGrabBrokenFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventGrabBrokenFieldInfo = (~) (Ptr EventGrabBroken)-    type AttrBaseTypeConstraint EventGrabBrokenFieldInfo = (~) Event-    type AttrGetType EventGrabBrokenFieldInfo = Maybe EventGrabBroken-    type AttrLabel EventGrabBrokenFieldInfo = "grab_broken"-    attrGet _ = eventReadGrabBroken-    attrSet _ = eventWriteGrabBroken-    attrConstruct = undefined-    attrClear _ = eventClearGrabBroken--eventGrabBroken :: AttrLabelProxy "grabBroken"-eventGrabBroken = AttrLabelProxy---eventReadTouchpadSwipe :: MonadIO m => Event -> m (Maybe EventTouchpadSwipe)-eventReadTouchpadSwipe s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadSwipe)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventTouchpadSwipe) val'-        return val''-    return result--eventWriteTouchpadSwipe :: MonadIO m => Event -> Ptr EventTouchpadSwipe -> m ()-eventWriteTouchpadSwipe s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventTouchpadSwipe)--eventClearTouchpadSwipe :: MonadIO m => Event -> m ()-eventClearTouchpadSwipe s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventTouchpadSwipe)--data EventTouchpadSwipeFieldInfo-instance AttrInfo EventTouchpadSwipeFieldInfo where-    type AttrAllowedOps EventTouchpadSwipeFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchpadSwipeFieldInfo = (~) (Ptr EventTouchpadSwipe)-    type AttrBaseTypeConstraint EventTouchpadSwipeFieldInfo = (~) Event-    type AttrGetType EventTouchpadSwipeFieldInfo = Maybe EventTouchpadSwipe-    type AttrLabel EventTouchpadSwipeFieldInfo = "touchpad_swipe"-    attrGet _ = eventReadTouchpadSwipe-    attrSet _ = eventWriteTouchpadSwipe-    attrConstruct = undefined-    attrClear _ = eventClearTouchpadSwipe--eventTouchpadSwipe :: AttrLabelProxy "touchpadSwipe"-eventTouchpadSwipe = AttrLabelProxy---eventReadTouchpadPinch :: MonadIO m => Event -> m (Maybe EventTouchpadPinch)-eventReadTouchpadPinch s = liftIO $ withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadPinch)-    result <- convertIfNonNull val $ \val' -> do-        val'' <- (newPtr EventTouchpadPinch) val'-        return val''-    return result--eventWriteTouchpadPinch :: MonadIO m => Event -> Ptr EventTouchpadPinch -> m ()-eventWriteTouchpadPinch s val = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (val :: Ptr EventTouchpadPinch)--eventClearTouchpadPinch :: MonadIO m => Event -> m ()-eventClearTouchpadPinch s = liftIO $ withManagedPtr s $ \ptr -> do-    poke (ptr `plusPtr` 0) (nullPtr :: Ptr EventTouchpadPinch)--data EventTouchpadPinchFieldInfo-instance AttrInfo EventTouchpadPinchFieldInfo where-    type AttrAllowedOps EventTouchpadPinchFieldInfo = '[ 'AttrSet, 'AttrGet, 'AttrClear]-    type AttrSetTypeConstraint EventTouchpadPinchFieldInfo = (~) (Ptr EventTouchpadPinch)-    type AttrBaseTypeConstraint EventTouchpadPinchFieldInfo = (~) Event-    type AttrGetType EventTouchpadPinchFieldInfo = Maybe EventTouchpadPinch-    type AttrLabel EventTouchpadPinchFieldInfo = "touchpad_pinch"-    attrGet _ = eventReadTouchpadPinch-    attrSet _ = eventWriteTouchpadPinch-    attrConstruct = undefined-    attrClear _ = eventClearTouchpadPinch--eventTouchpadPinch :: AttrLabelProxy "touchpadPinch"-eventTouchpadPinch = AttrLabelProxy----type instance AttributeList Event = EventAttributeList-type EventAttributeList = ('[ '("type", EventTypeFieldInfo), '("any", EventAnyFieldInfo), '("expose", EventExposeFieldInfo), '("visibility", EventVisibilityFieldInfo), '("motion", EventMotionFieldInfo), '("button", EventButtonFieldInfo), '("touch", EventTouchFieldInfo), '("scroll", EventScrollFieldInfo), '("key", EventKeyFieldInfo), '("crossing", EventCrossingFieldInfo), '("focusChange", EventFocusChangeFieldInfo), '("configure", EventConfigureFieldInfo), '("property", EventPropertyFieldInfo), '("selection", EventSelectionFieldInfo), '("ownerChange", EventOwnerChangeFieldInfo), '("proximity", EventProximityFieldInfo), '("dnd", EventDndFieldInfo), '("windowState", EventWindowStateFieldInfo), '("setting", EventSettingFieldInfo), '("grabBroken", EventGrabBrokenFieldInfo), '("touchpadSwipe", EventTouchpadSwipeFieldInfo), '("touchpadPinch", EventTouchpadPinchFieldInfo)] :: [(Symbol, *)])---- method Event::new--- method type : Constructor--- Args : [Arg {argCName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Event")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_new" gdk_event_new :: -    CUInt ->                                -- type : TInterface "Gdk" "EventType"-    IO (Ptr Event)---eventNew ::-    (MonadIO m) =>-    EventType                               -- type_-    -> m Event                              -- result-eventNew type_ = liftIO $ do-    let type_' = (fromIntegral . fromEnum) type_-    result <- gdk_event_new type_'-    checkUnexpectedReturnNULL "gdk_event_new" result-    result' <- (wrapBoxed Event) result-    return result'---- method Event::copy--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Event")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_copy" gdk_event_copy :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO (Ptr Event)---eventCopy ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m Event                              -- result-eventCopy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_copy _obj'-    checkUnexpectedReturnNULL "gdk_event_copy" result-    result' <- (wrapBoxed Event) result-    touchManagedPtr _obj-    return result'--data EventCopyMethodInfo-instance (signature ~ (m Event), MonadIO m) => MethodInfo EventCopyMethodInfo Event signature where-    overloadedMethod _ = eventCopy---- method Event::free--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_event_free" gdk_event_free :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO ()---eventFree ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m ()                                 -- result-eventFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_event_free _obj'-    touchManagedPtr _obj-    return ()--data EventFreeMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo EventFreeMethodInfo Event signature where-    overloadedMethod _ = eventFree---- method Event::get_axis--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_axis" gdk_event_get_axis :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    CUInt ->                                -- axis_use : TInterface "Gdk" "AxisUse"-    Ptr CDouble ->                          -- value : TBasicType TDouble-    IO CInt---eventGetAxis ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> AxisUse                              -- axisUse-    -> m (Bool,Double)                      -- result-eventGetAxis _obj axisUse = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let axisUse' = (fromIntegral . fromEnum) axisUse-    value <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_axis _obj' axisUse' value-    let result' = (/= 0) result-    value' <- peek value-    let value'' = realToFrac value'-    touchManagedPtr _obj-    freeMem value-    return (result', value'')--data EventGetAxisMethodInfo-instance (signature ~ (AxisUse -> m (Bool,Double)), MonadIO m) => MethodInfo EventGetAxisMethodInfo Event signature where-    overloadedMethod _ = eventGetAxis---- method Event::get_button--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_button" gdk_event_get_button :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr Word32 ->                           -- button : TBasicType TUInt-    IO CInt---eventGetButton ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,Word32)                      -- result-eventGetButton _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    button <- allocMem :: IO (Ptr Word32)-    result <- gdk_event_get_button _obj' button-    let result' = (/= 0) result-    button' <- peek button-    touchManagedPtr _obj-    freeMem button-    return (result', button')--data EventGetButtonMethodInfo-instance (signature ~ (m (Bool,Word32)), MonadIO m) => MethodInfo EventGetButtonMethodInfo Event signature where-    overloadedMethod _ = eventGetButton---- method Event::get_click_count--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "click_count", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_click_count" gdk_event_get_click_count :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr Word32 ->                           -- click_count : TBasicType TUInt-    IO CInt---eventGetClickCount ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,Word32)                      -- result-eventGetClickCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    clickCount <- allocMem :: IO (Ptr Word32)-    result <- gdk_event_get_click_count _obj' clickCount-    let result' = (/= 0) result-    clickCount' <- peek clickCount-    touchManagedPtr _obj-    freeMem clickCount-    return (result', clickCount')--data EventGetClickCountMethodInfo-instance (signature ~ (m (Bool,Word32)), MonadIO m) => MethodInfo EventGetClickCountMethodInfo Event signature where-    overloadedMethod _ = eventGetClickCount---- method Event::get_coords--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_coords" gdk_event_get_coords :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr CDouble ->                          -- x_win : TBasicType TDouble-    Ptr CDouble ->                          -- y_win : TBasicType TDouble-    IO CInt---eventGetCoords ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,Double,Double)               -- result-eventGetCoords _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    xWin <- allocMem :: IO (Ptr CDouble)-    yWin <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_coords _obj' xWin yWin-    let result' = (/= 0) result-    xWin' <- peek xWin-    let xWin'' = realToFrac xWin'-    yWin' <- peek yWin-    let yWin'' = realToFrac yWin'-    touchManagedPtr _obj-    freeMem xWin-    freeMem yWin-    return (result', xWin'', yWin'')--data EventGetCoordsMethodInfo-instance (signature ~ (m (Bool,Double,Double)), MonadIO m) => MethodInfo EventGetCoordsMethodInfo Event signature where-    overloadedMethod _ = eventGetCoords---- method Event::get_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Device")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_device" gdk_event_get_device :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO (Ptr Device)---eventGetDevice ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Maybe Device)                     -- result-eventGetDevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_device _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Device) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data EventGetDeviceMethodInfo-instance (signature ~ (m (Maybe Device)), MonadIO m) => MethodInfo EventGetDeviceMethodInfo Event signature where-    overloadedMethod _ = eventGetDevice---- method Event::get_event_sequence--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "EventSequence")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_event_sequence" gdk_event_get_event_sequence :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO (Ptr EventSequence)---eventGetEventSequence ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m EventSequence                      -- result-eventGetEventSequence _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_event_sequence _obj'-    checkUnexpectedReturnNULL "gdk_event_get_event_sequence" result-    result' <- (newBoxed EventSequence) result-    touchManagedPtr _obj-    return result'--data EventGetEventSequenceMethodInfo-instance (signature ~ (m EventSequence), MonadIO m) => MethodInfo EventGetEventSequenceMethodInfo Event signature where-    overloadedMethod _ = eventGetEventSequence---- method Event::get_event_type--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "EventType")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_event_type" gdk_event_get_event_type :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO CUInt---eventGetEventType ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m EventType                          -- result-eventGetEventType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_event_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'--data EventGetEventTypeMethodInfo-instance (signature ~ (m EventType), MonadIO m) => MethodInfo EventGetEventTypeMethodInfo Event signature where-    overloadedMethod _ = eventGetEventType---- method Event::get_keycode--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keycode", argType = TBasicType TUInt16, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_keycode" gdk_event_get_keycode :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr Word16 ->                           -- keycode : TBasicType TUInt16-    IO CInt---eventGetKeycode ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,Word16)                      -- result-eventGetKeycode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    keycode <- allocMem :: IO (Ptr Word16)-    result <- gdk_event_get_keycode _obj' keycode-    let result' = (/= 0) result-    keycode' <- peek keycode-    touchManagedPtr _obj-    freeMem keycode-    return (result', keycode')--data EventGetKeycodeMethodInfo-instance (signature ~ (m (Bool,Word16)), MonadIO m) => MethodInfo EventGetKeycodeMethodInfo Event signature where-    overloadedMethod _ = eventGetKeycode---- method Event::get_keyval--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_keyval" gdk_event_get_keyval :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr Word32 ->                           -- keyval : TBasicType TUInt-    IO CInt---eventGetKeyval ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,Word32)                      -- result-eventGetKeyval _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    keyval <- allocMem :: IO (Ptr Word32)-    result <- gdk_event_get_keyval _obj' keyval-    let result' = (/= 0) result-    keyval' <- peek keyval-    touchManagedPtr _obj-    freeMem keyval-    return (result', keyval')--data EventGetKeyvalMethodInfo-instance (signature ~ (m (Bool,Word32)), MonadIO m) => MethodInfo EventGetKeyvalMethodInfo Event signature where-    overloadedMethod _ = eventGetKeyval---- method Event::get_root_coords--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_root_coords" gdk_event_get_root_coords :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr CDouble ->                          -- x_root : TBasicType TDouble-    Ptr CDouble ->                          -- y_root : TBasicType TDouble-    IO CInt---eventGetRootCoords ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,Double,Double)               -- result-eventGetRootCoords _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    xRoot <- allocMem :: IO (Ptr CDouble)-    yRoot <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_root_coords _obj' xRoot yRoot-    let result' = (/= 0) result-    xRoot' <- peek xRoot-    let xRoot'' = realToFrac xRoot'-    yRoot' <- peek yRoot-    let yRoot'' = realToFrac yRoot'-    touchManagedPtr _obj-    freeMem xRoot-    freeMem yRoot-    return (result', xRoot'', yRoot'')--data EventGetRootCoordsMethodInfo-instance (signature ~ (m (Bool,Double,Double)), MonadIO m) => MethodInfo EventGetRootCoordsMethodInfo Event signature where-    overloadedMethod _ = eventGetRootCoords---- method Event::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Screen")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_screen" gdk_event_get_screen :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO (Ptr Screen)---eventGetScreen ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m Screen                             -- result-eventGetScreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_screen _obj'-    checkUnexpectedReturnNULL "gdk_event_get_screen" result-    result' <- (newObject Screen) result-    touchManagedPtr _obj-    return result'--data EventGetScreenMethodInfo-instance (signature ~ (m Screen), MonadIO m) => MethodInfo EventGetScreenMethodInfo Event signature where-    overloadedMethod _ = eventGetScreen---- method Event::get_scroll_deltas--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "delta_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "delta_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_scroll_deltas" gdk_event_get_scroll_deltas :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr CDouble ->                          -- delta_x : TBasicType TDouble-    Ptr CDouble ->                          -- delta_y : TBasicType TDouble-    IO CInt---eventGetScrollDeltas ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,Double,Double)               -- result-eventGetScrollDeltas _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    deltaX <- allocMem :: IO (Ptr CDouble)-    deltaY <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_scroll_deltas _obj' deltaX deltaY-    let result' = (/= 0) result-    deltaX' <- peek deltaX-    let deltaX'' = realToFrac deltaX'-    deltaY' <- peek deltaY-    let deltaY'' = realToFrac deltaY'-    touchManagedPtr _obj-    freeMem deltaX-    freeMem deltaY-    return (result', deltaX'', deltaY'')--data EventGetScrollDeltasMethodInfo-instance (signature ~ (m (Bool,Double,Double)), MonadIO m) => MethodInfo EventGetScrollDeltasMethodInfo Event signature where-    overloadedMethod _ = eventGetScrollDeltas---- method Event::get_scroll_direction--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "direction", argType = TInterface "Gdk" "ScrollDirection", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_scroll_direction" gdk_event_get_scroll_direction :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr CUInt ->                            -- direction : TInterface "Gdk" "ScrollDirection"-    IO CInt---eventGetScrollDirection ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,ScrollDirection)             -- result-eventGetScrollDirection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    direction <- allocMem :: IO (Ptr CUInt)-    result <- gdk_event_get_scroll_direction _obj' direction-    let result' = (/= 0) result-    direction' <- peek direction-    let direction'' = (toEnum . fromIntegral) direction'-    touchManagedPtr _obj-    freeMem direction-    return (result', direction'')--data EventGetScrollDirectionMethodInfo-instance (signature ~ (m (Bool,ScrollDirection)), MonadIO m) => MethodInfo EventGetScrollDirectionMethodInfo Event signature where-    overloadedMethod _ = eventGetScrollDirection---- method Event::get_source_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Device")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_source_device" gdk_event_get_source_device :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO (Ptr Device)---eventGetSourceDevice ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Maybe Device)                     -- result-eventGetSourceDevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_source_device _obj'-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (newObject Device) result'-        return result''-    touchManagedPtr _obj-    return maybeResult--data EventGetSourceDeviceMethodInfo-instance (signature ~ (m (Maybe Device)), MonadIO m) => MethodInfo EventGetSourceDeviceMethodInfo Event signature where-    overloadedMethod _ = eventGetSourceDevice---- method Event::get_state--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_state" gdk_event_get_state :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr CUInt ->                            -- state : TInterface "Gdk" "ModifierType"-    IO CInt---eventGetState ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m (Bool,[ModifierType])              -- result-eventGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    state <- allocMem :: IO (Ptr CUInt)-    result <- gdk_event_get_state _obj' state-    let result' = (/= 0) result-    state' <- peek state-    let state'' = wordToGFlags state'-    touchManagedPtr _obj-    freeMem state-    return (result', state'')--data EventGetStateMethodInfo-instance (signature ~ (m (Bool,[ModifierType])), MonadIO m) => MethodInfo EventGetStateMethodInfo Event signature where-    overloadedMethod _ = eventGetState---- method Event::get_time--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TUInt32)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_time" gdk_event_get_time :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO Word32---eventGetTime ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m Word32                             -- result-eventGetTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_time _obj'-    touchManagedPtr _obj-    return result--data EventGetTimeMethodInfo-instance (signature ~ (m Word32), MonadIO m) => MethodInfo EventGetTimeMethodInfo Event signature where-    overloadedMethod _ = eventGetTime---- method Event::get_window--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TInterface "Gdk" "Window")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get_window" gdk_event_get_window :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO (Ptr Window)---eventGetWindow ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m Window                             -- result-eventGetWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_window _obj'-    checkUnexpectedReturnNULL "gdk_event_get_window" result-    result' <- (newObject Window) result-    touchManagedPtr _obj-    return result'--data EventGetWindowMethodInfo-instance (signature ~ (m Window), MonadIO m) => MethodInfo EventGetWindowMethodInfo Event signature where-    overloadedMethod _ = eventGetWindow---- method Event::put--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_event_put" gdk_event_put :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO ()---eventPut ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m ()                                 -- result-eventPut _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_event_put _obj'-    touchManagedPtr _obj-    return ()--data EventPutMethodInfo-instance (signature ~ (m ()), MonadIO m) => MethodInfo EventPutMethodInfo Event signature where-    overloadedMethod _ = eventPut---- method Event::set_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_event_set_device" gdk_event_set_device :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    IO ()---eventSetDevice ::-    (MonadIO m, DeviceK a) =>-    Event                                   -- _obj-    -> a                                    -- device-    -> m ()                                 -- result-eventSetDevice _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    gdk_event_set_device _obj' device'-    touchManagedPtr _obj-    touchManagedPtr device-    return ()--data EventSetDeviceMethodInfo-instance (signature ~ (a -> m ()), MonadIO m, DeviceK a) => MethodInfo EventSetDeviceMethodInfo Event signature where-    overloadedMethod _ = eventSetDevice---- method Event::set_screen--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_event_set_screen" gdk_event_set_screen :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    IO ()---eventSetScreen ::-    (MonadIO m, ScreenK a) =>-    Event                                   -- _obj-    -> a                                    -- screen-    -> m ()                                 -- result-eventSetScreen _obj screen = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let screen' = unsafeManagedPtrCastPtr screen-    gdk_event_set_screen _obj' screen'-    touchManagedPtr _obj-    touchManagedPtr screen-    return ()--data EventSetScreenMethodInfo-instance (signature ~ (a -> m ()), MonadIO m, ScreenK a) => MethodInfo EventSetScreenMethodInfo Event signature where-    overloadedMethod _ = eventSetScreen---- method Event::set_source_device--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_event_set_source_device" gdk_event_set_source_device :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    Ptr Device ->                           -- device : TInterface "Gdk" "Device"-    IO ()---eventSetSourceDevice ::-    (MonadIO m, DeviceK a) =>-    Event                                   -- _obj-    -> a                                    -- device-    -> m ()                                 -- result-eventSetSourceDevice _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    gdk_event_set_source_device _obj' device'-    touchManagedPtr _obj-    touchManagedPtr device-    return ()--data EventSetSourceDeviceMethodInfo-instance (signature ~ (a -> m ()), MonadIO m, DeviceK a) => MethodInfo EventSetSourceDeviceMethodInfo Event signature where-    overloadedMethod _ = eventSetSourceDevice---- method Event::triggers_context_menu--- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Just (TBasicType TBoolean)--- throws : False--- Skip return : False--foreign import ccall "gdk_event_triggers_context_menu" gdk_event_triggers_context_menu :: -    Ptr Event ->                            -- _obj : TInterface "Gdk" "Event"-    IO CInt---eventTriggersContextMenu ::-    (MonadIO m) =>-    Event                                   -- _obj-    -> m Bool                               -- result-eventTriggersContextMenu _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_triggers_context_menu _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--data EventTriggersContextMenuMethodInfo-instance (signature ~ (m Bool), MonadIO m) => MethodInfo EventTriggersContextMenuMethodInfo Event signature where-    overloadedMethod _ = eventTriggersContextMenu---- method Event::get--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Event")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get" gdk_event_get :: -    IO (Ptr Event)---eventGet ::-    (MonadIO m) =>-    m (Maybe Event)                         -- result-eventGet  = liftIO $ do-    result <- gdk_event_get-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Event) result'-        return result''-    return maybeResult---- method Event::handler_set--- method type : MemberFunction--- Args : [Arg {argCName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_event_handler_set" gdk_event_handler_set :: -    FunPtr EventFuncC ->                    -- func : TInterface "Gdk" "EventFunc"-    Ptr () ->                               -- data : TBasicType TPtr-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO ()---eventHandlerSet ::-    (MonadIO m) =>-    EventFunc                               -- func-    -> m ()                                 -- result-eventHandlerSet func = liftIO $ do-    func' <- mkEventFunc (eventFuncWrapper Nothing func)-    let data_ = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    gdk_event_handler_set func' data_ notify-    return ()---- method Event::peek--- method type : MemberFunction--- Args : []--- Lengths : []--- returnType : Just (TInterface "Gdk" "Event")--- throws : False--- Skip return : False--foreign import ccall "gdk_event_peek" gdk_event_peek :: -    IO (Ptr Event)---eventPeek ::-    (MonadIO m) =>-    m (Maybe Event)                         -- result-eventPeek  = liftIO $ do-    result <- gdk_event_peek-    maybeResult <- convertIfNonNull result $ \result' -> do-        result'' <- (wrapBoxed Event) result'-        return result''-    return maybeResult---- method Event::request_motions--- method type : MemberFunction--- Args : [Arg {argCName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : []--- returnType : Nothing--- throws : False--- Skip return : False--foreign import ccall "gdk_event_request_motions" gdk_event_request_motions :: -    Ptr EventMotion ->                      -- event : TInterface "Gdk" "EventMotion"-    IO ()---eventRequestMotions ::-    (MonadIO m) =>-    EventMotion                             -- event-    -> m ()                                 -- result-eventRequestMotions event = liftIO $ do-    let event' = unsafeManagedPtrGetPtr event-    gdk_event_request_motions event'-    touchManagedPtr event-    return ()--type family ResolveEventMethod (t :: Symbol) (o :: *) :: * where-    ResolveEventMethod "copy" o = EventCopyMethodInfo-    ResolveEventMethod "free" o = EventFreeMethodInfo-    ResolveEventMethod "put" o = EventPutMethodInfo-    ResolveEventMethod "triggersContextMenu" o = EventTriggersContextMenuMethodInfo-    ResolveEventMethod "getAxis" o = EventGetAxisMethodInfo-    ResolveEventMethod "getButton" o = EventGetButtonMethodInfo-    ResolveEventMethod "getClickCount" o = EventGetClickCountMethodInfo-    ResolveEventMethod "getCoords" o = EventGetCoordsMethodInfo-    ResolveEventMethod "getDevice" o = EventGetDeviceMethodInfo-    ResolveEventMethod "getEventSequence" o = EventGetEventSequenceMethodInfo-    ResolveEventMethod "getEventType" o = EventGetEventTypeMethodInfo-    ResolveEventMethod "getKeycode" o = EventGetKeycodeMethodInfo-    ResolveEventMethod "getKeyval" o = EventGetKeyvalMethodInfo-    ResolveEventMethod "getRootCoords" o = EventGetRootCoordsMethodInfo-    ResolveEventMethod "getScreen" o = EventGetScreenMethodInfo-    ResolveEventMethod "getScrollDeltas" o = EventGetScrollDeltasMethodInfo-    ResolveEventMethod "getScrollDirection" o = EventGetScrollDirectionMethodInfo-    ResolveEventMethod "getSourceDevice" o = EventGetSourceDeviceMethodInfo-    ResolveEventMethod "getState" o = EventGetStateMethodInfo-    ResolveEventMethod "getTime" o = EventGetTimeMethodInfo-    ResolveEventMethod "getWindow" o = EventGetWindowMethodInfo-    ResolveEventMethod "setDevice" o = EventSetDeviceMethodInfo-    ResolveEventMethod "setScreen" o = EventSetScreenMethodInfo-    ResolveEventMethod "setSourceDevice" o = EventSetSourceDeviceMethodInfo-    ResolveEventMethod l o = MethodResolutionFailed l o--instance (info ~ ResolveEventMethod t Event, MethodInfo info Event p) => IsLabelProxy t (Event -> p) where-    fromLabelProxy _ = overloadedMethod (MethodProxy :: MethodProxy info)--#if MIN_VERSION_base(4,9,0)-instance (info ~ ResolveEventMethod t Event, MethodInfo info Event p) => IsLabel t (Event -> p) where-    fromLabel _ = overloadedMethod (MethodProxy :: MethodProxy info)-#endif--
− GI/Gdk/Unions/Event.hs-boot 
@@ -1,35 +0,0 @@-module GI.Gdk.Unions.Event where--import Data.GI.Base.ShortPrelude--import qualified Data.GI.Base.Attributes as GI.Attributes-import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Event = Event (ForeignPtr Event)-instance BoxedObject Event where-data EventCopyMethodInfo-data EventFreeMethodInfo-data EventGetAxisMethodInfo-data EventGetButtonMethodInfo-data EventGetClickCountMethodInfo-data EventGetCoordsMethodInfo-data EventGetDeviceMethodInfo-data EventGetEventSequenceMethodInfo-data EventGetEventTypeMethodInfo-data EventGetKeycodeMethodInfo-data EventGetKeyvalMethodInfo-data EventGetRootCoordsMethodInfo-data EventGetScreenMethodInfo-data EventGetScrollDeltasMethodInfo-data EventGetScrollDirectionMethodInfo-data EventGetSourceDeviceMethodInfo-data EventGetStateMethodInfo-data EventGetTimeMethodInfo-data EventGetWindowMethodInfo-data EventPutMethodInfo-data EventSetDeviceMethodInfo-data EventSetScreenMethodInfo-data EventSetSourceDeviceMethodInfo-data EventTriggersContextMenuMethodInfo
Setup.hs view
@@ -1,3 +1,12 @@-#!/usr/bin/env runhaskell-import Distribution.Simple-main = defaultMain+{-# LANGUAGE OverloadedStrings #-}++import Distribution.Simple (defaultMainWithHooks)+import Data.GI.CodeGen.CabalHooks (simpleHaskellGIHooks)++main = defaultMainWithHooks (simpleHaskellGIHooks name version verbose+                             overridesFile outputDir)+    where name = "Gdk"+          version = "3.0"+          verbose = False+          overridesFile = Nothing+          outputDir = Nothing
gi-gdk.cabal view
@@ -1,6 +1,5 @@--- Autogenerated, do not edit. name:               gi-gdk-version:            0.3.18.15+version:            3.0.1 synopsis:           Gdk bindings description:        Bindings for Gdk, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -9,81 +8,30 @@ author:             Will Thompson, Iñaki García Etxebarria and Jonas Platte maintainer:         Iñaki García Etxebarria (garetxe@gmail.com) category:           Bindings-build-type:         Simple-cabal-version:      >=1.10+build-type:         Custom+cabal-version:      >= 1.24 +custom-setup+  setup-depends: base >= 4.7,+                 Cabal >= 1.24,+                 haskell-gi >= 0.15+ library     default-language:   Haskell2010     default-extensions: NoImplicitPrelude, ScopedTypeVariables, CPP, OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts     other-extensions:   PatternSynonyms ViewPatterns     ghc-options:        -fno-warn-unused-imports -fno-warn-warnings-deprecations-    exposed-modules:    GI.Gdk.Types-                        GI.Gdk-                        GI.Gdk.Callbacks-                        GI.Gdk.Constants-                        GI.Gdk.Enums-                        GI.Gdk.Flags-                        GI.Gdk.Functions-                        GI.Gdk.Objects-                        GI.Gdk.Objects.AppLaunchContext-                        GI.Gdk.Objects.Cursor-                        GI.Gdk.Objects.Device-                        GI.Gdk.Objects.DeviceManager-                        GI.Gdk.Objects.Display-                        GI.Gdk.Objects.DisplayManager-                        GI.Gdk.Objects.DragContext-                        GI.Gdk.Objects.FrameClock-                        GI.Gdk.Objects.GLContext-                        GI.Gdk.Objects.Keymap-                        GI.Gdk.Objects.Screen-                        GI.Gdk.Objects.Visual-                        GI.Gdk.Objects.Window-                        GI.Gdk.Structs-                        GI.Gdk.Structs.Atom-                        GI.Gdk.Structs.Color-                        GI.Gdk.Structs.EventAny-                        GI.Gdk.Structs.EventButton-                        GI.Gdk.Structs.EventConfigure-                        GI.Gdk.Structs.EventCrossing-                        GI.Gdk.Structs.EventDND-                        GI.Gdk.Structs.EventExpose-                        GI.Gdk.Structs.EventFocus-                        GI.Gdk.Structs.EventGrabBroken-                        GI.Gdk.Structs.EventKey-                        GI.Gdk.Structs.EventMotion-                        GI.Gdk.Structs.EventOwnerChange-                        GI.Gdk.Structs.EventProperty-                        GI.Gdk.Structs.EventProximity-                        GI.Gdk.Structs.EventScroll-                        GI.Gdk.Structs.EventSelection-                        GI.Gdk.Structs.EventSequence-                        GI.Gdk.Structs.EventSetting-                        GI.Gdk.Structs.EventTouch-                        GI.Gdk.Structs.EventTouchpadPinch-                        GI.Gdk.Structs.EventTouchpadSwipe-                        GI.Gdk.Structs.EventVisibility-                        GI.Gdk.Structs.EventWindowState-                        GI.Gdk.Structs.FrameTimings-                        GI.Gdk.Structs.Geometry-                        GI.Gdk.Structs.KeymapKey-                        GI.Gdk.Structs.Point-                        GI.Gdk.Structs.RGBA-                        GI.Gdk.Structs.Rectangle-                        GI.Gdk.Structs.TimeCoord-                        GI.Gdk.Structs.WindowAttr-                        GI.Gdk.Structs.WindowRedirect-                        GI.Gdk.Unions-                        GI.Gdk.Unions.Event-    pkgconfig-depends:  gdk-3.0 >= 3.18++    pkgconfig-depends:  gdk-3.0     build-depends: base >= 4.7 && <5,         haskell-gi-base >= 0.15 && < 1,-        gi-glib >= 0.2.46.15 && < 0.2.47,-        gi-gobject >= 0.2.46.15 && < 0.2.47,-        gi-gdkpixbuf >= 0.2.32.15 && < 0.2.33,-        gi-gio >= 0.2.46.15 && < 0.2.47,-        gi-pango >= 0.1.38.15 && < 0.1.39,-        gi-cairo >= 0.1.14.15 && < 0.1.15,+        gi-glib == 2.0.*,+        gi-gobject == 2.0.*,+        gi-gdkpixbuf == 2.0.*,+        gi-gio == 2.0.*,+        gi-pango == 1.0.*,+        gi-cairo == 1.0.*,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,-        transformers >= 0.3+        transformers >= 0.5