gi-gdk 0.3.18.13 → 0.3.18.14

raw patch · 104 files changed

+8309/−1900 lines, 104 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 +1/−1
• GI/Gdk/Callbacks.hs +1/−1
• GI/Gdk/Constants.hs +1/−1
• GI/Gdk/Enums.hs +1/−1
• GI/Gdk/Flags.hs +19/−19
• GI/Gdk/Functions.hs +278/−270
• GI/Gdk/Objects.hs +1/−1
• GI/Gdk/Objects/AppLaunchContext.hs +19/−13
• GI/Gdk/Objects/AppLaunchContext.hs-boot +1/−1
• GI/Gdk/Objects/Cursor.hs +47/−32
• GI/Gdk/Objects/Cursor.hs-boot +1/−1
• GI/Gdk/Objects/Device.hs +184/−115
• GI/Gdk/Objects/Device.hs-boot +1/−1
• GI/Gdk/Objects/DeviceManager.hs +20/−14
• GI/Gdk/Objects/DeviceManager.hs-boot +1/−1
• GI/Gdk/Objects/Display.hs +111/−105
• GI/Gdk/Objects/Display.hs-boot +1/−1
• GI/Gdk/Objects/DisplayManager.hs +28/−21
• GI/Gdk/Objects/DisplayManager.hs-boot +1/−1
• GI/Gdk/Objects/DragContext.hs +10/−11
• GI/Gdk/Objects/DragContext.hs-boot +1/−1
• GI/Gdk/Objects/FrameClock.hs +22/−20
• GI/Gdk/Objects/FrameClock.hs-boot +1/−1
• GI/Gdk/Objects/GLContext.hs +86/−39
• GI/Gdk/Objects/GLContext.hs-boot +1/−1
• GI/Gdk/Objects/Keymap.hs +31/−31
• GI/Gdk/Objects/Keymap.hs-boot +1/−1
• GI/Gdk/Objects/Screen.hs +97/−83
• GI/Gdk/Objects/Screen.hs-boot +1/−1
• GI/Gdk/Objects/Visual.hs +35/−34
• GI/Gdk/Objects/Visual.hs-boot +1/−1
• GI/Gdk/Objects/Window.hs +308/−294
• GI/Gdk/Objects/Window.hs-boot +1/−1
• GI/Gdk/Structs.hs +1/−1
• GI/Gdk/Structs/Atom.hs +8/−4
• GI/Gdk/Structs/Atom.hs-boot +1/−1
• GI/Gdk/Structs/Color.hs +114/−15
• GI/Gdk/Structs/Color.hs-boot +1/−1
• GI/Gdk/Structs/EventAny.hs +94/−9
• GI/Gdk/Structs/EventAny.hs-boot +1/−1
• GI/Gdk/Structs/EventButton.hs +325/−29
• GI/Gdk/Structs/EventButton.hs-boot +1/−1
• GI/Gdk/Structs/EventConfigure.hs +190/−17
• GI/Gdk/Structs/EventConfigure.hs-boot +1/−1
• GI/Gdk/Structs/EventCrossing.hs +351/−31
• GI/Gdk/Structs/EventCrossing.hs-boot +1/−1
• GI/Gdk/Structs/EventDND.hs +199/−19
• GI/Gdk/Structs/EventDND.hs-boot +1/−1
• GI/Gdk/Structs/EventExpose.hs +184/−19
• GI/Gdk/Structs/EventExpose.hs-boot +1/−1
• GI/Gdk/Structs/EventFocus.hs +118/−11
• GI/Gdk/Structs/EventFocus.hs-boot +1/−1
• GI/Gdk/Structs/EventGrabBroken.hs +177/−17
• GI/Gdk/Structs/EventGrabBroken.hs-boot +1/−1
• GI/Gdk/Structs/EventKey.hs +296/−27
• GI/Gdk/Structs/EventKey.hs-boot +1/−1
• GI/Gdk/Structs/EventMotion.hs +325/−29
• GI/Gdk/Structs/EventMotion.hs-boot +1/−1
• GI/Gdk/Structs/EventOwnerChange.hs +234/−24
• GI/Gdk/Structs/EventOwnerChange.hs-boot +1/−1
• GI/Gdk/Structs/EventProperty.hs +177/−18
• GI/Gdk/Structs/EventProperty.hs-boot +1/−1
• GI/Gdk/Structs/EventProximity.hs +151/−15
• GI/Gdk/Structs/EventProximity.hs-boot +1/−1
• GI/Gdk/Structs/EventScroll.hs +351/−31
• GI/Gdk/Structs/EventScroll.hs-boot +1/−1
• GI/Gdk/Structs/EventSelection.hs +253/−30
• GI/Gdk/Structs/EventSelection.hs-boot +1/−1
• GI/Gdk/Structs/EventSequence.hs +5/−1
• GI/Gdk/Structs/EventSequence.hs-boot +1/−1
• GI/Gdk/Structs/EventSetting.hs +152/−15
• GI/Gdk/Structs/EventSetting.hs-boot +1/−1
• GI/Gdk/Structs/EventTouch.hs +359/−33
• GI/Gdk/Structs/EventTouch.hs-boot +1/−1
• GI/Gdk/Structs/EventTouchpadPinch.hs +392/−33
• GI/Gdk/Structs/EventTouchpadPinch.hs-boot +1/−1
• GI/Gdk/Structs/EventTouchpadSwipe.hs +342/−29
• GI/Gdk/Structs/EventTouchpadSwipe.hs-boot +1/−1
• GI/Gdk/Structs/EventVisibility.hs +119/−11
• GI/Gdk/Structs/EventVisibility.hs-boot +1/−1
• GI/Gdk/Structs/EventWindowState.hs +144/−13
• GI/Gdk/Structs/EventWindowState.hs-boot +1/−1
• GI/Gdk/Structs/FrameTimings.hs +13/−9
• GI/Gdk/Structs/FrameTimings.hs-boot +1/−1
• GI/Gdk/Structs/Geometry.hs +279/−23
• GI/Gdk/Structs/Geometry.hs-boot +1/−1
• GI/Gdk/Structs/KeymapKey.hs +84/−7
• GI/Gdk/Structs/KeymapKey.hs-boot +1/−1
• GI/Gdk/Structs/Point.hs +60/−5
• GI/Gdk/Structs/Point.hs-boot +1/−1
• GI/Gdk/Structs/RGBA.hs +118/−15
• GI/Gdk/Structs/RGBA.hs-boot +1/−1
• GI/Gdk/Structs/Rectangle.hs +110/−11
• GI/Gdk/Structs/Rectangle.hs-boot +1/−1
• GI/Gdk/Structs/TimeCoord.hs +36/−4
• GI/Gdk/Structs/TimeCoord.hs-boot +1/−1
• GI/Gdk/Structs/WindowAttr.hs +397/−39
• GI/Gdk/Structs/WindowAttr.hs-boot +1/−1
• GI/Gdk/Structs/WindowRedirect.hs +5/−1
• GI/Gdk/Structs/WindowRedirect.hs-boot +1/−1
• GI/Gdk/Unions.hs +1/−1
• GI/Gdk/Unions/Event.hs +789/−142
• GI/Gdk/Unions/Event.hs-boot +1/−1
• gi-gdk.cabal +9/−9

@@ -32,9 +32,9 @@ import GI.Gdk.Structs import GI.Gdk.Unions -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -50,9 +50,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -2291,9 +2291,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -46,9 +46,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -23,9 +23,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -74,8 +74,8 @@ foreign import ccall "gdk_window_state_get_type" c_gdk_window_state_get_type ::      IO GType -instance BoxedEnum WindowState where-    boxedEnumType _ = c_gdk_window_state_get_type+instance BoxedFlags WindowState where+    boxedFlagsType _ = c_gdk_window_state_get_type  instance IsGFlag WindowState @@ -120,8 +120,8 @@ foreign import ccall "gdk_window_hints_get_type" c_gdk_window_hints_get_type ::      IO GType -instance BoxedEnum WindowHints where-    boxedEnumType _ = c_gdk_window_hints_get_type+instance BoxedFlags WindowHints where+    boxedFlagsType _ = c_gdk_window_hints_get_type  instance IsGFlag WindowHints @@ -163,8 +163,8 @@ foreign import ccall "gdk_window_attributes_type_get_type" c_gdk_window_attributes_type_get_type ::      IO GType -instance BoxedEnum WindowAttributesType where-    boxedEnumType _ = c_gdk_window_attributes_type_get_type+instance BoxedFlags WindowAttributesType where+    boxedFlagsType _ = c_gdk_window_attributes_type_get_type  instance IsGFlag WindowAttributesType @@ -200,8 +200,8 @@ foreign import ccall "gdk_wm_function_get_type" c_gdk_wm_function_get_type ::      IO GType -instance BoxedEnum WMFunction where-    boxedEnumType _ = c_gdk_wm_function_get_type+instance BoxedFlags WMFunction where+    boxedFlagsType _ = c_gdk_wm_function_get_type  instance IsGFlag WMFunction @@ -240,8 +240,8 @@ foreign import ccall "gdk_wm_decoration_get_type" c_gdk_wm_decoration_get_type ::      IO GType -instance BoxedEnum WMDecoration where-    boxedEnumType _ = c_gdk_wm_decoration_get_type+instance BoxedFlags WMDecoration where+    boxedFlagsType _ = c_gdk_wm_decoration_get_type  instance IsGFlag WMDecoration @@ -355,8 +355,8 @@ foreign import ccall "gdk_modifier_type_get_type" c_gdk_modifier_type_get_type ::      IO GType -instance BoxedEnum ModifierType where-    boxedEnumType _ = c_gdk_modifier_type_get_type+instance BoxedFlags ModifierType where+    boxedFlagsType _ = c_gdk_modifier_type_get_type  instance IsGFlag ModifierType @@ -398,8 +398,8 @@ foreign import ccall "gdk_frame_clock_phase_get_type" c_gdk_frame_clock_phase_get_type ::      IO GType -instance BoxedEnum FrameClockPhase where-    boxedEnumType _ = c_gdk_frame_clock_phase_get_type+instance BoxedFlags FrameClockPhase where+    boxedFlagsType _ = c_gdk_frame_clock_phase_get_type  instance IsGFlag FrameClockPhase @@ -492,8 +492,8 @@ foreign import ccall "gdk_event_mask_get_type" c_gdk_event_mask_get_type ::      IO GType -instance BoxedEnum EventMask where-    boxedEnumType _ = c_gdk_event_mask_get_type+instance BoxedFlags EventMask where+    boxedFlagsType _ = c_gdk_event_mask_get_type  instance IsGFlag EventMask @@ -529,8 +529,8 @@ foreign import ccall "gdk_drag_action_get_type" c_gdk_drag_action_get_type ::      IO GType -instance BoxedEnum DragAction where-    boxedEnumType _ = c_gdk_drag_action_get_type+instance BoxedFlags DragAction where+    boxedFlagsType _ = c_gdk_drag_action_get_type  instance IsGFlag DragAction 

