packages feed

gi-gdk 0.3.16.12 → 0.3.18.10

raw patch · 101 files changed

+28329/−33929 lines, 101 filesdep ~gi-cairodep ~gi-gdkpixbufdep ~gi-gio

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

Files

GI/Gdk.hs view
@@ -1,40 +1,27611 @@--{- |-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                    ,---    ) 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 Prelude ()-import Data.GI.Base.ShortPrelude--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-+-- Generated code.++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,+    TypeFamilies, MultiParamTypeClasses, KindSignatures,+    FlexibleInstances, UndecidableInstances, DataKinds,+    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}++module GI.Gdk where++import Prelude ()+import Data.GI.Base.ShortPrelude+import Data.Char+import Data.Int+import Data.Word+import qualified Data.ByteString.Char8 as B+import Data.ByteString.Char8 (ByteString)+import qualified Data.Map as Map+import Foreign.C+import Foreign.Ptr+import Foreign.ForeignPtr+import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)+import Foreign.Storable (peek, poke, sizeOf)+import Control.Applicative ((<$>))+import Control.Exception (onException)+import Control.Monad.IO.Class+import qualified Data.Text as T++import Data.GI.Base.Attributes hiding (get, set)+import Data.GI.Base.BasicTypes+import Data.GI.Base.BasicConversions+import Data.GI.Base.Closure+import Data.GI.Base.GError+import Data.GI.Base.GHashTable+import Data.GI.Base.GParamSpec+import Data.GI.Base.GVariant+import Data.GI.Base.GValue+import Data.GI.Base.ManagedPtr+import Data.GI.Base.Overloading+import Data.GI.Base.Properties hiding (new)+import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)+import Data.GI.Base.Utils++import qualified GI.GLib as GLib+import qualified GI.GLibAttributes as GLibA+import qualified GI.GObject as GObject+import qualified GI.GObjectAttributes as GObjectA+import qualified GI.GdkPixbuf as GdkPixbuf+import qualified GI.GdkPixbufAttributes as GdkPixbufA+import qualified GI.Gio as Gio+import qualified GI.GioAttributes as GioA+import qualified GI.Pango as Pango+import qualified GI.PangoAttributes as PangoA+import qualified GI.Cairo as Cairo+import qualified GI.CairoAttributes as CairoA++-- object AppLaunchContext +newtype AppLaunchContext = AppLaunchContext (ForeignPtr AppLaunchContext)+noAppLaunchContext :: Maybe AppLaunchContext+noAppLaunchContext = Nothing++foreign import ccall "gdk_app_launch_context_get_type"+    c_gdk_app_launch_context_get_type :: IO GType++type instance ParentTypes AppLaunchContext = '[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++-- method AppLaunchContext::new+-- method type : Constructor+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+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 {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    IO ()+++appLaunchContextSetDesktop ::+    (MonadIO m, AppLaunchContextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- desktop+    m ()+appLaunchContextSetDesktop _obj desktop = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_app_launch_context_set_desktop _obj' desktop+    touchManagedPtr _obj+    return ()++-- method AppLaunchContext::set_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method AppLaunchContext::set_icon+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method AppLaunchContext::set_icon_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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) ->                       -- icon_name+    m ()+appLaunchContextSetIconName _obj icon_name = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeIcon_name <- case icon_name of+        Nothing -> return nullPtr+        Just jIcon_name -> do+            jIcon_name' <- textToCString jIcon_name+            return jIcon_name'+    gdk_app_launch_context_set_icon_name _obj' maybeIcon_name+    touchManagedPtr _obj+    freeMem maybeIcon_name+    return ()++-- method AppLaunchContext::set_screen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method AppLaunchContext::set_timestamp+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+appLaunchContextSetTimestamp _obj timestamp = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_app_launch_context_set_timestamp _obj' timestamp+    touchManagedPtr _obj+    return ()++-- struct Atom+newtype Atom = Atom (ForeignPtr Atom)+noAtom :: Maybe Atom+noAtom = Nothing++-- method Atom::name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- 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++-- 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++-- struct Color+newtype Color = Color (ForeignPtr Color)+noColor :: Maybe Color+noColor = Nothing++foreign import ccall "gdk_color_get_type" c_gdk_color_get_type :: +    IO GType++instance BoxedObject Color where+    boxedType _ = c_gdk_color_get_type++colorReadPixel :: Color -> IO Word32+colorReadPixel s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++colorReadRed :: Color -> IO Word16+colorReadRed s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Word16+    return val++colorReadGreen :: Color -> IO Word16+colorReadGreen s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 6) :: IO Word16+    return val++colorReadBlue :: Color -> IO Word16+colorReadBlue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Word16+    return val++-- method Color::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Color::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Color::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+colorFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    gdk_color_free _obj'+    touchManagedPtr _obj+    return ()++-- method Color::hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- 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+colorHash _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_color_hash _obj'+    touchManagedPtr _obj+    return result++-- method Color::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- 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++-- object Cursor +newtype Cursor = Cursor (ForeignPtr Cursor)+noCursor :: Maybe Cursor+noCursor = Nothing++foreign import ccall "gdk_cursor_get_type"+    c_gdk_cursor_get_type :: IO GType++type instance ParentTypes Cursor = '[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++-- method Cursor::new+-- method type : Constructor+-- Args : [Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                           -- cursor_type+    m Cursor+cursorNew cursor_type = liftIO $ do+    let cursor_type' = (fromIntegral . fromEnum) cursor_type+    result <- gdk_cursor_new cursor_type'+    checkUnexpectedReturnNULL "gdk_cursor_new" result+    result' <- (wrapObject Cursor) result+    return result'++-- method Cursor::new_for_display+-- method type : Constructor+-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                           -- cursor_type+    m Cursor+cursorNewForDisplay display cursor_type = liftIO $ do+    let display' = unsafeManagedPtrCastPtr display+    let cursor_type' = (fromIntegral . fromEnum) cursor_type+    result <- gdk_cursor_new_for_display display' cursor_type'+    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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Cursor+cursorNewFromName display name = liftIO $ do+    let display' = unsafeManagedPtrCastPtr display+    name' <- textToCString name+    result <- gdk_cursor_new_from_name display' name'+    checkUnexpectedReturnNULL "gdk_cursor_new_from_name" result+    result' <- (wrapObject Cursor) result+    touchManagedPtr display+    freeMem name'+    return result'++-- method Cursor::new_from_pixbuf+-- method type : Constructor+-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO (Ptr Cursor)+++cursorNewFromPixbuf ::+    (MonadIO m, DisplayK a, GdkPixbuf.PixbufK b) =>+    a ->                                    -- display+    b ->                                    -- pixbuf+    Int32 ->                                -- x+    Int32 ->                                -- y+    m Cursor+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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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 {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+cursorGetCursorType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_cursor_get_cursor_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Cursor::get_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Cursor::get_image+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 GdkPixbuf.Pixbuf+cursorGetImage _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_cursor_get_image _obj'+    checkUnexpectedReturnNULL "gdk_cursor_get_image" result+    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    touchManagedPtr _obj+    return result'++-- method Cursor::get_surface+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 (Cairo.Surface,Double,Double)+cursorGetSurface _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    x_hot <- allocMem :: IO (Ptr CDouble)+    y_hot <- allocMem :: IO (Ptr CDouble)+    result <- gdk_cursor_get_surface _obj' x_hot y_hot+    checkUnexpectedReturnNULL "gdk_cursor_get_surface" result+    result' <- (wrapBoxed Cairo.Surface) result+    x_hot' <- peek x_hot+    let x_hot'' = realToFrac x_hot'+    y_hot' <- peek y_hot+    let y_hot'' = realToFrac y_hot'+    touchManagedPtr _obj+    freeMem x_hot+    freeMem y_hot+    return (result', x_hot'', y_hot'')++-- method Cursor::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Cursor::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+cursorUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_cursor_unref _obj'+    touchManagedPtr _obj+    return ()++-- 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++-- object Device +newtype Device = Device (ForeignPtr Device)+noDevice :: Maybe Device+noDevice = Nothing++foreign import ccall "gdk_device_get_type"+    c_gdk_device_get_type :: IO GType++type instance ParentTypes Device = '[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++-- method Device::get_associated_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Device+deviceGetAssociatedDevice _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_associated_device _obj'+    checkUnexpectedReturnNULL "gdk_device_get_associated_device" result+    result' <- (newObject Device) result+    touchManagedPtr _obj+    return result'++-- method Device::get_axis_use+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    IO CUInt+++deviceGetAxisUse ::+    (MonadIO m, DeviceK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- index_+    m AxisUse+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'++-- method Device::get_device_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+deviceGetDeviceType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_device_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Device::get_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Device::get_has_cursor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+deviceGetHasCursor _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_has_cursor _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Device::get_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    Ptr Word32 ->                           -- keyval : TBasicType TUInt32+    Ptr CUInt ->                            -- modifiers : TInterface "Gdk" "ModifierType"+    IO CInt+++deviceGetKey ::+    (MonadIO m, DeviceK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- index_+    m (Bool,Word32,[ModifierType])+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'')++-- method Device::get_last_event_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Device::get_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+deviceGetMode _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_mode _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Device::get_n_axes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+deviceGetNAxes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_n_axes _obj'+    touchManagedPtr _obj+    return result++-- method Device::get_n_keys+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+deviceGetNKeys _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_n_keys _obj'+    touchManagedPtr _obj+    return result++-- method Device::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Device::get_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    IO ()+++deviceGetPosition ::+    (MonadIO m, DeviceK a) =>+    a ->                                    -- _obj+    m (Screen,Int32,Int32)+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')++-- method Device::get_position_double+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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)+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'')++-- method Device::get_product_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 T.Text+deviceGetProductId _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_product_id _obj'+    checkUnexpectedReturnNULL "gdk_device_get_product_id" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Device::get_source+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+deviceGetSource _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_source _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Device::get_vendor_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 T.Text+deviceGetVendorId _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_get_vendor_id _obj'+    checkUnexpectedReturnNULL "gdk_device_get_vendor_id" result+    result' <- cstringToText result+    touchManagedPtr _obj+    return result'++-- method Device::get_window_at_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr Int32 ->                            -- win_y : TBasicType TInt32+    IO (Ptr Window)+++deviceGetWindowAtPosition ::+    (MonadIO m, DeviceK a) =>+    a ->                                    -- _obj+    m (Window,Int32,Int32)+deviceGetWindowAtPosition _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    win_x <- allocMem :: IO (Ptr Int32)+    win_y <- allocMem :: IO (Ptr Int32)+    result <- gdk_device_get_window_at_position _obj' win_x win_y+    checkUnexpectedReturnNULL "gdk_device_get_window_at_position" result+    result' <- (newObject Window) result+    win_x' <- peek win_x+    win_y' <- peek win_y+    touchManagedPtr _obj+    freeMem win_x+    freeMem win_y+    return (result', win_x', win_y')++-- method Device::get_window_at_position_double+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 (Window,Double,Double)+deviceGetWindowAtPositionDouble _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    win_x <- allocMem :: IO (Ptr CDouble)+    win_y <- allocMem :: IO (Ptr CDouble)+    result <- gdk_device_get_window_at_position_double _obj' win_x win_y+    checkUnexpectedReturnNULL "gdk_device_get_window_at_position_double" result+    result' <- (newObject Window) result+    win_x' <- peek win_x+    let win_x'' = realToFrac win_x'+    win_y' <- peek win_y+    let win_y'' = realToFrac win_y'+    touchManagedPtr _obj+    freeMem win_x+    freeMem win_y+    return (result', win_x'', win_y'')++-- method Device::grab+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                        -- grab_ownership+    Bool ->                                 -- owner_events+    [EventMask] ->                          -- event_mask+    Maybe (c) ->                            -- cursor+    Word32 ->                               -- time_+    m GrabStatus+deviceGrab _obj window grab_ownership owner_events event_mask cursor time_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let window' = unsafeManagedPtrCastPtr window+    let grab_ownership' = (fromIntegral . fromEnum) grab_ownership+    let owner_events' = (fromIntegral . fromEnum) owner_events+    let event_mask' = gflagsToWord event_mask+    maybeCursor <- case cursor of+        Nothing -> return nullPtr+        Just jCursor -> do+            let jCursor' = unsafeManagedPtrCastPtr jCursor+            return jCursor'+    result <- gdk_device_grab _obj' window' grab_ownership' owner_events' event_mask' maybeCursor time_+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    touchManagedPtr window+    whenJust cursor touchManagedPtr+    return result'++-- method Device::list_axes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+deviceListAxes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_list_axes _obj'+    checkUnexpectedReturnNULL "gdk_device_list_axes" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- unpackGList result+    result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- method Device::list_slave_devices+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+deviceListSlaveDevices _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_list_slave_devices _obj'+    checkUnexpectedReturnNULL "gdk_device_list_slave_devices" result+    result' <- unpackGList result+    result'' <- mapM (newObject Device) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- method Device::set_axis_use+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TUInt32+    CUInt ->                                -- use : TInterface "Gdk" "AxisUse"+    IO ()+++deviceSetAxisUse ::+    (MonadIO m, DeviceK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- index_+    AxisUse ->                              -- use+    m ()+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 ()++-- method Device::set_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TUInt32+    Word32 ->                               -- keyval : TBasicType TUInt32+    CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"+    IO ()+++deviceSetKey ::+    (MonadIO m, DeviceK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- index_+    Word32 ->                               -- keyval+    [ModifierType] ->                       -- modifiers+    m ()+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 ()++-- method Device::set_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Device::ungrab+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+deviceUngrab _obj time_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_device_ungrab _obj' time_+    touchManagedPtr _obj+    return ()++-- method Device::warp+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO ()+++deviceWarp ::+    (MonadIO m, DeviceK a, ScreenK b) =>+    a ->                                    -- _obj+    b ->                                    -- screen+    Int32 ->                                -- x+    Int32 ->                                -- y+    m ()+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 ()++-- method Device::grab_info_libgtk_only+-- method type : MemberFunction+-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+deviceGrabInfoLibgtkOnly display device = liftIO $ do+    let display' = unsafeManagedPtrCastPtr display+    let device' = unsafeManagedPtrCastPtr device+    grab_window <- allocMem :: IO (Ptr (Ptr Window))+    owner_events <- allocMem :: IO (Ptr CInt)+    result <- gdk_device_grab_info_libgtk_only display' device' grab_window owner_events+    let result' = (/= 0) result+    grab_window' <- peek grab_window+    grab_window'' <- (newObject Window) grab_window'+    owner_events' <- peek owner_events+    let owner_events'' = (/= 0) owner_events'+    touchManagedPtr display+    touchManagedPtr device+    freeMem grab_window+    freeMem owner_events+    return (result', grab_window'', owner_events'')++-- 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++-- object DeviceManager +newtype DeviceManager = DeviceManager (ForeignPtr DeviceManager)+noDeviceManager :: Maybe DeviceManager+noDeviceManager = Nothing++foreign import ccall "gdk_device_manager_get_type"+    c_gdk_device_manager_get_type :: IO GType++type instance ParentTypes DeviceManager = '[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++-- method DeviceManager::get_client_pointer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method DeviceManager::get_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Display+deviceManagerGetDisplay _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_device_manager_get_display _obj'+    checkUnexpectedReturnNULL "gdk_device_manager_get_display" result+    result' <- (newObject Display) result+    touchManagedPtr _obj+    return result'++-- method DeviceManager::list_devices+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+deviceManagerListDevices _obj type_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let type_' = (fromIntegral . fromEnum) type_+    result <- gdk_device_manager_list_devices _obj' type_'+    checkUnexpectedReturnNULL "gdk_device_manager_list_devices" result+    result' <- unpackGList result+    result'' <- mapM (newObject Device) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- 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++-- 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++-- object Display +newtype Display = Display (ForeignPtr Display)+noDisplay :: Maybe Display+noDisplay = Nothing++foreign import ccall "gdk_display_get_type"+    c_gdk_display_get_type :: IO GType++type instance ParentTypes Display = '[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++-- method Display::beep+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+displayBeep _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_beep _obj'+    touchManagedPtr _obj+    return ()++-- method Display::close+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+displayClose _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_close _obj'+    touchManagedPtr _obj+    return ()++-- method Display::device_is_grabbed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Display::flush+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+displayFlush _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_flush _obj'+    touchManagedPtr _obj+    return ()++-- method Display::get_app_launch_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Display::get_default_cursor_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- 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+displayGetDefaultCursorSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_get_default_cursor_size _obj'+    touchManagedPtr _obj+    return result++-- method Display::get_default_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Display::get_default_screen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Display::get_device_manager+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 DeviceManager+displayGetDeviceManager _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_get_device_manager _obj'+    checkUnexpectedReturnNULL "gdk_display_get_device_manager" result+    result' <- (newObject DeviceManager) result+    touchManagedPtr _obj+    return result'++-- method Display::get_event+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Event+displayGetEvent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_get_event _obj'+    checkUnexpectedReturnNULL "gdk_display_get_event" result+    result' <- (wrapBoxed Event) result+    touchManagedPtr _obj+    return result'++-- method Display::get_maximal_cursor_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TUInt32+    Ptr Word32 ->                           -- height : TBasicType TUInt32+    IO ()+++displayGetMaximalCursorSize ::+    (MonadIO m, DisplayK a) =>+    a ->                                    -- _obj+    m (Word32,Word32)+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')++-- method Display::get_n_screens+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+displayGetNScreens _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_get_n_screens _obj'+    touchManagedPtr _obj+    return result++-- method Display::get_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Display::get_pointer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    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])+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'')++-- method Display::get_screen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    IO (Ptr Screen)+++displayGetScreen ::+    (MonadIO m, DisplayK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- screen_num+    m Screen+displayGetScreen _obj screen_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_get_screen _obj' screen_num+    checkUnexpectedReturnNULL "gdk_display_get_screen" result+    result' <- (newObject Screen) result+    touchManagedPtr _obj+    return result'++-- method Display::get_window_at_pointer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr Int32 ->                            -- win_y : TBasicType TInt32+    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 (Window,Int32,Int32)+displayGetWindowAtPointer _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    win_x <- allocMem :: IO (Ptr Int32)+    win_y <- allocMem :: IO (Ptr Int32)+    result <- gdk_display_get_window_at_pointer _obj' win_x win_y+    checkUnexpectedReturnNULL "gdk_display_get_window_at_pointer" result+    result' <- (newObject Window) result+    win_x' <- peek win_x+    win_y' <- peek win_y+    touchManagedPtr _obj+    freeMem win_x+    freeMem win_y+    return (result', win_x', win_y')++-- method Display::has_pending+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displayHasPending _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_has_pending _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::is_closed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displayIsClosed _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_is_closed _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::keyboard_ungrab+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+displayKeyboardUngrab _obj time_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_keyboard_ungrab _obj' time_+    touchManagedPtr _obj+    return ()++-- method Display::list_devices+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+displayListDevices _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_list_devices _obj'+    checkUnexpectedReturnNULL "gdk_display_list_devices" result+    result' <- unpackGList result+    result'' <- mapM (newObject Device) result'+    touchManagedPtr _obj+    return result''++-- method Display::notify_startup_complete+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                               -- startup_id+    m ()+displayNotifyStartupComplete _obj startup_id = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    startup_id' <- textToCString startup_id+    gdk_display_notify_startup_complete _obj' startup_id'+    touchManagedPtr _obj+    freeMem startup_id'+    return ()++-- method Display::peek_event+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Event+displayPeekEvent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_peek_event _obj'+    checkUnexpectedReturnNULL "gdk_display_peek_event" result+    result' <- (wrapBoxed Event) result+    touchManagedPtr _obj+    return result'++-- method Display::pointer_is_grabbed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displayPointerIsGrabbed _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_pointer_is_grabbed _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::pointer_ungrab+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+displayPointerUngrab _obj time_ = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_pointer_ungrab _obj' time_+    touchManagedPtr _obj+    return ()++-- method Display::put_event+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+displayPutEvent _obj event = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let event' = unsafeManagedPtrGetPtr event+    gdk_display_put_event _obj' event'+    touchManagedPtr _obj+    touchManagedPtr event+    return ()++-- method Display::request_selection_notification+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Display::set_double_click_distance+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TUInt32+    IO ()+++displaySetDoubleClickDistance ::+    (MonadIO m, DisplayK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- distance+    m ()+displaySetDoubleClickDistance _obj distance = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_set_double_click_distance _obj' distance+    touchManagedPtr _obj+    return ()++-- method Display::set_double_click_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TUInt32+    IO ()+++displaySetDoubleClickTime ::+    (MonadIO m, DisplayK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- msec+    m ()+displaySetDoubleClickTime _obj msec = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_set_double_click_time _obj' msec+    touchManagedPtr _obj+    return ()++-- method Display::store_clipboard+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    IO ()+++displayStoreClipboard ::+    (MonadIO m, DisplayK a, WindowK b) =>+    a ->                                    -- _obj+    b ->                                    -- clipboard_window+    Word32 ->                               -- time_+    [Atom] ->                               -- targets+    m ()+displayStoreClipboard _obj clipboard_window time_ targets = liftIO $ do+    let n_targets = fromIntegral $ length targets+    let _obj' = unsafeManagedPtrCastPtr _obj+    let clipboard_window' = unsafeManagedPtrCastPtr clipboard_window+    let targets' = map unsafeManagedPtrGetPtr targets+    targets'' <- packPtrArray targets'+    gdk_display_store_clipboard _obj' clipboard_window' time_ targets'' n_targets+    touchManagedPtr _obj+    touchManagedPtr clipboard_window+    mapM_ touchManagedPtr targets+    freeMem targets''+    return ()++-- method Display::supports_clipboard_persistence+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displaySupportsClipboardPersistence _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_supports_clipboard_persistence _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::supports_composite+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displaySupportsComposite _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_supports_composite _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::supports_cursor_alpha+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displaySupportsCursorAlpha _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_supports_cursor_alpha _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::supports_cursor_color+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displaySupportsCursorColor _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_supports_cursor_color _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::supports_input_shapes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displaySupportsInputShapes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_supports_input_shapes _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::supports_selection_notification+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displaySupportsSelectionNotification _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_supports_selection_notification _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::supports_shapes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+displaySupportsShapes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_supports_shapes _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Display::sync+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+displaySync _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_display_sync _obj'+    touchManagedPtr _obj+    return ()++-- method Display::warp_pointer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    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 ()+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 ()++-- method Display::get_default+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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 Display+displayGetDefault  = liftIO $ do+    result <- gdk_display_get_default+    checkUnexpectedReturnNULL "gdk_display_get_default" result+    result' <- (newObject Display) result+    return result'++-- method Display::open+-- method type : MemberFunction+-- Args : [Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                               -- display_name+    m Display+displayOpen display_name = liftIO $ do+    display_name' <- textToCString display_name+    result <- gdk_display_open display_name'+    checkUnexpectedReturnNULL "gdk_display_open" result+    result' <- (newObject Display) result+    freeMem display_name'+    return result'++-- method Display::open_default_libgtk_only+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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 Display+displayOpenDefaultLibgtkOnly  = liftIO $ do+    result <- gdk_display_open_default_libgtk_only+    checkUnexpectedReturnNULL "gdk_display_open_default_libgtk_only" result+    result' <- (newObject Display) result+    return result'++-- 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 _ is_error _ = do+    let is_error' = (/= 0) is_error+    _cb  is_error'++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++-- object DisplayManager +newtype DisplayManager = DisplayManager (ForeignPtr DisplayManager)+noDisplayManager :: Maybe DisplayManager+noDisplayManager = Nothing++foreign import ccall "gdk_display_manager_get_type"+    c_gdk_display_manager_get_type :: IO GType++type instance ParentTypes DisplayManager = '[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++-- method DisplayManager::get_default_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Display+displayManagerGetDefaultDisplay _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_manager_get_default_display _obj'+    checkUnexpectedReturnNULL "gdk_display_manager_get_default_display" result+    result' <- (newObject Display) result+    touchManagedPtr _obj+    return result'++-- method DisplayManager::list_displays+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+displayManagerListDisplays _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_display_manager_list_displays _obj'+    checkUnexpectedReturnNULL "gdk_display_manager_list_displays" result+    result' <- unpackGSList result+    result'' <- mapM (newObject Display) result'+    g_slist_free result+    touchManagedPtr _obj+    return result''++-- method DisplayManager::open_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Display+displayManagerOpenDisplay _obj name = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    name' <- textToCString name+    result <- gdk_display_manager_open_display _obj' name'+    checkUnexpectedReturnNULL "gdk_display_manager_open_display" result+    result' <- (newObject Display) result+    touchManagedPtr _obj+    freeMem name'+    return result'++-- method DisplayManager::set_default_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method DisplayManager::get+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+displayManagerGet  = liftIO $ do+    result <- gdk_display_manager_get+    checkUnexpectedReturnNULL "gdk_display_manager_get" result+    result' <- (newObject DisplayManager) result+    return result'++-- 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++-- 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 BoxedEnum DragAction where+    boxedEnumType _ = c_gdk_drag_action_get_type++instance IsGFlag DragAction++-- object DragContext +newtype DragContext = DragContext (ForeignPtr DragContext)+noDragContext :: Maybe DragContext+noDragContext = Nothing++foreign import ccall "gdk_drag_context_get_type"+    c_gdk_drag_context_get_type :: IO GType++type instance ParentTypes DragContext = '[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++-- method DragContext::get_actions+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+dragContextGetActions _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_drag_context_get_actions _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method DragContext::get_dest_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method DragContext::get_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method DragContext::get_protocol+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+dragContextGetProtocol _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_drag_context_get_protocol _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method DragContext::get_selected_action+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+dragContextGetSelectedAction _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_drag_context_get_selected_action _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method DragContext::get_source_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method DragContext::get_suggested_action+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+dragContextGetSuggestedAction _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_drag_context_get_suggested_action _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method DragContext::list_targets+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+dragContextListTargets _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_drag_context_list_targets _obj'+    checkUnexpectedReturnNULL "gdk_drag_context_list_targets" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- unpackGList result+    result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result'+    touchManagedPtr _obj+    return result''++-- method DragContext::set_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- 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++-- union Event +newtype Event = Event (ForeignPtr Event)+noEvent :: Maybe Event+noEvent = Nothing++foreign import ccall "gdk_event_get_type" c_gdk_event_get_type :: +    IO GType++instance BoxedObject Event where+    boxedType _ = c_gdk_event_get_type++eventReadType :: Event -> IO EventType+eventReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventReadAny :: Event -> IO EventAny+eventReadAny s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventAny)+    val' <- (newPtr 24 EventAny) val+    return val'++eventReadExpose :: Event -> IO EventExpose+eventReadExpose s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventExpose)+    val' <- (newPtr 56 EventExpose) val+    return val'++eventReadVisibility :: Event -> IO EventVisibility+eventReadVisibility s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventVisibility)+    val' <- (newPtr 24 EventVisibility) val+    return val'++eventReadMotion :: Event -> IO EventMotion+eventReadMotion s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventMotion)+    val' <- (newPtr 80 EventMotion) val+    return val'++eventReadButton :: Event -> IO EventButton+eventReadButton s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventButton)+    val' <- (newPtr 80 EventButton) val+    return val'++eventReadTouch :: Event -> IO EventTouch+eventReadTouch s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouch)+    val' <- (newPtr 96 EventTouch) val+    return val'++eventReadScroll :: Event -> IO EventScroll+eventReadScroll s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventScroll)+    val' <- (newPtr 88 EventScroll) val+    return val'++eventReadKey :: Event -> IO EventKey+eventReadKey s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventKey)+    val' <- (newPtr 56 EventKey) val+    return val'++eventReadCrossing :: Event -> IO EventCrossing+eventReadCrossing s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventCrossing)+    val' <- (newPtr 88 EventCrossing) val+    return val'++eventReadFocusChange :: Event -> IO EventFocus+eventReadFocusChange s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventFocus)+    val' <- (newPtr 24 EventFocus) val+    return val'++eventReadConfigure :: Event -> IO EventConfigure+eventReadConfigure s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventConfigure)+    val' <- (newPtr 40 EventConfigure) val+    return val'++eventReadProperty :: Event -> IO EventProperty+eventReadProperty s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProperty)+    val' <- (newPtr 40 EventProperty) val+    return val'++eventReadSelection :: Event -> IO EventSelection+eventReadSelection s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSelection)+    val' <- (newPtr 64 EventSelection) val+    return val'++eventReadOwnerChange :: Event -> IO EventOwnerChange+eventReadOwnerChange s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventOwnerChange)+    val' <- (newPtr 56 EventOwnerChange) val+    return val'++eventReadProximity :: Event -> IO EventProximity+eventReadProximity s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProximity)+    val' <- (newPtr 32 EventProximity) val+    return val'++eventReadDnd :: Event -> IO EventDND+eventReadDnd s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventDND)+    val' <- (newPtr 40 EventDND) val+    return val'++eventReadWindowState :: Event -> IO EventWindowState+eventReadWindowState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventWindowState)+    val' <- (newPtr 32 EventWindowState) val+    return val'++eventReadSetting :: Event -> IO EventSetting+eventReadSetting s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSetting)+    val' <- (newPtr 32 EventSetting) val+    return val'++eventReadGrabBroken :: Event -> IO EventGrabBroken+eventReadGrabBroken s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventGrabBroken)+    val' <- (newPtr 40 EventGrabBroken) val+    return val'++eventReadTouchpadSwipe :: Event -> IO EventTouchpadSwipe+eventReadTouchpadSwipe s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadSwipe)+    val' <- (newPtr 88 EventTouchpadSwipe) val+    return val'++eventReadTouchpadPinch :: Event -> IO EventTouchpadPinch+eventReadTouchpadPinch s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouchpadPinch)+    val' <- (newPtr 104 EventTouchpadPinch) val+    return val'++-- method Event::new+-- method type : Constructor+-- Args : [Arg {argName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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 {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Event::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+eventFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    gdk_event_free _obj'+    touchManagedPtr _obj+    return ()++-- method Event::get_axis+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                              -- axis_use+    m (Bool,Double)+eventGetAxis _obj axis_use = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let axis_use' = (fromIntegral . fromEnum) axis_use+    value <- allocMem :: IO (Ptr CDouble)+    result <- gdk_event_get_axis _obj' axis_use' value+    let result' = (/= 0) result+    value' <- peek value+    let value'' = realToFrac value'+    touchManagedPtr _obj+    freeMem value+    return (result', value'')++-- method Event::get_button+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    IO CInt+++eventGetButton ::+    (MonadIO m) =>+    Event ->                                -- _obj+    m (Bool,Word32)+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')++-- method Event::get_click_count+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "click_count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    IO CInt+++eventGetClickCount ::+    (MonadIO m) =>+    Event ->                                -- _obj+    m (Bool,Word32)+eventGetClickCount _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    click_count <- allocMem :: IO (Ptr Word32)+    result <- gdk_event_get_click_count _obj' click_count+    let result' = (/= 0) result+    click_count' <- peek click_count+    touchManagedPtr _obj+    freeMem click_count+    return (result', click_count')++-- method Event::get_coords+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+eventGetCoords _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    x_win <- allocMem :: IO (Ptr CDouble)+    y_win <- allocMem :: IO (Ptr CDouble)+    result <- gdk_event_get_coords _obj' x_win y_win+    let result' = (/= 0) result+    x_win' <- peek x_win+    let x_win'' = realToFrac x_win'+    y_win' <- peek y_win+    let y_win'' = realToFrac y_win'+    touchManagedPtr _obj+    freeMem x_win+    freeMem y_win+    return (result', x_win'', y_win'')++-- method Event::get_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Device+eventGetDevice _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_event_get_device _obj'+    checkUnexpectedReturnNULL "gdk_event_get_device" result+    result' <- (newObject Device) result+    touchManagedPtr _obj+    return result'++-- method Event::get_event_sequence+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Event::get_event_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+eventGetEventType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_event_get_event_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Event::get_keycode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt16, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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')++-- method Event::get_keyval+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    IO CInt+++eventGetKeyval ::+    (MonadIO m) =>+    Event ->                                -- _obj+    m (Bool,Word32)+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')++-- method Event::get_root_coords+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+eventGetRootCoords _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    x_root <- allocMem :: IO (Ptr CDouble)+    y_root <- allocMem :: IO (Ptr CDouble)+    result <- gdk_event_get_root_coords _obj' x_root y_root+    let result' = (/= 0) result+    x_root' <- peek x_root+    let x_root'' = realToFrac x_root'+    y_root' <- peek y_root+    let y_root'' = realToFrac y_root'+    touchManagedPtr _obj+    freeMem x_root+    freeMem y_root+    return (result', x_root'', y_root'')++-- method Event::get_screen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Event::get_scroll_deltas+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delta_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "delta_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+eventGetScrollDeltas _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    delta_x <- allocMem :: IO (Ptr CDouble)+    delta_y <- allocMem :: IO (Ptr CDouble)+    result <- gdk_event_get_scroll_deltas _obj' delta_x delta_y+    let result' = (/= 0) result+    delta_x' <- peek delta_x+    let delta_x'' = realToFrac delta_x'+    delta_y' <- peek delta_y+    let delta_y'' = realToFrac delta_y'+    touchManagedPtr _obj+    freeMem delta_x+    freeMem delta_y+    return (result', delta_x'', delta_y'')++-- method Event::get_scroll_direction+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gdk" "ScrollDirection", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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'')++-- method Event::get_source_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Device+eventGetSourceDevice _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_event_get_source_device _obj'+    checkUnexpectedReturnNULL "gdk_event_get_source_device" result+    result' <- (newObject Device) result+    touchManagedPtr _obj+    return result'++-- method Event::get_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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])+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'')++-- method Event::get_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+eventGetTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_event_get_time _obj'+    touchManagedPtr _obj+    return result++-- method Event::get_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Event::put+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+eventPut _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    gdk_event_put _obj'+    touchManagedPtr _obj+    return ()++-- method Event::set_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+eventSetDevice _obj device = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let device' = unsafeManagedPtrCastPtr device+    gdk_event_set_device _obj' device'+    touchManagedPtr _obj+    touchManagedPtr device+    return ()++-- method Event::set_screen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+eventSetScreen _obj screen = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    let screen' = unsafeManagedPtrCastPtr screen+    gdk_event_set_screen _obj' screen'+    touchManagedPtr _obj+    touchManagedPtr screen+    return ()++-- method Event::set_source_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Event::triggers_context_menu+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+eventTriggersContextMenu _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_event_triggers_context_menu _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- struct EventAny+newtype EventAny = EventAny (ForeignPtr EventAny)+noEventAny :: Maybe EventAny+noEventAny = Nothing++eventAnyReadType :: EventAny -> IO EventType+eventAnyReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventAnyReadWindow :: EventAny -> IO Window+eventAnyReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventAnyReadSendEvent :: EventAny -> IO Int8+eventAnyReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++-- struct EventButton+newtype EventButton = EventButton (ForeignPtr EventButton)+noEventButton :: Maybe EventButton+noEventButton = Nothing++eventButtonReadType :: EventButton -> IO EventType+eventButtonReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventButtonReadWindow :: EventButton -> IO Window+eventButtonReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventButtonReadSendEvent :: EventButton -> IO Int8+eventButtonReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventButtonReadTime :: EventButton -> IO Word32+eventButtonReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++eventButtonReadX :: EventButton -> IO Double+eventButtonReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CDouble+    let val' = realToFrac val+    return val'++eventButtonReadY :: EventButton -> IO Double+eventButtonReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++eventButtonReadAxes :: EventButton -> IO Double+eventButtonReadAxes s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++eventButtonReadState :: EventButton -> IO [ModifierType]+eventButtonReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CUInt+    let val' = wordToGFlags val+    return val'++eventButtonReadButton :: EventButton -> IO Word32+eventButtonReadButton s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 52) :: IO Word32+    return val++eventButtonReadDevice :: EventButton -> IO Device+eventButtonReadDevice s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device)+    val' <- (newObject Device) val+    return val'++eventButtonReadXRoot :: EventButton -> IO Double+eventButtonReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CDouble+    let val' = realToFrac val+    return val'++eventButtonReadYRoot :: EventButton -> IO Double+eventButtonReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO CDouble+    let val' = realToFrac val+    return val'++-- struct EventConfigure+newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure)+noEventConfigure :: Maybe EventConfigure+noEventConfigure = Nothing++eventConfigureReadType :: EventConfigure -> IO EventType+eventConfigureReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventConfigureReadWindow :: EventConfigure -> IO Window+eventConfigureReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventConfigureReadSendEvent :: EventConfigure -> IO Int8+eventConfigureReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventConfigureReadX :: EventConfigure -> IO Int32+eventConfigureReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Int32+    return val++eventConfigureReadY :: EventConfigure -> IO Int32+eventConfigureReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Int32+    return val++eventConfigureReadWidth :: EventConfigure -> IO Int32+eventConfigureReadWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Int32+    return val++eventConfigureReadHeight :: EventConfigure -> IO Int32+eventConfigureReadHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Int32+    return val++-- struct EventCrossing+newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing)+noEventCrossing :: Maybe EventCrossing+noEventCrossing = Nothing++eventCrossingReadType :: EventCrossing -> IO EventType+eventCrossingReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventCrossingReadWindow :: EventCrossing -> IO Window+eventCrossingReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventCrossingReadSendEvent :: EventCrossing -> IO Int8+eventCrossingReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventCrossingReadSubwindow :: EventCrossing -> IO Window+eventCrossingReadSubwindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventCrossingReadTime :: EventCrossing -> IO Word32+eventCrossingReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Word32+    return val++eventCrossingReadX :: EventCrossing -> IO Double+eventCrossingReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++eventCrossingReadY :: EventCrossing -> IO Double+eventCrossingReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CDouble+    let val' = realToFrac val+    return val'++eventCrossingReadXRoot :: EventCrossing -> IO Double+eventCrossingReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO CDouble+    let val' = realToFrac val+    return val'++eventCrossingReadYRoot :: EventCrossing -> IO Double+eventCrossingReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CDouble+    let val' = realToFrac val+    return val'++eventCrossingReadMode :: EventCrossing -> IO CrossingMode+eventCrossingReadMode s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventCrossingReadDetail :: EventCrossing -> IO NotifyType+eventCrossingReadDetail s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 76) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventCrossingReadFocus :: EventCrossing -> IO Bool+eventCrossingReadFocus s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 80) :: IO CInt+    let val' = (/= 0) val+    return val'++eventCrossingReadState :: EventCrossing -> IO [ModifierType]+eventCrossingReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 84) :: IO CUInt+    let val' = wordToGFlags val+    return val'++-- struct EventDND+newtype EventDND = EventDND (ForeignPtr EventDND)+noEventDND :: Maybe EventDND+noEventDND = Nothing++eventDNDReadType :: EventDND -> IO EventType+eventDNDReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventDNDReadWindow :: EventDND -> IO Window+eventDNDReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventDNDReadSendEvent :: EventDND -> IO Int8+eventDNDReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventDNDReadContext :: EventDND -> IO DragContext+eventDNDReadContext s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr DragContext)+    val' <- (newObject DragContext) val+    return val'++eventDNDReadTime :: EventDND -> IO Word32+eventDNDReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Word32+    return val++eventDNDReadXRoot :: EventDND -> IO Int16+eventDNDReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 36) :: IO Int16+    return val++eventDNDReadYRoot :: EventDND -> IO Int16+eventDNDReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 38) :: IO Int16+    return val++-- struct EventExpose+newtype EventExpose = EventExpose (ForeignPtr EventExpose)+noEventExpose :: Maybe EventExpose+noEventExpose = Nothing++eventExposeReadType :: EventExpose -> IO EventType+eventExposeReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventExposeReadWindow :: EventExpose -> IO Window+eventExposeReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventExposeReadSendEvent :: EventExpose -> IO Int8+eventExposeReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventExposeReadArea :: EventExpose -> IO Rectangle+eventExposeReadArea s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO (Ptr Rectangle)+    val' <- (newBoxed Rectangle) val+    return val'++eventExposeReadRegion :: EventExpose -> IO Cairo.Region+eventExposeReadRegion s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Cairo.Region)+    val' <- (newBoxed Cairo.Region) val+    return val'++eventExposeReadCount :: EventExpose -> IO Int32+eventExposeReadCount s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO Int32+    return val++-- struct EventFocus+newtype EventFocus = EventFocus (ForeignPtr EventFocus)+noEventFocus :: Maybe EventFocus+noEventFocus = Nothing++eventFocusReadType :: EventFocus -> IO EventType+eventFocusReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventFocusReadWindow :: EventFocus -> IO Window+eventFocusReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventFocusReadSendEvent :: EventFocus -> IO Int8+eventFocusReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventFocusReadIn :: EventFocus -> IO Int16+eventFocusReadIn s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 18) :: IO Int16+    return val++-- 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++-- struct EventGrabBroken+newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken)+noEventGrabBroken :: Maybe EventGrabBroken+noEventGrabBroken = Nothing++eventGrabBrokenReadType :: EventGrabBroken -> IO EventType+eventGrabBrokenReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventGrabBrokenReadWindow :: EventGrabBroken -> IO Window+eventGrabBrokenReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventGrabBrokenReadSendEvent :: EventGrabBroken -> IO Int8+eventGrabBrokenReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventGrabBrokenReadKeyboard :: EventGrabBroken -> IO Bool+eventGrabBrokenReadKeyboard s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO CInt+    let val' = (/= 0) val+    return val'++eventGrabBrokenReadImplicit :: EventGrabBroken -> IO Bool+eventGrabBrokenReadImplicit s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CInt+    let val' = (/= 0) val+    return val'++eventGrabBrokenReadGrabWindow :: EventGrabBroken -> IO Window+eventGrabBrokenReadGrabWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++-- struct EventKey+newtype EventKey = EventKey (ForeignPtr EventKey)+noEventKey :: Maybe EventKey+noEventKey = Nothing++eventKeyReadType :: EventKey -> IO EventType+eventKeyReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventKeyReadWindow :: EventKey -> IO Window+eventKeyReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventKeyReadSendEvent :: EventKey -> IO Int8+eventKeyReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventKeyReadTime :: EventKey -> IO Word32+eventKeyReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++eventKeyReadState :: EventKey -> IO [ModifierType]+eventKeyReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CUInt+    let val' = wordToGFlags val+    return val'++eventKeyReadKeyval :: EventKey -> IO Word32+eventKeyReadKeyval s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Word32+    return val++eventKeyReadLength :: EventKey -> IO Int32+eventKeyReadLength s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Int32+    return val++eventKeyReadString :: EventKey -> IO T.Text+eventKeyReadString s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CString+    val' <- cstringToText val+    return val'++eventKeyReadHardwareKeycode :: EventKey -> IO Word16+eventKeyReadHardwareKeycode s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO Word16+    return val++eventKeyReadGroup :: EventKey -> IO Word8+eventKeyReadGroup s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 50) :: IO Word8+    return val++eventKeyReadIsModifier :: EventKey -> IO Word32+eventKeyReadIsModifier s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 52) :: IO Word32+    return val++-- 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 BoxedEnum EventMask where+    boxedEnumType _ = c_gdk_event_mask_get_type++instance IsGFlag EventMask++-- struct EventMotion+newtype EventMotion = EventMotion (ForeignPtr EventMotion)+noEventMotion :: Maybe EventMotion+noEventMotion = Nothing++eventMotionReadType :: EventMotion -> IO EventType+eventMotionReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventMotionReadWindow :: EventMotion -> IO Window+eventMotionReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventMotionReadSendEvent :: EventMotion -> IO Int8+eventMotionReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventMotionReadTime :: EventMotion -> IO Word32+eventMotionReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++eventMotionReadX :: EventMotion -> IO Double+eventMotionReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CDouble+    let val' = realToFrac val+    return val'++eventMotionReadY :: EventMotion -> IO Double+eventMotionReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++eventMotionReadAxes :: EventMotion -> IO Double+eventMotionReadAxes s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++eventMotionReadState :: EventMotion -> IO [ModifierType]+eventMotionReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CUInt+    let val' = wordToGFlags val+    return val'++eventMotionReadIsHint :: EventMotion -> IO Int16+eventMotionReadIsHint s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 52) :: IO Int16+    return val++eventMotionReadDevice :: EventMotion -> IO Device+eventMotionReadDevice s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device)+    val' <- (newObject Device) val+    return val'++eventMotionReadXRoot :: EventMotion -> IO Double+eventMotionReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CDouble+    let val' = realToFrac val+    return val'++eventMotionReadYRoot :: EventMotion -> IO Double+eventMotionReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO CDouble+    let val' = realToFrac val+    return val'++-- struct EventOwnerChange+newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange)+noEventOwnerChange :: Maybe EventOwnerChange+noEventOwnerChange = Nothing++eventOwnerChangeReadType :: EventOwnerChange -> IO EventType+eventOwnerChangeReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventOwnerChangeReadWindow :: EventOwnerChange -> IO Window+eventOwnerChangeReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventOwnerChangeReadSendEvent :: EventOwnerChange -> IO Int8+eventOwnerChangeReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventOwnerChangeReadOwner :: EventOwnerChange -> IO Window+eventOwnerChangeReadOwner s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventOwnerChangeReadReason :: EventOwnerChange -> IO OwnerChange+eventOwnerChangeReadReason s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventOwnerChangeReadSelection :: EventOwnerChange -> IO Atom+eventOwnerChangeReadSelection s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom)+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    val' <- (\x -> Atom <$> newForeignPtr_ x) val+    return val'++eventOwnerChangeReadTime :: EventOwnerChange -> IO Word32+eventOwnerChangeReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO Word32+    return val++eventOwnerChangeReadSelectionTime :: EventOwnerChange -> IO Word32+eventOwnerChangeReadSelectionTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 52) :: IO Word32+    return val++-- struct EventProperty+newtype EventProperty = EventProperty (ForeignPtr EventProperty)+noEventProperty :: Maybe EventProperty+noEventProperty = Nothing++eventPropertyReadType :: EventProperty -> IO EventType+eventPropertyReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventPropertyReadWindow :: EventProperty -> IO Window+eventPropertyReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventPropertyReadSendEvent :: EventProperty -> IO Int8+eventPropertyReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventPropertyReadAtom :: EventProperty -> IO Atom+eventPropertyReadAtom s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom)+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    val' <- (\x -> Atom <$> newForeignPtr_ x) val+    return val'++eventPropertyReadTime :: EventProperty -> IO Word32+eventPropertyReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO Word32+    return val++eventPropertyReadState :: EventProperty -> IO PropertyState+eventPropertyReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 36) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++-- struct EventProximity+newtype EventProximity = EventProximity (ForeignPtr EventProximity)+noEventProximity :: Maybe EventProximity+noEventProximity = Nothing++eventProximityReadType :: EventProximity -> IO EventType+eventProximityReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventProximityReadWindow :: EventProximity -> IO Window+eventProximityReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventProximityReadSendEvent :: EventProximity -> IO Int8+eventProximityReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventProximityReadTime :: EventProximity -> IO Word32+eventProximityReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++eventProximityReadDevice :: EventProximity -> IO Device+eventProximityReadDevice s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Device)+    val' <- (newObject Device) val+    return val'++-- struct EventScroll+newtype EventScroll = EventScroll (ForeignPtr EventScroll)+noEventScroll :: Maybe EventScroll+noEventScroll = Nothing++eventScrollReadType :: EventScroll -> IO EventType+eventScrollReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventScrollReadWindow :: EventScroll -> IO Window+eventScrollReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventScrollReadSendEvent :: EventScroll -> IO Int8+eventScrollReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventScrollReadTime :: EventScroll -> IO Word32+eventScrollReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++eventScrollReadX :: EventScroll -> IO Double+eventScrollReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CDouble+    let val' = realToFrac val+    return val'++eventScrollReadY :: EventScroll -> IO Double+eventScrollReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++eventScrollReadState :: EventScroll -> IO [ModifierType]+eventScrollReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CUInt+    let val' = wordToGFlags val+    return val'++eventScrollReadDirection :: EventScroll -> IO ScrollDirection+eventScrollReadDirection s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 44) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventScrollReadDevice :: EventScroll -> IO Device+eventScrollReadDevice s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO (Ptr Device)+    val' <- (newObject Device) val+    return val'++eventScrollReadXRoot :: EventScroll -> IO Double+eventScrollReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO CDouble+    let val' = realToFrac val+    return val'++eventScrollReadYRoot :: EventScroll -> IO Double+eventScrollReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CDouble+    let val' = realToFrac val+    return val'++eventScrollReadDeltaX :: EventScroll -> IO Double+eventScrollReadDeltaX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO CDouble+    let val' = realToFrac val+    return val'++eventScrollReadDeltaY :: EventScroll -> IO Double+eventScrollReadDeltaY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 80) :: IO CDouble+    let val' = realToFrac val+    return val'++-- struct EventSelection+newtype EventSelection = EventSelection (ForeignPtr EventSelection)+noEventSelection :: Maybe EventSelection+noEventSelection = Nothing++eventSelectionReadType :: EventSelection -> IO EventType+eventSelectionReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventSelectionReadWindow :: EventSelection -> IO Window+eventSelectionReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventSelectionReadSendEvent :: EventSelection -> IO Int8+eventSelectionReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventSelectionReadSelection :: EventSelection -> IO Atom+eventSelectionReadSelection s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom)+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    val' <- (\x -> Atom <$> newForeignPtr_ x) val+    return val'++eventSelectionReadTarget :: EventSelection -> IO Atom+eventSelectionReadTarget s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Atom)+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    val' <- (\x -> Atom <$> newForeignPtr_ x) val+    return val'++eventSelectionReadProperty :: EventSelection -> IO Atom+eventSelectionReadProperty s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom)+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    val' <- (\x -> Atom <$> newForeignPtr_ x) val+    return val'++eventSelectionReadTime :: EventSelection -> IO Word32+eventSelectionReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO Word32+    return val++eventSelectionReadRequestor :: EventSelection -> IO Window+eventSelectionReadRequestor s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++-- struct EventSequence+newtype EventSequence = EventSequence (ForeignPtr EventSequence)+noEventSequence :: Maybe EventSequence+noEventSequence = Nothing++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++-- struct EventSetting+newtype EventSetting = EventSetting (ForeignPtr EventSetting)+noEventSetting :: Maybe EventSetting+noEventSetting = Nothing++eventSettingReadType :: EventSetting -> IO EventType+eventSettingReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventSettingReadWindow :: EventSetting -> IO Window+eventSettingReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventSettingReadSendEvent :: EventSetting -> IO Int8+eventSettingReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventSettingReadAction :: EventSetting -> IO SettingAction+eventSettingReadAction s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventSettingReadName :: EventSetting -> IO T.Text+eventSettingReadName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CString+    val' <- cstringToText val+    return val'++-- struct EventTouch+newtype EventTouch = EventTouch (ForeignPtr EventTouch)+noEventTouch :: Maybe EventTouch+noEventTouch = Nothing++eventTouchReadType :: EventTouch -> IO EventType+eventTouchReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventTouchReadWindow :: EventTouch -> IO Window+eventTouchReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventTouchReadSendEvent :: EventTouch -> IO Int8+eventTouchReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventTouchReadTime :: EventTouch -> IO Word32+eventTouchReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Word32+    return val++eventTouchReadX :: EventTouch -> IO Double+eventTouchReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchReadY :: EventTouch -> IO Double+eventTouchReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchReadAxes :: EventTouch -> IO Double+eventTouchReadAxes s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchReadState :: EventTouch -> IO [ModifierType]+eventTouchReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CUInt+    let val' = wordToGFlags val+    return val'++eventTouchReadSequence :: EventTouch -> IO EventSequence+eventTouchReadSequence s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO (Ptr EventSequence)+    val' <- (newBoxed EventSequence) val+    return val'++eventTouchReadEmulatingPointer :: EventTouch -> IO Bool+eventTouchReadEmulatingPointer s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CInt+    let val' = (/= 0) val+    return val'++eventTouchReadDevice :: EventTouch -> IO Device+eventTouchReadDevice s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO (Ptr Device)+    val' <- (newObject Device) val+    return val'++eventTouchReadXRoot :: EventTouch -> IO Double+eventTouchReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 80) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchReadYRoot :: EventTouch -> IO Double+eventTouchReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 88) :: IO CDouble+    let val' = realToFrac val+    return val'++-- struct EventTouchpadPinch+newtype EventTouchpadPinch = EventTouchpadPinch (ForeignPtr EventTouchpadPinch)+noEventTouchpadPinch :: Maybe EventTouchpadPinch+noEventTouchpadPinch = Nothing++eventTouchpadPinchReadType :: EventTouchpadPinch -> IO EventType+eventTouchpadPinchReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventTouchpadPinchReadWindow :: EventTouchpadPinch -> IO Window+eventTouchpadPinchReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventTouchpadPinchReadSendEvent :: EventTouchpadPinch -> IO Int8+eventTouchpadPinchReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventTouchpadPinchReadPhase :: EventTouchpadPinch -> IO TouchpadGesturePhase+eventTouchpadPinchReadPhase s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventTouchpadPinchReadNFingers :: EventTouchpadPinch -> IO Int8+eventTouchpadPinchReadNFingers s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Int8+    return val++eventTouchpadPinchReadTime :: EventTouchpadPinch -> IO Word32+eventTouchpadPinchReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Word32+    return val++eventTouchpadPinchReadX :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadY :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadDx :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadDx s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadDy :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadDy s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadAngleDelta :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadAngleDelta s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadScale :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadScale s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadXRoot :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 80) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadYRoot :: EventTouchpadPinch -> IO Double+eventTouchpadPinchReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 88) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadPinchReadState :: EventTouchpadPinch -> IO [ModifierType]+eventTouchpadPinchReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 96) :: IO CUInt+    let val' = wordToGFlags val+    return val'++-- struct EventTouchpadSwipe+newtype EventTouchpadSwipe = EventTouchpadSwipe (ForeignPtr EventTouchpadSwipe)+noEventTouchpadSwipe :: Maybe EventTouchpadSwipe+noEventTouchpadSwipe = Nothing++eventTouchpadSwipeReadType :: EventTouchpadSwipe -> IO EventType+eventTouchpadSwipeReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventTouchpadSwipeReadWindow :: EventTouchpadSwipe -> IO Window+eventTouchpadSwipeReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventTouchpadSwipeReadSendEvent :: EventTouchpadSwipe -> IO Int8+eventTouchpadSwipeReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventTouchpadSwipeReadPhase :: EventTouchpadSwipe -> IO TouchpadGesturePhase+eventTouchpadSwipeReadPhase s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventTouchpadSwipeReadNFingers :: EventTouchpadSwipe -> IO Int8+eventTouchpadSwipeReadNFingers s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Int8+    return val++eventTouchpadSwipeReadTime :: EventTouchpadSwipe -> IO Word32+eventTouchpadSwipeReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Word32+    return val++eventTouchpadSwipeReadX :: EventTouchpadSwipe -> IO Double+eventTouchpadSwipeReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadSwipeReadY :: EventTouchpadSwipe -> IO Double+eventTouchpadSwipeReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadSwipeReadDx :: EventTouchpadSwipe -> IO Double+eventTouchpadSwipeReadDx s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadSwipeReadDy :: EventTouchpadSwipe -> IO Double+eventTouchpadSwipeReadDy s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadSwipeReadXRoot :: EventTouchpadSwipe -> IO Double+eventTouchpadSwipeReadXRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadSwipeReadYRoot :: EventTouchpadSwipe -> IO Double+eventTouchpadSwipeReadYRoot s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO CDouble+    let val' = realToFrac val+    return val'++eventTouchpadSwipeReadState :: EventTouchpadSwipe -> IO [ModifierType]+eventTouchpadSwipeReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 80) :: IO CUInt+    let val' = wordToGFlags val+    return val'++-- 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++-- struct EventVisibility+newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility)+noEventVisibility :: Maybe EventVisibility+noEventVisibility = Nothing++eventVisibilityReadType :: EventVisibility -> IO EventType+eventVisibilityReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventVisibilityReadWindow :: EventVisibility -> IO Window+eventVisibilityReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventVisibilityReadSendEvent :: EventVisibility -> IO Int8+eventVisibilityReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventVisibilityReadState :: EventVisibility -> IO VisibilityState+eventVisibilityReadState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++-- struct EventWindowState+newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState)+noEventWindowState :: Maybe EventWindowState+noEventWindowState = Nothing++eventWindowStateReadType :: EventWindowState -> IO EventType+eventWindowStateReadType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++eventWindowStateReadWindow :: EventWindowState -> IO Window+eventWindowStateReadWindow s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)+    val' <- (newObject Window) val+    return val'++eventWindowStateReadSendEvent :: EventWindowState -> IO Int8+eventWindowStateReadSendEvent s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int8+    return val++eventWindowStateReadChangedMask :: EventWindowState -> IO [WindowState]+eventWindowStateReadChangedMask s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO CUInt+    let val' = wordToGFlags val+    return val'++eventWindowStateReadNewWindowState :: EventWindowState -> IO [WindowState]+eventWindowStateReadNewWindowState s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CUInt+    let val' = wordToGFlags val+    return val'++-- 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'++-- 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++-- object FrameClock +newtype FrameClock = FrameClock (ForeignPtr FrameClock)+noFrameClock :: Maybe FrameClock+noFrameClock = Nothing++foreign import ccall "gdk_frame_clock_get_type"+    c_gdk_frame_clock_get_type :: IO GType++type instance ParentTypes FrameClock = '[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++-- method FrameClock::begin_updating+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+frameClockBeginUpdating _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_frame_clock_begin_updating _obj'+    touchManagedPtr _obj+    return ()++-- method FrameClock::end_updating+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+frameClockEndUpdating _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_frame_clock_end_updating _obj'+    touchManagedPtr _obj+    return ()++-- method FrameClock::get_current_timings+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 FrameTimings+frameClockGetCurrentTimings _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_frame_clock_get_current_timings _obj'+    checkUnexpectedReturnNULL "gdk_frame_clock_get_current_timings" result+    result' <- (wrapBoxed FrameTimings) result+    touchManagedPtr _obj+    return result'++-- method FrameClock::get_frame_counter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameClockGetFrameCounter _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_frame_clock_get_frame_counter _obj'+    touchManagedPtr _obj+    return result++-- method FrameClock::get_frame_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameClockGetFrameTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_frame_clock_get_frame_time _obj'+    touchManagedPtr _obj+    return result++-- method FrameClock::get_history_start+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameClockGetHistoryStart _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_frame_clock_get_history_start _obj'+    touchManagedPtr _obj+    return result++-- method FrameClock::get_refresh_info+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                -- base_time+    Int64 ->                                -- refresh_interval_return+    Int64 ->                                -- presentation_time_return+    m ()+frameClockGetRefreshInfo _obj base_time refresh_interval_return presentation_time_return = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_frame_clock_get_refresh_info _obj' base_time refresh_interval_return presentation_time_return+    touchManagedPtr _obj+    return ()++-- method FrameClock::get_timings+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                                -- frame_counter+    m FrameTimings+frameClockGetTimings _obj frame_counter = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_frame_clock_get_timings _obj' frame_counter+    checkUnexpectedReturnNULL "gdk_frame_clock_get_timings" result+    result' <- (wrapBoxed FrameTimings) result+    touchManagedPtr _obj+    return result'++-- method FrameClock::request_phase+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+frameClockRequestPhase _obj phase = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let phase' = gflagsToWord phase+    gdk_frame_clock_request_phase _obj' phase'+    touchManagedPtr _obj+    return ()++-- 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++-- 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 BoxedEnum FrameClockPhase where+    boxedEnumType _ = c_gdk_frame_clock_phase_get_type++instance IsGFlag FrameClockPhase++-- struct FrameTimings+newtype FrameTimings = FrameTimings (ForeignPtr FrameTimings)+noFrameTimings :: Maybe FrameTimings+noFrameTimings = Nothing++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++-- method FrameTimings::get_complete+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameTimingsGetComplete _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_frame_timings_get_complete _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method FrameTimings::get_frame_counter+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameTimingsGetFrameCounter _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_frame_timings_get_frame_counter _obj'+    touchManagedPtr _obj+    return result++-- method FrameTimings::get_frame_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameTimingsGetFrameTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_frame_timings_get_frame_time _obj'+    touchManagedPtr _obj+    return result++-- method FrameTimings::get_predicted_presentation_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameTimingsGetPredictedPresentationTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_frame_timings_get_predicted_presentation_time _obj'+    touchManagedPtr _obj+    return result++-- method FrameTimings::get_presentation_time+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameTimingsGetPresentationTime _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_frame_timings_get_presentation_time _obj'+    touchManagedPtr _obj+    return result++-- method FrameTimings::get_refresh_interval+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+frameTimingsGetRefreshInterval _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_frame_timings_get_refresh_interval _obj'+    touchManagedPtr _obj+    return result++-- method FrameTimings::ref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method FrameTimings::unref+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+frameTimingsUnref _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    gdk_frame_timings_unref _obj'+    touchManagedPtr _obj+    return ()++-- 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++-- object GLContext +newtype GLContext = GLContext (ForeignPtr GLContext)+noGLContext :: Maybe GLContext+noGLContext = Nothing++foreign import ccall "gdk_gl_context_get_type"+    c_gdk_gl_context_get_type :: IO GType++type instance ParentTypes GLContext = '[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++-- method GLContext::get_debug_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+gLContextGetDebugEnabled _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_gl_context_get_debug_enabled _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method GLContext::get_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method GLContext::get_forward_compatible+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+gLContextGetForwardCompatible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_gl_context_get_forward_compatible _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- XXX Could not generate method GLContext::get_required_version+-- Error was : Bad introspection data: "argument \"major\" is not of nullable type (TBasicType TInt32), but it is marked as such."+-- method GLContext::get_shared_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method GLContext::get_version+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- minor : TBasicType TInt32+    IO ()+++gLContextGetVersion ::+    (MonadIO m, GLContextK a) =>+    a ->                                    -- _obj+    m (Int32,Int32)+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')++-- method GLContext::get_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method GLContext::make_current+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+gLContextMakeCurrent _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_gl_context_make_current _obj'+    touchManagedPtr _obj+    return ()++-- method GLContext::realize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ()+gLContextRealize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    onException (do+        _ <- propagateGError $ gdk_gl_context_realize _obj'+        touchManagedPtr _obj+        return ()+     ) (do+        return ()+     )++-- method GLContext::set_debug_enabled+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method GLContext::set_forward_compatible+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method GLContext::set_required_version+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- minor : TBasicType TInt32+    IO ()+++gLContextSetRequiredVersion ::+    (MonadIO m, GLContextK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- major+    Int32 ->                                -- minor+    m ()+gLContextSetRequiredVersion _obj major minor = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_gl_context_set_required_version _obj' major minor+    touchManagedPtr _obj+    return ()++-- method GLContext::clear_current+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_gl_context_clear_current" gdk_gl_context_clear_current :: +    IO ()+++gLContextClearCurrent ::+    (MonadIO m) =>+    m ()+gLContextClearCurrent  = liftIO $ do+    gdk_gl_context_clear_current+    return ()++-- method GLContext::get_current+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+gLContextGetCurrent  = liftIO $ do+    result <- gdk_gl_context_get_current+    checkUnexpectedReturnNULL "gdk_gl_context_get_current" result+    result' <- (newObject GLContext) result+    return result'++-- 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++-- struct Geometry+newtype Geometry = Geometry (ForeignPtr Geometry)+noGeometry :: Maybe Geometry+noGeometry = Nothing++geometryReadMinWidth :: Geometry -> IO Int32+geometryReadMinWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++geometryReadMinHeight :: Geometry -> IO Int32+geometryReadMinHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++geometryReadMaxWidth :: Geometry -> IO Int32+geometryReadMaxWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++geometryReadMaxHeight :: Geometry -> IO Int32+geometryReadMaxHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++geometryReadBaseWidth :: Geometry -> IO Int32+geometryReadBaseWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++geometryReadBaseHeight :: Geometry -> IO Int32+geometryReadBaseHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Int32+    return val++geometryReadWidthInc :: Geometry -> IO Int32+geometryReadWidthInc s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Int32+    return val++geometryReadHeightInc :: Geometry -> IO Int32+geometryReadHeightInc s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO Int32+    return val++geometryReadMinAspect :: Geometry -> IO Double+geometryReadMinAspect s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO CDouble+    let val' = realToFrac val+    return val'++geometryReadMaxAspect :: Geometry -> IO Double+geometryReadMaxAspect s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CDouble+    let val' = realToFrac val+    return val'++geometryReadWinGravity :: Geometry -> IO Gravity+geometryReadWinGravity s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++-- 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 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 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 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 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++-- object Keymap +newtype Keymap = Keymap (ForeignPtr Keymap)+noKeymap :: Maybe Keymap+noKeymap = Nothing++foreign import ccall "gdk_keymap_get_type"+    c_gdk_keymap_get_type :: IO GType++type instance ParentTypes Keymap = '[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++-- method Keymap::add_virtual_modifiers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- 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])+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''''++-- method Keymap::get_caps_lock_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+keymapGetCapsLockState _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_keymap_get_caps_lock_state _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Keymap::get_direction+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+keymapGetDirection _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_keymap_get_direction _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Keymap::get_entries_for_keycode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyvals", argType = TCArray False (-1) 4 (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    Ptr (Ptr KeymapKey) ->                  -- keys : TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey")+    Ptr (Ptr Word32) ->                     -- keyvals : TCArray False (-1) 4 (TBasicType TUInt32)+    Ptr Int32 ->                            -- n_entries : TBasicType TInt32+    IO CInt+++keymapGetEntriesForKeycode ::+    (MonadIO m, KeymapK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- hardware_keycode+    m (Bool,[KeymapKey],[Word32])+keymapGetEntriesForKeycode _obj hardware_keycode = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    keys <- allocMem :: IO (Ptr (Ptr KeymapKey))+    keyvals <- allocMem :: IO (Ptr (Ptr Word32))+    n_entries <- allocMem :: IO (Ptr Int32)+    result <- gdk_keymap_get_entries_for_keycode _obj' hardware_keycode keys keyvals n_entries+    n_entries' <- peek n_entries+    let result' = (/= 0) result+    keys' <- peek keys+    keys'' <- (unpackBlockArrayWithLength 12 n_entries') keys'+    keys''' <- mapM (wrapPtr KeymapKey) keys''+    freeMem keys'+    keyvals' <- peek keyvals+    keyvals'' <- (unpackStorableArrayWithLength n_entries') keyvals'+    freeMem keyvals'+    touchManagedPtr _obj+    freeMem keys+    freeMem keyvals+    freeMem n_entries+    return (result', keys''', keyvals'')++-- method Keymap::get_entries_for_keyval+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_keys", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "n_keys", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    Ptr (Ptr KeymapKey) ->                  -- keys : TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey")+    Ptr Int32 ->                            -- n_keys : TBasicType TInt32+    IO CInt+++keymapGetEntriesForKeyval ::+    (MonadIO m, KeymapK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- keyval+    m (Bool,[KeymapKey])+keymapGetEntriesForKeyval _obj keyval = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    keys <- allocMem :: IO (Ptr (Ptr KeymapKey))+    n_keys <- allocMem :: IO (Ptr Int32)+    result <- gdk_keymap_get_entries_for_keyval _obj' keyval keys n_keys+    n_keys' <- peek n_keys+    let result' = (/= 0) result+    keys' <- peek keys+    keys'' <- (unpackBlockArrayWithLength 12 n_keys') keys'+    keys''' <- mapM (wrapPtr KeymapKey) keys''+    freeMem keys'+    touchManagedPtr _obj+    freeMem keys+    freeMem n_keys+    return (result', keys''')++-- method Keymap::get_modifier_mask+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+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'++-- method Keymap::get_modifier_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- 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+keymapGetModifierState _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_keymap_get_modifier_state _obj'+    touchManagedPtr _obj+    return result++-- method Keymap::get_num_lock_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+keymapGetNumLockState _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_keymap_get_num_lock_state _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Keymap::get_scroll_lock_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+keymapGetScrollLockState _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_keymap_get_scroll_lock_state _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Keymap::have_bidi_layouts+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+keymapHaveBidiLayouts _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_keymap_have_bidi_layouts _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Keymap::lookup_key+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- 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+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++-- method Keymap::map_virtual_modifiers+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : 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])+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'''')++-- method Keymap::translate_keyboard_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "effective_group", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "consumed_modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TUInt32+    CUInt ->                                -- state : TInterface "Gdk" "ModifierType"+    Int32 ->                                -- group : TBasicType TInt32+    Ptr Word32 ->                           -- keyval : TBasicType TUInt32+    Ptr Int32 ->                            -- effective_group : TBasicType TInt32+    Ptr Int32 ->                            -- level : TBasicType TInt32+    Ptr CUInt ->                            -- consumed_modifiers : TInterface "Gdk" "ModifierType"+    IO CInt+++keymapTranslateKeyboardState ::+    (MonadIO m, KeymapK a) =>+    a ->                                    -- _obj+    Word32 ->                               -- hardware_keycode+    [ModifierType] ->                       -- state+    Int32 ->                                -- group+    m (Bool,Word32,Int32,Int32,[ModifierType])+keymapTranslateKeyboardState _obj hardware_keycode state group = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let state' = gflagsToWord state+    keyval <- allocMem :: IO (Ptr Word32)+    effective_group <- allocMem :: IO (Ptr Int32)+    level <- allocMem :: IO (Ptr Int32)+    consumed_modifiers <- allocMem :: IO (Ptr CUInt)+    result <- gdk_keymap_translate_keyboard_state _obj' hardware_keycode state' group keyval effective_group level consumed_modifiers+    let result' = (/= 0) result+    keyval' <- peek keyval+    effective_group' <- peek effective_group+    level' <- peek level+    consumed_modifiers' <- peek consumed_modifiers+    let consumed_modifiers'' = wordToGFlags consumed_modifiers'+    touchManagedPtr _obj+    freeMem keyval+    freeMem effective_group+    freeMem level+    freeMem consumed_modifiers+    return (result', keyval', effective_group', level', consumed_modifiers'')++-- method Keymap::get_default+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- 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++-- struct KeymapKey+newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey)+noKeymapKey :: Maybe KeymapKey+noKeymapKey = Nothing++keymapKeyReadKeycode :: KeymapKey -> IO Word32+keymapKeyReadKeycode s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++keymapKeyReadGroup :: KeymapKey -> IO Int32+keymapKeyReadGroup s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++keymapKeyReadLevel :: KeymapKey -> IO Int32+keymapKeyReadLevel s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++-- 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++-- 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 BoxedEnum ModifierType where+    boxedEnumType _ = c_gdk_modifier_type_get_type++instance IsGFlag ModifierType++-- 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 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++-- struct Point+newtype Point = Point (ForeignPtr Point)+noPoint :: Maybe Point+noPoint = Nothing++pointReadX :: Point -> IO Int32+pointReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++pointReadY :: Point -> IO Int32+pointReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++-- 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 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++-- struct RGBA+newtype RGBA = RGBA (ForeignPtr RGBA)+noRGBA :: Maybe RGBA+noRGBA = Nothing++foreign import ccall "gdk_rgba_get_type" c_gdk_rgba_get_type :: +    IO GType++instance BoxedObject RGBA where+    boxedType _ = c_gdk_rgba_get_type++rGBAReadRed :: RGBA -> IO Double+rGBAReadRed s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CDouble+    let val' = realToFrac val+    return val'++rGBAReadGreen :: RGBA -> IO Double+rGBAReadGreen s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO CDouble+    let val' = realToFrac val+    return val'++rGBAReadBlue :: RGBA -> IO Double+rGBAReadBlue s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO CDouble+    let val' = realToFrac val+    return val'++rGBAReadAlpha :: RGBA -> IO Double+rGBAReadAlpha s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO CDouble+    let val' = realToFrac val+    return val'++-- method RGBA::copy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method RGBA::equal+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method RGBA::free+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+rGBAFree _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    gdk_rgba_free _obj'+    touchManagedPtr _obj+    return ()++-- method RGBA::hash+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- 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+rGBAHash _obj = liftIO $ do+    let _obj' = unsafeManagedPtrGetPtr _obj+    result <- gdk_rgba_hash _obj'+    touchManagedPtr _obj+    return result++-- method RGBA::parse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method RGBA::to_string+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- struct Rectangle+newtype Rectangle = Rectangle (ForeignPtr Rectangle)+noRectangle :: Maybe Rectangle+noRectangle = Nothing++foreign import ccall "gdk_rectangle_get_type" c_gdk_rectangle_get_type :: +    IO GType++instance BoxedObject Rectangle where+    boxedType _ = c_gdk_rectangle_get_type++rectangleReadX :: Rectangle -> IO Int32+rectangleReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Int32+    return val++rectangleReadY :: Rectangle -> IO Int32+rectangleReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 4) :: IO Int32+    return val++rectangleReadWidth :: Rectangle -> IO Int32+rectangleReadWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++rectangleReadHeight :: Rectangle -> IO Int32+rectangleReadHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++-- method Rectangle::intersect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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')++-- method Rectangle::union+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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)+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'++-- object Screen +newtype Screen = Screen (ForeignPtr Screen)+noScreen :: Maybe Screen+noScreen = Nothing++foreign import ccall "gdk_screen_get_type"+    c_gdk_screen_get_type :: IO GType++type instance ParentTypes Screen = '[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++-- method Screen::get_active_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Window+screenGetActiveWindow _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_active_window _obj'+    checkUnexpectedReturnNULL "gdk_screen_get_active_window" result+    result' <- (wrapObject Window) result+    touchManagedPtr _obj+    return result'++-- method Screen::get_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Screen::get_font_options+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Cairo.FontOptions+screenGetFontOptions _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_font_options _obj'+    checkUnexpectedReturnNULL "gdk_screen_get_font_options" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result+    touchManagedPtr _obj+    return result'++-- method Screen::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+screenGetHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_height _obj'+    touchManagedPtr _obj+    return result++-- method Screen::get_height_mm+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+screenGetHeightMm _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_height_mm _obj'+    touchManagedPtr _obj+    return result++-- method Screen::get_monitor_at_point+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO Int32+++screenGetMonitorAtPoint ::+    (MonadIO m, ScreenK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    m Int32+screenGetMonitorAtPoint _obj x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_monitor_at_point _obj' x y+    touchManagedPtr _obj+    return result++-- method Screen::get_monitor_at_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+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++-- method Screen::get_monitor_geometry+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Rectangle ->                        -- dest : TInterface "Gdk" "Rectangle"+    IO ()+++screenGetMonitorGeometry ::+    (MonadIO m, ScreenK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- monitor_num+    m (Rectangle)+screenGetMonitorGeometry _obj monitor_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle)+    gdk_screen_get_monitor_geometry _obj' monitor_num dest+    dest' <- (wrapBoxed Rectangle) dest+    touchManagedPtr _obj+    return dest'++-- method Screen::get_monitor_height_mm+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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 TInt32+    IO Int32+++screenGetMonitorHeightMm ::+    (MonadIO m, ScreenK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- monitor_num+    m Int32+screenGetMonitorHeightMm _obj monitor_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_monitor_height_mm _obj' monitor_num+    touchManagedPtr _obj+    return result++-- method Screen::get_monitor_plug_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    IO CString+++screenGetMonitorPlugName ::+    (MonadIO m, ScreenK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- monitor_num+    m T.Text+screenGetMonitorPlugName _obj monitor_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_monitor_plug_name _obj' monitor_num+    checkUnexpectedReturnNULL "gdk_screen_get_monitor_plug_name" result+    result' <- cstringToText result+    freeMem result+    touchManagedPtr _obj+    return result'++-- method Screen::get_monitor_scale_factor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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 TInt32+    IO Int32+++screenGetMonitorScaleFactor ::+    (MonadIO m, ScreenK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- monitor_num+    m Int32+screenGetMonitorScaleFactor _obj monitor_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_monitor_scale_factor _obj' monitor_num+    touchManagedPtr _obj+    return result++-- method Screen::get_monitor_width_mm+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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 TInt32+    IO Int32+++screenGetMonitorWidthMm ::+    (MonadIO m, ScreenK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- monitor_num+    m Int32+screenGetMonitorWidthMm _obj monitor_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_monitor_width_mm _obj' monitor_num+    touchManagedPtr _obj+    return result++-- method Screen::get_monitor_workarea+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Rectangle ->                        -- dest : TInterface "Gdk" "Rectangle"+    IO ()+++screenGetMonitorWorkarea ::+    (MonadIO m, ScreenK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- monitor_num+    m (Rectangle)+screenGetMonitorWorkarea _obj monitor_num = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    dest <- callocBoxedBytes 16 :: IO (Ptr Rectangle)+    gdk_screen_get_monitor_workarea _obj' monitor_num dest+    dest' <- (wrapBoxed Rectangle) dest+    touchManagedPtr _obj+    return dest'++-- method Screen::get_n_monitors+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+screenGetNMonitors _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_n_monitors _obj'+    touchManagedPtr _obj+    return result++-- method Screen::get_number+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+screenGetNumber _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_number _obj'+    touchManagedPtr _obj+    return result++-- method Screen::get_primary_monitor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+screenGetPrimaryMonitor _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_primary_monitor _obj'+    touchManagedPtr _obj+    return result++-- method Screen::get_resolution+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+screenGetResolution _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_resolution _obj'+    let result' = realToFrac result+    touchManagedPtr _obj+    return result'++-- method Screen::get_rgba_visual+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Visual+screenGetRgbaVisual _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_rgba_visual _obj'+    checkUnexpectedReturnNULL "gdk_screen_get_rgba_visual" result+    result' <- (newObject Visual) result+    touchManagedPtr _obj+    return result'++-- method Screen::get_root_window+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Screen::get_setting+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Screen::get_system_visual+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Screen::get_toplevel_windows+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+screenGetToplevelWindows _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_toplevel_windows _obj'+    checkUnexpectedReturnNULL "gdk_screen_get_toplevel_windows" result+    result' <- unpackGList result+    result'' <- mapM (newObject Window) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- method Screen::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+screenGetWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_width _obj'+    touchManagedPtr _obj+    return result++-- method Screen::get_width_mm+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+screenGetWidthMm _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_width_mm _obj'+    touchManagedPtr _obj+    return result++-- method Screen::get_window_stack+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+screenGetWindowStack _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_get_window_stack _obj'+    checkUnexpectedReturnNULL "gdk_screen_get_window_stack" result+    result' <- unpackGList result+    result'' <- mapM (wrapObject Window) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- method Screen::is_composited+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+screenIsComposited _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_is_composited _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Screen::list_visuals+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+screenListVisuals _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_screen_list_visuals _obj'+    checkUnexpectedReturnNULL "gdk_screen_list_visuals" result+    result' <- unpackGList result+    result'' <- mapM (newObject Visual) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- method Screen::make_display_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Screen::set_font_options+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Screen::set_resolution+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+screenSetResolution _obj dpi = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let dpi' = realToFrac dpi+    gdk_screen_set_resolution _obj' dpi'+    touchManagedPtr _obj+    return ()++-- method Screen::get_default+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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 Screen+screenGetDefault  = liftIO $ do+    result <- gdk_screen_get_default+    checkUnexpectedReturnNULL "gdk_screen_get_default" result+    result' <- (newObject Screen) result+    return result'++-- method Screen::height+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_screen_height" gdk_screen_height :: +    IO Int32+++screenHeight ::+    (MonadIO m) =>+    m Int32+screenHeight  = liftIO $ do+    result <- gdk_screen_height+    return result++-- method Screen::height_mm+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_screen_height_mm" gdk_screen_height_mm :: +    IO Int32+++screenHeightMm ::+    (MonadIO m) =>+    m Int32+screenHeightMm  = liftIO $ do+    result <- gdk_screen_height_mm+    return result++-- method Screen::width+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_screen_width" gdk_screen_width :: +    IO Int32+++screenWidth ::+    (MonadIO m) =>+    m Int32+screenWidth  = liftIO $ do+    result <- gdk_screen_width+    return result++-- method Screen::width_mm+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_screen_width_mm" gdk_screen_width_mm :: +    IO Int32+++screenWidthMm ::+    (MonadIO m) =>+    m Int32+screenWidthMm  = liftIO $ do+    result <- gdk_screen_width_mm+    return result++-- 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++-- 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 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 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++-- struct TimeCoord+newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord)+noTimeCoord :: Maybe TimeCoord+noTimeCoord = Nothing++timeCoordReadTime :: TimeCoord -> IO Word32+timeCoordReadTime s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO Word32+    return val++-- XXX Skipped getter for "TimeCoord:axes" :: Not implemented: "Don't know how to unpack C array of type TCArray False 128 (-1) (TBasicType TDouble)"++-- 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 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++-- object Visual +newtype Visual = Visual (ForeignPtr Visual)+noVisual :: Maybe Visual+noVisual = Nothing++foreign import ccall "gdk_visual_get_type"+    c_gdk_visual_get_type :: IO GType++type instance ParentTypes Visual = '[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++-- method Visual::get_bits_per_rgb+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+visualGetBitsPerRgb _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_visual_get_bits_per_rgb _obj'+    touchManagedPtr _obj+    return result++-- method Visual::get_blue_pixel_details+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- precision : TBasicType TInt32+    IO ()+++visualGetBluePixelDetails ::+    (MonadIO m, VisualK a) =>+    a ->                                    -- _obj+    m (Word32,Int32,Int32)+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')++-- method Visual::get_byte_order+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+visualGetByteOrder _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_visual_get_byte_order _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Visual::get_colormap_size+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+visualGetColormapSize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_visual_get_colormap_size _obj'+    touchManagedPtr _obj+    return result++-- method Visual::get_depth+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+visualGetDepth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_visual_get_depth _obj'+    touchManagedPtr _obj+    return result++-- method Visual::get_green_pixel_details+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- precision : TBasicType TInt32+    IO ()+++visualGetGreenPixelDetails ::+    (MonadIO m, VisualK a) =>+    a ->                                    -- _obj+    m (Word32,Int32,Int32)+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')++-- method Visual::get_red_pixel_details+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- precision : TBasicType TInt32+    IO ()+++visualGetRedPixelDetails ::+    (MonadIO m, VisualK a) =>+    a ->                                    -- _obj+    m (Word32,Int32,Int32)+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')++-- method Visual::get_screen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Visual::get_visual_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+visualGetVisualType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_visual_get_visual_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Visual::get_best+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+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 : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- 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+visualGetBestDepth  = liftIO $ do+    result <- gdk_visual_get_best_depth+    return result++-- method Visual::get_best_type+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+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 {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    CUInt ->                                -- visual_type : TInterface "Gdk" "VisualType"+    IO (Ptr Visual)+++visualGetBestWithBoth ::+    (MonadIO m) =>+    Int32 ->                                -- depth+    VisualType ->                           -- visual_type+    m Visual+visualGetBestWithBoth depth visual_type = liftIO $ do+    let visual_type' = (fromIntegral . fromEnum) visual_type+    result <- gdk_visual_get_best_with_both depth visual_type'+    checkUnexpectedReturnNULL "gdk_visual_get_best_with_both" result+    result' <- (newObject Visual) result+    return result'++-- method Visual::get_best_with_depth+-- method type : MemberFunction+-- Args : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    IO (Ptr Visual)+++visualGetBestWithDepth ::+    (MonadIO m) =>+    Int32 ->                                -- depth+    m Visual+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 {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                           -- visual_type+    m Visual+visualGetBestWithType visual_type = liftIO $ do+    let visual_type' = (fromIntegral . fromEnum) visual_type+    result <- gdk_visual_get_best_with_type visual_type'+    checkUnexpectedReturnNULL "gdk_visual_get_best_with_type" result+    result' <- (newObject Visual) result+    return result'++-- method Visual::get_system+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+visualGetSystem  = liftIO $ do+    result <- gdk_visual_get_system+    checkUnexpectedReturnNULL "gdk_visual_get_system" result+    result' <- (newObject Visual) result+    return result'++-- 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++-- 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 BoxedEnum WMDecoration where+    boxedEnumType _ = c_gdk_wm_decoration_get_type++instance IsGFlag WMDecoration++-- 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 BoxedEnum WMFunction where+    boxedEnumType _ = c_gdk_wm_function_get_type++instance IsGFlag WMFunction++-- object Window +newtype Window = Window (ForeignPtr Window)+noWindow :: Maybe Window+noWindow = Nothing++foreign import ccall "gdk_window_get_type"+    c_gdk_window_get_type :: IO GType++type instance ParentTypes Window = '[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++-- method Window::new+-- method type : Constructor+-- Args : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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] ->               -- attributes_mask+    m Window+windowNew parent attributes attributes_mask = liftIO $ do+    maybeParent <- case parent of+        Nothing -> return nullPtr+        Just jParent -> do+            let jParent' = unsafeManagedPtrCastPtr jParent+            return jParent'+    let attributes' = unsafeManagedPtrGetPtr attributes+    let attributes_mask' = gflagsToWord attributes_mask+    result <- gdk_window_new maybeParent attributes' attributes_mask'+    checkUnexpectedReturnNULL "gdk_window_new" result+    result' <- (wrapObject Window) result+    whenJust parent touchManagedPtr+    touchManagedPtr attributes+    return result'++-- method Window::beep+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowBeep _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_beep _obj'+    touchManagedPtr _obj+    return ()++-- method Window::begin_move_drag+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- root_x : TBasicType TInt32+    Int32 ->                                -- root_y : TBasicType TInt32+    Word32 ->                               -- timestamp : TBasicType TUInt32+    IO ()+++windowBeginMoveDrag ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- button+    Int32 ->                                -- root_x+    Int32 ->                                -- root_y+    Word32 ->                               -- timestamp+    m ()+windowBeginMoveDrag _obj button root_x root_y timestamp = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_begin_move_drag _obj' button root_x root_y timestamp+    touchManagedPtr _obj+    return ()++-- method Window::begin_move_drag_for_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- root_x : TBasicType TInt32+    Int32 ->                                -- root_y : TBasicType TInt32+    Word32 ->                               -- timestamp : TBasicType TUInt32+    IO ()+++windowBeginMoveDragForDevice ::+    (MonadIO m, WindowK a, DeviceK b) =>+    a ->                                    -- _obj+    b ->                                    -- device+    Int32 ->                                -- button+    Int32 ->                                -- root_x+    Int32 ->                                -- root_y+    Word32 ->                               -- timestamp+    m ()+windowBeginMoveDragForDevice _obj device button root_x root_y timestamp = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let device' = unsafeManagedPtrCastPtr device+    gdk_window_begin_move_drag_for_device _obj' device' button root_x root_y timestamp+    touchManagedPtr _obj+    touchManagedPtr device+    return ()++-- method Window::begin_paint_rect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::begin_paint_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::begin_resize_drag+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- root_x : TBasicType TInt32+    Int32 ->                                -- root_y : TBasicType TInt32+    Word32 ->                               -- timestamp : TBasicType TUInt32+    IO ()+++windowBeginResizeDrag ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    WindowEdge ->                           -- edge+    Int32 ->                                -- button+    Int32 ->                                -- root_x+    Int32 ->                                -- root_y+    Word32 ->                               -- timestamp+    m ()+windowBeginResizeDrag _obj edge button root_x root_y timestamp = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let edge' = (fromIntegral . fromEnum) edge+    gdk_window_begin_resize_drag _obj' edge' button root_x root_y timestamp+    touchManagedPtr _obj+    return ()++-- method Window::begin_resize_drag_for_device+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- root_x : TBasicType TInt32+    Int32 ->                                -- root_y : TBasicType TInt32+    Word32 ->                               -- timestamp : TBasicType TUInt32+    IO ()+++windowBeginResizeDragForDevice ::+    (MonadIO m, WindowK a, DeviceK b) =>+    a ->                                    -- _obj+    WindowEdge ->                           -- edge+    b ->                                    -- device+    Int32 ->                                -- button+    Int32 ->                                -- root_x+    Int32 ->                                -- root_y+    Word32 ->                               -- timestamp+    m ()+windowBeginResizeDragForDevice _obj edge device button root_x root_y 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 root_x root_y timestamp+    touchManagedPtr _obj+    touchManagedPtr device+    return ()++-- method Window::configure_finished+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowConfigureFinished _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_configure_finished _obj'+    touchManagedPtr _obj+    return ()++-- method Window::coords_from_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                               -- parent_x+    Double ->                               -- parent_y+    m (Double,Double)+windowCoordsFromParent _obj parent_x parent_y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let parent_x' = realToFrac parent_x+    let parent_y' = realToFrac parent_y+    x <- allocMem :: IO (Ptr CDouble)+    y <- allocMem :: IO (Ptr CDouble)+    gdk_window_coords_from_parent _obj' parent_x' parent_y' 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'')++-- method Window::coords_to_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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)+windowCoordsToParent _obj x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let x' = realToFrac x+    let y' = realToFrac y+    parent_x <- allocMem :: IO (Ptr CDouble)+    parent_y <- allocMem :: IO (Ptr CDouble)+    gdk_window_coords_to_parent _obj' x' y' parent_x parent_y+    parent_x' <- peek parent_x+    let parent_x'' = realToFrac parent_x'+    parent_y' <- peek parent_y+    let parent_y'' = realToFrac parent_y'+    touchManagedPtr _obj+    freeMem parent_x+    freeMem parent_y+    return (parent_x'', parent_y'')++-- method Window::create_gl_context+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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 ()+     )++-- method Window::create_similar_image_surface+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    Int32 ->                                -- scale : TBasicType TInt32+    IO (Ptr Cairo.Surface)+++windowCreateSimilarImageSurface ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- format+    Int32 ->                                -- width+    Int32 ->                                -- height+    Int32 ->                                -- scale+    m Cairo.Surface+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'++-- method Window::create_similar_surface+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO (Ptr Cairo.Surface)+++windowCreateSimilarSurface ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Cairo.Content ->                        -- content+    Int32 ->                                -- width+    Int32 ->                                -- height+    m Cairo.Surface+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'++-- method Window::deiconify+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowDeiconify _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_deiconify _obj'+    touchManagedPtr _obj+    return ()++-- method Window::destroy+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowDestroy _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_destroy _obj'+    touchManagedPtr _obj+    return ()++-- method Window::destroy_notify+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowDestroyNotify _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_destroy_notify _obj'+    touchManagedPtr _obj+    return ()++-- method Window::enable_synchronized_configure+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowEnableSynchronizedConfigure _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_enable_synchronized_configure _obj'+    touchManagedPtr _obj+    return ()++-- method Window::end_paint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowEndPaint _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_end_paint _obj'+    touchManagedPtr _obj+    return ()++-- method Window::ensure_native+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowEnsureNative _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_ensure_native _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::flush+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowFlush _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_flush _obj'+    touchManagedPtr _obj+    return ()++-- method Window::focus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowFocus _obj timestamp = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_focus _obj' timestamp+    touchManagedPtr _obj+    return ()++-- method Window::freeze_toplevel_updates_libgtk_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowFreezeToplevelUpdatesLibgtkOnly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_freeze_toplevel_updates_libgtk_only _obj'+    touchManagedPtr _obj+    return ()++-- method Window::freeze_updates+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowFreezeUpdates _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_freeze_updates _obj'+    touchManagedPtr _obj+    return ()++-- method Window::fullscreen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowFullscreen _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_fullscreen _obj'+    touchManagedPtr _obj+    return ()++-- method Window::fullscreen_on_monitor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    IO ()+++windowFullscreenOnMonitor ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- monitor+    m ()+windowFullscreenOnMonitor _obj monitor = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_fullscreen_on_monitor _obj' monitor+    touchManagedPtr _obj+    return ()++-- method Window::geometry_changed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowGeometryChanged _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_geometry_changed _obj'+    touchManagedPtr _obj+    return ()++-- method Window::get_accept_focus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetAcceptFocus _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_accept_focus _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::get_background_pattern+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Cairo.Pattern+windowGetBackgroundPattern _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_background_pattern _obj'+    checkUnexpectedReturnNULL "gdk_window_get_background_pattern" result+    result' <- (newBoxed Cairo.Pattern) result+    touchManagedPtr _obj+    return result'++-- method Window::get_children+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+windowGetChildren _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_children _obj'+    checkUnexpectedReturnNULL "gdk_window_get_children" result+    result' <- unpackGList result+    result'' <- mapM (newObject Window) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- method Window::get_children_with_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TVoid+    IO (Ptr (GList (Ptr Window)))+++windowGetChildrenWithUserData ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Ptr () ->                               -- user_data+    m [Window]+windowGetChildrenWithUserData _obj user_data = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_children_with_user_data _obj' user_data+    checkUnexpectedReturnNULL "gdk_window_get_children_with_user_data" result+    result' <- unpackGList result+    result'' <- mapM (newObject Window) result'+    g_list_free result+    touchManagedPtr _obj+    return result''++-- method Window::get_clip_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_composited+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetComposited _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_composited _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::get_cursor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Cursor+windowGetCursor _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_cursor _obj'+    checkUnexpectedReturnNULL "gdk_window_get_cursor" result+    result' <- (newObject Cursor) result+    touchManagedPtr _obj+    return result'++-- method Window::get_decorations+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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])+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'')++-- method Window::get_device_cursor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Cursor+windowGetDeviceCursor _obj device = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let device' = unsafeManagedPtrCastPtr device+    result <- gdk_window_get_device_cursor _obj' device'+    checkUnexpectedReturnNULL "gdk_window_get_device_cursor" result+    result' <- (newObject Cursor) result+    touchManagedPtr _obj+    touchManagedPtr device+    return result'++-- method Window::get_device_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+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'++-- method Window::get_device_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    Ptr CUInt ->                            -- mask : TInterface "Gdk" "ModifierType"+    IO (Ptr Window)+++windowGetDevicePosition ::+    (MonadIO m, WindowK a, DeviceK b) =>+    a ->                                    -- _obj+    b ->                                    -- device+    m (Window,Int32,Int32,[ModifierType])+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+    checkUnexpectedReturnNULL "gdk_window_get_device_position" result+    result' <- (newObject Window) 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 (result', x', y', mask'')++-- method Window::get_device_position_double+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 (Window,Double,Double,[ModifierType])+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+    checkUnexpectedReturnNULL "gdk_window_get_device_position_double" result+    result' <- (newObject Window) 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 (result', x'', y'', mask'')++-- method Window::get_display+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_drag_protocol+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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'')++-- method Window::get_effective_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_effective_toplevel+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_event_compression+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetEventCompression _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_event_compression _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::get_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+windowGetEvents _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_events _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method Window::get_focus_on_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetFocusOnMap _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_focus_on_map _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::get_frame_clock+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_frame_extents+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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)+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'++-- method Window::get_fullscreen_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetFullscreenMode _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_fullscreen_mode _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Window::get_geometry+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    Ptr Int32 ->                            -- width : TBasicType TInt32+    Ptr Int32 ->                            -- height : TBasicType TInt32+    IO ()+++windowGetGeometry ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    m (Int32,Int32,Int32,Int32)+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')++-- method Window::get_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_height+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+windowGetHeight _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_height _obj'+    touchManagedPtr _obj+    return result++-- method Window::get_modal_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetModalHint _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_modal_hint _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::get_origin+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    IO Int32+++windowGetOrigin ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    m (Int32,Int32,Int32)+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')++-- method Window::get_parent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_pass_through+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetPassThrough _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_pass_through _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::get_pointer+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    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 (Window,Int32,Int32,[ModifierType])+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+    checkUnexpectedReturnNULL "gdk_window_get_pointer" result+    result' <- (newObject Window) result+    x' <- peek x+    y' <- peek y+    mask' <- peek mask+    let mask'' = wordToGFlags mask'+    touchManagedPtr _obj+    freeMem x+    freeMem y+    freeMem mask+    return (result', x', y', mask'')++-- method Window::get_position+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    IO ()+++windowGetPosition ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    m (Int32,Int32)+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')++-- method Window::get_root_coords+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Ptr Int32 ->                            -- root_x : TBasicType TInt32+    Ptr Int32 ->                            -- root_y : TBasicType TInt32+    IO ()+++windowGetRootCoords ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    m (Int32,Int32)+windowGetRootCoords _obj x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    root_x <- allocMem :: IO (Ptr Int32)+    root_y <- allocMem :: IO (Ptr Int32)+    gdk_window_get_root_coords _obj' x y root_x root_y+    root_x' <- peek root_x+    root_y' <- peek root_y+    touchManagedPtr _obj+    freeMem root_x+    freeMem root_y+    return (root_x', root_y')++-- method Window::get_root_origin+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Ptr Int32 ->                            -- y : TBasicType TInt32+    IO ()+++windowGetRootOrigin ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    m (Int32,Int32)+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')++-- method Window::get_scale_factor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+windowGetScaleFactor _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_scale_factor _obj'+    touchManagedPtr _obj+    return result++-- method Window::get_screen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_source_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+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'++-- method Window::get_state+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+windowGetState _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_state _obj'+    let result' = wordToGFlags result+    touchManagedPtr _obj+    return result'++-- method Window::get_support_multidevice+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetSupportMultidevice _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_support_multidevice _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::get_toplevel+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_type_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetTypeHint _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_type_hint _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Window::get_update_area+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TVoid+    IO ()+++windowGetUserData ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    m ((Ptr ()))+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_'++-- method Window::get_visible_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_visual+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::get_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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+windowGetWidth _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_width _obj'+    touchManagedPtr _obj+    return result++-- method Window::get_window_type+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowGetWindowType _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_get_window_type _obj'+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr _obj+    return result'++-- method Window::has_native+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowHasNative _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_has_native _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::hide+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowHide _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_hide _obj'+    touchManagedPtr _obj+    return ()++-- method Window::iconify+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowIconify _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_iconify _obj'+    touchManagedPtr _obj+    return ()++-- method Window::input_shape_combine_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- offset_y : TBasicType TInt32+    IO ()+++windowInputShapeCombineRegion ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Cairo.Region ->                         -- shape_region+    Int32 ->                                -- offset_x+    Int32 ->                                -- offset_y+    m ()+windowInputShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let shape_region' = unsafeManagedPtrGetPtr shape_region+    gdk_window_input_shape_combine_region _obj' shape_region' offset_x offset_y+    touchManagedPtr _obj+    touchManagedPtr shape_region+    return ()++-- method Window::invalidate_maybe_recurse+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TVoid+    IO ()+++windowInvalidateMaybeRecurse ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Cairo.Region ->                         -- region+    Maybe (WindowChildFunc) ->              -- child_func+    m ()+windowInvalidateMaybeRecurse _obj region child_func = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let region' = unsafeManagedPtrGetPtr region+    maybeChild_func <- case child_func of+        Nothing -> return (castPtrToFunPtr nullPtr)+        Just jChild_func -> do+            jChild_func' <- mkWindowChildFunc (windowChildFuncWrapper Nothing jChild_func)+            return jChild_func'+    let user_data = nullPtr+    gdk_window_invalidate_maybe_recurse _obj' region' maybeChild_func user_data+    safeFreeFunPtr $ castFunPtrToPtr maybeChild_func+    touchManagedPtr _obj+    touchManagedPtr region+    return ()++-- method Window::invalidate_rect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- invalidate_children+    m ()+windowInvalidateRect _obj rect invalidate_children = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeRect <- case rect of+        Nothing -> return nullPtr+        Just jRect -> do+            let jRect' = unsafeManagedPtrGetPtr jRect+            return jRect'+    let invalidate_children' = (fromIntegral . fromEnum) invalidate_children+    gdk_window_invalidate_rect _obj' maybeRect invalidate_children'+    touchManagedPtr _obj+    whenJust rect touchManagedPtr+    return ()++-- method Window::invalidate_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- invalidate_children+    m ()+windowInvalidateRegion _obj region invalidate_children = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let region' = unsafeManagedPtrGetPtr region+    let invalidate_children' = (fromIntegral . fromEnum) invalidate_children+    gdk_window_invalidate_region _obj' region' invalidate_children'+    touchManagedPtr _obj+    touchManagedPtr region+    return ()++-- method Window::is_destroyed+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowIsDestroyed _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_is_destroyed _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::is_input_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowIsInputOnly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_is_input_only _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::is_shaped+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowIsShaped _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_is_shaped _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::is_viewable+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowIsViewable _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_is_viewable _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::is_visible+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+windowIsVisible _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_is_visible _obj'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::lower+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowLower _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_lower _obj'+    touchManagedPtr _obj+    return ()++-- method Window::mark_paint_from_clip+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::maximize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowMaximize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_maximize _obj'+    touchManagedPtr _obj+    return ()++-- method Window::merge_child_input_shapes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowMergeChildInputShapes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_merge_child_input_shapes _obj'+    touchManagedPtr _obj+    return ()++-- method Window::merge_child_shapes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowMergeChildShapes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_merge_child_shapes _obj'+    touchManagedPtr _obj+    return ()++-- method Window::move+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_window_move" gdk_window_move :: +    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO ()+++windowMove ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    m ()+windowMove _obj x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_move _obj' x y+    touchManagedPtr _obj+    return ()++-- method Window::move_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- dy : TBasicType TInt32+    IO ()+++windowMoveRegion ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Cairo.Region ->                         -- region+    Int32 ->                                -- dx+    Int32 ->                                -- dy+    m ()+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 ()++-- method Window::move_resize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO ()+++windowMoveResize ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- x+    Int32 ->                                -- y+    Int32 ->                                -- width+    Int32 ->                                -- height+    m ()+windowMoveResize _obj x y width height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_move_resize _obj' x y width height+    touchManagedPtr _obj+    return ()++-- method Window::peek_children+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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]+windowPeekChildren _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    result <- gdk_window_peek_children _obj'+    checkUnexpectedReturnNULL "gdk_window_peek_children" result+    result' <- unpackGList result+    result'' <- mapM (newObject Window) result'+    touchManagedPtr _obj+    return result''++-- method Window::process_updates+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- update_children+    m ()+windowProcessUpdates _obj update_children = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let update_children' = (fromIntegral . fromEnum) update_children+    gdk_window_process_updates _obj' update_children'+    touchManagedPtr _obj+    return ()++-- method Window::raise+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowRaise _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_raise _obj'+    touchManagedPtr _obj+    return ()++-- method Window::register_dnd+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowRegisterDnd _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_register_dnd _obj'+    touchManagedPtr _obj+    return ()++-- method Window::reparent+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    IO ()+++windowReparent ::+    (MonadIO m, WindowK a, WindowK b) =>+    a ->                                    -- _obj+    b ->                                    -- new_parent+    Int32 ->                                -- x+    Int32 ->                                -- y+    m ()+windowReparent _obj new_parent x y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let new_parent' = unsafeManagedPtrCastPtr new_parent+    gdk_window_reparent _obj' new_parent' x y+    touchManagedPtr _obj+    touchManagedPtr new_parent+    return ()++-- method Window::resize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_window_resize" gdk_window_resize :: +    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO ()+++windowResize ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- width+    Int32 ->                                -- height+    m ()+windowResize _obj width height = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_resize _obj' width height+    touchManagedPtr _obj+    return ()++-- method Window::restack+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::scroll+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_window_scroll" gdk_window_scroll :: +    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"+    Int32 ->                                -- dx : TBasicType TInt32+    Int32 ->                                -- dy : TBasicType TInt32+    IO ()+++windowScroll ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- dx+    Int32 ->                                -- dy+    m ()+windowScroll _obj dx dy = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_scroll _obj' dx dy+    touchManagedPtr _obj+    return ()++-- method Window::set_accept_focus+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- accept_focus+    m ()+windowSetAcceptFocus _obj accept_focus = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let accept_focus' = (fromIntegral . fromEnum) accept_focus+    gdk_window_set_accept_focus _obj' accept_focus'+    touchManagedPtr _obj+    return ()++-- method Window::set_background+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetBackground _obj color = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let color' = unsafeManagedPtrGetPtr color+    gdk_window_set_background _obj' color'+    touchManagedPtr _obj+    touchManagedPtr color+    return ()++-- method Window::set_background_pattern+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_background_rgba+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_child_input_shapes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetChildInputShapes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_set_child_input_shapes _obj'+    touchManagedPtr _obj+    return ()++-- method Window::set_child_shapes+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetChildShapes _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_set_child_shapes _obj'+    touchManagedPtr _obj+    return ()++-- method Window::set_composited+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetComposited _obj composited = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let composited' = (fromIntegral . fromEnum) composited+    gdk_window_set_composited _obj' composited'+    touchManagedPtr _obj+    return ()++-- method Window::set_cursor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_decorations+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetDecorations _obj decorations = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let decorations' = gflagsToWord decorations+    gdk_window_set_decorations _obj' decorations'+    touchManagedPtr _obj+    return ()++-- method Window::set_device_cursor+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_device_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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] ->                          -- event_mask+    m ()+windowSetDeviceEvents _obj device event_mask = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let device' = unsafeManagedPtrCastPtr device+    let event_mask' = gflagsToWord event_mask+    gdk_window_set_device_events _obj' device' event_mask'+    touchManagedPtr _obj+    touchManagedPtr device+    return ()++-- method Window::set_event_compression+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- event_compression+    m ()+windowSetEventCompression _obj event_compression = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let event_compression' = (fromIntegral . fromEnum) event_compression+    gdk_window_set_event_compression _obj' event_compression'+    touchManagedPtr _obj+    return ()++-- method Window::set_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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] ->                          -- event_mask+    m ()+windowSetEvents _obj event_mask = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let event_mask' = gflagsToWord event_mask+    gdk_window_set_events _obj' event_mask'+    touchManagedPtr _obj+    return ()++-- method Window::set_focus_on_map+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- focus_on_map+    m ()+windowSetFocusOnMap _obj focus_on_map = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let focus_on_map' = (fromIntegral . fromEnum) focus_on_map+    gdk_window_set_focus_on_map _obj' focus_on_map'+    touchManagedPtr _obj+    return ()++-- method Window::set_fullscreen_mode+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetFullscreenMode _obj mode = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let mode' = (fromIntegral . fromEnum) mode+    gdk_window_set_fullscreen_mode _obj' mode'+    touchManagedPtr _obj+    return ()++-- method Window::set_functions+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetFunctions _obj functions = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let functions' = gflagsToWord functions+    gdk_window_set_functions _obj' functions'+    touchManagedPtr _obj+    return ()++-- method Window::set_geometry_hints+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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] ->                        -- geom_mask+    m ()+windowSetGeometryHints _obj geometry geom_mask = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let geometry' = unsafeManagedPtrGetPtr geometry+    let geom_mask' = gflagsToWord geom_mask+    gdk_window_set_geometry_hints _obj' geometry' geom_mask'+    touchManagedPtr _obj+    touchManagedPtr geometry+    return ()++-- method Window::set_group+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_icon_list+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_icon_name+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_keep_above+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetKeepAbove _obj setting = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let setting' = (fromIntegral . fromEnum) setting+    gdk_window_set_keep_above _obj' setting'+    touchManagedPtr _obj+    return ()++-- method Window::set_keep_below+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetKeepBelow _obj setting = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let setting' = (fromIntegral . fromEnum) setting+    gdk_window_set_keep_below _obj' setting'+    touchManagedPtr _obj+    return ()++-- method Window::set_modal_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetModalHint _obj modal = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let modal' = (fromIntegral . fromEnum) modal+    gdk_window_set_modal_hint _obj' modal'+    touchManagedPtr _obj+    return ()++-- method Window::set_opacity+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetOpacity _obj opacity = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let opacity' = realToFrac opacity+    gdk_window_set_opacity _obj' opacity'+    touchManagedPtr _obj+    return ()++-- method Window::set_opaque_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_override_redirect+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- override_redirect+    m ()+windowSetOverrideRedirect _obj override_redirect = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let override_redirect' = (fromIntegral . fromEnum) override_redirect+    gdk_window_set_override_redirect _obj' override_redirect'+    touchManagedPtr _obj+    return ()++-- method Window::set_pass_through+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pass_through", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- pass_through+    m ()+windowSetPassThrough _obj pass_through = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let pass_through' = (fromIntegral . fromEnum) pass_through+    gdk_window_set_pass_through _obj' pass_through'+    touchManagedPtr _obj+    return ()++-- method Window::set_role+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetRole _obj role = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    role' <- textToCString role+    gdk_window_set_role _obj' role'+    touchManagedPtr _obj+    freeMem role'+    return ()++-- method Window::set_shadow_width+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- right : TBasicType TInt32+    Int32 ->                                -- top : TBasicType TInt32+    Int32 ->                                -- bottom : TBasicType TInt32+    IO ()+++windowSetShadowWidth ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Int32 ->                                -- left+    Int32 ->                                -- right+    Int32 ->                                -- top+    Int32 ->                                -- bottom+    m ()+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 ()++-- method Window::set_skip_pager_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- skips_pager+    m ()+windowSetSkipPagerHint _obj skips_pager = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let skips_pager' = (fromIntegral . fromEnum) skips_pager+    gdk_window_set_skip_pager_hint _obj' skips_pager'+    touchManagedPtr _obj+    return ()++-- method Window::set_skip_taskbar_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- skips_taskbar+    m ()+windowSetSkipTaskbarHint _obj skips_taskbar = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let skips_taskbar' = (fromIntegral . fromEnum) skips_taskbar+    gdk_window_set_skip_taskbar_hint _obj' skips_taskbar'+    touchManagedPtr _obj+    return ()++-- method Window::set_source_events+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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] ->                          -- event_mask+    m ()+windowSetSourceEvents _obj source event_mask = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let source' = (fromIntegral . fromEnum) source+    let event_mask' = gflagsToWord event_mask+    gdk_window_set_source_events _obj' source' event_mask'+    touchManagedPtr _obj+    return ()++-- method Window::set_startup_id+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                               -- startup_id+    m ()+windowSetStartupId _obj startup_id = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    startup_id' <- textToCString startup_id+    gdk_window_set_startup_id _obj' startup_id'+    touchManagedPtr _obj+    freeMem startup_id'+    return ()++-- method Window::set_static_gravities+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                                 -- use_static+    m Bool+windowSetStaticGravities _obj use_static = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let use_static' = (fromIntegral . fromEnum) use_static+    result <- gdk_window_set_static_gravities _obj' use_static'+    let result' = (/= 0) result+    touchManagedPtr _obj+    return result'++-- method Window::set_support_multidevice+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- support_multidevice+    m ()+windowSetSupportMultidevice _obj support_multidevice = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let support_multidevice' = (fromIntegral . fromEnum) support_multidevice+    gdk_window_set_support_multidevice _obj' support_multidevice'+    touchManagedPtr _obj+    return ()++-- method Window::set_title+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetTitle _obj title = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    title' <- textToCString title+    gdk_window_set_title _obj' title'+    touchManagedPtr _obj+    freeMem title'+    return ()++-- method Window::set_transient_for+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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 ()++-- method Window::set_type_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetTypeHint _obj hint = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let hint' = (fromIntegral . fromEnum) hint+    gdk_window_set_type_hint _obj' hint'+    touchManagedPtr _obj+    return ()++-- method Window::set_urgency_hint+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetUrgencyHint _obj urgent = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    let urgent' = (fromIntegral . fromEnum) urgent+    gdk_window_set_urgency_hint _obj' urgent'+    touchManagedPtr _obj+    return ()++-- method Window::set_user_data+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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) ->                            -- user_data+    m ()+windowSetUserData _obj user_data = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeUser_data <- case user_data of+        Nothing -> return nullPtr+        Just jUser_data -> do+            let jUser_data' = unsafeManagedPtrCastPtr jUser_data+            return jUser_data'+    gdk_window_set_user_data _obj' maybeUser_data+    touchManagedPtr _obj+    whenJust user_data touchManagedPtr+    return ()++-- method Window::shape_combine_region+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- offset_y : TBasicType TInt32+    IO ()+++windowShapeCombineRegion ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- _obj+    Maybe (Cairo.Region) ->                 -- shape_region+    Int32 ->                                -- offset_x+    Int32 ->                                -- offset_y+    m ()+windowShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    maybeShape_region <- case shape_region of+        Nothing -> return nullPtr+        Just jShape_region -> do+            let jShape_region' = unsafeManagedPtrGetPtr jShape_region+            return jShape_region'+    gdk_window_shape_combine_region _obj' maybeShape_region offset_x offset_y+    touchManagedPtr _obj+    whenJust shape_region touchManagedPtr+    return ()++-- method Window::show+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowShow _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_show _obj'+    touchManagedPtr _obj+    return ()++-- method Window::show_unraised+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowShowUnraised _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_show_unraised _obj'+    touchManagedPtr _obj+    return ()++-- method Window::show_window_menu+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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'++-- method Window::stick+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowStick _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_stick _obj'+    touchManagedPtr _obj+    return ()++-- method Window::thaw_toplevel_updates_libgtk_only+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowThawToplevelUpdatesLibgtkOnly _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_thaw_toplevel_updates_libgtk_only _obj'+    touchManagedPtr _obj+    return ()++-- method Window::thaw_updates+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowThawUpdates _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_thaw_updates _obj'+    touchManagedPtr _obj+    return ()++-- method Window::unfullscreen+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowUnfullscreen _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_unfullscreen _obj'+    touchManagedPtr _obj+    return ()++-- method Window::unmaximize+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowUnmaximize _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_unmaximize _obj'+    touchManagedPtr _obj+    return ()++-- method Window::unstick+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowUnstick _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_unstick _obj'+    touchManagedPtr _obj+    return ()++-- method Window::withdraw+-- method type : OrdinaryMethod+-- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowWithdraw _obj = liftIO $ do+    let _obj' = unsafeManagedPtrCastPtr _obj+    gdk_window_withdraw _obj'+    touchManagedPtr _obj+    return ()++-- method Window::at_pointer+-- method type : MemberFunction+-- Args : [Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Gdk" "Window"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_window_at_pointer" gdk_window_at_pointer :: +    Ptr Int32 ->                            -- win_x : TBasicType TInt32+    Ptr Int32 ->                            -- win_y : TBasicType TInt32+    IO (Ptr Window)++{-# DEPRECATED windowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-}+windowAtPointer ::+    (MonadIO m) =>+    m (Window,Int32,Int32)+windowAtPointer  = liftIO $ do+    win_x <- allocMem :: IO (Ptr Int32)+    win_y <- allocMem :: IO (Ptr Int32)+    result <- gdk_window_at_pointer win_x win_y+    checkUnexpectedReturnNULL "gdk_window_at_pointer" result+    result' <- (newObject Window) result+    win_x' <- peek win_x+    win_y' <- peek win_y+    freeMem win_x+    freeMem win_y+    return (result', win_x', win_y')++-- method Window::constrain_size+-- method type : MemberFunction+-- Args : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "new_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- height : TBasicType TInt32+    Ptr Int32 ->                            -- new_width : TBasicType TInt32+    Ptr Int32 ->                            -- new_height : TBasicType TInt32+    IO ()+++windowConstrainSize ::+    (MonadIO m) =>+    Geometry ->                             -- geometry+    [WindowHints] ->                        -- flags+    Int32 ->                                -- width+    Int32 ->                                -- height+    m (Int32,Int32)+windowConstrainSize geometry flags width height = liftIO $ do+    let geometry' = unsafeManagedPtrGetPtr geometry+    let flags' = gflagsToWord flags+    new_width <- allocMem :: IO (Ptr Int32)+    new_height <- allocMem :: IO (Ptr Int32)+    gdk_window_constrain_size geometry' flags' width height new_width new_height+    new_width' <- peek new_width+    new_height' <- peek new_height+    touchManagedPtr geometry+    freeMem new_width+    freeMem new_height+    return (new_width', new_height')++-- method Window::process_all_updates+-- method type : MemberFunction+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_window_process_all_updates" gdk_window_process_all_updates :: +    IO ()+++windowProcessAllUpdates ::+    (MonadIO m) =>+    m ()+windowProcessAllUpdates  = liftIO $ do+    gdk_window_process_all_updates+    return ()++-- method Window::set_debug_updates+-- method type : MemberFunction+-- Args : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+windowSetDebugUpdates setting = liftIO $ do+    let setting' = (fromIntegral . fromEnum) setting+    gdk_window_set_debug_updates setting'+    return ()++-- 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 _ embedder_x embedder_y offscreen_x offscreen_y _ = do+    let embedder_x' = realToFrac embedder_x+    let embedder_y' = realToFrac embedder_y+    (outoffscreen_x, outoffscreen_y) <- _cb  embedder_x' embedder_y'+    let outoffscreen_x' = realToFrac outoffscreen_x+    poke offscreen_x outoffscreen_x'+    let outoffscreen_y' = realToFrac outoffscreen_y+    poke offscreen_y outoffscreen_y'++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 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'+    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 _ offscreen_x offscreen_y embedder_x embedder_y _ = do+    let offscreen_x' = realToFrac offscreen_x+    let offscreen_y' = realToFrac offscreen_y+    (outembedder_x, outembedder_y) <- _cb  offscreen_x' offscreen_y'+    let outembedder_x' = realToFrac outembedder_x+    poke embedder_x outembedder_x'+    let outembedder_y' = realToFrac outembedder_y+    poke embedder_y outembedder_y'++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++-- struct WindowAttr+newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr)+noWindowAttr :: Maybe WindowAttr+noWindowAttr = Nothing++windowAttrReadTitle :: WindowAttr -> IO T.Text+windowAttrReadTitle s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 0) :: IO CString+    val' <- cstringToText val+    return val'++windowAttrReadEventMask :: WindowAttr -> IO Int32+windowAttrReadEventMask s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 8) :: IO Int32+    return val++windowAttrReadX :: WindowAttr -> IO Int32+windowAttrReadX s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 12) :: IO Int32+    return val++windowAttrReadY :: WindowAttr -> IO Int32+windowAttrReadY s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 16) :: IO Int32+    return val++windowAttrReadWidth :: WindowAttr -> IO Int32+windowAttrReadWidth s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 20) :: IO Int32+    return val++windowAttrReadHeight :: WindowAttr -> IO Int32+windowAttrReadHeight s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 24) :: IO Int32+    return val++windowAttrReadWclass :: WindowAttr -> IO WindowWindowClass+windowAttrReadWclass s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 28) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++windowAttrReadVisual :: WindowAttr -> IO Visual+windowAttrReadVisual s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Visual)+    val' <- (newObject Visual) val+    return val'++windowAttrReadWindowType :: WindowAttr -> IO WindowType+windowAttrReadWindowType s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 40) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++windowAttrReadCursor :: WindowAttr -> IO Cursor+windowAttrReadCursor s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 48) :: IO (Ptr Cursor)+    val' <- (newObject Cursor) val+    return val'++windowAttrReadWmclassName :: WindowAttr -> IO T.Text+windowAttrReadWmclassName s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 56) :: IO CString+    val' <- cstringToText val+    return val'++windowAttrReadWmclassClass :: WindowAttr -> IO T.Text+windowAttrReadWmclassClass s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 64) :: IO CString+    val' <- cstringToText val+    return val'++windowAttrReadOverrideRedirect :: WindowAttr -> IO Bool+windowAttrReadOverrideRedirect s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 72) :: IO CInt+    let val' = (/= 0) val+    return val'++windowAttrReadTypeHint :: WindowAttr -> IO WindowTypeHint+windowAttrReadTypeHint s = withManagedPtr s $ \ptr -> do+    val <- peek (ptr `plusPtr` 76) :: IO CUInt+    let val' = (toEnum . fromIntegral) val+    return val'++-- 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 BoxedEnum WindowAttributesType where+    boxedEnumType _ = c_gdk_window_attributes_type_get_type++instance IsGFlag WindowAttributesType++-- 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'++-- 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++-- 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 BoxedEnum WindowHints where+    boxedEnumType _ = c_gdk_window_hints_get_type++instance IsGFlag WindowHints++-- 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++-- struct WindowRedirect+newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect)+noWindowRedirect :: Maybe WindowRedirect+noWindowRedirect = Nothing++-- 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 BoxedEnum WindowState where+    boxedEnumType _ = c_gdk_window_state_get_type++instance IsGFlag WindowState++-- 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 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 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++-- constant _BUTTON_MIDDLE++_BUTTON_MIDDLE :: Int32+_BUTTON_MIDDLE = 2+-- constant _BUTTON_PRIMARY++_BUTTON_PRIMARY :: Int32+_BUTTON_PRIMARY = 1+-- constant _BUTTON_SECONDARY++_BUTTON_SECONDARY :: Int32+_BUTTON_SECONDARY = 3+-- constant _CURRENT_TIME++_CURRENT_TIME :: Int32+_CURRENT_TIME = 0+-- constant _EVENT_PROPAGATE++_EVENT_PROPAGATE :: Bool+_EVENT_PROPAGATE = False+-- constant _EVENT_STOP++_EVENT_STOP :: Bool+_EVENT_STOP = True+-- constant _KEY_0++_KEY_0 :: Int32+_KEY_0 = 48+-- constant _KEY_1++_KEY_1 :: Int32+_KEY_1 = 49+-- constant _KEY_2++_KEY_2 :: Int32+_KEY_2 = 50+-- constant _KEY_3++_KEY_3 :: Int32+_KEY_3 = 51+-- constant _KEY_3270_AltCursor++_KEY_3270_AltCursor :: Int32+_KEY_3270_AltCursor = 64784+-- constant _KEY_3270_Attn++_KEY_3270_Attn :: Int32+_KEY_3270_Attn = 64782+-- constant _KEY_3270_BackTab++_KEY_3270_BackTab :: Int32+_KEY_3270_BackTab = 64773+-- constant _KEY_3270_ChangeScreen++_KEY_3270_ChangeScreen :: Int32+_KEY_3270_ChangeScreen = 64793+-- constant _KEY_3270_Copy++_KEY_3270_Copy :: Int32+_KEY_3270_Copy = 64789+-- constant _KEY_3270_CursorBlink++_KEY_3270_CursorBlink :: Int32+_KEY_3270_CursorBlink = 64783+-- constant _KEY_3270_CursorSelect++_KEY_3270_CursorSelect :: Int32+_KEY_3270_CursorSelect = 64796+-- constant _KEY_3270_DeleteWord++_KEY_3270_DeleteWord :: Int32+_KEY_3270_DeleteWord = 64794+-- constant _KEY_3270_Duplicate++_KEY_3270_Duplicate :: Int32+_KEY_3270_Duplicate = 64769+-- constant _KEY_3270_Enter++_KEY_3270_Enter :: Int32+_KEY_3270_Enter = 64798+-- constant _KEY_3270_EraseEOF++_KEY_3270_EraseEOF :: Int32+_KEY_3270_EraseEOF = 64774+-- constant _KEY_3270_EraseInput++_KEY_3270_EraseInput :: Int32+_KEY_3270_EraseInput = 64775+-- constant _KEY_3270_ExSelect++_KEY_3270_ExSelect :: Int32+_KEY_3270_ExSelect = 64795+-- constant _KEY_3270_FieldMark++_KEY_3270_FieldMark :: Int32+_KEY_3270_FieldMark = 64770+-- constant _KEY_3270_Ident++_KEY_3270_Ident :: Int32+_KEY_3270_Ident = 64787+-- constant _KEY_3270_Jump++_KEY_3270_Jump :: Int32+_KEY_3270_Jump = 64786+-- constant _KEY_3270_KeyClick++_KEY_3270_KeyClick :: Int32+_KEY_3270_KeyClick = 64785+-- constant _KEY_3270_Left2++_KEY_3270_Left2 :: Int32+_KEY_3270_Left2 = 64772+-- constant _KEY_3270_PA1++_KEY_3270_PA1 :: Int32+_KEY_3270_PA1 = 64778+-- constant _KEY_3270_PA2++_KEY_3270_PA2 :: Int32+_KEY_3270_PA2 = 64779+-- constant _KEY_3270_PA3++_KEY_3270_PA3 :: Int32+_KEY_3270_PA3 = 64780+-- constant _KEY_3270_Play++_KEY_3270_Play :: Int32+_KEY_3270_Play = 64790+-- constant _KEY_3270_PrintScreen++_KEY_3270_PrintScreen :: Int32+_KEY_3270_PrintScreen = 64797+-- constant _KEY_3270_Quit++_KEY_3270_Quit :: Int32+_KEY_3270_Quit = 64777+-- constant _KEY_3270_Record++_KEY_3270_Record :: Int32+_KEY_3270_Record = 64792+-- constant _KEY_3270_Reset++_KEY_3270_Reset :: Int32+_KEY_3270_Reset = 64776+-- constant _KEY_3270_Right2++_KEY_3270_Right2 :: Int32+_KEY_3270_Right2 = 64771+-- constant _KEY_3270_Rule++_KEY_3270_Rule :: Int32+_KEY_3270_Rule = 64788+-- constant _KEY_3270_Setup++_KEY_3270_Setup :: Int32+_KEY_3270_Setup = 64791+-- constant _KEY_3270_Test++_KEY_3270_Test :: Int32+_KEY_3270_Test = 64781+-- constant _KEY_4++_KEY_4 :: Int32+_KEY_4 = 52+-- constant _KEY_5++_KEY_5 :: Int32+_KEY_5 = 53+-- constant _KEY_6++_KEY_6 :: Int32+_KEY_6 = 54+-- constant _KEY_7++_KEY_7 :: Int32+_KEY_7 = 55+-- constant _KEY_8++_KEY_8 :: Int32+_KEY_8 = 56+-- constant _KEY_9++_KEY_9 :: Int32+_KEY_9 = 57+-- constant _KEY_A++_KEY_A :: Int32+_KEY_A = 65+-- constant _KEY_AE++_KEY_AE :: Int32+_KEY_AE = 198+-- constant _KEY_Aacute++_KEY_Aacute :: Int32+_KEY_Aacute = 193+-- constant _KEY_Abelowdot++_KEY_Abelowdot :: Int32+_KEY_Abelowdot = 16785056+-- constant _KEY_Abreve++_KEY_Abreve :: Int32+_KEY_Abreve = 451+-- constant _KEY_Abreveacute++_KEY_Abreveacute :: Int32+_KEY_Abreveacute = 16785070+-- constant _KEY_Abrevebelowdot++_KEY_Abrevebelowdot :: Int32+_KEY_Abrevebelowdot = 16785078+-- constant _KEY_Abrevegrave++_KEY_Abrevegrave :: Int32+_KEY_Abrevegrave = 16785072+-- constant _KEY_Abrevehook++_KEY_Abrevehook :: Int32+_KEY_Abrevehook = 16785074+-- constant _KEY_Abrevetilde++_KEY_Abrevetilde :: Int32+_KEY_Abrevetilde = 16785076+-- constant _KEY_AccessX_Enable++_KEY_AccessX_Enable :: Int32+_KEY_AccessX_Enable = 65136+-- constant _KEY_AccessX_Feedback_Enable++_KEY_AccessX_Feedback_Enable :: Int32+_KEY_AccessX_Feedback_Enable = 65137+-- constant _KEY_Acircumflex++_KEY_Acircumflex :: Int32+_KEY_Acircumflex = 194+-- constant _KEY_Acircumflexacute++_KEY_Acircumflexacute :: Int32+_KEY_Acircumflexacute = 16785060+-- constant _KEY_Acircumflexbelowdot++_KEY_Acircumflexbelowdot :: Int32+_KEY_Acircumflexbelowdot = 16785068+-- constant _KEY_Acircumflexgrave++_KEY_Acircumflexgrave :: Int32+_KEY_Acircumflexgrave = 16785062+-- constant _KEY_Acircumflexhook++_KEY_Acircumflexhook :: Int32+_KEY_Acircumflexhook = 16785064+-- constant _KEY_Acircumflextilde++_KEY_Acircumflextilde :: Int32+_KEY_Acircumflextilde = 16785066+-- constant _KEY_AddFavorite++_KEY_AddFavorite :: Int32+_KEY_AddFavorite = 269025081+-- constant _KEY_Adiaeresis++_KEY_Adiaeresis :: Int32+_KEY_Adiaeresis = 196+-- constant _KEY_Agrave++_KEY_Agrave :: Int32+_KEY_Agrave = 192+-- constant _KEY_Ahook++_KEY_Ahook :: Int32+_KEY_Ahook = 16785058+-- constant _KEY_Alt_L++_KEY_Alt_L :: Int32+_KEY_Alt_L = 65513+-- constant _KEY_Alt_R++_KEY_Alt_R :: Int32+_KEY_Alt_R = 65514+-- constant _KEY_Amacron++_KEY_Amacron :: Int32+_KEY_Amacron = 960+-- constant _KEY_Aogonek++_KEY_Aogonek :: Int32+_KEY_Aogonek = 417+-- constant _KEY_ApplicationLeft++_KEY_ApplicationLeft :: Int32+_KEY_ApplicationLeft = 269025104+-- constant _KEY_ApplicationRight++_KEY_ApplicationRight :: Int32+_KEY_ApplicationRight = 269025105+-- constant _KEY_Arabic_0++_KEY_Arabic_0 :: Int32+_KEY_Arabic_0 = 16778848+-- constant _KEY_Arabic_1++_KEY_Arabic_1 :: Int32+_KEY_Arabic_1 = 16778849+-- constant _KEY_Arabic_2++_KEY_Arabic_2 :: Int32+_KEY_Arabic_2 = 16778850+-- constant _KEY_Arabic_3++_KEY_Arabic_3 :: Int32+_KEY_Arabic_3 = 16778851+-- constant _KEY_Arabic_4++_KEY_Arabic_4 :: Int32+_KEY_Arabic_4 = 16778852+-- constant _KEY_Arabic_5++_KEY_Arabic_5 :: Int32+_KEY_Arabic_5 = 16778853+-- constant _KEY_Arabic_6++_KEY_Arabic_6 :: Int32+_KEY_Arabic_6 = 16778854+-- constant _KEY_Arabic_7++_KEY_Arabic_7 :: Int32+_KEY_Arabic_7 = 16778855+-- constant _KEY_Arabic_8++_KEY_Arabic_8 :: Int32+_KEY_Arabic_8 = 16778856+-- constant _KEY_Arabic_9++_KEY_Arabic_9 :: Int32+_KEY_Arabic_9 = 16778857+-- constant _KEY_Arabic_ain++_KEY_Arabic_ain :: Int32+_KEY_Arabic_ain = 1497+-- constant _KEY_Arabic_alef++_KEY_Arabic_alef :: Int32+_KEY_Arabic_alef = 1479+-- constant _KEY_Arabic_alefmaksura++_KEY_Arabic_alefmaksura :: Int32+_KEY_Arabic_alefmaksura = 1513+-- constant _KEY_Arabic_beh++_KEY_Arabic_beh :: Int32+_KEY_Arabic_beh = 1480+-- constant _KEY_Arabic_comma++_KEY_Arabic_comma :: Int32+_KEY_Arabic_comma = 1452+-- constant _KEY_Arabic_dad++_KEY_Arabic_dad :: Int32+_KEY_Arabic_dad = 1494+-- constant _KEY_Arabic_dal++_KEY_Arabic_dal :: Int32+_KEY_Arabic_dal = 1487+-- constant _KEY_Arabic_damma++_KEY_Arabic_damma :: Int32+_KEY_Arabic_damma = 1519+-- constant _KEY_Arabic_dammatan++_KEY_Arabic_dammatan :: Int32+_KEY_Arabic_dammatan = 1516+-- constant _KEY_Arabic_ddal++_KEY_Arabic_ddal :: Int32+_KEY_Arabic_ddal = 16778888+-- constant _KEY_Arabic_farsi_yeh++_KEY_Arabic_farsi_yeh :: Int32+_KEY_Arabic_farsi_yeh = 16778956+-- constant _KEY_Arabic_fatha++_KEY_Arabic_fatha :: Int32+_KEY_Arabic_fatha = 1518+-- constant _KEY_Arabic_fathatan++_KEY_Arabic_fathatan :: Int32+_KEY_Arabic_fathatan = 1515+-- constant _KEY_Arabic_feh++_KEY_Arabic_feh :: Int32+_KEY_Arabic_feh = 1505+-- constant _KEY_Arabic_fullstop++_KEY_Arabic_fullstop :: Int32+_KEY_Arabic_fullstop = 16778964+-- constant _KEY_Arabic_gaf++_KEY_Arabic_gaf :: Int32+_KEY_Arabic_gaf = 16778927+-- constant _KEY_Arabic_ghain++_KEY_Arabic_ghain :: Int32+_KEY_Arabic_ghain = 1498+-- constant _KEY_Arabic_ha++_KEY_Arabic_ha :: Int32+_KEY_Arabic_ha = 1511+-- constant _KEY_Arabic_hah++_KEY_Arabic_hah :: Int32+_KEY_Arabic_hah = 1485+-- constant _KEY_Arabic_hamza++_KEY_Arabic_hamza :: Int32+_KEY_Arabic_hamza = 1473+-- constant _KEY_Arabic_hamza_above++_KEY_Arabic_hamza_above :: Int32+_KEY_Arabic_hamza_above = 16778836+-- constant _KEY_Arabic_hamza_below++_KEY_Arabic_hamza_below :: Int32+_KEY_Arabic_hamza_below = 16778837+-- constant _KEY_Arabic_hamzaonalef++_KEY_Arabic_hamzaonalef :: Int32+_KEY_Arabic_hamzaonalef = 1475+-- constant _KEY_Arabic_hamzaonwaw++_KEY_Arabic_hamzaonwaw :: Int32+_KEY_Arabic_hamzaonwaw = 1476+-- constant _KEY_Arabic_hamzaonyeh++_KEY_Arabic_hamzaonyeh :: Int32+_KEY_Arabic_hamzaonyeh = 1478+-- constant _KEY_Arabic_hamzaunderalef++_KEY_Arabic_hamzaunderalef :: Int32+_KEY_Arabic_hamzaunderalef = 1477+-- constant _KEY_Arabic_heh++_KEY_Arabic_heh :: Int32+_KEY_Arabic_heh = 1511+-- constant _KEY_Arabic_heh_doachashmee++_KEY_Arabic_heh_doachashmee :: Int32+_KEY_Arabic_heh_doachashmee = 16778942+-- constant _KEY_Arabic_heh_goal++_KEY_Arabic_heh_goal :: Int32+_KEY_Arabic_heh_goal = 16778945+-- constant _KEY_Arabic_jeem++_KEY_Arabic_jeem :: Int32+_KEY_Arabic_jeem = 1484+-- constant _KEY_Arabic_jeh++_KEY_Arabic_jeh :: Int32+_KEY_Arabic_jeh = 16778904+-- constant _KEY_Arabic_kaf++_KEY_Arabic_kaf :: Int32+_KEY_Arabic_kaf = 1507+-- constant _KEY_Arabic_kasra++_KEY_Arabic_kasra :: Int32+_KEY_Arabic_kasra = 1520+-- constant _KEY_Arabic_kasratan++_KEY_Arabic_kasratan :: Int32+_KEY_Arabic_kasratan = 1517+-- constant _KEY_Arabic_keheh++_KEY_Arabic_keheh :: Int32+_KEY_Arabic_keheh = 16778921+-- constant _KEY_Arabic_khah++_KEY_Arabic_khah :: Int32+_KEY_Arabic_khah = 1486+-- constant _KEY_Arabic_lam++_KEY_Arabic_lam :: Int32+_KEY_Arabic_lam = 1508+-- constant _KEY_Arabic_madda_above++_KEY_Arabic_madda_above :: Int32+_KEY_Arabic_madda_above = 16778835+-- constant _KEY_Arabic_maddaonalef++_KEY_Arabic_maddaonalef :: Int32+_KEY_Arabic_maddaonalef = 1474+-- constant _KEY_Arabic_meem++_KEY_Arabic_meem :: Int32+_KEY_Arabic_meem = 1509+-- constant _KEY_Arabic_noon++_KEY_Arabic_noon :: Int32+_KEY_Arabic_noon = 1510+-- constant _KEY_Arabic_noon_ghunna++_KEY_Arabic_noon_ghunna :: Int32+_KEY_Arabic_noon_ghunna = 16778938+-- constant _KEY_Arabic_peh++_KEY_Arabic_peh :: Int32+_KEY_Arabic_peh = 16778878+-- constant _KEY_Arabic_percent++_KEY_Arabic_percent :: Int32+_KEY_Arabic_percent = 16778858+-- constant _KEY_Arabic_qaf++_KEY_Arabic_qaf :: Int32+_KEY_Arabic_qaf = 1506+-- constant _KEY_Arabic_question_mark++_KEY_Arabic_question_mark :: Int32+_KEY_Arabic_question_mark = 1471+-- constant _KEY_Arabic_ra++_KEY_Arabic_ra :: Int32+_KEY_Arabic_ra = 1489+-- constant _KEY_Arabic_rreh++_KEY_Arabic_rreh :: Int32+_KEY_Arabic_rreh = 16778897+-- constant _KEY_Arabic_sad++_KEY_Arabic_sad :: Int32+_KEY_Arabic_sad = 1493+-- constant _KEY_Arabic_seen++_KEY_Arabic_seen :: Int32+_KEY_Arabic_seen = 1491+-- constant _KEY_Arabic_semicolon++_KEY_Arabic_semicolon :: Int32+_KEY_Arabic_semicolon = 1467+-- constant _KEY_Arabic_shadda++_KEY_Arabic_shadda :: Int32+_KEY_Arabic_shadda = 1521+-- constant _KEY_Arabic_sheen++_KEY_Arabic_sheen :: Int32+_KEY_Arabic_sheen = 1492+-- constant _KEY_Arabic_sukun++_KEY_Arabic_sukun :: Int32+_KEY_Arabic_sukun = 1522+-- constant _KEY_Arabic_superscript_alef++_KEY_Arabic_superscript_alef :: Int32+_KEY_Arabic_superscript_alef = 16778864+-- constant _KEY_Arabic_switch++_KEY_Arabic_switch :: Int32+_KEY_Arabic_switch = 65406+-- constant _KEY_Arabic_tah++_KEY_Arabic_tah :: Int32+_KEY_Arabic_tah = 1495+-- constant _KEY_Arabic_tatweel++_KEY_Arabic_tatweel :: Int32+_KEY_Arabic_tatweel = 1504+-- constant _KEY_Arabic_tcheh++_KEY_Arabic_tcheh :: Int32+_KEY_Arabic_tcheh = 16778886+-- constant _KEY_Arabic_teh++_KEY_Arabic_teh :: Int32+_KEY_Arabic_teh = 1482+-- constant _KEY_Arabic_tehmarbuta++_KEY_Arabic_tehmarbuta :: Int32+_KEY_Arabic_tehmarbuta = 1481+-- constant _KEY_Arabic_thal++_KEY_Arabic_thal :: Int32+_KEY_Arabic_thal = 1488+-- constant _KEY_Arabic_theh++_KEY_Arabic_theh :: Int32+_KEY_Arabic_theh = 1483+-- constant _KEY_Arabic_tteh++_KEY_Arabic_tteh :: Int32+_KEY_Arabic_tteh = 16778873+-- constant _KEY_Arabic_veh++_KEY_Arabic_veh :: Int32+_KEY_Arabic_veh = 16778916+-- constant _KEY_Arabic_waw++_KEY_Arabic_waw :: Int32+_KEY_Arabic_waw = 1512+-- constant _KEY_Arabic_yeh++_KEY_Arabic_yeh :: Int32+_KEY_Arabic_yeh = 1514+-- constant _KEY_Arabic_yeh_baree++_KEY_Arabic_yeh_baree :: Int32+_KEY_Arabic_yeh_baree = 16778962+-- constant _KEY_Arabic_zah++_KEY_Arabic_zah :: Int32+_KEY_Arabic_zah = 1496+-- constant _KEY_Arabic_zain++_KEY_Arabic_zain :: Int32+_KEY_Arabic_zain = 1490+-- constant _KEY_Aring++_KEY_Aring :: Int32+_KEY_Aring = 197+-- constant _KEY_Armenian_AT++_KEY_Armenian_AT :: Int32+_KEY_Armenian_AT = 16778552+-- constant _KEY_Armenian_AYB++_KEY_Armenian_AYB :: Int32+_KEY_Armenian_AYB = 16778545+-- constant _KEY_Armenian_BEN++_KEY_Armenian_BEN :: Int32+_KEY_Armenian_BEN = 16778546+-- constant _KEY_Armenian_CHA++_KEY_Armenian_CHA :: Int32+_KEY_Armenian_CHA = 16778569+-- constant _KEY_Armenian_DA++_KEY_Armenian_DA :: Int32+_KEY_Armenian_DA = 16778548+-- constant _KEY_Armenian_DZA++_KEY_Armenian_DZA :: Int32+_KEY_Armenian_DZA = 16778561+-- constant _KEY_Armenian_E++_KEY_Armenian_E :: Int32+_KEY_Armenian_E = 16778551+-- constant _KEY_Armenian_FE++_KEY_Armenian_FE :: Int32+_KEY_Armenian_FE = 16778582+-- constant _KEY_Armenian_GHAT++_KEY_Armenian_GHAT :: Int32+_KEY_Armenian_GHAT = 16778562+-- constant _KEY_Armenian_GIM++_KEY_Armenian_GIM :: Int32+_KEY_Armenian_GIM = 16778547+-- constant _KEY_Armenian_HI++_KEY_Armenian_HI :: Int32+_KEY_Armenian_HI = 16778565+-- constant _KEY_Armenian_HO++_KEY_Armenian_HO :: Int32+_KEY_Armenian_HO = 16778560+-- constant _KEY_Armenian_INI++_KEY_Armenian_INI :: Int32+_KEY_Armenian_INI = 16778555+-- constant _KEY_Armenian_JE++_KEY_Armenian_JE :: Int32+_KEY_Armenian_JE = 16778571+-- constant _KEY_Armenian_KE++_KEY_Armenian_KE :: Int32+_KEY_Armenian_KE = 16778580+-- constant _KEY_Armenian_KEN++_KEY_Armenian_KEN :: Int32+_KEY_Armenian_KEN = 16778559+-- constant _KEY_Armenian_KHE++_KEY_Armenian_KHE :: Int32+_KEY_Armenian_KHE = 16778557+-- constant _KEY_Armenian_LYUN++_KEY_Armenian_LYUN :: Int32+_KEY_Armenian_LYUN = 16778556+-- constant _KEY_Armenian_MEN++_KEY_Armenian_MEN :: Int32+_KEY_Armenian_MEN = 16778564+-- constant _KEY_Armenian_NU++_KEY_Armenian_NU :: Int32+_KEY_Armenian_NU = 16778566+-- constant _KEY_Armenian_O++_KEY_Armenian_O :: Int32+_KEY_Armenian_O = 16778581+-- constant _KEY_Armenian_PE++_KEY_Armenian_PE :: Int32+_KEY_Armenian_PE = 16778570+-- constant _KEY_Armenian_PYUR++_KEY_Armenian_PYUR :: Int32+_KEY_Armenian_PYUR = 16778579+-- constant _KEY_Armenian_RA++_KEY_Armenian_RA :: Int32+_KEY_Armenian_RA = 16778572+-- constant _KEY_Armenian_RE++_KEY_Armenian_RE :: Int32+_KEY_Armenian_RE = 16778576+-- constant _KEY_Armenian_SE++_KEY_Armenian_SE :: Int32+_KEY_Armenian_SE = 16778573+-- constant _KEY_Armenian_SHA++_KEY_Armenian_SHA :: Int32+_KEY_Armenian_SHA = 16778567+-- constant _KEY_Armenian_TCHE++_KEY_Armenian_TCHE :: Int32+_KEY_Armenian_TCHE = 16778563+-- constant _KEY_Armenian_TO++_KEY_Armenian_TO :: Int32+_KEY_Armenian_TO = 16778553+-- constant _KEY_Armenian_TSA++_KEY_Armenian_TSA :: Int32+_KEY_Armenian_TSA = 16778558+-- constant _KEY_Armenian_TSO++_KEY_Armenian_TSO :: Int32+_KEY_Armenian_TSO = 16778577+-- constant _KEY_Armenian_TYUN++_KEY_Armenian_TYUN :: Int32+_KEY_Armenian_TYUN = 16778575+-- constant _KEY_Armenian_VEV++_KEY_Armenian_VEV :: Int32+_KEY_Armenian_VEV = 16778574+-- constant _KEY_Armenian_VO++_KEY_Armenian_VO :: Int32+_KEY_Armenian_VO = 16778568+-- constant _KEY_Armenian_VYUN++_KEY_Armenian_VYUN :: Int32+_KEY_Armenian_VYUN = 16778578+-- constant _KEY_Armenian_YECH++_KEY_Armenian_YECH :: Int32+_KEY_Armenian_YECH = 16778549+-- constant _KEY_Armenian_ZA++_KEY_Armenian_ZA :: Int32+_KEY_Armenian_ZA = 16778550+-- constant _KEY_Armenian_ZHE++_KEY_Armenian_ZHE :: Int32+_KEY_Armenian_ZHE = 16778554+-- constant _KEY_Armenian_accent++_KEY_Armenian_accent :: Int32+_KEY_Armenian_accent = 16778587+-- constant _KEY_Armenian_amanak++_KEY_Armenian_amanak :: Int32+_KEY_Armenian_amanak = 16778588+-- constant _KEY_Armenian_apostrophe++_KEY_Armenian_apostrophe :: Int32+_KEY_Armenian_apostrophe = 16778586+-- constant _KEY_Armenian_at++_KEY_Armenian_at :: Int32+_KEY_Armenian_at = 16778600+-- constant _KEY_Armenian_ayb++_KEY_Armenian_ayb :: Int32+_KEY_Armenian_ayb = 16778593+-- constant _KEY_Armenian_ben++_KEY_Armenian_ben :: Int32+_KEY_Armenian_ben = 16778594+-- constant _KEY_Armenian_but++_KEY_Armenian_but :: Int32+_KEY_Armenian_but = 16778589+-- constant _KEY_Armenian_cha++_KEY_Armenian_cha :: Int32+_KEY_Armenian_cha = 16778617+-- constant _KEY_Armenian_da++_KEY_Armenian_da :: Int32+_KEY_Armenian_da = 16778596+-- constant _KEY_Armenian_dza++_KEY_Armenian_dza :: Int32+_KEY_Armenian_dza = 16778609+-- constant _KEY_Armenian_e++_KEY_Armenian_e :: Int32+_KEY_Armenian_e = 16778599+-- constant _KEY_Armenian_exclam++_KEY_Armenian_exclam :: Int32+_KEY_Armenian_exclam = 16778588+-- constant _KEY_Armenian_fe++_KEY_Armenian_fe :: Int32+_KEY_Armenian_fe = 16778630+-- constant _KEY_Armenian_full_stop++_KEY_Armenian_full_stop :: Int32+_KEY_Armenian_full_stop = 16778633+-- constant _KEY_Armenian_ghat++_KEY_Armenian_ghat :: Int32+_KEY_Armenian_ghat = 16778610+-- constant _KEY_Armenian_gim++_KEY_Armenian_gim :: Int32+_KEY_Armenian_gim = 16778595+-- constant _KEY_Armenian_hi++_KEY_Armenian_hi :: Int32+_KEY_Armenian_hi = 16778613+-- constant _KEY_Armenian_ho++_KEY_Armenian_ho :: Int32+_KEY_Armenian_ho = 16778608+-- constant _KEY_Armenian_hyphen++_KEY_Armenian_hyphen :: Int32+_KEY_Armenian_hyphen = 16778634+-- constant _KEY_Armenian_ini++_KEY_Armenian_ini :: Int32+_KEY_Armenian_ini = 16778603+-- constant _KEY_Armenian_je++_KEY_Armenian_je :: Int32+_KEY_Armenian_je = 16778619+-- constant _KEY_Armenian_ke++_KEY_Armenian_ke :: Int32+_KEY_Armenian_ke = 16778628+-- constant _KEY_Armenian_ken++_KEY_Armenian_ken :: Int32+_KEY_Armenian_ken = 16778607+-- constant _KEY_Armenian_khe++_KEY_Armenian_khe :: Int32+_KEY_Armenian_khe = 16778605+-- constant _KEY_Armenian_ligature_ew++_KEY_Armenian_ligature_ew :: Int32+_KEY_Armenian_ligature_ew = 16778631+-- constant _KEY_Armenian_lyun++_KEY_Armenian_lyun :: Int32+_KEY_Armenian_lyun = 16778604+-- constant _KEY_Armenian_men++_KEY_Armenian_men :: Int32+_KEY_Armenian_men = 16778612+-- constant _KEY_Armenian_nu++_KEY_Armenian_nu :: Int32+_KEY_Armenian_nu = 16778614+-- constant _KEY_Armenian_o++_KEY_Armenian_o :: Int32+_KEY_Armenian_o = 16778629+-- constant _KEY_Armenian_paruyk++_KEY_Armenian_paruyk :: Int32+_KEY_Armenian_paruyk = 16778590+-- constant _KEY_Armenian_pe++_KEY_Armenian_pe :: Int32+_KEY_Armenian_pe = 16778618+-- constant _KEY_Armenian_pyur++_KEY_Armenian_pyur :: Int32+_KEY_Armenian_pyur = 16778627+-- constant _KEY_Armenian_question++_KEY_Armenian_question :: Int32+_KEY_Armenian_question = 16778590+-- constant _KEY_Armenian_ra++_KEY_Armenian_ra :: Int32+_KEY_Armenian_ra = 16778620+-- constant _KEY_Armenian_re++_KEY_Armenian_re :: Int32+_KEY_Armenian_re = 16778624+-- constant _KEY_Armenian_se++_KEY_Armenian_se :: Int32+_KEY_Armenian_se = 16778621+-- constant _KEY_Armenian_separation_mark++_KEY_Armenian_separation_mark :: Int32+_KEY_Armenian_separation_mark = 16778589+-- constant _KEY_Armenian_sha++_KEY_Armenian_sha :: Int32+_KEY_Armenian_sha = 16778615+-- constant _KEY_Armenian_shesht++_KEY_Armenian_shesht :: Int32+_KEY_Armenian_shesht = 16778587+-- constant _KEY_Armenian_tche++_KEY_Armenian_tche :: Int32+_KEY_Armenian_tche = 16778611+-- constant _KEY_Armenian_to++_KEY_Armenian_to :: Int32+_KEY_Armenian_to = 16778601+-- constant _KEY_Armenian_tsa++_KEY_Armenian_tsa :: Int32+_KEY_Armenian_tsa = 16778606+-- constant _KEY_Armenian_tso++_KEY_Armenian_tso :: Int32+_KEY_Armenian_tso = 16778625+-- constant _KEY_Armenian_tyun++_KEY_Armenian_tyun :: Int32+_KEY_Armenian_tyun = 16778623+-- constant _KEY_Armenian_verjaket++_KEY_Armenian_verjaket :: Int32+_KEY_Armenian_verjaket = 16778633+-- constant _KEY_Armenian_vev++_KEY_Armenian_vev :: Int32+_KEY_Armenian_vev = 16778622+-- constant _KEY_Armenian_vo++_KEY_Armenian_vo :: Int32+_KEY_Armenian_vo = 16778616+-- constant _KEY_Armenian_vyun++_KEY_Armenian_vyun :: Int32+_KEY_Armenian_vyun = 16778626+-- constant _KEY_Armenian_yech++_KEY_Armenian_yech :: Int32+_KEY_Armenian_yech = 16778597+-- constant _KEY_Armenian_yentamna++_KEY_Armenian_yentamna :: Int32+_KEY_Armenian_yentamna = 16778634+-- constant _KEY_Armenian_za++_KEY_Armenian_za :: Int32+_KEY_Armenian_za = 16778598+-- constant _KEY_Armenian_zhe++_KEY_Armenian_zhe :: Int32+_KEY_Armenian_zhe = 16778602+-- constant _KEY_Atilde++_KEY_Atilde :: Int32+_KEY_Atilde = 195+-- constant _KEY_AudibleBell_Enable++_KEY_AudibleBell_Enable :: Int32+_KEY_AudibleBell_Enable = 65146+-- constant _KEY_AudioCycleTrack++_KEY_AudioCycleTrack :: Int32+_KEY_AudioCycleTrack = 269025179+-- constant _KEY_AudioForward++_KEY_AudioForward :: Int32+_KEY_AudioForward = 269025175+-- constant _KEY_AudioLowerVolume++_KEY_AudioLowerVolume :: Int32+_KEY_AudioLowerVolume = 269025041+-- constant _KEY_AudioMedia++_KEY_AudioMedia :: Int32+_KEY_AudioMedia = 269025074+-- constant _KEY_AudioMicMute++_KEY_AudioMicMute :: Int32+_KEY_AudioMicMute = 269025202+-- constant _KEY_AudioMute++_KEY_AudioMute :: Int32+_KEY_AudioMute = 269025042+-- constant _KEY_AudioNext++_KEY_AudioNext :: Int32+_KEY_AudioNext = 269025047+-- constant _KEY_AudioPause++_KEY_AudioPause :: Int32+_KEY_AudioPause = 269025073+-- constant _KEY_AudioPlay++_KEY_AudioPlay :: Int32+_KEY_AudioPlay = 269025044+-- constant _KEY_AudioPrev++_KEY_AudioPrev :: Int32+_KEY_AudioPrev = 269025046+-- constant _KEY_AudioRaiseVolume++_KEY_AudioRaiseVolume :: Int32+_KEY_AudioRaiseVolume = 269025043+-- constant _KEY_AudioRandomPlay++_KEY_AudioRandomPlay :: Int32+_KEY_AudioRandomPlay = 269025177+-- constant _KEY_AudioRecord++_KEY_AudioRecord :: Int32+_KEY_AudioRecord = 269025052+-- constant _KEY_AudioRepeat++_KEY_AudioRepeat :: Int32+_KEY_AudioRepeat = 269025176+-- constant _KEY_AudioRewind++_KEY_AudioRewind :: Int32+_KEY_AudioRewind = 269025086+-- constant _KEY_AudioStop++_KEY_AudioStop :: Int32+_KEY_AudioStop = 269025045+-- constant _KEY_Away++_KEY_Away :: Int32+_KEY_Away = 269025165+-- constant _KEY_B++_KEY_B :: Int32+_KEY_B = 66+-- constant _KEY_Babovedot++_KEY_Babovedot :: Int32+_KEY_Babovedot = 16784898+-- constant _KEY_Back++_KEY_Back :: Int32+_KEY_Back = 269025062+-- constant _KEY_BackForward++_KEY_BackForward :: Int32+_KEY_BackForward = 269025087+-- constant _KEY_BackSpace++_KEY_BackSpace :: Int32+_KEY_BackSpace = 65288+-- constant _KEY_Battery++_KEY_Battery :: Int32+_KEY_Battery = 269025171+-- constant _KEY_Begin++_KEY_Begin :: Int32+_KEY_Begin = 65368+-- constant _KEY_Blue++_KEY_Blue :: Int32+_KEY_Blue = 269025190+-- constant _KEY_Bluetooth++_KEY_Bluetooth :: Int32+_KEY_Bluetooth = 269025172+-- constant _KEY_Book++_KEY_Book :: Int32+_KEY_Book = 269025106+-- constant _KEY_BounceKeys_Enable++_KEY_BounceKeys_Enable :: Int32+_KEY_BounceKeys_Enable = 65140+-- constant _KEY_Break++_KEY_Break :: Int32+_KEY_Break = 65387+-- constant _KEY_BrightnessAdjust++_KEY_BrightnessAdjust :: Int32+_KEY_BrightnessAdjust = 269025083+-- constant _KEY_Byelorussian_SHORTU++_KEY_Byelorussian_SHORTU :: Int32+_KEY_Byelorussian_SHORTU = 1726+-- constant _KEY_Byelorussian_shortu++_KEY_Byelorussian_shortu :: Int32+_KEY_Byelorussian_shortu = 1710+-- constant _KEY_C++_KEY_C :: Int32+_KEY_C = 67+-- constant _KEY_CD++_KEY_CD :: Int32+_KEY_CD = 269025107+-- constant _KEY_CH++_KEY_CH :: Int32+_KEY_CH = 65186+-- constant _KEY_C_H++_KEY_C_H :: Int32+_KEY_C_H = 65189+-- constant _KEY_C_h++_KEY_C_h :: Int32+_KEY_C_h = 65188+-- constant _KEY_Cabovedot++_KEY_Cabovedot :: Int32+_KEY_Cabovedot = 709+-- constant _KEY_Cacute++_KEY_Cacute :: Int32+_KEY_Cacute = 454+-- constant _KEY_Calculator++_KEY_Calculator :: Int32+_KEY_Calculator = 269025053+-- constant _KEY_Calendar++_KEY_Calendar :: Int32+_KEY_Calendar = 269025056+-- constant _KEY_Cancel++_KEY_Cancel :: Int32+_KEY_Cancel = 65385+-- constant _KEY_Caps_Lock++_KEY_Caps_Lock :: Int32+_KEY_Caps_Lock = 65509+-- constant _KEY_Ccaron++_KEY_Ccaron :: Int32+_KEY_Ccaron = 456+-- constant _KEY_Ccedilla++_KEY_Ccedilla :: Int32+_KEY_Ccedilla = 199+-- constant _KEY_Ccircumflex++_KEY_Ccircumflex :: Int32+_KEY_Ccircumflex = 710+-- constant _KEY_Ch++_KEY_Ch :: Int32+_KEY_Ch = 65185+-- constant _KEY_Clear++_KEY_Clear :: Int32+_KEY_Clear = 65291+-- constant _KEY_ClearGrab++_KEY_ClearGrab :: Int32+_KEY_ClearGrab = 269024801+-- constant _KEY_Close++_KEY_Close :: Int32+_KEY_Close = 269025110+-- constant _KEY_Codeinput++_KEY_Codeinput :: Int32+_KEY_Codeinput = 65335+-- constant _KEY_ColonSign++_KEY_ColonSign :: Int32+_KEY_ColonSign = 16785569+-- constant _KEY_Community++_KEY_Community :: Int32+_KEY_Community = 269025085+-- constant _KEY_ContrastAdjust++_KEY_ContrastAdjust :: Int32+_KEY_ContrastAdjust = 269025058+-- constant _KEY_Control_L++_KEY_Control_L :: Int32+_KEY_Control_L = 65507+-- constant _KEY_Control_R++_KEY_Control_R :: Int32+_KEY_Control_R = 65508+-- constant _KEY_Copy++_KEY_Copy :: Int32+_KEY_Copy = 269025111+-- constant _KEY_CruzeiroSign++_KEY_CruzeiroSign :: Int32+_KEY_CruzeiroSign = 16785570+-- constant _KEY_Cut++_KEY_Cut :: Int32+_KEY_Cut = 269025112+-- constant _KEY_CycleAngle++_KEY_CycleAngle :: Int32+_KEY_CycleAngle = 269025180+-- constant _KEY_Cyrillic_A++_KEY_Cyrillic_A :: Int32+_KEY_Cyrillic_A = 1761+-- constant _KEY_Cyrillic_BE++_KEY_Cyrillic_BE :: Int32+_KEY_Cyrillic_BE = 1762+-- constant _KEY_Cyrillic_CHE++_KEY_Cyrillic_CHE :: Int32+_KEY_Cyrillic_CHE = 1790+-- constant _KEY_Cyrillic_CHE_descender++_KEY_Cyrillic_CHE_descender :: Int32+_KEY_Cyrillic_CHE_descender = 16778422+-- constant _KEY_Cyrillic_CHE_vertstroke++_KEY_Cyrillic_CHE_vertstroke :: Int32+_KEY_Cyrillic_CHE_vertstroke = 16778424+-- constant _KEY_Cyrillic_DE++_KEY_Cyrillic_DE :: Int32+_KEY_Cyrillic_DE = 1764+-- constant _KEY_Cyrillic_DZHE++_KEY_Cyrillic_DZHE :: Int32+_KEY_Cyrillic_DZHE = 1727+-- constant _KEY_Cyrillic_E++_KEY_Cyrillic_E :: Int32+_KEY_Cyrillic_E = 1788+-- constant _KEY_Cyrillic_EF++_KEY_Cyrillic_EF :: Int32+_KEY_Cyrillic_EF = 1766+-- constant _KEY_Cyrillic_EL++_KEY_Cyrillic_EL :: Int32+_KEY_Cyrillic_EL = 1772+-- constant _KEY_Cyrillic_EM++_KEY_Cyrillic_EM :: Int32+_KEY_Cyrillic_EM = 1773+-- constant _KEY_Cyrillic_EN++_KEY_Cyrillic_EN :: Int32+_KEY_Cyrillic_EN = 1774+-- constant _KEY_Cyrillic_EN_descender++_KEY_Cyrillic_EN_descender :: Int32+_KEY_Cyrillic_EN_descender = 16778402+-- constant _KEY_Cyrillic_ER++_KEY_Cyrillic_ER :: Int32+_KEY_Cyrillic_ER = 1778+-- constant _KEY_Cyrillic_ES++_KEY_Cyrillic_ES :: Int32+_KEY_Cyrillic_ES = 1779+-- constant _KEY_Cyrillic_GHE++_KEY_Cyrillic_GHE :: Int32+_KEY_Cyrillic_GHE = 1767+-- constant _KEY_Cyrillic_GHE_bar++_KEY_Cyrillic_GHE_bar :: Int32+_KEY_Cyrillic_GHE_bar = 16778386+-- constant _KEY_Cyrillic_HA++_KEY_Cyrillic_HA :: Int32+_KEY_Cyrillic_HA = 1768+-- constant _KEY_Cyrillic_HARDSIGN++_KEY_Cyrillic_HARDSIGN :: Int32+_KEY_Cyrillic_HARDSIGN = 1791+-- constant _KEY_Cyrillic_HA_descender++_KEY_Cyrillic_HA_descender :: Int32+_KEY_Cyrillic_HA_descender = 16778418+-- constant _KEY_Cyrillic_I++_KEY_Cyrillic_I :: Int32+_KEY_Cyrillic_I = 1769+-- constant _KEY_Cyrillic_IE++_KEY_Cyrillic_IE :: Int32+_KEY_Cyrillic_IE = 1765+-- constant _KEY_Cyrillic_IO++_KEY_Cyrillic_IO :: Int32+_KEY_Cyrillic_IO = 1715+-- constant _KEY_Cyrillic_I_macron++_KEY_Cyrillic_I_macron :: Int32+_KEY_Cyrillic_I_macron = 16778466+-- constant _KEY_Cyrillic_JE++_KEY_Cyrillic_JE :: Int32+_KEY_Cyrillic_JE = 1720+-- constant _KEY_Cyrillic_KA++_KEY_Cyrillic_KA :: Int32+_KEY_Cyrillic_KA = 1771+-- constant _KEY_Cyrillic_KA_descender++_KEY_Cyrillic_KA_descender :: Int32+_KEY_Cyrillic_KA_descender = 16778394+-- constant _KEY_Cyrillic_KA_vertstroke++_KEY_Cyrillic_KA_vertstroke :: Int32+_KEY_Cyrillic_KA_vertstroke = 16778396+-- constant _KEY_Cyrillic_LJE++_KEY_Cyrillic_LJE :: Int32+_KEY_Cyrillic_LJE = 1721+-- constant _KEY_Cyrillic_NJE++_KEY_Cyrillic_NJE :: Int32+_KEY_Cyrillic_NJE = 1722+-- constant _KEY_Cyrillic_O++_KEY_Cyrillic_O :: Int32+_KEY_Cyrillic_O = 1775+-- constant _KEY_Cyrillic_O_bar++_KEY_Cyrillic_O_bar :: Int32+_KEY_Cyrillic_O_bar = 16778472+-- constant _KEY_Cyrillic_PE++_KEY_Cyrillic_PE :: Int32+_KEY_Cyrillic_PE = 1776+-- constant _KEY_Cyrillic_SCHWA++_KEY_Cyrillic_SCHWA :: Int32+_KEY_Cyrillic_SCHWA = 16778456+-- constant _KEY_Cyrillic_SHA++_KEY_Cyrillic_SHA :: Int32+_KEY_Cyrillic_SHA = 1787+-- constant _KEY_Cyrillic_SHCHA++_KEY_Cyrillic_SHCHA :: Int32+_KEY_Cyrillic_SHCHA = 1789+-- constant _KEY_Cyrillic_SHHA++_KEY_Cyrillic_SHHA :: Int32+_KEY_Cyrillic_SHHA = 16778426+-- constant _KEY_Cyrillic_SHORTI++_KEY_Cyrillic_SHORTI :: Int32+_KEY_Cyrillic_SHORTI = 1770+-- constant _KEY_Cyrillic_SOFTSIGN++_KEY_Cyrillic_SOFTSIGN :: Int32+_KEY_Cyrillic_SOFTSIGN = 1784+-- constant _KEY_Cyrillic_TE++_KEY_Cyrillic_TE :: Int32+_KEY_Cyrillic_TE = 1780+-- constant _KEY_Cyrillic_TSE++_KEY_Cyrillic_TSE :: Int32+_KEY_Cyrillic_TSE = 1763+-- constant _KEY_Cyrillic_U++_KEY_Cyrillic_U :: Int32+_KEY_Cyrillic_U = 1781+-- constant _KEY_Cyrillic_U_macron++_KEY_Cyrillic_U_macron :: Int32+_KEY_Cyrillic_U_macron = 16778478+-- constant _KEY_Cyrillic_U_straight++_KEY_Cyrillic_U_straight :: Int32+_KEY_Cyrillic_U_straight = 16778414+-- constant _KEY_Cyrillic_U_straight_bar++_KEY_Cyrillic_U_straight_bar :: Int32+_KEY_Cyrillic_U_straight_bar = 16778416+-- constant _KEY_Cyrillic_VE++_KEY_Cyrillic_VE :: Int32+_KEY_Cyrillic_VE = 1783+-- constant _KEY_Cyrillic_YA++_KEY_Cyrillic_YA :: Int32+_KEY_Cyrillic_YA = 1777+-- constant _KEY_Cyrillic_YERU++_KEY_Cyrillic_YERU :: Int32+_KEY_Cyrillic_YERU = 1785+-- constant _KEY_Cyrillic_YU++_KEY_Cyrillic_YU :: Int32+_KEY_Cyrillic_YU = 1760+-- constant _KEY_Cyrillic_ZE++_KEY_Cyrillic_ZE :: Int32+_KEY_Cyrillic_ZE = 1786+-- constant _KEY_Cyrillic_ZHE++_KEY_Cyrillic_ZHE :: Int32+_KEY_Cyrillic_ZHE = 1782+-- constant _KEY_Cyrillic_ZHE_descender++_KEY_Cyrillic_ZHE_descender :: Int32+_KEY_Cyrillic_ZHE_descender = 16778390+-- constant _KEY_Cyrillic_a++_KEY_Cyrillic_a :: Int32+_KEY_Cyrillic_a = 1729+-- constant _KEY_Cyrillic_be++_KEY_Cyrillic_be :: Int32+_KEY_Cyrillic_be = 1730+-- constant _KEY_Cyrillic_che++_KEY_Cyrillic_che :: Int32+_KEY_Cyrillic_che = 1758+-- constant _KEY_Cyrillic_che_descender++_KEY_Cyrillic_che_descender :: Int32+_KEY_Cyrillic_che_descender = 16778423+-- constant _KEY_Cyrillic_che_vertstroke++_KEY_Cyrillic_che_vertstroke :: Int32+_KEY_Cyrillic_che_vertstroke = 16778425+-- constant _KEY_Cyrillic_de++_KEY_Cyrillic_de :: Int32+_KEY_Cyrillic_de = 1732+-- constant _KEY_Cyrillic_dzhe++_KEY_Cyrillic_dzhe :: Int32+_KEY_Cyrillic_dzhe = 1711+-- constant _KEY_Cyrillic_e++_KEY_Cyrillic_e :: Int32+_KEY_Cyrillic_e = 1756+-- constant _KEY_Cyrillic_ef++_KEY_Cyrillic_ef :: Int32+_KEY_Cyrillic_ef = 1734+-- constant _KEY_Cyrillic_el++_KEY_Cyrillic_el :: Int32+_KEY_Cyrillic_el = 1740+-- constant _KEY_Cyrillic_em++_KEY_Cyrillic_em :: Int32+_KEY_Cyrillic_em = 1741+-- constant _KEY_Cyrillic_en++_KEY_Cyrillic_en :: Int32+_KEY_Cyrillic_en = 1742+-- constant _KEY_Cyrillic_en_descender++_KEY_Cyrillic_en_descender :: Int32+_KEY_Cyrillic_en_descender = 16778403+-- constant _KEY_Cyrillic_er++_KEY_Cyrillic_er :: Int32+_KEY_Cyrillic_er = 1746+-- constant _KEY_Cyrillic_es++_KEY_Cyrillic_es :: Int32+_KEY_Cyrillic_es = 1747+-- constant _KEY_Cyrillic_ghe++_KEY_Cyrillic_ghe :: Int32+_KEY_Cyrillic_ghe = 1735+-- constant _KEY_Cyrillic_ghe_bar++_KEY_Cyrillic_ghe_bar :: Int32+_KEY_Cyrillic_ghe_bar = 16778387+-- constant _KEY_Cyrillic_ha++_KEY_Cyrillic_ha :: Int32+_KEY_Cyrillic_ha = 1736+-- constant _KEY_Cyrillic_ha_descender++_KEY_Cyrillic_ha_descender :: Int32+_KEY_Cyrillic_ha_descender = 16778419+-- constant _KEY_Cyrillic_hardsign++_KEY_Cyrillic_hardsign :: Int32+_KEY_Cyrillic_hardsign = 1759+-- constant _KEY_Cyrillic_i++_KEY_Cyrillic_i :: Int32+_KEY_Cyrillic_i = 1737+-- constant _KEY_Cyrillic_i_macron++_KEY_Cyrillic_i_macron :: Int32+_KEY_Cyrillic_i_macron = 16778467+-- constant _KEY_Cyrillic_ie++_KEY_Cyrillic_ie :: Int32+_KEY_Cyrillic_ie = 1733+-- constant _KEY_Cyrillic_io++_KEY_Cyrillic_io :: Int32+_KEY_Cyrillic_io = 1699+-- constant _KEY_Cyrillic_je++_KEY_Cyrillic_je :: Int32+_KEY_Cyrillic_je = 1704+-- constant _KEY_Cyrillic_ka++_KEY_Cyrillic_ka :: Int32+_KEY_Cyrillic_ka = 1739+-- constant _KEY_Cyrillic_ka_descender++_KEY_Cyrillic_ka_descender :: Int32+_KEY_Cyrillic_ka_descender = 16778395+-- constant _KEY_Cyrillic_ka_vertstroke++_KEY_Cyrillic_ka_vertstroke :: Int32+_KEY_Cyrillic_ka_vertstroke = 16778397+-- constant _KEY_Cyrillic_lje++_KEY_Cyrillic_lje :: Int32+_KEY_Cyrillic_lje = 1705+-- constant _KEY_Cyrillic_nje++_KEY_Cyrillic_nje :: Int32+_KEY_Cyrillic_nje = 1706+-- constant _KEY_Cyrillic_o++_KEY_Cyrillic_o :: Int32+_KEY_Cyrillic_o = 1743+-- constant _KEY_Cyrillic_o_bar++_KEY_Cyrillic_o_bar :: Int32+_KEY_Cyrillic_o_bar = 16778473+-- constant _KEY_Cyrillic_pe++_KEY_Cyrillic_pe :: Int32+_KEY_Cyrillic_pe = 1744+-- constant _KEY_Cyrillic_schwa++_KEY_Cyrillic_schwa :: Int32+_KEY_Cyrillic_schwa = 16778457+-- constant _KEY_Cyrillic_sha++_KEY_Cyrillic_sha :: Int32+_KEY_Cyrillic_sha = 1755+-- constant _KEY_Cyrillic_shcha++_KEY_Cyrillic_shcha :: Int32+_KEY_Cyrillic_shcha = 1757+-- constant _KEY_Cyrillic_shha++_KEY_Cyrillic_shha :: Int32+_KEY_Cyrillic_shha = 16778427+-- constant _KEY_Cyrillic_shorti++_KEY_Cyrillic_shorti :: Int32+_KEY_Cyrillic_shorti = 1738+-- constant _KEY_Cyrillic_softsign++_KEY_Cyrillic_softsign :: Int32+_KEY_Cyrillic_softsign = 1752+-- constant _KEY_Cyrillic_te++_KEY_Cyrillic_te :: Int32+_KEY_Cyrillic_te = 1748+-- constant _KEY_Cyrillic_tse++_KEY_Cyrillic_tse :: Int32+_KEY_Cyrillic_tse = 1731+-- constant _KEY_Cyrillic_u++_KEY_Cyrillic_u :: Int32+_KEY_Cyrillic_u = 1749+-- constant _KEY_Cyrillic_u_macron++_KEY_Cyrillic_u_macron :: Int32+_KEY_Cyrillic_u_macron = 16778479+-- constant _KEY_Cyrillic_u_straight++_KEY_Cyrillic_u_straight :: Int32+_KEY_Cyrillic_u_straight = 16778415+-- constant _KEY_Cyrillic_u_straight_bar++_KEY_Cyrillic_u_straight_bar :: Int32+_KEY_Cyrillic_u_straight_bar = 16778417+-- constant _KEY_Cyrillic_ve++_KEY_Cyrillic_ve :: Int32+_KEY_Cyrillic_ve = 1751+-- constant _KEY_Cyrillic_ya++_KEY_Cyrillic_ya :: Int32+_KEY_Cyrillic_ya = 1745+-- constant _KEY_Cyrillic_yeru++_KEY_Cyrillic_yeru :: Int32+_KEY_Cyrillic_yeru = 1753+-- constant _KEY_Cyrillic_yu++_KEY_Cyrillic_yu :: Int32+_KEY_Cyrillic_yu = 1728+-- constant _KEY_Cyrillic_ze++_KEY_Cyrillic_ze :: Int32+_KEY_Cyrillic_ze = 1754+-- constant _KEY_Cyrillic_zhe++_KEY_Cyrillic_zhe :: Int32+_KEY_Cyrillic_zhe = 1750+-- constant _KEY_Cyrillic_zhe_descender++_KEY_Cyrillic_zhe_descender :: Int32+_KEY_Cyrillic_zhe_descender = 16778391+-- constant _KEY_D++_KEY_D :: Int32+_KEY_D = 68+-- constant _KEY_DOS++_KEY_DOS :: Int32+_KEY_DOS = 269025114+-- constant _KEY_Dabovedot++_KEY_Dabovedot :: Int32+_KEY_Dabovedot = 16784906+-- constant _KEY_Dcaron++_KEY_Dcaron :: Int32+_KEY_Dcaron = 463+-- constant _KEY_Delete++_KEY_Delete :: Int32+_KEY_Delete = 65535+-- constant _KEY_Display++_KEY_Display :: Int32+_KEY_Display = 269025113+-- constant _KEY_Documents++_KEY_Documents :: Int32+_KEY_Documents = 269025115+-- constant _KEY_DongSign++_KEY_DongSign :: Int32+_KEY_DongSign = 16785579+-- constant _KEY_Down++_KEY_Down :: Int32+_KEY_Down = 65364+-- constant _KEY_Dstroke++_KEY_Dstroke :: Int32+_KEY_Dstroke = 464+-- constant _KEY_E++_KEY_E :: Int32+_KEY_E = 69+-- constant _KEY_ENG++_KEY_ENG :: Int32+_KEY_ENG = 957+-- constant _KEY_ETH++_KEY_ETH :: Int32+_KEY_ETH = 208+-- constant _KEY_EZH++_KEY_EZH :: Int32+_KEY_EZH = 16777655+-- constant _KEY_Eabovedot++_KEY_Eabovedot :: Int32+_KEY_Eabovedot = 972+-- constant _KEY_Eacute++_KEY_Eacute :: Int32+_KEY_Eacute = 201+-- constant _KEY_Ebelowdot++_KEY_Ebelowdot :: Int32+_KEY_Ebelowdot = 16785080+-- constant _KEY_Ecaron++_KEY_Ecaron :: Int32+_KEY_Ecaron = 460+-- constant _KEY_Ecircumflex++_KEY_Ecircumflex :: Int32+_KEY_Ecircumflex = 202+-- constant _KEY_Ecircumflexacute++_KEY_Ecircumflexacute :: Int32+_KEY_Ecircumflexacute = 16785086+-- constant _KEY_Ecircumflexbelowdot++_KEY_Ecircumflexbelowdot :: Int32+_KEY_Ecircumflexbelowdot = 16785094+-- constant _KEY_Ecircumflexgrave++_KEY_Ecircumflexgrave :: Int32+_KEY_Ecircumflexgrave = 16785088+-- constant _KEY_Ecircumflexhook++_KEY_Ecircumflexhook :: Int32+_KEY_Ecircumflexhook = 16785090+-- constant _KEY_Ecircumflextilde++_KEY_Ecircumflextilde :: Int32+_KEY_Ecircumflextilde = 16785092+-- constant _KEY_EcuSign++_KEY_EcuSign :: Int32+_KEY_EcuSign = 16785568+-- constant _KEY_Ediaeresis++_KEY_Ediaeresis :: Int32+_KEY_Ediaeresis = 203+-- constant _KEY_Egrave++_KEY_Egrave :: Int32+_KEY_Egrave = 200+-- constant _KEY_Ehook++_KEY_Ehook :: Int32+_KEY_Ehook = 16785082+-- constant _KEY_Eisu_Shift++_KEY_Eisu_Shift :: Int32+_KEY_Eisu_Shift = 65327+-- constant _KEY_Eisu_toggle++_KEY_Eisu_toggle :: Int32+_KEY_Eisu_toggle = 65328+-- constant _KEY_Eject++_KEY_Eject :: Int32+_KEY_Eject = 269025068+-- constant _KEY_Emacron++_KEY_Emacron :: Int32+_KEY_Emacron = 938+-- constant _KEY_End++_KEY_End :: Int32+_KEY_End = 65367+-- constant _KEY_Eogonek++_KEY_Eogonek :: Int32+_KEY_Eogonek = 458+-- constant _KEY_Escape++_KEY_Escape :: Int32+_KEY_Escape = 65307+-- constant _KEY_Eth++_KEY_Eth :: Int32+_KEY_Eth = 208+-- constant _KEY_Etilde++_KEY_Etilde :: Int32+_KEY_Etilde = 16785084+-- constant _KEY_EuroSign++_KEY_EuroSign :: Int32+_KEY_EuroSign = 8364+-- constant _KEY_Excel++_KEY_Excel :: Int32+_KEY_Excel = 269025116+-- constant _KEY_Execute++_KEY_Execute :: Int32+_KEY_Execute = 65378+-- constant _KEY_Explorer++_KEY_Explorer :: Int32+_KEY_Explorer = 269025117+-- constant _KEY_F++_KEY_F :: Int32+_KEY_F = 70+-- constant _KEY_F1++_KEY_F1 :: Int32+_KEY_F1 = 65470+-- constant _KEY_F10++_KEY_F10 :: Int32+_KEY_F10 = 65479+-- constant _KEY_F11++_KEY_F11 :: Int32+_KEY_F11 = 65480+-- constant _KEY_F12++_KEY_F12 :: Int32+_KEY_F12 = 65481+-- constant _KEY_F13++_KEY_F13 :: Int32+_KEY_F13 = 65482+-- constant _KEY_F14++_KEY_F14 :: Int32+_KEY_F14 = 65483+-- constant _KEY_F15++_KEY_F15 :: Int32+_KEY_F15 = 65484+-- constant _KEY_F16++_KEY_F16 :: Int32+_KEY_F16 = 65485+-- constant _KEY_F17++_KEY_F17 :: Int32+_KEY_F17 = 65486+-- constant _KEY_F18++_KEY_F18 :: Int32+_KEY_F18 = 65487+-- constant _KEY_F19++_KEY_F19 :: Int32+_KEY_F19 = 65488+-- constant _KEY_F2++_KEY_F2 :: Int32+_KEY_F2 = 65471+-- constant _KEY_F20++_KEY_F20 :: Int32+_KEY_F20 = 65489+-- constant _KEY_F21++_KEY_F21 :: Int32+_KEY_F21 = 65490+-- constant _KEY_F22++_KEY_F22 :: Int32+_KEY_F22 = 65491+-- constant _KEY_F23++_KEY_F23 :: Int32+_KEY_F23 = 65492+-- constant _KEY_F24++_KEY_F24 :: Int32+_KEY_F24 = 65493+-- constant _KEY_F25++_KEY_F25 :: Int32+_KEY_F25 = 65494+-- constant _KEY_F26++_KEY_F26 :: Int32+_KEY_F26 = 65495+-- constant _KEY_F27++_KEY_F27 :: Int32+_KEY_F27 = 65496+-- constant _KEY_F28++_KEY_F28 :: Int32+_KEY_F28 = 65497+-- constant _KEY_F29++_KEY_F29 :: Int32+_KEY_F29 = 65498+-- constant _KEY_F3++_KEY_F3 :: Int32+_KEY_F3 = 65472+-- constant _KEY_F30++_KEY_F30 :: Int32+_KEY_F30 = 65499+-- constant _KEY_F31++_KEY_F31 :: Int32+_KEY_F31 = 65500+-- constant _KEY_F32++_KEY_F32 :: Int32+_KEY_F32 = 65501+-- constant _KEY_F33++_KEY_F33 :: Int32+_KEY_F33 = 65502+-- constant _KEY_F34++_KEY_F34 :: Int32+_KEY_F34 = 65503+-- constant _KEY_F35++_KEY_F35 :: Int32+_KEY_F35 = 65504+-- constant _KEY_F4++_KEY_F4 :: Int32+_KEY_F4 = 65473+-- constant _KEY_F5++_KEY_F5 :: Int32+_KEY_F5 = 65474+-- constant _KEY_F6++_KEY_F6 :: Int32+_KEY_F6 = 65475+-- constant _KEY_F7++_KEY_F7 :: Int32+_KEY_F7 = 65476+-- constant _KEY_F8++_KEY_F8 :: Int32+_KEY_F8 = 65477+-- constant _KEY_F9++_KEY_F9 :: Int32+_KEY_F9 = 65478+-- constant _KEY_FFrancSign++_KEY_FFrancSign :: Int32+_KEY_FFrancSign = 16785571+-- constant _KEY_Fabovedot++_KEY_Fabovedot :: Int32+_KEY_Fabovedot = 16784926+-- constant _KEY_Farsi_0++_KEY_Farsi_0 :: Int32+_KEY_Farsi_0 = 16778992+-- constant _KEY_Farsi_1++_KEY_Farsi_1 :: Int32+_KEY_Farsi_1 = 16778993+-- constant _KEY_Farsi_2++_KEY_Farsi_2 :: Int32+_KEY_Farsi_2 = 16778994+-- constant _KEY_Farsi_3++_KEY_Farsi_3 :: Int32+_KEY_Farsi_3 = 16778995+-- constant _KEY_Farsi_4++_KEY_Farsi_4 :: Int32+_KEY_Farsi_4 = 16778996+-- constant _KEY_Farsi_5++_KEY_Farsi_5 :: Int32+_KEY_Farsi_5 = 16778997+-- constant _KEY_Farsi_6++_KEY_Farsi_6 :: Int32+_KEY_Farsi_6 = 16778998+-- constant _KEY_Farsi_7++_KEY_Farsi_7 :: Int32+_KEY_Farsi_7 = 16778999+-- constant _KEY_Farsi_8++_KEY_Farsi_8 :: Int32+_KEY_Farsi_8 = 16779000+-- constant _KEY_Farsi_9++_KEY_Farsi_9 :: Int32+_KEY_Farsi_9 = 16779001+-- constant _KEY_Farsi_yeh++_KEY_Farsi_yeh :: Int32+_KEY_Farsi_yeh = 16778956+-- constant _KEY_Favorites++_KEY_Favorites :: Int32+_KEY_Favorites = 269025072+-- constant _KEY_Finance++_KEY_Finance :: Int32+_KEY_Finance = 269025084+-- constant _KEY_Find++_KEY_Find :: Int32+_KEY_Find = 65384+-- constant _KEY_First_Virtual_Screen++_KEY_First_Virtual_Screen :: Int32+_KEY_First_Virtual_Screen = 65232+-- constant _KEY_Forward++_KEY_Forward :: Int32+_KEY_Forward = 269025063+-- constant _KEY_FrameBack++_KEY_FrameBack :: Int32+_KEY_FrameBack = 269025181+-- constant _KEY_FrameForward++_KEY_FrameForward :: Int32+_KEY_FrameForward = 269025182+-- constant _KEY_G++_KEY_G :: Int32+_KEY_G = 71+-- constant _KEY_Gabovedot++_KEY_Gabovedot :: Int32+_KEY_Gabovedot = 725+-- constant _KEY_Game++_KEY_Game :: Int32+_KEY_Game = 269025118+-- constant _KEY_Gbreve++_KEY_Gbreve :: Int32+_KEY_Gbreve = 683+-- constant _KEY_Gcaron++_KEY_Gcaron :: Int32+_KEY_Gcaron = 16777702+-- constant _KEY_Gcedilla++_KEY_Gcedilla :: Int32+_KEY_Gcedilla = 939+-- constant _KEY_Gcircumflex++_KEY_Gcircumflex :: Int32+_KEY_Gcircumflex = 728+-- constant _KEY_Georgian_an++_KEY_Georgian_an :: Int32+_KEY_Georgian_an = 16781520+-- constant _KEY_Georgian_ban++_KEY_Georgian_ban :: Int32+_KEY_Georgian_ban = 16781521+-- constant _KEY_Georgian_can++_KEY_Georgian_can :: Int32+_KEY_Georgian_can = 16781546+-- constant _KEY_Georgian_char++_KEY_Georgian_char :: Int32+_KEY_Georgian_char = 16781549+-- constant _KEY_Georgian_chin++_KEY_Georgian_chin :: Int32+_KEY_Georgian_chin = 16781545+-- constant _KEY_Georgian_cil++_KEY_Georgian_cil :: Int32+_KEY_Georgian_cil = 16781548+-- constant _KEY_Georgian_don++_KEY_Georgian_don :: Int32+_KEY_Georgian_don = 16781523+-- constant _KEY_Georgian_en++_KEY_Georgian_en :: Int32+_KEY_Georgian_en = 16781524+-- constant _KEY_Georgian_fi++_KEY_Georgian_fi :: Int32+_KEY_Georgian_fi = 16781558+-- constant _KEY_Georgian_gan++_KEY_Georgian_gan :: Int32+_KEY_Georgian_gan = 16781522+-- constant _KEY_Georgian_ghan++_KEY_Georgian_ghan :: Int32+_KEY_Georgian_ghan = 16781542+-- constant _KEY_Georgian_hae++_KEY_Georgian_hae :: Int32+_KEY_Georgian_hae = 16781552+-- constant _KEY_Georgian_har++_KEY_Georgian_har :: Int32+_KEY_Georgian_har = 16781556+-- constant _KEY_Georgian_he++_KEY_Georgian_he :: Int32+_KEY_Georgian_he = 16781553+-- constant _KEY_Georgian_hie++_KEY_Georgian_hie :: Int32+_KEY_Georgian_hie = 16781554+-- constant _KEY_Georgian_hoe++_KEY_Georgian_hoe :: Int32+_KEY_Georgian_hoe = 16781557+-- constant _KEY_Georgian_in++_KEY_Georgian_in :: Int32+_KEY_Georgian_in = 16781528+-- constant _KEY_Georgian_jhan++_KEY_Georgian_jhan :: Int32+_KEY_Georgian_jhan = 16781551+-- constant _KEY_Georgian_jil++_KEY_Georgian_jil :: Int32+_KEY_Georgian_jil = 16781547+-- constant _KEY_Georgian_kan++_KEY_Georgian_kan :: Int32+_KEY_Georgian_kan = 16781529+-- constant _KEY_Georgian_khar++_KEY_Georgian_khar :: Int32+_KEY_Georgian_khar = 16781541+-- constant _KEY_Georgian_las++_KEY_Georgian_las :: Int32+_KEY_Georgian_las = 16781530+-- constant _KEY_Georgian_man++_KEY_Georgian_man :: Int32+_KEY_Georgian_man = 16781531+-- constant _KEY_Georgian_nar++_KEY_Georgian_nar :: Int32+_KEY_Georgian_nar = 16781532+-- constant _KEY_Georgian_on++_KEY_Georgian_on :: Int32+_KEY_Georgian_on = 16781533+-- constant _KEY_Georgian_par++_KEY_Georgian_par :: Int32+_KEY_Georgian_par = 16781534+-- constant _KEY_Georgian_phar++_KEY_Georgian_phar :: Int32+_KEY_Georgian_phar = 16781540+-- constant _KEY_Georgian_qar++_KEY_Georgian_qar :: Int32+_KEY_Georgian_qar = 16781543+-- constant _KEY_Georgian_rae++_KEY_Georgian_rae :: Int32+_KEY_Georgian_rae = 16781536+-- constant _KEY_Georgian_san++_KEY_Georgian_san :: Int32+_KEY_Georgian_san = 16781537+-- constant _KEY_Georgian_shin++_KEY_Georgian_shin :: Int32+_KEY_Georgian_shin = 16781544+-- constant _KEY_Georgian_tan++_KEY_Georgian_tan :: Int32+_KEY_Georgian_tan = 16781527+-- constant _KEY_Georgian_tar++_KEY_Georgian_tar :: Int32+_KEY_Georgian_tar = 16781538+-- constant _KEY_Georgian_un++_KEY_Georgian_un :: Int32+_KEY_Georgian_un = 16781539+-- constant _KEY_Georgian_vin++_KEY_Georgian_vin :: Int32+_KEY_Georgian_vin = 16781525+-- constant _KEY_Georgian_we++_KEY_Georgian_we :: Int32+_KEY_Georgian_we = 16781555+-- constant _KEY_Georgian_xan++_KEY_Georgian_xan :: Int32+_KEY_Georgian_xan = 16781550+-- constant _KEY_Georgian_zen++_KEY_Georgian_zen :: Int32+_KEY_Georgian_zen = 16781526+-- constant _KEY_Georgian_zhar++_KEY_Georgian_zhar :: Int32+_KEY_Georgian_zhar = 16781535+-- constant _KEY_Go++_KEY_Go :: Int32+_KEY_Go = 269025119+-- constant _KEY_Greek_ALPHA++_KEY_Greek_ALPHA :: Int32+_KEY_Greek_ALPHA = 1985+-- constant _KEY_Greek_ALPHAaccent++_KEY_Greek_ALPHAaccent :: Int32+_KEY_Greek_ALPHAaccent = 1953+-- constant _KEY_Greek_BETA++_KEY_Greek_BETA :: Int32+_KEY_Greek_BETA = 1986+-- constant _KEY_Greek_CHI++_KEY_Greek_CHI :: Int32+_KEY_Greek_CHI = 2007+-- constant _KEY_Greek_DELTA++_KEY_Greek_DELTA :: Int32+_KEY_Greek_DELTA = 1988+-- constant _KEY_Greek_EPSILON++_KEY_Greek_EPSILON :: Int32+_KEY_Greek_EPSILON = 1989+-- constant _KEY_Greek_EPSILONaccent++_KEY_Greek_EPSILONaccent :: Int32+_KEY_Greek_EPSILONaccent = 1954+-- constant _KEY_Greek_ETA++_KEY_Greek_ETA :: Int32+_KEY_Greek_ETA = 1991+-- constant _KEY_Greek_ETAaccent++_KEY_Greek_ETAaccent :: Int32+_KEY_Greek_ETAaccent = 1955+-- constant _KEY_Greek_GAMMA++_KEY_Greek_GAMMA :: Int32+_KEY_Greek_GAMMA = 1987+-- constant _KEY_Greek_IOTA++_KEY_Greek_IOTA :: Int32+_KEY_Greek_IOTA = 1993+-- constant _KEY_Greek_IOTAaccent++_KEY_Greek_IOTAaccent :: Int32+_KEY_Greek_IOTAaccent = 1956+-- constant _KEY_Greek_IOTAdiaeresis++_KEY_Greek_IOTAdiaeresis :: Int32+_KEY_Greek_IOTAdiaeresis = 1957+-- constant _KEY_Greek_IOTAdieresis++_KEY_Greek_IOTAdieresis :: Int32+_KEY_Greek_IOTAdieresis = 1957+-- constant _KEY_Greek_KAPPA++_KEY_Greek_KAPPA :: Int32+_KEY_Greek_KAPPA = 1994+-- constant _KEY_Greek_LAMBDA++_KEY_Greek_LAMBDA :: Int32+_KEY_Greek_LAMBDA = 1995+-- constant _KEY_Greek_LAMDA++_KEY_Greek_LAMDA :: Int32+_KEY_Greek_LAMDA = 1995+-- constant _KEY_Greek_MU++_KEY_Greek_MU :: Int32+_KEY_Greek_MU = 1996+-- constant _KEY_Greek_NU++_KEY_Greek_NU :: Int32+_KEY_Greek_NU = 1997+-- constant _KEY_Greek_OMEGA++_KEY_Greek_OMEGA :: Int32+_KEY_Greek_OMEGA = 2009+-- constant _KEY_Greek_OMEGAaccent++_KEY_Greek_OMEGAaccent :: Int32+_KEY_Greek_OMEGAaccent = 1963+-- constant _KEY_Greek_OMICRON++_KEY_Greek_OMICRON :: Int32+_KEY_Greek_OMICRON = 1999+-- constant _KEY_Greek_OMICRONaccent++_KEY_Greek_OMICRONaccent :: Int32+_KEY_Greek_OMICRONaccent = 1959+-- constant _KEY_Greek_PHI++_KEY_Greek_PHI :: Int32+_KEY_Greek_PHI = 2006+-- constant _KEY_Greek_PI++_KEY_Greek_PI :: Int32+_KEY_Greek_PI = 2000+-- constant _KEY_Greek_PSI++_KEY_Greek_PSI :: Int32+_KEY_Greek_PSI = 2008+-- constant _KEY_Greek_RHO++_KEY_Greek_RHO :: Int32+_KEY_Greek_RHO = 2001+-- constant _KEY_Greek_SIGMA++_KEY_Greek_SIGMA :: Int32+_KEY_Greek_SIGMA = 2002+-- constant _KEY_Greek_TAU++_KEY_Greek_TAU :: Int32+_KEY_Greek_TAU = 2004+-- constant _KEY_Greek_THETA++_KEY_Greek_THETA :: Int32+_KEY_Greek_THETA = 1992+-- constant _KEY_Greek_UPSILON++_KEY_Greek_UPSILON :: Int32+_KEY_Greek_UPSILON = 2005+-- constant _KEY_Greek_UPSILONaccent++_KEY_Greek_UPSILONaccent :: Int32+_KEY_Greek_UPSILONaccent = 1960+-- constant _KEY_Greek_UPSILONdieresis++_KEY_Greek_UPSILONdieresis :: Int32+_KEY_Greek_UPSILONdieresis = 1961+-- constant _KEY_Greek_XI++_KEY_Greek_XI :: Int32+_KEY_Greek_XI = 1998+-- constant _KEY_Greek_ZETA++_KEY_Greek_ZETA :: Int32+_KEY_Greek_ZETA = 1990+-- constant _KEY_Greek_accentdieresis++_KEY_Greek_accentdieresis :: Int32+_KEY_Greek_accentdieresis = 1966+-- constant _KEY_Greek_alpha++_KEY_Greek_alpha :: Int32+_KEY_Greek_alpha = 2017+-- constant _KEY_Greek_alphaaccent++_KEY_Greek_alphaaccent :: Int32+_KEY_Greek_alphaaccent = 1969+-- constant _KEY_Greek_beta++_KEY_Greek_beta :: Int32+_KEY_Greek_beta = 2018+-- constant _KEY_Greek_chi++_KEY_Greek_chi :: Int32+_KEY_Greek_chi = 2039+-- constant _KEY_Greek_delta++_KEY_Greek_delta :: Int32+_KEY_Greek_delta = 2020+-- constant _KEY_Greek_epsilon++_KEY_Greek_epsilon :: Int32+_KEY_Greek_epsilon = 2021+-- constant _KEY_Greek_epsilonaccent++_KEY_Greek_epsilonaccent :: Int32+_KEY_Greek_epsilonaccent = 1970+-- constant _KEY_Greek_eta++_KEY_Greek_eta :: Int32+_KEY_Greek_eta = 2023+-- constant _KEY_Greek_etaaccent++_KEY_Greek_etaaccent :: Int32+_KEY_Greek_etaaccent = 1971+-- constant _KEY_Greek_finalsmallsigma++_KEY_Greek_finalsmallsigma :: Int32+_KEY_Greek_finalsmallsigma = 2035+-- constant _KEY_Greek_gamma++_KEY_Greek_gamma :: Int32+_KEY_Greek_gamma = 2019+-- constant _KEY_Greek_horizbar++_KEY_Greek_horizbar :: Int32+_KEY_Greek_horizbar = 1967+-- constant _KEY_Greek_iota++_KEY_Greek_iota :: Int32+_KEY_Greek_iota = 2025+-- constant _KEY_Greek_iotaaccent++_KEY_Greek_iotaaccent :: Int32+_KEY_Greek_iotaaccent = 1972+-- constant _KEY_Greek_iotaaccentdieresis++_KEY_Greek_iotaaccentdieresis :: Int32+_KEY_Greek_iotaaccentdieresis = 1974+-- constant _KEY_Greek_iotadieresis++_KEY_Greek_iotadieresis :: Int32+_KEY_Greek_iotadieresis = 1973+-- constant _KEY_Greek_kappa++_KEY_Greek_kappa :: Int32+_KEY_Greek_kappa = 2026+-- constant _KEY_Greek_lambda++_KEY_Greek_lambda :: Int32+_KEY_Greek_lambda = 2027+-- constant _KEY_Greek_lamda++_KEY_Greek_lamda :: Int32+_KEY_Greek_lamda = 2027+-- constant _KEY_Greek_mu++_KEY_Greek_mu :: Int32+_KEY_Greek_mu = 2028+-- constant _KEY_Greek_nu++_KEY_Greek_nu :: Int32+_KEY_Greek_nu = 2029+-- constant _KEY_Greek_omega++_KEY_Greek_omega :: Int32+_KEY_Greek_omega = 2041+-- constant _KEY_Greek_omegaaccent++_KEY_Greek_omegaaccent :: Int32+_KEY_Greek_omegaaccent = 1979+-- constant _KEY_Greek_omicron++_KEY_Greek_omicron :: Int32+_KEY_Greek_omicron = 2031+-- constant _KEY_Greek_omicronaccent++_KEY_Greek_omicronaccent :: Int32+_KEY_Greek_omicronaccent = 1975+-- constant _KEY_Greek_phi++_KEY_Greek_phi :: Int32+_KEY_Greek_phi = 2038+-- constant _KEY_Greek_pi++_KEY_Greek_pi :: Int32+_KEY_Greek_pi = 2032+-- constant _KEY_Greek_psi++_KEY_Greek_psi :: Int32+_KEY_Greek_psi = 2040+-- constant _KEY_Greek_rho++_KEY_Greek_rho :: Int32+_KEY_Greek_rho = 2033+-- constant _KEY_Greek_sigma++_KEY_Greek_sigma :: Int32+_KEY_Greek_sigma = 2034+-- constant _KEY_Greek_switch++_KEY_Greek_switch :: Int32+_KEY_Greek_switch = 65406+-- constant _KEY_Greek_tau++_KEY_Greek_tau :: Int32+_KEY_Greek_tau = 2036+-- constant _KEY_Greek_theta++_KEY_Greek_theta :: Int32+_KEY_Greek_theta = 2024+-- constant _KEY_Greek_upsilon++_KEY_Greek_upsilon :: Int32+_KEY_Greek_upsilon = 2037+-- constant _KEY_Greek_upsilonaccent++_KEY_Greek_upsilonaccent :: Int32+_KEY_Greek_upsilonaccent = 1976+-- constant _KEY_Greek_upsilonaccentdieresis++_KEY_Greek_upsilonaccentdieresis :: Int32+_KEY_Greek_upsilonaccentdieresis = 1978+-- constant _KEY_Greek_upsilondieresis++_KEY_Greek_upsilondieresis :: Int32+_KEY_Greek_upsilondieresis = 1977+-- constant _KEY_Greek_xi++_KEY_Greek_xi :: Int32+_KEY_Greek_xi = 2030+-- constant _KEY_Greek_zeta++_KEY_Greek_zeta :: Int32+_KEY_Greek_zeta = 2022+-- constant _KEY_Green++_KEY_Green :: Int32+_KEY_Green = 269025188+-- constant _KEY_H++_KEY_H :: Int32+_KEY_H = 72+-- constant _KEY_Hangul++_KEY_Hangul :: Int32+_KEY_Hangul = 65329+-- constant _KEY_Hangul_A++_KEY_Hangul_A :: Int32+_KEY_Hangul_A = 3775+-- constant _KEY_Hangul_AE++_KEY_Hangul_AE :: Int32+_KEY_Hangul_AE = 3776+-- constant _KEY_Hangul_AraeA++_KEY_Hangul_AraeA :: Int32+_KEY_Hangul_AraeA = 3830+-- constant _KEY_Hangul_AraeAE++_KEY_Hangul_AraeAE :: Int32+_KEY_Hangul_AraeAE = 3831+-- constant _KEY_Hangul_Banja++_KEY_Hangul_Banja :: Int32+_KEY_Hangul_Banja = 65337+-- constant _KEY_Hangul_Cieuc++_KEY_Hangul_Cieuc :: Int32+_KEY_Hangul_Cieuc = 3770+-- constant _KEY_Hangul_Codeinput++_KEY_Hangul_Codeinput :: Int32+_KEY_Hangul_Codeinput = 65335+-- constant _KEY_Hangul_Dikeud++_KEY_Hangul_Dikeud :: Int32+_KEY_Hangul_Dikeud = 3751+-- constant _KEY_Hangul_E++_KEY_Hangul_E :: Int32+_KEY_Hangul_E = 3780+-- constant _KEY_Hangul_EO++_KEY_Hangul_EO :: Int32+_KEY_Hangul_EO = 3779+-- constant _KEY_Hangul_EU++_KEY_Hangul_EU :: Int32+_KEY_Hangul_EU = 3793+-- constant _KEY_Hangul_End++_KEY_Hangul_End :: Int32+_KEY_Hangul_End = 65331+-- constant _KEY_Hangul_Hanja++_KEY_Hangul_Hanja :: Int32+_KEY_Hangul_Hanja = 65332+-- constant _KEY_Hangul_Hieuh++_KEY_Hangul_Hieuh :: Int32+_KEY_Hangul_Hieuh = 3774+-- constant _KEY_Hangul_I++_KEY_Hangul_I :: Int32+_KEY_Hangul_I = 3795+-- constant _KEY_Hangul_Ieung++_KEY_Hangul_Ieung :: Int32+_KEY_Hangul_Ieung = 3767+-- constant _KEY_Hangul_J_Cieuc++_KEY_Hangul_J_Cieuc :: Int32+_KEY_Hangul_J_Cieuc = 3818+-- constant _KEY_Hangul_J_Dikeud++_KEY_Hangul_J_Dikeud :: Int32+_KEY_Hangul_J_Dikeud = 3802+-- constant _KEY_Hangul_J_Hieuh++_KEY_Hangul_J_Hieuh :: Int32+_KEY_Hangul_J_Hieuh = 3822+-- constant _KEY_Hangul_J_Ieung++_KEY_Hangul_J_Ieung :: Int32+_KEY_Hangul_J_Ieung = 3816+-- constant _KEY_Hangul_J_Jieuj++_KEY_Hangul_J_Jieuj :: Int32+_KEY_Hangul_J_Jieuj = 3817+-- constant _KEY_Hangul_J_Khieuq++_KEY_Hangul_J_Khieuq :: Int32+_KEY_Hangul_J_Khieuq = 3819+-- constant _KEY_Hangul_J_Kiyeog++_KEY_Hangul_J_Kiyeog :: Int32+_KEY_Hangul_J_Kiyeog = 3796+-- constant _KEY_Hangul_J_KiyeogSios++_KEY_Hangul_J_KiyeogSios :: Int32+_KEY_Hangul_J_KiyeogSios = 3798+-- constant _KEY_Hangul_J_KkogjiDalrinIeung++_KEY_Hangul_J_KkogjiDalrinIeung :: Int32+_KEY_Hangul_J_KkogjiDalrinIeung = 3833+-- constant _KEY_Hangul_J_Mieum++_KEY_Hangul_J_Mieum :: Int32+_KEY_Hangul_J_Mieum = 3811+-- constant _KEY_Hangul_J_Nieun++_KEY_Hangul_J_Nieun :: Int32+_KEY_Hangul_J_Nieun = 3799+-- constant _KEY_Hangul_J_NieunHieuh++_KEY_Hangul_J_NieunHieuh :: Int32+_KEY_Hangul_J_NieunHieuh = 3801+-- constant _KEY_Hangul_J_NieunJieuj++_KEY_Hangul_J_NieunJieuj :: Int32+_KEY_Hangul_J_NieunJieuj = 3800+-- constant _KEY_Hangul_J_PanSios++_KEY_Hangul_J_PanSios :: Int32+_KEY_Hangul_J_PanSios = 3832+-- constant _KEY_Hangul_J_Phieuf++_KEY_Hangul_J_Phieuf :: Int32+_KEY_Hangul_J_Phieuf = 3821+-- constant _KEY_Hangul_J_Pieub++_KEY_Hangul_J_Pieub :: Int32+_KEY_Hangul_J_Pieub = 3812+-- constant _KEY_Hangul_J_PieubSios++_KEY_Hangul_J_PieubSios :: Int32+_KEY_Hangul_J_PieubSios = 3813+-- constant _KEY_Hangul_J_Rieul++_KEY_Hangul_J_Rieul :: Int32+_KEY_Hangul_J_Rieul = 3803+-- constant _KEY_Hangul_J_RieulHieuh++_KEY_Hangul_J_RieulHieuh :: Int32+_KEY_Hangul_J_RieulHieuh = 3810+-- constant _KEY_Hangul_J_RieulKiyeog++_KEY_Hangul_J_RieulKiyeog :: Int32+_KEY_Hangul_J_RieulKiyeog = 3804+-- constant _KEY_Hangul_J_RieulMieum++_KEY_Hangul_J_RieulMieum :: Int32+_KEY_Hangul_J_RieulMieum = 3805+-- constant _KEY_Hangul_J_RieulPhieuf++_KEY_Hangul_J_RieulPhieuf :: Int32+_KEY_Hangul_J_RieulPhieuf = 3809+-- constant _KEY_Hangul_J_RieulPieub++_KEY_Hangul_J_RieulPieub :: Int32+_KEY_Hangul_J_RieulPieub = 3806+-- constant _KEY_Hangul_J_RieulSios++_KEY_Hangul_J_RieulSios :: Int32+_KEY_Hangul_J_RieulSios = 3807+-- constant _KEY_Hangul_J_RieulTieut++_KEY_Hangul_J_RieulTieut :: Int32+_KEY_Hangul_J_RieulTieut = 3808+-- constant _KEY_Hangul_J_Sios++_KEY_Hangul_J_Sios :: Int32+_KEY_Hangul_J_Sios = 3814+-- constant _KEY_Hangul_J_SsangKiyeog++_KEY_Hangul_J_SsangKiyeog :: Int32+_KEY_Hangul_J_SsangKiyeog = 3797+-- constant _KEY_Hangul_J_SsangSios++_KEY_Hangul_J_SsangSios :: Int32+_KEY_Hangul_J_SsangSios = 3815+-- constant _KEY_Hangul_J_Tieut++_KEY_Hangul_J_Tieut :: Int32+_KEY_Hangul_J_Tieut = 3820+-- constant _KEY_Hangul_J_YeorinHieuh++_KEY_Hangul_J_YeorinHieuh :: Int32+_KEY_Hangul_J_YeorinHieuh = 3834+-- constant _KEY_Hangul_Jamo++_KEY_Hangul_Jamo :: Int32+_KEY_Hangul_Jamo = 65333+-- constant _KEY_Hangul_Jeonja++_KEY_Hangul_Jeonja :: Int32+_KEY_Hangul_Jeonja = 65336+-- constant _KEY_Hangul_Jieuj++_KEY_Hangul_Jieuj :: Int32+_KEY_Hangul_Jieuj = 3768+-- constant _KEY_Hangul_Khieuq++_KEY_Hangul_Khieuq :: Int32+_KEY_Hangul_Khieuq = 3771+-- constant _KEY_Hangul_Kiyeog++_KEY_Hangul_Kiyeog :: Int32+_KEY_Hangul_Kiyeog = 3745+-- constant _KEY_Hangul_KiyeogSios++_KEY_Hangul_KiyeogSios :: Int32+_KEY_Hangul_KiyeogSios = 3747+-- constant _KEY_Hangul_KkogjiDalrinIeung++_KEY_Hangul_KkogjiDalrinIeung :: Int32+_KEY_Hangul_KkogjiDalrinIeung = 3827+-- constant _KEY_Hangul_Mieum++_KEY_Hangul_Mieum :: Int32+_KEY_Hangul_Mieum = 3761+-- constant _KEY_Hangul_MultipleCandidate++_KEY_Hangul_MultipleCandidate :: Int32+_KEY_Hangul_MultipleCandidate = 65341+-- constant _KEY_Hangul_Nieun++_KEY_Hangul_Nieun :: Int32+_KEY_Hangul_Nieun = 3748+-- constant _KEY_Hangul_NieunHieuh++_KEY_Hangul_NieunHieuh :: Int32+_KEY_Hangul_NieunHieuh = 3750+-- constant _KEY_Hangul_NieunJieuj++_KEY_Hangul_NieunJieuj :: Int32+_KEY_Hangul_NieunJieuj = 3749+-- constant _KEY_Hangul_O++_KEY_Hangul_O :: Int32+_KEY_Hangul_O = 3783+-- constant _KEY_Hangul_OE++_KEY_Hangul_OE :: Int32+_KEY_Hangul_OE = 3786+-- constant _KEY_Hangul_PanSios++_KEY_Hangul_PanSios :: Int32+_KEY_Hangul_PanSios = 3826+-- constant _KEY_Hangul_Phieuf++_KEY_Hangul_Phieuf :: Int32+_KEY_Hangul_Phieuf = 3773+-- constant _KEY_Hangul_Pieub++_KEY_Hangul_Pieub :: Int32+_KEY_Hangul_Pieub = 3762+-- constant _KEY_Hangul_PieubSios++_KEY_Hangul_PieubSios :: Int32+_KEY_Hangul_PieubSios = 3764+-- constant _KEY_Hangul_PostHanja++_KEY_Hangul_PostHanja :: Int32+_KEY_Hangul_PostHanja = 65339+-- constant _KEY_Hangul_PreHanja++_KEY_Hangul_PreHanja :: Int32+_KEY_Hangul_PreHanja = 65338+-- constant _KEY_Hangul_PreviousCandidate++_KEY_Hangul_PreviousCandidate :: Int32+_KEY_Hangul_PreviousCandidate = 65342+-- constant _KEY_Hangul_Rieul++_KEY_Hangul_Rieul :: Int32+_KEY_Hangul_Rieul = 3753+-- constant _KEY_Hangul_RieulHieuh++_KEY_Hangul_RieulHieuh :: Int32+_KEY_Hangul_RieulHieuh = 3760+-- constant _KEY_Hangul_RieulKiyeog++_KEY_Hangul_RieulKiyeog :: Int32+_KEY_Hangul_RieulKiyeog = 3754+-- constant _KEY_Hangul_RieulMieum++_KEY_Hangul_RieulMieum :: Int32+_KEY_Hangul_RieulMieum = 3755+-- constant _KEY_Hangul_RieulPhieuf++_KEY_Hangul_RieulPhieuf :: Int32+_KEY_Hangul_RieulPhieuf = 3759+-- constant _KEY_Hangul_RieulPieub++_KEY_Hangul_RieulPieub :: Int32+_KEY_Hangul_RieulPieub = 3756+-- constant _KEY_Hangul_RieulSios++_KEY_Hangul_RieulSios :: Int32+_KEY_Hangul_RieulSios = 3757+-- constant _KEY_Hangul_RieulTieut++_KEY_Hangul_RieulTieut :: Int32+_KEY_Hangul_RieulTieut = 3758+-- constant _KEY_Hangul_RieulYeorinHieuh++_KEY_Hangul_RieulYeorinHieuh :: Int32+_KEY_Hangul_RieulYeorinHieuh = 3823+-- constant _KEY_Hangul_Romaja++_KEY_Hangul_Romaja :: Int32+_KEY_Hangul_Romaja = 65334+-- constant _KEY_Hangul_SingleCandidate++_KEY_Hangul_SingleCandidate :: Int32+_KEY_Hangul_SingleCandidate = 65340+-- constant _KEY_Hangul_Sios++_KEY_Hangul_Sios :: Int32+_KEY_Hangul_Sios = 3765+-- constant _KEY_Hangul_Special++_KEY_Hangul_Special :: Int32+_KEY_Hangul_Special = 65343+-- constant _KEY_Hangul_SsangDikeud++_KEY_Hangul_SsangDikeud :: Int32+_KEY_Hangul_SsangDikeud = 3752+-- constant _KEY_Hangul_SsangJieuj++_KEY_Hangul_SsangJieuj :: Int32+_KEY_Hangul_SsangJieuj = 3769+-- constant _KEY_Hangul_SsangKiyeog++_KEY_Hangul_SsangKiyeog :: Int32+_KEY_Hangul_SsangKiyeog = 3746+-- constant _KEY_Hangul_SsangPieub++_KEY_Hangul_SsangPieub :: Int32+_KEY_Hangul_SsangPieub = 3763+-- constant _KEY_Hangul_SsangSios++_KEY_Hangul_SsangSios :: Int32+_KEY_Hangul_SsangSios = 3766+-- constant _KEY_Hangul_Start++_KEY_Hangul_Start :: Int32+_KEY_Hangul_Start = 65330+-- constant _KEY_Hangul_SunkyeongeumMieum++_KEY_Hangul_SunkyeongeumMieum :: Int32+_KEY_Hangul_SunkyeongeumMieum = 3824+-- constant _KEY_Hangul_SunkyeongeumPhieuf++_KEY_Hangul_SunkyeongeumPhieuf :: Int32+_KEY_Hangul_SunkyeongeumPhieuf = 3828+-- constant _KEY_Hangul_SunkyeongeumPieub++_KEY_Hangul_SunkyeongeumPieub :: Int32+_KEY_Hangul_SunkyeongeumPieub = 3825+-- constant _KEY_Hangul_Tieut++_KEY_Hangul_Tieut :: Int32+_KEY_Hangul_Tieut = 3772+-- constant _KEY_Hangul_U++_KEY_Hangul_U :: Int32+_KEY_Hangul_U = 3788+-- constant _KEY_Hangul_WA++_KEY_Hangul_WA :: Int32+_KEY_Hangul_WA = 3784+-- constant _KEY_Hangul_WAE++_KEY_Hangul_WAE :: Int32+_KEY_Hangul_WAE = 3785+-- constant _KEY_Hangul_WE++_KEY_Hangul_WE :: Int32+_KEY_Hangul_WE = 3790+-- constant _KEY_Hangul_WEO++_KEY_Hangul_WEO :: Int32+_KEY_Hangul_WEO = 3789+-- constant _KEY_Hangul_WI++_KEY_Hangul_WI :: Int32+_KEY_Hangul_WI = 3791+-- constant _KEY_Hangul_YA++_KEY_Hangul_YA :: Int32+_KEY_Hangul_YA = 3777+-- constant _KEY_Hangul_YAE++_KEY_Hangul_YAE :: Int32+_KEY_Hangul_YAE = 3778+-- constant _KEY_Hangul_YE++_KEY_Hangul_YE :: Int32+_KEY_Hangul_YE = 3782+-- constant _KEY_Hangul_YEO++_KEY_Hangul_YEO :: Int32+_KEY_Hangul_YEO = 3781+-- constant _KEY_Hangul_YI++_KEY_Hangul_YI :: Int32+_KEY_Hangul_YI = 3794+-- constant _KEY_Hangul_YO++_KEY_Hangul_YO :: Int32+_KEY_Hangul_YO = 3787+-- constant _KEY_Hangul_YU++_KEY_Hangul_YU :: Int32+_KEY_Hangul_YU = 3792+-- constant _KEY_Hangul_YeorinHieuh++_KEY_Hangul_YeorinHieuh :: Int32+_KEY_Hangul_YeorinHieuh = 3829+-- constant _KEY_Hangul_switch++_KEY_Hangul_switch :: Int32+_KEY_Hangul_switch = 65406+-- constant _KEY_Hankaku++_KEY_Hankaku :: Int32+_KEY_Hankaku = 65321+-- constant _KEY_Hcircumflex++_KEY_Hcircumflex :: Int32+_KEY_Hcircumflex = 678+-- constant _KEY_Hebrew_switch++_KEY_Hebrew_switch :: Int32+_KEY_Hebrew_switch = 65406+-- constant _KEY_Help++_KEY_Help :: Int32+_KEY_Help = 65386+-- constant _KEY_Henkan++_KEY_Henkan :: Int32+_KEY_Henkan = 65315+-- constant _KEY_Henkan_Mode++_KEY_Henkan_Mode :: Int32+_KEY_Henkan_Mode = 65315+-- constant _KEY_Hibernate++_KEY_Hibernate :: Int32+_KEY_Hibernate = 269025192+-- constant _KEY_Hiragana++_KEY_Hiragana :: Int32+_KEY_Hiragana = 65317+-- constant _KEY_Hiragana_Katakana++_KEY_Hiragana_Katakana :: Int32+_KEY_Hiragana_Katakana = 65319+-- constant _KEY_History++_KEY_History :: Int32+_KEY_History = 269025079+-- constant _KEY_Home++_KEY_Home :: Int32+_KEY_Home = 65360+-- constant _KEY_HomePage++_KEY_HomePage :: Int32+_KEY_HomePage = 269025048+-- constant _KEY_HotLinks++_KEY_HotLinks :: Int32+_KEY_HotLinks = 269025082+-- constant _KEY_Hstroke++_KEY_Hstroke :: Int32+_KEY_Hstroke = 673+-- constant _KEY_Hyper_L++_KEY_Hyper_L :: Int32+_KEY_Hyper_L = 65517+-- constant _KEY_Hyper_R++_KEY_Hyper_R :: Int32+_KEY_Hyper_R = 65518+-- constant _KEY_I++_KEY_I :: Int32+_KEY_I = 73+-- constant _KEY_ISO_Center_Object++_KEY_ISO_Center_Object :: Int32+_KEY_ISO_Center_Object = 65075+-- constant _KEY_ISO_Continuous_Underline++_KEY_ISO_Continuous_Underline :: Int32+_KEY_ISO_Continuous_Underline = 65072+-- constant _KEY_ISO_Discontinuous_Underline++_KEY_ISO_Discontinuous_Underline :: Int32+_KEY_ISO_Discontinuous_Underline = 65073+-- constant _KEY_ISO_Emphasize++_KEY_ISO_Emphasize :: Int32+_KEY_ISO_Emphasize = 65074+-- constant _KEY_ISO_Enter++_KEY_ISO_Enter :: Int32+_KEY_ISO_Enter = 65076+-- constant _KEY_ISO_Fast_Cursor_Down++_KEY_ISO_Fast_Cursor_Down :: Int32+_KEY_ISO_Fast_Cursor_Down = 65071+-- constant _KEY_ISO_Fast_Cursor_Left++_KEY_ISO_Fast_Cursor_Left :: Int32+_KEY_ISO_Fast_Cursor_Left = 65068+-- constant _KEY_ISO_Fast_Cursor_Right++_KEY_ISO_Fast_Cursor_Right :: Int32+_KEY_ISO_Fast_Cursor_Right = 65069+-- constant _KEY_ISO_Fast_Cursor_Up++_KEY_ISO_Fast_Cursor_Up :: Int32+_KEY_ISO_Fast_Cursor_Up = 65070+-- constant _KEY_ISO_First_Group++_KEY_ISO_First_Group :: Int32+_KEY_ISO_First_Group = 65036+-- constant _KEY_ISO_First_Group_Lock++_KEY_ISO_First_Group_Lock :: Int32+_KEY_ISO_First_Group_Lock = 65037+-- constant _KEY_ISO_Group_Latch++_KEY_ISO_Group_Latch :: Int32+_KEY_ISO_Group_Latch = 65030+-- constant _KEY_ISO_Group_Lock++_KEY_ISO_Group_Lock :: Int32+_KEY_ISO_Group_Lock = 65031+-- constant _KEY_ISO_Group_Shift++_KEY_ISO_Group_Shift :: Int32+_KEY_ISO_Group_Shift = 65406+-- constant _KEY_ISO_Last_Group++_KEY_ISO_Last_Group :: Int32+_KEY_ISO_Last_Group = 65038+-- constant _KEY_ISO_Last_Group_Lock++_KEY_ISO_Last_Group_Lock :: Int32+_KEY_ISO_Last_Group_Lock = 65039+-- constant _KEY_ISO_Left_Tab++_KEY_ISO_Left_Tab :: Int32+_KEY_ISO_Left_Tab = 65056+-- constant _KEY_ISO_Level2_Latch++_KEY_ISO_Level2_Latch :: Int32+_KEY_ISO_Level2_Latch = 65026+-- constant _KEY_ISO_Level3_Latch++_KEY_ISO_Level3_Latch :: Int32+_KEY_ISO_Level3_Latch = 65028+-- constant _KEY_ISO_Level3_Lock++_KEY_ISO_Level3_Lock :: Int32+_KEY_ISO_Level3_Lock = 65029+-- constant _KEY_ISO_Level3_Shift++_KEY_ISO_Level3_Shift :: Int32+_KEY_ISO_Level3_Shift = 65027+-- constant _KEY_ISO_Level5_Latch++_KEY_ISO_Level5_Latch :: Int32+_KEY_ISO_Level5_Latch = 65042+-- constant _KEY_ISO_Level5_Lock++_KEY_ISO_Level5_Lock :: Int32+_KEY_ISO_Level5_Lock = 65043+-- constant _KEY_ISO_Level5_Shift++_KEY_ISO_Level5_Shift :: Int32+_KEY_ISO_Level5_Shift = 65041+-- constant _KEY_ISO_Lock++_KEY_ISO_Lock :: Int32+_KEY_ISO_Lock = 65025+-- constant _KEY_ISO_Move_Line_Down++_KEY_ISO_Move_Line_Down :: Int32+_KEY_ISO_Move_Line_Down = 65058+-- constant _KEY_ISO_Move_Line_Up++_KEY_ISO_Move_Line_Up :: Int32+_KEY_ISO_Move_Line_Up = 65057+-- constant _KEY_ISO_Next_Group++_KEY_ISO_Next_Group :: Int32+_KEY_ISO_Next_Group = 65032+-- constant _KEY_ISO_Next_Group_Lock++_KEY_ISO_Next_Group_Lock :: Int32+_KEY_ISO_Next_Group_Lock = 65033+-- constant _KEY_ISO_Partial_Line_Down++_KEY_ISO_Partial_Line_Down :: Int32+_KEY_ISO_Partial_Line_Down = 65060+-- constant _KEY_ISO_Partial_Line_Up++_KEY_ISO_Partial_Line_Up :: Int32+_KEY_ISO_Partial_Line_Up = 65059+-- constant _KEY_ISO_Partial_Space_Left++_KEY_ISO_Partial_Space_Left :: Int32+_KEY_ISO_Partial_Space_Left = 65061+-- constant _KEY_ISO_Partial_Space_Right++_KEY_ISO_Partial_Space_Right :: Int32+_KEY_ISO_Partial_Space_Right = 65062+-- constant _KEY_ISO_Prev_Group++_KEY_ISO_Prev_Group :: Int32+_KEY_ISO_Prev_Group = 65034+-- constant _KEY_ISO_Prev_Group_Lock++_KEY_ISO_Prev_Group_Lock :: Int32+_KEY_ISO_Prev_Group_Lock = 65035+-- constant _KEY_ISO_Release_Both_Margins++_KEY_ISO_Release_Both_Margins :: Int32+_KEY_ISO_Release_Both_Margins = 65067+-- constant _KEY_ISO_Release_Margin_Left++_KEY_ISO_Release_Margin_Left :: Int32+_KEY_ISO_Release_Margin_Left = 65065+-- constant _KEY_ISO_Release_Margin_Right++_KEY_ISO_Release_Margin_Right :: Int32+_KEY_ISO_Release_Margin_Right = 65066+-- constant _KEY_ISO_Set_Margin_Left++_KEY_ISO_Set_Margin_Left :: Int32+_KEY_ISO_Set_Margin_Left = 65063+-- constant _KEY_ISO_Set_Margin_Right++_KEY_ISO_Set_Margin_Right :: Int32+_KEY_ISO_Set_Margin_Right = 65064+-- constant _KEY_Iabovedot++_KEY_Iabovedot :: Int32+_KEY_Iabovedot = 681+-- constant _KEY_Iacute++_KEY_Iacute :: Int32+_KEY_Iacute = 205+-- constant _KEY_Ibelowdot++_KEY_Ibelowdot :: Int32+_KEY_Ibelowdot = 16785098+-- constant _KEY_Ibreve++_KEY_Ibreve :: Int32+_KEY_Ibreve = 16777516+-- constant _KEY_Icircumflex++_KEY_Icircumflex :: Int32+_KEY_Icircumflex = 206+-- constant _KEY_Idiaeresis++_KEY_Idiaeresis :: Int32+_KEY_Idiaeresis = 207+-- constant _KEY_Igrave++_KEY_Igrave :: Int32+_KEY_Igrave = 204+-- constant _KEY_Ihook++_KEY_Ihook :: Int32+_KEY_Ihook = 16785096+-- constant _KEY_Imacron++_KEY_Imacron :: Int32+_KEY_Imacron = 975+-- constant _KEY_Insert++_KEY_Insert :: Int32+_KEY_Insert = 65379+-- constant _KEY_Iogonek++_KEY_Iogonek :: Int32+_KEY_Iogonek = 967+-- constant _KEY_Itilde++_KEY_Itilde :: Int32+_KEY_Itilde = 933+-- constant _KEY_J++_KEY_J :: Int32+_KEY_J = 74+-- constant _KEY_Jcircumflex++_KEY_Jcircumflex :: Int32+_KEY_Jcircumflex = 684+-- constant _KEY_K++_KEY_K :: Int32+_KEY_K = 75+-- constant _KEY_KP_0++_KEY_KP_0 :: Int32+_KEY_KP_0 = 65456+-- constant _KEY_KP_1++_KEY_KP_1 :: Int32+_KEY_KP_1 = 65457+-- constant _KEY_KP_2++_KEY_KP_2 :: Int32+_KEY_KP_2 = 65458+-- constant _KEY_KP_3++_KEY_KP_3 :: Int32+_KEY_KP_3 = 65459+-- constant _KEY_KP_4++_KEY_KP_4 :: Int32+_KEY_KP_4 = 65460+-- constant _KEY_KP_5++_KEY_KP_5 :: Int32+_KEY_KP_5 = 65461+-- constant _KEY_KP_6++_KEY_KP_6 :: Int32+_KEY_KP_6 = 65462+-- constant _KEY_KP_7++_KEY_KP_7 :: Int32+_KEY_KP_7 = 65463+-- constant _KEY_KP_8++_KEY_KP_8 :: Int32+_KEY_KP_8 = 65464+-- constant _KEY_KP_9++_KEY_KP_9 :: Int32+_KEY_KP_9 = 65465+-- constant _KEY_KP_Add++_KEY_KP_Add :: Int32+_KEY_KP_Add = 65451+-- constant _KEY_KP_Begin++_KEY_KP_Begin :: Int32+_KEY_KP_Begin = 65437+-- constant _KEY_KP_Decimal++_KEY_KP_Decimal :: Int32+_KEY_KP_Decimal = 65454+-- constant _KEY_KP_Delete++_KEY_KP_Delete :: Int32+_KEY_KP_Delete = 65439+-- constant _KEY_KP_Divide++_KEY_KP_Divide :: Int32+_KEY_KP_Divide = 65455+-- constant _KEY_KP_Down++_KEY_KP_Down :: Int32+_KEY_KP_Down = 65433+-- constant _KEY_KP_End++_KEY_KP_End :: Int32+_KEY_KP_End = 65436+-- constant _KEY_KP_Enter++_KEY_KP_Enter :: Int32+_KEY_KP_Enter = 65421+-- constant _KEY_KP_Equal++_KEY_KP_Equal :: Int32+_KEY_KP_Equal = 65469+-- constant _KEY_KP_F1++_KEY_KP_F1 :: Int32+_KEY_KP_F1 = 65425+-- constant _KEY_KP_F2++_KEY_KP_F2 :: Int32+_KEY_KP_F2 = 65426+-- constant _KEY_KP_F3++_KEY_KP_F3 :: Int32+_KEY_KP_F3 = 65427+-- constant _KEY_KP_F4++_KEY_KP_F4 :: Int32+_KEY_KP_F4 = 65428+-- constant _KEY_KP_Home++_KEY_KP_Home :: Int32+_KEY_KP_Home = 65429+-- constant _KEY_KP_Insert++_KEY_KP_Insert :: Int32+_KEY_KP_Insert = 65438+-- constant _KEY_KP_Left++_KEY_KP_Left :: Int32+_KEY_KP_Left = 65430+-- constant _KEY_KP_Multiply++_KEY_KP_Multiply :: Int32+_KEY_KP_Multiply = 65450+-- constant _KEY_KP_Next++_KEY_KP_Next :: Int32+_KEY_KP_Next = 65435+-- constant _KEY_KP_Page_Down++_KEY_KP_Page_Down :: Int32+_KEY_KP_Page_Down = 65435+-- constant _KEY_KP_Page_Up++_KEY_KP_Page_Up :: Int32+_KEY_KP_Page_Up = 65434+-- constant _KEY_KP_Prior++_KEY_KP_Prior :: Int32+_KEY_KP_Prior = 65434+-- constant _KEY_KP_Right++_KEY_KP_Right :: Int32+_KEY_KP_Right = 65432+-- constant _KEY_KP_Separator++_KEY_KP_Separator :: Int32+_KEY_KP_Separator = 65452+-- constant _KEY_KP_Space++_KEY_KP_Space :: Int32+_KEY_KP_Space = 65408+-- constant _KEY_KP_Subtract++_KEY_KP_Subtract :: Int32+_KEY_KP_Subtract = 65453+-- constant _KEY_KP_Tab++_KEY_KP_Tab :: Int32+_KEY_KP_Tab = 65417+-- constant _KEY_KP_Up++_KEY_KP_Up :: Int32+_KEY_KP_Up = 65431+-- constant _KEY_Kana_Lock++_KEY_Kana_Lock :: Int32+_KEY_Kana_Lock = 65325+-- constant _KEY_Kana_Shift++_KEY_Kana_Shift :: Int32+_KEY_Kana_Shift = 65326+-- constant _KEY_Kanji++_KEY_Kanji :: Int32+_KEY_Kanji = 65313+-- constant _KEY_Kanji_Bangou++_KEY_Kanji_Bangou :: Int32+_KEY_Kanji_Bangou = 65335+-- constant _KEY_Katakana++_KEY_Katakana :: Int32+_KEY_Katakana = 65318+-- constant _KEY_KbdBrightnessDown++_KEY_KbdBrightnessDown :: Int32+_KEY_KbdBrightnessDown = 269025030+-- constant _KEY_KbdBrightnessUp++_KEY_KbdBrightnessUp :: Int32+_KEY_KbdBrightnessUp = 269025029+-- constant _KEY_KbdLightOnOff++_KEY_KbdLightOnOff :: Int32+_KEY_KbdLightOnOff = 269025028+-- constant _KEY_Kcedilla++_KEY_Kcedilla :: Int32+_KEY_Kcedilla = 979+-- constant _KEY_Korean_Won++_KEY_Korean_Won :: Int32+_KEY_Korean_Won = 3839+-- constant _KEY_L++_KEY_L :: Int32+_KEY_L = 76+-- constant _KEY_L1++_KEY_L1 :: Int32+_KEY_L1 = 65480+-- constant _KEY_L10++_KEY_L10 :: Int32+_KEY_L10 = 65489+-- constant _KEY_L2++_KEY_L2 :: Int32+_KEY_L2 = 65481+-- constant _KEY_L3++_KEY_L3 :: Int32+_KEY_L3 = 65482+-- constant _KEY_L4++_KEY_L4 :: Int32+_KEY_L4 = 65483+-- constant _KEY_L5++_KEY_L5 :: Int32+_KEY_L5 = 65484+-- constant _KEY_L6++_KEY_L6 :: Int32+_KEY_L6 = 65485+-- constant _KEY_L7++_KEY_L7 :: Int32+_KEY_L7 = 65486+-- constant _KEY_L8++_KEY_L8 :: Int32+_KEY_L8 = 65487+-- constant _KEY_L9++_KEY_L9 :: Int32+_KEY_L9 = 65488+-- constant _KEY_Lacute++_KEY_Lacute :: Int32+_KEY_Lacute = 453+-- constant _KEY_Last_Virtual_Screen++_KEY_Last_Virtual_Screen :: Int32+_KEY_Last_Virtual_Screen = 65236+-- constant _KEY_Launch0++_KEY_Launch0 :: Int32+_KEY_Launch0 = 269025088+-- constant _KEY_Launch1++_KEY_Launch1 :: Int32+_KEY_Launch1 = 269025089+-- constant _KEY_Launch2++_KEY_Launch2 :: Int32+_KEY_Launch2 = 269025090+-- constant _KEY_Launch3++_KEY_Launch3 :: Int32+_KEY_Launch3 = 269025091+-- constant _KEY_Launch4++_KEY_Launch4 :: Int32+_KEY_Launch4 = 269025092+-- constant _KEY_Launch5++_KEY_Launch5 :: Int32+_KEY_Launch5 = 269025093+-- constant _KEY_Launch6++_KEY_Launch6 :: Int32+_KEY_Launch6 = 269025094+-- constant _KEY_Launch7++_KEY_Launch7 :: Int32+_KEY_Launch7 = 269025095+-- constant _KEY_Launch8++_KEY_Launch8 :: Int32+_KEY_Launch8 = 269025096+-- constant _KEY_Launch9++_KEY_Launch9 :: Int32+_KEY_Launch9 = 269025097+-- constant _KEY_LaunchA++_KEY_LaunchA :: Int32+_KEY_LaunchA = 269025098+-- constant _KEY_LaunchB++_KEY_LaunchB :: Int32+_KEY_LaunchB = 269025099+-- constant _KEY_LaunchC++_KEY_LaunchC :: Int32+_KEY_LaunchC = 269025100+-- constant _KEY_LaunchD++_KEY_LaunchD :: Int32+_KEY_LaunchD = 269025101+-- constant _KEY_LaunchE++_KEY_LaunchE :: Int32+_KEY_LaunchE = 269025102+-- constant _KEY_LaunchF++_KEY_LaunchF :: Int32+_KEY_LaunchF = 269025103+-- constant _KEY_Lbelowdot++_KEY_Lbelowdot :: Int32+_KEY_Lbelowdot = 16784950+-- constant _KEY_Lcaron++_KEY_Lcaron :: Int32+_KEY_Lcaron = 421+-- constant _KEY_Lcedilla++_KEY_Lcedilla :: Int32+_KEY_Lcedilla = 934+-- constant _KEY_Left++_KEY_Left :: Int32+_KEY_Left = 65361+-- constant _KEY_LightBulb++_KEY_LightBulb :: Int32+_KEY_LightBulb = 269025077+-- constant _KEY_Linefeed++_KEY_Linefeed :: Int32+_KEY_Linefeed = 65290+-- constant _KEY_LiraSign++_KEY_LiraSign :: Int32+_KEY_LiraSign = 16785572+-- constant _KEY_LogGrabInfo++_KEY_LogGrabInfo :: Int32+_KEY_LogGrabInfo = 269024805+-- constant _KEY_LogOff++_KEY_LogOff :: Int32+_KEY_LogOff = 269025121+-- constant _KEY_LogWindowTree++_KEY_LogWindowTree :: Int32+_KEY_LogWindowTree = 269024804+-- constant _KEY_Lstroke++_KEY_Lstroke :: Int32+_KEY_Lstroke = 419+-- constant _KEY_M++_KEY_M :: Int32+_KEY_M = 77+-- constant _KEY_Mabovedot++_KEY_Mabovedot :: Int32+_KEY_Mabovedot = 16784960+-- constant _KEY_Macedonia_DSE++_KEY_Macedonia_DSE :: Int32+_KEY_Macedonia_DSE = 1717+-- constant _KEY_Macedonia_GJE++_KEY_Macedonia_GJE :: Int32+_KEY_Macedonia_GJE = 1714+-- constant _KEY_Macedonia_KJE++_KEY_Macedonia_KJE :: Int32+_KEY_Macedonia_KJE = 1724+-- constant _KEY_Macedonia_dse++_KEY_Macedonia_dse :: Int32+_KEY_Macedonia_dse = 1701+-- constant _KEY_Macedonia_gje++_KEY_Macedonia_gje :: Int32+_KEY_Macedonia_gje = 1698+-- constant _KEY_Macedonia_kje++_KEY_Macedonia_kje :: Int32+_KEY_Macedonia_kje = 1708+-- constant _KEY_Mae_Koho++_KEY_Mae_Koho :: Int32+_KEY_Mae_Koho = 65342+-- constant _KEY_Mail++_KEY_Mail :: Int32+_KEY_Mail = 269025049+-- constant _KEY_MailForward++_KEY_MailForward :: Int32+_KEY_MailForward = 269025168+-- constant _KEY_Market++_KEY_Market :: Int32+_KEY_Market = 269025122+-- constant _KEY_Massyo++_KEY_Massyo :: Int32+_KEY_Massyo = 65324+-- constant _KEY_Meeting++_KEY_Meeting :: Int32+_KEY_Meeting = 269025123+-- constant _KEY_Memo++_KEY_Memo :: Int32+_KEY_Memo = 269025054+-- constant _KEY_Menu++_KEY_Menu :: Int32+_KEY_Menu = 65383+-- constant _KEY_MenuKB++_KEY_MenuKB :: Int32+_KEY_MenuKB = 269025125+-- constant _KEY_MenuPB++_KEY_MenuPB :: Int32+_KEY_MenuPB = 269025126+-- constant _KEY_Messenger++_KEY_Messenger :: Int32+_KEY_Messenger = 269025166+-- constant _KEY_Meta_L++_KEY_Meta_L :: Int32+_KEY_Meta_L = 65511+-- constant _KEY_Meta_R++_KEY_Meta_R :: Int32+_KEY_Meta_R = 65512+-- constant _KEY_MillSign++_KEY_MillSign :: Int32+_KEY_MillSign = 16785573+-- constant _KEY_ModeLock++_KEY_ModeLock :: Int32+_KEY_ModeLock = 269025025+-- constant _KEY_Mode_switch++_KEY_Mode_switch :: Int32+_KEY_Mode_switch = 65406+-- constant _KEY_MonBrightnessDown++_KEY_MonBrightnessDown :: Int32+_KEY_MonBrightnessDown = 269025027+-- constant _KEY_MonBrightnessUp++_KEY_MonBrightnessUp :: Int32+_KEY_MonBrightnessUp = 269025026+-- constant _KEY_MouseKeys_Accel_Enable++_KEY_MouseKeys_Accel_Enable :: Int32+_KEY_MouseKeys_Accel_Enable = 65143+-- constant _KEY_MouseKeys_Enable++_KEY_MouseKeys_Enable :: Int32+_KEY_MouseKeys_Enable = 65142+-- constant _KEY_Muhenkan++_KEY_Muhenkan :: Int32+_KEY_Muhenkan = 65314+-- constant _KEY_Multi_key++_KEY_Multi_key :: Int32+_KEY_Multi_key = 65312+-- constant _KEY_MultipleCandidate++_KEY_MultipleCandidate :: Int32+_KEY_MultipleCandidate = 65341+-- constant _KEY_Music++_KEY_Music :: Int32+_KEY_Music = 269025170+-- constant _KEY_MyComputer++_KEY_MyComputer :: Int32+_KEY_MyComputer = 269025075+-- constant _KEY_MySites++_KEY_MySites :: Int32+_KEY_MySites = 269025127+-- constant _KEY_N++_KEY_N :: Int32+_KEY_N = 78+-- constant _KEY_Nacute++_KEY_Nacute :: Int32+_KEY_Nacute = 465+-- constant _KEY_NairaSign++_KEY_NairaSign :: Int32+_KEY_NairaSign = 16785574+-- constant _KEY_Ncaron++_KEY_Ncaron :: Int32+_KEY_Ncaron = 466+-- constant _KEY_Ncedilla++_KEY_Ncedilla :: Int32+_KEY_Ncedilla = 977+-- constant _KEY_New++_KEY_New :: Int32+_KEY_New = 269025128+-- constant _KEY_NewSheqelSign++_KEY_NewSheqelSign :: Int32+_KEY_NewSheqelSign = 16785578+-- constant _KEY_News++_KEY_News :: Int32+_KEY_News = 269025129+-- constant _KEY_Next++_KEY_Next :: Int32+_KEY_Next = 65366+-- constant _KEY_Next_VMode++_KEY_Next_VMode :: Int32+_KEY_Next_VMode = 269024802+-- constant _KEY_Next_Virtual_Screen++_KEY_Next_Virtual_Screen :: Int32+_KEY_Next_Virtual_Screen = 65234+-- constant _KEY_Ntilde++_KEY_Ntilde :: Int32+_KEY_Ntilde = 209+-- constant _KEY_Num_Lock++_KEY_Num_Lock :: Int32+_KEY_Num_Lock = 65407+-- constant _KEY_O++_KEY_O :: Int32+_KEY_O = 79+-- constant _KEY_OE++_KEY_OE :: Int32+_KEY_OE = 5052+-- constant _KEY_Oacute++_KEY_Oacute :: Int32+_KEY_Oacute = 211+-- constant _KEY_Obarred++_KEY_Obarred :: Int32+_KEY_Obarred = 16777631+-- constant _KEY_Obelowdot++_KEY_Obelowdot :: Int32+_KEY_Obelowdot = 16785100+-- constant _KEY_Ocaron++_KEY_Ocaron :: Int32+_KEY_Ocaron = 16777681+-- constant _KEY_Ocircumflex++_KEY_Ocircumflex :: Int32+_KEY_Ocircumflex = 212+-- constant _KEY_Ocircumflexacute++_KEY_Ocircumflexacute :: Int32+_KEY_Ocircumflexacute = 16785104+-- constant _KEY_Ocircumflexbelowdot++_KEY_Ocircumflexbelowdot :: Int32+_KEY_Ocircumflexbelowdot = 16785112+-- constant _KEY_Ocircumflexgrave++_KEY_Ocircumflexgrave :: Int32+_KEY_Ocircumflexgrave = 16785106+-- constant _KEY_Ocircumflexhook++_KEY_Ocircumflexhook :: Int32+_KEY_Ocircumflexhook = 16785108+-- constant _KEY_Ocircumflextilde++_KEY_Ocircumflextilde :: Int32+_KEY_Ocircumflextilde = 16785110+-- constant _KEY_Odiaeresis++_KEY_Odiaeresis :: Int32+_KEY_Odiaeresis = 214+-- constant _KEY_Odoubleacute++_KEY_Odoubleacute :: Int32+_KEY_Odoubleacute = 469+-- constant _KEY_OfficeHome++_KEY_OfficeHome :: Int32+_KEY_OfficeHome = 269025130+-- constant _KEY_Ograve++_KEY_Ograve :: Int32+_KEY_Ograve = 210+-- constant _KEY_Ohook++_KEY_Ohook :: Int32+_KEY_Ohook = 16785102+-- constant _KEY_Ohorn++_KEY_Ohorn :: Int32+_KEY_Ohorn = 16777632+-- constant _KEY_Ohornacute++_KEY_Ohornacute :: Int32+_KEY_Ohornacute = 16785114+-- constant _KEY_Ohornbelowdot++_KEY_Ohornbelowdot :: Int32+_KEY_Ohornbelowdot = 16785122+-- constant _KEY_Ohorngrave++_KEY_Ohorngrave :: Int32+_KEY_Ohorngrave = 16785116+-- constant _KEY_Ohornhook++_KEY_Ohornhook :: Int32+_KEY_Ohornhook = 16785118+-- constant _KEY_Ohorntilde++_KEY_Ohorntilde :: Int32+_KEY_Ohorntilde = 16785120+-- constant _KEY_Omacron++_KEY_Omacron :: Int32+_KEY_Omacron = 978+-- constant _KEY_Ooblique++_KEY_Ooblique :: Int32+_KEY_Ooblique = 216+-- constant _KEY_Open++_KEY_Open :: Int32+_KEY_Open = 269025131+-- constant _KEY_OpenURL++_KEY_OpenURL :: Int32+_KEY_OpenURL = 269025080+-- constant _KEY_Option++_KEY_Option :: Int32+_KEY_Option = 269025132+-- constant _KEY_Oslash++_KEY_Oslash :: Int32+_KEY_Oslash = 216+-- constant _KEY_Otilde++_KEY_Otilde :: Int32+_KEY_Otilde = 213+-- constant _KEY_Overlay1_Enable++_KEY_Overlay1_Enable :: Int32+_KEY_Overlay1_Enable = 65144+-- constant _KEY_Overlay2_Enable++_KEY_Overlay2_Enable :: Int32+_KEY_Overlay2_Enable = 65145+-- constant _KEY_P++_KEY_P :: Int32+_KEY_P = 80+-- constant _KEY_Pabovedot++_KEY_Pabovedot :: Int32+_KEY_Pabovedot = 16784982+-- constant _KEY_Page_Down++_KEY_Page_Down :: Int32+_KEY_Page_Down = 65366+-- constant _KEY_Page_Up++_KEY_Page_Up :: Int32+_KEY_Page_Up = 65365+-- constant _KEY_Paste++_KEY_Paste :: Int32+_KEY_Paste = 269025133+-- constant _KEY_Pause++_KEY_Pause :: Int32+_KEY_Pause = 65299+-- constant _KEY_PesetaSign++_KEY_PesetaSign :: Int32+_KEY_PesetaSign = 16785575+-- constant _KEY_Phone++_KEY_Phone :: Int32+_KEY_Phone = 269025134+-- constant _KEY_Pictures++_KEY_Pictures :: Int32+_KEY_Pictures = 269025169+-- constant _KEY_Pointer_Accelerate++_KEY_Pointer_Accelerate :: Int32+_KEY_Pointer_Accelerate = 65274+-- constant _KEY_Pointer_Button1++_KEY_Pointer_Button1 :: Int32+_KEY_Pointer_Button1 = 65257+-- constant _KEY_Pointer_Button2++_KEY_Pointer_Button2 :: Int32+_KEY_Pointer_Button2 = 65258+-- constant _KEY_Pointer_Button3++_KEY_Pointer_Button3 :: Int32+_KEY_Pointer_Button3 = 65259+-- constant _KEY_Pointer_Button4++_KEY_Pointer_Button4 :: Int32+_KEY_Pointer_Button4 = 65260+-- constant _KEY_Pointer_Button5++_KEY_Pointer_Button5 :: Int32+_KEY_Pointer_Button5 = 65261+-- constant _KEY_Pointer_Button_Dflt++_KEY_Pointer_Button_Dflt :: Int32+_KEY_Pointer_Button_Dflt = 65256+-- constant _KEY_Pointer_DblClick1++_KEY_Pointer_DblClick1 :: Int32+_KEY_Pointer_DblClick1 = 65263+-- constant _KEY_Pointer_DblClick2++_KEY_Pointer_DblClick2 :: Int32+_KEY_Pointer_DblClick2 = 65264+-- constant _KEY_Pointer_DblClick3++_KEY_Pointer_DblClick3 :: Int32+_KEY_Pointer_DblClick3 = 65265+-- constant _KEY_Pointer_DblClick4++_KEY_Pointer_DblClick4 :: Int32+_KEY_Pointer_DblClick4 = 65266+-- constant _KEY_Pointer_DblClick5++_KEY_Pointer_DblClick5 :: Int32+_KEY_Pointer_DblClick5 = 65267+-- constant _KEY_Pointer_DblClick_Dflt++_KEY_Pointer_DblClick_Dflt :: Int32+_KEY_Pointer_DblClick_Dflt = 65262+-- constant _KEY_Pointer_DfltBtnNext++_KEY_Pointer_DfltBtnNext :: Int32+_KEY_Pointer_DfltBtnNext = 65275+-- constant _KEY_Pointer_DfltBtnPrev++_KEY_Pointer_DfltBtnPrev :: Int32+_KEY_Pointer_DfltBtnPrev = 65276+-- constant _KEY_Pointer_Down++_KEY_Pointer_Down :: Int32+_KEY_Pointer_Down = 65251+-- constant _KEY_Pointer_DownLeft++_KEY_Pointer_DownLeft :: Int32+_KEY_Pointer_DownLeft = 65254+-- constant _KEY_Pointer_DownRight++_KEY_Pointer_DownRight :: Int32+_KEY_Pointer_DownRight = 65255+-- constant _KEY_Pointer_Drag1++_KEY_Pointer_Drag1 :: Int32+_KEY_Pointer_Drag1 = 65269+-- constant _KEY_Pointer_Drag2++_KEY_Pointer_Drag2 :: Int32+_KEY_Pointer_Drag2 = 65270+-- constant _KEY_Pointer_Drag3++_KEY_Pointer_Drag3 :: Int32+_KEY_Pointer_Drag3 = 65271+-- constant _KEY_Pointer_Drag4++_KEY_Pointer_Drag4 :: Int32+_KEY_Pointer_Drag4 = 65272+-- constant _KEY_Pointer_Drag5++_KEY_Pointer_Drag5 :: Int32+_KEY_Pointer_Drag5 = 65277+-- constant _KEY_Pointer_Drag_Dflt++_KEY_Pointer_Drag_Dflt :: Int32+_KEY_Pointer_Drag_Dflt = 65268+-- constant _KEY_Pointer_EnableKeys++_KEY_Pointer_EnableKeys :: Int32+_KEY_Pointer_EnableKeys = 65273+-- constant _KEY_Pointer_Left++_KEY_Pointer_Left :: Int32+_KEY_Pointer_Left = 65248+-- constant _KEY_Pointer_Right++_KEY_Pointer_Right :: Int32+_KEY_Pointer_Right = 65249+-- constant _KEY_Pointer_Up++_KEY_Pointer_Up :: Int32+_KEY_Pointer_Up = 65250+-- constant _KEY_Pointer_UpLeft++_KEY_Pointer_UpLeft :: Int32+_KEY_Pointer_UpLeft = 65252+-- constant _KEY_Pointer_UpRight++_KEY_Pointer_UpRight :: Int32+_KEY_Pointer_UpRight = 65253+-- constant _KEY_PowerDown++_KEY_PowerDown :: Int32+_KEY_PowerDown = 269025057+-- constant _KEY_PowerOff++_KEY_PowerOff :: Int32+_KEY_PowerOff = 269025066+-- constant _KEY_Prev_VMode++_KEY_Prev_VMode :: Int32+_KEY_Prev_VMode = 269024803+-- constant _KEY_Prev_Virtual_Screen++_KEY_Prev_Virtual_Screen :: Int32+_KEY_Prev_Virtual_Screen = 65233+-- constant _KEY_PreviousCandidate++_KEY_PreviousCandidate :: Int32+_KEY_PreviousCandidate = 65342+-- constant _KEY_Print++_KEY_Print :: Int32+_KEY_Print = 65377+-- constant _KEY_Prior++_KEY_Prior :: Int32+_KEY_Prior = 65365+-- constant _KEY_Q++_KEY_Q :: Int32+_KEY_Q = 81+-- constant _KEY_R++_KEY_R :: Int32+_KEY_R = 82+-- constant _KEY_R1++_KEY_R1 :: Int32+_KEY_R1 = 65490+-- constant _KEY_R10++_KEY_R10 :: Int32+_KEY_R10 = 65499+-- constant _KEY_R11++_KEY_R11 :: Int32+_KEY_R11 = 65500+-- constant _KEY_R12++_KEY_R12 :: Int32+_KEY_R12 = 65501+-- constant _KEY_R13++_KEY_R13 :: Int32+_KEY_R13 = 65502+-- constant _KEY_R14++_KEY_R14 :: Int32+_KEY_R14 = 65503+-- constant _KEY_R15++_KEY_R15 :: Int32+_KEY_R15 = 65504+-- constant _KEY_R2++_KEY_R2 :: Int32+_KEY_R2 = 65491+-- constant _KEY_R3++_KEY_R3 :: Int32+_KEY_R3 = 65492+-- constant _KEY_R4++_KEY_R4 :: Int32+_KEY_R4 = 65493+-- constant _KEY_R5++_KEY_R5 :: Int32+_KEY_R5 = 65494+-- constant _KEY_R6++_KEY_R6 :: Int32+_KEY_R6 = 65495+-- constant _KEY_R7++_KEY_R7 :: Int32+_KEY_R7 = 65496+-- constant _KEY_R8++_KEY_R8 :: Int32+_KEY_R8 = 65497+-- constant _KEY_R9++_KEY_R9 :: Int32+_KEY_R9 = 65498+-- constant _KEY_Racute++_KEY_Racute :: Int32+_KEY_Racute = 448+-- constant _KEY_Rcaron++_KEY_Rcaron :: Int32+_KEY_Rcaron = 472+-- constant _KEY_Rcedilla++_KEY_Rcedilla :: Int32+_KEY_Rcedilla = 931+-- constant _KEY_Red++_KEY_Red :: Int32+_KEY_Red = 269025187+-- constant _KEY_Redo++_KEY_Redo :: Int32+_KEY_Redo = 65382+-- constant _KEY_Refresh++_KEY_Refresh :: Int32+_KEY_Refresh = 269025065+-- constant _KEY_Reload++_KEY_Reload :: Int32+_KEY_Reload = 269025139+-- constant _KEY_RepeatKeys_Enable++_KEY_RepeatKeys_Enable :: Int32+_KEY_RepeatKeys_Enable = 65138+-- constant _KEY_Reply++_KEY_Reply :: Int32+_KEY_Reply = 269025138+-- constant _KEY_Return++_KEY_Return :: Int32+_KEY_Return = 65293+-- constant _KEY_Right++_KEY_Right :: Int32+_KEY_Right = 65363+-- constant _KEY_RockerDown++_KEY_RockerDown :: Int32+_KEY_RockerDown = 269025060+-- constant _KEY_RockerEnter++_KEY_RockerEnter :: Int32+_KEY_RockerEnter = 269025061+-- constant _KEY_RockerUp++_KEY_RockerUp :: Int32+_KEY_RockerUp = 269025059+-- constant _KEY_Romaji++_KEY_Romaji :: Int32+_KEY_Romaji = 65316+-- constant _KEY_RotateWindows++_KEY_RotateWindows :: Int32+_KEY_RotateWindows = 269025140+-- constant _KEY_RotationKB++_KEY_RotationKB :: Int32+_KEY_RotationKB = 269025142+-- constant _KEY_RotationPB++_KEY_RotationPB :: Int32+_KEY_RotationPB = 269025141+-- constant _KEY_RupeeSign++_KEY_RupeeSign :: Int32+_KEY_RupeeSign = 16785576+-- constant _KEY_S++_KEY_S :: Int32+_KEY_S = 83+-- constant _KEY_SCHWA++_KEY_SCHWA :: Int32+_KEY_SCHWA = 16777615+-- constant _KEY_Sabovedot++_KEY_Sabovedot :: Int32+_KEY_Sabovedot = 16784992+-- constant _KEY_Sacute++_KEY_Sacute :: Int32+_KEY_Sacute = 422+-- constant _KEY_Save++_KEY_Save :: Int32+_KEY_Save = 269025143+-- constant _KEY_Scaron++_KEY_Scaron :: Int32+_KEY_Scaron = 425+-- constant _KEY_Scedilla++_KEY_Scedilla :: Int32+_KEY_Scedilla = 426+-- constant _KEY_Scircumflex++_KEY_Scircumflex :: Int32+_KEY_Scircumflex = 734+-- constant _KEY_ScreenSaver++_KEY_ScreenSaver :: Int32+_KEY_ScreenSaver = 269025069+-- constant _KEY_ScrollClick++_KEY_ScrollClick :: Int32+_KEY_ScrollClick = 269025146+-- constant _KEY_ScrollDown++_KEY_ScrollDown :: Int32+_KEY_ScrollDown = 269025145+-- constant _KEY_ScrollUp++_KEY_ScrollUp :: Int32+_KEY_ScrollUp = 269025144+-- constant _KEY_Scroll_Lock++_KEY_Scroll_Lock :: Int32+_KEY_Scroll_Lock = 65300+-- constant _KEY_Search++_KEY_Search :: Int32+_KEY_Search = 269025051+-- constant _KEY_Select++_KEY_Select :: Int32+_KEY_Select = 65376+-- constant _KEY_SelectButton++_KEY_SelectButton :: Int32+_KEY_SelectButton = 269025184+-- constant _KEY_Send++_KEY_Send :: Int32+_KEY_Send = 269025147+-- constant _KEY_Serbian_DJE++_KEY_Serbian_DJE :: Int32+_KEY_Serbian_DJE = 1713+-- constant _KEY_Serbian_DZE++_KEY_Serbian_DZE :: Int32+_KEY_Serbian_DZE = 1727+-- constant _KEY_Serbian_JE++_KEY_Serbian_JE :: Int32+_KEY_Serbian_JE = 1720+-- constant _KEY_Serbian_LJE++_KEY_Serbian_LJE :: Int32+_KEY_Serbian_LJE = 1721+-- constant _KEY_Serbian_NJE++_KEY_Serbian_NJE :: Int32+_KEY_Serbian_NJE = 1722+-- constant _KEY_Serbian_TSHE++_KEY_Serbian_TSHE :: Int32+_KEY_Serbian_TSHE = 1723+-- constant _KEY_Serbian_dje++_KEY_Serbian_dje :: Int32+_KEY_Serbian_dje = 1697+-- constant _KEY_Serbian_dze++_KEY_Serbian_dze :: Int32+_KEY_Serbian_dze = 1711+-- constant _KEY_Serbian_je++_KEY_Serbian_je :: Int32+_KEY_Serbian_je = 1704+-- constant _KEY_Serbian_lje++_KEY_Serbian_lje :: Int32+_KEY_Serbian_lje = 1705+-- constant _KEY_Serbian_nje++_KEY_Serbian_nje :: Int32+_KEY_Serbian_nje = 1706+-- constant _KEY_Serbian_tshe++_KEY_Serbian_tshe :: Int32+_KEY_Serbian_tshe = 1707+-- constant _KEY_Shift_L++_KEY_Shift_L :: Int32+_KEY_Shift_L = 65505+-- constant _KEY_Shift_Lock++_KEY_Shift_Lock :: Int32+_KEY_Shift_Lock = 65510+-- constant _KEY_Shift_R++_KEY_Shift_R :: Int32+_KEY_Shift_R = 65506+-- constant _KEY_Shop++_KEY_Shop :: Int32+_KEY_Shop = 269025078+-- constant _KEY_SingleCandidate++_KEY_SingleCandidate :: Int32+_KEY_SingleCandidate = 65340+-- constant _KEY_Sinh_a++_KEY_Sinh_a :: Int32+_KEY_Sinh_a = 16780677+-- constant _KEY_Sinh_aa++_KEY_Sinh_aa :: Int32+_KEY_Sinh_aa = 16780678+-- constant _KEY_Sinh_aa2++_KEY_Sinh_aa2 :: Int32+_KEY_Sinh_aa2 = 16780751+-- constant _KEY_Sinh_ae++_KEY_Sinh_ae :: Int32+_KEY_Sinh_ae = 16780679+-- constant _KEY_Sinh_ae2++_KEY_Sinh_ae2 :: Int32+_KEY_Sinh_ae2 = 16780752+-- constant _KEY_Sinh_aee++_KEY_Sinh_aee :: Int32+_KEY_Sinh_aee = 16780680+-- constant _KEY_Sinh_aee2++_KEY_Sinh_aee2 :: Int32+_KEY_Sinh_aee2 = 16780753+-- constant _KEY_Sinh_ai++_KEY_Sinh_ai :: Int32+_KEY_Sinh_ai = 16780691+-- constant _KEY_Sinh_ai2++_KEY_Sinh_ai2 :: Int32+_KEY_Sinh_ai2 = 16780763+-- constant _KEY_Sinh_al++_KEY_Sinh_al :: Int32+_KEY_Sinh_al = 16780746+-- constant _KEY_Sinh_au++_KEY_Sinh_au :: Int32+_KEY_Sinh_au = 16780694+-- constant _KEY_Sinh_au2++_KEY_Sinh_au2 :: Int32+_KEY_Sinh_au2 = 16780766+-- constant _KEY_Sinh_ba++_KEY_Sinh_ba :: Int32+_KEY_Sinh_ba = 16780726+-- constant _KEY_Sinh_bha++_KEY_Sinh_bha :: Int32+_KEY_Sinh_bha = 16780727+-- constant _KEY_Sinh_ca++_KEY_Sinh_ca :: Int32+_KEY_Sinh_ca = 16780704+-- constant _KEY_Sinh_cha++_KEY_Sinh_cha :: Int32+_KEY_Sinh_cha = 16780705+-- constant _KEY_Sinh_dda++_KEY_Sinh_dda :: Int32+_KEY_Sinh_dda = 16780713+-- constant _KEY_Sinh_ddha++_KEY_Sinh_ddha :: Int32+_KEY_Sinh_ddha = 16780714+-- constant _KEY_Sinh_dha++_KEY_Sinh_dha :: Int32+_KEY_Sinh_dha = 16780719+-- constant _KEY_Sinh_dhha++_KEY_Sinh_dhha :: Int32+_KEY_Sinh_dhha = 16780720+-- constant _KEY_Sinh_e++_KEY_Sinh_e :: Int32+_KEY_Sinh_e = 16780689+-- constant _KEY_Sinh_e2++_KEY_Sinh_e2 :: Int32+_KEY_Sinh_e2 = 16780761+-- constant _KEY_Sinh_ee++_KEY_Sinh_ee :: Int32+_KEY_Sinh_ee = 16780690+-- constant _KEY_Sinh_ee2++_KEY_Sinh_ee2 :: Int32+_KEY_Sinh_ee2 = 16780762+-- constant _KEY_Sinh_fa++_KEY_Sinh_fa :: Int32+_KEY_Sinh_fa = 16780742+-- constant _KEY_Sinh_ga++_KEY_Sinh_ga :: Int32+_KEY_Sinh_ga = 16780700+-- constant _KEY_Sinh_gha++_KEY_Sinh_gha :: Int32+_KEY_Sinh_gha = 16780701+-- constant _KEY_Sinh_h2++_KEY_Sinh_h2 :: Int32+_KEY_Sinh_h2 = 16780675+-- constant _KEY_Sinh_ha++_KEY_Sinh_ha :: Int32+_KEY_Sinh_ha = 16780740+-- constant _KEY_Sinh_i++_KEY_Sinh_i :: Int32+_KEY_Sinh_i = 16780681+-- constant _KEY_Sinh_i2++_KEY_Sinh_i2 :: Int32+_KEY_Sinh_i2 = 16780754+-- constant _KEY_Sinh_ii++_KEY_Sinh_ii :: Int32+_KEY_Sinh_ii = 16780682+-- constant _KEY_Sinh_ii2++_KEY_Sinh_ii2 :: Int32+_KEY_Sinh_ii2 = 16780755+-- constant _KEY_Sinh_ja++_KEY_Sinh_ja :: Int32+_KEY_Sinh_ja = 16780706+-- constant _KEY_Sinh_jha++_KEY_Sinh_jha :: Int32+_KEY_Sinh_jha = 16780707+-- constant _KEY_Sinh_jnya++_KEY_Sinh_jnya :: Int32+_KEY_Sinh_jnya = 16780709+-- constant _KEY_Sinh_ka++_KEY_Sinh_ka :: Int32+_KEY_Sinh_ka = 16780698+-- constant _KEY_Sinh_kha++_KEY_Sinh_kha :: Int32+_KEY_Sinh_kha = 16780699+-- constant _KEY_Sinh_kunddaliya++_KEY_Sinh_kunddaliya :: Int32+_KEY_Sinh_kunddaliya = 16780788+-- constant _KEY_Sinh_la++_KEY_Sinh_la :: Int32+_KEY_Sinh_la = 16780733+-- constant _KEY_Sinh_lla++_KEY_Sinh_lla :: Int32+_KEY_Sinh_lla = 16780741+-- constant _KEY_Sinh_lu++_KEY_Sinh_lu :: Int32+_KEY_Sinh_lu = 16780687+-- constant _KEY_Sinh_lu2++_KEY_Sinh_lu2 :: Int32+_KEY_Sinh_lu2 = 16780767+-- constant _KEY_Sinh_luu++_KEY_Sinh_luu :: Int32+_KEY_Sinh_luu = 16780688+-- constant _KEY_Sinh_luu2++_KEY_Sinh_luu2 :: Int32+_KEY_Sinh_luu2 = 16780787+-- constant _KEY_Sinh_ma++_KEY_Sinh_ma :: Int32+_KEY_Sinh_ma = 16780728+-- constant _KEY_Sinh_mba++_KEY_Sinh_mba :: Int32+_KEY_Sinh_mba = 16780729+-- constant _KEY_Sinh_na++_KEY_Sinh_na :: Int32+_KEY_Sinh_na = 16780721+-- constant _KEY_Sinh_ndda++_KEY_Sinh_ndda :: Int32+_KEY_Sinh_ndda = 16780716+-- constant _KEY_Sinh_ndha++_KEY_Sinh_ndha :: Int32+_KEY_Sinh_ndha = 16780723+-- constant _KEY_Sinh_ng++_KEY_Sinh_ng :: Int32+_KEY_Sinh_ng = 16780674+-- constant _KEY_Sinh_ng2++_KEY_Sinh_ng2 :: Int32+_KEY_Sinh_ng2 = 16780702+-- constant _KEY_Sinh_nga++_KEY_Sinh_nga :: Int32+_KEY_Sinh_nga = 16780703+-- constant _KEY_Sinh_nja++_KEY_Sinh_nja :: Int32+_KEY_Sinh_nja = 16780710+-- constant _KEY_Sinh_nna++_KEY_Sinh_nna :: Int32+_KEY_Sinh_nna = 16780715+-- constant _KEY_Sinh_nya++_KEY_Sinh_nya :: Int32+_KEY_Sinh_nya = 16780708+-- constant _KEY_Sinh_o++_KEY_Sinh_o :: Int32+_KEY_Sinh_o = 16780692+-- constant _KEY_Sinh_o2++_KEY_Sinh_o2 :: Int32+_KEY_Sinh_o2 = 16780764+-- constant _KEY_Sinh_oo++_KEY_Sinh_oo :: Int32+_KEY_Sinh_oo = 16780693+-- constant _KEY_Sinh_oo2++_KEY_Sinh_oo2 :: Int32+_KEY_Sinh_oo2 = 16780765+-- constant _KEY_Sinh_pa++_KEY_Sinh_pa :: Int32+_KEY_Sinh_pa = 16780724+-- constant _KEY_Sinh_pha++_KEY_Sinh_pha :: Int32+_KEY_Sinh_pha = 16780725+-- constant _KEY_Sinh_ra++_KEY_Sinh_ra :: Int32+_KEY_Sinh_ra = 16780731+-- constant _KEY_Sinh_ri++_KEY_Sinh_ri :: Int32+_KEY_Sinh_ri = 16780685+-- constant _KEY_Sinh_rii++_KEY_Sinh_rii :: Int32+_KEY_Sinh_rii = 16780686+-- constant _KEY_Sinh_ru2++_KEY_Sinh_ru2 :: Int32+_KEY_Sinh_ru2 = 16780760+-- constant _KEY_Sinh_ruu2++_KEY_Sinh_ruu2 :: Int32+_KEY_Sinh_ruu2 = 16780786+-- constant _KEY_Sinh_sa++_KEY_Sinh_sa :: Int32+_KEY_Sinh_sa = 16780739+-- constant _KEY_Sinh_sha++_KEY_Sinh_sha :: Int32+_KEY_Sinh_sha = 16780737+-- constant _KEY_Sinh_ssha++_KEY_Sinh_ssha :: Int32+_KEY_Sinh_ssha = 16780738+-- constant _KEY_Sinh_tha++_KEY_Sinh_tha :: Int32+_KEY_Sinh_tha = 16780717+-- constant _KEY_Sinh_thha++_KEY_Sinh_thha :: Int32+_KEY_Sinh_thha = 16780718+-- constant _KEY_Sinh_tta++_KEY_Sinh_tta :: Int32+_KEY_Sinh_tta = 16780711+-- constant _KEY_Sinh_ttha++_KEY_Sinh_ttha :: Int32+_KEY_Sinh_ttha = 16780712+-- constant _KEY_Sinh_u++_KEY_Sinh_u :: Int32+_KEY_Sinh_u = 16780683+-- constant _KEY_Sinh_u2++_KEY_Sinh_u2 :: Int32+_KEY_Sinh_u2 = 16780756+-- constant _KEY_Sinh_uu++_KEY_Sinh_uu :: Int32+_KEY_Sinh_uu = 16780684+-- constant _KEY_Sinh_uu2++_KEY_Sinh_uu2 :: Int32+_KEY_Sinh_uu2 = 16780758+-- constant _KEY_Sinh_va++_KEY_Sinh_va :: Int32+_KEY_Sinh_va = 16780736+-- constant _KEY_Sinh_ya++_KEY_Sinh_ya :: Int32+_KEY_Sinh_ya = 16780730+-- constant _KEY_Sleep++_KEY_Sleep :: Int32+_KEY_Sleep = 269025071+-- constant _KEY_SlowKeys_Enable++_KEY_SlowKeys_Enable :: Int32+_KEY_SlowKeys_Enable = 65139+-- constant _KEY_Spell++_KEY_Spell :: Int32+_KEY_Spell = 269025148+-- constant _KEY_SplitScreen++_KEY_SplitScreen :: Int32+_KEY_SplitScreen = 269025149+-- constant _KEY_Standby++_KEY_Standby :: Int32+_KEY_Standby = 269025040+-- constant _KEY_Start++_KEY_Start :: Int32+_KEY_Start = 269025050+-- constant _KEY_StickyKeys_Enable++_KEY_StickyKeys_Enable :: Int32+_KEY_StickyKeys_Enable = 65141+-- constant _KEY_Stop++_KEY_Stop :: Int32+_KEY_Stop = 269025064+-- constant _KEY_Subtitle++_KEY_Subtitle :: Int32+_KEY_Subtitle = 269025178+-- constant _KEY_Super_L++_KEY_Super_L :: Int32+_KEY_Super_L = 65515+-- constant _KEY_Super_R++_KEY_Super_R :: Int32+_KEY_Super_R = 65516+-- constant _KEY_Support++_KEY_Support :: Int32+_KEY_Support = 269025150+-- constant _KEY_Suspend++_KEY_Suspend :: Int32+_KEY_Suspend = 269025191+-- constant _KEY_Switch_VT_1++_KEY_Switch_VT_1 :: Int32+_KEY_Switch_VT_1 = 269024769+-- constant _KEY_Switch_VT_10++_KEY_Switch_VT_10 :: Int32+_KEY_Switch_VT_10 = 269024778+-- constant _KEY_Switch_VT_11++_KEY_Switch_VT_11 :: Int32+_KEY_Switch_VT_11 = 269024779+-- constant _KEY_Switch_VT_12++_KEY_Switch_VT_12 :: Int32+_KEY_Switch_VT_12 = 269024780+-- constant _KEY_Switch_VT_2++_KEY_Switch_VT_2 :: Int32+_KEY_Switch_VT_2 = 269024770+-- constant _KEY_Switch_VT_3++_KEY_Switch_VT_3 :: Int32+_KEY_Switch_VT_3 = 269024771+-- constant _KEY_Switch_VT_4++_KEY_Switch_VT_4 :: Int32+_KEY_Switch_VT_4 = 269024772+-- constant _KEY_Switch_VT_5++_KEY_Switch_VT_5 :: Int32+_KEY_Switch_VT_5 = 269024773+-- constant _KEY_Switch_VT_6++_KEY_Switch_VT_6 :: Int32+_KEY_Switch_VT_6 = 269024774+-- constant _KEY_Switch_VT_7++_KEY_Switch_VT_7 :: Int32+_KEY_Switch_VT_7 = 269024775+-- constant _KEY_Switch_VT_8++_KEY_Switch_VT_8 :: Int32+_KEY_Switch_VT_8 = 269024776+-- constant _KEY_Switch_VT_9++_KEY_Switch_VT_9 :: Int32+_KEY_Switch_VT_9 = 269024777+-- constant _KEY_Sys_Req++_KEY_Sys_Req :: Int32+_KEY_Sys_Req = 65301+-- constant _KEY_T++_KEY_T :: Int32+_KEY_T = 84+-- constant _KEY_THORN++_KEY_THORN :: Int32+_KEY_THORN = 222+-- constant _KEY_Tab++_KEY_Tab :: Int32+_KEY_Tab = 65289+-- constant _KEY_Tabovedot++_KEY_Tabovedot :: Int32+_KEY_Tabovedot = 16785002+-- constant _KEY_TaskPane++_KEY_TaskPane :: Int32+_KEY_TaskPane = 269025151+-- constant _KEY_Tcaron++_KEY_Tcaron :: Int32+_KEY_Tcaron = 427+-- constant _KEY_Tcedilla++_KEY_Tcedilla :: Int32+_KEY_Tcedilla = 478+-- constant _KEY_Terminal++_KEY_Terminal :: Int32+_KEY_Terminal = 269025152+-- constant _KEY_Terminate_Server++_KEY_Terminate_Server :: Int32+_KEY_Terminate_Server = 65237+-- constant _KEY_Thai_baht++_KEY_Thai_baht :: Int32+_KEY_Thai_baht = 3551+-- constant _KEY_Thai_bobaimai++_KEY_Thai_bobaimai :: Int32+_KEY_Thai_bobaimai = 3514+-- constant _KEY_Thai_chochan++_KEY_Thai_chochan :: Int32+_KEY_Thai_chochan = 3496+-- constant _KEY_Thai_chochang++_KEY_Thai_chochang :: Int32+_KEY_Thai_chochang = 3498+-- constant _KEY_Thai_choching++_KEY_Thai_choching :: Int32+_KEY_Thai_choching = 3497+-- constant _KEY_Thai_chochoe++_KEY_Thai_chochoe :: Int32+_KEY_Thai_chochoe = 3500+-- constant _KEY_Thai_dochada++_KEY_Thai_dochada :: Int32+_KEY_Thai_dochada = 3502+-- constant _KEY_Thai_dodek++_KEY_Thai_dodek :: Int32+_KEY_Thai_dodek = 3508+-- constant _KEY_Thai_fofa++_KEY_Thai_fofa :: Int32+_KEY_Thai_fofa = 3517+-- constant _KEY_Thai_fofan++_KEY_Thai_fofan :: Int32+_KEY_Thai_fofan = 3519+-- constant _KEY_Thai_hohip++_KEY_Thai_hohip :: Int32+_KEY_Thai_hohip = 3531+-- constant _KEY_Thai_honokhuk++_KEY_Thai_honokhuk :: Int32+_KEY_Thai_honokhuk = 3534+-- constant _KEY_Thai_khokhai++_KEY_Thai_khokhai :: Int32+_KEY_Thai_khokhai = 3490+-- constant _KEY_Thai_khokhon++_KEY_Thai_khokhon :: Int32+_KEY_Thai_khokhon = 3493+-- constant _KEY_Thai_khokhuat++_KEY_Thai_khokhuat :: Int32+_KEY_Thai_khokhuat = 3491+-- constant _KEY_Thai_khokhwai++_KEY_Thai_khokhwai :: Int32+_KEY_Thai_khokhwai = 3492+-- constant _KEY_Thai_khorakhang++_KEY_Thai_khorakhang :: Int32+_KEY_Thai_khorakhang = 3494+-- constant _KEY_Thai_kokai++_KEY_Thai_kokai :: Int32+_KEY_Thai_kokai = 3489+-- constant _KEY_Thai_lakkhangyao++_KEY_Thai_lakkhangyao :: Int32+_KEY_Thai_lakkhangyao = 3557+-- constant _KEY_Thai_lekchet++_KEY_Thai_lekchet :: Int32+_KEY_Thai_lekchet = 3575+-- constant _KEY_Thai_lekha++_KEY_Thai_lekha :: Int32+_KEY_Thai_lekha = 3573+-- constant _KEY_Thai_lekhok++_KEY_Thai_lekhok :: Int32+_KEY_Thai_lekhok = 3574+-- constant _KEY_Thai_lekkao++_KEY_Thai_lekkao :: Int32+_KEY_Thai_lekkao = 3577+-- constant _KEY_Thai_leknung++_KEY_Thai_leknung :: Int32+_KEY_Thai_leknung = 3569+-- constant _KEY_Thai_lekpaet++_KEY_Thai_lekpaet :: Int32+_KEY_Thai_lekpaet = 3576+-- constant _KEY_Thai_leksam++_KEY_Thai_leksam :: Int32+_KEY_Thai_leksam = 3571+-- constant _KEY_Thai_leksi++_KEY_Thai_leksi :: Int32+_KEY_Thai_leksi = 3572+-- constant _KEY_Thai_leksong++_KEY_Thai_leksong :: Int32+_KEY_Thai_leksong = 3570+-- constant _KEY_Thai_leksun++_KEY_Thai_leksun :: Int32+_KEY_Thai_leksun = 3568+-- constant _KEY_Thai_lochula++_KEY_Thai_lochula :: Int32+_KEY_Thai_lochula = 3532+-- constant _KEY_Thai_loling++_KEY_Thai_loling :: Int32+_KEY_Thai_loling = 3525+-- constant _KEY_Thai_lu++_KEY_Thai_lu :: Int32+_KEY_Thai_lu = 3526+-- constant _KEY_Thai_maichattawa++_KEY_Thai_maichattawa :: Int32+_KEY_Thai_maichattawa = 3563+-- constant _KEY_Thai_maiek++_KEY_Thai_maiek :: Int32+_KEY_Thai_maiek = 3560+-- constant _KEY_Thai_maihanakat++_KEY_Thai_maihanakat :: Int32+_KEY_Thai_maihanakat = 3537+-- constant _KEY_Thai_maihanakat_maitho++_KEY_Thai_maihanakat_maitho :: Int32+_KEY_Thai_maihanakat_maitho = 3550+-- constant _KEY_Thai_maitaikhu++_KEY_Thai_maitaikhu :: Int32+_KEY_Thai_maitaikhu = 3559+-- constant _KEY_Thai_maitho++_KEY_Thai_maitho :: Int32+_KEY_Thai_maitho = 3561+-- constant _KEY_Thai_maitri++_KEY_Thai_maitri :: Int32+_KEY_Thai_maitri = 3562+-- constant _KEY_Thai_maiyamok++_KEY_Thai_maiyamok :: Int32+_KEY_Thai_maiyamok = 3558+-- constant _KEY_Thai_moma++_KEY_Thai_moma :: Int32+_KEY_Thai_moma = 3521+-- constant _KEY_Thai_ngongu++_KEY_Thai_ngongu :: Int32+_KEY_Thai_ngongu = 3495+-- constant _KEY_Thai_nikhahit++_KEY_Thai_nikhahit :: Int32+_KEY_Thai_nikhahit = 3565+-- constant _KEY_Thai_nonen++_KEY_Thai_nonen :: Int32+_KEY_Thai_nonen = 3507+-- constant _KEY_Thai_nonu++_KEY_Thai_nonu :: Int32+_KEY_Thai_nonu = 3513+-- constant _KEY_Thai_oang++_KEY_Thai_oang :: Int32+_KEY_Thai_oang = 3533+-- constant _KEY_Thai_paiyannoi++_KEY_Thai_paiyannoi :: Int32+_KEY_Thai_paiyannoi = 3535+-- constant _KEY_Thai_phinthu++_KEY_Thai_phinthu :: Int32+_KEY_Thai_phinthu = 3546+-- constant _KEY_Thai_phophan++_KEY_Thai_phophan :: Int32+_KEY_Thai_phophan = 3518+-- constant _KEY_Thai_phophung++_KEY_Thai_phophung :: Int32+_KEY_Thai_phophung = 3516+-- constant _KEY_Thai_phosamphao++_KEY_Thai_phosamphao :: Int32+_KEY_Thai_phosamphao = 3520+-- constant _KEY_Thai_popla++_KEY_Thai_popla :: Int32+_KEY_Thai_popla = 3515+-- constant _KEY_Thai_rorua++_KEY_Thai_rorua :: Int32+_KEY_Thai_rorua = 3523+-- constant _KEY_Thai_ru++_KEY_Thai_ru :: Int32+_KEY_Thai_ru = 3524+-- constant _KEY_Thai_saraa++_KEY_Thai_saraa :: Int32+_KEY_Thai_saraa = 3536+-- constant _KEY_Thai_saraaa++_KEY_Thai_saraaa :: Int32+_KEY_Thai_saraaa = 3538+-- constant _KEY_Thai_saraae++_KEY_Thai_saraae :: Int32+_KEY_Thai_saraae = 3553+-- constant _KEY_Thai_saraaimaimalai++_KEY_Thai_saraaimaimalai :: Int32+_KEY_Thai_saraaimaimalai = 3556+-- constant _KEY_Thai_saraaimaimuan++_KEY_Thai_saraaimaimuan :: Int32+_KEY_Thai_saraaimaimuan = 3555+-- constant _KEY_Thai_saraam++_KEY_Thai_saraam :: Int32+_KEY_Thai_saraam = 3539+-- constant _KEY_Thai_sarae++_KEY_Thai_sarae :: Int32+_KEY_Thai_sarae = 3552+-- constant _KEY_Thai_sarai++_KEY_Thai_sarai :: Int32+_KEY_Thai_sarai = 3540+-- constant _KEY_Thai_saraii++_KEY_Thai_saraii :: Int32+_KEY_Thai_saraii = 3541+-- constant _KEY_Thai_sarao++_KEY_Thai_sarao :: Int32+_KEY_Thai_sarao = 3554+-- constant _KEY_Thai_sarau++_KEY_Thai_sarau :: Int32+_KEY_Thai_sarau = 3544+-- constant _KEY_Thai_saraue++_KEY_Thai_saraue :: Int32+_KEY_Thai_saraue = 3542+-- constant _KEY_Thai_sarauee++_KEY_Thai_sarauee :: Int32+_KEY_Thai_sarauee = 3543+-- constant _KEY_Thai_sarauu++_KEY_Thai_sarauu :: Int32+_KEY_Thai_sarauu = 3545+-- constant _KEY_Thai_sorusi++_KEY_Thai_sorusi :: Int32+_KEY_Thai_sorusi = 3529+-- constant _KEY_Thai_sosala++_KEY_Thai_sosala :: Int32+_KEY_Thai_sosala = 3528+-- constant _KEY_Thai_soso++_KEY_Thai_soso :: Int32+_KEY_Thai_soso = 3499+-- constant _KEY_Thai_sosua++_KEY_Thai_sosua :: Int32+_KEY_Thai_sosua = 3530+-- constant _KEY_Thai_thanthakhat++_KEY_Thai_thanthakhat :: Int32+_KEY_Thai_thanthakhat = 3564+-- constant _KEY_Thai_thonangmontho++_KEY_Thai_thonangmontho :: Int32+_KEY_Thai_thonangmontho = 3505+-- constant _KEY_Thai_thophuthao++_KEY_Thai_thophuthao :: Int32+_KEY_Thai_thophuthao = 3506+-- constant _KEY_Thai_thothahan++_KEY_Thai_thothahan :: Int32+_KEY_Thai_thothahan = 3511+-- constant _KEY_Thai_thothan++_KEY_Thai_thothan :: Int32+_KEY_Thai_thothan = 3504+-- constant _KEY_Thai_thothong++_KEY_Thai_thothong :: Int32+_KEY_Thai_thothong = 3512+-- constant _KEY_Thai_thothung++_KEY_Thai_thothung :: Int32+_KEY_Thai_thothung = 3510+-- constant _KEY_Thai_topatak++_KEY_Thai_topatak :: Int32+_KEY_Thai_topatak = 3503+-- constant _KEY_Thai_totao++_KEY_Thai_totao :: Int32+_KEY_Thai_totao = 3509+-- constant _KEY_Thai_wowaen++_KEY_Thai_wowaen :: Int32+_KEY_Thai_wowaen = 3527+-- constant _KEY_Thai_yoyak++_KEY_Thai_yoyak :: Int32+_KEY_Thai_yoyak = 3522+-- constant _KEY_Thai_yoying++_KEY_Thai_yoying :: Int32+_KEY_Thai_yoying = 3501+-- constant _KEY_Thorn++_KEY_Thorn :: Int32+_KEY_Thorn = 222+-- constant _KEY_Time++_KEY_Time :: Int32+_KEY_Time = 269025183+-- constant _KEY_ToDoList++_KEY_ToDoList :: Int32+_KEY_ToDoList = 269025055+-- constant _KEY_Tools++_KEY_Tools :: Int32+_KEY_Tools = 269025153+-- constant _KEY_TopMenu++_KEY_TopMenu :: Int32+_KEY_TopMenu = 269025186+-- constant _KEY_TouchpadOff++_KEY_TouchpadOff :: Int32+_KEY_TouchpadOff = 269025201+-- constant _KEY_TouchpadOn++_KEY_TouchpadOn :: Int32+_KEY_TouchpadOn = 269025200+-- constant _KEY_TouchpadToggle++_KEY_TouchpadToggle :: Int32+_KEY_TouchpadToggle = 269025193+-- constant _KEY_Touroku++_KEY_Touroku :: Int32+_KEY_Touroku = 65323+-- constant _KEY_Travel++_KEY_Travel :: Int32+_KEY_Travel = 269025154+-- constant _KEY_Tslash++_KEY_Tslash :: Int32+_KEY_Tslash = 940+-- constant _KEY_U++_KEY_U :: Int32+_KEY_U = 85+-- constant _KEY_UWB++_KEY_UWB :: Int32+_KEY_UWB = 269025174+-- constant _KEY_Uacute++_KEY_Uacute :: Int32+_KEY_Uacute = 218+-- constant _KEY_Ubelowdot++_KEY_Ubelowdot :: Int32+_KEY_Ubelowdot = 16785124+-- constant _KEY_Ubreve++_KEY_Ubreve :: Int32+_KEY_Ubreve = 733+-- constant _KEY_Ucircumflex++_KEY_Ucircumflex :: Int32+_KEY_Ucircumflex = 219+-- constant _KEY_Udiaeresis++_KEY_Udiaeresis :: Int32+_KEY_Udiaeresis = 220+-- constant _KEY_Udoubleacute++_KEY_Udoubleacute :: Int32+_KEY_Udoubleacute = 475+-- constant _KEY_Ugrave++_KEY_Ugrave :: Int32+_KEY_Ugrave = 217+-- constant _KEY_Uhook++_KEY_Uhook :: Int32+_KEY_Uhook = 16785126+-- constant _KEY_Uhorn++_KEY_Uhorn :: Int32+_KEY_Uhorn = 16777647+-- constant _KEY_Uhornacute++_KEY_Uhornacute :: Int32+_KEY_Uhornacute = 16785128+-- constant _KEY_Uhornbelowdot++_KEY_Uhornbelowdot :: Int32+_KEY_Uhornbelowdot = 16785136+-- constant _KEY_Uhorngrave++_KEY_Uhorngrave :: Int32+_KEY_Uhorngrave = 16785130+-- constant _KEY_Uhornhook++_KEY_Uhornhook :: Int32+_KEY_Uhornhook = 16785132+-- constant _KEY_Uhorntilde++_KEY_Uhorntilde :: Int32+_KEY_Uhorntilde = 16785134+-- constant _KEY_Ukrainian_GHE_WITH_UPTURN++_KEY_Ukrainian_GHE_WITH_UPTURN :: Int32+_KEY_Ukrainian_GHE_WITH_UPTURN = 1725+-- constant _KEY_Ukrainian_I++_KEY_Ukrainian_I :: Int32+_KEY_Ukrainian_I = 1718+-- constant _KEY_Ukrainian_IE++_KEY_Ukrainian_IE :: Int32+_KEY_Ukrainian_IE = 1716+-- constant _KEY_Ukrainian_YI++_KEY_Ukrainian_YI :: Int32+_KEY_Ukrainian_YI = 1719+-- constant _KEY_Ukrainian_ghe_with_upturn++_KEY_Ukrainian_ghe_with_upturn :: Int32+_KEY_Ukrainian_ghe_with_upturn = 1709+-- constant _KEY_Ukrainian_i++_KEY_Ukrainian_i :: Int32+_KEY_Ukrainian_i = 1702+-- constant _KEY_Ukrainian_ie++_KEY_Ukrainian_ie :: Int32+_KEY_Ukrainian_ie = 1700+-- constant _KEY_Ukrainian_yi++_KEY_Ukrainian_yi :: Int32+_KEY_Ukrainian_yi = 1703+-- constant _KEY_Ukranian_I++_KEY_Ukranian_I :: Int32+_KEY_Ukranian_I = 1718+-- constant _KEY_Ukranian_JE++_KEY_Ukranian_JE :: Int32+_KEY_Ukranian_JE = 1716+-- constant _KEY_Ukranian_YI++_KEY_Ukranian_YI :: Int32+_KEY_Ukranian_YI = 1719+-- constant _KEY_Ukranian_i++_KEY_Ukranian_i :: Int32+_KEY_Ukranian_i = 1702+-- constant _KEY_Ukranian_je++_KEY_Ukranian_je :: Int32+_KEY_Ukranian_je = 1700+-- constant _KEY_Ukranian_yi++_KEY_Ukranian_yi :: Int32+_KEY_Ukranian_yi = 1703+-- constant _KEY_Umacron++_KEY_Umacron :: Int32+_KEY_Umacron = 990+-- constant _KEY_Undo++_KEY_Undo :: Int32+_KEY_Undo = 65381+-- constant _KEY_Ungrab++_KEY_Ungrab :: Int32+_KEY_Ungrab = 269024800+-- constant _KEY_Uogonek++_KEY_Uogonek :: Int32+_KEY_Uogonek = 985+-- constant _KEY_Up++_KEY_Up :: Int32+_KEY_Up = 65362+-- constant _KEY_Uring++_KEY_Uring :: Int32+_KEY_Uring = 473+-- constant _KEY_User1KB++_KEY_User1KB :: Int32+_KEY_User1KB = 269025157+-- constant _KEY_User2KB++_KEY_User2KB :: Int32+_KEY_User2KB = 269025158+-- constant _KEY_UserPB++_KEY_UserPB :: Int32+_KEY_UserPB = 269025156+-- constant _KEY_Utilde++_KEY_Utilde :: Int32+_KEY_Utilde = 989+-- constant _KEY_V++_KEY_V :: Int32+_KEY_V = 86+-- constant _KEY_VendorHome++_KEY_VendorHome :: Int32+_KEY_VendorHome = 269025076+-- constant _KEY_Video++_KEY_Video :: Int32+_KEY_Video = 269025159+-- constant _KEY_View++_KEY_View :: Int32+_KEY_View = 269025185+-- constant _KEY_VoidSymbol++_KEY_VoidSymbol :: Int32+_KEY_VoidSymbol = 16777215+-- constant _KEY_W++_KEY_W :: Int32+_KEY_W = 87+-- constant _KEY_WLAN++_KEY_WLAN :: Int32+_KEY_WLAN = 269025173+-- constant _KEY_WWW++_KEY_WWW :: Int32+_KEY_WWW = 269025070+-- constant _KEY_Wacute++_KEY_Wacute :: Int32+_KEY_Wacute = 16785026+-- constant _KEY_WakeUp++_KEY_WakeUp :: Int32+_KEY_WakeUp = 269025067+-- constant _KEY_Wcircumflex++_KEY_Wcircumflex :: Int32+_KEY_Wcircumflex = 16777588+-- constant _KEY_Wdiaeresis++_KEY_Wdiaeresis :: Int32+_KEY_Wdiaeresis = 16785028+-- constant _KEY_WebCam++_KEY_WebCam :: Int32+_KEY_WebCam = 269025167+-- constant _KEY_Wgrave++_KEY_Wgrave :: Int32+_KEY_Wgrave = 16785024+-- constant _KEY_WheelButton++_KEY_WheelButton :: Int32+_KEY_WheelButton = 269025160+-- constant _KEY_WindowClear++_KEY_WindowClear :: Int32+_KEY_WindowClear = 269025109+-- constant _KEY_WonSign++_KEY_WonSign :: Int32+_KEY_WonSign = 16785577+-- constant _KEY_Word++_KEY_Word :: Int32+_KEY_Word = 269025161+-- constant _KEY_X++_KEY_X :: Int32+_KEY_X = 88+-- constant _KEY_Xabovedot++_KEY_Xabovedot :: Int32+_KEY_Xabovedot = 16785034+-- constant _KEY_Xfer++_KEY_Xfer :: Int32+_KEY_Xfer = 269025162+-- constant _KEY_Y++_KEY_Y :: Int32+_KEY_Y = 89+-- constant _KEY_Yacute++_KEY_Yacute :: Int32+_KEY_Yacute = 221+-- constant _KEY_Ybelowdot++_KEY_Ybelowdot :: Int32+_KEY_Ybelowdot = 16785140+-- constant _KEY_Ycircumflex++_KEY_Ycircumflex :: Int32+_KEY_Ycircumflex = 16777590+-- constant _KEY_Ydiaeresis++_KEY_Ydiaeresis :: Int32+_KEY_Ydiaeresis = 5054+-- constant _KEY_Yellow++_KEY_Yellow :: Int32+_KEY_Yellow = 269025189+-- constant _KEY_Ygrave++_KEY_Ygrave :: Int32+_KEY_Ygrave = 16785138+-- constant _KEY_Yhook++_KEY_Yhook :: Int32+_KEY_Yhook = 16785142+-- constant _KEY_Ytilde++_KEY_Ytilde :: Int32+_KEY_Ytilde = 16785144+-- constant _KEY_Z++_KEY_Z :: Int32+_KEY_Z = 90+-- constant _KEY_Zabovedot++_KEY_Zabovedot :: Int32+_KEY_Zabovedot = 431+-- constant _KEY_Zacute++_KEY_Zacute :: Int32+_KEY_Zacute = 428+-- constant _KEY_Zcaron++_KEY_Zcaron :: Int32+_KEY_Zcaron = 430+-- constant _KEY_Zen_Koho++_KEY_Zen_Koho :: Int32+_KEY_Zen_Koho = 65341+-- constant _KEY_Zenkaku++_KEY_Zenkaku :: Int32+_KEY_Zenkaku = 65320+-- constant _KEY_Zenkaku_Hankaku++_KEY_Zenkaku_Hankaku :: Int32+_KEY_Zenkaku_Hankaku = 65322+-- constant _KEY_ZoomIn++_KEY_ZoomIn :: Int32+_KEY_ZoomIn = 269025163+-- constant _KEY_ZoomOut++_KEY_ZoomOut :: Int32+_KEY_ZoomOut = 269025164+-- constant _KEY_Zstroke++_KEY_Zstroke :: Int32+_KEY_Zstroke = 16777653+-- constant _KEY_a++_KEY_a :: Int32+_KEY_a = 97+-- constant _KEY_aacute++_KEY_aacute :: Int32+_KEY_aacute = 225+-- constant _KEY_abelowdot++_KEY_abelowdot :: Int32+_KEY_abelowdot = 16785057+-- constant _KEY_abovedot++_KEY_abovedot :: Int32+_KEY_abovedot = 511+-- constant _KEY_abreve++_KEY_abreve :: Int32+_KEY_abreve = 483+-- constant _KEY_abreveacute++_KEY_abreveacute :: Int32+_KEY_abreveacute = 16785071+-- constant _KEY_abrevebelowdot++_KEY_abrevebelowdot :: Int32+_KEY_abrevebelowdot = 16785079+-- constant _KEY_abrevegrave++_KEY_abrevegrave :: Int32+_KEY_abrevegrave = 16785073+-- constant _KEY_abrevehook++_KEY_abrevehook :: Int32+_KEY_abrevehook = 16785075+-- constant _KEY_abrevetilde++_KEY_abrevetilde :: Int32+_KEY_abrevetilde = 16785077+-- constant _KEY_acircumflex++_KEY_acircumflex :: Int32+_KEY_acircumflex = 226+-- constant _KEY_acircumflexacute++_KEY_acircumflexacute :: Int32+_KEY_acircumflexacute = 16785061+-- constant _KEY_acircumflexbelowdot++_KEY_acircumflexbelowdot :: Int32+_KEY_acircumflexbelowdot = 16785069+-- constant _KEY_acircumflexgrave++_KEY_acircumflexgrave :: Int32+_KEY_acircumflexgrave = 16785063+-- constant _KEY_acircumflexhook++_KEY_acircumflexhook :: Int32+_KEY_acircumflexhook = 16785065+-- constant _KEY_acircumflextilde++_KEY_acircumflextilde :: Int32+_KEY_acircumflextilde = 16785067+-- constant _KEY_acute++_KEY_acute :: Int32+_KEY_acute = 180+-- constant _KEY_adiaeresis++_KEY_adiaeresis :: Int32+_KEY_adiaeresis = 228+-- constant _KEY_ae++_KEY_ae :: Int32+_KEY_ae = 230+-- constant _KEY_agrave++_KEY_agrave :: Int32+_KEY_agrave = 224+-- constant _KEY_ahook++_KEY_ahook :: Int32+_KEY_ahook = 16785059+-- constant _KEY_amacron++_KEY_amacron :: Int32+_KEY_amacron = 992+-- constant _KEY_ampersand++_KEY_ampersand :: Int32+_KEY_ampersand = 38+-- constant _KEY_aogonek++_KEY_aogonek :: Int32+_KEY_aogonek = 433+-- constant _KEY_apostrophe++_KEY_apostrophe :: Int32+_KEY_apostrophe = 39+-- constant _KEY_approxeq++_KEY_approxeq :: Int32+_KEY_approxeq = 16785992+-- constant _KEY_approximate++_KEY_approximate :: Int32+_KEY_approximate = 2248+-- constant _KEY_aring++_KEY_aring :: Int32+_KEY_aring = 229+-- constant _KEY_asciicircum++_KEY_asciicircum :: Int32+_KEY_asciicircum = 94+-- constant _KEY_asciitilde++_KEY_asciitilde :: Int32+_KEY_asciitilde = 126+-- constant _KEY_asterisk++_KEY_asterisk :: Int32+_KEY_asterisk = 42+-- constant _KEY_at++_KEY_at :: Int32+_KEY_at = 64+-- constant _KEY_atilde++_KEY_atilde :: Int32+_KEY_atilde = 227+-- constant _KEY_b++_KEY_b :: Int32+_KEY_b = 98+-- constant _KEY_babovedot++_KEY_babovedot :: Int32+_KEY_babovedot = 16784899+-- constant _KEY_backslash++_KEY_backslash :: Int32+_KEY_backslash = 92+-- constant _KEY_ballotcross++_KEY_ballotcross :: Int32+_KEY_ballotcross = 2804+-- constant _KEY_bar++_KEY_bar :: Int32+_KEY_bar = 124+-- constant _KEY_because++_KEY_because :: Int32+_KEY_because = 16785973+-- constant _KEY_blank++_KEY_blank :: Int32+_KEY_blank = 2527+-- constant _KEY_botintegral++_KEY_botintegral :: Int32+_KEY_botintegral = 2213+-- constant _KEY_botleftparens++_KEY_botleftparens :: Int32+_KEY_botleftparens = 2220+-- constant _KEY_botleftsqbracket++_KEY_botleftsqbracket :: Int32+_KEY_botleftsqbracket = 2216+-- constant _KEY_botleftsummation++_KEY_botleftsummation :: Int32+_KEY_botleftsummation = 2226+-- constant _KEY_botrightparens++_KEY_botrightparens :: Int32+_KEY_botrightparens = 2222+-- constant _KEY_botrightsqbracket++_KEY_botrightsqbracket :: Int32+_KEY_botrightsqbracket = 2218+-- constant _KEY_botrightsummation++_KEY_botrightsummation :: Int32+_KEY_botrightsummation = 2230+-- constant _KEY_bott++_KEY_bott :: Int32+_KEY_bott = 2550+-- constant _KEY_botvertsummationconnector++_KEY_botvertsummationconnector :: Int32+_KEY_botvertsummationconnector = 2228+-- constant _KEY_braceleft++_KEY_braceleft :: Int32+_KEY_braceleft = 123+-- constant _KEY_braceright++_KEY_braceright :: Int32+_KEY_braceright = 125+-- constant _KEY_bracketleft++_KEY_bracketleft :: Int32+_KEY_bracketleft = 91+-- constant _KEY_bracketright++_KEY_bracketright :: Int32+_KEY_bracketright = 93+-- constant _KEY_braille_blank++_KEY_braille_blank :: Int32+_KEY_braille_blank = 16787456+-- constant _KEY_braille_dot_1++_KEY_braille_dot_1 :: Int32+_KEY_braille_dot_1 = 65521+-- constant _KEY_braille_dot_10++_KEY_braille_dot_10 :: Int32+_KEY_braille_dot_10 = 65530+-- constant _KEY_braille_dot_2++_KEY_braille_dot_2 :: Int32+_KEY_braille_dot_2 = 65522+-- constant _KEY_braille_dot_3++_KEY_braille_dot_3 :: Int32+_KEY_braille_dot_3 = 65523+-- constant _KEY_braille_dot_4++_KEY_braille_dot_4 :: Int32+_KEY_braille_dot_4 = 65524+-- constant _KEY_braille_dot_5++_KEY_braille_dot_5 :: Int32+_KEY_braille_dot_5 = 65525+-- constant _KEY_braille_dot_6++_KEY_braille_dot_6 :: Int32+_KEY_braille_dot_6 = 65526+-- constant _KEY_braille_dot_7++_KEY_braille_dot_7 :: Int32+_KEY_braille_dot_7 = 65527+-- constant _KEY_braille_dot_8++_KEY_braille_dot_8 :: Int32+_KEY_braille_dot_8 = 65528+-- constant _KEY_braille_dot_9++_KEY_braille_dot_9 :: Int32+_KEY_braille_dot_9 = 65529+-- constant _KEY_braille_dots_1++_KEY_braille_dots_1 :: Int32+_KEY_braille_dots_1 = 16787457+-- constant _KEY_braille_dots_12++_KEY_braille_dots_12 :: Int32+_KEY_braille_dots_12 = 16787459+-- constant _KEY_braille_dots_123++_KEY_braille_dots_123 :: Int32+_KEY_braille_dots_123 = 16787463+-- constant _KEY_braille_dots_1234++_KEY_braille_dots_1234 :: Int32+_KEY_braille_dots_1234 = 16787471+-- constant _KEY_braille_dots_12345++_KEY_braille_dots_12345 :: Int32+_KEY_braille_dots_12345 = 16787487+-- constant _KEY_braille_dots_123456++_KEY_braille_dots_123456 :: Int32+_KEY_braille_dots_123456 = 16787519+-- constant _KEY_braille_dots_1234567++_KEY_braille_dots_1234567 :: Int32+_KEY_braille_dots_1234567 = 16787583+-- constant _KEY_braille_dots_12345678++_KEY_braille_dots_12345678 :: Int32+_KEY_braille_dots_12345678 = 16787711+-- constant _KEY_braille_dots_1234568++_KEY_braille_dots_1234568 :: Int32+_KEY_braille_dots_1234568 = 16787647+-- constant _KEY_braille_dots_123457++_KEY_braille_dots_123457 :: Int32+_KEY_braille_dots_123457 = 16787551+-- constant _KEY_braille_dots_1234578++_KEY_braille_dots_1234578 :: Int32+_KEY_braille_dots_1234578 = 16787679+-- constant _KEY_braille_dots_123458++_KEY_braille_dots_123458 :: Int32+_KEY_braille_dots_123458 = 16787615+-- constant _KEY_braille_dots_12346++_KEY_braille_dots_12346 :: Int32+_KEY_braille_dots_12346 = 16787503+-- constant _KEY_braille_dots_123467++_KEY_braille_dots_123467 :: Int32+_KEY_braille_dots_123467 = 16787567+-- constant _KEY_braille_dots_1234678++_KEY_braille_dots_1234678 :: Int32+_KEY_braille_dots_1234678 = 16787695+-- constant _KEY_braille_dots_123468++_KEY_braille_dots_123468 :: Int32+_KEY_braille_dots_123468 = 16787631+-- constant _KEY_braille_dots_12347++_KEY_braille_dots_12347 :: Int32+_KEY_braille_dots_12347 = 16787535+-- constant _KEY_braille_dots_123478++_KEY_braille_dots_123478 :: Int32+_KEY_braille_dots_123478 = 16787663+-- constant _KEY_braille_dots_12348++_KEY_braille_dots_12348 :: Int32+_KEY_braille_dots_12348 = 16787599+-- constant _KEY_braille_dots_1235++_KEY_braille_dots_1235 :: Int32+_KEY_braille_dots_1235 = 16787479+-- constant _KEY_braille_dots_12356++_KEY_braille_dots_12356 :: Int32+_KEY_braille_dots_12356 = 16787511+-- constant _KEY_braille_dots_123567++_KEY_braille_dots_123567 :: Int32+_KEY_braille_dots_123567 = 16787575+-- constant _KEY_braille_dots_1235678++_KEY_braille_dots_1235678 :: Int32+_KEY_braille_dots_1235678 = 16787703+-- constant _KEY_braille_dots_123568++_KEY_braille_dots_123568 :: Int32+_KEY_braille_dots_123568 = 16787639+-- constant _KEY_braille_dots_12357++_KEY_braille_dots_12357 :: Int32+_KEY_braille_dots_12357 = 16787543+-- constant _KEY_braille_dots_123578++_KEY_braille_dots_123578 :: Int32+_KEY_braille_dots_123578 = 16787671+-- constant _KEY_braille_dots_12358++_KEY_braille_dots_12358 :: Int32+_KEY_braille_dots_12358 = 16787607+-- constant _KEY_braille_dots_1236++_KEY_braille_dots_1236 :: Int32+_KEY_braille_dots_1236 = 16787495+-- constant _KEY_braille_dots_12367++_KEY_braille_dots_12367 :: Int32+_KEY_braille_dots_12367 = 16787559+-- constant _KEY_braille_dots_123678++_KEY_braille_dots_123678 :: Int32+_KEY_braille_dots_123678 = 16787687+-- constant _KEY_braille_dots_12368++_KEY_braille_dots_12368 :: Int32+_KEY_braille_dots_12368 = 16787623+-- constant _KEY_braille_dots_1237++_KEY_braille_dots_1237 :: Int32+_KEY_braille_dots_1237 = 16787527+-- constant _KEY_braille_dots_12378++_KEY_braille_dots_12378 :: Int32+_KEY_braille_dots_12378 = 16787655+-- constant _KEY_braille_dots_1238++_KEY_braille_dots_1238 :: Int32+_KEY_braille_dots_1238 = 16787591+-- constant _KEY_braille_dots_124++_KEY_braille_dots_124 :: Int32+_KEY_braille_dots_124 = 16787467+-- constant _KEY_braille_dots_1245++_KEY_braille_dots_1245 :: Int32+_KEY_braille_dots_1245 = 16787483+-- constant _KEY_braille_dots_12456++_KEY_braille_dots_12456 :: Int32+_KEY_braille_dots_12456 = 16787515+-- constant _KEY_braille_dots_124567++_KEY_braille_dots_124567 :: Int32+_KEY_braille_dots_124567 = 16787579+-- constant _KEY_braille_dots_1245678++_KEY_braille_dots_1245678 :: Int32+_KEY_braille_dots_1245678 = 16787707+-- constant _KEY_braille_dots_124568++_KEY_braille_dots_124568 :: Int32+_KEY_braille_dots_124568 = 16787643+-- constant _KEY_braille_dots_12457++_KEY_braille_dots_12457 :: Int32+_KEY_braille_dots_12457 = 16787547+-- constant _KEY_braille_dots_124578++_KEY_braille_dots_124578 :: Int32+_KEY_braille_dots_124578 = 16787675+-- constant _KEY_braille_dots_12458++_KEY_braille_dots_12458 :: Int32+_KEY_braille_dots_12458 = 16787611+-- constant _KEY_braille_dots_1246++_KEY_braille_dots_1246 :: Int32+_KEY_braille_dots_1246 = 16787499+-- constant _KEY_braille_dots_12467++_KEY_braille_dots_12467 :: Int32+_KEY_braille_dots_12467 = 16787563+-- constant _KEY_braille_dots_124678++_KEY_braille_dots_124678 :: Int32+_KEY_braille_dots_124678 = 16787691+-- constant _KEY_braille_dots_12468++_KEY_braille_dots_12468 :: Int32+_KEY_braille_dots_12468 = 16787627+-- constant _KEY_braille_dots_1247++_KEY_braille_dots_1247 :: Int32+_KEY_braille_dots_1247 = 16787531+-- constant _KEY_braille_dots_12478++_KEY_braille_dots_12478 :: Int32+_KEY_braille_dots_12478 = 16787659+-- constant _KEY_braille_dots_1248++_KEY_braille_dots_1248 :: Int32+_KEY_braille_dots_1248 = 16787595+-- constant _KEY_braille_dots_125++_KEY_braille_dots_125 :: Int32+_KEY_braille_dots_125 = 16787475+-- constant _KEY_braille_dots_1256++_KEY_braille_dots_1256 :: Int32+_KEY_braille_dots_1256 = 16787507+-- constant _KEY_braille_dots_12567++_KEY_braille_dots_12567 :: Int32+_KEY_braille_dots_12567 = 16787571+-- constant _KEY_braille_dots_125678++_KEY_braille_dots_125678 :: Int32+_KEY_braille_dots_125678 = 16787699+-- constant _KEY_braille_dots_12568++_KEY_braille_dots_12568 :: Int32+_KEY_braille_dots_12568 = 16787635+-- constant _KEY_braille_dots_1257++_KEY_braille_dots_1257 :: Int32+_KEY_braille_dots_1257 = 16787539+-- constant _KEY_braille_dots_12578++_KEY_braille_dots_12578 :: Int32+_KEY_braille_dots_12578 = 16787667+-- constant _KEY_braille_dots_1258++_KEY_braille_dots_1258 :: Int32+_KEY_braille_dots_1258 = 16787603+-- constant _KEY_braille_dots_126++_KEY_braille_dots_126 :: Int32+_KEY_braille_dots_126 = 16787491+-- constant _KEY_braille_dots_1267++_KEY_braille_dots_1267 :: Int32+_KEY_braille_dots_1267 = 16787555+-- constant _KEY_braille_dots_12678++_KEY_braille_dots_12678 :: Int32+_KEY_braille_dots_12678 = 16787683+-- constant _KEY_braille_dots_1268++_KEY_braille_dots_1268 :: Int32+_KEY_braille_dots_1268 = 16787619+-- constant _KEY_braille_dots_127++_KEY_braille_dots_127 :: Int32+_KEY_braille_dots_127 = 16787523+-- constant _KEY_braille_dots_1278++_KEY_braille_dots_1278 :: Int32+_KEY_braille_dots_1278 = 16787651+-- constant _KEY_braille_dots_128++_KEY_braille_dots_128 :: Int32+_KEY_braille_dots_128 = 16787587+-- constant _KEY_braille_dots_13++_KEY_braille_dots_13 :: Int32+_KEY_braille_dots_13 = 16787461+-- constant _KEY_braille_dots_134++_KEY_braille_dots_134 :: Int32+_KEY_braille_dots_134 = 16787469+-- constant _KEY_braille_dots_1345++_KEY_braille_dots_1345 :: Int32+_KEY_braille_dots_1345 = 16787485+-- constant _KEY_braille_dots_13456++_KEY_braille_dots_13456 :: Int32+_KEY_braille_dots_13456 = 16787517+-- constant _KEY_braille_dots_134567++_KEY_braille_dots_134567 :: Int32+_KEY_braille_dots_134567 = 16787581+-- constant _KEY_braille_dots_1345678++_KEY_braille_dots_1345678 :: Int32+_KEY_braille_dots_1345678 = 16787709+-- constant _KEY_braille_dots_134568++_KEY_braille_dots_134568 :: Int32+_KEY_braille_dots_134568 = 16787645+-- constant _KEY_braille_dots_13457++_KEY_braille_dots_13457 :: Int32+_KEY_braille_dots_13457 = 16787549+-- constant _KEY_braille_dots_134578++_KEY_braille_dots_134578 :: Int32+_KEY_braille_dots_134578 = 16787677+-- constant _KEY_braille_dots_13458++_KEY_braille_dots_13458 :: Int32+_KEY_braille_dots_13458 = 16787613+-- constant _KEY_braille_dots_1346++_KEY_braille_dots_1346 :: Int32+_KEY_braille_dots_1346 = 16787501+-- constant _KEY_braille_dots_13467++_KEY_braille_dots_13467 :: Int32+_KEY_braille_dots_13467 = 16787565+-- constant _KEY_braille_dots_134678++_KEY_braille_dots_134678 :: Int32+_KEY_braille_dots_134678 = 16787693+-- constant _KEY_braille_dots_13468++_KEY_braille_dots_13468 :: Int32+_KEY_braille_dots_13468 = 16787629+-- constant _KEY_braille_dots_1347++_KEY_braille_dots_1347 :: Int32+_KEY_braille_dots_1347 = 16787533+-- constant _KEY_braille_dots_13478++_KEY_braille_dots_13478 :: Int32+_KEY_braille_dots_13478 = 16787661+-- constant _KEY_braille_dots_1348++_KEY_braille_dots_1348 :: Int32+_KEY_braille_dots_1348 = 16787597+-- constant _KEY_braille_dots_135++_KEY_braille_dots_135 :: Int32+_KEY_braille_dots_135 = 16787477+-- constant _KEY_braille_dots_1356++_KEY_braille_dots_1356 :: Int32+_KEY_braille_dots_1356 = 16787509+-- constant _KEY_braille_dots_13567++_KEY_braille_dots_13567 :: Int32+_KEY_braille_dots_13567 = 16787573+-- constant _KEY_braille_dots_135678++_KEY_braille_dots_135678 :: Int32+_KEY_braille_dots_135678 = 16787701+-- constant _KEY_braille_dots_13568++_KEY_braille_dots_13568 :: Int32+_KEY_braille_dots_13568 = 16787637+-- constant _KEY_braille_dots_1357++_KEY_braille_dots_1357 :: Int32+_KEY_braille_dots_1357 = 16787541+-- constant _KEY_braille_dots_13578++_KEY_braille_dots_13578 :: Int32+_KEY_braille_dots_13578 = 16787669+-- constant _KEY_braille_dots_1358++_KEY_braille_dots_1358 :: Int32+_KEY_braille_dots_1358 = 16787605+-- constant _KEY_braille_dots_136++_KEY_braille_dots_136 :: Int32+_KEY_braille_dots_136 = 16787493+-- constant _KEY_braille_dots_1367++_KEY_braille_dots_1367 :: Int32+_KEY_braille_dots_1367 = 16787557+-- constant _KEY_braille_dots_13678++_KEY_braille_dots_13678 :: Int32+_KEY_braille_dots_13678 = 16787685+-- constant _KEY_braille_dots_1368++_KEY_braille_dots_1368 :: Int32+_KEY_braille_dots_1368 = 16787621+-- constant _KEY_braille_dots_137++_KEY_braille_dots_137 :: Int32+_KEY_braille_dots_137 = 16787525+-- constant _KEY_braille_dots_1378++_KEY_braille_dots_1378 :: Int32+_KEY_braille_dots_1378 = 16787653+-- constant _KEY_braille_dots_138++_KEY_braille_dots_138 :: Int32+_KEY_braille_dots_138 = 16787589+-- constant _KEY_braille_dots_14++_KEY_braille_dots_14 :: Int32+_KEY_braille_dots_14 = 16787465+-- constant _KEY_braille_dots_145++_KEY_braille_dots_145 :: Int32+_KEY_braille_dots_145 = 16787481+-- constant _KEY_braille_dots_1456++_KEY_braille_dots_1456 :: Int32+_KEY_braille_dots_1456 = 16787513+-- constant _KEY_braille_dots_14567++_KEY_braille_dots_14567 :: Int32+_KEY_braille_dots_14567 = 16787577+-- constant _KEY_braille_dots_145678++_KEY_braille_dots_145678 :: Int32+_KEY_braille_dots_145678 = 16787705+-- constant _KEY_braille_dots_14568++_KEY_braille_dots_14568 :: Int32+_KEY_braille_dots_14568 = 16787641+-- constant _KEY_braille_dots_1457++_KEY_braille_dots_1457 :: Int32+_KEY_braille_dots_1457 = 16787545+-- constant _KEY_braille_dots_14578++_KEY_braille_dots_14578 :: Int32+_KEY_braille_dots_14578 = 16787673+-- constant _KEY_braille_dots_1458++_KEY_braille_dots_1458 :: Int32+_KEY_braille_dots_1458 = 16787609+-- constant _KEY_braille_dots_146++_KEY_braille_dots_146 :: Int32+_KEY_braille_dots_146 = 16787497+-- constant _KEY_braille_dots_1467++_KEY_braille_dots_1467 :: Int32+_KEY_braille_dots_1467 = 16787561+-- constant _KEY_braille_dots_14678++_KEY_braille_dots_14678 :: Int32+_KEY_braille_dots_14678 = 16787689+-- constant _KEY_braille_dots_1468++_KEY_braille_dots_1468 :: Int32+_KEY_braille_dots_1468 = 16787625+-- constant _KEY_braille_dots_147++_KEY_braille_dots_147 :: Int32+_KEY_braille_dots_147 = 16787529+-- constant _KEY_braille_dots_1478++_KEY_braille_dots_1478 :: Int32+_KEY_braille_dots_1478 = 16787657+-- constant _KEY_braille_dots_148++_KEY_braille_dots_148 :: Int32+_KEY_braille_dots_148 = 16787593+-- constant _KEY_braille_dots_15++_KEY_braille_dots_15 :: Int32+_KEY_braille_dots_15 = 16787473+-- constant _KEY_braille_dots_156++_KEY_braille_dots_156 :: Int32+_KEY_braille_dots_156 = 16787505+-- constant _KEY_braille_dots_1567++_KEY_braille_dots_1567 :: Int32+_KEY_braille_dots_1567 = 16787569+-- constant _KEY_braille_dots_15678++_KEY_braille_dots_15678 :: Int32+_KEY_braille_dots_15678 = 16787697+-- constant _KEY_braille_dots_1568++_KEY_braille_dots_1568 :: Int32+_KEY_braille_dots_1568 = 16787633+-- constant _KEY_braille_dots_157++_KEY_braille_dots_157 :: Int32+_KEY_braille_dots_157 = 16787537+-- constant _KEY_braille_dots_1578++_KEY_braille_dots_1578 :: Int32+_KEY_braille_dots_1578 = 16787665+-- constant _KEY_braille_dots_158++_KEY_braille_dots_158 :: Int32+_KEY_braille_dots_158 = 16787601+-- constant _KEY_braille_dots_16++_KEY_braille_dots_16 :: Int32+_KEY_braille_dots_16 = 16787489+-- constant _KEY_braille_dots_167++_KEY_braille_dots_167 :: Int32+_KEY_braille_dots_167 = 16787553+-- constant _KEY_braille_dots_1678++_KEY_braille_dots_1678 :: Int32+_KEY_braille_dots_1678 = 16787681+-- constant _KEY_braille_dots_168++_KEY_braille_dots_168 :: Int32+_KEY_braille_dots_168 = 16787617+-- constant _KEY_braille_dots_17++_KEY_braille_dots_17 :: Int32+_KEY_braille_dots_17 = 16787521+-- constant _KEY_braille_dots_178++_KEY_braille_dots_178 :: Int32+_KEY_braille_dots_178 = 16787649+-- constant _KEY_braille_dots_18++_KEY_braille_dots_18 :: Int32+_KEY_braille_dots_18 = 16787585+-- constant _KEY_braille_dots_2++_KEY_braille_dots_2 :: Int32+_KEY_braille_dots_2 = 16787458+-- constant _KEY_braille_dots_23++_KEY_braille_dots_23 :: Int32+_KEY_braille_dots_23 = 16787462+-- constant _KEY_braille_dots_234++_KEY_braille_dots_234 :: Int32+_KEY_braille_dots_234 = 16787470+-- constant _KEY_braille_dots_2345++_KEY_braille_dots_2345 :: Int32+_KEY_braille_dots_2345 = 16787486+-- constant _KEY_braille_dots_23456++_KEY_braille_dots_23456 :: Int32+_KEY_braille_dots_23456 = 16787518+-- constant _KEY_braille_dots_234567++_KEY_braille_dots_234567 :: Int32+_KEY_braille_dots_234567 = 16787582+-- constant _KEY_braille_dots_2345678++_KEY_braille_dots_2345678 :: Int32+_KEY_braille_dots_2345678 = 16787710+-- constant _KEY_braille_dots_234568++_KEY_braille_dots_234568 :: Int32+_KEY_braille_dots_234568 = 16787646+-- constant _KEY_braille_dots_23457++_KEY_braille_dots_23457 :: Int32+_KEY_braille_dots_23457 = 16787550+-- constant _KEY_braille_dots_234578++_KEY_braille_dots_234578 :: Int32+_KEY_braille_dots_234578 = 16787678+-- constant _KEY_braille_dots_23458++_KEY_braille_dots_23458 :: Int32+_KEY_braille_dots_23458 = 16787614+-- constant _KEY_braille_dots_2346++_KEY_braille_dots_2346 :: Int32+_KEY_braille_dots_2346 = 16787502+-- constant _KEY_braille_dots_23467++_KEY_braille_dots_23467 :: Int32+_KEY_braille_dots_23467 = 16787566+-- constant _KEY_braille_dots_234678++_KEY_braille_dots_234678 :: Int32+_KEY_braille_dots_234678 = 16787694+-- constant _KEY_braille_dots_23468++_KEY_braille_dots_23468 :: Int32+_KEY_braille_dots_23468 = 16787630+-- constant _KEY_braille_dots_2347++_KEY_braille_dots_2347 :: Int32+_KEY_braille_dots_2347 = 16787534+-- constant _KEY_braille_dots_23478++_KEY_braille_dots_23478 :: Int32+_KEY_braille_dots_23478 = 16787662+-- constant _KEY_braille_dots_2348++_KEY_braille_dots_2348 :: Int32+_KEY_braille_dots_2348 = 16787598+-- constant _KEY_braille_dots_235++_KEY_braille_dots_235 :: Int32+_KEY_braille_dots_235 = 16787478+-- constant _KEY_braille_dots_2356++_KEY_braille_dots_2356 :: Int32+_KEY_braille_dots_2356 = 16787510+-- constant _KEY_braille_dots_23567++_KEY_braille_dots_23567 :: Int32+_KEY_braille_dots_23567 = 16787574+-- constant _KEY_braille_dots_235678++_KEY_braille_dots_235678 :: Int32+_KEY_braille_dots_235678 = 16787702+-- constant _KEY_braille_dots_23568++_KEY_braille_dots_23568 :: Int32+_KEY_braille_dots_23568 = 16787638+-- constant _KEY_braille_dots_2357++_KEY_braille_dots_2357 :: Int32+_KEY_braille_dots_2357 = 16787542+-- constant _KEY_braille_dots_23578++_KEY_braille_dots_23578 :: Int32+_KEY_braille_dots_23578 = 16787670+-- constant _KEY_braille_dots_2358++_KEY_braille_dots_2358 :: Int32+_KEY_braille_dots_2358 = 16787606+-- constant _KEY_braille_dots_236++_KEY_braille_dots_236 :: Int32+_KEY_braille_dots_236 = 16787494+-- constant _KEY_braille_dots_2367++_KEY_braille_dots_2367 :: Int32+_KEY_braille_dots_2367 = 16787558+-- constant _KEY_braille_dots_23678++_KEY_braille_dots_23678 :: Int32+_KEY_braille_dots_23678 = 16787686+-- constant _KEY_braille_dots_2368++_KEY_braille_dots_2368 :: Int32+_KEY_braille_dots_2368 = 16787622+-- constant _KEY_braille_dots_237++_KEY_braille_dots_237 :: Int32+_KEY_braille_dots_237 = 16787526+-- constant _KEY_braille_dots_2378++_KEY_braille_dots_2378 :: Int32+_KEY_braille_dots_2378 = 16787654+-- constant _KEY_braille_dots_238++_KEY_braille_dots_238 :: Int32+_KEY_braille_dots_238 = 16787590+-- constant _KEY_braille_dots_24++_KEY_braille_dots_24 :: Int32+_KEY_braille_dots_24 = 16787466+-- constant _KEY_braille_dots_245++_KEY_braille_dots_245 :: Int32+_KEY_braille_dots_245 = 16787482+-- constant _KEY_braille_dots_2456++_KEY_braille_dots_2456 :: Int32+_KEY_braille_dots_2456 = 16787514+-- constant _KEY_braille_dots_24567++_KEY_braille_dots_24567 :: Int32+_KEY_braille_dots_24567 = 16787578+-- constant _KEY_braille_dots_245678++_KEY_braille_dots_245678 :: Int32+_KEY_braille_dots_245678 = 16787706+-- constant _KEY_braille_dots_24568++_KEY_braille_dots_24568 :: Int32+_KEY_braille_dots_24568 = 16787642+-- constant _KEY_braille_dots_2457++_KEY_braille_dots_2457 :: Int32+_KEY_braille_dots_2457 = 16787546+-- constant _KEY_braille_dots_24578++_KEY_braille_dots_24578 :: Int32+_KEY_braille_dots_24578 = 16787674+-- constant _KEY_braille_dots_2458++_KEY_braille_dots_2458 :: Int32+_KEY_braille_dots_2458 = 16787610+-- constant _KEY_braille_dots_246++_KEY_braille_dots_246 :: Int32+_KEY_braille_dots_246 = 16787498+-- constant _KEY_braille_dots_2467++_KEY_braille_dots_2467 :: Int32+_KEY_braille_dots_2467 = 16787562+-- constant _KEY_braille_dots_24678++_KEY_braille_dots_24678 :: Int32+_KEY_braille_dots_24678 = 16787690+-- constant _KEY_braille_dots_2468++_KEY_braille_dots_2468 :: Int32+_KEY_braille_dots_2468 = 16787626+-- constant _KEY_braille_dots_247++_KEY_braille_dots_247 :: Int32+_KEY_braille_dots_247 = 16787530+-- constant _KEY_braille_dots_2478++_KEY_braille_dots_2478 :: Int32+_KEY_braille_dots_2478 = 16787658+-- constant _KEY_braille_dots_248++_KEY_braille_dots_248 :: Int32+_KEY_braille_dots_248 = 16787594+-- constant _KEY_braille_dots_25++_KEY_braille_dots_25 :: Int32+_KEY_braille_dots_25 = 16787474+-- constant _KEY_braille_dots_256++_KEY_braille_dots_256 :: Int32+_KEY_braille_dots_256 = 16787506+-- constant _KEY_braille_dots_2567++_KEY_braille_dots_2567 :: Int32+_KEY_braille_dots_2567 = 16787570+-- constant _KEY_braille_dots_25678++_KEY_braille_dots_25678 :: Int32+_KEY_braille_dots_25678 = 16787698+-- constant _KEY_braille_dots_2568++_KEY_braille_dots_2568 :: Int32+_KEY_braille_dots_2568 = 16787634+-- constant _KEY_braille_dots_257++_KEY_braille_dots_257 :: Int32+_KEY_braille_dots_257 = 16787538+-- constant _KEY_braille_dots_2578++_KEY_braille_dots_2578 :: Int32+_KEY_braille_dots_2578 = 16787666+-- constant _KEY_braille_dots_258++_KEY_braille_dots_258 :: Int32+_KEY_braille_dots_258 = 16787602+-- constant _KEY_braille_dots_26++_KEY_braille_dots_26 :: Int32+_KEY_braille_dots_26 = 16787490+-- constant _KEY_braille_dots_267++_KEY_braille_dots_267 :: Int32+_KEY_braille_dots_267 = 16787554+-- constant _KEY_braille_dots_2678++_KEY_braille_dots_2678 :: Int32+_KEY_braille_dots_2678 = 16787682+-- constant _KEY_braille_dots_268++_KEY_braille_dots_268 :: Int32+_KEY_braille_dots_268 = 16787618+-- constant _KEY_braille_dots_27++_KEY_braille_dots_27 :: Int32+_KEY_braille_dots_27 = 16787522+-- constant _KEY_braille_dots_278++_KEY_braille_dots_278 :: Int32+_KEY_braille_dots_278 = 16787650+-- constant _KEY_braille_dots_28++_KEY_braille_dots_28 :: Int32+_KEY_braille_dots_28 = 16787586+-- constant _KEY_braille_dots_3++_KEY_braille_dots_3 :: Int32+_KEY_braille_dots_3 = 16787460+-- constant _KEY_braille_dots_34++_KEY_braille_dots_34 :: Int32+_KEY_braille_dots_34 = 16787468+-- constant _KEY_braille_dots_345++_KEY_braille_dots_345 :: Int32+_KEY_braille_dots_345 = 16787484+-- constant _KEY_braille_dots_3456++_KEY_braille_dots_3456 :: Int32+_KEY_braille_dots_3456 = 16787516+-- constant _KEY_braille_dots_34567++_KEY_braille_dots_34567 :: Int32+_KEY_braille_dots_34567 = 16787580+-- constant _KEY_braille_dots_345678++_KEY_braille_dots_345678 :: Int32+_KEY_braille_dots_345678 = 16787708+-- constant _KEY_braille_dots_34568++_KEY_braille_dots_34568 :: Int32+_KEY_braille_dots_34568 = 16787644+-- constant _KEY_braille_dots_3457++_KEY_braille_dots_3457 :: Int32+_KEY_braille_dots_3457 = 16787548+-- constant _KEY_braille_dots_34578++_KEY_braille_dots_34578 :: Int32+_KEY_braille_dots_34578 = 16787676+-- constant _KEY_braille_dots_3458++_KEY_braille_dots_3458 :: Int32+_KEY_braille_dots_3458 = 16787612+-- constant _KEY_braille_dots_346++_KEY_braille_dots_346 :: Int32+_KEY_braille_dots_346 = 16787500+-- constant _KEY_braille_dots_3467++_KEY_braille_dots_3467 :: Int32+_KEY_braille_dots_3467 = 16787564+-- constant _KEY_braille_dots_34678++_KEY_braille_dots_34678 :: Int32+_KEY_braille_dots_34678 = 16787692+-- constant _KEY_braille_dots_3468++_KEY_braille_dots_3468 :: Int32+_KEY_braille_dots_3468 = 16787628+-- constant _KEY_braille_dots_347++_KEY_braille_dots_347 :: Int32+_KEY_braille_dots_347 = 16787532+-- constant _KEY_braille_dots_3478++_KEY_braille_dots_3478 :: Int32+_KEY_braille_dots_3478 = 16787660+-- constant _KEY_braille_dots_348++_KEY_braille_dots_348 :: Int32+_KEY_braille_dots_348 = 16787596+-- constant _KEY_braille_dots_35++_KEY_braille_dots_35 :: Int32+_KEY_braille_dots_35 = 16787476+-- constant _KEY_braille_dots_356++_KEY_braille_dots_356 :: Int32+_KEY_braille_dots_356 = 16787508+-- constant _KEY_braille_dots_3567++_KEY_braille_dots_3567 :: Int32+_KEY_braille_dots_3567 = 16787572+-- constant _KEY_braille_dots_35678++_KEY_braille_dots_35678 :: Int32+_KEY_braille_dots_35678 = 16787700+-- constant _KEY_braille_dots_3568++_KEY_braille_dots_3568 :: Int32+_KEY_braille_dots_3568 = 16787636+-- constant _KEY_braille_dots_357++_KEY_braille_dots_357 :: Int32+_KEY_braille_dots_357 = 16787540+-- constant _KEY_braille_dots_3578++_KEY_braille_dots_3578 :: Int32+_KEY_braille_dots_3578 = 16787668+-- constant _KEY_braille_dots_358++_KEY_braille_dots_358 :: Int32+_KEY_braille_dots_358 = 16787604+-- constant _KEY_braille_dots_36++_KEY_braille_dots_36 :: Int32+_KEY_braille_dots_36 = 16787492+-- constant _KEY_braille_dots_367++_KEY_braille_dots_367 :: Int32+_KEY_braille_dots_367 = 16787556+-- constant _KEY_braille_dots_3678++_KEY_braille_dots_3678 :: Int32+_KEY_braille_dots_3678 = 16787684+-- constant _KEY_braille_dots_368++_KEY_braille_dots_368 :: Int32+_KEY_braille_dots_368 = 16787620+-- constant _KEY_braille_dots_37++_KEY_braille_dots_37 :: Int32+_KEY_braille_dots_37 = 16787524+-- constant _KEY_braille_dots_378++_KEY_braille_dots_378 :: Int32+_KEY_braille_dots_378 = 16787652+-- constant _KEY_braille_dots_38++_KEY_braille_dots_38 :: Int32+_KEY_braille_dots_38 = 16787588+-- constant _KEY_braille_dots_4++_KEY_braille_dots_4 :: Int32+_KEY_braille_dots_4 = 16787464+-- constant _KEY_braille_dots_45++_KEY_braille_dots_45 :: Int32+_KEY_braille_dots_45 = 16787480+-- constant _KEY_braille_dots_456++_KEY_braille_dots_456 :: Int32+_KEY_braille_dots_456 = 16787512+-- constant _KEY_braille_dots_4567++_KEY_braille_dots_4567 :: Int32+_KEY_braille_dots_4567 = 16787576+-- constant _KEY_braille_dots_45678++_KEY_braille_dots_45678 :: Int32+_KEY_braille_dots_45678 = 16787704+-- constant _KEY_braille_dots_4568++_KEY_braille_dots_4568 :: Int32+_KEY_braille_dots_4568 = 16787640+-- constant _KEY_braille_dots_457++_KEY_braille_dots_457 :: Int32+_KEY_braille_dots_457 = 16787544+-- constant _KEY_braille_dots_4578++_KEY_braille_dots_4578 :: Int32+_KEY_braille_dots_4578 = 16787672+-- constant _KEY_braille_dots_458++_KEY_braille_dots_458 :: Int32+_KEY_braille_dots_458 = 16787608+-- constant _KEY_braille_dots_46++_KEY_braille_dots_46 :: Int32+_KEY_braille_dots_46 = 16787496+-- constant _KEY_braille_dots_467++_KEY_braille_dots_467 :: Int32+_KEY_braille_dots_467 = 16787560+-- constant _KEY_braille_dots_4678++_KEY_braille_dots_4678 :: Int32+_KEY_braille_dots_4678 = 16787688+-- constant _KEY_braille_dots_468++_KEY_braille_dots_468 :: Int32+_KEY_braille_dots_468 = 16787624+-- constant _KEY_braille_dots_47++_KEY_braille_dots_47 :: Int32+_KEY_braille_dots_47 = 16787528+-- constant _KEY_braille_dots_478++_KEY_braille_dots_478 :: Int32+_KEY_braille_dots_478 = 16787656+-- constant _KEY_braille_dots_48++_KEY_braille_dots_48 :: Int32+_KEY_braille_dots_48 = 16787592+-- constant _KEY_braille_dots_5++_KEY_braille_dots_5 :: Int32+_KEY_braille_dots_5 = 16787472+-- constant _KEY_braille_dots_56++_KEY_braille_dots_56 :: Int32+_KEY_braille_dots_56 = 16787504+-- constant _KEY_braille_dots_567++_KEY_braille_dots_567 :: Int32+_KEY_braille_dots_567 = 16787568+-- constant _KEY_braille_dots_5678++_KEY_braille_dots_5678 :: Int32+_KEY_braille_dots_5678 = 16787696+-- constant _KEY_braille_dots_568++_KEY_braille_dots_568 :: Int32+_KEY_braille_dots_568 = 16787632+-- constant _KEY_braille_dots_57++_KEY_braille_dots_57 :: Int32+_KEY_braille_dots_57 = 16787536+-- constant _KEY_braille_dots_578++_KEY_braille_dots_578 :: Int32+_KEY_braille_dots_578 = 16787664+-- constant _KEY_braille_dots_58++_KEY_braille_dots_58 :: Int32+_KEY_braille_dots_58 = 16787600+-- constant _KEY_braille_dots_6++_KEY_braille_dots_6 :: Int32+_KEY_braille_dots_6 = 16787488+-- constant _KEY_braille_dots_67++_KEY_braille_dots_67 :: Int32+_KEY_braille_dots_67 = 16787552+-- constant _KEY_braille_dots_678++_KEY_braille_dots_678 :: Int32+_KEY_braille_dots_678 = 16787680+-- constant _KEY_braille_dots_68++_KEY_braille_dots_68 :: Int32+_KEY_braille_dots_68 = 16787616+-- constant _KEY_braille_dots_7++_KEY_braille_dots_7 :: Int32+_KEY_braille_dots_7 = 16787520+-- constant _KEY_braille_dots_78++_KEY_braille_dots_78 :: Int32+_KEY_braille_dots_78 = 16787648+-- constant _KEY_braille_dots_8++_KEY_braille_dots_8 :: Int32+_KEY_braille_dots_8 = 16787584+-- constant _KEY_breve++_KEY_breve :: Int32+_KEY_breve = 418+-- constant _KEY_brokenbar++_KEY_brokenbar :: Int32+_KEY_brokenbar = 166+-- constant _KEY_c++_KEY_c :: Int32+_KEY_c = 99+-- constant _KEY_c_h++_KEY_c_h :: Int32+_KEY_c_h = 65187+-- constant _KEY_cabovedot++_KEY_cabovedot :: Int32+_KEY_cabovedot = 741+-- constant _KEY_cacute++_KEY_cacute :: Int32+_KEY_cacute = 486+-- constant _KEY_careof++_KEY_careof :: Int32+_KEY_careof = 2744+-- constant _KEY_caret++_KEY_caret :: Int32+_KEY_caret = 2812+-- constant _KEY_caron++_KEY_caron :: Int32+_KEY_caron = 439+-- constant _KEY_ccaron++_KEY_ccaron :: Int32+_KEY_ccaron = 488+-- constant _KEY_ccedilla++_KEY_ccedilla :: Int32+_KEY_ccedilla = 231+-- constant _KEY_ccircumflex++_KEY_ccircumflex :: Int32+_KEY_ccircumflex = 742+-- constant _KEY_cedilla++_KEY_cedilla :: Int32+_KEY_cedilla = 184+-- constant _KEY_cent++_KEY_cent :: Int32+_KEY_cent = 162+-- constant _KEY_ch++_KEY_ch :: Int32+_KEY_ch = 65184+-- constant _KEY_checkerboard++_KEY_checkerboard :: Int32+_KEY_checkerboard = 2529+-- constant _KEY_checkmark++_KEY_checkmark :: Int32+_KEY_checkmark = 2803+-- constant _KEY_circle++_KEY_circle :: Int32+_KEY_circle = 3023+-- constant _KEY_club++_KEY_club :: Int32+_KEY_club = 2796+-- constant _KEY_colon++_KEY_colon :: Int32+_KEY_colon = 58+-- constant _KEY_comma++_KEY_comma :: Int32+_KEY_comma = 44+-- constant _KEY_containsas++_KEY_containsas :: Int32+_KEY_containsas = 16785931+-- constant _KEY_copyright++_KEY_copyright :: Int32+_KEY_copyright = 169+-- constant _KEY_cr++_KEY_cr :: Int32+_KEY_cr = 2532+-- constant _KEY_crossinglines++_KEY_crossinglines :: Int32+_KEY_crossinglines = 2542+-- constant _KEY_cuberoot++_KEY_cuberoot :: Int32+_KEY_cuberoot = 16785947+-- constant _KEY_currency++_KEY_currency :: Int32+_KEY_currency = 164+-- constant _KEY_cursor++_KEY_cursor :: Int32+_KEY_cursor = 2815+-- constant _KEY_d++_KEY_d :: Int32+_KEY_d = 100+-- constant _KEY_dabovedot++_KEY_dabovedot :: Int32+_KEY_dabovedot = 16784907+-- constant _KEY_dagger++_KEY_dagger :: Int32+_KEY_dagger = 2801+-- constant _KEY_dcaron++_KEY_dcaron :: Int32+_KEY_dcaron = 495+-- constant _KEY_dead_A++_KEY_dead_A :: Int32+_KEY_dead_A = 65153+-- constant _KEY_dead_E++_KEY_dead_E :: Int32+_KEY_dead_E = 65155+-- constant _KEY_dead_I++_KEY_dead_I :: Int32+_KEY_dead_I = 65157+-- constant _KEY_dead_O++_KEY_dead_O :: Int32+_KEY_dead_O = 65159+-- constant _KEY_dead_U++_KEY_dead_U :: Int32+_KEY_dead_U = 65161+-- constant _KEY_dead_a++_KEY_dead_a :: Int32+_KEY_dead_a = 65152+-- constant _KEY_dead_abovecomma++_KEY_dead_abovecomma :: Int32+_KEY_dead_abovecomma = 65124+-- constant _KEY_dead_abovedot++_KEY_dead_abovedot :: Int32+_KEY_dead_abovedot = 65110+-- constant _KEY_dead_abovereversedcomma++_KEY_dead_abovereversedcomma :: Int32+_KEY_dead_abovereversedcomma = 65125+-- constant _KEY_dead_abovering++_KEY_dead_abovering :: Int32+_KEY_dead_abovering = 65112+-- constant _KEY_dead_acute++_KEY_dead_acute :: Int32+_KEY_dead_acute = 65105+-- constant _KEY_dead_belowbreve++_KEY_dead_belowbreve :: Int32+_KEY_dead_belowbreve = 65131+-- constant _KEY_dead_belowcircumflex++_KEY_dead_belowcircumflex :: Int32+_KEY_dead_belowcircumflex = 65129+-- constant _KEY_dead_belowcomma++_KEY_dead_belowcomma :: Int32+_KEY_dead_belowcomma = 65134+-- constant _KEY_dead_belowdiaeresis++_KEY_dead_belowdiaeresis :: Int32+_KEY_dead_belowdiaeresis = 65132+-- constant _KEY_dead_belowdot++_KEY_dead_belowdot :: Int32+_KEY_dead_belowdot = 65120+-- constant _KEY_dead_belowmacron++_KEY_dead_belowmacron :: Int32+_KEY_dead_belowmacron = 65128+-- constant _KEY_dead_belowring++_KEY_dead_belowring :: Int32+_KEY_dead_belowring = 65127+-- constant _KEY_dead_belowtilde++_KEY_dead_belowtilde :: Int32+_KEY_dead_belowtilde = 65130+-- constant _KEY_dead_breve++_KEY_dead_breve :: Int32+_KEY_dead_breve = 65109+-- constant _KEY_dead_capital_schwa++_KEY_dead_capital_schwa :: Int32+_KEY_dead_capital_schwa = 65163+-- constant _KEY_dead_caron++_KEY_dead_caron :: Int32+_KEY_dead_caron = 65114+-- constant _KEY_dead_cedilla++_KEY_dead_cedilla :: Int32+_KEY_dead_cedilla = 65115+-- constant _KEY_dead_circumflex++_KEY_dead_circumflex :: Int32+_KEY_dead_circumflex = 65106+-- constant _KEY_dead_currency++_KEY_dead_currency :: Int32+_KEY_dead_currency = 65135+-- constant _KEY_dead_dasia++_KEY_dead_dasia :: Int32+_KEY_dead_dasia = 65125+-- constant _KEY_dead_diaeresis++_KEY_dead_diaeresis :: Int32+_KEY_dead_diaeresis = 65111+-- constant _KEY_dead_doubleacute++_KEY_dead_doubleacute :: Int32+_KEY_dead_doubleacute = 65113+-- constant _KEY_dead_doublegrave++_KEY_dead_doublegrave :: Int32+_KEY_dead_doublegrave = 65126+-- constant _KEY_dead_e++_KEY_dead_e :: Int32+_KEY_dead_e = 65154+-- constant _KEY_dead_grave++_KEY_dead_grave :: Int32+_KEY_dead_grave = 65104+-- constant _KEY_dead_greek++_KEY_dead_greek :: Int32+_KEY_dead_greek = 65164+-- constant _KEY_dead_hook++_KEY_dead_hook :: Int32+_KEY_dead_hook = 65121+-- constant _KEY_dead_horn++_KEY_dead_horn :: Int32+_KEY_dead_horn = 65122+-- constant _KEY_dead_i++_KEY_dead_i :: Int32+_KEY_dead_i = 65156+-- constant _KEY_dead_invertedbreve++_KEY_dead_invertedbreve :: Int32+_KEY_dead_invertedbreve = 65133+-- constant _KEY_dead_iota++_KEY_dead_iota :: Int32+_KEY_dead_iota = 65117+-- constant _KEY_dead_macron++_KEY_dead_macron :: Int32+_KEY_dead_macron = 65108+-- constant _KEY_dead_o++_KEY_dead_o :: Int32+_KEY_dead_o = 65158+-- constant _KEY_dead_ogonek++_KEY_dead_ogonek :: Int32+_KEY_dead_ogonek = 65116+-- constant _KEY_dead_perispomeni++_KEY_dead_perispomeni :: Int32+_KEY_dead_perispomeni = 65107+-- constant _KEY_dead_psili++_KEY_dead_psili :: Int32+_KEY_dead_psili = 65124+-- constant _KEY_dead_semivoiced_sound++_KEY_dead_semivoiced_sound :: Int32+_KEY_dead_semivoiced_sound = 65119+-- constant _KEY_dead_small_schwa++_KEY_dead_small_schwa :: Int32+_KEY_dead_small_schwa = 65162+-- constant _KEY_dead_stroke++_KEY_dead_stroke :: Int32+_KEY_dead_stroke = 65123+-- constant _KEY_dead_tilde++_KEY_dead_tilde :: Int32+_KEY_dead_tilde = 65107+-- constant _KEY_dead_u++_KEY_dead_u :: Int32+_KEY_dead_u = 65160+-- constant _KEY_dead_voiced_sound++_KEY_dead_voiced_sound :: Int32+_KEY_dead_voiced_sound = 65118+-- constant _KEY_decimalpoint++_KEY_decimalpoint :: Int32+_KEY_decimalpoint = 2749+-- constant _KEY_degree++_KEY_degree :: Int32+_KEY_degree = 176+-- constant _KEY_diaeresis++_KEY_diaeresis :: Int32+_KEY_diaeresis = 168+-- constant _KEY_diamond++_KEY_diamond :: Int32+_KEY_diamond = 2797+-- constant _KEY_digitspace++_KEY_digitspace :: Int32+_KEY_digitspace = 2725+-- constant _KEY_dintegral++_KEY_dintegral :: Int32+_KEY_dintegral = 16785964+-- constant _KEY_division++_KEY_division :: Int32+_KEY_division = 247+-- constant _KEY_dollar++_KEY_dollar :: Int32+_KEY_dollar = 36+-- constant _KEY_doubbaselinedot++_KEY_doubbaselinedot :: Int32+_KEY_doubbaselinedot = 2735+-- constant _KEY_doubleacute++_KEY_doubleacute :: Int32+_KEY_doubleacute = 445+-- constant _KEY_doubledagger++_KEY_doubledagger :: Int32+_KEY_doubledagger = 2802+-- constant _KEY_doublelowquotemark++_KEY_doublelowquotemark :: Int32+_KEY_doublelowquotemark = 2814+-- constant _KEY_downarrow++_KEY_downarrow :: Int32+_KEY_downarrow = 2302+-- constant _KEY_downcaret++_KEY_downcaret :: Int32+_KEY_downcaret = 2984+-- constant _KEY_downshoe++_KEY_downshoe :: Int32+_KEY_downshoe = 3030+-- constant _KEY_downstile++_KEY_downstile :: Int32+_KEY_downstile = 3012+-- constant _KEY_downtack++_KEY_downtack :: Int32+_KEY_downtack = 3010+-- constant _KEY_dstroke++_KEY_dstroke :: Int32+_KEY_dstroke = 496+-- constant _KEY_e++_KEY_e :: Int32+_KEY_e = 101+-- constant _KEY_eabovedot++_KEY_eabovedot :: Int32+_KEY_eabovedot = 1004+-- constant _KEY_eacute++_KEY_eacute :: Int32+_KEY_eacute = 233+-- constant _KEY_ebelowdot++_KEY_ebelowdot :: Int32+_KEY_ebelowdot = 16785081+-- constant _KEY_ecaron++_KEY_ecaron :: Int32+_KEY_ecaron = 492+-- constant _KEY_ecircumflex++_KEY_ecircumflex :: Int32+_KEY_ecircumflex = 234+-- constant _KEY_ecircumflexacute++_KEY_ecircumflexacute :: Int32+_KEY_ecircumflexacute = 16785087+-- constant _KEY_ecircumflexbelowdot++_KEY_ecircumflexbelowdot :: Int32+_KEY_ecircumflexbelowdot = 16785095+-- constant _KEY_ecircumflexgrave++_KEY_ecircumflexgrave :: Int32+_KEY_ecircumflexgrave = 16785089+-- constant _KEY_ecircumflexhook++_KEY_ecircumflexhook :: Int32+_KEY_ecircumflexhook = 16785091+-- constant _KEY_ecircumflextilde++_KEY_ecircumflextilde :: Int32+_KEY_ecircumflextilde = 16785093+-- constant _KEY_ediaeresis++_KEY_ediaeresis :: Int32+_KEY_ediaeresis = 235+-- constant _KEY_egrave++_KEY_egrave :: Int32+_KEY_egrave = 232+-- constant _KEY_ehook++_KEY_ehook :: Int32+_KEY_ehook = 16785083+-- constant _KEY_eightsubscript++_KEY_eightsubscript :: Int32+_KEY_eightsubscript = 16785544+-- constant _KEY_eightsuperior++_KEY_eightsuperior :: Int32+_KEY_eightsuperior = 16785528+-- constant _KEY_elementof++_KEY_elementof :: Int32+_KEY_elementof = 16785928+-- constant _KEY_ellipsis++_KEY_ellipsis :: Int32+_KEY_ellipsis = 2734+-- constant _KEY_em3space++_KEY_em3space :: Int32+_KEY_em3space = 2723+-- constant _KEY_em4space++_KEY_em4space :: Int32+_KEY_em4space = 2724+-- constant _KEY_emacron++_KEY_emacron :: Int32+_KEY_emacron = 954+-- constant _KEY_emdash++_KEY_emdash :: Int32+_KEY_emdash = 2729+-- constant _KEY_emfilledcircle++_KEY_emfilledcircle :: Int32+_KEY_emfilledcircle = 2782+-- constant _KEY_emfilledrect++_KEY_emfilledrect :: Int32+_KEY_emfilledrect = 2783+-- constant _KEY_emopencircle++_KEY_emopencircle :: Int32+_KEY_emopencircle = 2766+-- constant _KEY_emopenrectangle++_KEY_emopenrectangle :: Int32+_KEY_emopenrectangle = 2767+-- constant _KEY_emptyset++_KEY_emptyset :: Int32+_KEY_emptyset = 16785925+-- constant _KEY_emspace++_KEY_emspace :: Int32+_KEY_emspace = 2721+-- constant _KEY_endash++_KEY_endash :: Int32+_KEY_endash = 2730+-- constant _KEY_enfilledcircbullet++_KEY_enfilledcircbullet :: Int32+_KEY_enfilledcircbullet = 2790+-- constant _KEY_enfilledsqbullet++_KEY_enfilledsqbullet :: Int32+_KEY_enfilledsqbullet = 2791+-- constant _KEY_eng++_KEY_eng :: Int32+_KEY_eng = 959+-- constant _KEY_enopencircbullet++_KEY_enopencircbullet :: Int32+_KEY_enopencircbullet = 2784+-- constant _KEY_enopensquarebullet++_KEY_enopensquarebullet :: Int32+_KEY_enopensquarebullet = 2785+-- constant _KEY_enspace++_KEY_enspace :: Int32+_KEY_enspace = 2722+-- constant _KEY_eogonek++_KEY_eogonek :: Int32+_KEY_eogonek = 490+-- constant _KEY_equal++_KEY_equal :: Int32+_KEY_equal = 61+-- constant _KEY_eth++_KEY_eth :: Int32+_KEY_eth = 240+-- constant _KEY_etilde++_KEY_etilde :: Int32+_KEY_etilde = 16785085+-- constant _KEY_exclam++_KEY_exclam :: Int32+_KEY_exclam = 33+-- constant _KEY_exclamdown++_KEY_exclamdown :: Int32+_KEY_exclamdown = 161+-- constant _KEY_ezh++_KEY_ezh :: Int32+_KEY_ezh = 16777874+-- constant _KEY_f++_KEY_f :: Int32+_KEY_f = 102+-- constant _KEY_fabovedot++_KEY_fabovedot :: Int32+_KEY_fabovedot = 16784927+-- constant _KEY_femalesymbol++_KEY_femalesymbol :: Int32+_KEY_femalesymbol = 2808+-- constant _KEY_ff++_KEY_ff :: Int32+_KEY_ff = 2531+-- constant _KEY_figdash++_KEY_figdash :: Int32+_KEY_figdash = 2747+-- constant _KEY_filledlefttribullet++_KEY_filledlefttribullet :: Int32+_KEY_filledlefttribullet = 2780+-- constant _KEY_filledrectbullet++_KEY_filledrectbullet :: Int32+_KEY_filledrectbullet = 2779+-- constant _KEY_filledrighttribullet++_KEY_filledrighttribullet :: Int32+_KEY_filledrighttribullet = 2781+-- constant _KEY_filledtribulletdown++_KEY_filledtribulletdown :: Int32+_KEY_filledtribulletdown = 2793+-- constant _KEY_filledtribulletup++_KEY_filledtribulletup :: Int32+_KEY_filledtribulletup = 2792+-- constant _KEY_fiveeighths++_KEY_fiveeighths :: Int32+_KEY_fiveeighths = 2757+-- constant _KEY_fivesixths++_KEY_fivesixths :: Int32+_KEY_fivesixths = 2743+-- constant _KEY_fivesubscript++_KEY_fivesubscript :: Int32+_KEY_fivesubscript = 16785541+-- constant _KEY_fivesuperior++_KEY_fivesuperior :: Int32+_KEY_fivesuperior = 16785525+-- constant _KEY_fourfifths++_KEY_fourfifths :: Int32+_KEY_fourfifths = 2741+-- constant _KEY_foursubscript++_KEY_foursubscript :: Int32+_KEY_foursubscript = 16785540+-- constant _KEY_foursuperior++_KEY_foursuperior :: Int32+_KEY_foursuperior = 16785524+-- constant _KEY_fourthroot++_KEY_fourthroot :: Int32+_KEY_fourthroot = 16785948+-- constant _KEY_function++_KEY_function :: Int32+_KEY_function = 2294+-- constant _KEY_g++_KEY_g :: Int32+_KEY_g = 103+-- constant _KEY_gabovedot++_KEY_gabovedot :: Int32+_KEY_gabovedot = 757+-- constant _KEY_gbreve++_KEY_gbreve :: Int32+_KEY_gbreve = 699+-- constant _KEY_gcaron++_KEY_gcaron :: Int32+_KEY_gcaron = 16777703+-- constant _KEY_gcedilla++_KEY_gcedilla :: Int32+_KEY_gcedilla = 955+-- constant _KEY_gcircumflex++_KEY_gcircumflex :: Int32+_KEY_gcircumflex = 760+-- constant _KEY_grave++_KEY_grave :: Int32+_KEY_grave = 96+-- constant _KEY_greater++_KEY_greater :: Int32+_KEY_greater = 62+-- constant _KEY_greaterthanequal++_KEY_greaterthanequal :: Int32+_KEY_greaterthanequal = 2238+-- constant _KEY_guillemotleft++_KEY_guillemotleft :: Int32+_KEY_guillemotleft = 171+-- constant _KEY_guillemotright++_KEY_guillemotright :: Int32+_KEY_guillemotright = 187+-- constant _KEY_h++_KEY_h :: Int32+_KEY_h = 104+-- constant _KEY_hairspace++_KEY_hairspace :: Int32+_KEY_hairspace = 2728+-- constant _KEY_hcircumflex++_KEY_hcircumflex :: Int32+_KEY_hcircumflex = 694+-- constant _KEY_heart++_KEY_heart :: Int32+_KEY_heart = 2798+-- constant _KEY_hebrew_aleph++_KEY_hebrew_aleph :: Int32+_KEY_hebrew_aleph = 3296+-- constant _KEY_hebrew_ayin++_KEY_hebrew_ayin :: Int32+_KEY_hebrew_ayin = 3314+-- constant _KEY_hebrew_bet++_KEY_hebrew_bet :: Int32+_KEY_hebrew_bet = 3297+-- constant _KEY_hebrew_beth++_KEY_hebrew_beth :: Int32+_KEY_hebrew_beth = 3297+-- constant _KEY_hebrew_chet++_KEY_hebrew_chet :: Int32+_KEY_hebrew_chet = 3303+-- constant _KEY_hebrew_dalet++_KEY_hebrew_dalet :: Int32+_KEY_hebrew_dalet = 3299+-- constant _KEY_hebrew_daleth++_KEY_hebrew_daleth :: Int32+_KEY_hebrew_daleth = 3299+-- constant _KEY_hebrew_doublelowline++_KEY_hebrew_doublelowline :: Int32+_KEY_hebrew_doublelowline = 3295+-- constant _KEY_hebrew_finalkaph++_KEY_hebrew_finalkaph :: Int32+_KEY_hebrew_finalkaph = 3306+-- constant _KEY_hebrew_finalmem++_KEY_hebrew_finalmem :: Int32+_KEY_hebrew_finalmem = 3309+-- constant _KEY_hebrew_finalnun++_KEY_hebrew_finalnun :: Int32+_KEY_hebrew_finalnun = 3311+-- constant _KEY_hebrew_finalpe++_KEY_hebrew_finalpe :: Int32+_KEY_hebrew_finalpe = 3315+-- constant _KEY_hebrew_finalzade++_KEY_hebrew_finalzade :: Int32+_KEY_hebrew_finalzade = 3317+-- constant _KEY_hebrew_finalzadi++_KEY_hebrew_finalzadi :: Int32+_KEY_hebrew_finalzadi = 3317+-- constant _KEY_hebrew_gimel++_KEY_hebrew_gimel :: Int32+_KEY_hebrew_gimel = 3298+-- constant _KEY_hebrew_gimmel++_KEY_hebrew_gimmel :: Int32+_KEY_hebrew_gimmel = 3298+-- constant _KEY_hebrew_he++_KEY_hebrew_he :: Int32+_KEY_hebrew_he = 3300+-- constant _KEY_hebrew_het++_KEY_hebrew_het :: Int32+_KEY_hebrew_het = 3303+-- constant _KEY_hebrew_kaph++_KEY_hebrew_kaph :: Int32+_KEY_hebrew_kaph = 3307+-- constant _KEY_hebrew_kuf++_KEY_hebrew_kuf :: Int32+_KEY_hebrew_kuf = 3319+-- constant _KEY_hebrew_lamed++_KEY_hebrew_lamed :: Int32+_KEY_hebrew_lamed = 3308+-- constant _KEY_hebrew_mem++_KEY_hebrew_mem :: Int32+_KEY_hebrew_mem = 3310+-- constant _KEY_hebrew_nun++_KEY_hebrew_nun :: Int32+_KEY_hebrew_nun = 3312+-- constant _KEY_hebrew_pe++_KEY_hebrew_pe :: Int32+_KEY_hebrew_pe = 3316+-- constant _KEY_hebrew_qoph++_KEY_hebrew_qoph :: Int32+_KEY_hebrew_qoph = 3319+-- constant _KEY_hebrew_resh++_KEY_hebrew_resh :: Int32+_KEY_hebrew_resh = 3320+-- constant _KEY_hebrew_samech++_KEY_hebrew_samech :: Int32+_KEY_hebrew_samech = 3313+-- constant _KEY_hebrew_samekh++_KEY_hebrew_samekh :: Int32+_KEY_hebrew_samekh = 3313+-- constant _KEY_hebrew_shin++_KEY_hebrew_shin :: Int32+_KEY_hebrew_shin = 3321+-- constant _KEY_hebrew_taf++_KEY_hebrew_taf :: Int32+_KEY_hebrew_taf = 3322+-- constant _KEY_hebrew_taw++_KEY_hebrew_taw :: Int32+_KEY_hebrew_taw = 3322+-- constant _KEY_hebrew_tet++_KEY_hebrew_tet :: Int32+_KEY_hebrew_tet = 3304+-- constant _KEY_hebrew_teth++_KEY_hebrew_teth :: Int32+_KEY_hebrew_teth = 3304+-- constant _KEY_hebrew_waw++_KEY_hebrew_waw :: Int32+_KEY_hebrew_waw = 3301+-- constant _KEY_hebrew_yod++_KEY_hebrew_yod :: Int32+_KEY_hebrew_yod = 3305+-- constant _KEY_hebrew_zade++_KEY_hebrew_zade :: Int32+_KEY_hebrew_zade = 3318+-- constant _KEY_hebrew_zadi++_KEY_hebrew_zadi :: Int32+_KEY_hebrew_zadi = 3318+-- constant _KEY_hebrew_zain++_KEY_hebrew_zain :: Int32+_KEY_hebrew_zain = 3302+-- constant _KEY_hebrew_zayin++_KEY_hebrew_zayin :: Int32+_KEY_hebrew_zayin = 3302+-- constant _KEY_hexagram++_KEY_hexagram :: Int32+_KEY_hexagram = 2778+-- constant _KEY_horizconnector++_KEY_horizconnector :: Int32+_KEY_horizconnector = 2211+-- constant _KEY_horizlinescan1++_KEY_horizlinescan1 :: Int32+_KEY_horizlinescan1 = 2543+-- constant _KEY_horizlinescan3++_KEY_horizlinescan3 :: Int32+_KEY_horizlinescan3 = 2544+-- constant _KEY_horizlinescan5++_KEY_horizlinescan5 :: Int32+_KEY_horizlinescan5 = 2545+-- constant _KEY_horizlinescan7++_KEY_horizlinescan7 :: Int32+_KEY_horizlinescan7 = 2546+-- constant _KEY_horizlinescan9++_KEY_horizlinescan9 :: Int32+_KEY_horizlinescan9 = 2547+-- constant _KEY_hstroke++_KEY_hstroke :: Int32+_KEY_hstroke = 689+-- constant _KEY_ht++_KEY_ht :: Int32+_KEY_ht = 2530+-- constant _KEY_hyphen++_KEY_hyphen :: Int32+_KEY_hyphen = 173+-- constant _KEY_i++_KEY_i :: Int32+_KEY_i = 105+-- constant _KEY_iTouch++_KEY_iTouch :: Int32+_KEY_iTouch = 269025120+-- constant _KEY_iacute++_KEY_iacute :: Int32+_KEY_iacute = 237+-- constant _KEY_ibelowdot++_KEY_ibelowdot :: Int32+_KEY_ibelowdot = 16785099+-- constant _KEY_ibreve++_KEY_ibreve :: Int32+_KEY_ibreve = 16777517+-- constant _KEY_icircumflex++_KEY_icircumflex :: Int32+_KEY_icircumflex = 238+-- constant _KEY_identical++_KEY_identical :: Int32+_KEY_identical = 2255+-- constant _KEY_idiaeresis++_KEY_idiaeresis :: Int32+_KEY_idiaeresis = 239+-- constant _KEY_idotless++_KEY_idotless :: Int32+_KEY_idotless = 697+-- constant _KEY_ifonlyif++_KEY_ifonlyif :: Int32+_KEY_ifonlyif = 2253+-- constant _KEY_igrave++_KEY_igrave :: Int32+_KEY_igrave = 236+-- constant _KEY_ihook++_KEY_ihook :: Int32+_KEY_ihook = 16785097+-- constant _KEY_imacron++_KEY_imacron :: Int32+_KEY_imacron = 1007+-- constant _KEY_implies++_KEY_implies :: Int32+_KEY_implies = 2254+-- constant _KEY_includedin++_KEY_includedin :: Int32+_KEY_includedin = 2266+-- constant _KEY_includes++_KEY_includes :: Int32+_KEY_includes = 2267+-- constant _KEY_infinity++_KEY_infinity :: Int32+_KEY_infinity = 2242+-- constant _KEY_integral++_KEY_integral :: Int32+_KEY_integral = 2239+-- constant _KEY_intersection++_KEY_intersection :: Int32+_KEY_intersection = 2268+-- constant _KEY_iogonek++_KEY_iogonek :: Int32+_KEY_iogonek = 999+-- constant _KEY_itilde++_KEY_itilde :: Int32+_KEY_itilde = 949+-- constant _KEY_j++_KEY_j :: Int32+_KEY_j = 106+-- constant _KEY_jcircumflex++_KEY_jcircumflex :: Int32+_KEY_jcircumflex = 700+-- constant _KEY_jot++_KEY_jot :: Int32+_KEY_jot = 3018+-- constant _KEY_k++_KEY_k :: Int32+_KEY_k = 107+-- constant _KEY_kana_A++_KEY_kana_A :: Int32+_KEY_kana_A = 1201+-- constant _KEY_kana_CHI++_KEY_kana_CHI :: Int32+_KEY_kana_CHI = 1217+-- constant _KEY_kana_E++_KEY_kana_E :: Int32+_KEY_kana_E = 1204+-- constant _KEY_kana_FU++_KEY_kana_FU :: Int32+_KEY_kana_FU = 1228+-- constant _KEY_kana_HA++_KEY_kana_HA :: Int32+_KEY_kana_HA = 1226+-- constant _KEY_kana_HE++_KEY_kana_HE :: Int32+_KEY_kana_HE = 1229+-- constant _KEY_kana_HI++_KEY_kana_HI :: Int32+_KEY_kana_HI = 1227+-- constant _KEY_kana_HO++_KEY_kana_HO :: Int32+_KEY_kana_HO = 1230+-- constant _KEY_kana_HU++_KEY_kana_HU :: Int32+_KEY_kana_HU = 1228+-- constant _KEY_kana_I++_KEY_kana_I :: Int32+_KEY_kana_I = 1202+-- constant _KEY_kana_KA++_KEY_kana_KA :: Int32+_KEY_kana_KA = 1206+-- constant _KEY_kana_KE++_KEY_kana_KE :: Int32+_KEY_kana_KE = 1209+-- constant _KEY_kana_KI++_KEY_kana_KI :: Int32+_KEY_kana_KI = 1207+-- constant _KEY_kana_KO++_KEY_kana_KO :: Int32+_KEY_kana_KO = 1210+-- constant _KEY_kana_KU++_KEY_kana_KU :: Int32+_KEY_kana_KU = 1208+-- constant _KEY_kana_MA++_KEY_kana_MA :: Int32+_KEY_kana_MA = 1231+-- constant _KEY_kana_ME++_KEY_kana_ME :: Int32+_KEY_kana_ME = 1234+-- constant _KEY_kana_MI++_KEY_kana_MI :: Int32+_KEY_kana_MI = 1232+-- constant _KEY_kana_MO++_KEY_kana_MO :: Int32+_KEY_kana_MO = 1235+-- constant _KEY_kana_MU++_KEY_kana_MU :: Int32+_KEY_kana_MU = 1233+-- constant _KEY_kana_N++_KEY_kana_N :: Int32+_KEY_kana_N = 1245+-- constant _KEY_kana_NA++_KEY_kana_NA :: Int32+_KEY_kana_NA = 1221+-- constant _KEY_kana_NE++_KEY_kana_NE :: Int32+_KEY_kana_NE = 1224+-- constant _KEY_kana_NI++_KEY_kana_NI :: Int32+_KEY_kana_NI = 1222+-- constant _KEY_kana_NO++_KEY_kana_NO :: Int32+_KEY_kana_NO = 1225+-- constant _KEY_kana_NU++_KEY_kana_NU :: Int32+_KEY_kana_NU = 1223+-- constant _KEY_kana_O++_KEY_kana_O :: Int32+_KEY_kana_O = 1205+-- constant _KEY_kana_RA++_KEY_kana_RA :: Int32+_KEY_kana_RA = 1239+-- constant _KEY_kana_RE++_KEY_kana_RE :: Int32+_KEY_kana_RE = 1242+-- constant _KEY_kana_RI++_KEY_kana_RI :: Int32+_KEY_kana_RI = 1240+-- constant _KEY_kana_RO++_KEY_kana_RO :: Int32+_KEY_kana_RO = 1243+-- constant _KEY_kana_RU++_KEY_kana_RU :: Int32+_KEY_kana_RU = 1241+-- constant _KEY_kana_SA++_KEY_kana_SA :: Int32+_KEY_kana_SA = 1211+-- constant _KEY_kana_SE++_KEY_kana_SE :: Int32+_KEY_kana_SE = 1214+-- constant _KEY_kana_SHI++_KEY_kana_SHI :: Int32+_KEY_kana_SHI = 1212+-- constant _KEY_kana_SO++_KEY_kana_SO :: Int32+_KEY_kana_SO = 1215+-- constant _KEY_kana_SU++_KEY_kana_SU :: Int32+_KEY_kana_SU = 1213+-- constant _KEY_kana_TA++_KEY_kana_TA :: Int32+_KEY_kana_TA = 1216+-- constant _KEY_kana_TE++_KEY_kana_TE :: Int32+_KEY_kana_TE = 1219+-- constant _KEY_kana_TI++_KEY_kana_TI :: Int32+_KEY_kana_TI = 1217+-- constant _KEY_kana_TO++_KEY_kana_TO :: Int32+_KEY_kana_TO = 1220+-- constant _KEY_kana_TSU++_KEY_kana_TSU :: Int32+_KEY_kana_TSU = 1218+-- constant _KEY_kana_TU++_KEY_kana_TU :: Int32+_KEY_kana_TU = 1218+-- constant _KEY_kana_U++_KEY_kana_U :: Int32+_KEY_kana_U = 1203+-- constant _KEY_kana_WA++_KEY_kana_WA :: Int32+_KEY_kana_WA = 1244+-- constant _KEY_kana_WO++_KEY_kana_WO :: Int32+_KEY_kana_WO = 1190+-- constant _KEY_kana_YA++_KEY_kana_YA :: Int32+_KEY_kana_YA = 1236+-- constant _KEY_kana_YO++_KEY_kana_YO :: Int32+_KEY_kana_YO = 1238+-- constant _KEY_kana_YU++_KEY_kana_YU :: Int32+_KEY_kana_YU = 1237+-- constant _KEY_kana_a++_KEY_kana_a :: Int32+_KEY_kana_a = 1191+-- constant _KEY_kana_closingbracket++_KEY_kana_closingbracket :: Int32+_KEY_kana_closingbracket = 1187+-- constant _KEY_kana_comma++_KEY_kana_comma :: Int32+_KEY_kana_comma = 1188+-- constant _KEY_kana_conjunctive++_KEY_kana_conjunctive :: Int32+_KEY_kana_conjunctive = 1189+-- constant _KEY_kana_e++_KEY_kana_e :: Int32+_KEY_kana_e = 1194+-- constant _KEY_kana_fullstop++_KEY_kana_fullstop :: Int32+_KEY_kana_fullstop = 1185+-- constant _KEY_kana_i++_KEY_kana_i :: Int32+_KEY_kana_i = 1192+-- constant _KEY_kana_middledot++_KEY_kana_middledot :: Int32+_KEY_kana_middledot = 1189+-- constant _KEY_kana_o++_KEY_kana_o :: Int32+_KEY_kana_o = 1195+-- constant _KEY_kana_openingbracket++_KEY_kana_openingbracket :: Int32+_KEY_kana_openingbracket = 1186+-- constant _KEY_kana_switch++_KEY_kana_switch :: Int32+_KEY_kana_switch = 65406+-- constant _KEY_kana_tsu++_KEY_kana_tsu :: Int32+_KEY_kana_tsu = 1199+-- constant _KEY_kana_tu++_KEY_kana_tu :: Int32+_KEY_kana_tu = 1199+-- constant _KEY_kana_u++_KEY_kana_u :: Int32+_KEY_kana_u = 1193+-- constant _KEY_kana_ya++_KEY_kana_ya :: Int32+_KEY_kana_ya = 1196+-- constant _KEY_kana_yo++_KEY_kana_yo :: Int32+_KEY_kana_yo = 1198+-- constant _KEY_kana_yu++_KEY_kana_yu :: Int32+_KEY_kana_yu = 1197+-- constant _KEY_kappa++_KEY_kappa :: Int32+_KEY_kappa = 930+-- constant _KEY_kcedilla++_KEY_kcedilla :: Int32+_KEY_kcedilla = 1011+-- constant _KEY_kra++_KEY_kra :: Int32+_KEY_kra = 930+-- constant _KEY_l++_KEY_l :: Int32+_KEY_l = 108+-- constant _KEY_lacute++_KEY_lacute :: Int32+_KEY_lacute = 485+-- constant _KEY_latincross++_KEY_latincross :: Int32+_KEY_latincross = 2777+-- constant _KEY_lbelowdot++_KEY_lbelowdot :: Int32+_KEY_lbelowdot = 16784951+-- constant _KEY_lcaron++_KEY_lcaron :: Int32+_KEY_lcaron = 437+-- constant _KEY_lcedilla++_KEY_lcedilla :: Int32+_KEY_lcedilla = 950+-- constant _KEY_leftanglebracket++_KEY_leftanglebracket :: Int32+_KEY_leftanglebracket = 2748+-- constant _KEY_leftarrow++_KEY_leftarrow :: Int32+_KEY_leftarrow = 2299+-- constant _KEY_leftcaret++_KEY_leftcaret :: Int32+_KEY_leftcaret = 2979+-- constant _KEY_leftdoublequotemark++_KEY_leftdoublequotemark :: Int32+_KEY_leftdoublequotemark = 2770+-- constant _KEY_leftmiddlecurlybrace++_KEY_leftmiddlecurlybrace :: Int32+_KEY_leftmiddlecurlybrace = 2223+-- constant _KEY_leftopentriangle++_KEY_leftopentriangle :: Int32+_KEY_leftopentriangle = 2764+-- constant _KEY_leftpointer++_KEY_leftpointer :: Int32+_KEY_leftpointer = 2794+-- constant _KEY_leftradical++_KEY_leftradical :: Int32+_KEY_leftradical = 2209+-- constant _KEY_leftshoe++_KEY_leftshoe :: Int32+_KEY_leftshoe = 3034+-- constant _KEY_leftsinglequotemark++_KEY_leftsinglequotemark :: Int32+_KEY_leftsinglequotemark = 2768+-- constant _KEY_leftt++_KEY_leftt :: Int32+_KEY_leftt = 2548+-- constant _KEY_lefttack++_KEY_lefttack :: Int32+_KEY_lefttack = 3036+-- constant _KEY_less++_KEY_less :: Int32+_KEY_less = 60+-- constant _KEY_lessthanequal++_KEY_lessthanequal :: Int32+_KEY_lessthanequal = 2236+-- constant _KEY_lf++_KEY_lf :: Int32+_KEY_lf = 2533+-- constant _KEY_logicaland++_KEY_logicaland :: Int32+_KEY_logicaland = 2270+-- constant _KEY_logicalor++_KEY_logicalor :: Int32+_KEY_logicalor = 2271+-- constant _KEY_lowleftcorner++_KEY_lowleftcorner :: Int32+_KEY_lowleftcorner = 2541+-- constant _KEY_lowrightcorner++_KEY_lowrightcorner :: Int32+_KEY_lowrightcorner = 2538+-- constant _KEY_lstroke++_KEY_lstroke :: Int32+_KEY_lstroke = 435+-- constant _KEY_m++_KEY_m :: Int32+_KEY_m = 109+-- constant _KEY_mabovedot++_KEY_mabovedot :: Int32+_KEY_mabovedot = 16784961+-- constant _KEY_macron++_KEY_macron :: Int32+_KEY_macron = 175+-- constant _KEY_malesymbol++_KEY_malesymbol :: Int32+_KEY_malesymbol = 2807+-- constant _KEY_maltesecross++_KEY_maltesecross :: Int32+_KEY_maltesecross = 2800+-- constant _KEY_marker++_KEY_marker :: Int32+_KEY_marker = 2751+-- constant _KEY_masculine++_KEY_masculine :: Int32+_KEY_masculine = 186+-- constant _KEY_minus++_KEY_minus :: Int32+_KEY_minus = 45+-- constant _KEY_minutes++_KEY_minutes :: Int32+_KEY_minutes = 2774+-- constant _KEY_mu++_KEY_mu :: Int32+_KEY_mu = 181+-- constant _KEY_multiply++_KEY_multiply :: Int32+_KEY_multiply = 215+-- constant _KEY_musicalflat++_KEY_musicalflat :: Int32+_KEY_musicalflat = 2806+-- constant _KEY_musicalsharp++_KEY_musicalsharp :: Int32+_KEY_musicalsharp = 2805+-- constant _KEY_n++_KEY_n :: Int32+_KEY_n = 110+-- constant _KEY_nabla++_KEY_nabla :: Int32+_KEY_nabla = 2245+-- constant _KEY_nacute++_KEY_nacute :: Int32+_KEY_nacute = 497+-- constant _KEY_ncaron++_KEY_ncaron :: Int32+_KEY_ncaron = 498+-- constant _KEY_ncedilla++_KEY_ncedilla :: Int32+_KEY_ncedilla = 1009+-- constant _KEY_ninesubscript++_KEY_ninesubscript :: Int32+_KEY_ninesubscript = 16785545+-- constant _KEY_ninesuperior++_KEY_ninesuperior :: Int32+_KEY_ninesuperior = 16785529+-- constant _KEY_nl++_KEY_nl :: Int32+_KEY_nl = 2536+-- constant _KEY_nobreakspace++_KEY_nobreakspace :: Int32+_KEY_nobreakspace = 160+-- constant _KEY_notapproxeq++_KEY_notapproxeq :: Int32+_KEY_notapproxeq = 16785991+-- constant _KEY_notelementof++_KEY_notelementof :: Int32+_KEY_notelementof = 16785929+-- constant _KEY_notequal++_KEY_notequal :: Int32+_KEY_notequal = 2237+-- constant _KEY_notidentical++_KEY_notidentical :: Int32+_KEY_notidentical = 16786018+-- constant _KEY_notsign++_KEY_notsign :: Int32+_KEY_notsign = 172+-- constant _KEY_ntilde++_KEY_ntilde :: Int32+_KEY_ntilde = 241+-- constant _KEY_numbersign++_KEY_numbersign :: Int32+_KEY_numbersign = 35+-- constant _KEY_numerosign++_KEY_numerosign :: Int32+_KEY_numerosign = 1712+-- constant _KEY_o++_KEY_o :: Int32+_KEY_o = 111+-- constant _KEY_oacute++_KEY_oacute :: Int32+_KEY_oacute = 243+-- constant _KEY_obarred++_KEY_obarred :: Int32+_KEY_obarred = 16777845+-- constant _KEY_obelowdot++_KEY_obelowdot :: Int32+_KEY_obelowdot = 16785101+-- constant _KEY_ocaron++_KEY_ocaron :: Int32+_KEY_ocaron = 16777682+-- constant _KEY_ocircumflex++_KEY_ocircumflex :: Int32+_KEY_ocircumflex = 244+-- constant _KEY_ocircumflexacute++_KEY_ocircumflexacute :: Int32+_KEY_ocircumflexacute = 16785105+-- constant _KEY_ocircumflexbelowdot++_KEY_ocircumflexbelowdot :: Int32+_KEY_ocircumflexbelowdot = 16785113+-- constant _KEY_ocircumflexgrave++_KEY_ocircumflexgrave :: Int32+_KEY_ocircumflexgrave = 16785107+-- constant _KEY_ocircumflexhook++_KEY_ocircumflexhook :: Int32+_KEY_ocircumflexhook = 16785109+-- constant _KEY_ocircumflextilde++_KEY_ocircumflextilde :: Int32+_KEY_ocircumflextilde = 16785111+-- constant _KEY_odiaeresis++_KEY_odiaeresis :: Int32+_KEY_odiaeresis = 246+-- constant _KEY_odoubleacute++_KEY_odoubleacute :: Int32+_KEY_odoubleacute = 501+-- constant _KEY_oe++_KEY_oe :: Int32+_KEY_oe = 5053+-- constant _KEY_ogonek++_KEY_ogonek :: Int32+_KEY_ogonek = 434+-- constant _KEY_ograve++_KEY_ograve :: Int32+_KEY_ograve = 242+-- constant _KEY_ohook++_KEY_ohook :: Int32+_KEY_ohook = 16785103+-- constant _KEY_ohorn++_KEY_ohorn :: Int32+_KEY_ohorn = 16777633+-- constant _KEY_ohornacute++_KEY_ohornacute :: Int32+_KEY_ohornacute = 16785115+-- constant _KEY_ohornbelowdot++_KEY_ohornbelowdot :: Int32+_KEY_ohornbelowdot = 16785123+-- constant _KEY_ohorngrave++_KEY_ohorngrave :: Int32+_KEY_ohorngrave = 16785117+-- constant _KEY_ohornhook++_KEY_ohornhook :: Int32+_KEY_ohornhook = 16785119+-- constant _KEY_ohorntilde++_KEY_ohorntilde :: Int32+_KEY_ohorntilde = 16785121+-- constant _KEY_omacron++_KEY_omacron :: Int32+_KEY_omacron = 1010+-- constant _KEY_oneeighth++_KEY_oneeighth :: Int32+_KEY_oneeighth = 2755+-- constant _KEY_onefifth++_KEY_onefifth :: Int32+_KEY_onefifth = 2738+-- constant _KEY_onehalf++_KEY_onehalf :: Int32+_KEY_onehalf = 189+-- constant _KEY_onequarter++_KEY_onequarter :: Int32+_KEY_onequarter = 188+-- constant _KEY_onesixth++_KEY_onesixth :: Int32+_KEY_onesixth = 2742+-- constant _KEY_onesubscript++_KEY_onesubscript :: Int32+_KEY_onesubscript = 16785537+-- constant _KEY_onesuperior++_KEY_onesuperior :: Int32+_KEY_onesuperior = 185+-- constant _KEY_onethird++_KEY_onethird :: Int32+_KEY_onethird = 2736+-- constant _KEY_ooblique++_KEY_ooblique :: Int32+_KEY_ooblique = 248+-- constant _KEY_openrectbullet++_KEY_openrectbullet :: Int32+_KEY_openrectbullet = 2786+-- constant _KEY_openstar++_KEY_openstar :: Int32+_KEY_openstar = 2789+-- constant _KEY_opentribulletdown++_KEY_opentribulletdown :: Int32+_KEY_opentribulletdown = 2788+-- constant _KEY_opentribulletup++_KEY_opentribulletup :: Int32+_KEY_opentribulletup = 2787+-- constant _KEY_ordfeminine++_KEY_ordfeminine :: Int32+_KEY_ordfeminine = 170+-- constant _KEY_oslash++_KEY_oslash :: Int32+_KEY_oslash = 248+-- constant _KEY_otilde++_KEY_otilde :: Int32+_KEY_otilde = 245+-- constant _KEY_overbar++_KEY_overbar :: Int32+_KEY_overbar = 3008+-- constant _KEY_overline++_KEY_overline :: Int32+_KEY_overline = 1150+-- constant _KEY_p++_KEY_p :: Int32+_KEY_p = 112+-- constant _KEY_pabovedot++_KEY_pabovedot :: Int32+_KEY_pabovedot = 16784983+-- constant _KEY_paragraph++_KEY_paragraph :: Int32+_KEY_paragraph = 182+-- constant _KEY_parenleft++_KEY_parenleft :: Int32+_KEY_parenleft = 40+-- constant _KEY_parenright++_KEY_parenright :: Int32+_KEY_parenright = 41+-- constant _KEY_partdifferential++_KEY_partdifferential :: Int32+_KEY_partdifferential = 16785922+-- constant _KEY_partialderivative++_KEY_partialderivative :: Int32+_KEY_partialderivative = 2287+-- constant _KEY_percent++_KEY_percent :: Int32+_KEY_percent = 37+-- constant _KEY_period++_KEY_period :: Int32+_KEY_period = 46+-- constant _KEY_periodcentered++_KEY_periodcentered :: Int32+_KEY_periodcentered = 183+-- constant _KEY_permille++_KEY_permille :: Int32+_KEY_permille = 2773+-- constant _KEY_phonographcopyright++_KEY_phonographcopyright :: Int32+_KEY_phonographcopyright = 2811+-- constant _KEY_plus++_KEY_plus :: Int32+_KEY_plus = 43+-- constant _KEY_plusminus++_KEY_plusminus :: Int32+_KEY_plusminus = 177+-- constant _KEY_prescription++_KEY_prescription :: Int32+_KEY_prescription = 2772+-- constant _KEY_prolongedsound++_KEY_prolongedsound :: Int32+_KEY_prolongedsound = 1200+-- constant _KEY_punctspace++_KEY_punctspace :: Int32+_KEY_punctspace = 2726+-- constant _KEY_q++_KEY_q :: Int32+_KEY_q = 113+-- constant _KEY_quad++_KEY_quad :: Int32+_KEY_quad = 3020+-- constant _KEY_question++_KEY_question :: Int32+_KEY_question = 63+-- constant _KEY_questiondown++_KEY_questiondown :: Int32+_KEY_questiondown = 191+-- constant _KEY_quotedbl++_KEY_quotedbl :: Int32+_KEY_quotedbl = 34+-- constant _KEY_quoteleft++_KEY_quoteleft :: Int32+_KEY_quoteleft = 96+-- constant _KEY_quoteright++_KEY_quoteright :: Int32+_KEY_quoteright = 39+-- constant _KEY_r++_KEY_r :: Int32+_KEY_r = 114+-- constant _KEY_racute++_KEY_racute :: Int32+_KEY_racute = 480+-- constant _KEY_radical++_KEY_radical :: Int32+_KEY_radical = 2262+-- constant _KEY_rcaron++_KEY_rcaron :: Int32+_KEY_rcaron = 504+-- constant _KEY_rcedilla++_KEY_rcedilla :: Int32+_KEY_rcedilla = 947+-- constant _KEY_registered++_KEY_registered :: Int32+_KEY_registered = 174+-- constant _KEY_rightanglebracket++_KEY_rightanglebracket :: Int32+_KEY_rightanglebracket = 2750+-- constant _KEY_rightarrow++_KEY_rightarrow :: Int32+_KEY_rightarrow = 2301+-- constant _KEY_rightcaret++_KEY_rightcaret :: Int32+_KEY_rightcaret = 2982+-- constant _KEY_rightdoublequotemark++_KEY_rightdoublequotemark :: Int32+_KEY_rightdoublequotemark = 2771+-- constant _KEY_rightmiddlecurlybrace++_KEY_rightmiddlecurlybrace :: Int32+_KEY_rightmiddlecurlybrace = 2224+-- constant _KEY_rightmiddlesummation++_KEY_rightmiddlesummation :: Int32+_KEY_rightmiddlesummation = 2231+-- constant _KEY_rightopentriangle++_KEY_rightopentriangle :: Int32+_KEY_rightopentriangle = 2765+-- constant _KEY_rightpointer++_KEY_rightpointer :: Int32+_KEY_rightpointer = 2795+-- constant _KEY_rightshoe++_KEY_rightshoe :: Int32+_KEY_rightshoe = 3032+-- constant _KEY_rightsinglequotemark++_KEY_rightsinglequotemark :: Int32+_KEY_rightsinglequotemark = 2769+-- constant _KEY_rightt++_KEY_rightt :: Int32+_KEY_rightt = 2549+-- constant _KEY_righttack++_KEY_righttack :: Int32+_KEY_righttack = 3068+-- constant _KEY_s++_KEY_s :: Int32+_KEY_s = 115+-- constant _KEY_sabovedot++_KEY_sabovedot :: Int32+_KEY_sabovedot = 16784993+-- constant _KEY_sacute++_KEY_sacute :: Int32+_KEY_sacute = 438+-- constant _KEY_scaron++_KEY_scaron :: Int32+_KEY_scaron = 441+-- constant _KEY_scedilla++_KEY_scedilla :: Int32+_KEY_scedilla = 442+-- constant _KEY_schwa++_KEY_schwa :: Int32+_KEY_schwa = 16777817+-- constant _KEY_scircumflex++_KEY_scircumflex :: Int32+_KEY_scircumflex = 766+-- constant _KEY_script_switch++_KEY_script_switch :: Int32+_KEY_script_switch = 65406+-- constant _KEY_seconds++_KEY_seconds :: Int32+_KEY_seconds = 2775+-- constant _KEY_section++_KEY_section :: Int32+_KEY_section = 167+-- constant _KEY_semicolon++_KEY_semicolon :: Int32+_KEY_semicolon = 59+-- constant _KEY_semivoicedsound++_KEY_semivoicedsound :: Int32+_KEY_semivoicedsound = 1247+-- constant _KEY_seveneighths++_KEY_seveneighths :: Int32+_KEY_seveneighths = 2758+-- constant _KEY_sevensubscript++_KEY_sevensubscript :: Int32+_KEY_sevensubscript = 16785543+-- constant _KEY_sevensuperior++_KEY_sevensuperior :: Int32+_KEY_sevensuperior = 16785527+-- constant _KEY_signaturemark++_KEY_signaturemark :: Int32+_KEY_signaturemark = 2762+-- constant _KEY_signifblank++_KEY_signifblank :: Int32+_KEY_signifblank = 2732+-- constant _KEY_similarequal++_KEY_similarequal :: Int32+_KEY_similarequal = 2249+-- constant _KEY_singlelowquotemark++_KEY_singlelowquotemark :: Int32+_KEY_singlelowquotemark = 2813+-- constant _KEY_sixsubscript++_KEY_sixsubscript :: Int32+_KEY_sixsubscript = 16785542+-- constant _KEY_sixsuperior++_KEY_sixsuperior :: Int32+_KEY_sixsuperior = 16785526+-- constant _KEY_slash++_KEY_slash :: Int32+_KEY_slash = 47+-- constant _KEY_soliddiamond++_KEY_soliddiamond :: Int32+_KEY_soliddiamond = 2528+-- constant _KEY_space++_KEY_space :: Int32+_KEY_space = 32+-- constant _KEY_squareroot++_KEY_squareroot :: Int32+_KEY_squareroot = 16785946+-- constant _KEY_ssharp++_KEY_ssharp :: Int32+_KEY_ssharp = 223+-- constant _KEY_sterling++_KEY_sterling :: Int32+_KEY_sterling = 163+-- constant _KEY_stricteq++_KEY_stricteq :: Int32+_KEY_stricteq = 16786019+-- constant _KEY_t++_KEY_t :: Int32+_KEY_t = 116+-- constant _KEY_tabovedot++_KEY_tabovedot :: Int32+_KEY_tabovedot = 16785003+-- constant _KEY_tcaron++_KEY_tcaron :: Int32+_KEY_tcaron = 443+-- constant _KEY_tcedilla++_KEY_tcedilla :: Int32+_KEY_tcedilla = 510+-- constant _KEY_telephone++_KEY_telephone :: Int32+_KEY_telephone = 2809+-- constant _KEY_telephonerecorder++_KEY_telephonerecorder :: Int32+_KEY_telephonerecorder = 2810+-- constant _KEY_therefore++_KEY_therefore :: Int32+_KEY_therefore = 2240+-- constant _KEY_thinspace++_KEY_thinspace :: Int32+_KEY_thinspace = 2727+-- constant _KEY_thorn++_KEY_thorn :: Int32+_KEY_thorn = 254+-- constant _KEY_threeeighths++_KEY_threeeighths :: Int32+_KEY_threeeighths = 2756+-- constant _KEY_threefifths++_KEY_threefifths :: Int32+_KEY_threefifths = 2740+-- constant _KEY_threequarters++_KEY_threequarters :: Int32+_KEY_threequarters = 190+-- constant _KEY_threesubscript++_KEY_threesubscript :: Int32+_KEY_threesubscript = 16785539+-- constant _KEY_threesuperior++_KEY_threesuperior :: Int32+_KEY_threesuperior = 179+-- constant _KEY_tintegral++_KEY_tintegral :: Int32+_KEY_tintegral = 16785965+-- constant _KEY_topintegral++_KEY_topintegral :: Int32+_KEY_topintegral = 2212+-- constant _KEY_topleftparens++_KEY_topleftparens :: Int32+_KEY_topleftparens = 2219+-- constant _KEY_topleftradical++_KEY_topleftradical :: Int32+_KEY_topleftradical = 2210+-- constant _KEY_topleftsqbracket++_KEY_topleftsqbracket :: Int32+_KEY_topleftsqbracket = 2215+-- constant _KEY_topleftsummation++_KEY_topleftsummation :: Int32+_KEY_topleftsummation = 2225+-- constant _KEY_toprightparens++_KEY_toprightparens :: Int32+_KEY_toprightparens = 2221+-- constant _KEY_toprightsqbracket++_KEY_toprightsqbracket :: Int32+_KEY_toprightsqbracket = 2217+-- constant _KEY_toprightsummation++_KEY_toprightsummation :: Int32+_KEY_toprightsummation = 2229+-- constant _KEY_topt++_KEY_topt :: Int32+_KEY_topt = 2551+-- constant _KEY_topvertsummationconnector++_KEY_topvertsummationconnector :: Int32+_KEY_topvertsummationconnector = 2227+-- constant _KEY_trademark++_KEY_trademark :: Int32+_KEY_trademark = 2761+-- constant _KEY_trademarkincircle++_KEY_trademarkincircle :: Int32+_KEY_trademarkincircle = 2763+-- constant _KEY_tslash++_KEY_tslash :: Int32+_KEY_tslash = 956+-- constant _KEY_twofifths++_KEY_twofifths :: Int32+_KEY_twofifths = 2739+-- constant _KEY_twosubscript++_KEY_twosubscript :: Int32+_KEY_twosubscript = 16785538+-- constant _KEY_twosuperior++_KEY_twosuperior :: Int32+_KEY_twosuperior = 178+-- constant _KEY_twothirds++_KEY_twothirds :: Int32+_KEY_twothirds = 2737+-- constant _KEY_u++_KEY_u :: Int32+_KEY_u = 117+-- constant _KEY_uacute++_KEY_uacute :: Int32+_KEY_uacute = 250+-- constant _KEY_ubelowdot++_KEY_ubelowdot :: Int32+_KEY_ubelowdot = 16785125+-- constant _KEY_ubreve++_KEY_ubreve :: Int32+_KEY_ubreve = 765+-- constant _KEY_ucircumflex++_KEY_ucircumflex :: Int32+_KEY_ucircumflex = 251+-- constant _KEY_udiaeresis++_KEY_udiaeresis :: Int32+_KEY_udiaeresis = 252+-- constant _KEY_udoubleacute++_KEY_udoubleacute :: Int32+_KEY_udoubleacute = 507+-- constant _KEY_ugrave++_KEY_ugrave :: Int32+_KEY_ugrave = 249+-- constant _KEY_uhook++_KEY_uhook :: Int32+_KEY_uhook = 16785127+-- constant _KEY_uhorn++_KEY_uhorn :: Int32+_KEY_uhorn = 16777648+-- constant _KEY_uhornacute++_KEY_uhornacute :: Int32+_KEY_uhornacute = 16785129+-- constant _KEY_uhornbelowdot++_KEY_uhornbelowdot :: Int32+_KEY_uhornbelowdot = 16785137+-- constant _KEY_uhorngrave++_KEY_uhorngrave :: Int32+_KEY_uhorngrave = 16785131+-- constant _KEY_uhornhook++_KEY_uhornhook :: Int32+_KEY_uhornhook = 16785133+-- constant _KEY_uhorntilde++_KEY_uhorntilde :: Int32+_KEY_uhorntilde = 16785135+-- constant _KEY_umacron++_KEY_umacron :: Int32+_KEY_umacron = 1022+-- constant _KEY_underbar++_KEY_underbar :: Int32+_KEY_underbar = 3014+-- constant _KEY_underscore++_KEY_underscore :: Int32+_KEY_underscore = 95+-- constant _KEY_union++_KEY_union :: Int32+_KEY_union = 2269+-- constant _KEY_uogonek++_KEY_uogonek :: Int32+_KEY_uogonek = 1017+-- constant _KEY_uparrow++_KEY_uparrow :: Int32+_KEY_uparrow = 2300+-- constant _KEY_upcaret++_KEY_upcaret :: Int32+_KEY_upcaret = 2985+-- constant _KEY_upleftcorner++_KEY_upleftcorner :: Int32+_KEY_upleftcorner = 2540+-- constant _KEY_uprightcorner++_KEY_uprightcorner :: Int32+_KEY_uprightcorner = 2539+-- constant _KEY_upshoe++_KEY_upshoe :: Int32+_KEY_upshoe = 3011+-- constant _KEY_upstile++_KEY_upstile :: Int32+_KEY_upstile = 3027+-- constant _KEY_uptack++_KEY_uptack :: Int32+_KEY_uptack = 3022+-- constant _KEY_uring++_KEY_uring :: Int32+_KEY_uring = 505+-- constant _KEY_utilde++_KEY_utilde :: Int32+_KEY_utilde = 1021+-- constant _KEY_v++_KEY_v :: Int32+_KEY_v = 118+-- constant _KEY_variation++_KEY_variation :: Int32+_KEY_variation = 2241+-- constant _KEY_vertbar++_KEY_vertbar :: Int32+_KEY_vertbar = 2552+-- constant _KEY_vertconnector++_KEY_vertconnector :: Int32+_KEY_vertconnector = 2214+-- constant _KEY_voicedsound++_KEY_voicedsound :: Int32+_KEY_voicedsound = 1246+-- constant _KEY_vt++_KEY_vt :: Int32+_KEY_vt = 2537+-- constant _KEY_w++_KEY_w :: Int32+_KEY_w = 119+-- constant _KEY_wacute++_KEY_wacute :: Int32+_KEY_wacute = 16785027+-- constant _KEY_wcircumflex++_KEY_wcircumflex :: Int32+_KEY_wcircumflex = 16777589+-- constant _KEY_wdiaeresis++_KEY_wdiaeresis :: Int32+_KEY_wdiaeresis = 16785029+-- constant _KEY_wgrave++_KEY_wgrave :: Int32+_KEY_wgrave = 16785025+-- constant _KEY_x++_KEY_x :: Int32+_KEY_x = 120+-- constant _KEY_xabovedot++_KEY_xabovedot :: Int32+_KEY_xabovedot = 16785035+-- constant _KEY_y++_KEY_y :: Int32+_KEY_y = 121+-- constant _KEY_yacute++_KEY_yacute :: Int32+_KEY_yacute = 253+-- constant _KEY_ybelowdot++_KEY_ybelowdot :: Int32+_KEY_ybelowdot = 16785141+-- constant _KEY_ycircumflex++_KEY_ycircumflex :: Int32+_KEY_ycircumflex = 16777591+-- constant _KEY_ydiaeresis++_KEY_ydiaeresis :: Int32+_KEY_ydiaeresis = 255+-- constant _KEY_yen++_KEY_yen :: Int32+_KEY_yen = 165+-- constant _KEY_ygrave++_KEY_ygrave :: Int32+_KEY_ygrave = 16785139+-- constant _KEY_yhook++_KEY_yhook :: Int32+_KEY_yhook = 16785143+-- constant _KEY_ytilde++_KEY_ytilde :: Int32+_KEY_ytilde = 16785145+-- constant _KEY_z++_KEY_z :: Int32+_KEY_z = 122+-- constant _KEY_zabovedot++_KEY_zabovedot :: Int32+_KEY_zabovedot = 447+-- constant _KEY_zacute++_KEY_zacute :: Int32+_KEY_zacute = 444+-- constant _KEY_zcaron++_KEY_zcaron :: Int32+_KEY_zcaron = 446+-- constant _KEY_zerosubscript++_KEY_zerosubscript :: Int32+_KEY_zerosubscript = 16785536+-- constant _KEY_zerosuperior++_KEY_zerosuperior :: Int32+_KEY_zerosuperior = 16785520+-- constant _KEY_zstroke++_KEY_zstroke :: Int32+_KEY_zstroke = 16777654+-- constant _MAX_TIMECOORD_AXES++_MAX_TIMECOORD_AXES :: Int32+_MAX_TIMECOORD_AXES = 128+-- constant _PARENT_RELATIVE++_PARENT_RELATIVE :: Int32+_PARENT_RELATIVE = 1+-- constant _PRIORITY_REDRAW++_PRIORITY_REDRAW :: Int32+_PRIORITY_REDRAW = 20+-- function gdk_add_option_entries_libgtk_only+-- Args : [Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+addOptionEntriesLibgtkOnly group = liftIO $ do+    let group' = unsafeManagedPtrGetPtr group+    gdk_add_option_entries_libgtk_only group'+    touchManagedPtr group+    return ()++-- function gdk_atom_intern+-- Args : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                               -- atom_name+    Bool ->                                 -- only_if_exists+    m Atom+atomIntern atom_name only_if_exists = liftIO $ do+    atom_name' <- textToCString atom_name+    let only_if_exists' = (fromIntegral . fromEnum) only_if_exists+    result <- gdk_atom_intern atom_name' only_if_exists'+    checkUnexpectedReturnNULL "gdk_atom_intern" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- (\x -> Atom <$> newForeignPtr_ x) result+    freeMem atom_name'+    return result'++-- function gdk_atom_intern_static_string+-- Args : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                               -- atom_name+    m Atom+atomInternStaticString atom_name = liftIO $ do+    atom_name' <- textToCString atom_name+    result <- gdk_atom_intern_static_string atom_name'+    checkUnexpectedReturnNULL "gdk_atom_intern_static_string" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- (\x -> Atom <$> newForeignPtr_ x) result+    freeMem atom_name'+    return result'++-- function gdk_beep+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_beep" gdk_beep :: +    IO ()+++beep ::+    (MonadIO m) =>+    m ()+beep  = liftIO $ do+    gdk_beep+    return ()++-- function gdk_cairo_create+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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_cairo_draw_from_gl+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- source_type : TBasicType TInt32+    Int32 ->                                -- buffer_scale : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO ()+++cairoDrawFromGl ::+    (MonadIO m, WindowK a) =>+    Cairo.Context ->                        -- cr+    a ->                                    -- window+    Int32 ->                                -- source+    Int32 ->                                -- source_type+    Int32 ->                                -- buffer_scale+    Int32 ->                                -- x+    Int32 ->                                -- y+    Int32 ->                                -- width+    Int32 ->                                -- height+    m ()+cairoDrawFromGl cr window source source_type buffer_scale x y width height = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let window' = unsafeManagedPtrCastPtr window+    gdk_cairo_draw_from_gl cr' window' source source_type buffer_scale x y width height+    touchManagedPtr cr+    touchManagedPtr window+    return ()++-- function gdk_cairo_get_clip_rectangle+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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_rectangle+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_region+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_region_create_from_surface+-- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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_set_source_color+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_set_source_pixbuf+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                               -- pixbuf_x+    Double ->                               -- pixbuf_y+    m ()+cairoSetSourcePixbuf cr pixbuf pixbuf_x pixbuf_y = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let pixbuf' = unsafeManagedPtrCastPtr pixbuf+    let pixbuf_x' = realToFrac pixbuf_x+    let pixbuf_y' = realToFrac pixbuf_y+    gdk_cairo_set_source_pixbuf cr' pixbuf' pixbuf_x' pixbuf_y'+    touchManagedPtr cr+    touchManagedPtr pixbuf+    return ()++-- function gdk_cairo_set_source_rgba+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_window+-- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_surface_create_from_pixbuf+-- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    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) ->                            -- for_window+    m Cairo.Surface+cairoSurfaceCreateFromPixbuf pixbuf scale for_window = liftIO $ do+    let pixbuf' = unsafeManagedPtrCastPtr pixbuf+    maybeFor_window <- case for_window of+        Nothing -> return nullPtr+        Just jFor_window -> do+            let jFor_window' = unsafeManagedPtrCastPtr jFor_window+            return jFor_window'+    result <- gdk_cairo_surface_create_from_pixbuf pixbuf' scale maybeFor_window+    checkUnexpectedReturnNULL "gdk_cairo_surface_create_from_pixbuf" result+    result' <- (wrapBoxed Cairo.Surface) result+    touchManagedPtr pixbuf+    whenJust for_window touchManagedPtr+    return result'++-- function gdk_color_parse+-- Args : [Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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')++-- function gdk_disable_multidevice+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_disable_multidevice" gdk_disable_multidevice :: +    IO ()+++disableMultidevice ::+    (MonadIO m) =>+    m ()+disableMultidevice  = liftIO $ do+    gdk_disable_multidevice+    return ()++-- function gdk_drag_abort+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+dragAbort context time_ = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    gdk_drag_abort context' time_+    touchManagedPtr context+    return ()++-- function gdk_drag_begin+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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_begin_for_device+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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_drop+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+dragDrop context time_ = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    gdk_drag_drop context' time_+    touchManagedPtr context+    return ()++-- function gdk_drag_drop_succeeded+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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_find_window_for_screen+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TInt32+    Int32 ->                                -- y_root : TBasicType TInt32+    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 ->                                    -- drag_window+    c ->                                    -- screen+    Int32 ->                                -- x_root+    Int32 ->                                -- y_root+    m (Window,DragProtocol)+dragFindWindowForScreen context drag_window screen x_root y_root = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let drag_window' = unsafeManagedPtrCastPtr drag_window+    let screen' = unsafeManagedPtrCastPtr screen+    dest_window <- allocMem :: IO (Ptr (Ptr Window))+    protocol <- allocMem :: IO (Ptr CUInt)+    gdk_drag_find_window_for_screen context' drag_window' screen' x_root y_root dest_window protocol+    dest_window' <- peek dest_window+    dest_window'' <- (wrapObject Window) dest_window'+    protocol' <- peek protocol+    let protocol'' = (toEnum . fromIntegral) protocol'+    touchManagedPtr context+    touchManagedPtr drag_window+    touchManagedPtr screen+    freeMem dest_window+    freeMem protocol+    return (dest_window'', protocol'')++-- function gdk_drag_get_selection+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+dragGetSelection context = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    result <- gdk_drag_get_selection context'+    checkUnexpectedReturnNULL "gdk_drag_get_selection" result+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    result' <- (\x -> Atom <$> newForeignPtr_ x) result+    touchManagedPtr context+    return result'++-- function gdk_drag_motion+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- y_root : TBasicType TInt32+    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 ->                                    -- dest_window+    DragProtocol ->                         -- protocol+    Int32 ->                                -- x_root+    Int32 ->                                -- y_root+    [DragAction] ->                         -- suggested_action+    [DragAction] ->                         -- possible_actions+    Word32 ->                               -- time_+    m Bool+dragMotion context dest_window protocol x_root y_root suggested_action possible_actions time_ = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let dest_window' = unsafeManagedPtrCastPtr dest_window+    let protocol' = (fromIntegral . fromEnum) protocol+    let suggested_action' = gflagsToWord suggested_action+    let possible_actions' = gflagsToWord possible_actions+    result <- gdk_drag_motion context' dest_window' protocol' x_root y_root suggested_action' possible_actions' time_+    let result' = (/= 0) result+    touchManagedPtr context+    touchManagedPtr dest_window+    return result'++-- function gdk_drag_status+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_drop_finish+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_drop_reply+-- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_error_trap_pop+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_error_trap_pop" gdk_error_trap_pop :: +    IO Int32+++errorTrapPop ::+    (MonadIO m) =>+    m Int32+errorTrapPop  = liftIO $ do+    result <- gdk_error_trap_pop+    return result++-- function gdk_error_trap_pop_ignored+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_error_trap_pop_ignored" gdk_error_trap_pop_ignored :: +    IO ()+++errorTrapPopIgnored ::+    (MonadIO m) =>+    m ()+errorTrapPopIgnored  = liftIO $ do+    gdk_error_trap_pop_ignored+    return ()++-- function gdk_error_trap_push+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_error_trap_push" gdk_error_trap_push :: +    IO ()+++errorTrapPush ::+    (MonadIO m) =>+    m ()+errorTrapPush  = liftIO $ do+    gdk_error_trap_push+    return ()++-- function gdk_event_get+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Gdk" "Event"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_event_get" gdk_event_get :: +    IO (Ptr Event)+++eventGet ::+    (MonadIO m) =>+    m Event+eventGet  = liftIO $ do+    result <- gdk_event_get+    checkUnexpectedReturnNULL "gdk_event_get" result+    result' <- (wrapBoxed Event) result+    return result'++-- function gdk_event_handler_set+-- Args : [Arg {argName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 TVoid+    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"+    IO ()+++eventHandlerSet ::+    (MonadIO m) =>+    EventFunc ->                            -- func+    m ()+eventHandlerSet func = liftIO $ do+    func' <- mkEventFunc (eventFuncWrapper Nothing func)+    let data_ = castFunPtrToPtr func'+    let notify = safeFreeFunPtrPtr+    gdk_event_handler_set func' data_ notify+    return ()++-- function gdk_event_peek+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TInterface "Gdk" "Event"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_event_peek" gdk_event_peek :: +    IO (Ptr Event)+++eventPeek ::+    (MonadIO m) =>+    m Event+eventPeek  = liftIO $ do+    result <- gdk_event_peek+    checkUnexpectedReturnNULL "gdk_event_peek" result+    result' <- (wrapBoxed Event) result+    return result'++-- function gdk_event_request_motions+-- Args : [Arg {argName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+eventRequestMotions event = liftIO $ do+    let event' = unsafeManagedPtrGetPtr event+    gdk_event_request_motions event'+    touchManagedPtr event+    return ()++-- function gdk_events_get_angle+-- Args : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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_events_get_center+-- Args : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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_distance+-- Args : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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)+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_pending+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_events_pending" gdk_events_pending :: +    IO CInt+++eventsPending ::+    (MonadIO m) =>+    m Bool+eventsPending  = liftIO $ do+    result <- gdk_events_pending+    let result' = (/= 0) result+    return result'++-- function gdk_flush+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_flush" gdk_flush :: +    IO ()+++flush ::+    (MonadIO m) =>+    m ()+flush  = liftIO $ do+    gdk_flush+    return ()++-- function gdk_get_default_root_window+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+getDefaultRootWindow  = liftIO $ do+    result <- gdk_get_default_root_window+    checkUnexpectedReturnNULL "gdk_get_default_root_window" result+    result' <- (newObject Window) result+    return result'++-- function gdk_get_display+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+getDisplay  = liftIO $ do+    result <- gdk_get_display+    checkUnexpectedReturnNULL "gdk_get_display" result+    result' <- cstringToText result+    freeMem result+    return result'++-- function gdk_get_display_arg_name+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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 T.Text+getDisplayArgName  = liftIO $ do+    result <- gdk_get_display_arg_name+    checkUnexpectedReturnNULL "gdk_get_display_arg_name" result+    result' <- cstringToText result+    return result'++-- function gdk_get_program_class+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+getProgramClass  = liftIO $ do+    result <- gdk_get_program_class+    checkUnexpectedReturnNULL "gdk_get_program_class" result+    result' <- cstringToText result+    return result'++-- function gdk_get_show_events+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+getShowEvents  = liftIO $ do+    result <- gdk_get_show_events+    let result' = (/= 0) result+    return result'++-- function gdk_gl_error_quark+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_gl_error_quark" gdk_gl_error_quark :: +    IO Word32+++glErrorQuark ::+    (MonadIO m) =>+    m Word32+glErrorQuark  = liftIO $ do+    result <- gdk_gl_error_quark+    return result++-- function gdk_init+-- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_init" gdk_init :: +    Ptr Int32 ->                            -- argc : TBasicType TInt32+    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)+    IO ()+++init ::+    (MonadIO m) =>+    [T.Text] ->                             -- argv+    m ([T.Text])+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_init_check+-- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_init_check" gdk_init_check :: +    Ptr Int32 ->                            -- argc : TBasicType TInt32+    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)+    IO CInt+++initCheck ::+    (MonadIO m) =>+    [T.Text] ->                             -- argv+    m (Bool,[T.Text])+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_keyboard_grab+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                                 -- owner_events+    Word32 ->                               -- time_+    m GrabStatus+keyboardGrab window owner_events time_ = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let owner_events' = (fromIntegral . fromEnum) owner_events+    result <- gdk_keyboard_grab window' owner_events' time_+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr window+    return result'++-- function gdk_keyboard_ungrab+-- Args : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+keyboardUngrab time_ = liftIO $ do+    gdk_keyboard_ungrab time_+    return ()++-- function gdk_keyval_convert_case+-- Args : [Arg {argName = "symbol", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "upper", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : []+-- hInArgs : [Arg {argName = "symbol", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyval_convert_case" gdk_keyval_convert_case :: +    Word32 ->                               -- symbol : TBasicType TUInt32+    Ptr Word32 ->                           -- lower : TBasicType TUInt32+    Ptr Word32 ->                           -- upper : TBasicType TUInt32+    IO ()+++keyvalConvertCase ::+    (MonadIO m) =>+    Word32 ->                               -- symbol+    m (Word32,Word32)+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_keyval_from_name+-- Args : [Arg {argName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- 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 ->                               -- keyval_name+    m Word32+keyvalFromName keyval_name = liftIO $ do+    keyval_name' <- textToCString keyval_name+    result <- gdk_keyval_from_name keyval_name'+    freeMem keyval_name'+    return result++-- function gdk_keyval_is_lower+-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyval_is_lower" gdk_keyval_is_lower :: +    Word32 ->                               -- keyval : TBasicType TUInt32+    IO CInt+++keyvalIsLower ::+    (MonadIO m) =>+    Word32 ->                               -- keyval+    m Bool+keyvalIsLower keyval = liftIO $ do+    result <- gdk_keyval_is_lower keyval+    let result' = (/= 0) result+    return result'++-- function gdk_keyval_is_upper+-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyval_is_upper" gdk_keyval_is_upper :: +    Word32 ->                               -- keyval : TBasicType TUInt32+    IO CInt+++keyvalIsUpper ::+    (MonadIO m) =>+    Word32 ->                               -- keyval+    m Bool+keyvalIsUpper keyval = liftIO $ do+    result <- gdk_keyval_is_upper keyval+    let result' = (/= 0) result+    return result'++-- function gdk_keyval_name+-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyval_name" gdk_keyval_name :: +    Word32 ->                               -- keyval : TBasicType TUInt32+    IO CString+++keyvalName ::+    (MonadIO m) =>+    Word32 ->                               -- keyval+    m T.Text+keyvalName keyval = liftIO $ do+    result <- gdk_keyval_name keyval+    checkUnexpectedReturnNULL "gdk_keyval_name" result+    result' <- cstringToText result+    return result'++-- function gdk_keyval_to_lower+-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyval_to_lower" gdk_keyval_to_lower :: +    Word32 ->                               -- keyval : TBasicType TUInt32+    IO Word32+++keyvalToLower ::+    (MonadIO m) =>+    Word32 ->                               -- keyval+    m Word32+keyvalToLower keyval = liftIO $ do+    result <- gdk_keyval_to_lower keyval+    return result++-- function gdk_keyval_to_unicode+-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyval_to_unicode" gdk_keyval_to_unicode :: +    Word32 ->                               -- keyval : TBasicType TUInt32+    IO Word32+++keyvalToUnicode ::+    (MonadIO m) =>+    Word32 ->                               -- keyval+    m Word32+keyvalToUnicode keyval = liftIO $ do+    result <- gdk_keyval_to_unicode keyval+    return result++-- function gdk_keyval_to_upper+-- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyval_to_upper" gdk_keyval_to_upper :: +    Word32 ->                               -- keyval : TBasicType TUInt32+    IO Word32+++keyvalToUpper ::+    (MonadIO m) =>+    Word32 ->                               -- keyval+    m Word32+keyvalToUpper keyval = liftIO $ do+    result <- gdk_keyval_to_upper keyval+    return result++-- function gdk_list_visuals+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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]+listVisuals  = liftIO $ do+    result <- gdk_list_visuals+    checkUnexpectedReturnNULL "gdk_list_visuals" result+    result' <- unpackGList result+    result'' <- mapM (newObject Visual) result'+    g_list_free result+    return result''++-- function gdk_notify_startup_complete+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_notify_startup_complete" gdk_notify_startup_complete :: +    IO ()+++notifyStartupComplete ::+    (MonadIO m) =>+    m ()+notifyStartupComplete  = liftIO $ do+    gdk_notify_startup_complete+    return ()++-- function gdk_notify_startup_complete_with_id+-- Args : [Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                               -- startup_id+    m ()+notifyStartupCompleteWithId startup_id = liftIO $ do+    startup_id' <- textToCString startup_id+    gdk_notify_startup_complete_with_id startup_id'+    freeMem startup_id'+    return ()++-- function gdk_offscreen_window_get_embedder+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Window+offscreenWindowGetEmbedder window = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    result <- gdk_offscreen_window_get_embedder window'+    checkUnexpectedReturnNULL "gdk_offscreen_window_get_embedder" result+    result' <- (newObject Window) result+    touchManagedPtr window+    return result'++-- function gdk_offscreen_window_get_surface+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Cairo.Surface+offscreenWindowGetSurface window = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    result <- gdk_offscreen_window_get_surface window'+    checkUnexpectedReturnNULL "gdk_offscreen_window_get_surface" result+    result' <- (newBoxed Cairo.Surface) result+    touchManagedPtr window+    return result'++-- function gdk_offscreen_window_set_embedder+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_pango_context_get+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+pangoContextGet  = liftIO $ do+    result <- gdk_pango_context_get+    checkUnexpectedReturnNULL "gdk_pango_context_get" result+    result' <- (wrapObject Pango.Context) result+    return result'++-- function gdk_pango_context_get_for_screen+-- Args : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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_parse_args+-- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_parse_args" gdk_parse_args :: +    Ptr Int32 ->                            -- argc : TBasicType TInt32+    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)+    IO ()+++parseArgs ::+    (MonadIO m) =>+    [T.Text] ->                             -- argv+    m ([T.Text])+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_pixbuf_get_from_surface+-- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- src_y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO (Ptr GdkPixbuf.Pixbuf)+++pixbufGetFromSurface ::+    (MonadIO m) =>+    Cairo.Surface ->                        -- surface+    Int32 ->                                -- src_x+    Int32 ->                                -- src_y+    Int32 ->                                -- width+    Int32 ->                                -- height+    m GdkPixbuf.Pixbuf+pixbufGetFromSurface surface src_x src_y width height = liftIO $ do+    let surface' = unsafeManagedPtrGetPtr surface+    result <- gdk_pixbuf_get_from_surface surface' src_x src_y width height+    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_surface" result+    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    touchManagedPtr surface+    return result'++-- function gdk_pixbuf_get_from_window+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- src_y : TBasicType TInt32+    Int32 ->                                -- width : TBasicType TInt32+    Int32 ->                                -- height : TBasicType TInt32+    IO (Ptr GdkPixbuf.Pixbuf)+++pixbufGetFromWindow ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- window+    Int32 ->                                -- src_x+    Int32 ->                                -- src_y+    Int32 ->                                -- width+    Int32 ->                                -- height+    m GdkPixbuf.Pixbuf+pixbufGetFromWindow window src_x src_y width height = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    result <- gdk_pixbuf_get_from_window window' src_x src_y width height+    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_window" result+    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    touchManagedPtr window+    return result'++-- function gdk_pointer_grab+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                                 -- owner_events+    [EventMask] ->                          -- event_mask+    Maybe (b) ->                            -- confine_to+    Maybe (c) ->                            -- cursor+    Word32 ->                               -- time_+    m GrabStatus+pointerGrab window owner_events event_mask confine_to cursor time_ = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let owner_events' = (fromIntegral . fromEnum) owner_events+    let event_mask' = gflagsToWord event_mask+    maybeConfine_to <- case confine_to of+        Nothing -> return nullPtr+        Just jConfine_to -> do+            let jConfine_to' = unsafeManagedPtrCastPtr jConfine_to+            return jConfine_to'+    maybeCursor <- case cursor of+        Nothing -> return nullPtr+        Just jCursor -> do+            let jCursor' = unsafeManagedPtrCastPtr jCursor+            return jCursor'+    result <- gdk_pointer_grab window' owner_events' event_mask' maybeConfine_to maybeCursor time_+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr window+    whenJust confine_to touchManagedPtr+    whenJust cursor touchManagedPtr+    return result'++-- function gdk_pointer_is_grabbed+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : 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+pointerIsGrabbed  = liftIO $ do+    result <- gdk_pointer_is_grabbed+    let result' = (/= 0) result+    return result'++-- function gdk_pointer_ungrab+-- Args : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+pointerUngrab time_ = liftIO $ do+    gdk_pointer_ungrab time_+    return ()++-- function gdk_pre_parse_libgtk_only+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- 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 ()+preParseLibgtkOnly  = liftIO $ do+    gdk_pre_parse_libgtk_only+    return ()++-- function gdk_property_delete+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_property_get+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pdelete", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actual_property_type", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actual_format", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "data", argType = TCArray False (-1) 8 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pdelete", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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"+    Word64 ->                               -- offset : TBasicType TUInt64+    Word64 ->                               -- length : TBasicType TUInt64+    Int32 ->                                -- pdelete : TBasicType TInt32+    Ptr (Ptr Atom) ->                       -- actual_property_type : TInterface "Gdk" "Atom"+    Ptr Int32 ->                            -- actual_format : TBasicType TInt32+    Ptr Int32 ->                            -- actual_length : TBasicType TInt32+    Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 8 (TBasicType TUInt8)+    IO CInt+++propertyGet ::+    (MonadIO m, WindowK a) =>+    a ->                                    -- window+    Atom ->                                 -- property+    Atom ->                                 -- type+    Word64 ->                               -- offset+    Word64 ->                               -- length+    Int32 ->                                -- pdelete+    m (Bool,Atom,Int32,ByteString)+propertyGet window property type_ offset length_ pdelete = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let property' = unsafeManagedPtrGetPtr property+    let type_' = unsafeManagedPtrGetPtr type_+    actual_property_type <- allocMem :: IO (Ptr (Ptr Atom))+    actual_format <- allocMem :: IO (Ptr Int32)+    actual_length <- allocMem :: IO (Ptr Int32)+    data_ <- allocMem :: IO (Ptr (Ptr Word8))+    result <- gdk_property_get window' property' type_' offset length_ pdelete actual_property_type actual_format actual_length data_+    actual_length' <- peek actual_length+    let result' = (/= 0) result+    actual_property_type' <- peek actual_property_type+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    actual_property_type'' <- (\x -> Atom <$> newForeignPtr_ x) actual_property_type'+    actual_format' <- peek actual_format+    data_' <- peek data_+    data_'' <- (unpackByteStringWithLength actual_length') data_'+    freeMem data_'+    touchManagedPtr window+    touchManagedPtr property+    touchManagedPtr type_+    freeMem actual_property_type+    freeMem actual_format+    freeMem actual_length+    freeMem data_+    return (result', actual_property_type'', actual_format', data_'')++-- function gdk_query_depths+-- Args : [Arg {argName = "depths", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_query_depths" gdk_query_depths :: +    Ptr (Ptr Int32) ->                      -- depths : TCArray False (-1) 1 (TBasicType TInt32)+    Ptr Int32 ->                            -- count : TBasicType TInt32+    IO ()+++queryDepths ::+    (MonadIO m) =>+    m ([Int32])+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_query_visual_types+-- Args : [Arg {argName = "visual_types", argType = TCArray False (-1) 1 (TInterface "Gdk" "VisualType"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- hInArgs : []+-- returnType : TBasicType TVoid+-- 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 TInt32+    IO ()+++queryVisualTypes ::+    (MonadIO m) =>+    m ([VisualType])+queryVisualTypes  = liftIO $ do+    visual_types <- allocMem :: IO (Ptr (Ptr CUInt))+    count <- allocMem :: IO (Ptr Int32)+    gdk_query_visual_types visual_types count+    count' <- peek count+    visual_types' <- peek visual_types+    visual_types'' <- (unpackStorableArrayWithLength count') visual_types'+    let visual_types''' = map (toEnum . fromIntegral) visual_types''+    freeMem visual_types+    freeMem count+    return visual_types'''++-- function gdk_selection_convert+-- Args : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_selection_owner_get+-- Args : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Window+selectionOwnerGet selection = liftIO $ do+    let selection' = unsafeManagedPtrGetPtr selection+    result <- gdk_selection_owner_get selection'+    checkUnexpectedReturnNULL "gdk_selection_owner_get" result+    result' <- (newObject Window) result+    touchManagedPtr selection+    return result'++-- function gdk_selection_owner_get_for_display+-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 Window+selectionOwnerGetForDisplay display selection = liftIO $ do+    let display' = unsafeManagedPtrCastPtr display+    let selection' = unsafeManagedPtrGetPtr selection+    result <- gdk_selection_owner_get_for_display display' selection'+    checkUnexpectedReturnNULL "gdk_selection_owner_get_for_display" result+    result' <- (newObject Window) result+    touchManagedPtr display+    touchManagedPtr selection+    return result'++-- function gdk_selection_owner_set+-- Args : [Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                                 -- send_event+    m Bool+selectionOwnerSet owner selection time_ send_event = liftIO $ do+    maybeOwner <- case owner of+        Nothing -> return nullPtr+        Just jOwner -> do+            let jOwner' = unsafeManagedPtrCastPtr jOwner+            return jOwner'+    let selection' = unsafeManagedPtrGetPtr selection+    let send_event' = (fromIntegral . fromEnum) send_event+    result <- gdk_selection_owner_set maybeOwner selection' time_ send_event'+    let result' = (/= 0) result+    whenJust owner touchManagedPtr+    touchManagedPtr selection+    return result'++-- function gdk_selection_owner_set_for_display+-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 ->                                 -- send_event+    m Bool+selectionOwnerSetForDisplay display owner selection time_ send_event = 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 send_event' = (fromIntegral . fromEnum) send_event+    result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time_ send_event'+    let result' = (/= 0) result+    touchManagedPtr display+    whenJust owner touchManagedPtr+    touchManagedPtr selection+    return result'++-- function gdk_selection_send_notify+-- Args : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_send_notify_for_display+-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+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_set_allowed_backends+-- Args : [Arg {argName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+setAllowedBackends backends = liftIO $ do+    backends' <- textToCString backends+    gdk_set_allowed_backends backends'+    freeMem backends'+    return ()++-- function gdk_set_double_click_time+-- Args : [Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_set_double_click_time" gdk_set_double_click_time :: +    Word32 ->                               -- msec : TBasicType TUInt32+    IO ()+++setDoubleClickTime ::+    (MonadIO m) =>+    Word32 ->                               -- msec+    m ()+setDoubleClickTime msec = liftIO $ do+    gdk_set_double_click_time msec+    return ()++-- function gdk_set_program_class+-- Args : [Arg {argName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                               -- program_class+    m ()+setProgramClass program_class = liftIO $ do+    program_class' <- textToCString program_class+    gdk_set_program_class program_class'+    freeMem program_class'+    return ()++-- function gdk_set_show_events+-- Args : [Arg {argName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ->                                 -- show_events+    m ()+setShowEvents show_events = liftIO $ do+    let show_events' = (fromIntegral . fromEnum) show_events+    gdk_set_show_events show_events'+    return ()++-- function gdk_setting_get+-- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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+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_synthesize_window_state+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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] ->                        -- unset_flags+    [WindowState] ->                        -- set_flags+    m ()+synthesizeWindowState window unset_flags set_flags_ = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let unset_flags' = gflagsToWord unset_flags+    let set_flags_' = gflagsToWord set_flags_+    gdk_synthesize_window_state window' unset_flags' set_flags_'+    touchManagedPtr window+    return ()++-- function gdk_test_render_sync+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TVoid+-- 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 ()+testRenderSync window = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    gdk_test_render_sync window'+    touchManagedPtr window+    return ()++-- function gdk_test_simulate_button+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Word32 ->                               -- button : TBasicType TUInt32+    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 ->                            -- button_pressrelease+    m Bool+testSimulateButton window x y button modifiers button_pressrelease = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let modifiers' = gflagsToWord modifiers+    let button_pressrelease' = (fromIntegral . fromEnum) button_pressrelease+    result <- gdk_test_simulate_button window' x y button modifiers' button_pressrelease'+    let result' = (/= 0) result+    touchManagedPtr window+    return result'++-- function gdk_test_simulate_key+-- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 TInt32+    Int32 ->                                -- y : TBasicType TInt32+    Word32 ->                               -- keyval : TBasicType TUInt32+    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 ->                            -- key_pressrelease+    m Bool+testSimulateKey window x y keyval modifiers key_pressrelease = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let modifiers' = gflagsToWord modifiers+    let key_pressrelease' = (fromIntegral . fromEnum) key_pressrelease+    result <- gdk_test_simulate_key window' x y keyval modifiers' key_pressrelease'+    let result' = (/= 0) result+    touchManagedPtr window+    return result'++-- function gdk_text_property_to_utf8_list_for_display+-- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]+-- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TInt32+-- 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 TInt32+    Ptr Word8 ->                            -- text : TCArray False (-1) 4 (TBasicType TUInt8)+    Int32 ->                                -- length : TBasicType TInt32+    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])+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_threads_add_idle_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_threads_add_idle_full" gdk_threads_add_idle_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++threadsAddIdle ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    GLib.SourceFunc ->                      -- function+    m Word32+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_threads_add_timeout_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_threads_add_timeout_full" gdk_threads_add_timeout_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    Word32 ->                               -- interval : TBasicType TUInt32+    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++threadsAddTimeout ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    Word32 ->                               -- interval+    GLib.SourceFunc ->                      -- function+    m Word32+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_timeout_seconds_full+-- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- throws : False+-- Skip return : False++foreign import ccall "gdk_threads_add_timeout_seconds_full" gdk_threads_add_timeout_seconds_full :: +    Int32 ->                                -- priority : TBasicType TInt32+    Word32 ->                               -- interval : TBasicType TUInt32+    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"+    Ptr () ->                               -- data : TBasicType TVoid+    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"+    IO Word32+++threadsAddTimeoutSeconds ::+    (MonadIO m) =>+    Int32 ->                                -- priority+    Word32 ->                               -- interval+    GLib.SourceFunc ->                      -- function+    m Word32+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_enter+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- 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 ()+threadsEnter  = liftIO $ do+    gdk_threads_enter+    return ()++-- function gdk_threads_init+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- 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 ()+threadsInit  = liftIO $ do+    gdk_threads_init+    return ()++-- function gdk_threads_leave+-- Args : []+-- Lengths : []+-- hInArgs : []+-- returnType : TBasicType TVoid+-- 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 ()+threadsLeave  = liftIO $ do+    gdk_threads_leave+    return ()++-- function gdk_unicode_to_keyval+-- Args : [Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : TBasicType TUInt32+-- 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+unicodeToKeyval wc = liftIO $ do+    result <- gdk_unicode_to_keyval wc+    return result++-- function gdk_utf8_to_string_target+-- Args : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- Lengths : []+-- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]+-- returnType : 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 T.Text+utf8ToStringTarget str = liftIO $ do+    str' <- textToCString str+    result <- gdk_utf8_to_string_target str'+    checkUnexpectedReturnNULL "gdk_utf8_to_string_target" result+    result' <- cstringToText result+    freeMem result+    freeMem str'+    return result'
− GI/Gdk/Callbacks.hs 
@@ -1,196 +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 Prelude ()-import Data.GI.Base.ShortPrelude--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,9140 +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 Prelude ()-import Data.GI.Base.ShortPrelude--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,1355 +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(..)                     ,-    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 Prelude ()-import Data.GI.Base.ShortPrelude--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 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-    | 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 (AnotherModifierIntent k) = k--    toEnum 0 = ModifierIntentPrimaryAccelerator-    toEnum 1 = ModifierIntentContextMenu-    toEnum 2 = ModifierIntentExtendSelection-    toEnum 3 = ModifierIntentModifySelection-    toEnum 4 = ModifierIntentNoTextInput-    toEnum 5 = ModifierIntentShiftGroup-    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-    | 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 EventTypeEventLast = 41-    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 = 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,533 +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 Prelude ()-import Data.GI.Base.ShortPrelude--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 BoxedEnum WindowState where-    boxedEnumType _ = 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 BoxedEnum WindowHints where-    boxedEnumType _ = 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 BoxedEnum WindowAttributesType where-    boxedEnumType _ = 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 BoxedEnum WMFunction where-    boxedEnumType _ = 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 BoxedEnum WMDecoration where-    boxedEnumType _ = 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 BoxedEnum ModifierType where-    boxedEnumType _ = 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 BoxedEnum FrameClockPhase where-    boxedEnumType _ = 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-    | 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 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 k = AnotherEventMask k--foreign import ccall "gdk_event_mask_get_type" c_gdk_event_mask_get_type :: -    IO GType--instance BoxedEnum EventMask where-    boxedEnumType _ = 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 BoxedEnum DragAction where-    boxedEnumType _ = c_gdk_drag_action_get_type--instance IsGFlag DragAction--
− GI/Gdk/Functions.hs 
@@ -1,3419 +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              ,----- ** atomIntern-    atomIntern                              ,----- ** atomInternStaticString-    atomInternStaticString                  ,----- ** beep-    beep                                    ,----- ** cairoCreate-    cairoCreate                             ,----- ** cairoDrawFromGl-    cairoDrawFromGl                         ,----- ** cairoGetClipRectangle-    cairoGetClipRectangle                   ,----- ** cairoRectangle-    cairoRectangle                          ,----- ** cairoRegion-    cairoRegion                             ,----- ** cairoRegionCreateFromSurface-    cairoRegionCreateFromSurface            ,----- ** cairoSetSourceColor-    cairoSetSourceColor                     ,----- ** cairoSetSourcePixbuf-    cairoSetSourcePixbuf                    ,----- ** cairoSetSourceRgba-    cairoSetSourceRgba                      ,----- ** cairoSetSourceWindow-    cairoSetSourceWindow                    ,----- ** cairoSurfaceCreateFromPixbuf-    cairoSurfaceCreateFromPixbuf            ,----- ** colorParse-    colorParse                              ,----- ** 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                           ,----- ** eventGet-    eventGet                                ,----- ** eventHandlerSet-    eventHandlerSet                         ,----- ** eventPeek-    eventPeek                               ,----- ** eventRequestMotions-    eventRequestMotions                     ,----- ** eventsGetAngle-    eventsGetAngle                          ,----- ** eventsGetCenter-    eventsGetCenter                         ,----- ** eventsGetDistance-    eventsGetDistance                       ,----- ** eventsPending-    eventsPending                           ,----- ** flush-    flush                                   ,----- ** getDefaultRootWindow-    getDefaultRootWindow                    ,----- ** getDisplay-    getDisplay                              ,----- ** getDisplayArgName-    getDisplayArgName                       ,----- ** getProgramClass-    getProgramClass                         ,----- ** getShowEvents-    getShowEvents                           ,----- ** glErrorQuark-    glErrorQuark                            ,----- ** 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                        ,----- ** rectangleGetType-    rectangleGetType                        ,----- ** rectangleIntersect-    rectangleIntersect                      ,----- ** rectangleUnion-    rectangleUnion                          ,----- ** 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 Prelude ()-import Data.GI.Base.ShortPrelude--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 {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 T.Text-utf8ToStringTarget str = liftIO $ do-    str' <- textToCString str-    result <- gdk_utf8_to_string_target str'-    checkUnexpectedReturnNULL "gdk_utf8_to_string_target" result-    result' <- cstringToText result-    freeMem result-    freeMem str'-    return result'----- function gdk_unicode_to_keyval--- Args : [Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- 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-unicodeToKeyval wc = liftIO $ do-    result <- gdk_unicode_to_keyval wc-    return result----- function gdk_threads_leave--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- 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 ()-threadsLeave  = liftIO $ do-    gdk_threads_leave-    return ()----- function gdk_threads_init--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- 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 ()-threadsInit  = liftIO $ do-    gdk_threads_init-    return ()----- function gdk_threads_enter--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- 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 ()-threadsEnter  = liftIO $ do-    gdk_threads_enter-    return ()----- function gdk_threads_add_timeout_seconds_full--- Args : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_add_timeout_seconds_full" gdk_threads_add_timeout_seconds_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Word32 ->                               -- interval : TBasicType TUInt32-    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---threadsAddTimeoutSeconds ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    Word32 ->                               -- interval-    GLib.SourceFunc ->                      -- function-    m Word32-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 {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_add_timeout_full" gdk_threads_add_timeout_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Word32 ->                               -- interval : TBasicType TUInt32-    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---threadsAddTimeout ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    Word32 ->                               -- interval-    GLib.SourceFunc ->                      -- function-    m Word32-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 {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_threads_add_idle_full" gdk_threads_add_idle_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO Word32---threadsAddIdle ::-    (MonadIO m) =>-    Int32 ->                                -- priority-    GLib.SourceFunc ->                      -- function-    m Word32-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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "list", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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 TInt32-    Ptr Word8 ->                            -- text : TCArray False (-1) 4 (TBasicType TUInt8)-    Int32 ->                                -- length : TBasicType TInt32-    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])-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 {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Word32 ->                               -- keyval : TBasicType TUInt32-    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 ->                            -- key_pressrelease-    m Bool-testSimulateKey window x y keyval modifiers key_pressrelease = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let modifiers' = gflagsToWord modifiers-    let key_pressrelease' = (fromIntegral . fromEnum) key_pressrelease-    result <- gdk_test_simulate_key window' x y keyval modifiers' key_pressrelease'-    let result' = (/= 0) result-    touchManagedPtr window-    return result'----- function gdk_test_simulate_button--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Word32 ->                               -- button : TBasicType TUInt32-    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 ->                            -- button_pressrelease-    m Bool-testSimulateButton window x y button modifiers button_pressrelease = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let modifiers' = gflagsToWord modifiers-    let button_pressrelease' = (fromIntegral . fromEnum) button_pressrelease-    result <- gdk_test_simulate_button window' x y button modifiers' button_pressrelease'-    let result' = (/= 0) result-    touchManagedPtr window-    return result'----- function gdk_test_render_sync--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-testRenderSync window = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    gdk_test_render_sync window'-    touchManagedPtr window-    return ()----- function gdk_synthesize_window_state--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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] ->                        -- unset_flags-    [WindowState] ->                        -- set_flags-    m ()-synthesizeWindowState window unset_flags set_flags_ = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let unset_flags' = gflagsToWord unset_flags-    let set_flags_' = gflagsToWord set_flags_-    gdk_synthesize_window_state window' unset_flags' set_flags_'-    touchManagedPtr window-    return ()----- function gdk_setting_get--- Args : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 {argName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- show_events-    m ()-setShowEvents show_events = liftIO $ do-    let show_events' = (fromIntegral . fromEnum) show_events-    gdk_set_show_events show_events'-    return ()----- function gdk_set_program_class--- Args : [Arg {argName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                               -- program_class-    m ()-setProgramClass program_class = liftIO $ do-    program_class' <- textToCString program_class-    gdk_set_program_class program_class'-    freeMem program_class'-    return ()----- function gdk_set_double_click_time--- Args : [Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_set_double_click_time" gdk_set_double_click_time :: -    Word32 ->                               -- msec : TBasicType TUInt32-    IO ()---setDoubleClickTime ::-    (MonadIO m) =>-    Word32 ->                               -- msec-    m ()-setDoubleClickTime msec = liftIO $ do-    gdk_set_double_click_time msec-    return ()----- function gdk_set_allowed_backends--- Args : [Arg {argName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-setAllowedBackends backends = liftIO $ do-    backends' <- textToCString backends-    gdk_set_allowed_backends backends'-    freeMem backends'-    return ()----- function gdk_selection_send_notify_for_display--- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                                 -- send_event-    m Bool-selectionOwnerSetForDisplay display owner selection time_ send_event = 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 send_event' = (fromIntegral . fromEnum) send_event-    result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time_ send_event'-    let result' = (/= 0) result-    touchManagedPtr display-    whenJust owner touchManagedPtr-    touchManagedPtr selection-    return result'----- function gdk_selection_owner_set--- Args : [Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                                 -- send_event-    m Bool-selectionOwnerSet owner selection time_ send_event = liftIO $ do-    maybeOwner <- case owner of-        Nothing -> return nullPtr-        Just jOwner -> do-            let jOwner' = unsafeManagedPtrCastPtr jOwner-            return jOwner'-    let selection' = unsafeManagedPtrGetPtr selection-    let send_event' = (fromIntegral . fromEnum) send_event-    result <- gdk_selection_owner_set maybeOwner selection' time_ send_event'-    let result' = (/= 0) result-    whenJust owner touchManagedPtr-    touchManagedPtr selection-    return result'----- function gdk_selection_owner_get_for_display--- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Window-selectionOwnerGetForDisplay display selection = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let selection' = unsafeManagedPtrGetPtr selection-    result <- gdk_selection_owner_get_for_display display' selection'-    checkUnexpectedReturnNULL "gdk_selection_owner_get_for_display" result-    result' <- (newObject Window) result-    touchManagedPtr display-    touchManagedPtr selection-    return result'----- function gdk_selection_owner_get--- Args : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Window-selectionOwnerGet selection = liftIO $ do-    let selection' = unsafeManagedPtrGetPtr selection-    result <- gdk_selection_owner_get selection'-    checkUnexpectedReturnNULL "gdk_selection_owner_get" result-    result' <- (newObject Window) result-    touchManagedPtr selection-    return result'----- function gdk_selection_convert--- Args : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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_rectangle_union--- Args : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_rectangle_union" gdk_rectangle_union :: -    Ptr Cairo.RectangleInt ->               -- src1 : TInterface "cairo" "RectangleInt"-    Ptr Cairo.RectangleInt ->               -- src2 : TInterface "cairo" "RectangleInt"-    Ptr Cairo.RectangleInt ->               -- dest : TInterface "cairo" "RectangleInt"-    IO ()---rectangleUnion ::-    (MonadIO m) =>-    Cairo.RectangleInt ->                   -- src1-    Cairo.RectangleInt ->                   -- src2-    m (Cairo.RectangleInt)-rectangleUnion src1 src2 = liftIO $ do-    let src1' = unsafeManagedPtrGetPtr src1-    let src2' = unsafeManagedPtrGetPtr src2-    dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    gdk_rectangle_union src1' src2' dest-    dest' <- (wrapBoxed Cairo.RectangleInt) dest-    touchManagedPtr src1-    touchManagedPtr src2-    return dest'----- function gdk_rectangle_intersect--- Args : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "src1", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src2", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "gdk_rectangle_intersect" gdk_rectangle_intersect :: -    Ptr Cairo.RectangleInt ->               -- src1 : TInterface "cairo" "RectangleInt"-    Ptr Cairo.RectangleInt ->               -- src2 : TInterface "cairo" "RectangleInt"-    Ptr Cairo.RectangleInt ->               -- dest : TInterface "cairo" "RectangleInt"-    IO CInt---rectangleIntersect ::-    (MonadIO m) =>-    Cairo.RectangleInt ->                   -- src1-    Cairo.RectangleInt ->                   -- src2-    m (Bool,Cairo.RectangleInt)-rectangleIntersect src1 src2 = liftIO $ do-    let src1' = unsafeManagedPtrGetPtr src1-    let src2' = unsafeManagedPtrGetPtr src2-    dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    result <- gdk_rectangle_intersect src1' src2' dest-    let result' = (/= 0) result-    dest' <- (wrapBoxed Cairo.RectangleInt) dest-    touchManagedPtr src1-    touchManagedPtr src2-    return (result', dest')----- function gdk_rectangle_get_type--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TGType--- throws : False--- Skip return : False--foreign import ccall "gdk_rectangle_get_type" gdk_rectangle_get_type :: -    IO CGType---rectangleGetType ::-    (MonadIO m) =>-    m GType-rectangleGetType  = liftIO $ do-    result <- gdk_rectangle_get_type-    let result' = GType result-    return result'----- function gdk_query_visual_types--- Args : [Arg {argName = "visual_types", argType = TCArray False (-1) 1 (TInterface "Gdk" "VisualType"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : []--- returnType : TBasicType TVoid--- 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 TInt32-    IO ()---queryVisualTypes ::-    (MonadIO m) =>-    m ([VisualType])-queryVisualTypes  = liftIO $ do-    visual_types <- allocMem :: IO (Ptr (Ptr CUInt))-    count <- allocMem :: IO (Ptr Int32)-    gdk_query_visual_types visual_types count-    count' <- peek count-    visual_types' <- peek visual_types-    visual_types'' <- (unpackStorableArrayWithLength count') visual_types'-    let visual_types''' = map (toEnum . fromIntegral) visual_types''-    freeMem visual_types-    freeMem count-    return visual_types'''----- function gdk_query_depths--- Args : [Arg {argName = "depths", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_query_depths" gdk_query_depths :: -    Ptr (Ptr Int32) ->                      -- depths : TCArray False (-1) 1 (TBasicType TInt32)-    Ptr Int32 ->                            -- count : TBasicType TInt32-    IO ()---queryDepths ::-    (MonadIO m) =>-    m ([Int32])-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 {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pdelete", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actual_property_type", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "actual_format", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "data", argType = TCArray False (-1) 8 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pdelete", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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"-    Word64 ->                               -- offset : TBasicType TUInt64-    Word64 ->                               -- length : TBasicType TUInt64-    Int32 ->                                -- pdelete : TBasicType TInt32-    Ptr (Ptr Atom) ->                       -- actual_property_type : TInterface "Gdk" "Atom"-    Ptr Int32 ->                            -- actual_format : TBasicType TInt32-    Ptr Int32 ->                            -- actual_length : TBasicType TInt32-    Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 8 (TBasicType TUInt8)-    IO CInt---propertyGet ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- window-    Atom ->                                 -- property-    Atom ->                                 -- type-    Word64 ->                               -- offset-    Word64 ->                               -- length-    Int32 ->                                -- pdelete-    m (Bool,Atom,Int32,ByteString)-propertyGet window property type_ offset length_ pdelete = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let property' = unsafeManagedPtrGetPtr property-    let type_' = unsafeManagedPtrGetPtr type_-    actual_property_type <- allocMem :: IO (Ptr (Ptr Atom))-    actual_format <- allocMem :: IO (Ptr Int32)-    actual_length <- allocMem :: IO (Ptr Int32)-    data_ <- allocMem :: IO (Ptr (Ptr Word8))-    result <- gdk_property_get window' property' type_' offset length_ pdelete actual_property_type actual_format actual_length data_-    actual_length' <- peek actual_length-    let result' = (/= 0) result-    actual_property_type' <- peek actual_property_type-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    actual_property_type'' <- (\x -> Atom <$> newForeignPtr_ x) actual_property_type'-    actual_format' <- peek actual_format-    data_' <- peek data_-    data_'' <- (unpackByteStringWithLength actual_length') data_'-    freeMem data_'-    touchManagedPtr window-    touchManagedPtr property-    touchManagedPtr type_-    freeMem actual_property_type-    freeMem actual_format-    freeMem actual_length-    freeMem data_-    return (result', actual_property_type'', actual_format', data_'')----- function gdk_property_delete--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 : []--- hInArgs : []--- returnType : TBasicType TVoid--- 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 ()-preParseLibgtkOnly  = liftIO $ do-    gdk_pre_parse_libgtk_only-    return ()----- function gdk_pointer_ungrab--- Args : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-pointerUngrab time_ = liftIO $ do-    gdk_pointer_ungrab time_-    return ()----- function gdk_pointer_is_grabbed--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-pointerIsGrabbed  = liftIO $ do-    result <- gdk_pointer_is_grabbed-    let result' = (/= 0) result-    return result'----- function gdk_pointer_grab--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                                 -- owner_events-    [EventMask] ->                          -- event_mask-    Maybe (b) ->                            -- confine_to-    Maybe (c) ->                            -- cursor-    Word32 ->                               -- time_-    m GrabStatus-pointerGrab window owner_events event_mask confine_to cursor time_ = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let owner_events' = (fromIntegral . fromEnum) owner_events-    let event_mask' = gflagsToWord event_mask-    maybeConfine_to <- case confine_to of-        Nothing -> return nullPtr-        Just jConfine_to -> do-            let jConfine_to' = unsafeManagedPtrCastPtr jConfine_to-            return jConfine_to'-    maybeCursor <- case cursor of-        Nothing -> return nullPtr-        Just jCursor -> do-            let jCursor' = unsafeManagedPtrCastPtr jCursor-            return jCursor'-    result <- gdk_pointer_grab window' owner_events' event_mask' maybeConfine_to maybeCursor time_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr window-    whenJust confine_to touchManagedPtr-    whenJust cursor touchManagedPtr-    return result'----- function gdk_pixbuf_get_from_window--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- src_y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO (Ptr GdkPixbuf.Pixbuf)---pixbufGetFromWindow ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- window-    Int32 ->                                -- src_x-    Int32 ->                                -- src_y-    Int32 ->                                -- width-    Int32 ->                                -- height-    m GdkPixbuf.Pixbuf-pixbufGetFromWindow window src_x src_y width height = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_pixbuf_get_from_window window' src_x src_y width height-    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_window" result-    result' <- (wrapObject GdkPixbuf.Pixbuf) result-    touchManagedPtr window-    return result'----- function gdk_pixbuf_get_from_surface--- Args : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- src_y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO (Ptr GdkPixbuf.Pixbuf)---pixbufGetFromSurface ::-    (MonadIO m) =>-    Cairo.Surface ->                        -- surface-    Int32 ->                                -- src_x-    Int32 ->                                -- src_y-    Int32 ->                                -- width-    Int32 ->                                -- height-    m GdkPixbuf.Pixbuf-pixbufGetFromSurface surface src_x src_y width height = liftIO $ do-    let surface' = unsafeManagedPtrGetPtr surface-    result <- gdk_pixbuf_get_from_surface surface' src_x src_y width height-    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_surface" result-    result' <- (wrapObject GdkPixbuf.Pixbuf) result-    touchManagedPtr surface-    return result'----- function gdk_parse_args--- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_parse_args" gdk_parse_args :: -    Ptr Int32 ->                            -- argc : TBasicType TInt32-    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)-    IO ()---parseArgs ::-    (MonadIO m) =>-    [T.Text] ->                             -- argv-    m ([T.Text])-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 {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 : []--- hInArgs : []--- returnType : 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-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 {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Cairo.Surface-offscreenWindowGetSurface window = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_offscreen_window_get_surface window'-    checkUnexpectedReturnNULL "gdk_offscreen_window_get_surface" result-    result' <- (newBoxed Cairo.Surface) result-    touchManagedPtr window-    return result'----- function gdk_offscreen_window_get_embedder--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Window-offscreenWindowGetEmbedder window = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    result <- gdk_offscreen_window_get_embedder window'-    checkUnexpectedReturnNULL "gdk_offscreen_window_get_embedder" result-    result' <- (newObject Window) result-    touchManagedPtr window-    return result'----- function gdk_notify_startup_complete_with_id--- Args : [Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                               -- startup_id-    m ()-notifyStartupCompleteWithId startup_id = liftIO $ do-    startup_id' <- textToCString startup_id-    gdk_notify_startup_complete_with_id startup_id'-    freeMem startup_id'-    return ()----- function gdk_notify_startup_complete--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_notify_startup_complete" gdk_notify_startup_complete :: -    IO ()---notifyStartupComplete ::-    (MonadIO m) =>-    m ()-notifyStartupComplete  = liftIO $ do-    gdk_notify_startup_complete-    return ()----- function gdk_list_visuals--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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]-listVisuals  = liftIO $ do-    result <- gdk_list_visuals-    checkUnexpectedReturnNULL "gdk_list_visuals" result-    result' <- unpackGList result-    result'' <- mapM (newObject Visual) result'-    g_list_free result-    return result''----- function gdk_keyval_to_upper--- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_to_upper" gdk_keyval_to_upper :: -    Word32 ->                               -- keyval : TBasicType TUInt32-    IO Word32---keyvalToUpper ::-    (MonadIO m) =>-    Word32 ->                               -- keyval-    m Word32-keyvalToUpper keyval = liftIO $ do-    result <- gdk_keyval_to_upper keyval-    return result----- function gdk_keyval_to_unicode--- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_to_unicode" gdk_keyval_to_unicode :: -    Word32 ->                               -- keyval : TBasicType TUInt32-    IO Word32---keyvalToUnicode ::-    (MonadIO m) =>-    Word32 ->                               -- keyval-    m Word32-keyvalToUnicode keyval = liftIO $ do-    result <- gdk_keyval_to_unicode keyval-    return result----- function gdk_keyval_to_lower--- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_to_lower" gdk_keyval_to_lower :: -    Word32 ->                               -- keyval : TBasicType TUInt32-    IO Word32---keyvalToLower ::-    (MonadIO m) =>-    Word32 ->                               -- keyval-    m Word32-keyvalToLower keyval = liftIO $ do-    result <- gdk_keyval_to_lower keyval-    return result----- function gdk_keyval_name--- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUTF8--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_name" gdk_keyval_name :: -    Word32 ->                               -- keyval : TBasicType TUInt32-    IO CString---keyvalName ::-    (MonadIO m) =>-    Word32 ->                               -- keyval-    m T.Text-keyvalName keyval = liftIO $ do-    result <- gdk_keyval_name keyval-    checkUnexpectedReturnNULL "gdk_keyval_name" result-    result' <- cstringToText result-    return result'----- function gdk_keyval_is_upper--- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_is_upper" gdk_keyval_is_upper :: -    Word32 ->                               -- keyval : TBasicType TUInt32-    IO CInt---keyvalIsUpper ::-    (MonadIO m) =>-    Word32 ->                               -- keyval-    m Bool-keyvalIsUpper keyval = liftIO $ do-    result <- gdk_keyval_is_upper keyval-    let result' = (/= 0) result-    return result'----- function gdk_keyval_is_lower--- Args : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_is_lower" gdk_keyval_is_lower :: -    Word32 ->                               -- keyval : TBasicType TUInt32-    IO CInt---keyvalIsLower ::-    (MonadIO m) =>-    Word32 ->                               -- keyval-    m Bool-keyvalIsLower keyval = liftIO $ do-    result <- gdk_keyval_is_lower keyval-    let result' = (/= 0) result-    return result'----- function gdk_keyval_from_name--- Args : [Arg {argName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- 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 ->                               -- keyval_name-    m Word32-keyvalFromName keyval_name = liftIO $ do-    keyval_name' <- textToCString keyval_name-    result <- gdk_keyval_from_name keyval_name'-    freeMem keyval_name'-    return result----- function gdk_keyval_convert_case--- Args : [Arg {argName = "symbol", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "lower", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "upper", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "symbol", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_keyval_convert_case" gdk_keyval_convert_case :: -    Word32 ->                               -- symbol : TBasicType TUInt32-    Ptr Word32 ->                           -- lower : TBasicType TUInt32-    Ptr Word32 ->                           -- upper : TBasicType TUInt32-    IO ()---keyvalConvertCase ::-    (MonadIO m) =>-    Word32 ->                               -- symbol-    m (Word32,Word32)-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 {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-keyboardUngrab time_ = liftIO $ do-    gdk_keyboard_ungrab time_-    return ()----- function gdk_keyboard_grab--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                                 -- owner_events-    Word32 ->                               -- time_-    m GrabStatus-keyboardGrab window owner_events time_ = liftIO $ do-    let window' = unsafeManagedPtrCastPtr window-    let owner_events' = (fromIntegral . fromEnum) owner_events-    result <- gdk_keyboard_grab window' owner_events' time_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr window-    return result'----- function gdk_init_check--- Args : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "gdk_init_check" gdk_init_check :: -    Ptr Int32 ->                            -- argc : TBasicType TInt32-    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)-    IO CInt---initCheck ::-    (MonadIO m) =>-    [T.Text] ->                             -- argv-    m (Bool,[T.Text])-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 {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_init" gdk_init :: -    Ptr Int32 ->                            -- argc : TBasicType TInt32-    Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)-    IO ()---init ::-    (MonadIO m) =>-    [T.Text] ->                             -- argv-    m ([T.Text])-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_gl_error_quark--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TUInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_error_quark" gdk_gl_error_quark :: -    IO Word32---glErrorQuark ::-    (MonadIO m) =>-    m Word32-glErrorQuark  = liftIO $ do-    result <- gdk_gl_error_quark-    return result----- function gdk_get_show_events--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-getShowEvents  = liftIO $ do-    result <- gdk_get_show_events-    let result' = (/= 0) result-    return result'----- function gdk_get_program_class--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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 : []--- hInArgs : []--- returnType : 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 T.Text-getDisplayArgName  = liftIO $ do-    result <- gdk_get_display_arg_name-    checkUnexpectedReturnNULL "gdk_get_display_arg_name" result-    result' <- cstringToText result-    return result'----- function gdk_get_display--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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 : []--- hInArgs : []--- returnType : 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-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 : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_flush" gdk_flush :: -    IO ()---flush ::-    (MonadIO m) =>-    m ()-flush  = liftIO $ do-    gdk_flush-    return ()----- function gdk_events_pending--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TBoolean--- throws : False--- Skip return : False--foreign import ccall "gdk_events_pending" gdk_events_pending :: -    IO CInt---eventsPending ::-    (MonadIO m) =>-    m Bool-eventsPending  = liftIO $ do-    result <- gdk_events_pending-    let result' = (/= 0) result-    return result'----- function gdk_events_get_distance--- Args : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-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 {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-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 {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "angle", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-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_event_request_motions--- Args : [Arg {argName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "event", argType = TInterface "Gdk" "EventMotion", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-eventRequestMotions event = liftIO $ do-    let event' = unsafeManagedPtrGetPtr event-    gdk_event_request_motions event'-    touchManagedPtr event-    return ()----- function gdk_event_peek--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Gdk" "Event"--- throws : False--- Skip return : False--foreign import ccall "gdk_event_peek" gdk_event_peek :: -    IO (Ptr Event)---eventPeek ::-    (MonadIO m) =>-    m Event-eventPeek  = liftIO $ do-    result <- gdk_event_peek-    checkUnexpectedReturnNULL "gdk_event_peek" result-    result' <- (wrapBoxed Event) result-    return result'----- function gdk_event_handler_set--- Args : [Arg {argName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "func", argType = TInterface "Gdk" "EventFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 1, argDestroy = 2, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TVoid-    FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"-    IO ()---eventHandlerSet ::-    (MonadIO m) =>-    EventFunc ->                            -- func-    m ()-eventHandlerSet func = liftIO $ do-    func' <- mkEventFunc (eventFuncWrapper Nothing func)-    let data_ = castFunPtrToPtr func'-    let notify = safeFreeFunPtrPtr-    gdk_event_handler_set func' data_ notify-    return ()----- function gdk_event_get--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TInterface "Gdk" "Event"--- throws : False--- Skip return : False--foreign import ccall "gdk_event_get" gdk_event_get :: -    IO (Ptr Event)---eventGet ::-    (MonadIO m) =>-    m Event-eventGet  = liftIO $ do-    result <- gdk_event_get-    checkUnexpectedReturnNULL "gdk_event_get" result-    result' <- (wrapBoxed Event) result-    return result'----- function gdk_error_trap_push--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_error_trap_push" gdk_error_trap_push :: -    IO ()---errorTrapPush ::-    (MonadIO m) =>-    m ()-errorTrapPush  = liftIO $ do-    gdk_error_trap_push-    return ()----- function gdk_error_trap_pop_ignored--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_error_trap_pop_ignored" gdk_error_trap_pop_ignored :: -    IO ()---errorTrapPopIgnored ::-    (MonadIO m) =>-    m ()-errorTrapPopIgnored  = liftIO $ do-    gdk_error_trap_pop_ignored-    return ()----- function gdk_error_trap_pop--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_error_trap_pop" gdk_error_trap_pop :: -    IO Int32---errorTrapPop ::-    (MonadIO m) =>-    m Int32-errorTrapPop  = liftIO $ do-    result <- gdk_error_trap_pop-    return result----- function gdk_drop_reply--- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- y_root : TBasicType TInt32-    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 ->                                    -- dest_window-    DragProtocol ->                         -- protocol-    Int32 ->                                -- x_root-    Int32 ->                                -- y_root-    [DragAction] ->                         -- suggested_action-    [DragAction] ->                         -- possible_actions-    Word32 ->                               -- time_-    m Bool-dragMotion context dest_window protocol x_root y_root suggested_action possible_actions time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let dest_window' = unsafeManagedPtrCastPtr dest_window-    let protocol' = (fromIntegral . fromEnum) protocol-    let suggested_action' = gflagsToWord suggested_action-    let possible_actions' = gflagsToWord possible_actions-    result <- gdk_drag_motion context' dest_window' protocol' x_root y_root suggested_action' possible_actions' time_-    let result' = (/= 0) result-    touchManagedPtr context-    touchManagedPtr dest_window-    return result'----- function gdk_drag_get_selection--- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-dragGetSelection context = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    result <- gdk_drag_get_selection context'-    checkUnexpectedReturnNULL "gdk_drag_get_selection" result-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    result' <- (\x -> Atom <$> newForeignPtr_ x) result-    touchManagedPtr context-    return result'----- function gdk_drag_find_window_for_screen--- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- y_root : TBasicType TInt32-    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 ->                                    -- drag_window-    c ->                                    -- screen-    Int32 ->                                -- x_root-    Int32 ->                                -- y_root-    m (Window,DragProtocol)-dragFindWindowForScreen context drag_window screen x_root y_root = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    let drag_window' = unsafeManagedPtrCastPtr drag_window-    let screen' = unsafeManagedPtrCastPtr screen-    dest_window <- allocMem :: IO (Ptr (Ptr Window))-    protocol <- allocMem :: IO (Ptr CUInt)-    gdk_drag_find_window_for_screen context' drag_window' screen' x_root y_root dest_window protocol-    dest_window' <- peek dest_window-    dest_window'' <- (wrapObject Window) dest_window'-    protocol' <- peek protocol-    let protocol'' = (toEnum . fromIntegral) protocol'-    touchManagedPtr context-    touchManagedPtr drag_window-    touchManagedPtr screen-    freeMem dest_window-    freeMem protocol-    return (dest_window'', protocol'')----- function gdk_drag_drop_succeeded--- Args : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-dragAbort context time_ = liftIO $ do-    let context' = unsafeManagedPtrCastPtr context-    gdk_drag_abort context' time_-    touchManagedPtr context-    return ()----- function gdk_disable_multidevice--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_disable_multidevice" gdk_disable_multidevice :: -    IO ()---disableMultidevice ::-    (MonadIO m) =>-    m ()-disableMultidevice  = liftIO $ do-    gdk_disable_multidevice-    return ()----- function gdk_color_parse--- Args : [Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-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')----- function gdk_cairo_surface_create_from_pixbuf--- Args : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    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) ->                            -- for_window-    m Cairo.Surface-cairoSurfaceCreateFromPixbuf pixbuf scale for_window = liftIO $ do-    let pixbuf' = unsafeManagedPtrCastPtr pixbuf-    maybeFor_window <- case for_window of-        Nothing -> return nullPtr-        Just jFor_window -> do-            let jFor_window' = unsafeManagedPtrCastPtr jFor_window-            return jFor_window'-    result <- gdk_cairo_surface_create_from_pixbuf pixbuf' scale maybeFor_window-    checkUnexpectedReturnNULL "gdk_cairo_surface_create_from_pixbuf" result-    result' <- (wrapBoxed Cairo.Surface) result-    touchManagedPtr pixbuf-    whenJust for_window touchManagedPtr-    return result'----- function gdk_cairo_set_source_window--- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                               -- pixbuf_x-    Double ->                               -- pixbuf_y-    m ()-cairoSetSourcePixbuf cr pixbuf pixbuf_x pixbuf_y = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let pixbuf' = unsafeManagedPtrCastPtr pixbuf-    let pixbuf_x' = realToFrac pixbuf_x-    let pixbuf_y' = realToFrac pixbuf_y-    gdk_cairo_set_source_pixbuf cr' pixbuf' pixbuf_x' pixbuf_y'-    touchManagedPtr cr-    touchManagedPtr pixbuf-    return ()----- function gdk_cairo_set_source_color--- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_cairo_rectangle" gdk_cairo_rectangle :: -    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"-    Ptr Cairo.RectangleInt ->               -- rectangle : TInterface "cairo" "RectangleInt"-    IO ()---cairoRectangle ::-    (MonadIO m) =>-    Cairo.Context ->                        -- cr-    Cairo.RectangleInt ->                   -- rectangle-    m ()-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 {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Cairo.RectangleInt ->               -- rect : TInterface "cairo" "RectangleInt"-    IO CInt---cairoGetClipRectangle ::-    (MonadIO m) =>-    Cairo.Context ->                        -- cr-    m (Bool,Cairo.RectangleInt)-cairoGetClipRectangle cr = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    result <- gdk_cairo_get_clip_rectangle cr' rect-    let result' = (/= 0) result-    rect' <- (wrapBoxed Cairo.RectangleInt) rect-    touchManagedPtr cr-    return (result', rect')----- function gdk_cairo_draw_from_gl--- Args : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source_type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "buffer_scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- source_type : TBasicType TInt32-    Int32 ->                                -- buffer_scale : TBasicType TInt32-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO ()---cairoDrawFromGl ::-    (MonadIO m, WindowK a) =>-    Cairo.Context ->                        -- cr-    a ->                                    -- window-    Int32 ->                                -- source-    Int32 ->                                -- source_type-    Int32 ->                                -- buffer_scale-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()-cairoDrawFromGl cr window source source_type buffer_scale x y width height = liftIO $ do-    let cr' = unsafeManagedPtrGetPtr cr-    let window' = unsafeManagedPtrCastPtr window-    gdk_cairo_draw_from_gl cr' window' source source_type buffer_scale x y width height-    touchManagedPtr cr-    touchManagedPtr window-    return ()----- function gdk_cairo_create--- Args : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_beep" gdk_beep :: -    IO ()---beep ::-    (MonadIO m) =>-    m ()-beep  = liftIO $ do-    gdk_beep-    return ()----- function gdk_atom_intern_static_string--- Args : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                               -- atom_name-    m Atom-atomInternStaticString atom_name = liftIO $ do-    atom_name' <- textToCString atom_name-    result <- gdk_atom_intern_static_string atom_name'-    checkUnexpectedReturnNULL "gdk_atom_intern_static_string" result-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    result' <- (\x -> Atom <$> newForeignPtr_ x) result-    freeMem atom_name'-    return result'----- function gdk_atom_intern--- Args : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "atom_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "only_if_exists", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                               -- atom_name-    Bool ->                                 -- only_if_exists-    m Atom-atomIntern atom_name only_if_exists = liftIO $ do-    atom_name' <- textToCString atom_name-    let only_if_exists' = (fromIntegral . fromEnum) only_if_exists-    result <- gdk_atom_intern atom_name' only_if_exists'-    checkUnexpectedReturnNULL "gdk_atom_intern" result-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    result' <- (\x -> Atom <$> newForeignPtr_ x) result-    freeMem atom_name'-    return result'----- function gdk_add_option_entries_libgtk_only--- Args : [Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-addOptionEntriesLibgtkOnly group = liftIO $ do-    let group' = unsafeManagedPtrGetPtr group-    gdk_add_option_entries_libgtk_only group'-    touchManagedPtr group-    return ()---
− GI/Gdk/Objects.hs 
@@ -1,50 +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 Prelude ()-import Data.GI.Base.ShortPrelude--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,314 +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-    appLaunchContextSetDesktop              ,----- ** appLaunchContextSetDisplay-    appLaunchContextSetDisplay              ,----- ** appLaunchContextSetIcon-    appLaunchContextSetIcon                 ,----- ** appLaunchContextSetIconName-    appLaunchContextSetIconName             ,----- ** appLaunchContextSetScreen-    appLaunchContextSetScreen               ,----- ** appLaunchContextSetTimestamp-    appLaunchContextSetTimestamp            ,----- -- * Properties--- ** Display-    AppLaunchContextDisplayPropertyInfo     ,-    constructAppLaunchContextDisplay        ,-    getAppLaunchContextDisplay              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m Display-getAppLaunchContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display--constructAppLaunchContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" val--data AppLaunchContextDisplayPropertyInfo-instance AttrInfo AppLaunchContextDisplayPropertyInfo where-    type AttrAllowedOps AppLaunchContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint AppLaunchContextDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint AppLaunchContextDisplayPropertyInfo = AppLaunchContextK-    type AttrGetType AppLaunchContextDisplayPropertyInfo = Display-    type AttrLabel AppLaunchContextDisplayPropertyInfo = "AppLaunchContext::display"-    attrGet _ = getAppLaunchContextDisplay-    attrSet _ = undefined-    attrConstruct _ = constructAppLaunchContextDisplay--type instance AttributeList AppLaunchContext = AppLaunchContextAttributeList-type AppLaunchContextAttributeList = ('[ '("display", AppLaunchContextDisplayPropertyInfo)] :: [(Symbol, *)])--type instance SignalList AppLaunchContext = AppLaunchContextSignalList-type AppLaunchContextSignalList = ('[ '("launch-failed", Gio.AppLaunchContextLaunchFailedSignalInfo), '("launched", Gio.AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method AppLaunchContext::new--- method type : Constructor--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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 {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "desktop", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    IO ()---appLaunchContextSetDesktop ::-    (MonadIO m, AppLaunchContextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- desktop-    m ()-appLaunchContextSetDesktop _obj desktop = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_app_launch_context_set_desktop _obj' desktop-    touchManagedPtr _obj-    return ()---- method AppLaunchContext::set_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method AppLaunchContext::set_icon--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method AppLaunchContext::set_icon_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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) ->                       -- icon_name-    m ()-appLaunchContextSetIconName _obj icon_name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeIcon_name <- case icon_name of-        Nothing -> return nullPtr-        Just jIcon_name -> do-            jIcon_name' <- textToCString jIcon_name-            return jIcon_name'-    gdk_app_launch_context_set_icon_name _obj' maybeIcon_name-    touchManagedPtr _obj-    freeMem maybeIcon_name-    return ()---- method AppLaunchContext::set_screen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method AppLaunchContext::set_timestamp--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-appLaunchContextSetTimestamp _obj timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_app_launch_context_set_timestamp _obj' timestamp-    touchManagedPtr _obj-    return ()--
− GI/Gdk/Objects/AppLaunchContext.hs-boot 
@@ -1,14 +0,0 @@-module GI.Gdk.Objects.AppLaunchContext where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/Cursor.hs 
@@ -1,481 +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-    cursorGetCursorType                     ,----- ** cursorGetDisplay-    cursorGetDisplay                        ,----- ** cursorGetImage-    cursorGetImage                          ,----- ** cursorGetSurface-    cursorGetSurface                        ,----- ** cursorNew-    cursorNew                               ,----- ** cursorNewForDisplay-    cursorNewForDisplay                     ,----- ** cursorNewFromName-    cursorNewFromName                       ,----- ** cursorNewFromPixbuf-    cursorNewFromPixbuf                     ,----- ** cursorNewFromSurface-    cursorNewFromSurface                    ,----- ** cursorRef-    cursorRef                               ,----- ** cursorUnref-    cursorUnref                             ,----- -- * Properties--- ** CursorType-    CursorCursorTypePropertyInfo            ,-    constructCursorCursorType               ,-    getCursorCursorType                     ,----- ** Display-    CursorDisplayPropertyInfo               ,-    constructCursorDisplay                  ,-    getCursorDisplay                        ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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---- VVV Prop "cursor-type"-   -- Type: TInterface "Gdk" "CursorType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--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::cursor-type"-    attrGet _ = getCursorCursorType-    attrSet _ = undefined-    attrConstruct _ = constructCursorCursorType---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getCursorDisplay :: (MonadIO m, CursorK o) => o -> m Display-getCursorDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display--constructCursorDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructCursorDisplay val = constructObjectPropertyObject "display" val--data CursorDisplayPropertyInfo-instance AttrInfo CursorDisplayPropertyInfo where-    type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint CursorDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint CursorDisplayPropertyInfo = CursorK-    type AttrGetType CursorDisplayPropertyInfo = Display-    type AttrLabel CursorDisplayPropertyInfo = "Cursor::display"-    attrGet _ = getCursorDisplay-    attrSet _ = undefined-    attrConstruct _ = constructCursorDisplay--type instance AttributeList Cursor = CursorAttributeList-type CursorAttributeList = ('[ '("cursor-type", CursorCursorTypePropertyInfo), '("display", CursorDisplayPropertyInfo)] :: [(Symbol, *)])--type instance SignalList Cursor = CursorSignalList-type CursorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Cursor::new--- method type : Constructor--- Args : [Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                           -- cursor_type-    m Cursor-cursorNew cursor_type = liftIO $ do-    let cursor_type' = (fromIntegral . fromEnum) cursor_type-    result <- gdk_cursor_new cursor_type'-    checkUnexpectedReturnNULL "gdk_cursor_new" result-    result' <- (wrapObject Cursor) result-    return result'---- method Cursor::new_for_display--- method type : Constructor--- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                           -- cursor_type-    m Cursor-cursorNewForDisplay display cursor_type = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let cursor_type' = (fromIntegral . fromEnum) cursor_type-    result <- gdk_cursor_new_for_display display' cursor_type'-    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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Cursor-cursorNewFromName display name = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    name' <- textToCString name-    result <- gdk_cursor_new_from_name display' name'-    checkUnexpectedReturnNULL "gdk_cursor_new_from_name" result-    result' <- (wrapObject Cursor) result-    touchManagedPtr display-    freeMem name'-    return result'---- method Cursor::new_from_pixbuf--- method type : Constructor--- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO (Ptr Cursor)---cursorNewFromPixbuf ::-    (MonadIO m, DisplayK a, GdkPixbuf.PixbufK b) =>-    a ->                                    -- display-    b ->                                    -- pixbuf-    Int32 ->                                -- x-    Int32 ->                                -- y-    m Cursor-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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-cursorGetCursorType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_cursor_get_cursor_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Cursor::get_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Cursor::get_image--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 GdkPixbuf.Pixbuf-cursorGetImage _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_cursor_get_image _obj'-    checkUnexpectedReturnNULL "gdk_cursor_get_image" result-    result' <- (wrapObject GdkPixbuf.Pixbuf) result-    touchManagedPtr _obj-    return result'---- method Cursor::get_surface--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 (Cairo.Surface,Double,Double)-cursorGetSurface _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    x_hot <- allocMem :: IO (Ptr CDouble)-    y_hot <- allocMem :: IO (Ptr CDouble)-    result <- gdk_cursor_get_surface _obj' x_hot y_hot-    checkUnexpectedReturnNULL "gdk_cursor_get_surface" result-    result' <- (wrapBoxed Cairo.Surface) result-    x_hot' <- peek x_hot-    let x_hot'' = realToFrac x_hot'-    y_hot' <- peek y_hot-    let y_hot'' = realToFrac y_hot'-    touchManagedPtr _obj-    freeMem x_hot-    freeMem y_hot-    return (result', x_hot'', y_hot'')---- method Cursor::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Cursor::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-cursorUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_cursor_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/Gdk/Objects/Cursor.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gdk.Objects.Cursor where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/Device.hs 
@@ -1,1326 +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-    deviceGetAssociatedDevice               ,----- ** deviceGetAxisUse-    deviceGetAxisUse                        ,----- ** deviceGetDeviceType-    deviceGetDeviceType                     ,----- ** deviceGetDisplay-    deviceGetDisplay                        ,----- ** deviceGetHasCursor-    deviceGetHasCursor                      ,----- ** deviceGetKey-    deviceGetKey                            ,----- ** deviceGetLastEventWindow-    deviceGetLastEventWindow                ,----- ** deviceGetMode-    deviceGetMode                           ,----- ** deviceGetNAxes-    deviceGetNAxes                          ,----- ** deviceGetNKeys-    deviceGetNKeys                          ,----- ** deviceGetName-    deviceGetName                           ,----- ** deviceGetPosition-    deviceGetPosition                       ,----- ** deviceGetPositionDouble-    deviceGetPositionDouble                 ,----- ** deviceGetProductId-    deviceGetProductId                      ,----- ** deviceGetSource-    deviceGetSource                         ,----- ** deviceGetVendorId-    deviceGetVendorId                       ,----- ** deviceGetWindowAtPosition-    deviceGetWindowAtPosition               ,----- ** deviceGetWindowAtPositionDouble-    deviceGetWindowAtPositionDouble         ,----- ** deviceGrab-    deviceGrab                              ,----- ** deviceGrabInfoLibgtkOnly-    deviceGrabInfoLibgtkOnly                ,----- ** deviceListAxes-    deviceListAxes                          ,----- ** deviceListSlaveDevices-    deviceListSlaveDevices                  ,----- ** deviceSetAxisUse-    deviceSetAxisUse                        ,----- ** deviceSetKey-    deviceSetKey                            ,----- ** deviceSetMode-    deviceSetMode                           ,----- ** deviceUngrab-    deviceUngrab                            ,----- ** deviceWarp-    deviceWarp                              ,----- -- * Properties--- ** AssociatedDevice-    DeviceAssociatedDevicePropertyInfo      ,-    getDeviceAssociatedDevice               ,----- ** DeviceManager-    DeviceDeviceManagerPropertyInfo         ,-    constructDeviceDeviceManager            ,-    getDeviceDeviceManager                  ,----- ** Display-    DeviceDisplayPropertyInfo               ,-    constructDeviceDisplay                  ,-    getDeviceDisplay                        ,----- ** HasCursor-    DeviceHasCursorPropertyInfo             ,-    constructDeviceHasCursor                ,-    getDeviceHasCursor                      ,----- ** InputMode-    DeviceInputModePropertyInfo             ,-    constructDeviceInputMode                ,-    getDeviceInputMode                      ,-    setDeviceInputMode                      ,----- ** InputSource-    DeviceInputSourcePropertyInfo           ,-    constructDeviceInputSource              ,-    getDeviceInputSource                    ,----- ** NAxes-    DeviceNAxesPropertyInfo                 ,-    getDeviceNAxes                          ,----- ** Name-    DeviceNamePropertyInfo                  ,-    constructDeviceName                     ,-    getDeviceName                           ,----- ** ProductId-    DeviceProductIdPropertyInfo             ,-    constructDeviceProductId                ,-    getDeviceProductId                      ,----- ** Type-    DeviceTypePropertyInfo                  ,-    constructDeviceType                     ,-    getDeviceType                           ,----- ** VendorId-    DeviceVendorIdPropertyInfo              ,-    constructDeviceVendorId                 ,-    getDeviceVendorId                       ,----- -- * Signals--- ** Changed-    DeviceChangedCallback                   ,-    DeviceChangedCallbackC                  ,-    DeviceChangedSignalInfo                 ,-    afterDeviceChanged                      ,-    deviceChangedCallbackWrapper            ,-    deviceChangedClosure                    ,-    mkDeviceChangedCallback                 ,-    noDeviceChangedCallback                 ,-    onDeviceChanged                         ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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]--getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m Device-getDeviceAssociatedDevice obj = liftIO $ getObjectPropertyObject obj "associated-device" Device--data DeviceAssociatedDevicePropertyInfo-instance AttrInfo DeviceAssociatedDevicePropertyInfo where-    type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet]-    type AttrSetTypeConstraint DeviceAssociatedDevicePropertyInfo = (~) ()-    type AttrBaseTypeConstraint DeviceAssociatedDevicePropertyInfo = DeviceK-    type AttrGetType DeviceAssociatedDevicePropertyInfo = Device-    type AttrLabel DeviceAssociatedDevicePropertyInfo = "Device::associated-device"-    attrGet _ = getDeviceAssociatedDevice-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "device-manager"-   -- Type: TInterface "Gdk" "DeviceManager"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m DeviceManager-getDeviceDeviceManager obj = liftIO $ getObjectPropertyObject obj "device-manager" DeviceManager--constructDeviceDeviceManager :: (DeviceManagerK a) => a -> IO ([Char], GValue)-constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" val--data DeviceDeviceManagerPropertyInfo-instance AttrInfo DeviceDeviceManagerPropertyInfo where-    type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceManagerK-    type AttrBaseTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceK-    type AttrGetType DeviceDeviceManagerPropertyInfo = DeviceManager-    type AttrLabel DeviceDeviceManagerPropertyInfo = "Device::device-manager"-    attrGet _ = getDeviceDeviceManager-    attrSet _ = undefined-    attrConstruct _ = constructDeviceDeviceManager---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getDeviceDisplay :: (MonadIO m, DeviceK o) => o -> m Display-getDeviceDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display--constructDeviceDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDeviceDisplay val = constructObjectPropertyObject "display" val--data DeviceDisplayPropertyInfo-instance AttrInfo DeviceDisplayPropertyInfo where-    type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint DeviceDisplayPropertyInfo = DeviceK-    type AttrGetType DeviceDisplayPropertyInfo = Display-    type AttrLabel DeviceDisplayPropertyInfo = "Device::display"-    attrGet _ = getDeviceDisplay-    attrSet _ = undefined-    attrConstruct _ = constructDeviceDisplay---- VVV Prop "has-cursor"-   -- Type: TBasicType TBoolean-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--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 = "Device::has-cursor"-    attrGet _ = getDeviceHasCursor-    attrSet _ = undefined-    attrConstruct _ = constructDeviceHasCursor---- VVV Prop "input-mode"-   -- Type: TInterface "Gdk" "InputMode"-   -- Flags: [PropertyReadable,PropertyWritable]--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 = "Device::input-mode"-    attrGet _ = getDeviceInputMode-    attrSet _ = setDeviceInputMode-    attrConstruct _ = constructDeviceInputMode---- VVV Prop "input-source"-   -- Type: TInterface "Gdk" "InputSource"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--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 = "Device::input-source"-    attrGet _ = getDeviceInputSource-    attrSet _ = undefined-    attrConstruct _ = constructDeviceInputSource---- VVV Prop "n-axes"-   -- Type: TBasicType TUInt32-   -- Flags: [PropertyReadable]--getDeviceNAxes :: (MonadIO m, DeviceK o) => o -> m Word32-getDeviceNAxes obj = liftIO $ getObjectPropertyCUInt 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 = "Device::n-axes"-    attrGet _ = getDeviceNAxes-    attrSet _ = undefined-    attrConstruct _ = undefined---- VVV Prop "name"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getDeviceName :: (MonadIO m, DeviceK o) => o -> m T.Text-getDeviceName obj = liftIO $ getObjectPropertyString obj "name"--constructDeviceName :: T.Text -> IO ([Char], GValue)-constructDeviceName val = constructObjectPropertyString "name" val--data DeviceNamePropertyInfo-instance AttrInfo DeviceNamePropertyInfo where-    type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceNamePropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DeviceNamePropertyInfo = DeviceK-    type AttrGetType DeviceNamePropertyInfo = T.Text-    type AttrLabel DeviceNamePropertyInfo = "Device::name"-    attrGet _ = getDeviceName-    attrSet _ = undefined-    attrConstruct _ = constructDeviceName---- VVV Prop "product-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m T.Text-getDeviceProductId obj = liftIO $ getObjectPropertyString obj "product-id"--constructDeviceProductId :: T.Text -> IO ([Char], GValue)-constructDeviceProductId val = constructObjectPropertyString "product-id" val--data DeviceProductIdPropertyInfo-instance AttrInfo DeviceProductIdPropertyInfo where-    type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceProductIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DeviceProductIdPropertyInfo = DeviceK-    type AttrGetType DeviceProductIdPropertyInfo = T.Text-    type AttrLabel DeviceProductIdPropertyInfo = "Device::product-id"-    attrGet _ = getDeviceProductId-    attrSet _ = undefined-    attrConstruct _ = constructDeviceProductId---- VVV Prop "type"-   -- Type: TInterface "Gdk" "DeviceType"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--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 = "Device::type"-    attrGet _ = getDeviceType-    attrSet _ = undefined-    attrConstruct _ = constructDeviceType---- VVV Prop "vendor-id"-   -- Type: TBasicType TUTF8-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m T.Text-getDeviceVendorId obj = liftIO $ getObjectPropertyString obj "vendor-id"--constructDeviceVendorId :: T.Text -> IO ([Char], GValue)-constructDeviceVendorId val = constructObjectPropertyString "vendor-id" val--data DeviceVendorIdPropertyInfo-instance AttrInfo DeviceVendorIdPropertyInfo where-    type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceVendorIdPropertyInfo = (~) T.Text-    type AttrBaseTypeConstraint DeviceVendorIdPropertyInfo = DeviceK-    type AttrGetType DeviceVendorIdPropertyInfo = T.Text-    type AttrLabel DeviceVendorIdPropertyInfo = "Device::vendor-id"-    attrGet _ = getDeviceVendorId-    attrSet _ = undefined-    attrConstruct _ = constructDeviceVendorId--type instance AttributeList Device = DeviceAttributeList-type DeviceAttributeList = ('[ '("associated-device", DeviceAssociatedDevicePropertyInfo), '("device-manager", DeviceDeviceManagerPropertyInfo), '("display", DeviceDisplayPropertyInfo), '("has-cursor", DeviceHasCursorPropertyInfo), '("input-mode", DeviceInputModePropertyInfo), '("input-source", DeviceInputSourcePropertyInfo), '("n-axes", DeviceNAxesPropertyInfo), '("name", DeviceNamePropertyInfo), '("product-id", DeviceProductIdPropertyInfo), '("type", DeviceTypePropertyInfo), '("vendor-id", DeviceVendorIdPropertyInfo)] :: [(Symbol, *)])--data DeviceChangedSignalInfo-instance SignalInfo DeviceChangedSignalInfo where-    type HaskellCallbackType DeviceChangedSignalInfo = DeviceChangedCallback-    connectSignal _ = connectDeviceChanged--type instance SignalList Device = DeviceSignalList-type DeviceSignalList = ('[ '("changed", DeviceChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Device::get_associated_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Device-deviceGetAssociatedDevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_associated_device _obj'-    checkUnexpectedReturnNULL "gdk_device_get_associated_device" result-    result' <- (newObject Device) result-    touchManagedPtr _obj-    return result'---- method Device::get_axis_use--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    IO CUInt---deviceGetAxisUse ::-    (MonadIO m, DeviceK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- index_-    m AxisUse-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'---- method Device::get_device_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-deviceGetDeviceType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_device_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Device::get_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Device::get_has_cursor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-deviceGetHasCursor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_has_cursor _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Device::get_key--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    Ptr Word32 ->                           -- keyval : TBasicType TUInt32-    Ptr CUInt ->                            -- modifiers : TInterface "Gdk" "ModifierType"-    IO CInt---deviceGetKey ::-    (MonadIO m, DeviceK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- index_-    m (Bool,Word32,[ModifierType])-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'')---- method Device::get_last_event_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Device::get_mode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-deviceGetMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_mode _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Device::get_n_axes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-deviceGetNAxes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_n_axes _obj'-    touchManagedPtr _obj-    return result---- method Device::get_n_keys--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-deviceGetNKeys _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_n_keys _obj'-    touchManagedPtr _obj-    return result---- method Device::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Device::get_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    IO ()---deviceGetPosition ::-    (MonadIO m, DeviceK a) =>-    a ->                                    -- _obj-    m (Screen,Int32,Int32)-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')---- method Device::get_position_double--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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)-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'')---- method Device::get_product_id--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 T.Text-deviceGetProductId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_product_id _obj'-    checkUnexpectedReturnNULL "gdk_device_get_product_id" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Device::get_source--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-deviceGetSource _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_source _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Device::get_vendor_id--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 T.Text-deviceGetVendorId _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_vendor_id _obj'-    checkUnexpectedReturnNULL "gdk_device_get_vendor_id" result-    result' <- cstringToText result-    touchManagedPtr _obj-    return result'---- method Device::get_window_at_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr Int32 ->                            -- win_y : TBasicType TInt32-    IO (Ptr Window)---deviceGetWindowAtPosition ::-    (MonadIO m, DeviceK a) =>-    a ->                                    -- _obj-    m (Window,Int32,Int32)-deviceGetWindowAtPosition _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    win_x <- allocMem :: IO (Ptr Int32)-    win_y <- allocMem :: IO (Ptr Int32)-    result <- gdk_device_get_window_at_position _obj' win_x win_y-    checkUnexpectedReturnNULL "gdk_device_get_window_at_position" result-    result' <- (newObject Window) result-    win_x' <- peek win_x-    win_y' <- peek win_y-    touchManagedPtr _obj-    freeMem win_x-    freeMem win_y-    return (result', win_x', win_y')---- method Device::get_window_at_position_double--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 (Window,Double,Double)-deviceGetWindowAtPositionDouble _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    win_x <- allocMem :: IO (Ptr CDouble)-    win_y <- allocMem :: IO (Ptr CDouble)-    result <- gdk_device_get_window_at_position_double _obj' win_x win_y-    checkUnexpectedReturnNULL "gdk_device_get_window_at_position_double" result-    result' <- (newObject Window) result-    win_x' <- peek win_x-    let win_x'' = realToFrac win_x'-    win_y' <- peek win_y-    let win_y'' = realToFrac win_y'-    touchManagedPtr _obj-    freeMem win_x-    freeMem win_y-    return (result', win_x'', win_y'')---- method Device::grab--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                        -- grab_ownership-    Bool ->                                 -- owner_events-    [EventMask] ->                          -- event_mask-    Maybe (c) ->                            -- cursor-    Word32 ->                               -- time_-    m GrabStatus-deviceGrab _obj window grab_ownership owner_events event_mask cursor time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let window' = unsafeManagedPtrCastPtr window-    let grab_ownership' = (fromIntegral . fromEnum) grab_ownership-    let owner_events' = (fromIntegral . fromEnum) owner_events-    let event_mask' = gflagsToWord event_mask-    maybeCursor <- case cursor of-        Nothing -> return nullPtr-        Just jCursor -> do-            let jCursor' = unsafeManagedPtrCastPtr jCursor-            return jCursor'-    result <- gdk_device_grab _obj' window' grab_ownership' owner_events' event_mask' maybeCursor time_-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    touchManagedPtr window-    whenJust cursor touchManagedPtr-    return result'---- method Device::list_axes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-deviceListAxes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_list_axes _obj'-    checkUnexpectedReturnNULL "gdk_device_list_axes" result-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    result' <- unpackGList result-    result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- method Device::list_slave_devices--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-deviceListSlaveDevices _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_list_slave_devices _obj'-    checkUnexpectedReturnNULL "gdk_device_list_slave_devices" result-    result' <- unpackGList result-    result'' <- mapM (newObject Device) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- method Device::set_axis_use--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TUInt32-    CUInt ->                                -- use : TInterface "Gdk" "AxisUse"-    IO ()---deviceSetAxisUse ::-    (MonadIO m, DeviceK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- index_-    AxisUse ->                              -- use-    m ()-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 ()---- method Device::set_key--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TUInt32-    Word32 ->                               -- keyval : TBasicType TUInt32-    CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"-    IO ()---deviceSetKey ::-    (MonadIO m, DeviceK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- index_-    Word32 ->                               -- keyval-    [ModifierType] ->                       -- modifiers-    m ()-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 ()---- method Device::set_mode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Device::ungrab--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-deviceUngrab _obj time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_device_ungrab _obj' time_-    touchManagedPtr _obj-    return ()---- method Device::warp--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO ()---deviceWarp ::-    (MonadIO m, DeviceK a, ScreenK b) =>-    a ->                                    -- _obj-    b ->                                    -- screen-    Int32 ->                                -- x-    Int32 ->                                -- y-    m ()-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 ()---- method Device::grab_info_libgtk_only--- method type : MemberFunction--- Args : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "grab_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "owner_events", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-deviceGrabInfoLibgtkOnly display device = liftIO $ do-    let display' = unsafeManagedPtrCastPtr display-    let device' = unsafeManagedPtrCastPtr device-    grab_window <- allocMem :: IO (Ptr (Ptr Window))-    owner_events <- allocMem :: IO (Ptr CInt)-    result <- gdk_device_grab_info_libgtk_only display' device' grab_window owner_events-    let result' = (/= 0) result-    grab_window' <- peek grab_window-    grab_window'' <- (newObject Window) grab_window'-    owner_events' <- peek owner_events-    let owner_events'' = (/= 0) owner_events'-    touchManagedPtr display-    touchManagedPtr device-    freeMem grab_window-    freeMem owner_events-    return (result', grab_window'', owner_events'')--
− GI/Gdk/Objects/Device.hs-boot 
@@ -1,25 +0,0 @@-module GI.Gdk.Objects.Device where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/DeviceManager.hs 
@@ -1,366 +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-    deviceManagerGetClientPointer           ,----- ** deviceManagerGetDisplay-    deviceManagerGetDisplay                 ,----- ** deviceManagerListDevices-    deviceManagerListDevices                ,----- -- * Properties--- ** Display-    DeviceManagerDisplayPropertyInfo        ,-    constructDeviceManagerDisplay           ,-    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 Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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]--getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m Display-getDeviceManagerDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display--constructDeviceManagerDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDeviceManagerDisplay val = constructObjectPropertyObject "display" val--data DeviceManagerDisplayPropertyInfo-instance AttrInfo DeviceManagerDisplayPropertyInfo where-    type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DeviceManagerDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint DeviceManagerDisplayPropertyInfo = DeviceManagerK-    type AttrGetType DeviceManagerDisplayPropertyInfo = Display-    type AttrLabel DeviceManagerDisplayPropertyInfo = "DeviceManager::display"-    attrGet _ = getDeviceManagerDisplay-    attrSet _ = undefined-    attrConstruct _ = constructDeviceManagerDisplay--type instance AttributeList DeviceManager = DeviceManagerAttributeList-type DeviceManagerAttributeList = ('[ '("display", DeviceManagerDisplayPropertyInfo)] :: [(Symbol, *)])--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 = ('[ '("device-added", DeviceManagerDeviceAddedSignalInfo), '("device-changed", DeviceManagerDeviceChangedSignalInfo), '("device-removed", DeviceManagerDeviceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DeviceManager::get_client_pointer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method DeviceManager::get_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Display-deviceManagerGetDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_manager_get_display _obj'-    checkUnexpectedReturnNULL "gdk_device_manager_get_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    return result'---- method DeviceManager::list_devices--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-deviceManagerListDevices _obj type_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let type_' = (fromIntegral . fromEnum) type_-    result <- gdk_device_manager_list_devices _obj' type_'-    checkUnexpectedReturnNULL "gdk_device_manager_list_devices" result-    result' <- unpackGList result-    result'' <- mapM (newObject Device) result'-    g_list_free result-    touchManagedPtr _obj-    return result''--
− GI/Gdk/Objects/DeviceManager.hs-boot 
@@ -1,17 +0,0 @@-module GI.Gdk.Objects.DeviceManager where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/Display.hs 
@@ -1,1439 +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-    displayBeep                             ,----- ** displayClose-    displayClose                            ,----- ** displayDeviceIsGrabbed-    displayDeviceIsGrabbed                  ,----- ** displayFlush-    displayFlush                            ,----- ** displayGetAppLaunchContext-    displayGetAppLaunchContext              ,----- ** displayGetDefault-    displayGetDefault                       ,----- ** displayGetDefaultCursorSize-    displayGetDefaultCursorSize             ,----- ** displayGetDefaultGroup-    displayGetDefaultGroup                  ,----- ** displayGetDefaultScreen-    displayGetDefaultScreen                 ,----- ** displayGetDeviceManager-    displayGetDeviceManager                 ,----- ** displayGetEvent-    displayGetEvent                         ,----- ** displayGetMaximalCursorSize-    displayGetMaximalCursorSize             ,----- ** displayGetNScreens-    displayGetNScreens                      ,----- ** displayGetName-    displayGetName                          ,----- ** displayGetPointer-    displayGetPointer                       ,----- ** displayGetScreen-    displayGetScreen                        ,----- ** displayGetWindowAtPointer-    displayGetWindowAtPointer               ,----- ** displayHasPending-    displayHasPending                       ,----- ** displayIsClosed-    displayIsClosed                         ,----- ** displayKeyboardUngrab-    displayKeyboardUngrab                   ,----- ** displayListDevices-    displayListDevices                      ,----- ** displayNotifyStartupComplete-    displayNotifyStartupComplete            ,----- ** displayOpen-    displayOpen                             ,----- ** displayOpenDefaultLibgtkOnly-    displayOpenDefaultLibgtkOnly            ,----- ** displayPeekEvent-    displayPeekEvent                        ,----- ** displayPointerIsGrabbed-    displayPointerIsGrabbed                 ,----- ** displayPointerUngrab-    displayPointerUngrab                    ,----- ** displayPutEvent-    displayPutEvent                         ,----- ** displayRequestSelectionNotification-    displayRequestSelectionNotification     ,----- ** displaySetDoubleClickDistance-    displaySetDoubleClickDistance           ,----- ** displaySetDoubleClickTime-    displaySetDoubleClickTime               ,----- ** displayStoreClipboard-    displayStoreClipboard                   ,----- ** displaySupportsClipboardPersistence-    displaySupportsClipboardPersistence     ,----- ** displaySupportsComposite-    displaySupportsComposite                ,----- ** displaySupportsCursorAlpha-    displaySupportsCursorAlpha              ,----- ** displaySupportsCursorColor-    displaySupportsCursorColor              ,----- ** displaySupportsInputShapes-    displaySupportsInputShapes              ,----- ** displaySupportsSelectionNotification-    displaySupportsSelectionNotification    ,----- ** displaySupportsShapes-    displaySupportsShapes                   ,----- ** displaySync-    displaySync                             ,----- ** displayWarpPointer-    displayWarpPointer                      ,----- -- * Signals--- ** Closed-    DisplayClosedCallback                   ,-    DisplayClosedCallbackC                  ,-    DisplayClosedSignalInfo                 ,-    afterDisplayClosed                      ,-    displayClosedCallbackWrapper            ,-    displayClosedClosure                    ,-    mkDisplayClosedCallback                 ,-    noDisplayClosedCallback                 ,-    onDisplayClosed                         ,----- ** Opened-    DisplayOpenedCallback                   ,-    DisplayOpenedCallbackC                  ,-    DisplayOpenedSignalInfo                 ,-    afterDisplayOpened                      ,-    displayOpenedCallbackWrapper            ,-    displayOpenedClosure                    ,-    mkDisplayOpenedCallback                 ,-    noDisplayOpenedCallback                 ,-    onDisplayOpened                         ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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 _ is_error _ = do-    let is_error' = (/= 0) is_error-    _cb  is_error'--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), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Display::beep--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-displayBeep _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_beep _obj'-    touchManagedPtr _obj-    return ()---- method Display::close--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-displayClose _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_close _obj'-    touchManagedPtr _obj-    return ()---- method Display::device_is_grabbed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Display::flush--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-displayFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_flush _obj'-    touchManagedPtr _obj-    return ()---- method Display::get_app_launch_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Display::get_default_cursor_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- 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-displayGetDefaultCursorSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_default_cursor_size _obj'-    touchManagedPtr _obj-    return result---- method Display::get_default_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Display::get_default_screen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Display::get_device_manager--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 DeviceManager-displayGetDeviceManager _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_device_manager _obj'-    checkUnexpectedReturnNULL "gdk_display_get_device_manager" result-    result' <- (newObject DeviceManager) result-    touchManagedPtr _obj-    return result'---- method Display::get_event--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Event-displayGetEvent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_event _obj'-    checkUnexpectedReturnNULL "gdk_display_get_event" result-    result' <- (wrapBoxed Event) result-    touchManagedPtr _obj-    return result'---- method Display::get_maximal_cursor_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TUInt32-    Ptr Word32 ->                           -- height : TBasicType TUInt32-    IO ()---displayGetMaximalCursorSize ::-    (MonadIO m, DisplayK a) =>-    a ->                                    -- _obj-    m (Word32,Word32)-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')---- method Display::get_n_screens--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-displayGetNScreens _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_n_screens _obj'-    touchManagedPtr _obj-    return result---- method Display::get_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Display::get_pointer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    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])-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'')---- method Display::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    IO (Ptr Screen)---displayGetScreen ::-    (MonadIO m, DisplayK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- screen_num-    m Screen-displayGetScreen _obj screen_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_get_screen _obj' screen_num-    checkUnexpectedReturnNULL "gdk_display_get_screen" result-    result' <- (newObject Screen) result-    touchManagedPtr _obj-    return result'---- method Display::get_window_at_pointer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr Int32 ->                            -- win_y : TBasicType TInt32-    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 (Window,Int32,Int32)-displayGetWindowAtPointer _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    win_x <- allocMem :: IO (Ptr Int32)-    win_y <- allocMem :: IO (Ptr Int32)-    result <- gdk_display_get_window_at_pointer _obj' win_x win_y-    checkUnexpectedReturnNULL "gdk_display_get_window_at_pointer" result-    result' <- (newObject Window) result-    win_x' <- peek win_x-    win_y' <- peek win_y-    touchManagedPtr _obj-    freeMem win_x-    freeMem win_y-    return (result', win_x', win_y')---- method Display::has_pending--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displayHasPending _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_has_pending _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::is_closed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displayIsClosed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_is_closed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::keyboard_ungrab--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-displayKeyboardUngrab _obj time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_keyboard_ungrab _obj' time_-    touchManagedPtr _obj-    return ()---- method Display::list_devices--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-displayListDevices _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_list_devices _obj'-    checkUnexpectedReturnNULL "gdk_display_list_devices" result-    result' <- unpackGList result-    result'' <- mapM (newObject Device) result'-    touchManagedPtr _obj-    return result''---- method Display::notify_startup_complete--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                               -- startup_id-    m ()-displayNotifyStartupComplete _obj startup_id = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    startup_id' <- textToCString startup_id-    gdk_display_notify_startup_complete _obj' startup_id'-    touchManagedPtr _obj-    freeMem startup_id'-    return ()---- method Display::peek_event--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Event-displayPeekEvent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_peek_event _obj'-    checkUnexpectedReturnNULL "gdk_display_peek_event" result-    result' <- (wrapBoxed Event) result-    touchManagedPtr _obj-    return result'---- method Display::pointer_is_grabbed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displayPointerIsGrabbed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_pointer_is_grabbed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::pointer_ungrab--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-displayPointerUngrab _obj time_ = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_pointer_ungrab _obj' time_-    touchManagedPtr _obj-    return ()---- method Display::put_event--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-displayPutEvent _obj event = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let event' = unsafeManagedPtrGetPtr event-    gdk_display_put_event _obj' event'-    touchManagedPtr _obj-    touchManagedPtr event-    return ()---- method Display::request_selection_notification--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Display::set_double_click_distance--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "distance", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TUInt32-    IO ()---displaySetDoubleClickDistance ::-    (MonadIO m, DisplayK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- distance-    m ()-displaySetDoubleClickDistance _obj distance = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_set_double_click_distance _obj' distance-    touchManagedPtr _obj-    return ()---- method Display::set_double_click_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TUInt32-    IO ()---displaySetDoubleClickTime ::-    (MonadIO m, DisplayK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- msec-    m ()-displaySetDoubleClickTime _obj msec = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_set_double_click_time _obj' msec-    touchManagedPtr _obj-    return ()---- method Display::store_clipboard--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : [Arg {argName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    IO ()---displayStoreClipboard ::-    (MonadIO m, DisplayK a, WindowK b) =>-    a ->                                    -- _obj-    b ->                                    -- clipboard_window-    Word32 ->                               -- time_-    [Atom] ->                               -- targets-    m ()-displayStoreClipboard _obj clipboard_window time_ targets = liftIO $ do-    let n_targets = fromIntegral $ length targets-    let _obj' = unsafeManagedPtrCastPtr _obj-    let clipboard_window' = unsafeManagedPtrCastPtr clipboard_window-    let targets' = map unsafeManagedPtrGetPtr targets-    targets'' <- packPtrArray targets'-    gdk_display_store_clipboard _obj' clipboard_window' time_ targets'' n_targets-    touchManagedPtr _obj-    touchManagedPtr clipboard_window-    mapM_ touchManagedPtr targets-    freeMem targets''-    return ()---- method Display::supports_clipboard_persistence--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displaySupportsClipboardPersistence _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_clipboard_persistence _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::supports_composite--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displaySupportsComposite _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_composite _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::supports_cursor_alpha--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displaySupportsCursorAlpha _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_cursor_alpha _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::supports_cursor_color--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displaySupportsCursorColor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_cursor_color _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::supports_input_shapes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displaySupportsInputShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_input_shapes _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::supports_selection_notification--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displaySupportsSelectionNotification _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_selection_notification _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::supports_shapes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-displaySupportsShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_supports_shapes _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Display::sync--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-displaySync _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_sync _obj'-    touchManagedPtr _obj-    return ()---- method Display::warp_pointer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    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 ()-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 ()---- method Display::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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 Display-displayGetDefault  = liftIO $ do-    result <- gdk_display_get_default-    checkUnexpectedReturnNULL "gdk_display_get_default" result-    result' <- (newObject Display) result-    return result'---- method Display::open--- method type : MemberFunction--- Args : [Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                               -- display_name-    m Display-displayOpen display_name = liftIO $ do-    display_name' <- textToCString display_name-    result <- gdk_display_open display_name'-    checkUnexpectedReturnNULL "gdk_display_open" result-    result' <- (newObject Display) result-    freeMem display_name'-    return result'---- method Display::open_default_libgtk_only--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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 Display-displayOpenDefaultLibgtkOnly  = liftIO $ do-    result <- gdk_display_open_default_libgtk_only-    checkUnexpectedReturnNULL "gdk_display_open_default_libgtk_only" result-    result' <- (newObject Display) result-    return result'--
− GI/Gdk/Objects/Display.hs-boot 
@@ -1,15 +0,0 @@-module GI.Gdk.Objects.Display where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/DisplayManager.hs 
@@ -1,311 +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-    displayManagerGetDefaultDisplay         ,----- ** displayManagerListDisplays-    displayManagerListDisplays              ,----- ** displayManagerOpenDisplay-    displayManagerOpenDisplay               ,----- ** displayManagerSetDefaultDisplay-    displayManagerSetDefaultDisplay         ,----- -- * Properties--- ** DefaultDisplay-    DisplayManagerDefaultDisplayPropertyInfo,-    constructDisplayManagerDefaultDisplay   ,-    getDisplayManagerDefaultDisplay         ,-    setDisplayManagerDefaultDisplay         ,----- -- * Signals--- ** DisplayOpened-    DisplayManagerDisplayOpenedCallback     ,-    DisplayManagerDisplayOpenedCallbackC    ,-    DisplayManagerDisplayOpenedSignalInfo   ,-    afterDisplayManagerDisplayOpened        ,-    displayManagerDisplayOpenedCallbackWrapper,-    displayManagerDisplayOpenedClosure      ,-    mkDisplayManagerDisplayOpenedCallback   ,-    noDisplayManagerDisplayOpenedCallback   ,-    onDisplayManagerDisplayOpened           ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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]--getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m 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" val--constructDisplayManagerDefaultDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" val--data DisplayManagerDefaultDisplayPropertyInfo-instance AttrInfo DisplayManagerDefaultDisplayPropertyInfo where-    type AttrAllowedOps DisplayManagerDefaultDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayManagerK-    type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = Display-    type AttrLabel DisplayManagerDefaultDisplayPropertyInfo = "DisplayManager::default-display"-    attrGet _ = getDisplayManagerDefaultDisplay-    attrSet _ = setDisplayManagerDefaultDisplay-    attrConstruct _ = constructDisplayManagerDefaultDisplay--type instance AttributeList DisplayManager = DisplayManagerAttributeList-type DisplayManagerAttributeList = ('[ '("default-display", DisplayManagerDefaultDisplayPropertyInfo)] :: [(Symbol, *)])--data DisplayManagerDisplayOpenedSignalInfo-instance SignalInfo DisplayManagerDisplayOpenedSignalInfo where-    type HaskellCallbackType DisplayManagerDisplayOpenedSignalInfo = DisplayManagerDisplayOpenedCallback-    connectSignal _ = connectDisplayManagerDisplayOpened--type instance SignalList DisplayManager = DisplayManagerSignalList-type DisplayManagerSignalList = ('[ '("display-opened", DisplayManagerDisplayOpenedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DisplayManager::get_default_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Display-displayManagerGetDefaultDisplay _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_manager_get_default_display _obj'-    checkUnexpectedReturnNULL "gdk_display_manager_get_default_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    return result'---- method DisplayManager::list_displays--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-displayManagerListDisplays _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_display_manager_list_displays _obj'-    checkUnexpectedReturnNULL "gdk_display_manager_list_displays" result-    result' <- unpackGSList result-    result'' <- mapM (newObject Display) result'-    g_slist_free result-    touchManagedPtr _obj-    return result''---- method DisplayManager::open_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Display-displayManagerOpenDisplay _obj name = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    name' <- textToCString name-    result <- gdk_display_manager_open_display _obj' name'-    checkUnexpectedReturnNULL "gdk_display_manager_open_display" result-    result' <- (newObject Display) result-    touchManagedPtr _obj-    freeMem name'-    return result'---- method DisplayManager::set_default_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method DisplayManager::get--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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,15 +0,0 @@-module GI.Gdk.Objects.DisplayManager where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/DragContext.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)--}--module GI.Gdk.Objects.DragContext-    ( ---- * Exported types-    DragContext(..)                         ,-    DragContextK                            ,-    toDragContext                           ,-    noDragContext                           ,--- -- * Methods--- ** dragContextGetActions-    dragContextGetActions                   ,----- ** dragContextGetDestWindow-    dragContextGetDestWindow                ,----- ** dragContextGetDevice-    dragContextGetDevice                    ,----- ** dragContextGetProtocol-    dragContextGetProtocol                  ,----- ** dragContextGetSelectedAction-    dragContextGetSelectedAction            ,----- ** dragContextGetSourceWindow-    dragContextGetSourceWindow              ,----- ** dragContextGetSuggestedAction-    dragContextGetSuggestedAction           ,----- ** dragContextListTargets-    dragContextListTargets                  ,----- ** dragContextSetDevice-    dragContextSetDevice                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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 instance AttributeList DragContext = DragContextAttributeList-type DragContextAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList DragContext = DragContextSignalList-type DragContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method DragContext::get_actions--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-dragContextGetActions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_actions _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method DragContext::get_dest_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method DragContext::get_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method DragContext::get_protocol--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-dragContextGetProtocol _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_protocol _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method DragContext::get_selected_action--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-dragContextGetSelectedAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_selected_action _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method DragContext::get_source_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method DragContext::get_suggested_action--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-dragContextGetSuggestedAction _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_get_suggested_action _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method DragContext::list_targets--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-dragContextListTargets _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_drag_context_list_targets _obj'-    checkUnexpectedReturnNULL "gdk_drag_context_list_targets" result-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    result' <- unpackGList result-    result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result'-    touchManagedPtr _obj-    return result''---- method DragContext::set_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()--
− GI/Gdk/Objects/DragContext.hs-boot 
@@ -1,13 +0,0 @@-module GI.Gdk.Objects.DragContext where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/FrameClock.hs 
@@ -1,716 +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-    frameClockBeginUpdating                 ,----- ** frameClockEndUpdating-    frameClockEndUpdating                   ,----- ** frameClockGetCurrentTimings-    frameClockGetCurrentTimings             ,----- ** frameClockGetFrameCounter-    frameClockGetFrameCounter               ,----- ** frameClockGetFrameTime-    frameClockGetFrameTime                  ,----- ** frameClockGetHistoryStart-    frameClockGetHistoryStart               ,----- ** frameClockGetRefreshInfo-    frameClockGetRefreshInfo                ,----- ** frameClockGetTimings-    frameClockGetTimings                    ,----- ** frameClockRequestPhase-    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 Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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 = ('[ '("after-paint", FrameClockAfterPaintSignalInfo), '("before-paint", FrameClockBeforePaintSignalInfo), '("flush-events", FrameClockFlushEventsSignalInfo), '("layout", FrameClockLayoutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paint", FrameClockPaintSignalInfo), '("resume-events", FrameClockResumeEventsSignalInfo), '("update", FrameClockUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method FrameClock::begin_updating--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-frameClockBeginUpdating _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_frame_clock_begin_updating _obj'-    touchManagedPtr _obj-    return ()---- method FrameClock::end_updating--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-frameClockEndUpdating _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_frame_clock_end_updating _obj'-    touchManagedPtr _obj-    return ()---- method FrameClock::get_current_timings--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 FrameTimings-frameClockGetCurrentTimings _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_current_timings _obj'-    checkUnexpectedReturnNULL "gdk_frame_clock_get_current_timings" result-    result' <- (wrapBoxed FrameTimings) result-    touchManagedPtr _obj-    return result'---- method FrameClock::get_frame_counter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameClockGetFrameCounter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_frame_counter _obj'-    touchManagedPtr _obj-    return result---- method FrameClock::get_frame_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameClockGetFrameTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_frame_time _obj'-    touchManagedPtr _obj-    return result---- method FrameClock::get_history_start--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameClockGetHistoryStart _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_history_start _obj'-    touchManagedPtr _obj-    return result---- method FrameClock::get_refresh_info--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "base_time", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "refresh_interval_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "presentation_time_return", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                -- base_time-    Int64 ->                                -- refresh_interval_return-    Int64 ->                                -- presentation_time_return-    m ()-frameClockGetRefreshInfo _obj base_time refresh_interval_return presentation_time_return = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_frame_clock_get_refresh_info _obj' base_time refresh_interval_return presentation_time_return-    touchManagedPtr _obj-    return ()---- method FrameClock::get_timings--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "frame_counter", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                                -- frame_counter-    m FrameTimings-frameClockGetTimings _obj frame_counter = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_frame_clock_get_timings _obj' frame_counter-    checkUnexpectedReturnNULL "gdk_frame_clock_get_timings" result-    result' <- (wrapBoxed FrameTimings) result-    touchManagedPtr _obj-    return result'---- method FrameClock::request_phase--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameClock", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "phase", argType = TInterface "Gdk" "FrameClockPhase", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-frameClockRequestPhase _obj phase = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let phase' = gflagsToWord phase-    gdk_frame_clock_request_phase _obj' phase'-    touchManagedPtr _obj-    return ()--
− GI/Gdk/Objects/FrameClock.hs-boot 
@@ -1,20 +0,0 @@-module GI.Gdk.Objects.FrameClock where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/GLContext.hs 
@@ -1,536 +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-    gLContextGetDebugEnabled                ,----- ** gLContextGetDisplay-    gLContextGetDisplay                     ,----- ** gLContextGetForwardCompatible-    gLContextGetForwardCompatible           ,----- ** gLContextGetSharedContext-    gLContextGetSharedContext               ,----- ** gLContextGetVersion-    gLContextGetVersion                     ,----- ** gLContextGetWindow-    gLContextGetWindow                      ,----- ** gLContextMakeCurrent-    gLContextMakeCurrent                    ,----- ** gLContextRealize-    gLContextRealize                        ,----- ** gLContextSetDebugEnabled-    gLContextSetDebugEnabled                ,----- ** gLContextSetForwardCompatible-    gLContextSetForwardCompatible           ,----- ** gLContextSetRequiredVersion-    gLContextSetRequiredVersion             ,----- -- * Properties--- ** Display-    GLContextDisplayPropertyInfo            ,-    constructGLContextDisplay               ,-    getGLContextDisplay                     ,----- ** SharedContext-    GLContextSharedContextPropertyInfo      ,-    constructGLContextSharedContext         ,-    getGLContextSharedContext               ,----- ** Window-    GLContextWindowPropertyInfo             ,-    constructGLContextWindow                ,-    getGLContextWindow                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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---- VVV Prop "display"-   -- Type: TInterface "Gdk" "Display"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getGLContextDisplay :: (MonadIO m, GLContextK o) => o -> m Display-getGLContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display--constructGLContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructGLContextDisplay val = constructObjectPropertyObject "display" val--data GLContextDisplayPropertyInfo-instance AttrInfo GLContextDisplayPropertyInfo where-    type AttrAllowedOps GLContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint GLContextDisplayPropertyInfo = DisplayK-    type AttrBaseTypeConstraint GLContextDisplayPropertyInfo = GLContextK-    type AttrGetType GLContextDisplayPropertyInfo = Display-    type AttrLabel GLContextDisplayPropertyInfo = "GLContext::display"-    attrGet _ = getGLContextDisplay-    attrSet _ = undefined-    attrConstruct _ = constructGLContextDisplay---- VVV Prop "shared-context"-   -- Type: TInterface "Gdk" "GLContext"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getGLContextSharedContext :: (MonadIO m, GLContextK o) => o -> m GLContext-getGLContextSharedContext obj = liftIO $ getObjectPropertyObject obj "shared-context" GLContext--constructGLContextSharedContext :: (GLContextK a) => a -> IO ([Char], GValue)-constructGLContextSharedContext val = constructObjectPropertyObject "shared-context" val--data GLContextSharedContextPropertyInfo-instance AttrInfo GLContextSharedContextPropertyInfo where-    type AttrAllowedOps GLContextSharedContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint GLContextSharedContextPropertyInfo = GLContextK-    type AttrBaseTypeConstraint GLContextSharedContextPropertyInfo = GLContextK-    type AttrGetType GLContextSharedContextPropertyInfo = GLContext-    type AttrLabel GLContextSharedContextPropertyInfo = "GLContext::shared-context"-    attrGet _ = getGLContextSharedContext-    attrSet _ = undefined-    attrConstruct _ = constructGLContextSharedContext---- VVV Prop "window"-   -- Type: TInterface "Gdk" "Window"-   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]--getGLContextWindow :: (MonadIO m, GLContextK o) => o -> m Window-getGLContextWindow obj = liftIO $ getObjectPropertyObject obj "window" Window--constructGLContextWindow :: (WindowK a) => a -> IO ([Char], GValue)-constructGLContextWindow val = constructObjectPropertyObject "window" val--data GLContextWindowPropertyInfo-instance AttrInfo GLContextWindowPropertyInfo where-    type AttrAllowedOps GLContextWindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint GLContextWindowPropertyInfo = WindowK-    type AttrBaseTypeConstraint GLContextWindowPropertyInfo = GLContextK-    type AttrGetType GLContextWindowPropertyInfo = Window-    type AttrLabel GLContextWindowPropertyInfo = "GLContext::window"-    attrGet _ = getGLContextWindow-    attrSet _ = undefined-    attrConstruct _ = constructGLContextWindow--type instance AttributeList GLContext = GLContextAttributeList-type GLContextAttributeList = ('[ '("display", GLContextDisplayPropertyInfo), '("shared-context", GLContextSharedContextPropertyInfo), '("window", GLContextWindowPropertyInfo)] :: [(Symbol, *)])--type instance SignalList GLContext = GLContextSignalList-type GLContextSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method GLContext::get_debug_enabled--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-gLContextGetDebugEnabled _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_gl_context_get_debug_enabled _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method GLContext::get_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method GLContext::get_forward_compatible--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-gLContextGetForwardCompatible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_gl_context_get_forward_compatible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- XXX Could not generate method GLContext::get_required_version--- Error was : Bad introspection data: "argument \"major\" is not of nullable type (TBasicType TInt32), but it is marked as such."--- method GLContext::get_shared_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method GLContext::get_version--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- minor : TBasicType TInt32-    IO ()---gLContextGetVersion ::-    (MonadIO m, GLContextK a) =>-    a ->                                    -- _obj-    m (Int32,Int32)-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')---- method GLContext::get_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method GLContext::make_current--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-gLContextMakeCurrent _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_gl_context_make_current _obj'-    touchManagedPtr _obj-    return ()---- method GLContext::realize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ()-gLContextRealize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    onException (do-        _ <- propagateGError $ gdk_gl_context_realize _obj'-        touchManagedPtr _obj-        return ()-     ) (do-        return ()-     )---- method GLContext::set_debug_enabled--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "enabled", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method GLContext::set_forward_compatible--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "compatible", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method GLContext::set_required_version--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "major", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "minor", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- minor : TBasicType TInt32-    IO ()---gLContextSetRequiredVersion ::-    (MonadIO m, GLContextK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- major-    Int32 ->                                -- minor-    m ()-gLContextSetRequiredVersion _obj major minor = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_gl_context_set_required_version _obj' major minor-    touchManagedPtr _obj-    return ()---- method GLContext::clear_current--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_gl_context_clear_current" gdk_gl_context_clear_current :: -    IO ()---gLContextClearCurrent ::-    (MonadIO m) =>-    m ()-gLContextClearCurrent  = liftIO $ do-    gdk_gl_context_clear_current-    return ()---- method GLContext::get_current--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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,16 +0,0 @@-module GI.Gdk.Objects.GLContext where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/Keymap.hs 
@@ -1,710 +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-    keymapAddVirtualModifiers               ,----- ** keymapGetCapsLockState-    keymapGetCapsLockState                  ,----- ** keymapGetDefault-    keymapGetDefault                        ,----- ** keymapGetDirection-    keymapGetDirection                      ,----- ** keymapGetEntriesForKeycode-    keymapGetEntriesForKeycode              ,----- ** keymapGetEntriesForKeyval-    keymapGetEntriesForKeyval               ,----- ** keymapGetForDisplay-    keymapGetForDisplay                     ,----- ** keymapGetModifierMask-    keymapGetModifierMask                   ,----- ** keymapGetModifierState-    keymapGetModifierState                  ,----- ** keymapGetNumLockState-    keymapGetNumLockState                   ,----- ** keymapHaveBidiLayouts-    keymapHaveBidiLayouts                   ,----- ** keymapLookupKey-    keymapLookupKey                         ,----- ** keymapMapVirtualModifiers-    keymapMapVirtualModifiers               ,----- ** keymapTranslateKeyboardState-    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 Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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 = ('[ '("direction-changed", KeymapDirectionChangedSignalInfo), '("keys-changed", KeymapKeysChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("state-changed", KeymapStateChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Keymap::add_virtual_modifiers--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : TBasicType TVoid--- 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])-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''''---- method Keymap::get_caps_lock_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-keymapGetCapsLockState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_caps_lock_state _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Keymap::get_direction--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-keymapGetDirection _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_direction _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Keymap::get_entries_for_keycode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "keyvals", argType = TCArray False (-1) 4 (TBasicType TUInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_entries", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    Ptr (Ptr KeymapKey) ->                  -- keys : TCArray False (-1) 4 (TInterface "Gdk" "KeymapKey")-    Ptr (Ptr Word32) ->                     -- keyvals : TCArray False (-1) 4 (TBasicType TUInt32)-    Ptr Int32 ->                            -- n_entries : TBasicType TInt32-    IO CInt---keymapGetEntriesForKeycode ::-    (MonadIO m, KeymapK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- hardware_keycode-    m (Bool,[KeymapKey],[Word32])-keymapGetEntriesForKeycode _obj hardware_keycode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    keys <- allocMem :: IO (Ptr (Ptr KeymapKey))-    keyvals <- allocMem :: IO (Ptr (Ptr Word32))-    n_entries <- allocMem :: IO (Ptr Int32)-    result <- gdk_keymap_get_entries_for_keycode _obj' hardware_keycode keys keyvals n_entries-    n_entries' <- peek n_entries-    let result' = (/= 0) result-    keys' <- peek keys-    keys'' <- (unpackBlockArrayWithLength 12 n_entries') keys'-    keys''' <- mapM (wrapPtr KeymapKey) keys''-    freeMem keys'-    keyvals' <- peek keyvals-    keyvals'' <- (unpackStorableArrayWithLength n_entries') keyvals'-    freeMem keyvals'-    touchManagedPtr _obj-    freeMem keys-    freeMem keyvals-    freeMem n_entries-    return (result', keys''', keyvals'')---- method Keymap::get_entries_for_keyval--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keys", argType = TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "n_keys", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : [Arg {argName = "n_keys", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    Ptr (Ptr KeymapKey) ->                  -- keys : TCArray False (-1) 3 (TInterface "Gdk" "KeymapKey")-    Ptr Int32 ->                            -- n_keys : TBasicType TInt32-    IO CInt---keymapGetEntriesForKeyval ::-    (MonadIO m, KeymapK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- keyval-    m (Bool,[KeymapKey])-keymapGetEntriesForKeyval _obj keyval = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    keys <- allocMem :: IO (Ptr (Ptr KeymapKey))-    n_keys <- allocMem :: IO (Ptr Int32)-    result <- gdk_keymap_get_entries_for_keyval _obj' keyval keys n_keys-    n_keys' <- peek n_keys-    let result' = (/= 0) result-    keys' <- peek keys-    keys'' <- (unpackBlockArrayWithLength 12 n_keys') keys'-    keys''' <- mapM (wrapPtr KeymapKey) keys''-    freeMem keys'-    touchManagedPtr _obj-    freeMem keys-    freeMem n_keys-    return (result', keys''')---- method Keymap::get_modifier_mask--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "intent", argType = TInterface "Gdk" "ModifierIntent", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-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'---- method Keymap::get_modifier_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- 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-keymapGetModifierState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_modifier_state _obj'-    touchManagedPtr _obj-    return result---- method Keymap::get_num_lock_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-keymapGetNumLockState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_get_num_lock_state _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Keymap::have_bidi_layouts--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-keymapHaveBidiLayouts _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_keymap_have_bidi_layouts _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Keymap::lookup_key--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "key", argType = TInterface "Gdk" "KeymapKey", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- 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-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---- method Keymap::map_virtual_modifiers--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- returnType : 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])-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'''')---- method Keymap::translate_keyboard_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "effective_group", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "level", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "consumed_modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Keymap", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hardware_keycode", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "group", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    CUInt ->                                -- state : TInterface "Gdk" "ModifierType"-    Int32 ->                                -- group : TBasicType TInt32-    Ptr Word32 ->                           -- keyval : TBasicType TUInt32-    Ptr Int32 ->                            -- effective_group : TBasicType TInt32-    Ptr Int32 ->                            -- level : TBasicType TInt32-    Ptr CUInt ->                            -- consumed_modifiers : TInterface "Gdk" "ModifierType"-    IO CInt---keymapTranslateKeyboardState ::-    (MonadIO m, KeymapK a) =>-    a ->                                    -- _obj-    Word32 ->                               -- hardware_keycode-    [ModifierType] ->                       -- state-    Int32 ->                                -- group-    m (Bool,Word32,Int32,Int32,[ModifierType])-keymapTranslateKeyboardState _obj hardware_keycode state group = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let state' = gflagsToWord state-    keyval <- allocMem :: IO (Ptr Word32)-    effective_group <- allocMem :: IO (Ptr Int32)-    level <- allocMem :: IO (Ptr Int32)-    consumed_modifiers <- allocMem :: IO (Ptr CUInt)-    result <- gdk_keymap_translate_keyboard_state _obj' hardware_keycode state' group keyval effective_group level consumed_modifiers-    let result' = (/= 0) result-    keyval' <- peek keyval-    effective_group' <- peek effective_group-    level' <- peek level-    consumed_modifiers' <- peek consumed_modifiers-    let consumed_modifiers'' = wordToGFlags consumed_modifiers'-    touchManagedPtr _obj-    freeMem keyval-    freeMem effective_group-    freeMem level-    freeMem consumed_modifiers-    return (result', keyval', effective_group', level', consumed_modifiers'')---- method Keymap::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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 {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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,16 +0,0 @@-module GI.Gdk.Objects.Keymap where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/Screen.hs 
@@ -1,1336 +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-    screenGetActiveWindow                   ,----- ** screenGetDefault-    screenGetDefault                        ,----- ** screenGetDisplay-    screenGetDisplay                        ,----- ** screenGetFontOptions-    screenGetFontOptions                    ,----- ** screenGetHeight-    screenGetHeight                         ,----- ** screenGetHeightMm-    screenGetHeightMm                       ,----- ** screenGetMonitorAtPoint-    screenGetMonitorAtPoint                 ,----- ** screenGetMonitorAtWindow-    screenGetMonitorAtWindow                ,----- ** screenGetMonitorGeometry-    screenGetMonitorGeometry                ,----- ** screenGetMonitorHeightMm-    screenGetMonitorHeightMm                ,----- ** screenGetMonitorPlugName-    screenGetMonitorPlugName                ,----- ** screenGetMonitorScaleFactor-    screenGetMonitorScaleFactor             ,----- ** screenGetMonitorWidthMm-    screenGetMonitorWidthMm                 ,----- ** screenGetMonitorWorkarea-    screenGetMonitorWorkarea                ,----- ** screenGetNMonitors-    screenGetNMonitors                      ,----- ** screenGetNumber-    screenGetNumber                         ,----- ** screenGetPrimaryMonitor-    screenGetPrimaryMonitor                 ,----- ** screenGetResolution-    screenGetResolution                     ,----- ** screenGetRgbaVisual-    screenGetRgbaVisual                     ,----- ** screenGetRootWindow-    screenGetRootWindow                     ,----- ** screenGetSetting-    screenGetSetting                        ,----- ** screenGetSystemVisual-    screenGetSystemVisual                   ,----- ** screenGetToplevelWindows-    screenGetToplevelWindows                ,----- ** screenGetWidth-    screenGetWidth                          ,----- ** screenGetWidthMm-    screenGetWidthMm                        ,----- ** screenGetWindowStack-    screenGetWindowStack                    ,----- ** screenHeight-    screenHeight                            ,----- ** screenHeightMm-    screenHeightMm                          ,----- ** screenIsComposited-    screenIsComposited                      ,----- ** screenListVisuals-    screenListVisuals                       ,----- ** screenMakeDisplayName-    screenMakeDisplayName                   ,----- ** screenSetFontOptions-    screenSetFontOptions                    ,----- ** screenSetResolution-    screenSetResolution                     ,----- ** screenWidth-    screenWidth                             ,----- ** screenWidthMm-    screenWidthMm                           ,----- -- * Properties--- ** FontOptions-    ScreenFontOptionsPropertyInfo           ,-    constructScreenFontOptions              ,-    getScreenFontOptions                    ,-    setScreenFontOptions                    ,----- ** Resolution-    ScreenResolutionPropertyInfo            ,-    constructScreenResolution               ,-    getScreenResolution                     ,-    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 Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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 TVoid-   -- Flags: [PropertyReadable,PropertyWritable]--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 = "Screen::font-options"-    attrGet _ = getScreenFontOptions-    attrSet _ = setScreenFontOptions-    attrConstruct _ = constructScreenFontOptions---- VVV Prop "resolution"-   -- Type: TBasicType TDouble-   -- Flags: [PropertyReadable,PropertyWritable]--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 = "Screen::resolution"-    attrGet _ = getScreenResolution-    attrSet _ = setScreenResolution-    attrConstruct _ = constructScreenResolution--type instance AttributeList Screen = ScreenAttributeList-type ScreenAttributeList = ('[ '("font-options", ScreenFontOptionsPropertyInfo), '("resolution", ScreenResolutionPropertyInfo)] :: [(Symbol, *)])--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 = ('[ '("composited-changed", ScreenCompositedChangedSignalInfo), '("monitors-changed", ScreenMonitorsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("size-changed", ScreenSizeChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Screen::get_active_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Window-screenGetActiveWindow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_active_window _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_active_window" result-    result' <- (wrapObject Window) result-    touchManagedPtr _obj-    return result'---- method Screen::get_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Screen::get_font_options--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Cairo.FontOptions-screenGetFontOptions _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_font_options _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_font_options" result-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result-    touchManagedPtr _obj-    return result'---- method Screen::get_height--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-screenGetHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_height _obj'-    touchManagedPtr _obj-    return result---- method Screen::get_height_mm--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-screenGetHeightMm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_height_mm _obj'-    touchManagedPtr _obj-    return result---- method Screen::get_monitor_at_point--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO Int32---screenGetMonitorAtPoint ::-    (MonadIO m, ScreenK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    m Int32-screenGetMonitorAtPoint _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_at_point _obj' x y-    touchManagedPtr _obj-    return result---- method Screen::get_monitor_at_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-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---- method Screen::get_monitor_geometry--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Cairo.RectangleInt ->               -- dest : TInterface "cairo" "RectangleInt"-    IO ()---screenGetMonitorGeometry ::-    (MonadIO m, ScreenK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- monitor_num-    m (Cairo.RectangleInt)-screenGetMonitorGeometry _obj monitor_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    gdk_screen_get_monitor_geometry _obj' monitor_num dest-    dest' <- (wrapBoxed Cairo.RectangleInt) dest-    touchManagedPtr _obj-    return dest'---- method Screen::get_monitor_height_mm--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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 TInt32-    IO Int32---screenGetMonitorHeightMm ::-    (MonadIO m, ScreenK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- monitor_num-    m Int32-screenGetMonitorHeightMm _obj monitor_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_height_mm _obj' monitor_num-    touchManagedPtr _obj-    return result---- method Screen::get_monitor_plug_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    IO CString---screenGetMonitorPlugName ::-    (MonadIO m, ScreenK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- monitor_num-    m T.Text-screenGetMonitorPlugName _obj monitor_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_plug_name _obj' monitor_num-    checkUnexpectedReturnNULL "gdk_screen_get_monitor_plug_name" result-    result' <- cstringToText result-    freeMem result-    touchManagedPtr _obj-    return result'---- method Screen::get_monitor_scale_factor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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 TInt32-    IO Int32---screenGetMonitorScaleFactor ::-    (MonadIO m, ScreenK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- monitor_num-    m Int32-screenGetMonitorScaleFactor _obj monitor_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_scale_factor _obj' monitor_num-    touchManagedPtr _obj-    return result---- method Screen::get_monitor_width_mm--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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 TInt32-    IO Int32---screenGetMonitorWidthMm ::-    (MonadIO m, ScreenK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- monitor_num-    m Int32-screenGetMonitorWidthMm _obj monitor_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_monitor_width_mm _obj' monitor_num-    touchManagedPtr _obj-    return result---- method Screen::get_monitor_workarea--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "monitor_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Cairo.RectangleInt ->               -- dest : TInterface "cairo" "RectangleInt"-    IO ()---screenGetMonitorWorkarea ::-    (MonadIO m, ScreenK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- monitor_num-    m (Cairo.RectangleInt)-screenGetMonitorWorkarea _obj monitor_num = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    dest <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    gdk_screen_get_monitor_workarea _obj' monitor_num dest-    dest' <- (wrapBoxed Cairo.RectangleInt) dest-    touchManagedPtr _obj-    return dest'---- method Screen::get_n_monitors--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-screenGetNMonitors _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_n_monitors _obj'-    touchManagedPtr _obj-    return result---- method Screen::get_number--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-screenGetNumber _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_number _obj'-    touchManagedPtr _obj-    return result---- method Screen::get_primary_monitor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-screenGetPrimaryMonitor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_primary_monitor _obj'-    touchManagedPtr _obj-    return result---- method Screen::get_resolution--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-screenGetResolution _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_resolution _obj'-    let result' = realToFrac result-    touchManagedPtr _obj-    return result'---- method Screen::get_rgba_visual--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Visual-screenGetRgbaVisual _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_rgba_visual _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_rgba_visual" result-    result' <- (newObject Visual) result-    touchManagedPtr _obj-    return result'---- method Screen::get_root_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Screen::get_setting--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Screen::get_system_visual--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Screen::get_toplevel_windows--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-screenGetToplevelWindows _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_toplevel_windows _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_toplevel_windows" result-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- method Screen::get_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-screenGetWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_width _obj'-    touchManagedPtr _obj-    return result---- method Screen::get_width_mm--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-screenGetWidthMm _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_width_mm _obj'-    touchManagedPtr _obj-    return result---- method Screen::get_window_stack--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-screenGetWindowStack _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_get_window_stack _obj'-    checkUnexpectedReturnNULL "gdk_screen_get_window_stack" result-    result' <- unpackGList result-    result'' <- mapM (wrapObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- method Screen::is_composited--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-screenIsComposited _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_is_composited _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Screen::list_visuals--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-screenListVisuals _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_screen_list_visuals _obj'-    checkUnexpectedReturnNULL "gdk_screen_list_visuals" result-    result' <- unpackGList result-    result'' <- mapM (newObject Visual) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- method Screen::make_display_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Screen::set_font_options--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "options", argType = TInterface "cairo" "FontOptions", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Screen::set_resolution--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dpi", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-screenSetResolution _obj dpi = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let dpi' = realToFrac dpi-    gdk_screen_set_resolution _obj' dpi'-    touchManagedPtr _obj-    return ()---- method Screen::get_default--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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 Screen-screenGetDefault  = liftIO $ do-    result <- gdk_screen_get_default-    checkUnexpectedReturnNULL "gdk_screen_get_default" result-    result' <- (newObject Screen) result-    return result'---- method Screen::height--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_height" gdk_screen_height :: -    IO Int32---screenHeight ::-    (MonadIO m) =>-    m Int32-screenHeight  = liftIO $ do-    result <- gdk_screen_height-    return result---- method Screen::height_mm--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_height_mm" gdk_screen_height_mm :: -    IO Int32---screenHeightMm ::-    (MonadIO m) =>-    m Int32-screenHeightMm  = liftIO $ do-    result <- gdk_screen_height_mm-    return result---- method Screen::width--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_width" gdk_screen_width :: -    IO Int32---screenWidth ::-    (MonadIO m) =>-    m Int32-screenWidth  = liftIO $ do-    result <- gdk_screen_width-    return result---- method Screen::width_mm--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TInt32--- throws : False--- Skip return : False--foreign import ccall "gdk_screen_width_mm" gdk_screen_width_mm :: -    IO Int32---screenWidthMm ::-    (MonadIO m) =>-    m Int32-screenWidthMm  = liftIO $ do-    result <- gdk_screen_width_mm-    return result--
− GI/Gdk/Objects/Screen.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gdk.Objects.Screen where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/Visual.hs 
@@ -1,542 +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-    visualGetBitsPerRgb                     ,----- ** visualGetBluePixelDetails-    visualGetBluePixelDetails               ,----- ** visualGetByteOrder-    visualGetByteOrder                      ,----- ** visualGetColormapSize-    visualGetColormapSize                   ,----- ** visualGetDepth-    visualGetDepth                          ,----- ** visualGetGreenPixelDetails-    visualGetGreenPixelDetails              ,----- ** visualGetRedPixelDetails-    visualGetRedPixelDetails                ,----- ** visualGetScreen-    visualGetScreen                         ,----- ** visualGetSystem-    visualGetSystem                         ,----- ** visualGetVisualType-    visualGetVisualType                     ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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 instance AttributeList Visual = VisualAttributeList-type VisualAttributeList = ('[ ] :: [(Symbol, *)])--type instance SignalList Visual = VisualSignalList-type VisualSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Visual::get_bits_per_rgb--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-visualGetBitsPerRgb _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_bits_per_rgb _obj'-    touchManagedPtr _obj-    return result---- method Visual::get_blue_pixel_details--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- precision : TBasicType TInt32-    IO ()---visualGetBluePixelDetails ::-    (MonadIO m, VisualK a) =>-    a ->                                    -- _obj-    m (Word32,Int32,Int32)-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')---- method Visual::get_byte_order--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-visualGetByteOrder _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_byte_order _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Visual::get_colormap_size--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-visualGetColormapSize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_colormap_size _obj'-    touchManagedPtr _obj-    return result---- method Visual::get_depth--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-visualGetDepth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_depth _obj'-    touchManagedPtr _obj-    return result---- method Visual::get_green_pixel_details--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- precision : TBasicType TInt32-    IO ()---visualGetGreenPixelDetails ::-    (MonadIO m, VisualK a) =>-    a ->                                    -- _obj-    m (Word32,Int32,Int32)-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')---- method Visual::get_red_pixel_details--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "shift", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "precision", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- precision : TBasicType TInt32-    IO ()---visualGetRedPixelDetails ::-    (MonadIO m, VisualK a) =>-    a ->                                    -- _obj-    m (Word32,Int32,Int32)-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')---- method Visual::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Visual::get_visual_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Visual", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-visualGetVisualType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_visual_get_visual_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Visual::get_best--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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 : []--- hInArgs : []--- returnType : TBasicType TInt32--- 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-visualGetBestDepth  = liftIO $ do-    result <- gdk_visual_get_best_depth-    return result---- method Visual::get_best_type--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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 {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    CUInt ->                                -- visual_type : TInterface "Gdk" "VisualType"-    IO (Ptr Visual)---visualGetBestWithBoth ::-    (MonadIO m) =>-    Int32 ->                                -- depth-    VisualType ->                           -- visual_type-    m Visual-visualGetBestWithBoth depth visual_type = liftIO $ do-    let visual_type' = (fromIntegral . fromEnum) visual_type-    result <- gdk_visual_get_best_with_both depth visual_type'-    checkUnexpectedReturnNULL "gdk_visual_get_best_with_both" result-    result' <- (newObject Visual) result-    return result'---- method Visual::get_best_with_depth--- method type : MemberFunction--- Args : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "depth", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    IO (Ptr Visual)---visualGetBestWithDepth ::-    (MonadIO m) =>-    Int32 ->                                -- depth-    m Visual-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 {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "visual_type", argType = TInterface "Gdk" "VisualType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                           -- visual_type-    m Visual-visualGetBestWithType visual_type = liftIO $ do-    let visual_type' = (fromIntegral . fromEnum) visual_type-    result <- gdk_visual_get_best_with_type visual_type'-    checkUnexpectedReturnNULL "gdk_visual_get_best_with_type" result-    result' <- (newObject Visual) result-    return result'---- method Visual::get_system--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : 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-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,13 +0,0 @@-module GI.Gdk.Objects.Visual where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Objects/Window.hs 
@@ -1,5280 +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-    windowBeep                              ,----- ** windowBeginMoveDrag-    windowBeginMoveDrag                     ,----- ** windowBeginMoveDragForDevice-    windowBeginMoveDragForDevice            ,----- ** windowBeginPaintRect-    windowBeginPaintRect                    ,----- ** windowBeginPaintRegion-    windowBeginPaintRegion                  ,----- ** windowBeginResizeDrag-    windowBeginResizeDrag                   ,----- ** windowBeginResizeDragForDevice-    windowBeginResizeDragForDevice          ,----- ** windowConfigureFinished-    windowConfigureFinished                 ,----- ** windowConstrainSize-    windowConstrainSize                     ,----- ** windowCoordsFromParent-    windowCoordsFromParent                  ,----- ** windowCoordsToParent-    windowCoordsToParent                    ,----- ** windowCreateGlContext-    windowCreateGlContext                   ,----- ** windowCreateSimilarImageSurface-    windowCreateSimilarImageSurface         ,----- ** windowCreateSimilarSurface-    windowCreateSimilarSurface              ,----- ** windowDeiconify-    windowDeiconify                         ,----- ** windowDestroy-    windowDestroy                           ,----- ** windowDestroyNotify-    windowDestroyNotify                     ,----- ** windowEnableSynchronizedConfigure-    windowEnableSynchronizedConfigure       ,----- ** windowEndPaint-    windowEndPaint                          ,----- ** windowEnsureNative-    windowEnsureNative                      ,----- ** windowFlush-    windowFlush                             ,----- ** windowFocus-    windowFocus                             ,----- ** windowFreezeToplevelUpdatesLibgtkOnly-    windowFreezeToplevelUpdatesLibgtkOnly   ,----- ** windowFreezeUpdates-    windowFreezeUpdates                     ,----- ** windowFullscreen-    windowFullscreen                        ,----- ** windowGeometryChanged-    windowGeometryChanged                   ,----- ** windowGetAcceptFocus-    windowGetAcceptFocus                    ,----- ** windowGetBackgroundPattern-    windowGetBackgroundPattern              ,----- ** windowGetChildren-    windowGetChildren                       ,----- ** windowGetChildrenWithUserData-    windowGetChildrenWithUserData           ,----- ** windowGetClipRegion-    windowGetClipRegion                     ,----- ** windowGetComposited-    windowGetComposited                     ,----- ** windowGetCursor-    windowGetCursor                         ,----- ** windowGetDecorations-    windowGetDecorations                    ,----- ** windowGetDeviceCursor-    windowGetDeviceCursor                   ,----- ** windowGetDeviceEvents-    windowGetDeviceEvents                   ,----- ** windowGetDevicePosition-    windowGetDevicePosition                 ,----- ** windowGetDevicePositionDouble-    windowGetDevicePositionDouble           ,----- ** windowGetDisplay-    windowGetDisplay                        ,----- ** windowGetDragProtocol-    windowGetDragProtocol                   ,----- ** windowGetEffectiveParent-    windowGetEffectiveParent                ,----- ** windowGetEffectiveToplevel-    windowGetEffectiveToplevel              ,----- ** windowGetEventCompression-    windowGetEventCompression               ,----- ** windowGetEvents-    windowGetEvents                         ,----- ** windowGetFocusOnMap-    windowGetFocusOnMap                     ,----- ** windowGetFrameClock-    windowGetFrameClock                     ,----- ** windowGetFrameExtents-    windowGetFrameExtents                   ,----- ** windowGetFullscreenMode-    windowGetFullscreenMode                 ,----- ** windowGetGeometry-    windowGetGeometry                       ,----- ** windowGetGroup-    windowGetGroup                          ,----- ** windowGetHeight-    windowGetHeight                         ,----- ** windowGetModalHint-    windowGetModalHint                      ,----- ** windowGetOrigin-    windowGetOrigin                         ,----- ** windowGetParent-    windowGetParent                         ,----- ** windowGetPointer-    windowGetPointer                        ,----- ** windowGetPosition-    windowGetPosition                       ,----- ** windowGetRootCoords-    windowGetRootCoords                     ,----- ** windowGetRootOrigin-    windowGetRootOrigin                     ,----- ** windowGetScaleFactor-    windowGetScaleFactor                    ,----- ** windowGetScreen-    windowGetScreen                         ,----- ** windowGetSourceEvents-    windowGetSourceEvents                   ,----- ** windowGetState-    windowGetState                          ,----- ** windowGetSupportMultidevice-    windowGetSupportMultidevice             ,----- ** windowGetToplevel-    windowGetToplevel                       ,----- ** windowGetTypeHint-    windowGetTypeHint                       ,----- ** windowGetUpdateArea-    windowGetUpdateArea                     ,----- ** windowGetUserData-    windowGetUserData                       ,----- ** windowGetVisibleRegion-    windowGetVisibleRegion                  ,----- ** windowGetVisual-    windowGetVisual                         ,----- ** windowGetWidth-    windowGetWidth                          ,----- ** windowGetWindowType-    windowGetWindowType                     ,----- ** windowHasNative-    windowHasNative                         ,----- ** windowHide-    windowHide                              ,----- ** windowIconify-    windowIconify                           ,----- ** windowInputShapeCombineRegion-    windowInputShapeCombineRegion           ,----- ** windowInvalidateMaybeRecurse-    windowInvalidateMaybeRecurse            ,----- ** windowInvalidateRect-    windowInvalidateRect                    ,----- ** windowInvalidateRegion-    windowInvalidateRegion                  ,----- ** windowIsDestroyed-    windowIsDestroyed                       ,----- ** windowIsInputOnly-    windowIsInputOnly                       ,----- ** windowIsShaped-    windowIsShaped                          ,----- ** windowIsViewable-    windowIsViewable                        ,----- ** windowIsVisible-    windowIsVisible                         ,----- ** windowLower-    windowLower                             ,----- ** windowMarkPaintFromClip-    windowMarkPaintFromClip                 ,----- ** windowMaximize-    windowMaximize                          ,----- ** windowMergeChildInputShapes-    windowMergeChildInputShapes             ,----- ** windowMergeChildShapes-    windowMergeChildShapes                  ,----- ** windowMove-    windowMove                              ,----- ** windowMoveRegion-    windowMoveRegion                        ,----- ** windowMoveResize-    windowMoveResize                        ,----- ** windowNew-    windowNew                               ,----- ** windowPeekChildren-    windowPeekChildren                      ,----- ** windowProcessAllUpdates-    windowProcessAllUpdates                 ,----- ** windowProcessUpdates-    windowProcessUpdates                    ,----- ** windowRaise-    windowRaise                             ,----- ** windowRegisterDnd-    windowRegisterDnd                       ,----- ** windowReparent-    windowReparent                          ,----- ** windowResize-    windowResize                            ,----- ** windowRestack-    windowRestack                           ,----- ** windowScroll-    windowScroll                            ,----- ** windowSetAcceptFocus-    windowSetAcceptFocus                    ,----- ** windowSetBackground-    windowSetBackground                     ,----- ** windowSetBackgroundPattern-    windowSetBackgroundPattern              ,----- ** windowSetBackgroundRgba-    windowSetBackgroundRgba                 ,----- ** windowSetChildInputShapes-    windowSetChildInputShapes               ,----- ** windowSetChildShapes-    windowSetChildShapes                    ,----- ** windowSetComposited-    windowSetComposited                     ,----- ** windowSetCursor-    windowSetCursor                         ,----- ** windowSetDebugUpdates-    windowSetDebugUpdates                   ,----- ** windowSetDecorations-    windowSetDecorations                    ,----- ** windowSetDeviceCursor-    windowSetDeviceCursor                   ,----- ** windowSetDeviceEvents-    windowSetDeviceEvents                   ,----- ** windowSetEventCompression-    windowSetEventCompression               ,----- ** windowSetEvents-    windowSetEvents                         ,----- ** windowSetFocusOnMap-    windowSetFocusOnMap                     ,----- ** windowSetFullscreenMode-    windowSetFullscreenMode                 ,----- ** windowSetFunctions-    windowSetFunctions                      ,----- ** windowSetGeometryHints-    windowSetGeometryHints                  ,----- ** windowSetGroup-    windowSetGroup                          ,----- ** windowSetIconList-    windowSetIconList                       ,----- ** windowSetIconName-    windowSetIconName                       ,----- ** windowSetKeepAbove-    windowSetKeepAbove                      ,----- ** windowSetKeepBelow-    windowSetKeepBelow                      ,----- ** windowSetModalHint-    windowSetModalHint                      ,----- ** windowSetOpacity-    windowSetOpacity                        ,----- ** windowSetOpaqueRegion-    windowSetOpaqueRegion                   ,----- ** windowSetOverrideRedirect-    windowSetOverrideRedirect               ,----- ** windowSetRole-    windowSetRole                           ,----- ** windowSetShadowWidth-    windowSetShadowWidth                    ,----- ** windowSetSkipPagerHint-    windowSetSkipPagerHint                  ,----- ** windowSetSkipTaskbarHint-    windowSetSkipTaskbarHint                ,----- ** windowSetSourceEvents-    windowSetSourceEvents                   ,----- ** windowSetStartupId-    windowSetStartupId                      ,----- ** windowSetStaticGravities-    windowSetStaticGravities                ,----- ** windowSetSupportMultidevice-    windowSetSupportMultidevice             ,----- ** windowSetTitle-    windowSetTitle                          ,----- ** windowSetTransientFor-    windowSetTransientFor                   ,----- ** windowSetTypeHint-    windowSetTypeHint                       ,----- ** windowSetUrgencyHint-    windowSetUrgencyHint                    ,----- ** windowSetUserData-    windowSetUserData                       ,----- ** windowShapeCombineRegion-    windowShapeCombineRegion                ,----- ** windowShow-    windowShow                              ,----- ** windowShowUnraised-    windowShowUnraised                      ,----- ** windowShowWindowMenu-    windowShowWindowMenu                    ,----- ** windowStick-    windowStick                             ,----- ** windowThawToplevelUpdatesLibgtkOnly-    windowThawToplevelUpdatesLibgtkOnly     ,----- ** windowThawUpdates-    windowThawUpdates                       ,----- ** windowUnfullscreen-    windowUnfullscreen                      ,----- ** windowUnmaximize-    windowUnmaximize                        ,----- ** windowUnstick-    windowUnstick                           ,----- ** windowWithdraw-    windowWithdraw                          ,----- -- * Properties--- ** Cursor-    WindowCursorPropertyInfo                ,-    constructWindowCursor                   ,-    getWindowCursor                         ,-    setWindowCursor                         ,----- -- * 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 Prelude ()-import Data.GI.Base.ShortPrelude--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---- 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 _ embedder_x embedder_y offscreen_x offscreen_y _ = do-    let embedder_x' = realToFrac embedder_x-    let embedder_y' = realToFrac embedder_y-    (outoffscreen_x, outoffscreen_y) <- _cb  embedder_x' embedder_y'-    let outoffscreen_x' = realToFrac outoffscreen_x-    poke offscreen_x outoffscreen_x'-    let outoffscreen_y' = realToFrac outoffscreen_y-    poke offscreen_y outoffscreen_y'--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 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'-    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 _ offscreen_x offscreen_y embedder_x embedder_y _ = do-    let offscreen_x' = realToFrac offscreen_x-    let offscreen_y' = realToFrac offscreen_y-    (outembedder_x, outembedder_y) <- _cb  offscreen_x' offscreen_y'-    let outembedder_x' = realToFrac outembedder_x-    poke embedder_x outembedder_x'-    let outembedder_y' = realToFrac outembedder_y-    poke embedder_y outembedder_y'--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]--getWindowCursor :: (MonadIO m, WindowK o) => o -> m 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" val--constructWindowCursor :: (CursorK a) => a -> IO ([Char], GValue)-constructWindowCursor val = constructObjectPropertyObject "cursor" val--data WindowCursorPropertyInfo-instance AttrInfo WindowCursorPropertyInfo where-    type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]-    type AttrSetTypeConstraint WindowCursorPropertyInfo = CursorK-    type AttrBaseTypeConstraint WindowCursorPropertyInfo = WindowK-    type AttrGetType WindowCursorPropertyInfo = Cursor-    type AttrLabel WindowCursorPropertyInfo = "Window::cursor"-    attrGet _ = getWindowCursor-    attrSet _ = setWindowCursor-    attrConstruct _ = constructWindowCursor--type instance AttributeList Window = WindowAttributeList-type WindowAttributeList = ('[ '("cursor", WindowCursorPropertyInfo)] :: [(Symbol, *)])--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 = ('[ '("create-surface", WindowCreateSurfaceSignalInfo), '("from-embedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pick-embedded-child", WindowPickEmbeddedChildSignalInfo), '("to-embedder", WindowToEmbedderSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])---- method Window::new--- method type : Constructor--- Args : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes", argType = TInterface "Gdk" "WindowAttr", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attributes_mask", argType = TInterface "Gdk" "WindowAttributesType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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] ->               -- attributes_mask-    m Window-windowNew parent attributes attributes_mask = liftIO $ do-    maybeParent <- case parent of-        Nothing -> return nullPtr-        Just jParent -> do-            let jParent' = unsafeManagedPtrCastPtr jParent-            return jParent'-    let attributes' = unsafeManagedPtrGetPtr attributes-    let attributes_mask' = gflagsToWord attributes_mask-    result <- gdk_window_new maybeParent attributes' attributes_mask'-    checkUnexpectedReturnNULL "gdk_window_new" result-    result' <- (wrapObject Window) result-    whenJust parent touchManagedPtr-    touchManagedPtr attributes-    return result'---- method Window::beep--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowBeep _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_beep _obj'-    touchManagedPtr _obj-    return ()---- method Window::begin_move_drag--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- root_x : TBasicType TInt32-    Int32 ->                                -- root_y : TBasicType TInt32-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginMoveDrag ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- button-    Int32 ->                                -- root_x-    Int32 ->                                -- root_y-    Word32 ->                               -- timestamp-    m ()-windowBeginMoveDrag _obj button root_x root_y timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_begin_move_drag _obj' button root_x root_y timestamp-    touchManagedPtr _obj-    return ()---- method Window::begin_move_drag_for_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- root_x : TBasicType TInt32-    Int32 ->                                -- root_y : TBasicType TInt32-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginMoveDragForDevice ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a ->                                    -- _obj-    b ->                                    -- device-    Int32 ->                                -- button-    Int32 ->                                -- root_x-    Int32 ->                                -- root_y-    Word32 ->                               -- timestamp-    m ()-windowBeginMoveDragForDevice _obj device button root_x root_y timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    gdk_window_begin_move_drag_for_device _obj' device' button root_x root_y timestamp-    touchManagedPtr _obj-    touchManagedPtr device-    return ()---- method Window::begin_paint_rect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rectangle", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 Cairo.RectangleInt ->               -- rectangle : TInterface "cairo" "RectangleInt"-    IO ()---windowBeginPaintRect ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Cairo.RectangleInt ->                   -- rectangle-    m ()-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 ()---- method Window::begin_paint_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::begin_resize_drag--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- root_x : TBasicType TInt32-    Int32 ->                                -- root_y : TBasicType TInt32-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginResizeDrag ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    WindowEdge ->                           -- edge-    Int32 ->                                -- button-    Int32 ->                                -- root_x-    Int32 ->                                -- root_y-    Word32 ->                               -- timestamp-    m ()-windowBeginResizeDrag _obj edge button root_x root_y timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let edge' = (fromIntegral . fromEnum) edge-    gdk_window_begin_resize_drag _obj' edge' button root_x root_y timestamp-    touchManagedPtr _obj-    return ()---- method Window::begin_resize_drag_for_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edge", argType = TInterface "Gdk" "WindowEdge", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- root_x : TBasicType TInt32-    Int32 ->                                -- root_y : TBasicType TInt32-    Word32 ->                               -- timestamp : TBasicType TUInt32-    IO ()---windowBeginResizeDragForDevice ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a ->                                    -- _obj-    WindowEdge ->                           -- edge-    b ->                                    -- device-    Int32 ->                                -- button-    Int32 ->                                -- root_x-    Int32 ->                                -- root_y-    Word32 ->                               -- timestamp-    m ()-windowBeginResizeDragForDevice _obj edge device button root_x root_y 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 root_x root_y timestamp-    touchManagedPtr _obj-    touchManagedPtr device-    return ()---- method Window::configure_finished--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowConfigureFinished _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_configure_finished _obj'-    touchManagedPtr _obj-    return ()---- method Window::coords_from_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                               -- parent_x-    Double ->                               -- parent_y-    m (Double,Double)-windowCoordsFromParent _obj parent_x parent_y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let parent_x' = realToFrac parent_x-    let parent_y' = realToFrac parent_y-    x <- allocMem :: IO (Ptr CDouble)-    y <- allocMem :: IO (Ptr CDouble)-    gdk_window_coords_from_parent _obj' parent_x' parent_y' 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'')---- method Window::coords_to_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "parent_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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)-windowCoordsToParent _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let x' = realToFrac x-    let y' = realToFrac y-    parent_x <- allocMem :: IO (Ptr CDouble)-    parent_y <- allocMem :: IO (Ptr CDouble)-    gdk_window_coords_to_parent _obj' x' y' parent_x parent_y-    parent_x' <- peek parent_x-    let parent_x'' = realToFrac parent_x'-    parent_y' <- peek parent_y-    let parent_y'' = realToFrac parent_y'-    touchManagedPtr _obj-    freeMem parent_x-    freeMem parent_y-    return (parent_x'', parent_y'')---- method Window::create_gl_context--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 ()-     )---- method Window::create_similar_image_surface--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    Int32 ->                                -- scale : TBasicType TInt32-    IO (Ptr Cairo.Surface)---windowCreateSimilarImageSurface ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- format-    Int32 ->                                -- width-    Int32 ->                                -- height-    Int32 ->                                -- scale-    m Cairo.Surface-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'---- method Window::create_similar_surface--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content", argType = TInterface "cairo" "Content", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO (Ptr Cairo.Surface)---windowCreateSimilarSurface ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Cairo.Content ->                        -- content-    Int32 ->                                -- width-    Int32 ->                                -- height-    m Cairo.Surface-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'---- method Window::deiconify--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowDeiconify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_deiconify _obj'-    touchManagedPtr _obj-    return ()---- method Window::destroy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowDestroy _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_destroy _obj'-    touchManagedPtr _obj-    return ()---- method Window::destroy_notify--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowDestroyNotify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_destroy_notify _obj'-    touchManagedPtr _obj-    return ()---- method Window::enable_synchronized_configure--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowEnableSynchronizedConfigure _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_enable_synchronized_configure _obj'-    touchManagedPtr _obj-    return ()---- method Window::end_paint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowEndPaint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_end_paint _obj'-    touchManagedPtr _obj-    return ()---- method Window::ensure_native--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowEnsureNative _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_ensure_native _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::flush--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowFlush _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_flush _obj'-    touchManagedPtr _obj-    return ()---- method Window::focus--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowFocus _obj timestamp = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_focus _obj' timestamp-    touchManagedPtr _obj-    return ()---- method Window::freeze_toplevel_updates_libgtk_only--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowFreezeToplevelUpdatesLibgtkOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_freeze_toplevel_updates_libgtk_only _obj'-    touchManagedPtr _obj-    return ()---- method Window::freeze_updates--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowFreezeUpdates _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_freeze_updates _obj'-    touchManagedPtr _obj-    return ()---- method Window::fullscreen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowFullscreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_fullscreen _obj'-    touchManagedPtr _obj-    return ()---- method Window::geometry_changed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowGeometryChanged _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_geometry_changed _obj'-    touchManagedPtr _obj-    return ()---- method Window::get_accept_focus--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetAcceptFocus _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_accept_focus _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::get_background_pattern--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Cairo.Pattern-windowGetBackgroundPattern _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_background_pattern _obj'-    checkUnexpectedReturnNULL "gdk_window_get_background_pattern" result-    result' <- (newBoxed Cairo.Pattern) result-    touchManagedPtr _obj-    return result'---- method Window::get_children--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-windowGetChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_children _obj'-    checkUnexpectedReturnNULL "gdk_window_get_children" result-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- method Window::get_children_with_user_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TVoid-    IO (Ptr (GList (Ptr Window)))---windowGetChildrenWithUserData ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Ptr () ->                               -- user_data-    m [Window]-windowGetChildrenWithUserData _obj user_data = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_children_with_user_data _obj' user_data-    checkUnexpectedReturnNULL "gdk_window_get_children_with_user_data" result-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    g_list_free result-    touchManagedPtr _obj-    return result''---- method Window::get_clip_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_composited--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetComposited _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_composited _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::get_cursor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Cursor-windowGetCursor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_cursor _obj'-    checkUnexpectedReturnNULL "gdk_window_get_cursor" result-    result' <- (newObject Cursor) result-    touchManagedPtr _obj-    return result'---- method Window::get_decorations--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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])-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'')---- method Window::get_device_cursor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Cursor-windowGetDeviceCursor _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    result <- gdk_window_get_device_cursor _obj' device'-    checkUnexpectedReturnNULL "gdk_window_get_device_cursor" result-    result' <- (newObject Cursor) result-    touchManagedPtr _obj-    touchManagedPtr device-    return result'---- method Window::get_device_events--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-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'---- method Window::get_device_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    Ptr CUInt ->                            -- mask : TInterface "Gdk" "ModifierType"-    IO (Ptr Window)---windowGetDevicePosition ::-    (MonadIO m, WindowK a, DeviceK b) =>-    a ->                                    -- _obj-    b ->                                    -- device-    m (Window,Int32,Int32,[ModifierType])-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-    checkUnexpectedReturnNULL "gdk_window_get_device_position" result-    result' <- (newObject Window) 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 (result', x', y', mask'')---- method Window::get_device_position_double--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 (Window,Double,Double,[ModifierType])-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-    checkUnexpectedReturnNULL "gdk_window_get_device_position_double" result-    result' <- (newObject Window) 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 (result', x'', y'', mask'')---- method Window::get_display--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_drag_protocol--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "target", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-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'')---- method Window::get_effective_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_effective_toplevel--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_event_compression--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetEventCompression _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_event_compression _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::get_events--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-windowGetEvents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_events _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method Window::get_focus_on_map--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetFocusOnMap _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_focus_on_map _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::get_frame_clock--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_frame_extents--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 Cairo.RectangleInt ->               -- rect : TInterface "cairo" "RectangleInt"-    IO ()---windowGetFrameExtents ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    m (Cairo.RectangleInt)-windowGetFrameExtents _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    rect <- callocBoxedBytes 16 :: IO (Ptr Cairo.RectangleInt)-    gdk_window_get_frame_extents _obj' rect-    rect' <- (wrapBoxed Cairo.RectangleInt) rect-    touchManagedPtr _obj-    return rect'---- method Window::get_fullscreen_mode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetFullscreenMode _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_fullscreen_mode _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Window::get_geometry--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    Ptr Int32 ->                            -- width : TBasicType TInt32-    Ptr Int32 ->                            -- height : TBasicType TInt32-    IO ()---windowGetGeometry ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    m (Int32,Int32,Int32,Int32)-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')---- method Window::get_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_height--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-windowGetHeight _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_height _obj'-    touchManagedPtr _obj-    return result---- method Window::get_modal_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetModalHint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_modal_hint _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::get_origin--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    IO Int32---windowGetOrigin ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    m (Int32,Int32,Int32)-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')---- method Window::get_parent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_pointer--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    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 (Window,Int32,Int32,[ModifierType])-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-    checkUnexpectedReturnNULL "gdk_window_get_pointer" result-    result' <- (newObject Window) result-    x' <- peek x-    y' <- peek y-    mask' <- peek mask-    let mask'' = wordToGFlags mask'-    touchManagedPtr _obj-    freeMem x-    freeMem y-    freeMem mask-    return (result', x', y', mask'')---- method Window::get_position--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    IO ()---windowGetPosition ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    m (Int32,Int32)-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')---- method Window::get_root_coords--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "root_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "root_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Ptr Int32 ->                            -- root_x : TBasicType TInt32-    Ptr Int32 ->                            -- root_y : TBasicType TInt32-    IO ()---windowGetRootCoords ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    m (Int32,Int32)-windowGetRootCoords _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    root_x <- allocMem :: IO (Ptr Int32)-    root_y <- allocMem :: IO (Ptr Int32)-    gdk_window_get_root_coords _obj' x y root_x root_y-    root_x' <- peek root_x-    root_y' <- peek root_y-    touchManagedPtr _obj-    freeMem root_x-    freeMem root_y-    return (root_x', root_y')---- method Window::get_root_origin--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32-    IO ()---windowGetRootOrigin ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    m (Int32,Int32)-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')---- method Window::get_scale_factor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-windowGetScaleFactor _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_scale_factor _obj'-    touchManagedPtr _obj-    return result---- method Window::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_source_events--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-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'---- method Window::get_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-windowGetState _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_state _obj'-    let result' = wordToGFlags result-    touchManagedPtr _obj-    return result'---- method Window::get_support_multidevice--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetSupportMultidevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_support_multidevice _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::get_toplevel--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_type_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetTypeHint _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_type_hint _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Window::get_update_area--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_user_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "data", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TVoid-    IO ()---windowGetUserData ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    m ((Ptr ()))-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_'---- method Window::get_visible_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_visual--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::get_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TInt32--- 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-windowGetWidth _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_width _obj'-    touchManagedPtr _obj-    return result---- method Window::get_window_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowGetWindowType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_get_window_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Window::has_native--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowHasNative _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_has_native _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::hide--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowHide _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_hide _obj'-    touchManagedPtr _obj-    return ()---- method Window::iconify--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowIconify _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_iconify _obj'-    touchManagedPtr _obj-    return ()---- method Window::input_shape_combine_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- offset_y : TBasicType TInt32-    IO ()---windowInputShapeCombineRegion ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Cairo.Region ->                         -- shape_region-    Int32 ->                                -- offset_x-    Int32 ->                                -- offset_y-    m ()-windowInputShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let shape_region' = unsafeManagedPtrGetPtr shape_region-    gdk_window_input_shape_combine_region _obj' shape_region' offset_x offset_y-    touchManagedPtr _obj-    touchManagedPtr shape_region-    return ()---- method Window::invalidate_maybe_recurse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "child_func", argType = TInterface "Gdk" "WindowChildFunc", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeCall, argClosure = 3, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TVoid-    IO ()---windowInvalidateMaybeRecurse ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Cairo.Region ->                         -- region-    Maybe (WindowChildFunc) ->              -- child_func-    m ()-windowInvalidateMaybeRecurse _obj region child_func = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let region' = unsafeManagedPtrGetPtr region-    maybeChild_func <- case child_func of-        Nothing -> return (castPtrToFunPtr nullPtr)-        Just jChild_func -> do-            jChild_func' <- mkWindowChildFunc (windowChildFuncWrapper Nothing jChild_func)-            return jChild_func'-    let user_data = nullPtr-    gdk_window_invalidate_maybe_recurse _obj' region' maybeChild_func user_data-    safeFreeFunPtr $ castFunPtrToPtr maybeChild_func-    touchManagedPtr _obj-    touchManagedPtr region-    return ()---- method Window::invalidate_rect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rect", argType = TInterface "cairo" "RectangleInt", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_window_invalidate_rect" gdk_window_invalidate_rect :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Ptr Cairo.RectangleInt ->               -- rect : TInterface "cairo" "RectangleInt"-    CInt ->                                 -- invalidate_children : TBasicType TBoolean-    IO ()---windowInvalidateRect ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Maybe (Cairo.RectangleInt) ->           -- rect-    Bool ->                                 -- invalidate_children-    m ()-windowInvalidateRect _obj rect invalidate_children = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeRect <- case rect of-        Nothing -> return nullPtr-        Just jRect -> do-            let jRect' = unsafeManagedPtrGetPtr jRect-            return jRect'-    let invalidate_children' = (fromIntegral . fromEnum) invalidate_children-    gdk_window_invalidate_rect _obj' maybeRect invalidate_children'-    touchManagedPtr _obj-    whenJust rect touchManagedPtr-    return ()---- method Window::invalidate_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "invalidate_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- invalidate_children-    m ()-windowInvalidateRegion _obj region invalidate_children = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let region' = unsafeManagedPtrGetPtr region-    let invalidate_children' = (fromIntegral . fromEnum) invalidate_children-    gdk_window_invalidate_region _obj' region' invalidate_children'-    touchManagedPtr _obj-    touchManagedPtr region-    return ()---- method Window::is_destroyed--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowIsDestroyed _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_destroyed _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::is_input_only--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowIsInputOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_input_only _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::is_shaped--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowIsShaped _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_shaped _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::is_viewable--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowIsViewable _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_viewable _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::is_visible--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-windowIsVisible _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_is_visible _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::lower--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowLower _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_lower _obj'-    touchManagedPtr _obj-    return ()---- method Window::mark_paint_from_clip--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::maximize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowMaximize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_maximize _obj'-    touchManagedPtr _obj-    return ()---- method Window::merge_child_input_shapes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowMergeChildInputShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_merge_child_input_shapes _obj'-    touchManagedPtr _obj-    return ()---- method Window::merge_child_shapes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowMergeChildShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_merge_child_shapes _obj'-    touchManagedPtr _obj-    return ()---- method Window::move--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_window_move" gdk_window_move :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO ()---windowMove ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    m ()-windowMove _obj x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_move _obj' x y-    touchManagedPtr _obj-    return ()---- method Window::move_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- dy : TBasicType TInt32-    IO ()---windowMoveRegion ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Cairo.Region ->                         -- region-    Int32 ->                                -- dx-    Int32 ->                                -- dy-    m ()-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 ()---- method Window::move_resize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO ()---windowMoveResize ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- x-    Int32 ->                                -- y-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()-windowMoveResize _obj x y width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_move_resize _obj' x y width height-    touchManagedPtr _obj-    return ()---- method Window::peek_children--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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]-windowPeekChildren _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_window_peek_children _obj'-    checkUnexpectedReturnNULL "gdk_window_peek_children" result-    result' <- unpackGList result-    result'' <- mapM (newObject Window) result'-    touchManagedPtr _obj-    return result''---- method Window::process_updates--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "update_children", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- update_children-    m ()-windowProcessUpdates _obj update_children = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let update_children' = (fromIntegral . fromEnum) update_children-    gdk_window_process_updates _obj' update_children'-    touchManagedPtr _obj-    return ()---- method Window::raise--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowRaise _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_raise _obj'-    touchManagedPtr _obj-    return ()---- method Window::register_dnd--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowRegisterDnd _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_register_dnd _obj'-    touchManagedPtr _obj-    return ()---- method Window::reparent--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- y : TBasicType TInt32-    IO ()---windowReparent ::-    (MonadIO m, WindowK a, WindowK b) =>-    a ->                                    -- _obj-    b ->                                    -- new_parent-    Int32 ->                                -- x-    Int32 ->                                -- y-    m ()-windowReparent _obj new_parent x y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let new_parent' = unsafeManagedPtrCastPtr new_parent-    gdk_window_reparent _obj' new_parent' x y-    touchManagedPtr _obj-    touchManagedPtr new_parent-    return ()---- method Window::resize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_window_resize" gdk_window_resize :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32-    IO ()---windowResize ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- width-    Int32 ->                                -- height-    m ()-windowResize _obj width height = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_resize _obj' width height-    touchManagedPtr _obj-    return ()---- method Window::restack--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sibling", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "above", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::scroll--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dx", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dy", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_window_scroll" gdk_window_scroll :: -    Ptr Window ->                           -- _obj : TInterface "Gdk" "Window"-    Int32 ->                                -- dx : TBasicType TInt32-    Int32 ->                                -- dy : TBasicType TInt32-    IO ()---windowScroll ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- dx-    Int32 ->                                -- dy-    m ()-windowScroll _obj dx dy = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_scroll _obj' dx dy-    touchManagedPtr _obj-    return ()---- method Window::set_accept_focus--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "accept_focus", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- accept_focus-    m ()-windowSetAcceptFocus _obj accept_focus = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let accept_focus' = (fromIntegral . fromEnum) accept_focus-    gdk_window_set_accept_focus _obj' accept_focus'-    touchManagedPtr _obj-    return ()---- method Window::set_background--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetBackground _obj color = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let color' = unsafeManagedPtrGetPtr color-    gdk_window_set_background _obj' color'-    touchManagedPtr _obj-    touchManagedPtr color-    return ()---- method Window::set_background_pattern--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pattern", argType = TInterface "cairo" "Pattern", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_background_rgba--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_child_input_shapes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetChildInputShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_set_child_input_shapes _obj'-    touchManagedPtr _obj-    return ()---- method Window::set_child_shapes--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetChildShapes _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_set_child_shapes _obj'-    touchManagedPtr _obj-    return ()---- method Window::set_composited--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "composited", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetComposited _obj composited = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let composited' = (fromIntegral . fromEnum) composited-    gdk_window_set_composited _obj' composited'-    touchManagedPtr _obj-    return ()---- method Window::set_cursor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_decorations--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "decorations", argType = TInterface "Gdk" "WMDecoration", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetDecorations _obj decorations = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let decorations' = gflagsToWord decorations-    gdk_window_set_decorations _obj' decorations'-    touchManagedPtr _obj-    return ()---- method Window::set_device_cursor--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_device_events--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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] ->                          -- event_mask-    m ()-windowSetDeviceEvents _obj device event_mask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    let event_mask' = gflagsToWord event_mask-    gdk_window_set_device_events _obj' device' event_mask'-    touchManagedPtr _obj-    touchManagedPtr device-    return ()---- method Window::set_event_compression--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_compression", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- event_compression-    m ()-windowSetEventCompression _obj event_compression = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let event_compression' = (fromIntegral . fromEnum) event_compression-    gdk_window_set_event_compression _obj' event_compression'-    touchManagedPtr _obj-    return ()---- method Window::set_events--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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] ->                          -- event_mask-    m ()-windowSetEvents _obj event_mask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let event_mask' = gflagsToWord event_mask-    gdk_window_set_events _obj' event_mask'-    touchManagedPtr _obj-    return ()---- method Window::set_focus_on_map--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "focus_on_map", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- focus_on_map-    m ()-windowSetFocusOnMap _obj focus_on_map = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let focus_on_map' = (fromIntegral . fromEnum) focus_on_map-    gdk_window_set_focus_on_map _obj' focus_on_map'-    touchManagedPtr _obj-    return ()---- method Window::set_fullscreen_mode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mode", argType = TInterface "Gdk" "FullscreenMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetFullscreenMode _obj mode = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let mode' = (fromIntegral . fromEnum) mode-    gdk_window_set_fullscreen_mode _obj' mode'-    touchManagedPtr _obj-    return ()---- method Window::set_functions--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "functions", argType = TInterface "Gdk" "WMFunction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetFunctions _obj functions = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let functions' = gflagsToWord functions-    gdk_window_set_functions _obj' functions'-    touchManagedPtr _obj-    return ()---- method Window::set_geometry_hints--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "geom_mask", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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] ->                        -- geom_mask-    m ()-windowSetGeometryHints _obj geometry geom_mask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let geometry' = unsafeManagedPtrGetPtr geometry-    let geom_mask' = gflagsToWord geom_mask-    gdk_window_set_geometry_hints _obj' geometry' geom_mask'-    touchManagedPtr _obj-    touchManagedPtr geometry-    return ()---- method Window::set_group--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "leader", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_icon_list--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "pixbufs", argType = TGList (TInterface "GdkPixbuf" "Pixbuf"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_icon_name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_keep_above--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetKeepAbove _obj setting = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let setting' = (fromIntegral . fromEnum) setting-    gdk_window_set_keep_above _obj' setting'-    touchManagedPtr _obj-    return ()---- method Window::set_keep_below--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetKeepBelow _obj setting = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let setting' = (fromIntegral . fromEnum) setting-    gdk_window_set_keep_below _obj' setting'-    touchManagedPtr _obj-    return ()---- method Window::set_modal_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "modal", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetModalHint _obj modal = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let modal' = (fromIntegral . fromEnum) modal-    gdk_window_set_modal_hint _obj' modal'-    touchManagedPtr _obj-    return ()---- method Window::set_opacity--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "opacity", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetOpacity _obj opacity = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let opacity' = realToFrac opacity-    gdk_window_set_opacity _obj' opacity'-    touchManagedPtr _obj-    return ()---- method Window::set_opaque_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_override_redirect--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "override_redirect", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- override_redirect-    m ()-windowSetOverrideRedirect _obj override_redirect = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let override_redirect' = (fromIntegral . fromEnum) override_redirect-    gdk_window_set_override_redirect _obj' override_redirect'-    touchManagedPtr _obj-    return ()---- method Window::set_role--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "role", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetRole _obj role = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    role' <- textToCString role-    gdk_window_set_role _obj' role'-    touchManagedPtr _obj-    freeMem role'-    return ()---- method Window::set_shadow_width--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "left", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "right", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "top", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "bottom", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- right : TBasicType TInt32-    Int32 ->                                -- top : TBasicType TInt32-    Int32 ->                                -- bottom : TBasicType TInt32-    IO ()---windowSetShadowWidth ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Int32 ->                                -- left-    Int32 ->                                -- right-    Int32 ->                                -- top-    Int32 ->                                -- bottom-    m ()-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 ()---- method Window::set_skip_pager_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_pager", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- skips_pager-    m ()-windowSetSkipPagerHint _obj skips_pager = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let skips_pager' = (fromIntegral . fromEnum) skips_pager-    gdk_window_set_skip_pager_hint _obj' skips_pager'-    touchManagedPtr _obj-    return ()---- method Window::set_skip_taskbar_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "skips_taskbar", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- skips_taskbar-    m ()-windowSetSkipTaskbarHint _obj skips_taskbar = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let skips_taskbar' = (fromIntegral . fromEnum) skips_taskbar-    gdk_window_set_skip_taskbar_hint _obj' skips_taskbar'-    touchManagedPtr _obj-    return ()---- method Window::set_source_events--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "source", argType = TInterface "Gdk" "InputSource", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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] ->                          -- event_mask-    m ()-windowSetSourceEvents _obj source event_mask = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let source' = (fromIntegral . fromEnum) source-    let event_mask' = gflagsToWord event_mask-    gdk_window_set_source_events _obj' source' event_mask'-    touchManagedPtr _obj-    return ()---- method Window::set_startup_id--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                               -- startup_id-    m ()-windowSetStartupId _obj startup_id = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    startup_id' <- textToCString startup_id-    gdk_window_set_startup_id _obj' startup_id'-    touchManagedPtr _obj-    freeMem startup_id'-    return ()---- method Window::set_static_gravities--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "use_static", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                                 -- use_static-    m Bool-windowSetStaticGravities _obj use_static = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let use_static' = (fromIntegral . fromEnum) use_static-    result <- gdk_window_set_static_gravities _obj' use_static'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method Window::set_support_multidevice--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "support_multidevice", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ->                                 -- support_multidevice-    m ()-windowSetSupportMultidevice _obj support_multidevice = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let support_multidevice' = (fromIntegral . fromEnum) support_multidevice-    gdk_window_set_support_multidevice _obj' support_multidevice'-    touchManagedPtr _obj-    return ()---- method Window::set_title--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "title", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetTitle _obj title = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    title' <- textToCString title-    gdk_window_set_title _obj' title'-    touchManagedPtr _obj-    freeMem title'-    return ()---- method Window::set_transient_for--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "parent", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Window::set_type_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "hint", argType = TInterface "Gdk" "WindowTypeHint", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetTypeHint _obj hint = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let hint' = (fromIntegral . fromEnum) hint-    gdk_window_set_type_hint _obj' hint'-    touchManagedPtr _obj-    return ()---- method Window::set_urgency_hint--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "urgent", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetUrgencyHint _obj urgent = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    let urgent' = (fromIntegral . fromEnum) urgent-    gdk_window_set_urgency_hint _obj' urgent'-    touchManagedPtr _obj-    return ()---- method Window::set_user_data--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "user_data", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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) ->                            -- user_data-    m ()-windowSetUserData _obj user_data = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeUser_data <- case user_data of-        Nothing -> return nullPtr-        Just jUser_data -> do-            let jUser_data' = unsafeManagedPtrCastPtr jUser_data-            return jUser_data'-    gdk_window_set_user_data _obj' maybeUser_data-    touchManagedPtr _obj-    whenJust user_data touchManagedPtr-    return ()---- method Window::shape_combine_region--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "shape_region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "offset_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- offset_y : TBasicType TInt32-    IO ()---windowShapeCombineRegion ::-    (MonadIO m, WindowK a) =>-    a ->                                    -- _obj-    Maybe (Cairo.Region) ->                 -- shape_region-    Int32 ->                                -- offset_x-    Int32 ->                                -- offset_y-    m ()-windowShapeCombineRegion _obj shape_region offset_x offset_y = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    maybeShape_region <- case shape_region of-        Nothing -> return nullPtr-        Just jShape_region -> do-            let jShape_region' = unsafeManagedPtrGetPtr jShape_region-            return jShape_region'-    gdk_window_shape_combine_region _obj' maybeShape_region offset_x offset_y-    touchManagedPtr _obj-    whenJust shape_region touchManagedPtr-    return ()---- method Window::show--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowShow _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_show _obj'-    touchManagedPtr _obj-    return ()---- method Window::show_unraised--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowShowUnraised _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_show_unraised _obj'-    touchManagedPtr _obj-    return ()---- method Window::show_window_menu--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Window::stick--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowStick _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_stick _obj'-    touchManagedPtr _obj-    return ()---- method Window::thaw_toplevel_updates_libgtk_only--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowThawToplevelUpdatesLibgtkOnly _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_thaw_toplevel_updates_libgtk_only _obj'-    touchManagedPtr _obj-    return ()---- method Window::thaw_updates--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowThawUpdates _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_thaw_updates _obj'-    touchManagedPtr _obj-    return ()---- method Window::unfullscreen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowUnfullscreen _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_unfullscreen _obj'-    touchManagedPtr _obj-    return ()---- method Window::unmaximize--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowUnmaximize _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_unmaximize _obj'-    touchManagedPtr _obj-    return ()---- method Window::unstick--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowUnstick _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_unstick _obj'-    touchManagedPtr _obj-    return ()---- method Window::withdraw--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowWithdraw _obj = liftIO $ do-    let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_window_withdraw _obj'-    touchManagedPtr _obj-    return ()---- method Window::at_pointer--- method type : MemberFunction--- Args : [Arg {argName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : []--- returnType : TInterface "Gdk" "Window"--- throws : False--- Skip return : False--foreign import ccall "gdk_window_at_pointer" gdk_window_at_pointer :: -    Ptr Int32 ->                            -- win_x : TBasicType TInt32-    Ptr Int32 ->                            -- win_y : TBasicType TInt32-    IO (Ptr Window)--{-# DEPRECATED windowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-}-windowAtPointer ::-    (MonadIO m) =>-    m (Window,Int32,Int32)-windowAtPointer  = liftIO $ do-    win_x <- allocMem :: IO (Ptr Int32)-    win_y <- allocMem :: IO (Ptr Int32)-    result <- gdk_window_at_pointer win_x win_y-    checkUnexpectedReturnNULL "gdk_window_at_pointer" result-    result' <- (newObject Window) result-    win_x' <- peek win_x-    win_y' <- peek win_y-    freeMem win_x-    freeMem win_y-    return (result', win_x', win_y')---- method Window::constrain_size--- method type : MemberFunction--- Args : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "new_width", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "new_height", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "geometry", argType = TInterface "Gdk" "Geometry", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "flags", argType = TInterface "Gdk" "WindowHints", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 TInt32-    Int32 ->                                -- height : TBasicType TInt32-    Ptr Int32 ->                            -- new_width : TBasicType TInt32-    Ptr Int32 ->                            -- new_height : TBasicType TInt32-    IO ()---windowConstrainSize ::-    (MonadIO m) =>-    Geometry ->                             -- geometry-    [WindowHints] ->                        -- flags-    Int32 ->                                -- width-    Int32 ->                                -- height-    m (Int32,Int32)-windowConstrainSize geometry flags width height = liftIO $ do-    let geometry' = unsafeManagedPtrGetPtr geometry-    let flags' = gflagsToWord flags-    new_width <- allocMem :: IO (Ptr Int32)-    new_height <- allocMem :: IO (Ptr Int32)-    gdk_window_constrain_size geometry' flags' width height new_width new_height-    new_width' <- peek new_width-    new_height' <- peek new_height-    touchManagedPtr geometry-    freeMem new_width-    freeMem new_height-    return (new_width', new_height')---- method Window::process_all_updates--- method type : MemberFunction--- Args : []--- Lengths : []--- hInArgs : []--- returnType : TBasicType TVoid--- throws : False--- Skip return : False--foreign import ccall "gdk_window_process_all_updates" gdk_window_process_all_updates :: -    IO ()---windowProcessAllUpdates ::-    (MonadIO m) =>-    m ()-windowProcessAllUpdates  = liftIO $ do-    gdk_window_process_all_updates-    return ()---- method Window::set_debug_updates--- method type : MemberFunction--- Args : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "setting", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-windowSetDebugUpdates setting = liftIO $ do-    let setting' = (fromIntegral . fromEnum) setting-    gdk_window_set_debug_updates setting'-    return ()--
− GI/Gdk/Objects/Window.hs-boot 
@@ -1,18 +0,0 @@-module GI.Gdk.Objects.Window where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Structs.hs 
@@ -1,84 +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.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.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.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.TimeCoord-import GI.Gdk.Structs.WindowAttr-import GI.Gdk.Structs.WindowRedirect--import Prelude ()-import Data.GI.Base.ShortPrelude--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,69 +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--- ** atomName-    atomName                                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noAtom :: Maybe Atom-noAtom = Nothing---- method Atom::name--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'--
− GI/Gdk/Structs/Atom.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.Atom where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Atom = Atom (ForeignPtr Atom)
− GI/Gdk/Structs/Color.hs 
@@ -1,233 +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(..)                               ,-    noColor                                 ,--- -- * Methods--- ** colorCopy-    colorCopy                               ,----- ** colorEqual-    colorEqual                              ,----- ** colorFree-    colorFree                               ,----- ** colorHash-    colorHash                               ,----- ** colorToString-    colorToString                           ,----- -- * Properties--- ** Blue-    colorReadBlue                           ,----- ** Green-    colorReadGreen                          ,----- ** Pixel-    colorReadPixel                          ,----- ** Red-    colorReadRed                            ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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--noColor :: Maybe Color-noColor = Nothing--colorReadPixel :: Color -> IO Word32-colorReadPixel s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--colorReadRed :: Color -> IO Word16-colorReadRed s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Word16-    return val--colorReadGreen :: Color -> IO Word16-colorReadGreen s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 6) :: IO Word16-    return val--colorReadBlue :: Color -> IO Word16-colorReadBlue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Word16-    return val---- method Color::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Color::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "colorb", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Color::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-colorFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_color_free _obj'-    touchManagedPtr _obj-    return ()---- method Color::hash--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- 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-colorHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_color_hash _obj'-    touchManagedPtr _obj-    return result---- method Color::to_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'--
− GI/Gdk/Structs/Color.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.Color where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Structs/EventAny.hs 
@@ -1,68 +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(..)                            ,-    noEventAny                              ,--- -- * Properties--- ** SendEvent-    eventAnyReadSendEvent                   ,----- ** Type-    eventAnyReadType                        ,----- ** Window-    eventAnyReadWindow                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventAny :: Maybe EventAny-noEventAny = Nothing--eventAnyReadType :: EventAny -> IO EventType-eventAnyReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventAnyReadWindow :: EventAny -> IO Window-eventAnyReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventAnyReadSendEvent :: EventAny -> IO Int8-eventAnyReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--
− GI/Gdk/Structs/EventAny.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventAny where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventAny = EventAny (ForeignPtr EventAny)
− GI/Gdk/Structs/EventButton.hs 
@@ -1,186 +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(..)                         ,-    noEventButton                           ,--- -- * Properties--- ** Axes-    eventButtonReadAxes                     ,----- ** Button-    eventButtonReadButton                   ,----- ** Device-    eventButtonReadDevice                   ,----- ** SendEvent-    eventButtonReadSendEvent                ,----- ** State-    eventButtonReadState                    ,----- ** Time-    eventButtonReadTime                     ,----- ** Type-    eventButtonReadType                     ,----- ** Window-    eventButtonReadWindow                   ,----- ** X-    eventButtonReadX                        ,----- ** XRoot-    eventButtonReadXRoot                    ,----- ** Y-    eventButtonReadY                        ,----- ** YRoot-    eventButtonReadYRoot                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventButton :: Maybe EventButton-noEventButton = Nothing--eventButtonReadType :: EventButton -> IO EventType-eventButtonReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventButtonReadWindow :: EventButton -> IO Window-eventButtonReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventButtonReadSendEvent :: EventButton -> IO Int8-eventButtonReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventButtonReadTime :: EventButton -> IO Word32-eventButtonReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventButtonReadX :: EventButton -> IO Double-eventButtonReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonReadY :: EventButton -> IO Double-eventButtonReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonReadAxes :: EventButton -> IO Double-eventButtonReadAxes s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonReadState :: EventButton -> IO [ModifierType]-eventButtonReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventButtonReadButton :: EventButton -> IO Word32-eventButtonReadButton s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Word32-    return val--eventButtonReadDevice :: EventButton -> IO Device-eventButtonReadDevice s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device)-    val' <- (newObject Device) val-    return val'--eventButtonReadXRoot :: EventButton -> IO Double-eventButtonReadXRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventButtonReadYRoot :: EventButton -> IO Double-eventButtonReadYRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--
− GI/Gdk/Structs/EventButton.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventButton where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventButton = EventButton (ForeignPtr EventButton)
− GI/Gdk/Structs/EventConfigure.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)--Generated when a window size or position has changed.--}--module GI.Gdk.Structs.EventConfigure-    ( ---- * Exported types-    EventConfigure(..)                      ,-    noEventConfigure                        ,--- -- * Properties--- ** Height-    eventConfigureReadHeight                ,----- ** SendEvent-    eventConfigureReadSendEvent             ,----- ** Type-    eventConfigureReadType                  ,----- ** Width-    eventConfigureReadWidth                 ,----- ** Window-    eventConfigureReadWindow                ,----- ** X-    eventConfigureReadX                     ,----- ** Y-    eventConfigureReadY                     ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventConfigure :: Maybe EventConfigure-noEventConfigure = Nothing--eventConfigureReadType :: EventConfigure -> IO EventType-eventConfigureReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventConfigureReadWindow :: EventConfigure -> IO Window-eventConfigureReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventConfigureReadSendEvent :: EventConfigure -> IO Int8-eventConfigureReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventConfigureReadX :: EventConfigure -> IO Int32-eventConfigureReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--eventConfigureReadY :: EventConfigure -> IO Int32-eventConfigureReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--eventConfigureReadWidth :: EventConfigure -> IO Int32-eventConfigureReadWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--eventConfigureReadHeight :: EventConfigure -> IO Int32-eventConfigureReadHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--
− GI/Gdk/Structs/EventConfigure.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventConfigure where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventConfigure = EventConfigure (ForeignPtr EventConfigure)
− GI/Gdk/Structs/EventCrossing.hs 
@@ -1,165 +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(..)                       ,-    noEventCrossing                         ,--- -- * Properties--- ** Detail-    eventCrossingReadDetail                 ,----- ** Focus-    eventCrossingReadFocus                  ,----- ** Mode-    eventCrossingReadMode                   ,----- ** SendEvent-    eventCrossingReadSendEvent              ,----- ** State-    eventCrossingReadState                  ,----- ** Subwindow-    eventCrossingReadSubwindow              ,----- ** Time-    eventCrossingReadTime                   ,----- ** Type-    eventCrossingReadType                   ,----- ** Window-    eventCrossingReadWindow                 ,----- ** X-    eventCrossingReadX                      ,----- ** XRoot-    eventCrossingReadXRoot                  ,----- ** Y-    eventCrossingReadY                      ,----- ** YRoot-    eventCrossingReadYRoot                  ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventCrossing :: Maybe EventCrossing-noEventCrossing = Nothing--eventCrossingReadType :: EventCrossing -> IO EventType-eventCrossingReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventCrossingReadWindow :: EventCrossing -> IO Window-eventCrossingReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventCrossingReadSendEvent :: EventCrossing -> IO Int8-eventCrossingReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventCrossingReadSubwindow :: EventCrossing -> IO Window-eventCrossingReadSubwindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventCrossingReadTime :: EventCrossing -> IO Word32-eventCrossingReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--eventCrossingReadX :: EventCrossing -> IO Double-eventCrossingReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingReadY :: EventCrossing -> IO Double-eventCrossingReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingReadXRoot :: EventCrossing -> IO Double-eventCrossingReadXRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingReadYRoot :: EventCrossing -> IO Double-eventCrossingReadYRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventCrossingReadMode :: EventCrossing -> IO CrossingMode-eventCrossingReadMode s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventCrossingReadDetail :: EventCrossing -> IO NotifyType-eventCrossingReadDetail s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 76) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventCrossingReadFocus :: EventCrossing -> IO Bool-eventCrossingReadFocus s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CInt-    let val' = (/= 0) val-    return val'--eventCrossingReadState :: EventCrossing -> IO [ModifierType]-eventCrossingReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 84) :: IO CUInt-    let val' = wordToGFlags val-    return val'--
− GI/Gdk/Structs/EventCrossing.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventCrossing where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventCrossing = EventCrossing (ForeignPtr EventCrossing)
− GI/Gdk/Structs/EventDND.hs 
@@ -1,103 +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(..)                            ,-    noEventDND                              ,--- -- * Properties--- ** Context-    eventDNDReadContext                     ,----- ** SendEvent-    eventDNDReadSendEvent                   ,----- ** Time-    eventDNDReadTime                        ,----- ** Type-    eventDNDReadType                        ,----- ** Window-    eventDNDReadWindow                      ,----- ** XRoot-    eventDNDReadXRoot                       ,----- ** YRoot-    eventDNDReadYRoot                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventDND :: Maybe EventDND-noEventDND = Nothing--eventDNDReadType :: EventDND -> IO EventType-eventDNDReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventDNDReadWindow :: EventDND -> IO Window-eventDNDReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventDNDReadSendEvent :: EventDND -> IO Int8-eventDNDReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventDNDReadContext :: EventDND -> IO DragContext-eventDNDReadContext s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr DragContext)-    val' <- (newObject DragContext) val-    return val'--eventDNDReadTime :: EventDND -> IO Word32-eventDNDReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--eventDNDReadXRoot :: EventDND -> IO Int16-eventDNDReadXRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 36) :: IO Int16-    return val--eventDNDReadYRoot :: EventDND -> IO Int16-eventDNDReadYRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 38) :: IO Int16-    return val--
− GI/Gdk/Structs/EventDND.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventDND where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventDND = EventDND (ForeignPtr EventDND)
− GI/Gdk/Structs/EventExpose.hs 
@@ -1,97 +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(..)                         ,-    noEventExpose                           ,--- -- * Properties--- ** Area-    eventExposeReadArea                     ,----- ** Count-    eventExposeReadCount                    ,----- ** Region-    eventExposeReadRegion                   ,----- ** SendEvent-    eventExposeReadSendEvent                ,----- ** Type-    eventExposeReadType                     ,----- ** Window-    eventExposeReadWindow                   ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventExpose :: Maybe EventExpose-noEventExpose = Nothing--eventExposeReadType :: EventExpose -> IO EventType-eventExposeReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventExposeReadWindow :: EventExpose -> IO Window-eventExposeReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventExposeReadSendEvent :: EventExpose -> IO Int8-eventExposeReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventExposeReadArea :: EventExpose -> IO Cairo.RectangleInt-eventExposeReadArea s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO (Ptr Cairo.RectangleInt)-    val' <- (newBoxed Cairo.RectangleInt) val-    return val'--eventExposeReadRegion :: EventExpose -> IO Cairo.Region-eventExposeReadRegion s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Cairo.Region)-    val' <- (newBoxed Cairo.Region) val-    return val'--eventExposeReadCount :: EventExpose -> IO Int32-eventExposeReadCount s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Int32-    return val--
− GI/Gdk/Structs/EventExpose.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventExpose where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventExpose = EventExpose (ForeignPtr EventExpose)
− GI/Gdk/Structs/EventFocus.hs 
@@ -1,75 +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(..)                          ,-    noEventFocus                            ,--- -- * Properties--- ** In-    eventFocusReadIn                        ,----- ** SendEvent-    eventFocusReadSendEvent                 ,----- ** Type-    eventFocusReadType                      ,----- ** Window-    eventFocusReadWindow                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventFocus :: Maybe EventFocus-noEventFocus = Nothing--eventFocusReadType :: EventFocus -> IO EventType-eventFocusReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventFocusReadWindow :: EventFocus -> IO Window-eventFocusReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventFocusReadSendEvent :: EventFocus -> IO Int8-eventFocusReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventFocusReadIn :: EventFocus -> IO Int16-eventFocusReadIn s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 18) :: IO Int16-    return val--
− GI/Gdk/Structs/EventFocus.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventFocus where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventFocus = EventFocus (ForeignPtr EventFocus)
− GI/Gdk/Structs/EventGrabBroken.hs 
@@ -1,100 +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(..)                     ,-    noEventGrabBroken                       ,--- -- * Properties--- ** GrabWindow-    eventGrabBrokenReadGrabWindow           ,----- ** Implicit-    eventGrabBrokenReadImplicit             ,----- ** Keyboard-    eventGrabBrokenReadKeyboard             ,----- ** SendEvent-    eventGrabBrokenReadSendEvent            ,----- ** Type-    eventGrabBrokenReadType                 ,----- ** Window-    eventGrabBrokenReadWindow               ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventGrabBroken :: Maybe EventGrabBroken-noEventGrabBroken = Nothing--eventGrabBrokenReadType :: EventGrabBroken -> IO EventType-eventGrabBrokenReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventGrabBrokenReadWindow :: EventGrabBroken -> IO Window-eventGrabBrokenReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventGrabBrokenReadSendEvent :: EventGrabBroken -> IO Int8-eventGrabBrokenReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventGrabBrokenReadKeyboard :: EventGrabBroken -> IO Bool-eventGrabBrokenReadKeyboard s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CInt-    let val' = (/= 0) val-    return val'--eventGrabBrokenReadImplicit :: EventGrabBroken -> IO Bool-eventGrabBrokenReadImplicit s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CInt-    let val' = (/= 0) val-    return val'--eventGrabBrokenReadGrabWindow :: EventGrabBroken -> IO Window-eventGrabBrokenReadGrabWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--
− GI/Gdk/Structs/EventGrabBroken.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventGrabBroken where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventGrabBroken = EventGrabBroken (ForeignPtr EventGrabBroken)
− GI/Gdk/Structs/EventKey.hs 
@@ -1,140 +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(..)                            ,-    noEventKey                              ,--- -- * Properties--- ** Group-    eventKeyReadGroup                       ,----- ** HardwareKeycode-    eventKeyReadHardwareKeycode             ,----- ** IsModifier-    eventKeyReadIsModifier                  ,----- ** Keyval-    eventKeyReadKeyval                      ,----- ** Length-    eventKeyReadLength                      ,----- ** SendEvent-    eventKeyReadSendEvent                   ,----- ** State-    eventKeyReadState                       ,----- ** String-    eventKeyReadString                      ,----- ** Time-    eventKeyReadTime                        ,----- ** Type-    eventKeyReadType                        ,----- ** Window-    eventKeyReadWindow                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventKey :: Maybe EventKey-noEventKey = Nothing--eventKeyReadType :: EventKey -> IO EventType-eventKeyReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventKeyReadWindow :: EventKey -> IO Window-eventKeyReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventKeyReadSendEvent :: EventKey -> IO Int8-eventKeyReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventKeyReadTime :: EventKey -> IO Word32-eventKeyReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventKeyReadState :: EventKey -> IO [ModifierType]-eventKeyReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventKeyReadKeyval :: EventKey -> IO Word32-eventKeyReadKeyval s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Word32-    return val--eventKeyReadLength :: EventKey -> IO Int32-eventKeyReadLength s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Int32-    return val--eventKeyReadString :: EventKey -> IO T.Text-eventKeyReadString s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CString-    val' <- cstringToText val-    return val'--eventKeyReadHardwareKeycode :: EventKey -> IO Word16-eventKeyReadHardwareKeycode s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word16-    return val--eventKeyReadGroup :: EventKey -> IO Word8-eventKeyReadGroup s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 50) :: IO Word8-    return val--eventKeyReadIsModifier :: EventKey -> IO Word32-eventKeyReadIsModifier s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Word32-    return val--
− GI/Gdk/Structs/EventKey.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventKey where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventKey = EventKey (ForeignPtr EventKey)
− GI/Gdk/Structs/EventMotion.hs 
@@ -1,154 +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(..)                         ,-    noEventMotion                           ,--- -- * Properties--- ** Axes-    eventMotionReadAxes                     ,----- ** Device-    eventMotionReadDevice                   ,----- ** IsHint-    eventMotionReadIsHint                   ,----- ** SendEvent-    eventMotionReadSendEvent                ,----- ** State-    eventMotionReadState                    ,----- ** Time-    eventMotionReadTime                     ,----- ** Type-    eventMotionReadType                     ,----- ** Window-    eventMotionReadWindow                   ,----- ** X-    eventMotionReadX                        ,----- ** XRoot-    eventMotionReadXRoot                    ,----- ** Y-    eventMotionReadY                        ,----- ** YRoot-    eventMotionReadYRoot                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventMotion :: Maybe EventMotion-noEventMotion = Nothing--eventMotionReadType :: EventMotion -> IO EventType-eventMotionReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventMotionReadWindow :: EventMotion -> IO Window-eventMotionReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventMotionReadSendEvent :: EventMotion -> IO Int8-eventMotionReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventMotionReadTime :: EventMotion -> IO Word32-eventMotionReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventMotionReadX :: EventMotion -> IO Double-eventMotionReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionReadY :: EventMotion -> IO Double-eventMotionReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionReadAxes :: EventMotion -> IO Double-eventMotionReadAxes s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionReadState :: EventMotion -> IO [ModifierType]-eventMotionReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventMotionReadIsHint :: EventMotion -> IO Int16-eventMotionReadIsHint s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Int16-    return val--eventMotionReadDevice :: EventMotion -> IO Device-eventMotionReadDevice s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Device)-    val' <- (newObject Device) val-    return val'--eventMotionReadXRoot :: EventMotion -> IO Double-eventMotionReadXRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventMotionReadYRoot :: EventMotion -> IO Double-eventMotionReadYRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--
− GI/Gdk/Structs/EventMotion.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventMotion where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventMotion = EventMotion (ForeignPtr EventMotion)
− GI/Gdk/Structs/EventOwnerChange.hs 
@@ -1,117 +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(..)                    ,-    noEventOwnerChange                      ,--- -- * Properties--- ** Owner-    eventOwnerChangeReadOwner               ,----- ** Reason-    eventOwnerChangeReadReason              ,----- ** Selection-    eventOwnerChangeReadSelection           ,----- ** SelectionTime-    eventOwnerChangeReadSelectionTime       ,----- ** SendEvent-    eventOwnerChangeReadSendEvent           ,----- ** Time-    eventOwnerChangeReadTime                ,----- ** Type-    eventOwnerChangeReadType                ,----- ** Window-    eventOwnerChangeReadWindow              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventOwnerChange :: Maybe EventOwnerChange-noEventOwnerChange = Nothing--eventOwnerChangeReadType :: EventOwnerChange -> IO EventType-eventOwnerChangeReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventOwnerChangeReadWindow :: EventOwnerChange -> IO Window-eventOwnerChangeReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventOwnerChangeReadSendEvent :: EventOwnerChange -> IO Int8-eventOwnerChangeReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventOwnerChangeReadOwner :: EventOwnerChange -> IO Window-eventOwnerChangeReadOwner s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventOwnerChangeReadReason :: EventOwnerChange -> IO OwnerChange-eventOwnerChangeReadReason s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventOwnerChangeReadSelection :: EventOwnerChange -> IO Atom-eventOwnerChangeReadSelection s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom)-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    val' <- (\x -> Atom <$> newForeignPtr_ x) val-    return val'--eventOwnerChangeReadTime :: EventOwnerChange -> IO Word32-eventOwnerChangeReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word32-    return val--eventOwnerChangeReadSelectionTime :: EventOwnerChange -> IO Word32-eventOwnerChangeReadSelectionTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 52) :: IO Word32-    return val--
− GI/Gdk/Structs/EventOwnerChange.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventOwnerChange where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventOwnerChange = EventOwnerChange (ForeignPtr EventOwnerChange)
− GI/Gdk/Structs/EventProperty.hs 
@@ -1,96 +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(..)                       ,-    noEventProperty                         ,--- -- * Properties--- ** Atom-    eventPropertyReadAtom                   ,----- ** SendEvent-    eventPropertyReadSendEvent              ,----- ** State-    eventPropertyReadState                  ,----- ** Time-    eventPropertyReadTime                   ,----- ** Type-    eventPropertyReadType                   ,----- ** Window-    eventPropertyReadWindow                 ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventProperty :: Maybe EventProperty-noEventProperty = Nothing--eventPropertyReadType :: EventProperty -> IO EventType-eventPropertyReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventPropertyReadWindow :: EventProperty -> IO Window-eventPropertyReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventPropertyReadSendEvent :: EventProperty -> IO Int8-eventPropertyReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventPropertyReadAtom :: EventProperty -> IO Atom-eventPropertyReadAtom s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom)-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    val' <- (\x -> Atom <$> newForeignPtr_ x) val-    return val'--eventPropertyReadTime :: EventProperty -> IO Word32-eventPropertyReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO Word32-    return val--eventPropertyReadState :: EventProperty -> IO PropertyState-eventPropertyReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 36) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--
− GI/Gdk/Structs/EventProperty.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventProperty where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventProperty = EventProperty (ForeignPtr EventProperty)
− GI/Gdk/Structs/EventProximity.hs 
@@ -1,93 +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(..)                      ,-    noEventProximity                        ,--- -- * Properties--- ** Device-    eventProximityReadDevice                ,----- ** SendEvent-    eventProximityReadSendEvent             ,----- ** Time-    eventProximityReadTime                  ,----- ** Type-    eventProximityReadType                  ,----- ** Window-    eventProximityReadWindow                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventProximity :: Maybe EventProximity-noEventProximity = Nothing--eventProximityReadType :: EventProximity -> IO EventType-eventProximityReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventProximityReadWindow :: EventProximity -> IO Window-eventProximityReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventProximityReadSendEvent :: EventProximity -> IO Int8-eventProximityReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventProximityReadTime :: EventProximity -> IO Word32-eventProximityReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventProximityReadDevice :: EventProximity -> IO Device-eventProximityReadDevice s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Device)-    val' <- (newObject Device) val-    return val'--
− GI/Gdk/Structs/EventProximity.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventProximity where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventProximity = EventProximity (ForeignPtr EventProximity)
− GI/Gdk/Structs/EventScroll.hs 
@@ -1,172 +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(..)                         ,-    noEventScroll                           ,--- -- * Properties--- ** DeltaX-    eventScrollReadDeltaX                   ,----- ** DeltaY-    eventScrollReadDeltaY                   ,----- ** Device-    eventScrollReadDevice                   ,----- ** Direction-    eventScrollReadDirection                ,----- ** SendEvent-    eventScrollReadSendEvent                ,----- ** State-    eventScrollReadState                    ,----- ** Time-    eventScrollReadTime                     ,----- ** Type-    eventScrollReadType                     ,----- ** Window-    eventScrollReadWindow                   ,----- ** X-    eventScrollReadX                        ,----- ** XRoot-    eventScrollReadXRoot                    ,----- ** Y-    eventScrollReadY                        ,----- ** YRoot-    eventScrollReadYRoot                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventScroll :: Maybe EventScroll-noEventScroll = Nothing--eventScrollReadType :: EventScroll -> IO EventType-eventScrollReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventScrollReadWindow :: EventScroll -> IO Window-eventScrollReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventScrollReadSendEvent :: EventScroll -> IO Int8-eventScrollReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventScrollReadTime :: EventScroll -> IO Word32-eventScrollReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventScrollReadX :: EventScroll -> IO Double-eventScrollReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollReadY :: EventScroll -> IO Double-eventScrollReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollReadState :: EventScroll -> IO [ModifierType]-eventScrollReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventScrollReadDirection :: EventScroll -> IO ScrollDirection-eventScrollReadDirection s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 44) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventScrollReadDevice :: EventScroll -> IO Device-eventScrollReadDevice s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr Device)-    val' <- (newObject Device) val-    return val'--eventScrollReadXRoot :: EventScroll -> IO Double-eventScrollReadXRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollReadYRoot :: EventScroll -> IO Double-eventScrollReadYRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollReadDeltaX :: EventScroll -> IO Double-eventScrollReadDeltaX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CDouble-    let val' = realToFrac val-    return val'--eventScrollReadDeltaY :: EventScroll -> IO Double-eventScrollReadDeltaY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CDouble-    let val' = realToFrac val-    return val'--
− GI/Gdk/Structs/EventScroll.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventScroll where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventScroll = EventScroll (ForeignPtr EventScroll)
− GI/Gdk/Structs/EventSelection.hs 
@@ -1,119 +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(..)                      ,-    noEventSelection                        ,--- -- * Properties--- ** Property-    eventSelectionReadProperty              ,----- ** Requestor-    eventSelectionReadRequestor             ,----- ** Selection-    eventSelectionReadSelection             ,----- ** SendEvent-    eventSelectionReadSendEvent             ,----- ** Target-    eventSelectionReadTarget                ,----- ** Time-    eventSelectionReadTime                  ,----- ** Type-    eventSelectionReadType                  ,----- ** Window-    eventSelectionReadWindow                ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventSelection :: Maybe EventSelection-noEventSelection = Nothing--eventSelectionReadType :: EventSelection -> IO EventType-eventSelectionReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventSelectionReadWindow :: EventSelection -> IO Window-eventSelectionReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventSelectionReadSendEvent :: EventSelection -> IO Int8-eventSelectionReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventSelectionReadSelection :: EventSelection -> IO Atom-eventSelectionReadSelection s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO (Ptr Atom)-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    val' <- (\x -> Atom <$> newForeignPtr_ x) val-    return val'--eventSelectionReadTarget :: EventSelection -> IO Atom-eventSelectionReadTarget s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Atom)-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    val' <- (\x -> Atom <$> newForeignPtr_ x) val-    return val'--eventSelectionReadProperty :: EventSelection -> IO Atom-eventSelectionReadProperty s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO (Ptr Atom)-    -- XXX Wrapping a foreign struct/union with no known destructor, leak?-    val' <- (\x -> Atom <$> newForeignPtr_ x) val-    return val'--eventSelectionReadTime :: EventSelection -> IO Word32-eventSelectionReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO Word32-    return val--eventSelectionReadRequestor :: EventSelection -> IO Window-eventSelectionReadRequestor s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--
− GI/Gdk/Structs/EventSelection.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventSelection where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventSelection = EventSelection (ForeignPtr EventSelection)
− GI/Gdk/Structs/EventSequence.hs 
@@ -1,38 +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 Prelude ()-import Data.GI.Base.ShortPrelude--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--
− GI/Gdk/Structs/EventSequence.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.EventSequence where--import Prelude ()-import Data.GI.Base.ShortPrelude--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,86 +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(..)                        ,-    noEventSetting                          ,--- -- * Properties--- ** Action-    eventSettingReadAction                  ,----- ** Name-    eventSettingReadName                    ,----- ** SendEvent-    eventSettingReadSendEvent               ,----- ** Type-    eventSettingReadType                    ,----- ** Window-    eventSettingReadWindow                  ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventSetting :: Maybe EventSetting-noEventSetting = Nothing--eventSettingReadType :: EventSetting -> IO EventType-eventSettingReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventSettingReadWindow :: EventSetting -> IO Window-eventSettingReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventSettingReadSendEvent :: EventSetting -> IO Int8-eventSettingReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventSettingReadAction :: EventSetting -> IO SettingAction-eventSettingReadAction s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventSettingReadName :: EventSetting -> IO T.Text-eventSettingReadName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CString-    val' <- cstringToText val-    return val'--
− GI/Gdk/Structs/EventSetting.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventSetting where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventSetting = EventSetting (ForeignPtr EventSetting)
− GI/Gdk/Structs/EventTouch.hs 
@@ -1,174 +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(..)                          ,-    noEventTouch                            ,--- -- * Properties--- ** Axes-    eventTouchReadAxes                      ,----- ** Device-    eventTouchReadDevice                    ,----- ** EmulatingPointer-    eventTouchReadEmulatingPointer          ,----- ** SendEvent-    eventTouchReadSendEvent                 ,----- ** Sequence-    eventTouchReadSequence                  ,----- ** State-    eventTouchReadState                     ,----- ** Time-    eventTouchReadTime                      ,----- ** Type-    eventTouchReadType                      ,----- ** Window-    eventTouchReadWindow                    ,----- ** X-    eventTouchReadX                         ,----- ** XRoot-    eventTouchReadXRoot                     ,----- ** Y-    eventTouchReadY                         ,----- ** YRoot-    eventTouchReadYRoot                     ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventTouch :: Maybe EventTouch-noEventTouch = Nothing--eventTouchReadType :: EventTouch -> IO EventType-eventTouchReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventTouchReadWindow :: EventTouch -> IO Window-eventTouchReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventTouchReadSendEvent :: EventTouch -> IO Int8-eventTouchReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventTouchReadTime :: EventTouch -> IO Word32-eventTouchReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Word32-    return val--eventTouchReadX :: EventTouch -> IO Double-eventTouchReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchReadY :: EventTouch -> IO Double-eventTouchReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchReadAxes :: EventTouch -> IO Double-eventTouchReadAxes s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchReadState :: EventTouch -> IO [ModifierType]-eventTouchReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventTouchReadSequence :: EventTouch -> IO EventSequence-eventTouchReadSequence s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO (Ptr EventSequence)-    val' <- (newBoxed EventSequence) val-    return val'--eventTouchReadEmulatingPointer :: EventTouch -> IO Bool-eventTouchReadEmulatingPointer s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CInt-    let val' = (/= 0) val-    return val'--eventTouchReadDevice :: EventTouch -> IO Device-eventTouchReadDevice s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO (Ptr Device)-    val' <- (newObject Device) val-    return val'--eventTouchReadXRoot :: EventTouch -> IO Double-eventTouchReadXRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 80) :: IO CDouble-    let val' = realToFrac val-    return val'--eventTouchReadYRoot :: EventTouch -> IO Double-eventTouchReadYRoot s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 88) :: IO CDouble-    let val' = realToFrac val-    return val'--
− GI/Gdk/Structs/EventTouch.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventTouch where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventTouch = EventTouch (ForeignPtr EventTouch)
− GI/Gdk/Structs/EventVisibility.hs 
@@ -1,76 +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(..)                     ,-    noEventVisibility                       ,--- -- * Properties--- ** SendEvent-    eventVisibilityReadSendEvent            ,----- ** State-    eventVisibilityReadState                ,----- ** Type-    eventVisibilityReadType                 ,----- ** Window-    eventVisibilityReadWindow               ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventVisibility :: Maybe EventVisibility-noEventVisibility = Nothing--eventVisibilityReadType :: EventVisibility -> IO EventType-eventVisibilityReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventVisibilityReadWindow :: EventVisibility -> IO Window-eventVisibilityReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventVisibilityReadSendEvent :: EventVisibility -> IO Int8-eventVisibilityReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventVisibilityReadState :: EventVisibility -> IO VisibilityState-eventVisibilityReadState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--
− GI/Gdk/Structs/EventVisibility.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventVisibility where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventVisibility = EventVisibility (ForeignPtr EventVisibility)
− GI/Gdk/Structs/EventWindowState.hs 
@@ -1,86 +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(..)                    ,-    noEventWindowState                      ,--- -- * Properties--- ** ChangedMask-    eventWindowStateReadChangedMask         ,----- ** NewWindowState-    eventWindowStateReadNewWindowState      ,----- ** SendEvent-    eventWindowStateReadSendEvent           ,----- ** Type-    eventWindowStateReadType                ,----- ** Window-    eventWindowStateReadWindow              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noEventWindowState :: Maybe EventWindowState-noEventWindowState = Nothing--eventWindowStateReadType :: EventWindowState -> IO EventType-eventWindowStateReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventWindowStateReadWindow :: EventWindowState -> IO Window-eventWindowStateReadWindow s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO (Ptr Window)-    val' <- (newObject Window) val-    return val'--eventWindowStateReadSendEvent :: EventWindowState -> IO Int8-eventWindowStateReadSendEvent s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int8-    return val--eventWindowStateReadChangedMask :: EventWindowState -> IO [WindowState]-eventWindowStateReadChangedMask s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO CUInt-    let val' = wordToGFlags val-    return val'--eventWindowStateReadNewWindowState :: EventWindowState -> IO [WindowState]-eventWindowStateReadNewWindowState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CUInt-    let val' = wordToGFlags val-    return val'--
− GI/Gdk/Structs/EventWindowState.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.EventWindowState where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype EventWindowState = EventWindowState (ForeignPtr EventWindowState)
− GI/Gdk/Structs/FrameTimings.hs 
@@ -1,275 +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-    frameTimingsGetComplete                 ,----- ** frameTimingsGetFrameCounter-    frameTimingsGetFrameCounter             ,----- ** frameTimingsGetFrameTime-    frameTimingsGetFrameTime                ,----- ** frameTimingsGetPredictedPresentationTime-    frameTimingsGetPredictedPresentationTime,----- ** frameTimingsGetPresentationTime-    frameTimingsGetPresentationTime         ,----- ** frameTimingsGetRefreshInterval-    frameTimingsGetRefreshInterval          ,----- ** frameTimingsRef-    frameTimingsRef                         ,----- ** frameTimingsUnref-    frameTimingsUnref                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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---- method FrameTimings::get_complete--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameTimingsGetComplete _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_complete _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'---- method FrameTimings::get_frame_counter--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameTimingsGetFrameCounter _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_frame_counter _obj'-    touchManagedPtr _obj-    return result---- method FrameTimings::get_frame_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameTimingsGetFrameTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_frame_time _obj'-    touchManagedPtr _obj-    return result---- method FrameTimings::get_predicted_presentation_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameTimingsGetPredictedPresentationTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_predicted_presentation_time _obj'-    touchManagedPtr _obj-    return result---- method FrameTimings::get_presentation_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameTimingsGetPresentationTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_presentation_time _obj'-    touchManagedPtr _obj-    return result---- method FrameTimings::get_refresh_interval--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-frameTimingsGetRefreshInterval _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_frame_timings_get_refresh_interval _obj'-    touchManagedPtr _obj-    return result---- method FrameTimings::ref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method FrameTimings::unref--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "FrameTimings", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-frameTimingsUnref _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_frame_timings_unref _obj'-    touchManagedPtr _obj-    return ()--
− GI/Gdk/Structs/FrameTimings.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.FrameTimings where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Structs/Geometry.hs 
@@ -1,193 +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(..)                            ,-    noGeometry                              ,--- -- * Properties--- ** BaseHeight-    geometryReadBaseHeight                  ,----- ** BaseWidth-    geometryReadBaseWidth                   ,----- ** HeightInc-    geometryReadHeightInc                   ,----- ** MaxAspect-    geometryReadMaxAspect                   ,----- ** MaxHeight-    geometryReadMaxHeight                   ,----- ** MaxWidth-    geometryReadMaxWidth                    ,----- ** MinAspect-    geometryReadMinAspect                   ,----- ** MinHeight-    geometryReadMinHeight                   ,----- ** MinWidth-    geometryReadMinWidth                    ,----- ** WidthInc-    geometryReadWidthInc                    ,----- ** WinGravity-    geometryReadWinGravity                  ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noGeometry :: Maybe Geometry-noGeometry = Nothing--geometryReadMinWidth :: Geometry -> IO Int32-geometryReadMinWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--geometryReadMinHeight :: Geometry -> IO Int32-geometryReadMinHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--geometryReadMaxWidth :: Geometry -> IO Int32-geometryReadMaxWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--geometryReadMaxHeight :: Geometry -> IO Int32-geometryReadMaxHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--geometryReadBaseWidth :: Geometry -> IO Int32-geometryReadBaseWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--geometryReadBaseHeight :: Geometry -> IO Int32-geometryReadBaseHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--geometryReadWidthInc :: Geometry -> IO Int32-geometryReadWidthInc s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--geometryReadHeightInc :: Geometry -> IO Int32-geometryReadHeightInc s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO Int32-    return val--geometryReadMinAspect :: Geometry -> IO Double-geometryReadMinAspect s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO CDouble-    let val' = realToFrac val-    return val'--geometryReadMaxAspect :: Geometry -> IO Double-geometryReadMaxAspect s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CDouble-    let val' = realToFrac val-    return val'--geometryReadWinGravity :: Geometry -> IO Gravity-geometryReadWinGravity s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--
− GI/Gdk/Structs/Geometry.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.Geometry where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Geometry = Geometry (ForeignPtr Geometry)
− GI/Gdk/Structs/KeymapKey.hs 
@@ -1,64 +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(..)                           ,-    noKeymapKey                             ,--- -- * Properties--- ** Group-    keymapKeyReadGroup                      ,----- ** Keycode-    keymapKeyReadKeycode                    ,----- ** Level-    keymapKeyReadLevel                      ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noKeymapKey :: Maybe KeymapKey-noKeymapKey = Nothing--keymapKeyReadKeycode :: KeymapKey -> IO Word32-keymapKeyReadKeycode s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val--keymapKeyReadGroup :: KeymapKey -> IO Int32-keymapKeyReadGroup s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--keymapKeyReadLevel :: KeymapKey -> IO Int32-keymapKeyReadLevel s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--
− GI/Gdk/Structs/KeymapKey.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.KeymapKey where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype KeymapKey = KeymapKey (ForeignPtr KeymapKey)
− GI/Gdk/Structs/Point.hs 
@@ -1,55 +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(..)                               ,-    noPoint                                 ,--- -- * Properties--- ** X-    pointReadX                              ,----- ** Y-    pointReadY                              ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noPoint :: Maybe Point-noPoint = Nothing--pointReadX :: Point -> IO Int32-pointReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Int32-    return val--pointReadY :: Point -> IO Int32-pointReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 4) :: IO Int32-    return val--
− GI/Gdk/Structs/Point.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.Point where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype Point = Point (ForeignPtr Point)
− GI/Gdk/Structs/RGBA.hs 
@@ -1,270 +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(..)                                ,-    noRGBA                                  ,--- -- * Methods--- ** rGBACopy-    rGBACopy                                ,----- ** rGBAEqual-    rGBAEqual                               ,----- ** rGBAFree-    rGBAFree                                ,----- ** rGBAHash-    rGBAHash                                ,----- ** rGBAParse-    rGBAParse                               ,----- ** rGBAToString-    rGBAToString                            ,----- -- * Properties--- ** Alpha-    rGBAReadAlpha                           ,----- ** Blue-    rGBAReadBlue                            ,----- ** Green-    rGBAReadGreen                           ,----- ** Red-    rGBAReadRed                             ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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--noRGBA :: Maybe RGBA-noRGBA = Nothing--rGBAReadRed :: RGBA -> IO Double-rGBAReadRed s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CDouble-    let val' = realToFrac val-    return val'--rGBAReadGreen :: RGBA -> IO Double-rGBAReadGreen s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO CDouble-    let val' = realToFrac val-    return val'--rGBAReadBlue :: RGBA -> IO Double-rGBAReadBlue s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO CDouble-    let val' = realToFrac val-    return val'--rGBAReadAlpha :: RGBA -> IO Double-rGBAReadAlpha s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO CDouble-    let val' = realToFrac val-    return val'---- method RGBA::copy--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method RGBA::equal--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "p2", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method RGBA::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-rGBAFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_rgba_free _obj'-    touchManagedPtr _obj-    return ()---- method RGBA::hash--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TUInt32--- 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-rGBAHash _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_rgba_hash _obj'-    touchManagedPtr _obj-    return result---- method RGBA::parse--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "spec", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method RGBA::to_string--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'--
− GI/Gdk/Structs/RGBA.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Structs.RGBA where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
− GI/Gdk/Structs/TimeCoord.hs 
@@ -1,48 +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(..)                           ,-    noTimeCoord                             ,--- -- * Properties--- ** Time-    timeCoordReadTime                       ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noTimeCoord :: Maybe TimeCoord-noTimeCoord = Nothing--timeCoordReadTime :: TimeCoord -> IO Word32-timeCoordReadTime s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO Word32-    return val---- XXX Skipped getter for "TimeCoord:axes" :: Not implemented: "Don't know how to unpack C array of type TCArray False 128 (-1) (TBasicType TDouble)"--
− GI/Gdk/Structs/TimeCoord.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.TimeCoord where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype TimeCoord = TimeCoord (ForeignPtr TimeCoord)
− GI/Gdk/Structs/WindowAttr.hs 
@@ -1,172 +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(..)                          ,-    noWindowAttr                            ,--- -- * Properties--- ** Cursor-    windowAttrReadCursor                    ,----- ** EventMask-    windowAttrReadEventMask                 ,----- ** Height-    windowAttrReadHeight                    ,----- ** OverrideRedirect-    windowAttrReadOverrideRedirect          ,----- ** Title-    windowAttrReadTitle                     ,----- ** TypeHint-    windowAttrReadTypeHint                  ,----- ** Visual-    windowAttrReadVisual                    ,----- ** Wclass-    windowAttrReadWclass                    ,----- ** Width-    windowAttrReadWidth                     ,----- ** WindowType-    windowAttrReadWindowType                ,----- ** WmclassClass-    windowAttrReadWmclassClass              ,----- ** WmclassName-    windowAttrReadWmclassName               ,----- ** X-    windowAttrReadX                         ,----- ** Y-    windowAttrReadY                         ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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)-noWindowAttr :: Maybe WindowAttr-noWindowAttr = Nothing--windowAttrReadTitle :: WindowAttr -> IO T.Text-windowAttrReadTitle s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CString-    val' <- cstringToText val-    return val'--windowAttrReadEventMask :: WindowAttr -> IO Int32-windowAttrReadEventMask s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 8) :: IO Int32-    return val--windowAttrReadX :: WindowAttr -> IO Int32-windowAttrReadX s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 12) :: IO Int32-    return val--windowAttrReadY :: WindowAttr -> IO Int32-windowAttrReadY s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 16) :: IO Int32-    return val--windowAttrReadWidth :: WindowAttr -> IO Int32-windowAttrReadWidth s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 20) :: IO Int32-    return val--windowAttrReadHeight :: WindowAttr -> IO Int32-windowAttrReadHeight s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 24) :: IO Int32-    return val--windowAttrReadWclass :: WindowAttr -> IO WindowWindowClass-windowAttrReadWclass s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 28) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--windowAttrReadVisual :: WindowAttr -> IO Visual-windowAttrReadVisual s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 32) :: IO (Ptr Visual)-    val' <- (newObject Visual) val-    return val'--windowAttrReadWindowType :: WindowAttr -> IO WindowType-windowAttrReadWindowType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 40) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--windowAttrReadCursor :: WindowAttr -> IO Cursor-windowAttrReadCursor s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 48) :: IO (Ptr Cursor)-    val' <- (newObject Cursor) val-    return val'--windowAttrReadWmclassName :: WindowAttr -> IO T.Text-windowAttrReadWmclassName s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 56) :: IO CString-    val' <- cstringToText val-    return val'--windowAttrReadWmclassClass :: WindowAttr -> IO T.Text-windowAttrReadWmclassClass s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 64) :: IO CString-    val' <- cstringToText val-    return val'--windowAttrReadOverrideRedirect :: WindowAttr -> IO Bool-windowAttrReadOverrideRedirect s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 72) :: IO CInt-    let val' = (/= 0) val-    return val'--windowAttrReadTypeHint :: WindowAttr -> IO WindowTypeHint-windowAttrReadTypeHint s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 76) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--
− GI/Gdk/Structs/WindowAttr.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.WindowAttr where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WindowAttr = WindowAttr (ForeignPtr WindowAttr)
− GI/Gdk/Structs/WindowRedirect.hs 
@@ -1,32 +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 Prelude ()-import Data.GI.Base.ShortPrelude--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)-noWindowRedirect :: Maybe WindowRedirect-noWindowRedirect = Nothing--
− GI/Gdk/Structs/WindowRedirect.hs-boot 
@@ -1,10 +0,0 @@-module GI.Gdk.Structs.WindowRedirect where--import Prelude ()-import Data.GI.Base.ShortPrelude--import qualified Data.Text as T-import qualified Data.ByteString.Char8 as B-import qualified Data.Map as Map--newtype WindowRedirect = WindowRedirect (ForeignPtr WindowRedirect)
− GI/Gdk/Types.hs 
@@ -1,100 +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.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.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.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.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,26 +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 Prelude ()-import Data.GI.Base.ShortPrelude--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,1045 +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(..)                               ,-    noEvent                                 ,--- -- * Methods--- ** eventCopy-    eventCopy                               ,----- ** eventFree-    eventFree                               ,----- ** eventGetAxis-    eventGetAxis                            ,----- ** eventGetButton-    eventGetButton                          ,----- ** eventGetClickCount-    eventGetClickCount                      ,----- ** eventGetCoords-    eventGetCoords                          ,----- ** eventGetDevice-    eventGetDevice                          ,----- ** eventGetEventSequence-    eventGetEventSequence                   ,----- ** eventGetEventType-    eventGetEventType                       ,----- ** eventGetKeycode-    eventGetKeycode                         ,----- ** eventGetKeyval-    eventGetKeyval                          ,----- ** eventGetRootCoords-    eventGetRootCoords                      ,----- ** eventGetScreen-    eventGetScreen                          ,----- ** eventGetScrollDeltas-    eventGetScrollDeltas                    ,----- ** eventGetScrollDirection-    eventGetScrollDirection                 ,----- ** eventGetSourceDevice-    eventGetSourceDevice                    ,----- ** eventGetState-    eventGetState                           ,----- ** eventGetTime-    eventGetTime                            ,----- ** eventGetWindow-    eventGetWindow                          ,----- ** eventNew-    eventNew                                ,----- ** eventPut-    eventPut                                ,----- ** eventSetDevice-    eventSetDevice                          ,----- ** eventSetScreen-    eventSetScreen                          ,----- ** eventSetSourceDevice-    eventSetSourceDevice                    ,----- ** eventTriggersContextMenu-    eventTriggersContextMenu                ,----- -- * Properties--- ** Any-    eventReadAny                            ,----- ** Button-    eventReadButton                         ,----- ** Configure-    eventReadConfigure                      ,----- ** Crossing-    eventReadCrossing                       ,----- ** Dnd-    eventReadDnd                            ,----- ** Expose-    eventReadExpose                         ,----- ** FocusChange-    eventReadFocusChange                    ,----- ** GrabBroken-    eventReadGrabBroken                     ,----- ** Key-    eventReadKey                            ,----- ** Motion-    eventReadMotion                         ,----- ** OwnerChange-    eventReadOwnerChange                    ,----- ** Property-    eventReadProperty                       ,----- ** Proximity-    eventReadProximity                      ,----- ** Scroll-    eventReadScroll                         ,----- ** Selection-    eventReadSelection                      ,----- ** Setting-    eventReadSetting                        ,----- ** Touch-    eventReadTouch                          ,----- ** Type-    eventReadType                           ,----- ** Visibility-    eventReadVisibility                     ,----- ** WindowState-    eventReadWindowState                    ,-----    ) where--import Prelude ()-import Data.GI.Base.ShortPrelude--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 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--noEvent :: Maybe Event-noEvent = Nothing--eventReadType :: Event -> IO EventType-eventReadType s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO CUInt-    let val' = (toEnum . fromIntegral) val-    return val'--eventReadAny :: Event -> IO EventAny-eventReadAny s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventAny)-    val' <- (newPtr 24 EventAny) val-    return val'--eventReadExpose :: Event -> IO EventExpose-eventReadExpose s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventExpose)-    val' <- (newPtr 56 EventExpose) val-    return val'--eventReadVisibility :: Event -> IO EventVisibility-eventReadVisibility s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventVisibility)-    val' <- (newPtr 24 EventVisibility) val-    return val'--eventReadMotion :: Event -> IO EventMotion-eventReadMotion s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventMotion)-    val' <- (newPtr 80 EventMotion) val-    return val'--eventReadButton :: Event -> IO EventButton-eventReadButton s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventButton)-    val' <- (newPtr 80 EventButton) val-    return val'--eventReadTouch :: Event -> IO EventTouch-eventReadTouch s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventTouch)-    val' <- (newPtr 96 EventTouch) val-    return val'--eventReadScroll :: Event -> IO EventScroll-eventReadScroll s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventScroll)-    val' <- (newPtr 88 EventScroll) val-    return val'--eventReadKey :: Event -> IO EventKey-eventReadKey s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventKey)-    val' <- (newPtr 56 EventKey) val-    return val'--eventReadCrossing :: Event -> IO EventCrossing-eventReadCrossing s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventCrossing)-    val' <- (newPtr 88 EventCrossing) val-    return val'--eventReadFocusChange :: Event -> IO EventFocus-eventReadFocusChange s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventFocus)-    val' <- (newPtr 24 EventFocus) val-    return val'--eventReadConfigure :: Event -> IO EventConfigure-eventReadConfigure s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventConfigure)-    val' <- (newPtr 40 EventConfigure) val-    return val'--eventReadProperty :: Event -> IO EventProperty-eventReadProperty s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProperty)-    val' <- (newPtr 40 EventProperty) val-    return val'--eventReadSelection :: Event -> IO EventSelection-eventReadSelection s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSelection)-    val' <- (newPtr 64 EventSelection) val-    return val'--eventReadOwnerChange :: Event -> IO EventOwnerChange-eventReadOwnerChange s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventOwnerChange)-    val' <- (newPtr 56 EventOwnerChange) val-    return val'--eventReadProximity :: Event -> IO EventProximity-eventReadProximity s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventProximity)-    val' <- (newPtr 32 EventProximity) val-    return val'--eventReadDnd :: Event -> IO EventDND-eventReadDnd s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventDND)-    val' <- (newPtr 40 EventDND) val-    return val'--eventReadWindowState :: Event -> IO EventWindowState-eventReadWindowState s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventWindowState)-    val' <- (newPtr 32 EventWindowState) val-    return val'--eventReadSetting :: Event -> IO EventSetting-eventReadSetting s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventSetting)-    val' <- (newPtr 32 EventSetting) val-    return val'--eventReadGrabBroken :: Event -> IO EventGrabBroken-eventReadGrabBroken s = withManagedPtr s $ \ptr -> do-    val <- peek (ptr `plusPtr` 0) :: IO (Ptr EventGrabBroken)-    val' <- (newPtr 40 EventGrabBroken) val-    return val'---- method Event::new--- method type : Constructor--- Args : [Arg {argName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "type", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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 {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Event::free--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-eventFree _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_event_free _obj'-    touchManagedPtr _obj-    return ()---- method Event::get_axis--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "axis_use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 ->                              -- axis_use-    m (Bool,Double)-eventGetAxis _obj axis_use = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let axis_use' = (fromIntegral . fromEnum) axis_use-    value <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_axis _obj' axis_use' value-    let result' = (/= 0) result-    value' <- peek value-    let value'' = realToFrac value'-    touchManagedPtr _obj-    freeMem value-    return (result', value'')---- method Event::get_button--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "button", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    IO CInt---eventGetButton ::-    (MonadIO m) =>-    Event ->                                -- _obj-    m (Bool,Word32)-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')---- method Event::get_click_count--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "click_count", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    IO CInt---eventGetClickCount ::-    (MonadIO m) =>-    Event ->                                -- _obj-    m (Bool,Word32)-eventGetClickCount _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    click_count <- allocMem :: IO (Ptr Word32)-    result <- gdk_event_get_click_count _obj' click_count-    let result' = (/= 0) result-    click_count' <- peek click_count-    touchManagedPtr _obj-    freeMem click_count-    return (result', click_count')---- method Event::get_coords--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_win", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-eventGetCoords _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    x_win <- allocMem :: IO (Ptr CDouble)-    y_win <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_coords _obj' x_win y_win-    let result' = (/= 0) result-    x_win' <- peek x_win-    let x_win'' = realToFrac x_win'-    y_win' <- peek y_win-    let y_win'' = realToFrac y_win'-    touchManagedPtr _obj-    freeMem x_win-    freeMem y_win-    return (result', x_win'', y_win'')---- method Event::get_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Device-eventGetDevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_device _obj'-    checkUnexpectedReturnNULL "gdk_event_get_device" result-    result' <- (newObject Device) result-    touchManagedPtr _obj-    return result'---- method Event::get_event_sequence--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Event::get_event_type--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-eventGetEventType _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_event_type _obj'-    let result' = (toEnum . fromIntegral) result-    touchManagedPtr _obj-    return result'---- method Event::get_keycode--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keycode", argType = TBasicType TUInt16, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-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')---- method Event::get_keyval--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 TUInt32-    IO CInt---eventGetKeyval ::-    (MonadIO m) =>-    Event ->                                -- _obj-    m (Bool,Word32)-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')---- method Event::get_root_coords--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "x_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "y_root", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-eventGetRootCoords _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    x_root <- allocMem :: IO (Ptr CDouble)-    y_root <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_root_coords _obj' x_root y_root-    let result' = (/= 0) result-    x_root' <- peek x_root-    let x_root'' = realToFrac x_root'-    y_root' <- peek y_root-    let y_root'' = realToFrac y_root'-    touchManagedPtr _obj-    freeMem x_root-    freeMem y_root-    return (result', x_root'', y_root'')---- method Event::get_screen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Event::get_scroll_deltas--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "delta_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "delta_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-eventGetScrollDeltas _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    delta_x <- allocMem :: IO (Ptr CDouble)-    delta_y <- allocMem :: IO (Ptr CDouble)-    result <- gdk_event_get_scroll_deltas _obj' delta_x delta_y-    let result' = (/= 0) result-    delta_x' <- peek delta_x-    let delta_x'' = realToFrac delta_x'-    delta_y' <- peek delta_y-    let delta_y'' = realToFrac delta_y'-    touchManagedPtr _obj-    freeMem delta_x-    freeMem delta_y-    return (result', delta_x'', delta_y'')---- method Event::get_scroll_direction--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "direction", argType = TInterface "Gdk" "ScrollDirection", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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)-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'')---- method Event::get_source_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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 Device-eventGetSourceDevice _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_source_device _obj'-    checkUnexpectedReturnNULL "gdk_event_get_source_device" result-    result' <- (newObject Device) result-    touchManagedPtr _obj-    return result'---- method Event::get_state--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "state", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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])-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'')---- method Event::get_time--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-eventGetTime _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_get_time _obj'-    touchManagedPtr _obj-    return result---- method Event::get_window--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-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'---- method Event::put--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-eventPut _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    gdk_event_put _obj'-    touchManagedPtr _obj-    return ()---- method Event::set_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-eventSetDevice _obj device = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let device' = unsafeManagedPtrCastPtr device-    gdk_event_set_device _obj' device'-    touchManagedPtr _obj-    touchManagedPtr device-    return ()---- method Event::set_screen--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-eventSetScreen _obj screen = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    let screen' = unsafeManagedPtrCastPtr screen-    gdk_event_set_screen _obj' screen'-    touchManagedPtr _obj-    touchManagedPtr screen-    return ()---- method Event::set_source_device--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : TBasicType TVoid--- 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 ()-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 ()---- method Event::triggers_context_menu--- method type : OrdinaryMethod--- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- Lengths : []--- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]--- returnType : 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-eventTriggersContextMenu _obj = liftIO $ do-    let _obj' = unsafeManagedPtrGetPtr _obj-    result <- gdk_event_triggers_context_menu _obj'-    let result' = (/= 0) result-    touchManagedPtr _obj-    return result'--
− GI/Gdk/Unions/Event.hs-boot 
@@ -1,11 +0,0 @@-module GI.Gdk.Unions.Event where--import Prelude ()-import Data.GI.Base.ShortPrelude--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
+ GI/GdkAttributes.hs view
@@ -0,0 +1,545 @@+{-# OPTIONS_GHC -fno-warn-orphans -fno-warn-unused-imports #-}++-- Generated code.++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++{-# LANGUAGE ForeignFunctionInterface, ConstraintKinds,+    TypeFamilies, MultiParamTypeClasses, KindSignatures,+    FlexibleInstances, UndecidableInstances, DataKinds,+    OverloadedStrings, NegativeLiterals, FlexibleContexts #-}++module GI.GdkAttributes where++import Prelude ()+import Data.GI.Base.ShortPrelude+import Data.Char+import Data.Int+import Data.Word+import qualified Data.ByteString.Char8 as B+import Data.ByteString.Char8 (ByteString)+import qualified Data.Map as Map+import Foreign.C+import Foreign.Ptr+import Foreign.ForeignPtr+import Foreign.ForeignPtr.Unsafe (unsafeForeignPtrToPtr)+import Foreign.Storable (peek, poke, sizeOf)+import Control.Applicative ((<$>))+import Control.Exception (onException)+import Control.Monad.IO.Class+import qualified Data.Text as T++import Data.GI.Base.Attributes hiding (get, set)+import Data.GI.Base.BasicTypes+import Data.GI.Base.BasicConversions+import Data.GI.Base.Closure+import Data.GI.Base.GError+import Data.GI.Base.GHashTable+import Data.GI.Base.GParamSpec+import Data.GI.Base.GVariant+import Data.GI.Base.GValue+import Data.GI.Base.ManagedPtr+import Data.GI.Base.Overloading+import Data.GI.Base.Properties hiding (new)+import Data.GI.Base.Signals (SignalConnectMode(..), connectSignalFunPtr, SignalHandlerId)+import Data.GI.Base.Utils++import GI.Gdk++-- VVV Prop "display"+   -- Type: TInterface "Gdk" "Display"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m Display+getAppLaunchContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display++constructAppLaunchContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue)+constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" val++data AppLaunchContextDisplayPropertyInfo+instance AttrInfo AppLaunchContextDisplayPropertyInfo where+    type AttrAllowedOps AppLaunchContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint AppLaunchContextDisplayPropertyInfo = DisplayK+    type AttrBaseTypeConstraint AppLaunchContextDisplayPropertyInfo = AppLaunchContextK+    type AttrGetType AppLaunchContextDisplayPropertyInfo = Display+    type AttrLabel AppLaunchContextDisplayPropertyInfo = "AppLaunchContext::display"+    attrGet _ = getAppLaunchContextDisplay+    attrSet _ = undefined+    attrConstruct _ = constructAppLaunchContextDisplay++type instance AttributeList AppLaunchContext = '[ '("display", AppLaunchContextDisplayPropertyInfo)]++-- VVV Prop "cursor-type"+   -- Type: TInterface "Gdk" "CursorType"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++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::cursor-type"+    attrGet _ = getCursorCursorType+    attrSet _ = undefined+    attrConstruct _ = constructCursorCursorType++-- VVV Prop "display"+   -- Type: TInterface "Gdk" "Display"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getCursorDisplay :: (MonadIO m, CursorK o) => o -> m Display+getCursorDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display++constructCursorDisplay :: (DisplayK a) => a -> IO ([Char], GValue)+constructCursorDisplay val = constructObjectPropertyObject "display" val++data CursorDisplayPropertyInfo+instance AttrInfo CursorDisplayPropertyInfo where+    type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint CursorDisplayPropertyInfo = DisplayK+    type AttrBaseTypeConstraint CursorDisplayPropertyInfo = CursorK+    type AttrGetType CursorDisplayPropertyInfo = Display+    type AttrLabel CursorDisplayPropertyInfo = "Cursor::display"+    attrGet _ = getCursorDisplay+    attrSet _ = undefined+    attrConstruct _ = constructCursorDisplay++type instance AttributeList Cursor = '[ '("cursor-type", CursorCursorTypePropertyInfo), '("display", CursorDisplayPropertyInfo)]++-- VVV Prop "associated-device"+   -- Type: TInterface "Gdk" "Device"+   -- Flags: [PropertyReadable]++getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m Device+getDeviceAssociatedDevice obj = liftIO $ getObjectPropertyObject obj "associated-device" Device++data DeviceAssociatedDevicePropertyInfo+instance AttrInfo DeviceAssociatedDevicePropertyInfo where+    type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet]+    type AttrSetTypeConstraint DeviceAssociatedDevicePropertyInfo = (~) ()+    type AttrBaseTypeConstraint DeviceAssociatedDevicePropertyInfo = DeviceK+    type AttrGetType DeviceAssociatedDevicePropertyInfo = Device+    type AttrLabel DeviceAssociatedDevicePropertyInfo = "Device::associated-device"+    attrGet _ = getDeviceAssociatedDevice+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "device-manager"+   -- Type: TInterface "Gdk" "DeviceManager"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m DeviceManager+getDeviceDeviceManager obj = liftIO $ getObjectPropertyObject obj "device-manager" DeviceManager++constructDeviceDeviceManager :: (DeviceManagerK a) => a -> IO ([Char], GValue)+constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" val++data DeviceDeviceManagerPropertyInfo+instance AttrInfo DeviceDeviceManagerPropertyInfo where+    type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceManagerK+    type AttrBaseTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceK+    type AttrGetType DeviceDeviceManagerPropertyInfo = DeviceManager+    type AttrLabel DeviceDeviceManagerPropertyInfo = "Device::device-manager"+    attrGet _ = getDeviceDeviceManager+    attrSet _ = undefined+    attrConstruct _ = constructDeviceDeviceManager++-- VVV Prop "display"+   -- Type: TInterface "Gdk" "Display"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getDeviceDisplay :: (MonadIO m, DeviceK o) => o -> m Display+getDeviceDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display++constructDeviceDisplay :: (DisplayK a) => a -> IO ([Char], GValue)+constructDeviceDisplay val = constructObjectPropertyObject "display" val++data DeviceDisplayPropertyInfo+instance AttrInfo DeviceDisplayPropertyInfo where+    type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DeviceDisplayPropertyInfo = DisplayK+    type AttrBaseTypeConstraint DeviceDisplayPropertyInfo = DeviceK+    type AttrGetType DeviceDisplayPropertyInfo = Display+    type AttrLabel DeviceDisplayPropertyInfo = "Device::display"+    attrGet _ = getDeviceDisplay+    attrSet _ = undefined+    attrConstruct _ = constructDeviceDisplay++-- VVV Prop "has-cursor"+   -- Type: TBasicType TBoolean+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++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 = "Device::has-cursor"+    attrGet _ = getDeviceHasCursor+    attrSet _ = undefined+    attrConstruct _ = constructDeviceHasCursor++-- VVV Prop "input-mode"+   -- Type: TInterface "Gdk" "InputMode"+   -- Flags: [PropertyReadable,PropertyWritable]++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 = "Device::input-mode"+    attrGet _ = getDeviceInputMode+    attrSet _ = setDeviceInputMode+    attrConstruct _ = constructDeviceInputMode++-- VVV Prop "input-source"+   -- Type: TInterface "Gdk" "InputSource"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++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 = "Device::input-source"+    attrGet _ = getDeviceInputSource+    attrSet _ = undefined+    attrConstruct _ = constructDeviceInputSource++-- VVV Prop "n-axes"+   -- Type: TBasicType TUInt32+   -- Flags: [PropertyReadable]++getDeviceNAxes :: (MonadIO m, DeviceK o) => o -> m Word32+getDeviceNAxes obj = liftIO $ getObjectPropertyCUInt 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 = "Device::n-axes"+    attrGet _ = getDeviceNAxes+    attrSet _ = undefined+    attrConstruct _ = undefined++-- VVV Prop "name"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getDeviceName :: (MonadIO m, DeviceK o) => o -> m T.Text+getDeviceName obj = liftIO $ getObjectPropertyString obj "name"++constructDeviceName :: T.Text -> IO ([Char], GValue)+constructDeviceName val = constructObjectPropertyString "name" val++data DeviceNamePropertyInfo+instance AttrInfo DeviceNamePropertyInfo where+    type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DeviceNamePropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DeviceNamePropertyInfo = DeviceK+    type AttrGetType DeviceNamePropertyInfo = T.Text+    type AttrLabel DeviceNamePropertyInfo = "Device::name"+    attrGet _ = getDeviceName+    attrSet _ = undefined+    attrConstruct _ = constructDeviceName++-- VVV Prop "product-id"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m T.Text+getDeviceProductId obj = liftIO $ getObjectPropertyString obj "product-id"++constructDeviceProductId :: T.Text -> IO ([Char], GValue)+constructDeviceProductId val = constructObjectPropertyString "product-id" val++data DeviceProductIdPropertyInfo+instance AttrInfo DeviceProductIdPropertyInfo where+    type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DeviceProductIdPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DeviceProductIdPropertyInfo = DeviceK+    type AttrGetType DeviceProductIdPropertyInfo = T.Text+    type AttrLabel DeviceProductIdPropertyInfo = "Device::product-id"+    attrGet _ = getDeviceProductId+    attrSet _ = undefined+    attrConstruct _ = constructDeviceProductId++-- VVV Prop "type"+   -- Type: TInterface "Gdk" "DeviceType"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++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 = "Device::type"+    attrGet _ = getDeviceType+    attrSet _ = undefined+    attrConstruct _ = constructDeviceType++-- VVV Prop "vendor-id"+   -- Type: TBasicType TUTF8+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m T.Text+getDeviceVendorId obj = liftIO $ getObjectPropertyString obj "vendor-id"++constructDeviceVendorId :: T.Text -> IO ([Char], GValue)+constructDeviceVendorId val = constructObjectPropertyString "vendor-id" val++data DeviceVendorIdPropertyInfo+instance AttrInfo DeviceVendorIdPropertyInfo where+    type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DeviceVendorIdPropertyInfo = (~) T.Text+    type AttrBaseTypeConstraint DeviceVendorIdPropertyInfo = DeviceK+    type AttrGetType DeviceVendorIdPropertyInfo = T.Text+    type AttrLabel DeviceVendorIdPropertyInfo = "Device::vendor-id"+    attrGet _ = getDeviceVendorId+    attrSet _ = undefined+    attrConstruct _ = constructDeviceVendorId++type instance AttributeList Device = '[ '("associated-device", DeviceAssociatedDevicePropertyInfo), '("device-manager", DeviceDeviceManagerPropertyInfo), '("display", DeviceDisplayPropertyInfo), '("has-cursor", DeviceHasCursorPropertyInfo), '("input-mode", DeviceInputModePropertyInfo), '("input-source", DeviceInputSourcePropertyInfo), '("n-axes", DeviceNAxesPropertyInfo), '("name", DeviceNamePropertyInfo), '("product-id", DeviceProductIdPropertyInfo), '("type", DeviceTypePropertyInfo), '("vendor-id", DeviceVendorIdPropertyInfo)]++-- VVV Prop "display"+   -- Type: TInterface "Gdk" "Display"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m Display+getDeviceManagerDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display++constructDeviceManagerDisplay :: (DisplayK a) => a -> IO ([Char], GValue)+constructDeviceManagerDisplay val = constructObjectPropertyObject "display" val++data DeviceManagerDisplayPropertyInfo+instance AttrInfo DeviceManagerDisplayPropertyInfo where+    type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DeviceManagerDisplayPropertyInfo = DisplayK+    type AttrBaseTypeConstraint DeviceManagerDisplayPropertyInfo = DeviceManagerK+    type AttrGetType DeviceManagerDisplayPropertyInfo = Display+    type AttrLabel DeviceManagerDisplayPropertyInfo = "DeviceManager::display"+    attrGet _ = getDeviceManagerDisplay+    attrSet _ = undefined+    attrConstruct _ = constructDeviceManagerDisplay++type instance AttributeList DeviceManager = '[ '("display", DeviceManagerDisplayPropertyInfo)]++type instance AttributeList Display = '[ ]++-- VVV Prop "default-display"+   -- Type: TInterface "Gdk" "Display"+   -- Flags: [PropertyReadable,PropertyWritable]++getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m 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" val++constructDisplayManagerDefaultDisplay :: (DisplayK a) => a -> IO ([Char], GValue)+constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" val++data DisplayManagerDefaultDisplayPropertyInfo+instance AttrInfo DisplayManagerDefaultDisplayPropertyInfo where+    type AttrAllowedOps DisplayManagerDefaultDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayK+    type AttrBaseTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayManagerK+    type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = Display+    type AttrLabel DisplayManagerDefaultDisplayPropertyInfo = "DisplayManager::default-display"+    attrGet _ = getDisplayManagerDefaultDisplay+    attrSet _ = setDisplayManagerDefaultDisplay+    attrConstruct _ = constructDisplayManagerDefaultDisplay++type instance AttributeList DisplayManager = '[ '("default-display", DisplayManagerDefaultDisplayPropertyInfo)]++type instance AttributeList DragContext = '[ ]++type instance AttributeList FrameClock = '[ ]++-- VVV Prop "display"+   -- Type: TInterface "Gdk" "Display"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getGLContextDisplay :: (MonadIO m, GLContextK o) => o -> m Display+getGLContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display++constructGLContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue)+constructGLContextDisplay val = constructObjectPropertyObject "display" val++data GLContextDisplayPropertyInfo+instance AttrInfo GLContextDisplayPropertyInfo where+    type AttrAllowedOps GLContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint GLContextDisplayPropertyInfo = DisplayK+    type AttrBaseTypeConstraint GLContextDisplayPropertyInfo = GLContextK+    type AttrGetType GLContextDisplayPropertyInfo = Display+    type AttrLabel GLContextDisplayPropertyInfo = "GLContext::display"+    attrGet _ = getGLContextDisplay+    attrSet _ = undefined+    attrConstruct _ = constructGLContextDisplay++-- VVV Prop "shared-context"+   -- Type: TInterface "Gdk" "GLContext"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getGLContextSharedContext :: (MonadIO m, GLContextK o) => o -> m GLContext+getGLContextSharedContext obj = liftIO $ getObjectPropertyObject obj "shared-context" GLContext++constructGLContextSharedContext :: (GLContextK a) => a -> IO ([Char], GValue)+constructGLContextSharedContext val = constructObjectPropertyObject "shared-context" val++data GLContextSharedContextPropertyInfo+instance AttrInfo GLContextSharedContextPropertyInfo where+    type AttrAllowedOps GLContextSharedContextPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint GLContextSharedContextPropertyInfo = GLContextK+    type AttrBaseTypeConstraint GLContextSharedContextPropertyInfo = GLContextK+    type AttrGetType GLContextSharedContextPropertyInfo = GLContext+    type AttrLabel GLContextSharedContextPropertyInfo = "GLContext::shared-context"+    attrGet _ = getGLContextSharedContext+    attrSet _ = undefined+    attrConstruct _ = constructGLContextSharedContext++-- VVV Prop "window"+   -- Type: TInterface "Gdk" "Window"+   -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]++getGLContextWindow :: (MonadIO m, GLContextK o) => o -> m Window+getGLContextWindow obj = liftIO $ getObjectPropertyObject obj "window" Window++constructGLContextWindow :: (WindowK a) => a -> IO ([Char], GValue)+constructGLContextWindow val = constructObjectPropertyObject "window" val++data GLContextWindowPropertyInfo+instance AttrInfo GLContextWindowPropertyInfo where+    type AttrAllowedOps GLContextWindowPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint GLContextWindowPropertyInfo = WindowK+    type AttrBaseTypeConstraint GLContextWindowPropertyInfo = GLContextK+    type AttrGetType GLContextWindowPropertyInfo = Window+    type AttrLabel GLContextWindowPropertyInfo = "GLContext::window"+    attrGet _ = getGLContextWindow+    attrSet _ = undefined+    attrConstruct _ = constructGLContextWindow++type instance AttributeList GLContext = '[ '("display", GLContextDisplayPropertyInfo), '("shared-context", GLContextSharedContextPropertyInfo), '("window", GLContextWindowPropertyInfo)]++type instance AttributeList Keymap = '[ ]++-- VVV Prop "font-options"+   -- Type: TBasicType TVoid+   -- Flags: [PropertyReadable,PropertyWritable]++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 = "Screen::font-options"+    attrGet _ = getScreenFontOptions+    attrSet _ = setScreenFontOptions+    attrConstruct _ = constructScreenFontOptions++-- VVV Prop "resolution"+   -- Type: TBasicType TDouble+   -- Flags: [PropertyReadable,PropertyWritable]++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 = "Screen::resolution"+    attrGet _ = getScreenResolution+    attrSet _ = setScreenResolution+    attrConstruct _ = constructScreenResolution++type instance AttributeList Screen = '[ '("font-options", ScreenFontOptionsPropertyInfo), '("resolution", ScreenResolutionPropertyInfo)]++type instance AttributeList Visual = '[ ]++-- VVV Prop "cursor"+   -- Type: TInterface "Gdk" "Cursor"+   -- Flags: [PropertyReadable,PropertyWritable]++getWindowCursor :: (MonadIO m, WindowK o) => o -> m 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" val++constructWindowCursor :: (CursorK a) => a -> IO ([Char], GValue)+constructWindowCursor val = constructObjectPropertyObject "cursor" val++data WindowCursorPropertyInfo+instance AttrInfo WindowCursorPropertyInfo where+    type AttrAllowedOps WindowCursorPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]+    type AttrSetTypeConstraint WindowCursorPropertyInfo = CursorK+    type AttrBaseTypeConstraint WindowCursorPropertyInfo = WindowK+    type AttrGetType WindowCursorPropertyInfo = Cursor+    type AttrLabel WindowCursorPropertyInfo = "Window::cursor"+    attrGet _ = getWindowCursor+    attrSet _ = setWindowCursor+    attrConstruct _ = constructWindowCursor++type instance AttributeList Window = '[ '("cursor", WindowCursorPropertyInfo)]+
+ GI/GdkSignals.hs view
@@ -0,0 +1,164 @@+-- Generated code.++{-# OPTIONS_GHC -fno-warn-orphans #-}++{-# LANGUAGE DataKinds,    FlexibleInstances,+             TypeFamilies, MultiParamTypeClasses,+               TypeOperators #-}++module GI.GdkSignals where++import Data.GI.Base.Properties (GObjectNotifySignalInfo)+import Data.GI.Base.Signals+import Data.GI.Base.Overloading++import qualified GI.GObjectSignals as GObject+import qualified GI.GioSignals as Gio+import GI.Gdk++type instance SignalList AppLaunchContext = '[ '("launch-failed", Gio.AppLaunchContextLaunchFailedSignalInfo), '("launched", Gio.AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList Cursor = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++data DeviceChangedSignalInfo+instance SignalInfo DeviceChangedSignalInfo where+    type HaskellCallbackType DeviceChangedSignalInfo = DeviceChangedCallback+    connectSignal _ = connectDeviceChanged++type instance SignalList Device = '[ '("changed", DeviceChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++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 = '[ '("device-added", DeviceManagerDeviceAddedSignalInfo), '("device-changed", DeviceManagerDeviceChangedSignalInfo), '("device-removed", DeviceManagerDeviceRemovedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++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 = '[ '("closed", DisplayClosedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("opened", DisplayOpenedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++data DisplayManagerDisplayOpenedSignalInfo+instance SignalInfo DisplayManagerDisplayOpenedSignalInfo where+    type HaskellCallbackType DisplayManagerDisplayOpenedSignalInfo = DisplayManagerDisplayOpenedCallback+    connectSignal _ = connectDisplayManagerDisplayOpened++type instance SignalList DisplayManager = '[ '("display-opened", DisplayManagerDisplayOpenedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList DragContext = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++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 = '[ '("after-paint", FrameClockAfterPaintSignalInfo), '("before-paint", FrameClockBeforePaintSignalInfo), '("flush-events", FrameClockFlushEventsSignalInfo), '("layout", FrameClockLayoutSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("paint", FrameClockPaintSignalInfo), '("resume-events", FrameClockResumeEventsSignalInfo), '("update", FrameClockUpdateSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList GLContext = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++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 = '[ '("direction-changed", KeymapDirectionChangedSignalInfo), '("keys-changed", KeymapKeysChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("state-changed", KeymapStateChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++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 = '[ '("composited-changed", ScreenCompositedChangedSignalInfo), '("monitors-changed", ScreenMonitorsChangedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("size-changed", ScreenSizeChangedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++type instance SignalList Visual = '[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]++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 = '[ '("create-surface", WindowCreateSurfaceSignalInfo), '("from-embedder", WindowFromEmbedderSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("pick-embedded-child", WindowPickEmbeddedChildSignalInfo), '("to-embedder", WindowToEmbedderSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)]+
gi-gdk.cabal view
@@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name:               gi-gdk-version:            0.3.16.12+version:            0.3.18.10 synopsis:           Gdk bindings description:        Bindings for Gdk, autogenerated by haskell-gi. homepage:           https://github.com/haskell-gi/haskell-gi@@ -14,72 +14,16 @@  library     default-language:   Haskell2010-    default-extensions: OverloadedStrings, NegativeLiterals, ConstraintKinds, TypeFamilies, MultiParamTypeClasses, KindSignatures, FlexibleInstances, UndecidableInstances, DataKinds, FlexibleContexts-    other-extensions:   PatternSynonyms ScopedTypeVariables, 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.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.TimeCoord-                        GI.Gdk.Structs.WindowAttr-                        GI.Gdk.Structs.WindowRedirect-                        GI.Gdk.Unions-                        GI.Gdk.Unions.Event-    pkgconfig-depends:  gdk-3.0 >= 3.16+    exposed-modules:    GI.Gdk, GI.GdkAttributes, GI.GdkSignals+    pkgconfig-depends:  gdk-3.0 >= 3.18     build-depends: base >= 4.7 && <5,-        haskell-gi-base >= 0.12 && < 1,-        gi-glib >= 0.2.44.12 && < 0.2.45,-        gi-gobject >= 0.2.44.12 && < 0.2.45,-        gi-gdkpixbuf >= 0.2.31.12 && < 0.2.32,-        gi-gio >= 0.2.44.12 && < 0.2.45,-        gi-pango >= 0.1.36.12 && < 0.1.37,-        gi-cairo >= 0.1.14.12 && < 0.1.15,+        haskell-gi-base >= 0.10 && < 1,+        gi-glib >= 0.2.46.10 && < 0.3,+        gi-gobject >= 0.2.46.10 && < 0.3,+        gi-gdkpixbuf >= 0.2.32.10 && < 0.3,+        gi-gio >= 0.2.46.10 && < 0.3,+        gi-pango >= 0.1.38.10 && < 0.2,+        gi-cairo >= 0.1.14.10 && < 0.2,         bytestring >= 0.10,         containers >= 0.5,         text >= 1.0,