gi-gdk 0.3.18.12 → 0.3.18.13

raw patch · 76 files changed

+12955/−9919 lines, 76 filesdep ~gi-cairodep ~gi-gdkpixbufdep ~gi-gioPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• GI/Gdk.hs +6/−0
• GI/Gdk/Callbacks.hs +1/−0
• GI/Gdk/Constants.hs +1/−0
• GI/Gdk/Enums.hs +1/−0
• GI/Gdk/Flags.hs +1/−0
• GI/Gdk/Functions.hs +2989/−3314
• GI/Gdk/Objects.hs +1/−0
• GI/Gdk/Objects/AppLaunchContext.hs +110/−41
• GI/Gdk/Objects/AppLaunchContext.hs-boot +6/−0
• GI/Gdk/Objects/Cursor.hs +127/−72
• GI/Gdk/Objects/Cursor.hs-boot +6/−0
• GI/Gdk/Objects/Device.hs +346/−183
• GI/Gdk/Objects/Device.hs-boot +26/−0
• GI/Gdk/Objects/DeviceManager.hs +64/−15
• GI/Gdk/Objects/DeviceManager.hs-boot +3/−0
• GI/Gdk/Objects/Display.hs +428/−207
• GI/Gdk/Objects/Display.hs-boot +38/−0
• GI/Gdk/Objects/DisplayManager.hs +76/−23
• GI/Gdk/Objects/DisplayManager.hs-boot +4/−0
• GI/Gdk/Objects/DragContext.hs +117/−38
• GI/Gdk/Objects/DragContext.hs-boot +9/−0
• GI/Gdk/Objects/FrameClock.hs +125/−46
• GI/Gdk/Objects/FrameClock.hs-boot +9/−0
• GI/Gdk/Objects/GLContext.hs +154/−57
• GI/Gdk/Objects/GLContext.hs-boot +12/−0
• GI/Gdk/Objects/Keymap.hs +189/−92
• GI/Gdk/Objects/Keymap.hs-boot +13/−0
• GI/Gdk/Objects/Screen.hs +338/−159
• GI/Gdk/Objects/Screen.hs-boot +30/−0
• GI/Gdk/Objects/Visual.hs +136/−64
• GI/Gdk/Objects/Visual.hs-boot +9/−0
• GI/Gdk/Objects/Window.hs +6147/−5363
• GI/Gdk/Objects/Window.hs-boot +151/−0
• GI/Gdk/Structs.hs +1/−0
• GI/Gdk/Structs/Atom.hs +84/−4
• GI/Gdk/Structs/Atom.hs-boot +1/−0
• GI/Gdk/Structs/Color.hs +94/−21
• GI/Gdk/Structs/Color.hs-boot +5/−0
• GI/Gdk/Structs/EventAny.hs +17/−0
• GI/Gdk/Structs/EventButton.hs +17/−0
• GI/Gdk/Structs/EventConfigure.hs +17/−0
• GI/Gdk/Structs/EventCrossing.hs +17/−0
• GI/Gdk/Structs/EventDND.hs +17/−0
• GI/Gdk/Structs/EventExpose.hs +17/−0
• GI/Gdk/Structs/EventFocus.hs +17/−0
• GI/Gdk/Structs/EventGrabBroken.hs +17/−0
• GI/Gdk/Structs/EventKey.hs +17/−0
• GI/Gdk/Structs/EventMotion.hs +17/−0
• GI/Gdk/Structs/EventOwnerChange.hs +17/−0
• GI/Gdk/Structs/EventProperty.hs +17/−0
• GI/Gdk/Structs/EventProximity.hs +17/−0
• GI/Gdk/Structs/EventScroll.hs +17/−0
• GI/Gdk/Structs/EventSelection.hs +17/−0
• GI/Gdk/Structs/EventSequence.hs +12/−0
• GI/Gdk/Structs/EventSetting.hs +17/−0
• GI/Gdk/Structs/EventTouch.hs +17/−0
• GI/Gdk/Structs/EventTouchpadPinch.hs +17/−0
• GI/Gdk/Structs/EventTouchpadSwipe.hs +17/−0
• GI/Gdk/Structs/EventVisibility.hs +17/−0
• GI/Gdk/Structs/EventWindowState.hs +17/−0
• GI/Gdk/Structs/FrameTimings.hs +84/−32
• GI/Gdk/Structs/FrameTimings.hs-boot +8/−0
• GI/Gdk/Structs/Geometry.hs +17/−0
• GI/Gdk/Structs/KeymapKey.hs +17/−0
• GI/Gdk/Structs/Point.hs +17/−0
• GI/Gdk/Structs/RGBA.hs +73/−26
• GI/Gdk/Structs/RGBA.hs-boot +6/−0
• GI/Gdk/Structs/Rectangle.hs +37/−10
• GI/Gdk/Structs/Rectangle.hs-boot +2/−0
• GI/Gdk/Structs/TimeCoord.hs +17/−0
• GI/Gdk/Structs/WindowAttr.hs +17/−0
• GI/Gdk/Structs/WindowRedirect.hs +12/−0
• GI/Gdk/Unions.hs +1/−0
• GI/Gdk/Unions/Event.hs +386/−142
• GI/Gdk/Unions/Event.hs-boot +24/−0
• gi-gdk.cabal +10/−10

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1@@ -16,6 +17,10 @@     module GI.Gdk.Unions                    ,  ++    module Data.GI.Base                     ,++     ) where  import GI.Gdk.Callbacks@@ -37,4 +42,5 @@ import GI.Gdk.Types import GI.Gdk.Callbacks +import Data.GI.Base 

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,5 +1,6 @@ {-# LANGUAGE PatternSynonyms, ScopedTypeVariables, ViewPatterns #-} + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,4 +1,5 @@ + {- | Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte License    : LGPL-2.1

@@ -1,3318 +1,2993 @@ -{- |-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                        ,----- ** 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_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 "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_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_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 ()++{- |+Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte+License    : LGPL-2.1+Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)+-}++module GI.Gdk.Functions+    ( ++ -- * Methods+-- ** addOptionEntriesLibgtkOnly+    addOptionEntriesLibgtkOnly              ,+++-- ** beep+    beep                                    ,+++-- ** cairoCreate+    cairoCreate                             ,+++-- ** cairoDrawFromGl+    cairoDrawFromGl                         ,+++-- ** cairoGetClipRectangle+    cairoGetClipRectangle                   ,+++-- ** cairoRectangle+    cairoRectangle                          ,+++-- ** cairoRegion+    cairoRegion                             ,+++-- ** cairoRegionCreateFromSurface+    cairoRegionCreateFromSurface            ,+++-- ** cairoSetSourceColor+    cairoSetSourceColor                     ,+++-- ** cairoSetSourcePixbuf+    cairoSetSourcePixbuf                    ,+++-- ** cairoSetSourceRgba+    cairoSetSourceRgba                      ,+++-- ** cairoSetSourceWindow+    cairoSetSourceWindow                    ,+++-- ** cairoSurfaceCreateFromPixbuf+    cairoSurfaceCreateFromPixbuf            ,+++-- ** disableMultidevice+    disableMultidevice                      ,+++-- ** dragAbort+    dragAbort                               ,+++-- ** dragBegin+    dragBegin                               ,+++-- ** dragBeginForDevice+    dragBeginForDevice                      ,+++-- ** dragDrop+    dragDrop                                ,+++-- ** dragDropSucceeded+    dragDropSucceeded                       ,+++-- ** dragFindWindowForScreen+    dragFindWindowForScreen                 ,+++-- ** dragGetSelection+    dragGetSelection                        ,+++-- ** dragMotion+    dragMotion                              ,+++-- ** dragStatus+    dragStatus                              ,+++-- ** dropFinish+    dropFinish                              ,+++-- ** dropReply+    dropReply                               ,+++-- ** errorTrapPop+    errorTrapPop                            ,+++-- ** errorTrapPopIgnored+    errorTrapPopIgnored                     ,+++-- ** errorTrapPush+    errorTrapPush                           ,+++-- ** eventsGetAngle+    eventsGetAngle                          ,+++-- ** eventsGetCenter+    eventsGetCenter                         ,+++-- ** eventsGetDistance+    eventsGetDistance                       ,+++-- ** eventsPending+    eventsPending                           ,+++-- ** flush+    flush                                   ,+++-- ** getDefaultRootWindow+    getDefaultRootWindow                    ,+++-- ** getDisplay+    getDisplay                              ,+++-- ** getDisplayArgName+    getDisplayArgName                       ,+++-- ** getProgramClass+    getProgramClass                         ,+++-- ** getShowEvents+    getShowEvents                           ,+++-- ** init+    init                                    ,+++-- ** initCheck+    initCheck                               ,+++-- ** keyboardGrab+    keyboardGrab                            ,+++-- ** keyboardUngrab+    keyboardUngrab                          ,+++-- ** keyvalConvertCase+    keyvalConvertCase                       ,+++-- ** keyvalFromName+    keyvalFromName                          ,+++-- ** keyvalIsLower+    keyvalIsLower                           ,+++-- ** keyvalIsUpper+    keyvalIsUpper                           ,+++-- ** keyvalName+    keyvalName                              ,+++-- ** keyvalToLower+    keyvalToLower                           ,+++-- ** keyvalToUnicode+    keyvalToUnicode                         ,+++-- ** keyvalToUpper+    keyvalToUpper                           ,+++-- ** listVisuals+    listVisuals                             ,+++-- ** notifyStartupComplete+    notifyStartupComplete                   ,+++-- ** notifyStartupCompleteWithId+    notifyStartupCompleteWithId             ,+++-- ** offscreenWindowGetEmbedder+    offscreenWindowGetEmbedder              ,+++-- ** offscreenWindowGetSurface+    offscreenWindowGetSurface               ,+++-- ** offscreenWindowSetEmbedder+    offscreenWindowSetEmbedder              ,+++-- ** pangoContextGet+    pangoContextGet                         ,+++-- ** pangoContextGetForScreen+    pangoContextGetForScreen                ,+++-- ** parseArgs+    parseArgs                               ,+++-- ** pixbufGetFromSurface+    pixbufGetFromSurface                    ,+++-- ** pixbufGetFromWindow+    pixbufGetFromWindow                     ,+++-- ** pointerGrab+    pointerGrab                             ,+++-- ** pointerIsGrabbed+    pointerIsGrabbed                        ,+++-- ** pointerUngrab+    pointerUngrab                           ,+++-- ** preParseLibgtkOnly+    preParseLibgtkOnly                      ,+++-- ** propertyDelete+    propertyDelete                          ,+++-- ** propertyGet+    propertyGet                             ,+++-- ** queryDepths+    queryDepths                             ,+++-- ** queryVisualTypes+    queryVisualTypes                        ,+++-- ** selectionConvert+    selectionConvert                        ,+++-- ** selectionOwnerGet+    selectionOwnerGet                       ,+++-- ** selectionOwnerGetForDisplay+    selectionOwnerGetForDisplay             ,+++-- ** selectionOwnerSet+    selectionOwnerSet                       ,+++-- ** selectionOwnerSetForDisplay+    selectionOwnerSetForDisplay             ,+++-- ** selectionSendNotify+    selectionSendNotify                     ,+++-- ** selectionSendNotifyForDisplay+    selectionSendNotifyForDisplay           ,+++-- ** setAllowedBackends+    setAllowedBackends                      ,+++-- ** setDoubleClickTime+    setDoubleClickTime                      ,+++-- ** setProgramClass+    setProgramClass                         ,+++-- ** setShowEvents+    setShowEvents                           ,+++-- ** settingGet+    settingGet                              ,+++-- ** synthesizeWindowState+    synthesizeWindowState                   ,+++-- ** testRenderSync+    testRenderSync                          ,+++-- ** testSimulateButton+    testSimulateButton                      ,+++-- ** testSimulateKey+    testSimulateKey                         ,+++-- ** textPropertyToUtf8ListForDisplay+    textPropertyToUtf8ListForDisplay        ,+++-- ** threadsAddIdle+    threadsAddIdle                          ,+++-- ** threadsAddTimeout+    threadsAddTimeout                       ,+++-- ** threadsAddTimeoutSeconds+    threadsAddTimeoutSeconds                ,+++-- ** threadsEnter+    threadsEnter                            ,+++-- ** threadsInit+    threadsInit                             ,+++-- ** threadsLeave+    threadsLeave                            ,+++-- ** unicodeToKeyval+    unicodeToKeyval                         ,+++-- ** utf8ToStringTarget+    utf8ToStringTarget                      ,+++++    ) where++import 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 {argCName = "str", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+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 {argCName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+unicodeToKeyval wc = liftIO $ do+    result <- gdk_unicode_to_keyval wc+    return result+++-- function gdk_threads_leave+-- Args : []+-- Lengths : []+-- 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 ()                                    -- result+threadsLeave  = liftIO $ do+    gdk_threads_leave+    return ()+++-- function gdk_threads_init+-- Args : []+-- Lengths : []+-- 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 ()                                    -- result+threadsInit  = liftIO $ do+    gdk_threads_init+    return ()+++-- function gdk_threads_enter+-- Args : []+-- Lengths : []+-- 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 ()                                    -- result+threadsEnter  = liftIO $ do+    gdk_threads_enter+    return ()+++-- function gdk_threads_add_timeout_seconds_full+-- Args : [Arg {argCName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                             -- result+threadsAddTimeoutSeconds priority interval function = liftIO $ do+    function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- gdk_threads_add_timeout_seconds_full priority interval function' data_ notify+    return result+++-- function gdk_threads_add_timeout_full+-- Args : [Arg {argCName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                             -- result+threadsAddTimeout priority interval function = liftIO $ do+    function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- gdk_threads_add_timeout_full priority interval function' data_ notify+    return result+++-- function gdk_threads_add_idle_full+-- Args : [Arg {argCName = "priority", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                             -- result+threadsAddIdle priority function = liftIO $ do+    function' <- GLib.mkSourceFunc (GLib.sourceFuncWrapper Nothing function)+    let data_ = castFunPtrToPtr function'+    let notify = safeFreeFunPtrPtr+    result <- gdk_threads_add_idle_full priority function' data_ notify+    return result+++-- function gdk_text_property_to_utf8_list_for_display+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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])                   -- result+textPropertyToUtf8ListForDisplay display encoding format text = liftIO $ do+    let length_ = fromIntegral $ B.length text+    let display' = unsafeManagedPtrCastPtr display+    let encoding' = unsafeManagedPtrGetPtr encoding+    text' <- packByteString text+    list <- allocMem :: IO (Ptr (Ptr CString))+    result <- gdk_text_property_to_utf8_list_for_display display' encoding' format text' length_ list+    list' <- peek list+    list'' <- unpackZeroTerminatedUTF8CArray list'+    mapZeroTerminatedCArray freeMem list'+    freeMem list'+    touchManagedPtr display+    touchManagedPtr encoding+    freeMem text'+    freeMem list+    return (result, list'')+++-- function gdk_test_simulate_key+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                            -- keyPressrelease+    -> m Bool                               -- result+testSimulateKey window x y keyval modifiers keyPressrelease = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let modifiers' = gflagsToWord modifiers+    let keyPressrelease' = (fromIntegral . fromEnum) keyPressrelease+    result <- gdk_test_simulate_key window' x y keyval modifiers' keyPressrelease'+    let result' = (/= 0) result+    touchManagedPtr window+    return result'+++-- function gdk_test_simulate_button+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                            -- buttonPressrelease+    -> m Bool                               -- result+testSimulateButton window x y button modifiers buttonPressrelease = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let modifiers' = gflagsToWord modifiers+    let buttonPressrelease' = (fromIntegral . fromEnum) buttonPressrelease+    result <- gdk_test_simulate_button window' x y button modifiers' buttonPressrelease'+    let result' = (/= 0) result+    touchManagedPtr window+    return result'+++-- function gdk_test_render_sync+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+testRenderSync window = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    gdk_test_render_sync window'+    touchManagedPtr window+    return ()+++-- function gdk_synthesize_window_state+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "unset_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "set_flags", argType = TInterface "Gdk" "WindowState", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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]                        -- unsetFlags+    -> [WindowState]                        -- setFlags+    -> m ()                                 -- result+synthesizeWindowState window unsetFlags setFlags = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let unsetFlags' = gflagsToWord unsetFlags+    let setFlags' = gflagsToWord setFlags+    gdk_synthesize_window_state window' unsetFlags' setFlags'+    touchManagedPtr window+    return ()+++-- function gdk_setting_get+-- Args : [Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "value", argType = TInterface "GObject" "Value", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_setting_get" gdk_setting_get :: +    CString ->                              -- name : TBasicType TUTF8+    Ptr GValue ->                           -- value : TInterface "GObject" "Value"+    IO CInt+++settingGet ::+    (MonadIO m) =>+    T.Text                                  -- name+    -> GValue                               -- value+    -> m Bool                               -- result+settingGet name value = liftIO $ do+    name' <- textToCString name+    let value' = unsafeManagedPtrGetPtr value+    result <- gdk_setting_get name' value'+    let result' = (/= 0) result+    touchManagedPtr value+    freeMem name'+    return result'+++-- function gdk_set_show_events+-- Args : [Arg {argCName = "show_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                                    -- showEvents+    -> m ()                                 -- result+setShowEvents showEvents = liftIO $ do+    let showEvents' = (fromIntegral . fromEnum) showEvents+    gdk_set_show_events showEvents'+    return ()+++-- function gdk_set_program_class+-- Args : [Arg {argCName = "program_class", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                                  -- programClass+    -> m ()                                 -- result+setProgramClass programClass = liftIO $ do+    programClass' <- textToCString programClass+    gdk_set_program_class programClass'+    freeMem programClass'+    return ()+++-- function gdk_set_double_click_time+-- Args : [Arg {argCName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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 ()                                 -- result+setDoubleClickTime msec = liftIO $ do+    gdk_set_double_click_time msec+    return ()+++-- function gdk_set_allowed_backends+-- Args : [Arg {argCName = "backends", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+setAllowedBackends backends = liftIO $ do+    backends' <- textToCString backends+    gdk_set_allowed_backends backends'+    freeMem backends'+    return ()+++-- function gdk_selection_send_notify_for_display+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+selectionSendNotifyForDisplay display requestor selection target property time = liftIO $ do+    let display' = unsafeManagedPtrCastPtr display+    let requestor' = unsafeManagedPtrCastPtr requestor+    let selection' = unsafeManagedPtrGetPtr selection+    let target' = unsafeManagedPtrGetPtr target+    let property' = unsafeManagedPtrGetPtr property+    gdk_selection_send_notify_for_display display' requestor' selection' target' property' time+    touchManagedPtr display+    touchManagedPtr requestor+    touchManagedPtr selection+    touchManagedPtr target+    touchManagedPtr property+    return ()+++-- function gdk_selection_send_notify+-- Args : [Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+selectionSendNotify requestor selection target property time = liftIO $ do+    let requestor' = unsafeManagedPtrCastPtr requestor+    let selection' = unsafeManagedPtrGetPtr selection+    let target' = unsafeManagedPtrGetPtr target+    let property' = unsafeManagedPtrGetPtr property+    gdk_selection_send_notify requestor' selection' target' property' time+    touchManagedPtr requestor+    touchManagedPtr selection+    touchManagedPtr target+    touchManagedPtr property+    return ()+++-- function gdk_selection_owner_set_for_display+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_selection_owner_set_for_display" gdk_selection_owner_set_for_display :: +    Ptr Display ->                          -- display : TInterface "Gdk" "Display"+    Ptr Window ->                           -- owner : TInterface "Gdk" "Window"+    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"+    Word32 ->                               -- time_ : TBasicType TUInt32+    CInt ->                                 -- send_event : TBasicType TBoolean+    IO CInt+++selectionOwnerSetForDisplay ::+    (MonadIO m, DisplayK a, WindowK b) =>+    a                                       -- display+    -> Maybe (b)                            -- owner+    -> Atom                                 -- selection+    -> Word32                               -- time+    -> Bool                                 -- sendEvent+    -> m Bool                               -- result+selectionOwnerSetForDisplay display owner selection time sendEvent = liftIO $ do+    let display' = unsafeManagedPtrCastPtr display+    maybeOwner <- case owner of+        Nothing -> return nullPtr+        Just jOwner -> do+            let jOwner' = unsafeManagedPtrCastPtr jOwner+            return jOwner'+    let selection' = unsafeManagedPtrGetPtr selection+    let sendEvent' = (fromIntegral . fromEnum) sendEvent+    result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time sendEvent'+    let result' = (/= 0) result+    touchManagedPtr display+    whenJust owner touchManagedPtr+    touchManagedPtr selection+    return result'+++-- function gdk_selection_owner_set+-- Args : [Arg {argCName = "owner", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "send_event", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_selection_owner_set" gdk_selection_owner_set :: +    Ptr Window ->                           -- owner : TInterface "Gdk" "Window"+    Ptr Atom ->                             -- selection : TInterface "Gdk" "Atom"+    Word32 ->                               -- time_ : TBasicType TUInt32+    CInt ->                                 -- send_event : TBasicType TBoolean+    IO CInt+++selectionOwnerSet ::+    (MonadIO m, WindowK a) =>+    Maybe (a)                               -- owner+    -> Atom                                 -- selection+    -> Word32                               -- time+    -> Bool                                 -- sendEvent+    -> m Bool                               -- result+selectionOwnerSet owner selection time sendEvent = liftIO $ do+    maybeOwner <- case owner of+        Nothing -> return nullPtr+        Just jOwner -> do+            let jOwner' = unsafeManagedPtrCastPtr jOwner+            return jOwner'+    let selection' = unsafeManagedPtrGetPtr selection+    let sendEvent' = (fromIntegral . fromEnum) sendEvent+    result <- gdk_selection_owner_set maybeOwner selection' time sendEvent'+    let result' = (/= 0) result+    whenJust owner touchManagedPtr+    touchManagedPtr selection+    return result'+++-- function gdk_selection_owner_get_for_display+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                             -- result+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 {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+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 {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+selectionConvert requestor selection target time = liftIO $ do+    let requestor' = unsafeManagedPtrCastPtr requestor+    let selection' = unsafeManagedPtrGetPtr selection+    let target' = unsafeManagedPtrGetPtr target+    gdk_selection_convert requestor' selection' target' time+    touchManagedPtr requestor+    touchManagedPtr selection+    touchManagedPtr target+    return ()+++-- function gdk_query_visual_types+-- Args : [Arg {argCName = "visual_types", argType = TCArray False (-1) 1 (TInterface "Gdk" "VisualType"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- 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])                        -- result+queryVisualTypes  = liftIO $ do+    visualTypes <- allocMem :: IO (Ptr (Ptr CUInt))+    count <- allocMem :: IO (Ptr Int32)+    gdk_query_visual_types visualTypes count+    count' <- peek count+    visualTypes' <- peek visualTypes+    visualTypes'' <- (unpackStorableArrayWithLength count') visualTypes'+    let visualTypes''' = map (toEnum . fromIntegral) visualTypes''+    freeMem visualTypes+    freeMem count+    return visualTypes'''+++-- function gdk_query_depths+-- Args : [Arg {argCName = "depths", argType = TCArray False (-1) 1 (TBasicType TInt32), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "count", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- 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])                             -- result+queryDepths  = liftIO $ do+    depths <- allocMem :: IO (Ptr (Ptr Int32))+    count <- allocMem :: IO (Ptr Int32)+    gdk_query_depths depths count+    count' <- peek count+    depths' <- peek depths+    depths'' <- (unpackStorableArrayWithLength count') depths'+    freeMem depths+    freeMem count+    return depths''+++-- function gdk_property_get+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pdelete", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actual_property_type", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "actual_format", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "data", argType = TCArray False (-1) 8 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "actual_length", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- 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)       -- result+propertyGet window property type_ offset length_ pdelete = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let property' = unsafeManagedPtrGetPtr property+    let type_' = unsafeManagedPtrGetPtr type_+    actualPropertyType <- allocMem :: IO (Ptr (Ptr Atom))+    actualFormat <- allocMem :: IO (Ptr Int32)+    actualLength <- allocMem :: IO (Ptr Int32)+    data_ <- allocMem :: IO (Ptr (Ptr Word8))+    result <- gdk_property_get window' property' type_' offset length_ pdelete actualPropertyType actualFormat actualLength data_+    actualLength' <- peek actualLength+    let result' = (/= 0) result+    actualPropertyType' <- peek actualPropertyType+    -- XXX Wrapping a foreign struct/union with no known destructor, leak?+    actualPropertyType'' <- (\x -> Atom <$> newForeignPtr_ x) actualPropertyType'+    actualFormat' <- peek actualFormat+    data_' <- peek data_+    data_'' <- (unpackByteStringWithLength actualLength') data_'+    freeMem data_'+    touchManagedPtr window+    touchManagedPtr property+    touchManagedPtr type_+    freeMem actualPropertyType+    freeMem actualFormat+    freeMem actualLength+    freeMem data_+    return (result', actualPropertyType'', actualFormat', data_'')+++-- function gdk_property_delete+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+propertyDelete window property = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let property' = unsafeManagedPtrGetPtr property+    gdk_property_delete window' property'+    touchManagedPtr window+    touchManagedPtr property+    return ()+++-- function gdk_pre_parse_libgtk_only+-- Args : []+-- Lengths : []+-- returnType : 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 ()                                    -- result+preParseLibgtkOnly  = liftIO $ do+    gdk_pre_parse_libgtk_only+    return ()+++-- function gdk_pointer_ungrab+-- Args : [Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+pointerUngrab time = liftIO $ do+    gdk_pointer_ungrab time+    return ()+++-- function gdk_pointer_is_grabbed+-- Args : []+-- Lengths : []+-- 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                                  -- result+pointerIsGrabbed  = liftIO $ do+    result <- gdk_pointer_is_grabbed+    let result' = (/= 0) result+    return result'+++-- function gdk_pointer_grab+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "confine_to", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "Gdk" "GrabStatus"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pointer_grab" gdk_pointer_grab :: +    Ptr Window ->                           -- window : TInterface "Gdk" "Window"+    CInt ->                                 -- owner_events : TBasicType TBoolean+    CUInt ->                                -- event_mask : TInterface "Gdk" "EventMask"+    Ptr Window ->                           -- confine_to : TInterface "Gdk" "Window"+    Ptr Cursor ->                           -- cursor : TInterface "Gdk" "Cursor"+    Word32 ->                               -- time_ : TBasicType TUInt32+    IO CUInt++{-# DEPRECATED pointerGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-}+pointerGrab ::+    (MonadIO m, WindowK a, WindowK b, CursorK c) =>+    a                                       -- window+    -> Bool                                 -- ownerEvents+    -> [EventMask]                          -- eventMask+    -> Maybe (b)                            -- confineTo+    -> Maybe (c)                            -- cursor+    -> Word32                               -- time+    -> m GrabStatus                         -- result+pointerGrab window ownerEvents eventMask confineTo cursor time = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let ownerEvents' = (fromIntegral . fromEnum) ownerEvents+    let eventMask' = gflagsToWord eventMask+    maybeConfineTo <- case confineTo of+        Nothing -> return nullPtr+        Just jConfineTo -> do+            let jConfineTo' = unsafeManagedPtrCastPtr jConfineTo+            return jConfineTo'+    maybeCursor <- case cursor of+        Nothing -> return nullPtr+        Just jCursor -> do+            let jCursor' = unsafeManagedPtrCastPtr jCursor+            return jCursor'+    result <- gdk_pointer_grab window' ownerEvents' eventMask' maybeConfineTo maybeCursor time+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr window+    whenJust confineTo touchManagedPtr+    whenJust cursor touchManagedPtr+    return result'+++-- function gdk_pixbuf_get_from_window+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                                -- srcX+    -> Int32                                -- srcY+    -> Int32                                -- width+    -> Int32                                -- height+    -> m GdkPixbuf.Pixbuf                   -- result+pixbufGetFromWindow window srcX srcY width height = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    result <- gdk_pixbuf_get_from_window window' srcX srcY width height+    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_window" result+    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    touchManagedPtr window+    return result'+++-- function gdk_pixbuf_get_from_surface+-- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                                -- srcX+    -> Int32                                -- srcY+    -> Int32                                -- width+    -> Int32                                -- height+    -> m GdkPixbuf.Pixbuf                   -- result+pixbufGetFromSurface surface srcX srcY width height = liftIO $ do+    let surface' = unsafeManagedPtrGetPtr surface+    result <- gdk_pixbuf_get_from_surface surface' srcX srcY width height+    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_surface" result+    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    touchManagedPtr surface+    return result'+++-- function gdk_parse_args+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- 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])                         -- result+parseArgs argv = liftIO $ do+    let argc = fromIntegral $ length argv+    argc' <- allocMem :: IO (Ptr Int32)+    poke argc' argc+    argv' <- packUTF8CArray argv+    argv'' <- allocMem :: IO (Ptr (Ptr CString))+    poke argv'' argv'+    gdk_parse_args argc' argv''+    argc'' <- peek argc'+    argv''' <- peek argv''+    argv'''' <- (unpackUTF8CArrayWithLength argc'') argv'''+    (mapCArrayWithLength argc'') freeMem argv'''+    freeMem argv'''+    freeMem argc'+    freeMem argv''+    return argv''''+++-- function gdk_pango_context_get_for_screen+-- Args : [Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "Pango" "Context"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pango_context_get_for_screen" gdk_pango_context_get_for_screen :: +    Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"+    IO (Ptr Pango.Context)+++pangoContextGetForScreen ::+    (MonadIO m, ScreenK a) =>+    a                                       -- screen+    -> m Pango.Context                      -- result+pangoContextGetForScreen screen = liftIO $ do+    let screen' = unsafeManagedPtrCastPtr screen+    result <- gdk_pango_context_get_for_screen screen'+    checkUnexpectedReturnNULL "gdk_pango_context_get_for_screen" result+    result' <- (wrapObject Pango.Context) result+    touchManagedPtr screen+    return result'+++-- function gdk_pango_context_get+-- Args : []+-- Lengths : []+-- returnType : TInterface "Pango" "Context"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_pango_context_get" gdk_pango_context_get :: +    IO (Ptr Pango.Context)+++pangoContextGet ::+    (MonadIO m) =>+    m Pango.Context                         -- result+pangoContextGet  = liftIO $ do+    result <- gdk_pango_context_get+    checkUnexpectedReturnNULL "gdk_pango_context_get" result+    result' <- (wrapObject Pango.Context) result+    return result'+++-- function gdk_offscreen_window_set_embedder+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "embedder", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+offscreenWindowSetEmbedder window embedder = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let embedder' = unsafeManagedPtrCastPtr embedder+    gdk_offscreen_window_set_embedder window' embedder'+    touchManagedPtr window+    touchManagedPtr embedder+    return ()+++-- function gdk_offscreen_window_get_surface+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                      -- result+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 {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+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 {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                                  -- startupId+    -> m ()                                 -- result+notifyStartupCompleteWithId startupId = liftIO $ do+    startupId' <- textToCString startupId+    gdk_notify_startup_complete_with_id startupId'+    freeMem startupId'+    return ()+++-- function gdk_notify_startup_complete+-- Args : []+-- Lengths : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_notify_startup_complete" gdk_notify_startup_complete :: +    IO ()+++notifyStartupComplete ::+    (MonadIO m) =>+    m ()                                    -- result+notifyStartupComplete  = liftIO $ do+    gdk_notify_startup_complete+    return ()+++-- function gdk_list_visuals+-- Args : []+-- Lengths : []+-- returnType : TGList (TInterface "Gdk" "Visual")+-- throws : False+-- Skip return : False++foreign import ccall "gdk_list_visuals" gdk_list_visuals :: +    IO (Ptr (GList (Ptr Visual)))+++listVisuals ::+    (MonadIO m) =>+    m [Visual]                              -- result+listVisuals  = liftIO $ do+    result <- gdk_list_visuals+    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 {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+keyvalToUpper keyval = liftIO $ do+    result <- gdk_keyval_to_upper keyval+    return result+++-- function gdk_keyval_to_unicode+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+keyvalToUnicode keyval = liftIO $ do+    result <- gdk_keyval_to_unicode keyval+    return result+++-- function gdk_keyval_to_lower+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+keyvalToLower keyval = liftIO $ do+    result <- gdk_keyval_to_lower keyval+    return result+++-- function gdk_keyval_name+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                             -- result+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 {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                               -- result+keyvalIsUpper keyval = liftIO $ do+    result <- gdk_keyval_is_upper keyval+    let result' = (/= 0) result+    return result'+++-- function gdk_keyval_is_lower+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                               -- result+keyvalIsLower keyval = liftIO $ do+    result <- gdk_keyval_is_lower keyval+    let result' = (/= 0) result+    return result'+++-- function gdk_keyval_from_name+-- Args : [Arg {argCName = "keyval_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                                  -- keyvalName+    -> m Word32                             -- result+keyvalFromName keyvalName = liftIO $ do+    keyvalName' <- textToCString keyvalName+    result <- gdk_keyval_from_name keyvalName'+    freeMem keyvalName'+    return result+++-- function gdk_keyval_convert_case+-- Args : [Arg {argCName = "symbol", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "upper", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- 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)                    -- result+keyvalConvertCase symbol = liftIO $ do+    lower <- allocMem :: IO (Ptr Word32)+    upper <- allocMem :: IO (Ptr Word32)+    gdk_keyval_convert_case symbol lower upper+    lower' <- peek lower+    upper' <- peek upper+    freeMem lower+    freeMem upper+    return (lower', upper')+++-- function gdk_keyboard_ungrab+-- Args : [Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+keyboardUngrab time = liftIO $ do+    gdk_keyboard_ungrab time+    return ()+++-- function gdk_keyboard_grab+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "Gdk" "GrabStatus"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_keyboard_grab" gdk_keyboard_grab :: +    Ptr Window ->                           -- window : TInterface "Gdk" "Window"+    CInt ->                                 -- owner_events : TBasicType TBoolean+    Word32 ->                               -- time_ : TBasicType TUInt32+    IO CUInt++{-# DEPRECATED keyboardGrab ["(Since version 3.0)","Use gdk_device_grab() instead."]#-}+keyboardGrab ::+    (MonadIO m, WindowK a) =>+    a                                       -- window+    -> Bool                                 -- ownerEvents+    -> Word32                               -- time+    -> m GrabStatus                         -- result+keyboardGrab window ownerEvents time = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let ownerEvents' = (fromIntegral . fromEnum) ownerEvents+    result <- gdk_keyboard_grab window' ownerEvents' time+    let result' = (toEnum . fromIntegral) result+    touchManagedPtr window+    return result'+++-- function gdk_init_check+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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])                    -- result+initCheck argv = liftIO $ do+    let argc = fromIntegral $ length argv+    argc' <- allocMem :: IO (Ptr Int32)+    poke argc' argc+    argv' <- packUTF8CArray argv+    argv'' <- allocMem :: IO (Ptr (Ptr CString))+    poke argv'' argv'+    result <- gdk_init_check argc' argv''+    argc'' <- peek argc'+    let result' = (/= 0) result+    argv''' <- peek argv''+    argv'''' <- (unpackUTF8CArrayWithLength argc'') argv'''+    (mapCArrayWithLength argc'') freeMem argv'''+    freeMem argv'''+    freeMem argc'+    freeMem argv''+    return (result', argv'''')+++-- function gdk_init+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt32, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, 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])                         -- result+init argv = liftIO $ do+    let argc = fromIntegral $ length argv+    argc' <- allocMem :: IO (Ptr Int32)+    poke argc' argc+    argv' <- packUTF8CArray argv+    argv'' <- allocMem :: IO (Ptr (Ptr CString))+    poke argv'' argv'+    gdk_init argc' argv''+    argc'' <- peek argc'+    argv''' <- peek argv''+    argv'''' <- (unpackUTF8CArrayWithLength argc'') argv'''+    (mapCArrayWithLength argc'') freeMem argv'''+    freeMem argv'''+    freeMem argc'+    freeMem argv''+    return argv''''+++-- function gdk_get_show_events+-- Args : []+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_get_show_events" gdk_get_show_events :: +    IO CInt+++getShowEvents ::+    (MonadIO m) =>+    m Bool                                  -- result+getShowEvents  = liftIO $ do+    result <- gdk_get_show_events+    let result' = (/= 0) result+    return result'+++-- function gdk_get_program_class+-- Args : []+-- Lengths : []+-- returnType : TBasicType TUTF8+-- throws : False+-- Skip return : False++foreign import ccall "gdk_get_program_class" gdk_get_program_class :: +    IO CString+++getProgramClass ::+    (MonadIO m) =>+    m T.Text                                -- result+getProgramClass  = liftIO $ do+    result <- gdk_get_program_class+    checkUnexpectedReturnNULL "gdk_get_program_class" result+    result' <- cstringToText result+    return result'+++-- function gdk_get_display_arg_name+-- Args : []+-- Lengths : []+-- returnType : 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                                -- result+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 : []+-- 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                                -- result+getDisplay  = liftIO $ do+    result <- gdk_get_display+    checkUnexpectedReturnNULL "gdk_get_display" result+    result' <- cstringToText result+    freeMem result+    return result'+++-- function gdk_get_default_root_window+-- Args : []+-- Lengths : []+-- returnType : TInterface "Gdk" "Window"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_get_default_root_window" gdk_get_default_root_window :: +    IO (Ptr Window)+++getDefaultRootWindow ::+    (MonadIO m) =>+    m Window                                -- result+getDefaultRootWindow  = liftIO $ do+    result <- gdk_get_default_root_window+    checkUnexpectedReturnNULL "gdk_get_default_root_window" result+    result' <- (newObject Window) result+    return result'+++-- function gdk_flush+-- Args : []+-- Lengths : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_flush" gdk_flush :: +    IO ()+++flush ::+    (MonadIO m) =>+    m ()                                    -- result+flush  = liftIO $ do+    gdk_flush+    return ()+++-- function gdk_events_pending+-- Args : []+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_events_pending" gdk_events_pending :: +    IO CInt+++eventsPending ::+    (MonadIO m) =>+    m Bool                                  -- result+eventsPending  = liftIO $ do+    result <- gdk_events_pending+    let result' = (/= 0) result+    return result'+++-- function gdk_events_get_distance+-- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_events_get_distance" gdk_events_get_distance :: +    Ptr Event ->                            -- event1 : TInterface "Gdk" "Event"+    Ptr Event ->                            -- event2 : TInterface "Gdk" "Event"+    Ptr CDouble ->                          -- distance : TBasicType TDouble+    IO CInt+++eventsGetDistance ::+    (MonadIO m) =>+    Event                                   -- event1+    -> Event                                -- event2+    -> m (Bool,Double)                      -- result+eventsGetDistance event1 event2 = liftIO $ do+    let event1' = unsafeManagedPtrGetPtr event1+    let event2' = unsafeManagedPtrGetPtr event2+    distance <- allocMem :: IO (Ptr CDouble)+    result <- gdk_events_get_distance event1' event2' distance+    let result' = (/= 0) result+    distance' <- peek distance+    let distance'' = realToFrac distance'+    touchManagedPtr event1+    touchManagedPtr event2+    freeMem distance+    return (result', distance'')+++-- function gdk_events_get_center+-- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_events_get_center" gdk_events_get_center :: +    Ptr Event ->                            -- event1 : TInterface "Gdk" "Event"+    Ptr Event ->                            -- event2 : TInterface "Gdk" "Event"+    Ptr CDouble ->                          -- x : TBasicType TDouble+    Ptr CDouble ->                          -- y : TBasicType TDouble+    IO CInt+++eventsGetCenter ::+    (MonadIO m) =>+    Event                                   -- event1+    -> Event                                -- event2+    -> m (Bool,Double,Double)               -- result+eventsGetCenter event1 event2 = liftIO $ do+    let event1' = unsafeManagedPtrGetPtr event1+    let event2' = unsafeManagedPtrGetPtr event2+    x <- allocMem :: IO (Ptr CDouble)+    y <- allocMem :: IO (Ptr CDouble)+    result <- gdk_events_get_center event1' event2' x y+    let result' = (/= 0) result+    x' <- peek x+    let x'' = realToFrac x'+    y' <- peek y+    let y'' = realToFrac y'+    touchManagedPtr event1+    touchManagedPtr event2+    freeMem x+    freeMem y+    return (result', x'', y'')+++-- function gdk_events_get_angle+-- Args : [Arg {argCName = "event1", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event2", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "angle", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_events_get_angle" gdk_events_get_angle :: +    Ptr Event ->                            -- event1 : TInterface "Gdk" "Event"+    Ptr Event ->                            -- event2 : TInterface "Gdk" "Event"+    Ptr CDouble ->                          -- angle : TBasicType TDouble+    IO CInt+++eventsGetAngle ::+    (MonadIO m) =>+    Event                                   -- event1+    -> Event                                -- event2+    -> m (Bool,Double)                      -- result+eventsGetAngle event1 event2 = liftIO $ do+    let event1' = unsafeManagedPtrGetPtr event1+    let event2' = unsafeManagedPtrGetPtr event2+    angle <- allocMem :: IO (Ptr CDouble)+    result <- gdk_events_get_angle event1' event2' angle+    let result' = (/= 0) result+    angle' <- peek angle+    let angle'' = realToFrac angle'+    touchManagedPtr event1+    touchManagedPtr event2+    freeMem angle+    return (result', angle'')+++-- function gdk_error_trap_push+-- Args : []+-- Lengths : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_error_trap_push" gdk_error_trap_push :: +    IO ()+++errorTrapPush ::+    (MonadIO m) =>+    m ()                                    -- result+errorTrapPush  = liftIO $ do+    gdk_error_trap_push+    return ()+++-- function gdk_error_trap_pop_ignored+-- Args : []+-- Lengths : []+-- returnType : 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 ()                                    -- result+errorTrapPopIgnored  = liftIO $ do+    gdk_error_trap_pop_ignored+    return ()+++-- function gdk_error_trap_pop+-- Args : []+-- Lengths : []+-- 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                                 -- result+errorTrapPop  = liftIO $ do+    result <- gdk_error_trap_pop+    return result+++-- function gdk_drop_reply+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "accepted", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+dropReply context accepted time = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let accepted' = (fromIntegral . fromEnum) accepted+    gdk_drop_reply context' accepted' time+    touchManagedPtr context+    return ()+++-- function gdk_drop_finish+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "success", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+dropFinish context success time = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let success' = (fromIntegral . fromEnum) success+    gdk_drop_finish context' success' time+    touchManagedPtr context+    return ()+++-- function gdk_drag_status+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+dragStatus context action time = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let action' = gflagsToWord action+    gdk_drag_status context' action' time+    touchManagedPtr context+    return ()+++-- function gdk_drag_motion+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                                    -- destWindow+    -> DragProtocol                         -- protocol+    -> Int32                                -- xRoot+    -> Int32                                -- yRoot+    -> [DragAction]                         -- suggestedAction+    -> [DragAction]                         -- possibleActions+    -> Word32                               -- time+    -> m Bool                               -- result+dragMotion context destWindow protocol xRoot yRoot suggestedAction possibleActions time = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let destWindow' = unsafeManagedPtrCastPtr destWindow+    let protocol' = (fromIntegral . fromEnum) protocol+    let suggestedAction' = gflagsToWord suggestedAction+    let possibleActions' = gflagsToWord possibleActions+    result <- gdk_drag_motion context' destWindow' protocol' xRoot yRoot suggestedAction' possibleActions' time+    let result' = (/= 0) result+    touchManagedPtr context+    touchManagedPtr destWindow+    return result'+++-- function gdk_drag_get_selection+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "Gdk" "Atom"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_drag_get_selection" gdk_drag_get_selection :: +    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"+    IO (Ptr Atom)+++dragGetSelection ::+    (MonadIO m, DragContextK a) =>+    a                                       -- context+    -> m Atom                               -- result+dragGetSelection context = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    result <- gdk_drag_get_selection context'+    checkUnexpectedReturnNULL "gdk_drag_get_selection" result+    -- 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 {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : []+-- returnType : 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                                    -- dragWindow+    -> c                                    -- screen+    -> Int32                                -- xRoot+    -> Int32                                -- yRoot+    -> m (Window,DragProtocol)              -- result+dragFindWindowForScreen context dragWindow screen xRoot yRoot = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    let dragWindow' = unsafeManagedPtrCastPtr dragWindow+    let screen' = unsafeManagedPtrCastPtr screen+    destWindow <- allocMem :: IO (Ptr (Ptr Window))+    protocol <- allocMem :: IO (Ptr CUInt)+    gdk_drag_find_window_for_screen context' dragWindow' screen' xRoot yRoot destWindow protocol+    destWindow' <- peek destWindow+    destWindow'' <- (wrapObject Window) destWindow'+    protocol' <- peek protocol+    let protocol'' = (toEnum . fromIntegral) protocol'+    touchManagedPtr context+    touchManagedPtr dragWindow+    touchManagedPtr screen+    freeMem destWindow+    freeMem protocol+    return (destWindow'', protocol'')+++-- function gdk_drag_drop_succeeded+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_drag_drop_succeeded" gdk_drag_drop_succeeded :: +    Ptr DragContext ->                      -- context : TInterface "Gdk" "DragContext"+    IO CInt+++dragDropSucceeded ::+    (MonadIO m, DragContextK a) =>+    a                                       -- context+    -> m Bool                               -- result+dragDropSucceeded context = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    result <- gdk_drag_drop_succeeded context'+    let result' = (/= 0) result+    touchManagedPtr context+    return result'+++-- function gdk_drag_drop+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+dragDrop context time = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    gdk_drag_drop context' time+    touchManagedPtr context+    return ()+++-- function gdk_drag_begin_for_device+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "Gdk" "DragContext"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_drag_begin_for_device" gdk_drag_begin_for_device :: +    Ptr Window ->                           -- window : TInterface "Gdk" "Window"+    Ptr Device ->                           -- device : TInterface "Gdk" "Device"+    Ptr (GList (Ptr Atom)) ->               -- targets : TGList (TInterface "Gdk" "Atom")+    IO (Ptr DragContext)+++dragBeginForDevice ::+    (MonadIO m, WindowK a, DeviceK b) =>+    a                                       -- window+    -> b                                    -- device+    -> [Atom]                               -- targets+    -> m DragContext                        -- result+dragBeginForDevice window device targets = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let device' = unsafeManagedPtrCastPtr device+    let targets' = map unsafeManagedPtrGetPtr targets+    targets'' <- packGList targets'+    result <- gdk_drag_begin_for_device window' device' targets''+    checkUnexpectedReturnNULL "gdk_drag_begin_for_device" result+    result' <- (wrapObject DragContext) result+    touchManagedPtr window+    touchManagedPtr device+    mapM_ touchManagedPtr targets+    g_list_free targets''+    return result'+++-- function gdk_drag_begin+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TGList (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "Gdk" "DragContext"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_drag_begin" gdk_drag_begin :: +    Ptr Window ->                           -- window : TInterface "Gdk" "Window"+    Ptr (GList (Ptr Atom)) ->               -- targets : TGList (TInterface "Gdk" "Atom")+    IO (Ptr DragContext)+++dragBegin ::+    (MonadIO m, WindowK a) =>+    a                                       -- window+    -> [Atom]                               -- targets+    -> m DragContext                        -- result+dragBegin window targets = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    let targets' = map unsafeManagedPtrGetPtr targets+    targets'' <- packGList targets'+    result <- gdk_drag_begin window' targets''+    checkUnexpectedReturnNULL "gdk_drag_begin" result+    result' <- (wrapObject DragContext) result+    touchManagedPtr window+    mapM_ touchManagedPtr targets+    g_list_free targets''+    return result'+++-- function gdk_drag_abort+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+dragAbort context time = liftIO $ do+    let context' = unsafeManagedPtrCastPtr context+    gdk_drag_abort context' time+    touchManagedPtr context+    return ()+++-- function gdk_disable_multidevice+-- Args : []+-- Lengths : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_disable_multidevice" gdk_disable_multidevice :: +    IO ()+++disableMultidevice ::+    (MonadIO m) =>+    m ()                                    -- result+disableMultidevice  = liftIO $ do+    gdk_disable_multidevice+    return ()+++-- function gdk_cairo_surface_create_from_pixbuf+-- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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)                            -- forWindow+    -> m Cairo.Surface                      -- result+cairoSurfaceCreateFromPixbuf pixbuf scale forWindow = liftIO $ do+    let pixbuf' = unsafeManagedPtrCastPtr pixbuf+    maybeForWindow <- case forWindow of+        Nothing -> return nullPtr+        Just jForWindow -> do+            let jForWindow' = unsafeManagedPtrCastPtr jForWindow+            return jForWindow'+    result <- gdk_cairo_surface_create_from_pixbuf pixbuf' scale maybeForWindow+    checkUnexpectedReturnNULL "gdk_cairo_surface_create_from_pixbuf" result+    result' <- (wrapBoxed Cairo.Surface) result+    touchManagedPtr pixbuf+    whenJust forWindow touchManagedPtr+    return result'+++-- function gdk_cairo_set_source_window+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+cairoSetSourceWindow cr window x y = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let window' = unsafeManagedPtrCastPtr window+    let x' = realToFrac x+    let y' = realToFrac y+    gdk_cairo_set_source_window cr' window' x' y'+    touchManagedPtr cr+    touchManagedPtr window+    return ()+++-- function gdk_cairo_set_source_rgba+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rgba", argType = TInterface "Gdk" "RGBA", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+cairoSetSourceRgba cr rgba = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let rgba' = unsafeManagedPtrGetPtr rgba+    gdk_cairo_set_source_rgba cr' rgba'+    touchManagedPtr cr+    touchManagedPtr rgba+    return ()+++-- function gdk_cairo_set_source_pixbuf+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf_x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf_y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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                               -- pixbufX+    -> Double                               -- pixbufY+    -> m ()                                 -- result+cairoSetSourcePixbuf cr pixbuf pixbufX pixbufY = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let pixbuf' = unsafeManagedPtrCastPtr pixbuf+    let pixbufX' = realToFrac pixbufX+    let pixbufY' = realToFrac pixbufY+    gdk_cairo_set_source_pixbuf cr' pixbuf' pixbufX' pixbufY'+    touchManagedPtr cr+    touchManagedPtr pixbuf+    return ()+++-- function gdk_cairo_set_source_color+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "color", argType = TInterface "Gdk" "Color", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+cairoSetSourceColor cr color = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let color' = unsafeManagedPtrGetPtr color+    gdk_cairo_set_source_color cr' color'+    touchManagedPtr cr+    touchManagedPtr color+    return ()+++-- function gdk_cairo_region_create_from_surface+-- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "cairo" "Region"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_cairo_region_create_from_surface" gdk_cairo_region_create_from_surface :: +    Ptr Cairo.Surface ->                    -- surface : TInterface "cairo" "Surface"+    IO (Ptr Cairo.Region)+++cairoRegionCreateFromSurface ::+    (MonadIO m) =>+    Cairo.Surface                           -- surface+    -> m Cairo.Region                       -- result+cairoRegionCreateFromSurface surface = liftIO $ do+    let surface' = unsafeManagedPtrGetPtr surface+    result <- gdk_cairo_region_create_from_surface surface'+    checkUnexpectedReturnNULL "gdk_cairo_region_create_from_surface" result+    result' <- (wrapBoxed Cairo.Region) result+    touchManagedPtr surface+    return result'+++-- function gdk_cairo_region+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "region", argType = TInterface "cairo" "Region", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+cairoRegion cr region = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let region' = unsafeManagedPtrGetPtr region+    gdk_cairo_region cr' region'+    touchManagedPtr cr+    touchManagedPtr region+    return ()+++-- function gdk_cairo_rectangle+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rectangle", argType = TInterface "Gdk" "Rectangle", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result+cairoRectangle cr rectangle = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let rectangle' = unsafeManagedPtrGetPtr rectangle+    gdk_cairo_rectangle cr' rectangle'+    touchManagedPtr cr+    touchManagedPtr rectangle+    return ()+++-- function gdk_cairo_get_clip_rectangle+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "rect", argType = TInterface "Gdk" "Rectangle", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TBasicType TBoolean+-- throws : False+-- Skip return : False++foreign import ccall "gdk_cairo_get_clip_rectangle" gdk_cairo_get_clip_rectangle :: +    Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"+    Ptr Rectangle ->                        -- rect : TInterface "Gdk" "Rectangle"+    IO CInt+++cairoGetClipRectangle ::+    (MonadIO m) =>+    Cairo.Context                           -- cr+    -> m (Bool,Rectangle)                   -- result+cairoGetClipRectangle cr = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    rect <- callocBoxedBytes 16 :: IO (Ptr Rectangle)+    result <- gdk_cairo_get_clip_rectangle cr' rect+    let result' = (/= 0) result+    rect' <- (wrapBoxed Rectangle) rect+    touchManagedPtr cr+    return (result', rect')+++-- function gdk_cairo_draw_from_gl+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_type", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_scale", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- 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                                -- sourceType+    -> Int32                                -- bufferScale+    -> Int32                                -- x+    -> Int32                                -- y+    -> Int32                                -- width+    -> Int32                                -- height+    -> m ()                                 -- result+cairoDrawFromGl cr window source sourceType bufferScale x y width height = liftIO $ do+    let cr' = unsafeManagedPtrGetPtr cr+    let window' = unsafeManagedPtrCastPtr window+    gdk_cairo_draw_from_gl cr' window' source sourceType bufferScale x y width height+    touchManagedPtr cr+    touchManagedPtr window+    return ()+++-- function gdk_cairo_create+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : TInterface "cairo" "Context"+-- throws : False+-- Skip return : False++foreign import ccall "gdk_cairo_create" gdk_cairo_create :: +    Ptr Window ->                           -- window : TInterface "Gdk" "Window"+    IO (Ptr Cairo.Context)+++cairoCreate ::+    (MonadIO m, WindowK a) =>+    a                                       -- window+    -> m Cairo.Context                      -- result+cairoCreate window = liftIO $ do+    let window' = unsafeManagedPtrCastPtr window+    result <- gdk_cairo_create window'+    checkUnexpectedReturnNULL "gdk_cairo_create" result+    result' <- (wrapBoxed Cairo.Context) result+    touchManagedPtr window+    return result'+++-- function gdk_beep+-- Args : []+-- Lengths : []+-- returnType : TBasicType TVoid+-- throws : False+-- Skip return : False++foreign import ccall "gdk_beep" gdk_beep :: +    IO ()+++beep ::+    (MonadIO m) =>+    m ()                                    -- result+beep  = liftIO $ do+    gdk_beep+    return ()+++-- function gdk_add_option_entries_libgtk_only+-- Args : [Arg {argCName = "group", argType = TInterface "GLib" "OptionGroup", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : []+-- returnType : 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 ()                                 -- result addOptionEntriesLibgtkOnly group = liftIO $ do     let group' = unsafeManagedPtrGetPtr group     gdk_add_option_entries_libgtk_only group'