@@ -390,9 +390,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -407,7 +407,7 @@ -- 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+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -419,21 +419,22 @@ utf8ToStringTarget ::     (MonadIO m) =>     T.Text                                  -- str-    -> m T.Text                             -- result+    -> m (Maybe 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        freeMem result'+        return result''     freeMem str'-    return result'+    return maybeResult   -- function gdk_unicode_to_keyval -- Args : [Arg {argCName = "wc", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -454,7 +455,7 @@ -- function gdk_threads_leave -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -473,7 +474,7 @@ -- function gdk_threads_init -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -492,7 +493,7 @@ -- function gdk_threads_enter -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -509,17 +510,17 @@   -- 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}]+-- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False  foreign import ccall "gdk_threads_add_timeout_seconds_full" gdk_threads_add_timeout_seconds_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Word32 ->                               -- interval : TBasicType TUInt32+    Int32 ->                                -- priority : TBasicType TInt+    Word32 ->                               -- interval : TBasicType TUInt     FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid+    Ptr () ->                               -- data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"     IO Word32 @@ -539,17 +540,17 @@   -- 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}]+-- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "interval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 3, argDestroy = 4, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False  foreign import ccall "gdk_threads_add_timeout_full" gdk_threads_add_timeout_full :: -    Int32 ->                                -- priority : TBasicType TInt32-    Word32 ->                               -- interval : TBasicType TUInt32+    Int32 ->                                -- priority : TBasicType TInt+    Word32 ->                               -- interval : TBasicType TUInt     FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid+    Ptr () ->                               -- data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"     IO Word32 @@ -569,16 +570,16 @@   -- 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}]+-- Args : [Arg {argCName = "priority", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "function", argType = TInterface "GLib" "SourceFunc", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeNotified, argClosure = 2, argDestroy = 3, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "data", argType = TBasicType TPtr, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "notify", argType = TInterface "GLib" "DestroyNotify", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeAsync, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False  foreign import ccall "gdk_threads_add_idle_full" gdk_threads_add_idle_full :: -    Int32 ->                                -- priority : TBasicType TInt32+    Int32 ->                                -- priority : TBasicType TInt     FunPtr GLib.SourceFuncC ->              -- function : TInterface "GLib" "SourceFunc"-    Ptr () ->                               -- data : TBasicType TVoid+    Ptr () ->                               -- data : TBasicType TPtr     FunPtr GLib.DestroyNotifyC ->           -- notify : TInterface "GLib" "DestroyNotify"     IO Word32 @@ -597,18 +598,18 @@   -- 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+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "encoding", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "format", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "text", argType = TCArray False (-1) 4 (TBasicType TUInt8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "list", argType = TCArray True (-1) (-1) (TBasicType TUTF8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "length", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False  foreign import ccall "gdk_text_property_to_utf8_list_for_display" gdk_text_property_to_utf8_list_for_display ::      Ptr Display ->                          -- display : TInterface "Gdk" "Display"     Ptr Atom ->                             -- encoding : TInterface "Gdk" "Atom"-    Int32 ->                                -- format : TBasicType TInt32+    Int32 ->                                -- format : TBasicType TInt     Ptr Word8 ->                            -- text : TCArray False (-1) 4 (TBasicType TUInt8)-    Int32 ->                                -- length : TBasicType TInt32+    Int32 ->                                -- length : TBasicType TInt     Ptr (Ptr CString) ->                    -- list : TCArray True (-1) (-1) (TBasicType TUTF8)     IO Int32 @@ -639,17 +640,17 @@   -- 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}]+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "key_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "gdk_test_simulate_key" gdk_test_simulate_key ::      Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Word32 ->                               -- keyval : TBasicType TUInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt+    Word32 ->                               -- keyval : TBasicType TUInt     CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"     CUInt ->                                -- key_pressrelease : TInterface "Gdk" "EventType"     IO CInt@@ -675,17 +676,17 @@   -- 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}]+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "button_pressrelease", argType = TInterface "Gdk" "EventType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "gdk_test_simulate_button" gdk_test_simulate_button ::      Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32-    Word32 ->                               -- button : TBasicType TUInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt+    Word32 ->                               -- button : TBasicType TUInt     CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"     CUInt ->                                -- button_pressrelease : TInterface "Gdk" "EventType"     IO CInt@@ -713,7 +714,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -736,7 +737,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -765,7 +766,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -793,7 +794,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -815,7 +816,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -836,14 +837,14 @@   -- 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}]+-- Args : [Arg {argCName = "msec", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_set_double_click_time" gdk_set_double_click_time :: -    Word32 ->                               -- msec : TBasicType TUInt32+    Word32 ->                               -- msec : TBasicType TUInt     IO ()  @@ -859,7 +860,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -882,7 +883,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -903,15 +904,15 @@     -> Atom                                 -- selection     -> Atom                                 -- target     -> Atom                                 -- property-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-selectionSendNotifyForDisplay display requestor selection target property time = liftIO $ do+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+    gdk_selection_send_notify_for_display display' requestor' selection' target' property' time_     touchManagedPtr display     touchManagedPtr requestor     touchManagedPtr selection@@ -923,7 +924,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -942,14 +943,14 @@     -> Atom                                 -- selection     -> Atom                                 -- target     -> Atom                                 -- property-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-selectionSendNotify requestor selection target property time = liftIO $ do+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+    gdk_selection_send_notify requestor' selection' target' property' time_     touchManagedPtr requestor     touchManagedPtr selection     touchManagedPtr target@@ -960,7 +961,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -978,10 +979,10 @@     a                                       -- display     -> Maybe (b)                            -- owner     -> Atom                                 -- selection-    -> Word32                               -- time+    -> Word32                               -- time_     -> Bool                                 -- sendEvent     -> m Bool                               -- result-selectionOwnerSetForDisplay display owner selection time sendEvent = liftIO $ do+selectionOwnerSetForDisplay display owner selection time_ sendEvent = liftIO $ do     let display' = unsafeManagedPtrCastPtr display     maybeOwner <- case owner of         Nothing -> return nullPtr@@ -990,7 +991,7 @@             return jOwner'     let selection' = unsafeManagedPtrGetPtr selection     let sendEvent' = (fromIntegral . fromEnum) sendEvent-    result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time sendEvent'+    result <- gdk_selection_owner_set_for_display display' maybeOwner selection' time_ sendEvent'     let result' = (/= 0) result     touchManagedPtr display     whenJust owner touchManagedPtr@@ -1001,7 +1002,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1017,10 +1018,10 @@     (MonadIO m, WindowK a) =>     Maybe (a)                               -- owner     -> Atom                                 -- selection-    -> Word32                               -- time+    -> Word32                               -- time_     -> Bool                                 -- sendEvent     -> m Bool                               -- result-selectionOwnerSet owner selection time sendEvent = liftIO $ do+selectionOwnerSet owner selection time_ sendEvent = liftIO $ do     maybeOwner <- case owner of         Nothing -> return nullPtr         Just jOwner -> do@@ -1028,7 +1029,7 @@             return jOwner'     let selection' = unsafeManagedPtrGetPtr selection     let sendEvent' = (fromIntegral . fromEnum) sendEvent-    result <- gdk_selection_owner_set maybeOwner selection' time sendEvent'+    result <- gdk_selection_owner_set maybeOwner selection' time_ sendEvent'     let result' = (/= 0) result     whenJust owner touchManagedPtr     touchManagedPtr selection@@ -1038,7 +1039,7 @@ -- 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"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1052,22 +1053,23 @@     (MonadIO m, DisplayK a) =>     a                                       -- display     -> Atom                                 -- selection-    -> m Window                             -- result+    -> m (Maybe Window)                     -- result selectionOwnerGetForDisplay display selection = liftIO $ do     let display' = unsafeManagedPtrCastPtr display     let selection' = unsafeManagedPtrGetPtr selection     result <- gdk_selection_owner_get_for_display display' selection'-    checkUnexpectedReturnNULL "gdk_selection_owner_get_for_display" result-    result' <- (newObject Window) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Window) result'+        return result''     touchManagedPtr display     touchManagedPtr selection-    return result'+    return maybeResult   -- function gdk_selection_owner_get -- Args : [Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1079,20 +1081,21 @@ selectionOwnerGet ::     (MonadIO m) =>     Atom                                    -- selection-    -> m Window                             -- result+    -> m (Maybe 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Window) result'+        return result''     touchManagedPtr selection-    return result'+    return maybeResult   -- function gdk_selection_convert -- Args : [Arg {argCName = "requestor", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "target", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1109,13 +1112,13 @@     a                                       -- requestor     -> Atom                                 -- selection     -> Atom                                 -- target-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-selectionConvert requestor selection target time = liftIO $ do+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+    gdk_selection_convert requestor' selection' target' time_     touchManagedPtr requestor     touchManagedPtr selection     touchManagedPtr target@@ -1123,15 +1126,15 @@   -- 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+-- Args : [Arg {argCName = "visual_types", argType = TCArray False (-1) 1 (TInterface "Gdk" "VisualType"), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_query_visual_types" gdk_query_visual_types ::      Ptr (Ptr CUInt) ->                      -- visual_types : TCArray False (-1) 1 (TInterface "Gdk" "VisualType")-    Ptr Int32 ->                            -- count : TBasicType TInt32+    Ptr Int32 ->                            -- count : TBasicType TInt     IO ()  @@ -1152,15 +1155,15 @@   -- 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+-- Args : [Arg {argCName = "depths", argType = TCArray False (-1) 1 (TBasicType TInt), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "count", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_query_depths" gdk_query_depths :: -    Ptr (Ptr Int32) ->                      -- depths : TCArray False (-1) 1 (TBasicType TInt32)-    Ptr Int32 ->                            -- count : TBasicType TInt32+    Ptr (Ptr Int32) ->                      -- depths : TCArray False (-1) 1 (TBasicType TInt)+    Ptr Int32 ->                            -- count : TBasicType TInt     IO ()  @@ -1180,9 +1183,9 @@   -- 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+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "property", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "offset", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "length", argType = TBasicType TULong, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pdelete", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "actual_property_type", argType = TInterface "Gdk" "Atom", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = True, transfer = TransferNothing},Arg {argCName = "actual_format", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "actual_length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "data", argType = TCArray False (-1) 8 (TBasicType TUInt8), direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "actual_length", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1190,12 +1193,12 @@     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+    CULong ->                               -- offset : TBasicType TULong+    CULong ->                               -- length : TBasicType TULong+    Int32 ->                                -- pdelete : TBasicType TInt     Ptr (Ptr Atom) ->                       -- actual_property_type : TInterface "Gdk" "Atom"-    Ptr Int32 ->                            -- actual_format : TBasicType TInt32-    Ptr Int32 ->                            -- actual_length : TBasicType TInt32+    Ptr Int32 ->                            -- actual_format : TBasicType TInt+    Ptr Int32 ->                            -- actual_length : TBasicType TInt     Ptr (Ptr Word8) ->                      -- data : TCArray False (-1) 8 (TBasicType TUInt8)     IO CInt @@ -1205,8 +1208,8 @@     a                                       -- window     -> Atom                                 -- property     -> Atom                                 -- type_-    -> Word64                               -- offset-    -> Word64                               -- length_+    -> CULong                               -- offset+    -> CULong                               -- length_     -> Int32                                -- pdelete     -> m (Bool,Atom,Int32,ByteString)       -- result propertyGet window property type_ offset length_ pdelete = liftIO $ do@@ -1240,7 +1243,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1267,7 +1270,7 @@ -- function gdk_pre_parse_libgtk_only -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1286,7 +1289,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1297,17 +1300,17 @@ {-# DEPRECATED pointerUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()","            instead."]#-} pointerUngrab ::     (MonadIO m) =>-    Word32                                  -- time+    Word32                                  -- time_     -> m ()                                 -- result-pointerUngrab time = liftIO $ do-    gdk_pointer_ungrab time+pointerUngrab time_ = liftIO $ do+    gdk_pointer_ungrab time_     return ()   -- function gdk_pointer_is_grabbed -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1327,7 +1330,7 @@ -- 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"+-- returnType : Just (TInterface "Gdk" "GrabStatus") -- throws : False -- Skip return : False @@ -1348,9 +1351,9 @@     -> [EventMask]                          -- eventMask     -> Maybe (b)                            -- confineTo     -> Maybe (c)                            -- cursor-    -> Word32                               -- time+    -> Word32                               -- time_     -> m GrabStatus                         -- result-pointerGrab window ownerEvents eventMask confineTo cursor time = liftIO $ do+pointerGrab window ownerEvents eventMask confineTo cursor time_ = liftIO $ do     let window' = unsafeManagedPtrCastPtr window     let ownerEvents' = (fromIntegral . fromEnum) ownerEvents     let eventMask' = gflagsToWord eventMask@@ -1364,7 +1367,7 @@         Just jCursor -> do             let jCursor' = unsafeManagedPtrCastPtr jCursor             return jCursor'-    result <- gdk_pointer_grab window' ownerEvents' eventMask' maybeConfineTo maybeCursor time+    result <- gdk_pointer_grab window' ownerEvents' eventMask' maybeConfineTo maybeCursor time_     let result' = (toEnum . fromIntegral) result     touchManagedPtr window     whenJust confineTo touchManagedPtr@@ -1373,18 +1376,18 @@   -- 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}]+-- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False  foreign import ccall "gdk_pixbuf_get_from_window" gdk_pixbuf_get_from_window ::      Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- src_x : TBasicType TInt32-    Int32 ->                                -- src_y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32+    Int32 ->                                -- src_x : TBasicType TInt+    Int32 ->                                -- src_y : TBasicType TInt+    Int32 ->                                -- width : TBasicType TInt+    Int32 ->                                -- height : TBasicType TInt     IO (Ptr GdkPixbuf.Pixbuf)  @@ -1395,29 +1398,30 @@     -> Int32                                -- srcY     -> Int32                                -- width     -> Int32                                -- height-    -> m GdkPixbuf.Pixbuf                   -- result+    -> m (Maybe GdkPixbuf.Pixbuf)           -- result pixbufGetFromWindow window srcX srcY width height = liftIO $ do     let window' = unsafeManagedPtrCastPtr window     result <- gdk_pixbuf_get_from_window window' srcX srcY width height-    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_window" result-    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject GdkPixbuf.Pixbuf) result'+        return result''     touchManagedPtr window-    return result'+    return maybeResult   -- function gdk_pixbuf_get_from_surface--- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType 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}]+-- Args : [Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "src_y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False  foreign import ccall "gdk_pixbuf_get_from_surface" gdk_pixbuf_get_from_surface ::      Ptr Cairo.Surface ->                    -- surface : TInterface "cairo" "Surface"-    Int32 ->                                -- src_x : TBasicType TInt32-    Int32 ->                                -- src_y : TBasicType TInt32-    Int32 ->                                -- width : TBasicType TInt32-    Int32 ->                                -- height : TBasicType TInt32+    Int32 ->                                -- src_x : TBasicType TInt+    Int32 ->                                -- src_y : TBasicType TInt+    Int32 ->                                -- width : TBasicType TInt+    Int32 ->                                -- height : TBasicType TInt     IO (Ptr GdkPixbuf.Pixbuf)  @@ -1428,25 +1432,26 @@     -> Int32                                -- srcY     -> Int32                                -- width     -> Int32                                -- height-    -> m GdkPixbuf.Pixbuf                   -- result+    -> m (Maybe GdkPixbuf.Pixbuf)           -- result pixbufGetFromSurface surface srcX srcY width height = liftIO $ do     let surface' = unsafeManagedPtrGetPtr surface     result <- gdk_pixbuf_get_from_surface surface' srcX srcY width height-    checkUnexpectedReturnNULL "gdk_pixbuf_get_from_surface" result-    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject GdkPixbuf.Pixbuf) result'+        return result''     touchManagedPtr surface-    return result'+    return maybeResult   -- 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+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_parse_args" gdk_parse_args :: -    Ptr Int32 ->                            -- argc : TBasicType TInt32+    Ptr Int32 ->                            -- argc : TBasicType TInt     Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)     IO () @@ -1476,7 +1481,7 @@ -- 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"+-- returnType : Just (TInterface "Pango" "Context") -- throws : False -- Skip return : False @@ -1501,7 +1506,7 @@ -- function gdk_pango_context_get -- Args : [] -- Lengths : []--- returnType : TInterface "Pango" "Context"+-- returnType : Just (TInterface "Pango" "Context") -- throws : False -- Skip return : False @@ -1522,7 +1527,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1549,7 +1554,7 @@ -- 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"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False @@ -1561,20 +1566,21 @@ offscreenWindowGetSurface ::     (MonadIO m, WindowK a) =>     a                                       -- window-    -> m Cairo.Surface                      -- result+    -> m (Maybe 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newBoxed Cairo.Surface) result'+        return result''     touchManagedPtr window-    return result'+    return maybeResult   -- function gdk_offscreen_window_get_embedder -- Args : [Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1586,20 +1592,21 @@ offscreenWindowGetEmbedder ::     (MonadIO m, WindowK a) =>     a                                       -- window-    -> m Window                             -- result+    -> m (Maybe 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+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Window) result'+        return result''     touchManagedPtr window-    return result'+    return maybeResult   -- function gdk_notify_startup_complete_with_id -- Args : [Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1622,7 +1629,7 @@ -- function gdk_notify_startup_complete -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1641,7 +1648,7 @@ -- function gdk_list_visuals -- Args : [] -- Lengths : []--- returnType : TGList (TInterface "Gdk" "Visual")+-- returnType : Just (TGList (TInterface "Gdk" "Visual")) -- throws : False -- Skip return : False @@ -1654,7 +1661,6 @@     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@@ -1662,14 +1668,14 @@   -- 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}]+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False  foreign import ccall "gdk_keyval_to_upper" gdk_keyval_to_upper :: -    Word32 ->                               -- keyval : TBasicType TUInt32+    Word32 ->                               -- keyval : TBasicType TUInt     IO Word32  @@ -1683,14 +1689,14 @@   -- 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}]+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt32) -- throws : False -- Skip return : False  foreign import ccall "gdk_keyval_to_unicode" gdk_keyval_to_unicode :: -    Word32 ->                               -- keyval : TBasicType TUInt32+    Word32 ->                               -- keyval : TBasicType TUInt     IO Word32  @@ -1704,14 +1710,14 @@   -- 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}]+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False  foreign import ccall "gdk_keyval_to_lower" gdk_keyval_to_lower :: -    Word32 ->                               -- keyval : TBasicType TUInt32+    Word32 ->                               -- keyval : TBasicType TUInt     IO Word32  @@ -1725,37 +1731,38 @@   -- 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}]+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False  foreign import ccall "gdk_keyval_name" gdk_keyval_name :: -    Word32 ->                               -- keyval : TBasicType TUInt32+    Word32 ->                               -- keyval : TBasicType TUInt     IO CString   keyvalName ::     (MonadIO m) =>     Word32                                  -- keyval-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result keyvalName keyval = liftIO $ do     result <- gdk_keyval_name keyval-    checkUnexpectedReturnNULL "gdk_keyval_name" result-    result' <- cstringToText result-    return result'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    return maybeResult   -- 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}]+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "gdk_keyval_is_upper" gdk_keyval_is_upper :: -    Word32 ->                               -- keyval : TBasicType TUInt32+    Word32 ->                               -- keyval : TBasicType TUInt     IO CInt  @@ -1770,14 +1777,14 @@   -- 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}]+-- Args : [Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "gdk_keyval_is_lower" gdk_keyval_is_lower :: -    Word32 ->                               -- keyval : TBasicType TUInt32+    Word32 ->                               -- keyval : TBasicType TUInt     IO CInt  @@ -1794,7 +1801,7 @@ -- 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+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -1815,16 +1822,16 @@   -- 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}]+-- Args : [Arg {argCName = "symbol", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "lower", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "upper", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- 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+    Word32 ->                               -- symbol : TBasicType TUInt+    Ptr Word32 ->                           -- lower : TBasicType TUInt+    Ptr Word32 ->                           -- upper : TBasicType TUInt     IO ()  @@ -1846,7 +1853,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1857,17 +1864,17 @@ {-# DEPRECATED keyboardUngrab ["(Since version 3.0)","Use gdk_device_ungrab(), together with gdk_device_grab()","            instead."]#-} keyboardUngrab ::     (MonadIO m) =>-    Word32                                  -- time+    Word32                                  -- time_     -> m ()                                 -- result-keyboardUngrab time = liftIO $ do-    gdk_keyboard_ungrab time+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"+-- returnType : Just (TInterface "Gdk" "GrabStatus") -- throws : False -- Skip return : False @@ -1882,26 +1889,26 @@     (MonadIO m, WindowK a) =>     a                                       -- window     -> Bool                                 -- ownerEvents-    -> Word32                               -- time+    -> Word32                               -- time_     -> m GrabStatus                         -- result-keyboardGrab window ownerEvents time = liftIO $ do+keyboardGrab window ownerEvents time_ = liftIO $ do     let window' = unsafeManagedPtrCastPtr window     let ownerEvents' = (fromIntegral . fromEnum) ownerEvents-    result <- gdk_keyboard_grab window' ownerEvents' time+    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+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "gdk_init_check" gdk_init_check :: -    Ptr Int32 ->                            -- argc : TBasicType TInt32+    Ptr Int32 ->                            -- argc : TBasicType TInt     Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)     IO CInt @@ -1930,14 +1937,14 @@   -- 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+-- Args : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "argv", argType = TCArray False (-1) 0 (TBasicType TUTF8), direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Lengths : [Arg {argCName = "argc", argType = TBasicType TInt, direction = DirectionInout, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_init" gdk_init :: -    Ptr Int32 ->                            -- argc : TBasicType TInt32+    Ptr Int32 ->                            -- argc : TBasicType TInt     Ptr (Ptr CString) ->                    -- argv : TCArray False (-1) 0 (TBasicType TUTF8)     IO () @@ -1967,7 +1974,7 @@ -- function gdk_get_show_events -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1987,7 +1994,7 @@ -- function gdk_get_program_class -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2008,7 +2015,7 @@ -- function gdk_get_display_arg_name -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2018,18 +2025,19 @@  getDisplayArgName ::     (MonadIO m) =>-    m T.Text                                -- result+    m (Maybe T.Text)                        -- result getDisplayArgName  = liftIO $ do     result <- gdk_get_display_arg_name-    checkUnexpectedReturnNULL "gdk_get_display_arg_name" result-    result' <- cstringToText result-    return result'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''+    return maybeResult   -- function gdk_get_display -- Args : [] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -2051,7 +2059,7 @@ -- function gdk_get_default_root_window -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -2072,7 +2080,7 @@ -- function gdk_flush -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2091,7 +2099,7 @@ -- function gdk_events_pending -- Args : [] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2111,7 +2119,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2144,7 +2152,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2182,7 +2190,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2215,7 +2223,7 @@ -- function gdk_error_trap_push -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2234,7 +2242,7 @@ -- function gdk_error_trap_pop_ignored -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2253,7 +2261,7 @@ -- function gdk_error_trap_pop -- Args : [] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -2272,7 +2280,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2287,12 +2295,12 @@     (MonadIO m, DragContextK a) =>     a                                       -- context     -> Bool                                 -- accepted-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-dropReply context accepted time = liftIO $ do+dropReply context accepted time_ = liftIO $ do     let context' = unsafeManagedPtrCastPtr context     let accepted' = (fromIntegral . fromEnum) accepted-    gdk_drop_reply context' accepted' time+    gdk_drop_reply context' accepted' time_     touchManagedPtr context     return () @@ -2300,7 +2308,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2315,12 +2323,12 @@     (MonadIO m, DragContextK a) =>     a                                       -- context     -> Bool                                 -- success-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-dropFinish context success time = liftIO $ do+dropFinish context success time_ = liftIO $ do     let context' = unsafeManagedPtrCastPtr context     let success' = (fromIntegral . fromEnum) success-    gdk_drop_finish context' success' time+    gdk_drop_finish context' success' time_     touchManagedPtr context     return () @@ -2328,7 +2336,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2343,20 +2351,20 @@     (MonadIO m, DragContextK a) =>     a                                       -- context     -> [DragAction]                         -- action-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-dragStatus context action time = liftIO $ do+dragStatus context action time_ = liftIO $ do     let context' = unsafeManagedPtrCastPtr context     let action' = gflagsToWord action-    gdk_drag_status context' action' time+    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}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "suggested_action", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "possible_actions", argType = TInterface "Gdk" "DragAction", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2364,8 +2372,8 @@     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+    Int32 ->                                -- x_root : TBasicType TInt+    Int32 ->                                -- y_root : TBasicType TInt     CUInt ->                                -- suggested_action : TInterface "Gdk" "DragAction"     CUInt ->                                -- possible_actions : TInterface "Gdk" "DragAction"     Word32 ->                               -- time_ : TBasicType TUInt32@@ -2381,15 +2389,15 @@     -> Int32                                -- yRoot     -> [DragAction]                         -- suggestedAction     -> [DragAction]                         -- possibleActions-    -> Word32                               -- time+    -> Word32                               -- time_     -> m Bool                               -- result-dragMotion context destWindow protocol xRoot yRoot suggestedAction possibleActions time = liftIO $ do+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+    result <- gdk_drag_motion context' destWindow' protocol' xRoot yRoot suggestedAction' possibleActions' time_     let result' = (/= 0) result     touchManagedPtr context     touchManagedPtr destWindow@@ -2399,7 +2407,7 @@ -- 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"+-- returnType : Just (TInterface "Gdk" "Atom") -- throws : False -- Skip return : False @@ -2423,9 +2431,9 @@   -- 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}]+-- Args : [Arg {argCName = "context", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "drag_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y_root", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "dest_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "protocol", argType = TInterface "Gdk" "DragProtocol", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2433,8 +2441,8 @@     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+    Int32 ->                                -- x_root : TBasicType TInt+    Int32 ->                                -- y_root : TBasicType TInt     Ptr (Ptr Window) ->                     -- dest_window : TInterface "Gdk" "Window"     Ptr CUInt ->                            -- protocol : TInterface "Gdk" "DragProtocol"     IO ()@@ -2470,7 +2478,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2494,7 +2502,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2507,11 +2515,11 @@ dragDrop ::     (MonadIO m, DragContextK a) =>     a                                       -- context-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-dragDrop context time = liftIO $ do+dragDrop context time_ = liftIO $ do     let context' = unsafeManagedPtrCastPtr context-    gdk_drag_drop context' time+    gdk_drag_drop context' time_     touchManagedPtr context     return () @@ -2519,7 +2527,7 @@ -- 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"+-- returnType : Just (TInterface "Gdk" "DragContext") -- throws : False -- Skip return : False @@ -2554,7 +2562,7 @@ -- 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"+-- returnType : Just (TInterface "Gdk" "DragContext") -- throws : False -- Skip return : False @@ -2585,7 +2593,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2598,11 +2606,11 @@ dragAbort ::     (MonadIO m, DragContextK a) =>     a                                       -- context-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-dragAbort context time = liftIO $ do+dragAbort context time_ = liftIO $ do     let context' = unsafeManagedPtrCastPtr context-    gdk_drag_abort context' time+    gdk_drag_abort context' time_     touchManagedPtr context     return () @@ -2610,7 +2618,7 @@ -- function gdk_disable_multidevice -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2627,15 +2635,15 @@   -- 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}]+-- Args : [Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "for_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False  foreign import ccall "gdk_cairo_surface_create_from_pixbuf" gdk_cairo_surface_create_from_pixbuf ::      Ptr GdkPixbuf.Pixbuf ->                 -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"-    Int32 ->                                -- scale : TBasicType TInt32+    Int32 ->                                -- scale : TBasicType TInt     Ptr Window ->                           -- for_window : TInterface "Gdk" "Window"     IO (Ptr Cairo.Surface) @@ -2664,7 +2672,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2697,7 +2705,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2724,7 +2732,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2757,7 +2765,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2784,7 +2792,7 @@ -- 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"+-- returnType : Just (TInterface "cairo" "Region") -- throws : False -- Skip return : False @@ -2809,7 +2817,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2836,7 +2844,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2863,7 +2871,7 @@ -- 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+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -2888,22 +2896,22 @@   -- 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}]+-- Args : [Arg {argCName = "cr", argType = TInterface "cairo" "Context", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "source_type", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "buffer_scale", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "height", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_cairo_draw_from_gl" gdk_cairo_draw_from_gl ::      Ptr Cairo.Context ->                    -- cr : TInterface "cairo" "Context"     Ptr Window ->                           -- window : TInterface "Gdk" "Window"-    Int32 ->                                -- source : TBasicType 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+    Int32 ->                                -- source : TBasicType TInt+    Int32 ->                                -- source_type : TBasicType TInt+    Int32 ->                                -- buffer_scale : TBasicType TInt+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt+    Int32 ->                                -- width : TBasicType TInt+    Int32 ->                                -- height : TBasicType TInt     IO ()  @@ -2931,7 +2939,7 @@ -- 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"+-- returnType : Just (TInterface "cairo" "Context") -- throws : False -- Skip return : False @@ -2956,7 +2964,7 @@ -- function gdk_beep -- Args : [] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -2975,7 +2983,7 @@ -- 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+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -38,9 +38,9 @@ import GI.Gdk.Objects.Visual import GI.Gdk.Objects.Window -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -56,6 +56,7 @@  -- * Properties -- ** Display     AppLaunchContextDisplayPropertyInfo     ,+    appLaunchContextDisplay                 ,     constructAppLaunchContextDisplay        ,     getAppLaunchContextDisplay              , @@ -64,9 +65,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -145,27 +146,32 @@ -- VVV Prop "display"    -- Type: TInterface "Gdk" "Display"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Just False) -getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m Display+getAppLaunchContextDisplay :: (MonadIO m, AppLaunchContextK o) => o -> m (Maybe Display) getAppLaunchContextDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display  constructAppLaunchContextDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" val+constructAppLaunchContextDisplay val = constructObjectPropertyObject "display" (Just val)  data AppLaunchContextDisplayPropertyInfo instance AttrInfo AppLaunchContextDisplayPropertyInfo where     type AttrAllowedOps AppLaunchContextDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]     type AttrSetTypeConstraint AppLaunchContextDisplayPropertyInfo = DisplayK     type AttrBaseTypeConstraint AppLaunchContextDisplayPropertyInfo = AppLaunchContextK-    type AttrGetType AppLaunchContextDisplayPropertyInfo = Display+    type AttrGetType AppLaunchContextDisplayPropertyInfo = (Maybe Display)     type AttrLabel AppLaunchContextDisplayPropertyInfo = "display"     attrGet _ = getAppLaunchContextDisplay     attrSet _ = undefined     attrConstruct _ = constructAppLaunchContextDisplay+    attrClear _ = undefined  type instance AttributeList AppLaunchContext = AppLaunchContextAttributeList type AppLaunchContextAttributeList = ('[ '("display", AppLaunchContextDisplayPropertyInfo)] :: [(Symbol, *)]) +appLaunchContextDisplay :: AttrLabelProxy "display"+appLaunchContextDisplay = AttrLabelProxy+ type instance SignalList AppLaunchContext = AppLaunchContextSignalList type AppLaunchContextSignalList = ('[ '("launchFailed", Gio.AppLaunchContextLaunchFailedSignalInfo), '("launched", Gio.AppLaunchContextLaunchedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -173,7 +179,7 @@ -- method type : Constructor -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "AppLaunchContext"+-- returnType : Just (TInterface "Gdk" "AppLaunchContext") -- throws : False -- Skip return : False @@ -192,15 +198,15 @@  -- method AppLaunchContext::set_desktop -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "desktop", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_app_launch_context_set_desktop" gdk_app_launch_context_set_desktop ::      Ptr AppLaunchContext ->                 -- _obj : TInterface "Gdk" "AppLaunchContext"-    Int32 ->                                -- desktop : TBasicType TInt32+    Int32 ->                                -- desktop : TBasicType TInt     IO ()  @@ -223,7 +229,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -254,7 +260,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -289,7 +295,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "icon_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -324,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -355,7 +361,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "AppLaunchContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "timestamp", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Gdk.Objects.AppLaunchContext where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -73,12 +73,14 @@ -- ** CursorType     CursorCursorTypePropertyInfo            ,     constructCursorCursorType               ,+    cursorCursorType                        ,     getCursorCursorType                     ,   -- ** Display     CursorDisplayPropertyInfo               ,     constructCursorDisplay                  ,+    cursorDisplay                           ,     getCursorDisplay                        ,  @@ -86,9 +88,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -158,6 +160,7 @@ -- VVV Prop "cursor-type"    -- Type: TInterface "Gdk" "CursorType"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getCursorCursorType :: (MonadIO m, CursorK o) => o -> m CursorType getCursorCursorType obj = liftIO $ getObjectPropertyEnum obj "cursor-type"@@ -175,20 +178,22 @@     attrGet _ = getCursorCursorType     attrSet _ = undefined     attrConstruct _ = constructCursorCursorType+    attrClear _ = undefined  -- VVV Prop "display"    -- Type: TInterface "Gdk" "Display"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getCursorDisplay :: (MonadIO m, CursorK o) => o -> m Display-getCursorDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display+getCursorDisplay obj = liftIO $ checkUnexpectedNothing "getCursorDisplay" $ getObjectPropertyObject obj "display" Display  constructCursorDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructCursorDisplay val = constructObjectPropertyObject "display" val+constructCursorDisplay val = constructObjectPropertyObject "display" (Just val)  data CursorDisplayPropertyInfo instance AttrInfo CursorDisplayPropertyInfo where-    type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps CursorDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint CursorDisplayPropertyInfo = DisplayK     type AttrBaseTypeConstraint CursorDisplayPropertyInfo = CursorK     type AttrGetType CursorDisplayPropertyInfo = Display@@ -196,10 +201,17 @@     attrGet _ = getCursorDisplay     attrSet _ = undefined     attrConstruct _ = constructCursorDisplay+    attrClear _ = undefined  type instance AttributeList Cursor = CursorAttributeList type CursorAttributeList = ('[ '("cursorType", CursorCursorTypePropertyInfo), '("display", CursorDisplayPropertyInfo)] :: [(Symbol, *)]) +cursorCursorType :: AttrLabelProxy "cursorType"+cursorCursorType = AttrLabelProxy++cursorDisplay :: AttrLabelProxy "display"+cursorDisplay = AttrLabelProxy+ type instance SignalList Cursor = CursorSignalList type CursorSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo)] :: [(Symbol, *)]) @@ -207,7 +219,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Cursor"+-- returnType : Just (TInterface "Gdk" "Cursor") -- throws : False -- Skip return : False @@ -231,7 +243,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor_type", argType = TInterface "Gdk" "CursorType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Cursor"+-- returnType : Just (TInterface "Gdk" "Cursor") -- throws : False -- Skip return : False @@ -259,7 +271,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Cursor"+-- returnType : Just (TInterface "Gdk" "Cursor") -- throws : False -- Skip return : False @@ -273,30 +285,31 @@     (MonadIO m, DisplayK a) =>     a                                       -- display     -> T.Text                               -- name-    -> m Cursor                             -- result+    -> m (Maybe Cursor)                     -- result cursorNewFromName display name = liftIO $ do     let display' = unsafeManagedPtrCastPtr display     name' <- textToCString name     result <- gdk_cursor_new_from_name display' name'-    checkUnexpectedReturnNULL "gdk_cursor_new_from_name" result-    result' <- (wrapObject Cursor) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject Cursor) result'+        return result''     touchManagedPtr display     freeMem name'-    return result'+    return maybeResult  -- method Cursor::new_from_pixbuf -- method type : Constructor--- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType 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}]+-- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "pixbuf", argType = TInterface "GdkPixbuf" "Pixbuf", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Cursor"+-- returnType : Just (TInterface "Gdk" "Cursor") -- throws : False -- Skip return : False  foreign import ccall "gdk_cursor_new_from_pixbuf" gdk_cursor_new_from_pixbuf ::      Ptr Display ->                          -- display : TInterface "Gdk" "Display"     Ptr GdkPixbuf.Pixbuf ->                 -- pixbuf : TInterface "GdkPixbuf" "Pixbuf"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt     IO (Ptr Cursor)  @@ -321,7 +334,7 @@ -- method type : Constructor -- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "surface", argType = TInterface "cairo" "Surface", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Cursor"+-- returnType : Just (TInterface "Gdk" "Cursor") -- throws : False -- Skip return : False @@ -356,7 +369,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "CursorType"+-- returnType : Just (TInterface "Gdk" "CursorType") -- throws : False -- Skip return : False @@ -384,7 +397,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -413,7 +426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "GdkPixbuf" "Pixbuf"+-- returnType : Just (TInterface "GdkPixbuf" "Pixbuf") -- throws : False -- Skip return : False @@ -425,24 +438,25 @@ cursorGetImage ::     (MonadIO m, CursorK a) =>     a                                       -- _obj-    -> m GdkPixbuf.Pixbuf                   -- result+    -> m (Maybe GdkPixbuf.Pixbuf)           -- result cursorGetImage _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_cursor_get_image _obj'-    checkUnexpectedReturnNULL "gdk_cursor_get_image" result-    result' <- (wrapObject GdkPixbuf.Pixbuf) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapObject GdkPixbuf.Pixbuf) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data CursorGetImageMethodInfo-instance (signature ~ (m GdkPixbuf.Pixbuf), MonadIO m, CursorK a) => MethodInfo CursorGetImageMethodInfo a signature where+instance (signature ~ (m (Maybe GdkPixbuf.Pixbuf)), MonadIO m, CursorK a) => MethodInfo CursorGetImageMethodInfo a signature where     overloadedMethod _ = cursorGetImage  -- method Cursor::get_surface -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y_hot", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "cairo" "Surface"+-- returnType : Just (TInterface "cairo" "Surface") -- throws : False -- Skip return : False @@ -456,14 +470,15 @@ cursorGetSurface ::     (MonadIO m, CursorK a) =>     a                                       -- _obj-    -> m (Cairo.Surface,Double,Double)      -- result+    -> m ((Maybe Cairo.Surface),Double,Double)-- result cursorGetSurface _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     xHot <- allocMem :: IO (Ptr CDouble)     yHot <- allocMem :: IO (Ptr CDouble)     result <- gdk_cursor_get_surface _obj' xHot yHot-    checkUnexpectedReturnNULL "gdk_cursor_get_surface" result-    result' <- (wrapBoxed Cairo.Surface) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapBoxed Cairo.Surface) result'+        return result''     xHot' <- peek xHot     let xHot'' = realToFrac xHot'     yHot' <- peek yHot@@ -471,17 +486,17 @@     touchManagedPtr _obj     freeMem xHot     freeMem yHot-    return (result', xHot'', yHot'')+    return (maybeResult, xHot'', yHot'')  data CursorGetSurfaceMethodInfo-instance (signature ~ (m (Cairo.Surface,Double,Double)), MonadIO m, CursorK a) => MethodInfo CursorGetSurfaceMethodInfo a signature where+instance (signature ~ (m ((Maybe Cairo.Surface),Double,Double)), MonadIO m, CursorK a) => MethodInfo CursorGetSurfaceMethodInfo a signature where     overloadedMethod _ = cursorGetSurface  -- method Cursor::ref -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Cursor"+-- returnType : Just (TInterface "Gdk" "Cursor") -- throws : False -- Skip return : False @@ -510,7 +525,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Gdk.Objects.Cursor where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -156,30 +156,35 @@  -- * Properties -- ** AssociatedDevice     DeviceAssociatedDevicePropertyInfo      ,+    deviceAssociatedDevice                  ,     getDeviceAssociatedDevice               ,   -- ** DeviceManager     DeviceDeviceManagerPropertyInfo         ,     constructDeviceDeviceManager            ,+    deviceDeviceManager                     ,     getDeviceDeviceManager                  ,   -- ** Display     DeviceDisplayPropertyInfo               ,     constructDeviceDisplay                  ,+    deviceDisplay                           ,     getDeviceDisplay                        ,   -- ** HasCursor     DeviceHasCursorPropertyInfo             ,     constructDeviceHasCursor                ,+    deviceHasCursor                         ,     getDeviceHasCursor                      ,   -- ** InputMode     DeviceInputModePropertyInfo             ,     constructDeviceInputMode                ,+    deviceInputMode                         ,     getDeviceInputMode                      ,     setDeviceInputMode                      , @@ -187,35 +192,41 @@ -- ** InputSource     DeviceInputSourcePropertyInfo           ,     constructDeviceInputSource              ,+    deviceInputSource                       ,     getDeviceInputSource                    ,   -- ** NAxes     DeviceNAxesPropertyInfo                 ,+    deviceNAxes                             ,     getDeviceNAxes                          ,   -- ** Name     DeviceNamePropertyInfo                  ,     constructDeviceName                     ,+    deviceName                              ,     getDeviceName                           ,   -- ** ProductId     DeviceProductIdPropertyInfo             ,     constructDeviceProductId                ,+    deviceProductId                         ,     getDeviceProductId                      ,   -- ** Type     DeviceTypePropertyInfo                  ,     constructDeviceType                     ,+    deviceType                              ,     getDeviceType                           ,   -- ** VendorId     DeviceVendorIdPropertyInfo              ,     constructDeviceVendorId                 ,+    deviceVendorId                          ,     getDeviceVendorId                       ,  @@ -238,9 +249,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -370,55 +381,60 @@ -- VVV Prop "associated-device"    -- Type: TInterface "Gdk" "Device"    -- Flags: [PropertyReadable]+   -- Nullable: (Just True,Nothing) -getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m Device+getDeviceAssociatedDevice :: (MonadIO m, DeviceK o) => o -> m (Maybe Device) getDeviceAssociatedDevice obj = liftIO $ getObjectPropertyObject obj "associated-device" Device  data DeviceAssociatedDevicePropertyInfo instance AttrInfo DeviceAssociatedDevicePropertyInfo where-    type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet]+    type AttrAllowedOps DeviceAssociatedDevicePropertyInfo = '[ 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DeviceAssociatedDevicePropertyInfo = (~) ()     type AttrBaseTypeConstraint DeviceAssociatedDevicePropertyInfo = DeviceK-    type AttrGetType DeviceAssociatedDevicePropertyInfo = Device+    type AttrGetType DeviceAssociatedDevicePropertyInfo = (Maybe Device)     type AttrLabel DeviceAssociatedDevicePropertyInfo = "associated-device"     attrGet _ = getDeviceAssociatedDevice     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "device-manager"    -- Type: TInterface "Gdk" "DeviceManager"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing) -getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m DeviceManager+getDeviceDeviceManager :: (MonadIO m, DeviceK o) => o -> m (Maybe DeviceManager) getDeviceDeviceManager obj = liftIO $ getObjectPropertyObject obj "device-manager" DeviceManager  constructDeviceDeviceManager :: (DeviceManagerK a) => a -> IO ([Char], GValue)-constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" val+constructDeviceDeviceManager val = constructObjectPropertyObject "device-manager" (Just val)  data DeviceDeviceManagerPropertyInfo instance AttrInfo DeviceDeviceManagerPropertyInfo where-    type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps DeviceDeviceManagerPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceManagerK     type AttrBaseTypeConstraint DeviceDeviceManagerPropertyInfo = DeviceK-    type AttrGetType DeviceDeviceManagerPropertyInfo = DeviceManager+    type AttrGetType DeviceDeviceManagerPropertyInfo = (Maybe DeviceManager)     type AttrLabel DeviceDeviceManagerPropertyInfo = "device-manager"     attrGet _ = getDeviceDeviceManager     attrSet _ = undefined     attrConstruct _ = constructDeviceDeviceManager+    attrClear _ = undefined  -- VVV Prop "display"    -- Type: TInterface "Gdk" "Display"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getDeviceDisplay :: (MonadIO m, DeviceK o) => o -> m Display-getDeviceDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display+getDeviceDisplay obj = liftIO $ checkUnexpectedNothing "getDeviceDisplay" $ getObjectPropertyObject obj "display" Display  constructDeviceDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDeviceDisplay val = constructObjectPropertyObject "display" val+constructDeviceDisplay val = constructObjectPropertyObject "display" (Just val)  data DeviceDisplayPropertyInfo instance AttrInfo DeviceDisplayPropertyInfo where-    type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps DeviceDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DeviceDisplayPropertyInfo = DisplayK     type AttrBaseTypeConstraint DeviceDisplayPropertyInfo = DeviceK     type AttrGetType DeviceDisplayPropertyInfo = Display@@ -426,10 +442,12 @@     attrGet _ = getDeviceDisplay     attrSet _ = undefined     attrConstruct _ = constructDeviceDisplay+    attrClear _ = undefined  -- VVV Prop "has-cursor"    -- Type: TBasicType TBoolean    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getDeviceHasCursor :: (MonadIO m, DeviceK o) => o -> m Bool getDeviceHasCursor obj = liftIO $ getObjectPropertyBool obj "has-cursor"@@ -447,10 +465,12 @@     attrGet _ = getDeviceHasCursor     attrSet _ = undefined     attrConstruct _ = constructDeviceHasCursor+    attrClear _ = undefined  -- VVV Prop "input-mode"    -- Type: TInterface "Gdk" "InputMode"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Nothing,Nothing)  getDeviceInputMode :: (MonadIO m, DeviceK o) => o -> m InputMode getDeviceInputMode obj = liftIO $ getObjectPropertyEnum obj "input-mode"@@ -471,10 +491,12 @@     attrGet _ = getDeviceInputMode     attrSet _ = setDeviceInputMode     attrConstruct _ = constructDeviceInputMode+    attrClear _ = undefined  -- VVV Prop "input-source"    -- Type: TInterface "Gdk" "InputSource"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getDeviceInputSource :: (MonadIO m, DeviceK o) => o -> m InputSource getDeviceInputSource obj = liftIO $ getObjectPropertyEnum obj "input-source"@@ -492,13 +514,15 @@     attrGet _ = getDeviceInputSource     attrSet _ = undefined     attrConstruct _ = constructDeviceInputSource+    attrClear _ = undefined  -- VVV Prop "n-axes"-   -- Type: TBasicType TUInt32+   -- Type: TBasicType TUInt    -- Flags: [PropertyReadable]+   -- Nullable: (Nothing,Nothing)  getDeviceNAxes :: (MonadIO m, DeviceK o) => o -> m Word32-getDeviceNAxes obj = liftIO $ getObjectPropertyCUInt obj "n-axes"+getDeviceNAxes obj = liftIO $ getObjectPropertyUInt32 obj "n-axes"  data DeviceNAxesPropertyInfo instance AttrInfo DeviceNAxesPropertyInfo where@@ -510,20 +534,22 @@     attrGet _ = getDeviceNAxes     attrSet _ = undefined     attrConstruct _ = undefined+    attrClear _ = undefined  -- VVV Prop "name"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just False,Nothing)  getDeviceName :: (MonadIO m, DeviceK o) => o -> m T.Text-getDeviceName obj = liftIO $ getObjectPropertyString obj "name"+getDeviceName obj = liftIO $ checkUnexpectedNothing "getDeviceName" $ getObjectPropertyString obj "name"  constructDeviceName :: T.Text -> IO ([Char], GValue)-constructDeviceName val = constructObjectPropertyString "name" val+constructDeviceName val = constructObjectPropertyString "name" (Just val)  data DeviceNamePropertyInfo instance AttrInfo DeviceNamePropertyInfo where-    type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps DeviceNamePropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DeviceNamePropertyInfo = (~) T.Text     type AttrBaseTypeConstraint DeviceNamePropertyInfo = DeviceK     type AttrGetType DeviceNamePropertyInfo = T.Text@@ -531,31 +557,35 @@     attrGet _ = getDeviceName     attrSet _ = undefined     attrConstruct _ = constructDeviceName+    attrClear _ = undefined  -- VVV Prop "product-id"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing) -getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m T.Text+getDeviceProductId :: (MonadIO m, DeviceK o) => o -> m (Maybe T.Text) getDeviceProductId obj = liftIO $ getObjectPropertyString obj "product-id"  constructDeviceProductId :: T.Text -> IO ([Char], GValue)-constructDeviceProductId val = constructObjectPropertyString "product-id" val+constructDeviceProductId val = constructObjectPropertyString "product-id" (Just val)  data DeviceProductIdPropertyInfo instance AttrInfo DeviceProductIdPropertyInfo where-    type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps DeviceProductIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DeviceProductIdPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint DeviceProductIdPropertyInfo = DeviceK-    type AttrGetType DeviceProductIdPropertyInfo = T.Text+    type AttrGetType DeviceProductIdPropertyInfo = (Maybe T.Text)     type AttrLabel DeviceProductIdPropertyInfo = "product-id"     attrGet _ = getDeviceProductId     attrSet _ = undefined     attrConstruct _ = constructDeviceProductId+    attrClear _ = undefined  -- VVV Prop "type"    -- Type: TInterface "Gdk" "DeviceType"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Nothing,Nothing)  getDeviceType :: (MonadIO m, DeviceK o) => o -> m DeviceType getDeviceType obj = liftIO $ getObjectPropertyEnum obj "type"@@ -573,31 +603,67 @@     attrGet _ = getDeviceType     attrSet _ = undefined     attrConstruct _ = constructDeviceType+    attrClear _ = undefined  -- VVV Prop "vendor-id"    -- Type: TBasicType TUTF8    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing) -getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m T.Text+getDeviceVendorId :: (MonadIO m, DeviceK o) => o -> m (Maybe T.Text) getDeviceVendorId obj = liftIO $ getObjectPropertyString obj "vendor-id"  constructDeviceVendorId :: T.Text -> IO ([Char], GValue)-constructDeviceVendorId val = constructObjectPropertyString "vendor-id" val+constructDeviceVendorId val = constructObjectPropertyString "vendor-id" (Just val)  data DeviceVendorIdPropertyInfo instance AttrInfo DeviceVendorIdPropertyInfo where-    type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps DeviceVendorIdPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DeviceVendorIdPropertyInfo = (~) T.Text     type AttrBaseTypeConstraint DeviceVendorIdPropertyInfo = DeviceK-    type AttrGetType DeviceVendorIdPropertyInfo = T.Text+    type AttrGetType DeviceVendorIdPropertyInfo = (Maybe T.Text)     type AttrLabel DeviceVendorIdPropertyInfo = "vendor-id"     attrGet _ = getDeviceVendorId     attrSet _ = undefined     attrConstruct _ = constructDeviceVendorId+    attrClear _ = undefined  type instance AttributeList Device = DeviceAttributeList type DeviceAttributeList = ('[ '("associatedDevice", DeviceAssociatedDevicePropertyInfo), '("deviceManager", DeviceDeviceManagerPropertyInfo), '("display", DeviceDisplayPropertyInfo), '("hasCursor", DeviceHasCursorPropertyInfo), '("inputMode", DeviceInputModePropertyInfo), '("inputSource", DeviceInputSourcePropertyInfo), '("nAxes", DeviceNAxesPropertyInfo), '("name", DeviceNamePropertyInfo), '("productId", DeviceProductIdPropertyInfo), '("type", DeviceTypePropertyInfo), '("vendorId", DeviceVendorIdPropertyInfo)] :: [(Symbol, *)]) +deviceAssociatedDevice :: AttrLabelProxy "associatedDevice"+deviceAssociatedDevice = AttrLabelProxy++deviceDeviceManager :: AttrLabelProxy "deviceManager"+deviceDeviceManager = AttrLabelProxy++deviceDisplay :: AttrLabelProxy "display"+deviceDisplay = AttrLabelProxy++deviceHasCursor :: AttrLabelProxy "hasCursor"+deviceHasCursor = AttrLabelProxy++deviceInputMode :: AttrLabelProxy "inputMode"+deviceInputMode = AttrLabelProxy++deviceInputSource :: AttrLabelProxy "inputSource"+deviceInputSource = AttrLabelProxy++deviceNAxes :: AttrLabelProxy "nAxes"+deviceNAxes = AttrLabelProxy++deviceName :: AttrLabelProxy "name"+deviceName = AttrLabelProxy++deviceProductId :: AttrLabelProxy "productId"+deviceProductId = AttrLabelProxy++deviceType :: AttrLabelProxy "type"+deviceType = AttrLabelProxy++deviceVendorId :: AttrLabelProxy "vendorId"+deviceVendorId = AttrLabelProxy+ data DeviceChangedSignalInfo instance SignalInfo DeviceChangedSignalInfo where     type HaskellCallbackType DeviceChangedSignalInfo = DeviceChangedCallback@@ -610,7 +676,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Device"+-- returnType : Just (TInterface "Gdk" "Device") -- throws : False -- Skip return : False @@ -622,41 +688,42 @@ deviceGetAssociatedDevice ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> m Device                             -- result+    -> m (Maybe Device)                     -- result deviceGetAssociatedDevice _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_device_get_associated_device _obj'-    checkUnexpectedReturnNULL "gdk_device_get_associated_device" result-    result' <- (newObject Device) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Device) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DeviceGetAssociatedDeviceMethodInfo-instance (signature ~ (m Device), MonadIO m, DeviceK a) => MethodInfo DeviceGetAssociatedDeviceMethodInfo a signature where+instance (signature ~ (m (Maybe Device)), MonadIO m, DeviceK a) => MethodInfo DeviceGetAssociatedDeviceMethodInfo a signature where     overloadedMethod _ = deviceGetAssociatedDevice  -- method Device::get_axis_use -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "AxisUse"+-- returnType : Just (TInterface "Gdk" "AxisUse") -- throws : False -- Skip return : False  foreign import ccall "gdk_device_get_axis_use" gdk_device_get_axis_use ::      Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt32+    Word32 ->                               -- index_ : TBasicType TUInt     IO CUInt   deviceGetAxisUse ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> Word32                               -- index+    -> Word32                               -- index_     -> m AxisUse                            -- result-deviceGetAxisUse _obj index = liftIO $ do+deviceGetAxisUse _obj index_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    result <- gdk_device_get_axis_use _obj' index+    result <- gdk_device_get_axis_use _obj' index_     let result' = (toEnum . fromIntegral) result     touchManagedPtr _obj     return result'@@ -669,7 +736,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "DeviceType"+-- returnType : Just (TInterface "Gdk" "DeviceType") -- throws : False -- Skip return : False @@ -697,7 +764,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -726,7 +793,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -752,16 +819,16 @@  -- method Device::get_key -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False  foreign import ccall "gdk_device_get_key" gdk_device_get_key ::      Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt32-    Ptr Word32 ->                           -- keyval : TBasicType TUInt32+    Word32 ->                               -- index_ : TBasicType TUInt+    Ptr Word32 ->                           -- keyval : TBasicType TUInt     Ptr CUInt ->                            -- modifiers : TInterface "Gdk" "ModifierType"     IO CInt @@ -769,13 +836,13 @@ deviceGetKey ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> Word32                               -- index+    -> Word32                               -- index_     -> m (Bool,Word32,[ModifierType])       -- result-deviceGetKey _obj index = liftIO $ do+deviceGetKey _obj index_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     keyval <- allocMem :: IO (Ptr Word32)     modifiers <- allocMem :: IO (Ptr CUInt)-    result <- gdk_device_get_key _obj' index keyval modifiers+    result <- gdk_device_get_key _obj' index_ keyval modifiers     let result' = (/= 0) result     keyval' <- peek keyval     modifiers' <- peek modifiers@@ -793,7 +860,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -822,7 +889,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "InputMode"+-- returnType : Just (TInterface "Gdk" "InputMode") -- throws : False -- Skip return : False @@ -850,7 +917,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -877,7 +944,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -904,7 +971,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -931,17 +998,17 @@  -- method Device::get_position -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_device_get_position" gdk_device_get_position ::      Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"     Ptr (Ptr Screen) ->                     -- screen : TInterface "Gdk" "Screen"-    Ptr Int32 ->                            -- x : TBasicType TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32+    Ptr Int32 ->                            -- x : TBasicType TInt+    Ptr Int32 ->                            -- y : TBasicType TInt     IO ()  @@ -973,7 +1040,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1015,7 +1082,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1027,24 +1094,25 @@ deviceGetProductId ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result deviceGetProductId _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_device_get_product_id _obj'-    checkUnexpectedReturnNULL "gdk_device_get_product_id" result-    result' <- cstringToText result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DeviceGetProductIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DeviceK a) => MethodInfo DeviceGetProductIdMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, DeviceK a) => MethodInfo DeviceGetProductIdMethodInfo a signature where     overloadedMethod _ = deviceGetProductId  -- method Device::get_source -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "InputSource"+-- returnType : Just (TInterface "Gdk" "InputSource") -- throws : False -- Skip return : False @@ -1072,7 +1140,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -1084,61 +1152,63 @@ deviceGetVendorId ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> m T.Text                             -- result+    -> m (Maybe T.Text)                     -- result deviceGetVendorId _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_device_get_vendor_id _obj'-    checkUnexpectedReturnNULL "gdk_device_get_vendor_id" result-    result' <- cstringToText result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- cstringToText result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DeviceGetVendorIdMethodInfo-instance (signature ~ (m T.Text), MonadIO m, DeviceK a) => MethodInfo DeviceGetVendorIdMethodInfo a signature where+instance (signature ~ (m (Maybe T.Text)), MonadIO m, DeviceK a) => MethodInfo DeviceGetVendorIdMethodInfo a signature where     overloadedMethod _ = deviceGetVendorId  -- method Device::get_window_at_position -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False  foreign import ccall "gdk_device_get_window_at_position" gdk_device_get_window_at_position ::      Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Ptr Int32 ->                            -- win_x : TBasicType TInt32-    Ptr Int32 ->                            -- win_y : TBasicType TInt32+    Ptr Int32 ->                            -- win_x : TBasicType TInt+    Ptr Int32 ->                            -- win_y : TBasicType TInt     IO (Ptr Window)   deviceGetWindowAtPosition ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> m (Window,Int32,Int32)               -- result+    -> m ((Maybe Window),Int32,Int32)       -- result deviceGetWindowAtPosition _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     winX <- allocMem :: IO (Ptr Int32)     winY <- allocMem :: IO (Ptr Int32)     result <- gdk_device_get_window_at_position _obj' winX winY-    checkUnexpectedReturnNULL "gdk_device_get_window_at_position" result-    result' <- (newObject Window) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Window) result'+        return result''     winX' <- peek winX     winY' <- peek winY     touchManagedPtr _obj     freeMem winX     freeMem winY-    return (result', winX', winY')+    return (maybeResult, winX', winY')  data DeviceGetWindowAtPositionMethodInfo-instance (signature ~ (m (Window,Int32,Int32)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionMethodInfo a signature where+instance (signature ~ (m ((Maybe Window),Int32,Int32)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionMethodInfo a signature where     overloadedMethod _ = deviceGetWindowAtPosition  -- method Device::get_window_at_position_double -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TDouble, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -1152,14 +1222,15 @@ deviceGetWindowAtPositionDouble ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> m (Window,Double,Double)             -- result+    -> m ((Maybe Window),Double,Double)     -- result deviceGetWindowAtPositionDouble _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     winX <- allocMem :: IO (Ptr CDouble)     winY <- allocMem :: IO (Ptr CDouble)     result <- gdk_device_get_window_at_position_double _obj' winX winY-    checkUnexpectedReturnNULL "gdk_device_get_window_at_position_double" result-    result' <- (newObject Window) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Window) result'+        return result''     winX' <- peek winX     let winX'' = realToFrac winX'     winY' <- peek winY@@ -1167,17 +1238,17 @@     touchManagedPtr _obj     freeMem winX     freeMem winY-    return (result', winX'', winY'')+    return (maybeResult, winX'', winY'')  data DeviceGetWindowAtPositionDoubleMethodInfo-instance (signature ~ (m (Window,Double,Double)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionDoubleMethodInfo a signature where+instance (signature ~ (m ((Maybe Window),Double,Double)), MonadIO m, DeviceK a) => MethodInfo DeviceGetWindowAtPositionDoubleMethodInfo a signature where     overloadedMethod _ = deviceGetWindowAtPositionDouble  -- method Device::grab -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grab_ownership", argType = TInterface "Gdk" "GrabOwnership", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event_mask", argType = TInterface "Gdk" "EventMask", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "cursor", argType = TInterface "Gdk" "Cursor", direction = DirectionIn, mayBeNull = True, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "GrabStatus"+-- returnType : Just (TInterface "Gdk" "GrabStatus") -- throws : False -- Skip return : False @@ -1200,9 +1271,9 @@     -> Bool                                 -- ownerEvents     -> [EventMask]                          -- eventMask     -> Maybe (c)                            -- cursor-    -> Word32                               -- time+    -> Word32                               -- time_     -> m GrabStatus                         -- result-deviceGrab _obj window grabOwnership ownerEvents eventMask cursor time = liftIO $ do+deviceGrab _obj window grabOwnership ownerEvents eventMask cursor time_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let window' = unsafeManagedPtrCastPtr window     let grabOwnership' = (fromIntegral . fromEnum) grabOwnership@@ -1213,7 +1284,7 @@         Just jCursor -> do             let jCursor' = unsafeManagedPtrCastPtr jCursor             return jCursor'-    result <- gdk_device_grab _obj' window' grabOwnership' ownerEvents' eventMask' maybeCursor time+    result <- gdk_device_grab _obj' window' grabOwnership' ownerEvents' eventMask' maybeCursor time_     let result' = (toEnum . fromIntegral) result     touchManagedPtr _obj     touchManagedPtr window@@ -1228,7 +1299,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gdk" "Atom")+-- returnType : Just (TGList (TInterface "Gdk" "Atom")) -- throws : False -- Skip return : False @@ -1244,7 +1315,6 @@ deviceListAxes _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_device_list_axes _obj'-    checkUnexpectedReturnNULL "gdk_device_list_axes" result     -- XXX Wrapping a foreign struct/union with no known destructor, leak?     result' <- unpackGList result     result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result'@@ -1260,7 +1330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gdk" "Device")+-- returnType : Just (TGList (TInterface "Gdk" "Device")) -- throws : False -- Skip return : False @@ -1276,7 +1346,6 @@ deviceListSlaveDevices _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_device_list_slave_devices _obj'-    checkUnexpectedReturnNULL "gdk_device_list_slave_devices" result     result' <- unpackGList result     result'' <- mapM (newObject Device) result'     g_list_free result@@ -1289,15 +1358,15 @@  -- method Device::set_axis_use -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "use", argType = TInterface "Gdk" "AxisUse", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_device_set_axis_use" gdk_device_set_axis_use ::      Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt32+    Word32 ->                               -- index_ : TBasicType TUInt     CUInt ->                                -- use : TInterface "Gdk" "AxisUse"     IO () @@ -1305,13 +1374,13 @@ deviceSetAxisUse ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> Word32                               -- index+    -> Word32                               -- index_     -> AxisUse                              -- use     -> m ()                                 -- result-deviceSetAxisUse _obj index use = liftIO $ do+deviceSetAxisUse _obj index_ use = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let use' = (fromIntegral . fromEnum) use-    gdk_device_set_axis_use _obj' index use'+    gdk_device_set_axis_use _obj' index_ use'     touchManagedPtr _obj     return () @@ -1321,16 +1390,16 @@  -- method Device::set_key -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt32, 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "index_", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "keyval", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "modifiers", argType = TInterface "Gdk" "ModifierType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_device_set_key" gdk_device_set_key ::      Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"-    Word32 ->                               -- index_ : TBasicType TUInt32-    Word32 ->                               -- keyval : TBasicType TUInt32+    Word32 ->                               -- index_ : TBasicType TUInt+    Word32 ->                               -- keyval : TBasicType TUInt     CUInt ->                                -- modifiers : TInterface "Gdk" "ModifierType"     IO () @@ -1338,14 +1407,14 @@ deviceSetKey ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> Word32                               -- index+    -> Word32                               -- index_     -> Word32                               -- keyval     -> [ModifierType]                       -- modifiers     -> m ()                                 -- result-deviceSetKey _obj index keyval modifiers = liftIO $ do+deviceSetKey _obj index_ keyval modifiers = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     let modifiers' = gflagsToWord modifiers-    gdk_device_set_key _obj' index keyval modifiers'+    gdk_device_set_key _obj' index_ keyval modifiers'     touchManagedPtr _obj     return () @@ -1357,7 +1426,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "mode", argType = TInterface "Gdk" "InputMode", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1388,7 +1457,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1401,11 +1470,11 @@ deviceUngrab ::     (MonadIO m, DeviceK a) =>     a                                       -- _obj-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-deviceUngrab _obj time = liftIO $ do+deviceUngrab _obj time_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_device_ungrab _obj' time+    gdk_device_ungrab _obj' time_     touchManagedPtr _obj     return () @@ -1415,17 +1484,17 @@  -- method Device::warp -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_device_warp" gdk_device_warp ::      Ptr Device ->                           -- _obj : TInterface "Gdk" "Device"     Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt     IO ()  @@ -1452,7 +1521,7 @@ -- method type : MemberFunction -- Args : [Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "grab_window", argType = TInterface "Gdk" "Window", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "owner_events", argType = TBasicType TBoolean, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Gdk.Objects.Device where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -38,6 +38,7 @@ -- ** Display     DeviceManagerDisplayPropertyInfo        ,     constructDeviceManagerDisplay           ,+    deviceManagerDisplay                    ,     getDeviceManagerDisplay                 ,  @@ -84,9 +85,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -281,27 +282,32 @@ -- VVV Prop "display"    -- Type: TInterface "Gdk" "Display"    -- Flags: [PropertyReadable,PropertyWritable,PropertyConstructOnly]+   -- Nullable: (Just True,Nothing) -getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m Display+getDeviceManagerDisplay :: (MonadIO m, DeviceManagerK o) => o -> m (Maybe Display) getDeviceManagerDisplay obj = liftIO $ getObjectPropertyObject obj "display" Display  constructDeviceManagerDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDeviceManagerDisplay val = constructObjectPropertyObject "display" val+constructDeviceManagerDisplay val = constructObjectPropertyObject "display" (Just val)  data DeviceManagerDisplayPropertyInfo instance AttrInfo DeviceManagerDisplayPropertyInfo where-    type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet]+    type AttrAllowedOps DeviceManagerDisplayPropertyInfo = '[ 'AttrConstruct, 'AttrGet, 'AttrClear]     type AttrSetTypeConstraint DeviceManagerDisplayPropertyInfo = DisplayK     type AttrBaseTypeConstraint DeviceManagerDisplayPropertyInfo = DeviceManagerK-    type AttrGetType DeviceManagerDisplayPropertyInfo = Display+    type AttrGetType DeviceManagerDisplayPropertyInfo = (Maybe Display)     type AttrLabel DeviceManagerDisplayPropertyInfo = "display"     attrGet _ = getDeviceManagerDisplay     attrSet _ = undefined     attrConstruct _ = constructDeviceManagerDisplay+    attrClear _ = undefined  type instance AttributeList DeviceManager = DeviceManagerAttributeList type DeviceManagerAttributeList = ('[ '("display", DeviceManagerDisplayPropertyInfo)] :: [(Symbol, *)]) +deviceManagerDisplay :: AttrLabelProxy "display"+deviceManagerDisplay = AttrLabelProxy+ data DeviceManagerDeviceAddedSignalInfo instance SignalInfo DeviceManagerDeviceAddedSignalInfo where     type HaskellCallbackType DeviceManagerDeviceAddedSignalInfo = DeviceManagerDeviceAddedCallback@@ -324,7 +330,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Device"+-- returnType : Just (TInterface "Gdk" "Device") -- throws : False -- Skip return : False @@ -353,7 +359,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -365,24 +371,25 @@ deviceManagerGetDisplay ::     (MonadIO m, DeviceManagerK a) =>     a                                       -- _obj-    -> m Display                            -- result+    -> m (Maybe Display)                    -- result deviceManagerGetDisplay _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_device_manager_get_display _obj'-    checkUnexpectedReturnNULL "gdk_device_manager_get_display" result-    result' <- (newObject Display) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Display) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DeviceManagerGetDisplayMethodInfo-instance (signature ~ (m Display), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerGetDisplayMethodInfo a signature where+instance (signature ~ (m (Maybe Display)), MonadIO m, DeviceManagerK a) => MethodInfo DeviceManagerGetDisplayMethodInfo a signature where     overloadedMethod _ = deviceManagerGetDisplay  -- method DeviceManager::list_devices -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DeviceManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "type", argType = TInterface "Gdk" "DeviceType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gdk" "Device")+-- returnType : Just (TGList (TInterface "Gdk" "Device")) -- throws : False -- Skip return : False @@ -401,7 +408,6 @@     let _obj' = unsafeManagedPtrCastPtr _obj     let type_' = (fromIntegral . fromEnum) type_     result <- gdk_device_manager_list_devices _obj' type_'-    checkUnexpectedReturnNULL "gdk_device_manager_list_devices" result     result' <- unpackGList result     result'' <- mapM (newObject Device) result'     g_list_free result

@@ -1,8 +1,8 @@ module GI.Gdk.Objects.DeviceManager where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -250,9 +250,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -453,7 +453,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -480,7 +480,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -507,7 +507,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -539,7 +539,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -566,7 +566,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "AppLaunchContext"+-- returnType : Just (TInterface "Gdk" "AppLaunchContext") -- throws : False -- Skip return : False @@ -595,7 +595,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUInt32+-- returnType : Just (TBasicType TUInt) -- throws : False -- Skip return : False @@ -622,7 +622,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -651,7 +651,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Screen"+-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False @@ -680,7 +680,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "DeviceManager"+-- returnType : Just (TInterface "Gdk" "DeviceManager") -- throws : False -- Skip return : False @@ -692,24 +692,25 @@ displayGetDeviceManager ::     (MonadIO m, DisplayK a) =>     a                                       -- _obj-    -> m DeviceManager                      -- result+    -> m (Maybe DeviceManager)              -- result displayGetDeviceManager _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_display_get_device_manager _obj'-    checkUnexpectedReturnNULL "gdk_display_get_device_manager" result-    result' <- (newObject DeviceManager) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject DeviceManager) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DisplayGetDeviceManagerMethodInfo-instance (signature ~ (m DeviceManager), MonadIO m, DisplayK a) => MethodInfo DisplayGetDeviceManagerMethodInfo a signature where+instance (signature ~ (m (Maybe DeviceManager)), MonadIO m, DisplayK a) => MethodInfo DisplayGetDeviceManagerMethodInfo a signature where     overloadedMethod _ = displayGetDeviceManager  -- method Display::get_event -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Event"+-- returnType : Just (TInterface "Gdk" "Event") -- throws : False -- Skip return : False @@ -721,31 +722,32 @@ displayGetEvent ::     (MonadIO m, DisplayK a) =>     a                                       -- _obj-    -> m Event                              -- result+    -> m (Maybe Event)                      -- result displayGetEvent _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_display_get_event _obj'-    checkUnexpectedReturnNULL "gdk_display_get_event" result-    result' <- (wrapBoxed Event) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapBoxed Event) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DisplayGetEventMethodInfo-instance (signature ~ (m Event), MonadIO m, DisplayK a) => MethodInfo DisplayGetEventMethodInfo a signature where+instance (signature ~ (m (Maybe Event)), MonadIO m, DisplayK a) => MethodInfo DisplayGetEventMethodInfo a signature where     overloadedMethod _ = displayGetEvent  -- method Display::get_maximal_cursor_size -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "width", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "height", argType = TBasicType TUInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_display_get_maximal_cursor_size" gdk_display_get_maximal_cursor_size ::      Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Word32 ->                           -- width : TBasicType TUInt32-    Ptr Word32 ->                           -- height : TBasicType TUInt32+    Ptr Word32 ->                           -- width : TBasicType TUInt+    Ptr Word32 ->                           -- height : TBasicType TUInt     IO ()  @@ -773,7 +775,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TInt32+-- returnType : Just (TBasicType TInt) -- throws : False -- Skip return : False @@ -800,7 +802,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TUTF8+-- returnType : Just (TBasicType TUTF8) -- throws : False -- Skip return : False @@ -827,17 +829,17 @@  -- method Display::get_pointer -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "mask", argType = TInterface "Gdk" "ModifierType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_display_get_pointer" gdk_display_get_pointer ::      Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"     Ptr (Ptr Screen) ->                     -- screen : TInterface "Gdk" "Screen"-    Ptr Int32 ->                            -- x : TBasicType TInt32-    Ptr Int32 ->                            -- y : TBasicType TInt32+    Ptr Int32 ->                            -- x : TBasicType TInt+    Ptr Int32 ->                            -- y : TBasicType TInt     Ptr CUInt ->                            -- mask : TInterface "Gdk" "ModifierType"     IO () @@ -872,15 +874,15 @@  -- method Display::get_screen -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen_num", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen_num", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Screen"+-- returnType : Just (TInterface "Gdk" "Screen") -- throws : False -- Skip return : False  foreign import ccall "gdk_display_get_screen" gdk_display_get_screen ::      Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Int32 ->                                -- screen_num : TBasicType TInt32+    Int32 ->                                -- screen_num : TBasicType TInt     IO (Ptr Screen)  @@ -903,46 +905,47 @@  -- method Display::get_window_at_pointer -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt32, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "win_x", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything},Arg {argCName = "win_y", argType = TBasicType TInt, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferEverything}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False  foreign import ccall "gdk_display_get_window_at_pointer" gdk_display_get_window_at_pointer ::      Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Ptr Int32 ->                            -- win_x : TBasicType TInt32-    Ptr Int32 ->                            -- win_y : TBasicType TInt32+    Ptr Int32 ->                            -- win_x : TBasicType TInt+    Ptr Int32 ->                            -- win_y : TBasicType TInt     IO (Ptr Window)  {-# DEPRECATED displayGetWindowAtPointer ["(Since version 3.0)","Use gdk_device_get_window_at_position() instead."]#-} displayGetWindowAtPointer ::     (MonadIO m, DisplayK a) =>     a                                       -- _obj-    -> m (Window,Int32,Int32)               -- result+    -> m ((Maybe Window),Int32,Int32)       -- result displayGetWindowAtPointer _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     winX <- allocMem :: IO (Ptr Int32)     winY <- allocMem :: IO (Ptr Int32)     result <- gdk_display_get_window_at_pointer _obj' winX winY-    checkUnexpectedReturnNULL "gdk_display_get_window_at_pointer" result-    result' <- (newObject Window) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Window) result'+        return result''     winX' <- peek winX     winY' <- peek winY     touchManagedPtr _obj     freeMem winX     freeMem winY-    return (result', winX', winY')+    return (maybeResult, winX', winY')  data DisplayGetWindowAtPointerMethodInfo-instance (signature ~ (m (Window,Int32,Int32)), MonadIO m, DisplayK a) => MethodInfo DisplayGetWindowAtPointerMethodInfo a signature where+instance (signature ~ (m ((Maybe Window),Int32,Int32)), MonadIO m, DisplayK a) => MethodInfo DisplayGetWindowAtPointerMethodInfo a signature where     overloadedMethod _ = displayGetWindowAtPointer  -- method Display::has_pending -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -970,7 +973,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -998,7 +1001,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1011,11 +1014,11 @@ displayKeyboardUngrab ::     (MonadIO m, DisplayK a) =>     a                                       -- _obj-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-displayKeyboardUngrab _obj time = liftIO $ do+displayKeyboardUngrab _obj time_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_keyboard_ungrab _obj' time+    gdk_display_keyboard_ungrab _obj' time_     touchManagedPtr _obj     return () @@ -1027,7 +1030,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gdk" "Device")+-- returnType : Just (TGList (TInterface "Gdk" "Device")) -- throws : False -- Skip return : False @@ -1043,7 +1046,6 @@ displayListDevices _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_display_list_devices _obj'-    checkUnexpectedReturnNULL "gdk_display_list_devices" result     result' <- unpackGList result     result'' <- mapM (newObject Device) result'     touchManagedPtr _obj@@ -1057,7 +1059,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "startup_id", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1088,7 +1090,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Event"+-- returnType : Just (TInterface "Gdk" "Event") -- throws : False -- Skip return : False @@ -1100,24 +1102,25 @@ displayPeekEvent ::     (MonadIO m, DisplayK a) =>     a                                       -- _obj-    -> m Event                              -- result+    -> m (Maybe Event)                      -- result displayPeekEvent _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_display_peek_event _obj'-    checkUnexpectedReturnNULL "gdk_display_peek_event" result-    result' <- (wrapBoxed Event) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (wrapBoxed Event) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DisplayPeekEventMethodInfo-instance (signature ~ (m Event), MonadIO m, DisplayK a) => MethodInfo DisplayPeekEventMethodInfo a signature where+instance (signature ~ (m (Maybe Event)), MonadIO m, DisplayK a) => MethodInfo DisplayPeekEventMethodInfo a signature where     overloadedMethod _ = displayPeekEvent  -- method Display::pointer_is_grabbed -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1145,7 +1148,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1158,11 +1161,11 @@ displayPointerUngrab ::     (MonadIO m, DisplayK a) =>     a                                       -- _obj-    -> Word32                               -- time+    -> Word32                               -- time_     -> m ()                                 -- result-displayPointerUngrab _obj time = liftIO $ do+displayPointerUngrab _obj time_ = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj-    gdk_display_pointer_ungrab _obj' time+    gdk_display_pointer_ungrab _obj' time_     touchManagedPtr _obj     return () @@ -1174,7 +1177,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "event", argType = TInterface "Gdk" "Event", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1205,7 +1208,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "selection", argType = TInterface "Gdk" "Atom", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1235,15 +1238,15 @@  -- method Display::set_double_click_distance -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "distance", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_display_set_double_click_distance" gdk_display_set_double_click_distance ::      Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Word32 ->                               -- distance : TBasicType TUInt32+    Word32 ->                               -- distance : TBasicType TUInt     IO ()  @@ -1264,15 +1267,15 @@  -- method Display::set_double_click_time -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msec", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "msec", argType = TBasicType TUInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_display_set_double_click_time" gdk_display_set_double_click_time ::      Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"-    Word32 ->                               -- msec : TBasicType TUInt32+    Word32 ->                               -- msec : TBasicType TUInt     IO ()  @@ -1293,9 +1296,9 @@  -- method Display::store_clipboard -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]--- returnType : TBasicType TVoid+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "clipboard_window", argType = TInterface "Gdk" "Window", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "time_", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "targets", argType = TCArray False (-1) 4 (TInterface "Gdk" "Atom"), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- Lengths : [Arg {argCName = "n_targets", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1304,7 +1307,7 @@     Ptr Window ->                           -- clipboard_window : TInterface "Gdk" "Window"     Word32 ->                               -- time_ : TBasicType TUInt32     Ptr (Ptr Atom) ->                       -- targets : TCArray False (-1) 4 (TInterface "Gdk" "Atom")-    Int32 ->                                -- n_targets : TBasicType TInt32+    Int32 ->                                -- n_targets : TBasicType TInt     IO ()  @@ -1312,16 +1315,16 @@     (MonadIO m, DisplayK a, WindowK b) =>     a                                       -- _obj     -> b                                    -- clipboardWindow-    -> Word32                               -- time+    -> Word32                               -- time_     -> [Atom]                               -- targets     -> m ()                                 -- result-displayStoreClipboard _obj clipboardWindow time targets = liftIO $ do+displayStoreClipboard _obj clipboardWindow time_ targets = liftIO $ do     let nTargets = fromIntegral $ length targets     let _obj' = unsafeManagedPtrCastPtr _obj     let clipboardWindow' = unsafeManagedPtrCastPtr clipboardWindow     let targets' = map unsafeManagedPtrGetPtr targets     targets'' <- packPtrArray targets'-    gdk_display_store_clipboard _obj' clipboardWindow' time targets'' nTargets+    gdk_display_store_clipboard _obj' clipboardWindow' time_ targets'' nTargets     touchManagedPtr _obj     touchManagedPtr clipboardWindow     mapM_ touchManagedPtr targets@@ -1336,7 +1339,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1364,7 +1367,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1392,7 +1395,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1420,7 +1423,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1448,7 +1451,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1476,7 +1479,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1504,7 +1507,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TBoolean+-- returnType : Just (TBasicType TBoolean) -- throws : False -- Skip return : False @@ -1532,7 +1535,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -1557,17 +1560,17 @@  -- method Display::warp_pointer -- method type : OrdinaryMethod--- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType 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}]+-- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "screen", argType = TInterface "Gdk" "Screen", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "x", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "y", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False  foreign import ccall "gdk_display_warp_pointer" gdk_display_warp_pointer ::      Ptr Display ->                          -- _obj : TInterface "Gdk" "Display"     Ptr Screen ->                           -- screen : TInterface "Gdk" "Screen"-    Int32 ->                                -- x : TBasicType TInt32-    Int32 ->                                -- y : TBasicType TInt32+    Int32 ->                                -- x : TBasicType TInt+    Int32 ->                                -- y : TBasicType TInt     IO ()  {-# DEPRECATED displayWarpPointer ["(Since version 3.0)","Use gdk_device_warp() instead."]#-}@@ -1594,7 +1597,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -1604,18 +1607,19 @@  displayGetDefault ::     (MonadIO m) =>-    m Display                               -- result+    m (Maybe Display)                       -- result displayGetDefault  = liftIO $ do     result <- gdk_display_get_default-    checkUnexpectedReturnNULL "gdk_display_get_default" result-    result' <- (newObject Display) result-    return result'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Display) result'+        return result''+    return maybeResult  -- method Display::open -- method type : MemberFunction -- Args : [Arg {argCName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -1627,20 +1631,21 @@ displayOpen ::     (MonadIO m) =>     T.Text                                  -- displayName-    -> m Display                            -- result+    -> m (Maybe Display)                    -- result displayOpen displayName = liftIO $ do     displayName' <- textToCString displayName     result <- gdk_display_open displayName'-    checkUnexpectedReturnNULL "gdk_display_open" result-    result' <- (newObject Display) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Display) result'+        return result''     freeMem displayName'-    return result'+    return maybeResult  -- method Display::open_default_libgtk_only -- method type : MemberFunction -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -1650,11 +1655,12 @@ {-# DEPRECATED displayOpenDefaultLibgtkOnly ["(Since version 3.16)","This symbol was never meant to be used outside","  of GTK+"]#-} displayOpenDefaultLibgtkOnly ::     (MonadIO m) =>-    m Display                               -- result+    m (Maybe Display)                       -- result displayOpenDefaultLibgtkOnly  = liftIO $ do     result <- gdk_display_open_default_libgtk_only-    checkUnexpectedReturnNULL "gdk_display_open_default_libgtk_only" result-    result' <- (newObject Display) result-    return result'+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Display) result'+        return result''+    return maybeResult  

@@ -1,8 +1,8 @@ module GI.Gdk.Objects.Display where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -47,6 +47,7 @@ -- ** DefaultDisplay     DisplayManagerDefaultDisplayPropertyInfo,     constructDisplayManagerDefaultDisplay   ,+    displayManagerDefaultDisplay            ,     getDisplayManagerDefaultDisplay         ,     setDisplayManagerDefaultDisplay         , @@ -70,9 +71,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -184,30 +185,35 @@ -- VVV Prop "default-display"    -- Type: TInterface "Gdk" "Display"    -- Flags: [PropertyReadable,PropertyWritable]+   -- Nullable: (Just True,Just False) -getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m Display+getDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o) => o -> m (Maybe Display) getDisplayManagerDefaultDisplay obj = liftIO $ getObjectPropertyObject obj "default-display" Display  setDisplayManagerDefaultDisplay :: (MonadIO m, DisplayManagerK o, DisplayK a) => o -> a -> m ()-setDisplayManagerDefaultDisplay obj val = liftIO $ setObjectPropertyObject obj "default-display" val+setDisplayManagerDefaultDisplay obj val = liftIO $ setObjectPropertyObject obj "default-display" (Just val)  constructDisplayManagerDefaultDisplay :: (DisplayK a) => a -> IO ([Char], GValue)-constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" val+constructDisplayManagerDefaultDisplay val = constructObjectPropertyObject "default-display" (Just val)  data DisplayManagerDefaultDisplayPropertyInfo instance AttrInfo DisplayManagerDefaultDisplayPropertyInfo where     type AttrAllowedOps DisplayManagerDefaultDisplayPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet]     type AttrSetTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayK     type AttrBaseTypeConstraint DisplayManagerDefaultDisplayPropertyInfo = DisplayManagerK-    type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = Display+    type AttrGetType DisplayManagerDefaultDisplayPropertyInfo = (Maybe Display)     type AttrLabel DisplayManagerDefaultDisplayPropertyInfo = "default-display"     attrGet _ = getDisplayManagerDefaultDisplay     attrSet _ = setDisplayManagerDefaultDisplay     attrConstruct _ = constructDisplayManagerDefaultDisplay+    attrClear _ = undefined  type instance AttributeList DisplayManager = DisplayManagerAttributeList type DisplayManagerAttributeList = ('[ '("defaultDisplay", DisplayManagerDefaultDisplayPropertyInfo)] :: [(Symbol, *)]) +displayManagerDefaultDisplay :: AttrLabelProxy "defaultDisplay"+displayManagerDefaultDisplay = AttrLabelProxy+ data DisplayManagerDisplayOpenedSignalInfo instance SignalInfo DisplayManagerDisplayOpenedSignalInfo where     type HaskellCallbackType DisplayManagerDisplayOpenedSignalInfo = DisplayManagerDisplayOpenedCallback@@ -220,7 +226,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -232,24 +238,25 @@ displayManagerGetDefaultDisplay ::     (MonadIO m, DisplayManagerK a) =>     a                                       -- _obj-    -> m Display                            -- result+    -> m (Maybe Display)                    -- result displayManagerGetDefaultDisplay _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_display_manager_get_default_display _obj'-    checkUnexpectedReturnNULL "gdk_display_manager_get_default_display" result-    result' <- (newObject Display) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Display) result'+        return result''     touchManagedPtr _obj-    return result'+    return maybeResult  data DisplayManagerGetDefaultDisplayMethodInfo-instance (signature ~ (m Display), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerGetDefaultDisplayMethodInfo a signature where+instance (signature ~ (m (Maybe Display)), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerGetDefaultDisplayMethodInfo a signature where     overloadedMethod _ = displayManagerGetDefaultDisplay  -- method DisplayManager::list_displays -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGSList (TInterface "Gdk" "Display")+-- returnType : Just (TGSList (TInterface "Gdk" "Display")) -- throws : False -- Skip return : False @@ -265,7 +272,6 @@ displayManagerListDisplays _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_display_manager_list_displays _obj'-    checkUnexpectedReturnNULL "gdk_display_manager_list_displays" result     result' <- unpackGSList result     result'' <- mapM (newObject Display) result'     g_slist_free result@@ -280,7 +286,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Display"+-- returnType : Just (TInterface "Gdk" "Display") -- throws : False -- Skip return : False @@ -294,26 +300,27 @@     (MonadIO m, DisplayManagerK a) =>     a                                       -- _obj     -> T.Text                               -- name-    -> m Display                            -- result+    -> m (Maybe Display)                    -- result displayManagerOpenDisplay _obj name = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     name' <- textToCString name     result <- gdk_display_manager_open_display _obj' name'-    checkUnexpectedReturnNULL "gdk_display_manager_open_display" result-    result' <- (newObject Display) result+    maybeResult <- convertIfNonNull result $ \result' -> do+        result'' <- (newObject Display) result'+        return result''     touchManagedPtr _obj     freeMem name'-    return result'+    return maybeResult  data DisplayManagerOpenDisplayMethodInfo-instance (signature ~ (T.Text -> m Display), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerOpenDisplayMethodInfo a signature where+instance (signature ~ (T.Text -> m (Maybe Display)), MonadIO m, DisplayManagerK a) => MethodInfo DisplayManagerOpenDisplayMethodInfo a signature where     overloadedMethod _ = displayManagerOpenDisplay  -- method DisplayManager::set_default_display -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DisplayManager", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "display", argType = TInterface "Gdk" "Display", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False @@ -344,7 +351,7 @@ -- method type : MemberFunction -- Args : [] -- Lengths : []--- returnType : TInterface "Gdk" "DisplayManager"+-- returnType : Just (TInterface "Gdk" "DisplayManager") -- throws : False -- Skip return : False 

@@ -1,8 +1,8 @@ module GI.Gdk.Objects.DisplayManager where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map

@@ -66,9 +66,9 @@      ) where -import Prelude () import Data.GI.Base.ShortPrelude +import qualified Data.GI.Base.Attributes as GI.Attributes import qualified Data.Text as T import qualified Data.ByteString.Char8 as B import qualified Data.Map as Map@@ -150,7 +150,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "DragAction"+-- returnType : Just (TInterface "Gdk" "DragAction") -- throws : False -- Skip return : False @@ -178,7 +178,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -207,7 +207,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Device"+-- returnType : Just (TInterface "Gdk" "Device") -- throws : False -- Skip return : False @@ -236,7 +236,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "DragProtocol"+-- returnType : Just (TInterface "Gdk" "DragProtocol") -- throws : False -- Skip return : False @@ -264,7 +264,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "DragAction"+-- returnType : Just (TInterface "Gdk" "DragAction") -- throws : False -- Skip return : False @@ -292,7 +292,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "Window"+-- returnType : Just (TInterface "Gdk" "Window") -- throws : False -- Skip return : False @@ -321,7 +321,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TInterface "Gdk" "DragAction"+-- returnType : Just (TInterface "Gdk" "DragAction") -- throws : False -- Skip return : False @@ -349,7 +349,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TGList (TInterface "Gdk" "Atom")+-- returnType : Just (TGList (TInterface "Gdk" "Atom")) -- throws : False -- Skip return : False @@ -365,7 +365,6 @@ dragContextListTargets _obj = liftIO $ do     let _obj' = unsafeManagedPtrCastPtr _obj     result <- gdk_drag_context_list_targets _obj'-    checkUnexpectedReturnNULL "gdk_drag_context_list_targets" result     -- XXX Wrapping a foreign struct/union with no known destructor, leak?     result' <- unpackGList result     result'' <- mapM (\x -> Atom <$> newForeignPtr_ x) result'@@ -380,7 +379,7 @@ -- method type : OrdinaryMethod -- Args : [Arg {argCName = "_obj", argType = TInterface "Gdk" "DragContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "device", argType = TInterface "Gdk" "Device", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}] -- Lengths : []--- returnType : TBasicType TVoid+-- returnType : Nothing -- throws : False -- Skip return : False