diff --git a/GI/Gdk.hs b/GI/Gdk.hs --- a/GI/Gdk.hs +++ b/GI/Gdk.hs @@ -94,6 +94,7 @@ m AppLaunchContext appLaunchContextNew = liftIO $ do result <- gdk_app_launch_context_new + checkUnexpectedReturnNULL "gdk_app_launch_context_new" result result' <- (wrapObject AppLaunchContext) result return result' @@ -295,6 +296,7 @@ atomName _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_atom_name _obj' + checkUnexpectedReturnNULL "gdk_atom_name" result result' <- cstringToText result freeMem result touchManagedPtr _obj @@ -416,6 +418,7 @@ colorCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_color_copy _obj' + checkUnexpectedReturnNULL "gdk_color_copy" result result' <- (wrapBoxed Color) result touchManagedPtr _obj return result' @@ -518,6 +521,7 @@ colorToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_color_to_string _obj' + checkUnexpectedReturnNULL "gdk_color_to_string" result result' <- cstringToText result freeMem result touchManagedPtr _obj @@ -609,6 +613,7 @@ cursorNew cursor_type = liftIO $ do let cursor_type' = (fromIntegral . fromEnum) cursor_type result <- gdk_cursor_new cursor_type' + checkUnexpectedReturnNULL "gdk_cursor_new" result result' <- (wrapObject Cursor) result return result' @@ -636,6 +641,7 @@ let display' = unsafeManagedPtrCastPtr display let cursor_type' = (fromIntegral . fromEnum) cursor_type result <- gdk_cursor_new_for_display display' cursor_type' + checkUnexpectedReturnNULL "gdk_cursor_new_for_display" result result' <- (wrapObject Cursor) result touchManagedPtr display return result' @@ -664,6 +670,7 @@ let display' = unsafeManagedPtrCastPtr display name' <- textToCString name result <- gdk_cursor_new_from_name display' name' + checkUnexpectedReturnNULL "gdk_cursor_new_from_name" result result' <- (wrapObject Cursor) result touchManagedPtr display freeMem name' @@ -697,6 +704,7 @@ let display' = unsafeManagedPtrCastPtr display let pixbuf' = unsafeManagedPtrCastPtr pixbuf result <- gdk_cursor_new_from_pixbuf display' pixbuf' x y + checkUnexpectedReturnNULL "gdk_cursor_new_from_pixbuf" result result' <- (wrapObject Cursor) result touchManagedPtr display touchManagedPtr pixbuf @@ -732,6 +740,7 @@ let x' = realToFrac x let y' = realToFrac y result <- gdk_cursor_new_from_surface display' surface' x' y' + checkUnexpectedReturnNULL "gdk_cursor_new_from_surface" result result' <- (wrapObject Cursor) result touchManagedPtr display touchManagedPtr surface @@ -783,6 +792,7 @@ cursorGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_cursor_get_display _obj' + checkUnexpectedReturnNULL "gdk_cursor_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' @@ -808,6 +818,7 @@ cursorGetImage _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_cursor_get_image _obj' + checkUnexpectedReturnNULL "gdk_cursor_get_image" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr _obj return result' @@ -837,6 +848,7 @@ x_hot <- allocMem :: IO (Ptr CDouble) y_hot <- allocMem :: IO (Ptr CDouble) result <- gdk_cursor_get_surface _obj' x_hot y_hot + checkUnexpectedReturnNULL "gdk_cursor_get_surface" result result' <- (wrapBoxed Cairo.Surface) result x_hot' <- peek x_hot let x_hot'' = realToFrac x_hot' @@ -868,6 +880,7 @@ cursorRef _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_cursor_ref _obj' + checkUnexpectedReturnNULL "gdk_cursor_ref" result result' <- (wrapObject Cursor) result touchManagedPtr _obj return result' @@ -1195,6 +1208,7 @@ deviceGetAssociatedDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_associated_device _obj' + checkUnexpectedReturnNULL "gdk_device_get_associated_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' @@ -1272,6 +1286,7 @@ deviceGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_display _obj' + checkUnexpectedReturnNULL "gdk_device_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' @@ -1358,6 +1373,7 @@ deviceGetLastEventWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_last_event_window _obj' + checkUnexpectedReturnNULL "gdk_device_get_last_event_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -1456,6 +1472,7 @@ deviceGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_name _obj' + checkUnexpectedReturnNULL "gdk_device_get_name" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1557,6 +1574,7 @@ deviceGetProductId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_product_id _obj' + checkUnexpectedReturnNULL "gdk_device_get_product_id" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1607,6 +1625,7 @@ deviceGetVendorId _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_get_vendor_id _obj' + checkUnexpectedReturnNULL "gdk_device_get_vendor_id" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -1636,6 +1655,7 @@ win_x <- allocMem :: IO (Ptr Int32) win_y <- allocMem :: IO (Ptr Int32) result <- gdk_device_get_window_at_position _obj' win_x win_y + checkUnexpectedReturnNULL "gdk_device_get_window_at_position" result result' <- (newObject Window) result win_x' <- peek win_x win_y' <- peek win_y @@ -1669,6 +1689,7 @@ win_x <- allocMem :: IO (Ptr CDouble) win_y <- allocMem :: IO (Ptr CDouble) result <- gdk_device_get_window_at_position_double _obj' win_x win_y + checkUnexpectedReturnNULL "gdk_device_get_window_at_position_double" result result' <- (newObject Window) result win_x' <- peek win_x let win_x'' = realToFrac win_x' @@ -1748,6 +1769,7 @@ 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' @@ -1776,6 +1798,7 @@ 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 @@ -2047,6 +2070,7 @@ deviceManagerGetClientPointer _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_manager_get_client_pointer _obj' + checkUnexpectedReturnNULL "gdk_device_manager_get_client_pointer" result result' <- (newObject Device) result touchManagedPtr _obj return result' @@ -2072,6 +2096,7 @@ deviceManagerGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_device_manager_get_display _obj' + checkUnexpectedReturnNULL "gdk_device_manager_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' @@ -2100,6 +2125,7 @@ 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 @@ -2401,6 +2427,7 @@ displayGetAppLaunchContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_app_launch_context _obj' + checkUnexpectedReturnNULL "gdk_display_get_app_launch_context" result result' <- (wrapObject AppLaunchContext) result touchManagedPtr _obj return result' @@ -2450,6 +2477,7 @@ displayGetDefaultGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_default_group _obj' + checkUnexpectedReturnNULL "gdk_display_get_default_group" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -2475,6 +2503,7 @@ displayGetDefaultScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_default_screen _obj' + checkUnexpectedReturnNULL "gdk_display_get_default_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' @@ -2500,6 +2529,7 @@ displayGetDeviceManager _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_device_manager _obj' + checkUnexpectedReturnNULL "gdk_display_get_device_manager" result result' <- (newObject DeviceManager) result touchManagedPtr _obj return result' @@ -2525,6 +2555,7 @@ displayGetEvent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_event _obj' + checkUnexpectedReturnNULL "gdk_display_get_event" result result' <- (wrapBoxed Event) result touchManagedPtr _obj return result' @@ -2606,6 +2637,7 @@ displayGetName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_name _obj' + checkUnexpectedReturnNULL "gdk_display_get_name" result result' <- cstringToText result touchManagedPtr _obj return result' @@ -2675,6 +2707,7 @@ displayGetScreen _obj screen_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_get_screen _obj' screen_num + checkUnexpectedReturnNULL "gdk_display_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' @@ -2704,6 +2737,7 @@ win_x <- allocMem :: IO (Ptr Int32) win_y <- allocMem :: IO (Ptr Int32) result <- gdk_display_get_window_at_pointer _obj' win_x win_y + checkUnexpectedReturnNULL "gdk_display_get_window_at_pointer" result result' <- (newObject Window) result win_x' <- peek win_x win_y' <- peek win_y @@ -2809,6 +2843,7 @@ 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 @@ -2863,6 +2898,7 @@ displayPeekEvent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_peek_event _obj' + checkUnexpectedReturnNULL "gdk_display_peek_event" result result' <- (wrapBoxed Event) result touchManagedPtr _obj return result' @@ -3314,6 +3350,7 @@ m Display displayGetDefault = liftIO $ do result <- gdk_display_get_default + checkUnexpectedReturnNULL "gdk_display_get_default" result result' <- (newObject Display) result return result' @@ -3338,6 +3375,7 @@ displayOpen display_name = liftIO $ do display_name' <- textToCString display_name result <- gdk_display_open display_name' + checkUnexpectedReturnNULL "gdk_display_open" result result' <- (newObject Display) result freeMem display_name' return result' @@ -3360,6 +3398,7 @@ m Display displayOpenDefaultLibgtkOnly = liftIO $ do result <- gdk_display_open_default_libgtk_only + checkUnexpectedReturnNULL "gdk_display_open_default_libgtk_only" result result' <- (newObject Display) result return result' @@ -3485,6 +3524,7 @@ displayManagerGetDefaultDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_display_manager_get_default_display _obj' + checkUnexpectedReturnNULL "gdk_display_manager_get_default_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' @@ -3510,6 +3550,7 @@ 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 @@ -3540,6 +3581,7 @@ let _obj' = unsafeManagedPtrCastPtr _obj name' <- textToCString name result <- gdk_display_manager_open_display _obj' name' + checkUnexpectedReturnNULL "gdk_display_manager_open_display" result result' <- (newObject Display) result touchManagedPtr _obj freeMem name' @@ -3591,6 +3633,7 @@ m DisplayManager displayManagerGet = liftIO $ do result <- gdk_display_manager_get + checkUnexpectedReturnNULL "gdk_display_manager_get" result result' <- (newObject DisplayManager) result return result' @@ -3740,6 +3783,7 @@ dragContextGetDestWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_dest_window _obj' + checkUnexpectedReturnNULL "gdk_drag_context_get_dest_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -3765,6 +3809,7 @@ dragContextGetDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_device _obj' + checkUnexpectedReturnNULL "gdk_drag_context_get_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' @@ -3840,6 +3885,7 @@ dragContextGetSourceWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_drag_context_get_source_window _obj' + checkUnexpectedReturnNULL "gdk_drag_context_get_source_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -3890,6 +3936,7 @@ 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' @@ -4117,6 +4164,7 @@ eventNew type_ = liftIO $ do let type_' = (fromIntegral . fromEnum) type_ result <- gdk_event_new type_' + checkUnexpectedReturnNULL "gdk_event_new" result result' <- (wrapBoxed Event) result return result' @@ -4141,6 +4189,7 @@ eventCopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_copy _obj' + checkUnexpectedReturnNULL "gdk_event_copy" result result' <- (wrapBoxed Event) result touchManagedPtr _obj return result' @@ -4316,6 +4365,7 @@ eventGetDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_device _obj' + checkUnexpectedReturnNULL "gdk_event_get_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' @@ -4341,6 +4391,7 @@ eventGetEventSequence _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_event_sequence _obj' + checkUnexpectedReturnNULL "gdk_event_get_event_sequence" result result' <- (newBoxed EventSequence) result touchManagedPtr _obj return result' @@ -4484,6 +4535,7 @@ eventGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_screen _obj' + checkUnexpectedReturnNULL "gdk_event_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' @@ -4574,6 +4626,7 @@ eventGetSourceDevice _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_source_device _obj' + checkUnexpectedReturnNULL "gdk_event_get_source_device" result result' <- (newObject Device) result touchManagedPtr _obj return result' @@ -4653,6 +4706,7 @@ eventGetWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_event_get_window _obj' + checkUnexpectedReturnNULL "gdk_event_get_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -6164,6 +6218,7 @@ frameClockGetCurrentTimings _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_frame_clock_get_current_timings _obj' + checkUnexpectedReturnNULL "gdk_frame_clock_get_current_timings" result result' <- (wrapBoxed FrameTimings) result touchManagedPtr _obj return result' @@ -6293,6 +6348,7 @@ frameClockGetTimings _obj frame_counter = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_frame_clock_get_timings _obj' frame_counter + checkUnexpectedReturnNULL "gdk_frame_clock_get_timings" result result' <- (wrapBoxed FrameTimings) result touchManagedPtr _obj return result' @@ -6810,6 +6866,7 @@ frameTimingsRef _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_frame_timings_ref _obj' + checkUnexpectedReturnNULL "gdk_frame_timings_ref" result result' <- (wrapBoxed FrameTimings) result touchManagedPtr _obj return result' @@ -6928,6 +6985,7 @@ gLContextGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_display _obj' + checkUnexpectedReturnNULL "gdk_gl_context_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' @@ -6958,7 +7016,7 @@ return result' -- XXX Could not generate method GLContext::get_required_version --- Error was : Bad introspection data: "argument \"major\" is not of nullable type, but it is marked as such." +-- Error was : Bad introspection data: "argument \"major\" is not of nullable type (TBasicType TInt32), but it is marked as such." -- method GLContext::get_shared_context -- method type : OrdinaryMethod -- Args : [Arg {argName = "_obj", argType = TInterface "Gdk" "GLContext", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}] @@ -6980,6 +7038,7 @@ gLContextGetSharedContext _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_shared_context _obj' + checkUnexpectedReturnNULL "gdk_gl_context_get_shared_context" result result' <- (newObject GLContext) result touchManagedPtr _obj return result' @@ -7037,6 +7096,7 @@ gLContextGetWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_gl_context_get_window _obj' + checkUnexpectedReturnNULL "gdk_gl_context_get_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -7214,6 +7274,7 @@ m GLContext gLContextGetCurrent = liftIO $ do result <- gdk_gl_context_get_current + checkUnexpectedReturnNULL "gdk_gl_context_get_current" result result' <- (newObject GLContext) result return result' @@ -7908,6 +7969,7 @@ m Keymap keymapGetDefault = liftIO $ do result <- gdk_keymap_get_default + checkUnexpectedReturnNULL "gdk_keymap_get_default" result result' <- (newObject Keymap) result return result' @@ -7932,6 +7994,7 @@ keymapGetForDisplay display = liftIO $ do let display' = unsafeManagedPtrCastPtr display result <- gdk_keymap_get_for_display display' + checkUnexpectedReturnNULL "gdk_keymap_get_for_display" result result' <- (newObject Keymap) result touchManagedPtr display return result' @@ -8401,6 +8464,7 @@ rGBACopy _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_rgba_copy _obj' + checkUnexpectedReturnNULL "gdk_rgba_copy" result result' <- (wrapBoxed RGBA) result touchManagedPtr _obj return result' @@ -8532,6 +8596,7 @@ rGBAToString _obj = liftIO $ do let _obj' = unsafeManagedPtrGetPtr _obj result <- gdk_rgba_to_string _obj' + checkUnexpectedReturnNULL "gdk_rgba_to_string" result result' <- cstringToText result freeMem result touchManagedPtr _obj @@ -8579,6 +8644,7 @@ screenGetActiveWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_active_window _obj' + checkUnexpectedReturnNULL "gdk_screen_get_active_window" result result' <- (wrapObject Window) result touchManagedPtr _obj return result' @@ -8604,6 +8670,7 @@ screenGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_display _obj' + checkUnexpectedReturnNULL "gdk_screen_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' @@ -8629,6 +8696,7 @@ screenGetFontOptions _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_font_options _obj' + checkUnexpectedReturnNULL "gdk_screen_get_font_options" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Cairo.FontOptions <$> newForeignPtr_ x) result touchManagedPtr _obj @@ -8816,6 +8884,7 @@ screenGetMonitorPlugName _obj monitor_num = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_monitor_plug_name _obj' monitor_num + checkUnexpectedReturnNULL "gdk_screen_get_monitor_plug_name" result result' <- cstringToText result freeMem result touchManagedPtr _obj @@ -9020,6 +9089,7 @@ screenGetRgbaVisual _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_rgba_visual _obj' + checkUnexpectedReturnNULL "gdk_screen_get_rgba_visual" result result' <- (newObject Visual) result touchManagedPtr _obj return result' @@ -9045,6 +9115,7 @@ screenGetRootWindow _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_root_window _obj' + checkUnexpectedReturnNULL "gdk_screen_get_root_window" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -9103,6 +9174,7 @@ screenGetSystemVisual _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_system_visual _obj' + checkUnexpectedReturnNULL "gdk_screen_get_system_visual" result result' <- (newObject Visual) result touchManagedPtr _obj return result' @@ -9128,6 +9200,7 @@ screenGetToplevelWindows _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_toplevel_windows _obj' + checkUnexpectedReturnNULL "gdk_screen_get_toplevel_windows" result result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result @@ -9203,6 +9276,7 @@ screenGetWindowStack _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_get_window_stack _obj' + checkUnexpectedReturnNULL "gdk_screen_get_window_stack" result result' <- unpackGList result result'' <- mapM (wrapObject Window) result' g_list_free result @@ -9255,6 +9329,7 @@ screenListVisuals _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_list_visuals _obj' + checkUnexpectedReturnNULL "gdk_screen_list_visuals" result result' <- unpackGList result result'' <- mapM (newObject Visual) result' g_list_free result @@ -9282,6 +9357,7 @@ screenMakeDisplayName _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_screen_make_display_name _obj' + checkUnexpectedReturnNULL "gdk_screen_make_display_name" result result' <- cstringToText result freeMem result touchManagedPtr _obj @@ -9364,6 +9440,7 @@ m Screen screenGetDefault = liftIO $ do result <- gdk_screen_get_default + checkUnexpectedReturnNULL "gdk_screen_get_default" result result' <- (newObject Screen) result return result' @@ -9936,6 +10013,7 @@ visualGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_visual_get_screen _obj' + checkUnexpectedReturnNULL "gdk_visual_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' @@ -9983,6 +10061,7 @@ m Visual visualGetBest = liftIO $ do result <- gdk_visual_get_best + checkUnexpectedReturnNULL "gdk_visual_get_best" result result' <- (newObject Visual) result return result' @@ -10050,6 +10129,7 @@ visualGetBestWithBoth depth visual_type = liftIO $ do let visual_type' = (fromIntegral . fromEnum) visual_type result <- gdk_visual_get_best_with_both depth visual_type' + checkUnexpectedReturnNULL "gdk_visual_get_best_with_both" result result' <- (newObject Visual) result return result' @@ -10073,6 +10153,7 @@ m Visual visualGetBestWithDepth depth = liftIO $ do result <- gdk_visual_get_best_with_depth depth + checkUnexpectedReturnNULL "gdk_visual_get_best_with_depth" result result' <- (newObject Visual) result return result' @@ -10097,6 +10178,7 @@ visualGetBestWithType visual_type = liftIO $ do let visual_type' = (fromIntegral . fromEnum) visual_type result <- gdk_visual_get_best_with_type visual_type' + checkUnexpectedReturnNULL "gdk_visual_get_best_with_type" result result' <- (newObject Visual) result return result' @@ -10118,6 +10200,7 @@ m Visual visualGetSystem = liftIO $ do result <- gdk_visual_get_system + checkUnexpectedReturnNULL "gdk_visual_get_system" result result' <- (newObject Visual) result return result' @@ -10285,6 +10368,7 @@ let attributes' = unsafeManagedPtrGetPtr attributes let attributes_mask' = gflagsToWord attributes_mask result <- gdk_window_new maybeParent attributes' attributes_mask' + checkUnexpectedReturnNULL "gdk_window_new" result result' <- (wrapObject Window) result whenJust parent touchManagedPtr touchManagedPtr attributes @@ -10639,6 +10723,7 @@ let _obj' = unsafeManagedPtrCastPtr _obj onException (do result <- propagateGError $ gdk_window_create_gl_context _obj' + checkUnexpectedReturnNULL "gdk_window_create_gl_context" result result' <- (wrapObject GLContext) result touchManagedPtr _obj return result' @@ -10675,6 +10760,7 @@ windowCreateSimilarImageSurface _obj format width height scale = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_create_similar_image_surface _obj' format width height scale + checkUnexpectedReturnNULL "gdk_window_create_similar_image_surface" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr _obj return result' @@ -10707,6 +10793,7 @@ let _obj' = unsafeManagedPtrCastPtr _obj let content' = (fromIntegral . fromEnum) content result <- gdk_window_create_similar_surface _obj' content' width height + checkUnexpectedReturnNULL "gdk_window_create_similar_surface" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr _obj return result' @@ -11048,6 +11135,7 @@ windowGetBackgroundPattern _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_background_pattern _obj' + checkUnexpectedReturnNULL "gdk_window_get_background_pattern" result result' <- (newBoxed Cairo.Pattern) result touchManagedPtr _obj return result' @@ -11073,6 +11161,7 @@ windowGetChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_children _obj' + checkUnexpectedReturnNULL "gdk_window_get_children" result result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result @@ -11102,6 +11191,7 @@ windowGetChildrenWithUserData _obj user_data = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_children_with_user_data _obj' user_data + checkUnexpectedReturnNULL "gdk_window_get_children_with_user_data" result result' <- unpackGList result result'' <- mapM (newObject Window) result' g_list_free result @@ -11129,6 +11219,7 @@ windowGetClipRegion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_clip_region _obj' + checkUnexpectedReturnNULL "gdk_window_get_clip_region" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr _obj return result' @@ -11179,6 +11270,7 @@ windowGetCursor _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_cursor _obj' + checkUnexpectedReturnNULL "gdk_window_get_cursor" result result' <- (newObject Cursor) result touchManagedPtr _obj return result' @@ -11237,6 +11329,7 @@ let _obj' = unsafeManagedPtrCastPtr _obj let device' = unsafeManagedPtrCastPtr device result <- gdk_window_get_device_cursor _obj' device' + checkUnexpectedReturnNULL "gdk_window_get_device_cursor" result result' <- (newObject Cursor) result touchManagedPtr _obj touchManagedPtr device @@ -11301,6 +11394,7 @@ y <- allocMem :: IO (Ptr Int32) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_device_position _obj' device' x y mask + checkUnexpectedReturnNULL "gdk_window_get_device_position" result result' <- (newObject Window) result x' <- peek x y' <- peek y @@ -11343,6 +11437,7 @@ y <- allocMem :: IO (Ptr CDouble) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_device_position_double _obj' device' x y mask + checkUnexpectedReturnNULL "gdk_window_get_device_position_double" result result' <- (newObject Window) result x' <- peek x let x'' = realToFrac x' @@ -11378,6 +11473,7 @@ windowGetDisplay _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_display _obj' + checkUnexpectedReturnNULL "gdk_window_get_display" result result' <- (newObject Display) result touchManagedPtr _obj return result' @@ -11433,6 +11529,7 @@ windowGetEffectiveParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_effective_parent _obj' + checkUnexpectedReturnNULL "gdk_window_get_effective_parent" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -11458,6 +11555,7 @@ windowGetEffectiveToplevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_effective_toplevel _obj' + checkUnexpectedReturnNULL "gdk_window_get_effective_toplevel" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -11558,6 +11656,7 @@ windowGetFrameClock _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_frame_clock _obj' + checkUnexpectedReturnNULL "gdk_window_get_frame_clock" result result' <- (newObject FrameClock) result touchManagedPtr _obj return result' @@ -11675,6 +11774,7 @@ windowGetGroup _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_group _obj' + checkUnexpectedReturnNULL "gdk_window_get_group" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -11781,6 +11881,7 @@ windowGetParent _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_parent _obj' + checkUnexpectedReturnNULL "gdk_window_get_parent" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -11812,6 +11913,7 @@ y <- allocMem :: IO (Ptr Int32) mask <- allocMem :: IO (Ptr CUInt) result <- gdk_window_get_pointer _obj' x y mask + checkUnexpectedReturnNULL "gdk_window_get_pointer" result result' <- (newObject Window) result x' <- peek x y' <- peek y @@ -11968,6 +12070,7 @@ windowGetScreen _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_screen _obj' + checkUnexpectedReturnNULL "gdk_window_get_screen" result result' <- (newObject Screen) result touchManagedPtr _obj return result' @@ -12071,6 +12174,7 @@ windowGetToplevel _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_toplevel _obj' + checkUnexpectedReturnNULL "gdk_window_get_toplevel" result result' <- (newObject Window) result touchManagedPtr _obj return result' @@ -12121,6 +12225,7 @@ windowGetUpdateArea _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_update_area _obj' + checkUnexpectedReturnNULL "gdk_window_get_update_area" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr _obj return result' @@ -12174,6 +12279,7 @@ windowGetVisibleRegion _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_visible_region _obj' + checkUnexpectedReturnNULL "gdk_window_get_visible_region" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr _obj return result' @@ -12199,6 +12305,7 @@ windowGetVisual _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_get_visual _obj' + checkUnexpectedReturnNULL "gdk_window_get_visual" result result' <- (newObject Visual) result touchManagedPtr _obj return result' @@ -12823,6 +12930,7 @@ windowPeekChildren _obj = liftIO $ do let _obj' = unsafeManagedPtrCastPtr _obj result <- gdk_window_peek_children _obj' + checkUnexpectedReturnNULL "gdk_window_peek_children" result result' <- unpackGList result result'' <- mapM (newObject Window) result' touchManagedPtr _obj @@ -14437,6 +14545,7 @@ win_x <- allocMem :: IO (Ptr Int32) win_y <- allocMem :: IO (Ptr Int32) result <- gdk_window_at_pointer win_x win_y + checkUnexpectedReturnNULL "gdk_window_at_pointer" result result' <- (newObject Window) result win_x' <- peek win_x win_y' <- peek win_y @@ -24341,6 +24450,7 @@ atom_name' <- textToCString atom_name let only_if_exists' = (fromIntegral . fromEnum) only_if_exists result <- gdk_atom_intern atom_name' only_if_exists' + checkUnexpectedReturnNULL "gdk_atom_intern" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Atom <$> newForeignPtr_ x) result freeMem atom_name' @@ -24366,6 +24476,7 @@ atomInternStaticString atom_name = liftIO $ do atom_name' <- textToCString atom_name result <- gdk_atom_intern_static_string atom_name' + checkUnexpectedReturnNULL "gdk_atom_intern_static_string" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Atom <$> newForeignPtr_ x) result freeMem atom_name' @@ -24410,6 +24521,7 @@ cairoCreate window = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_cairo_create window' + checkUnexpectedReturnNULL "gdk_cairo_create" result result' <- (wrapBoxed Cairo.Context) result touchManagedPtr window return result' @@ -24556,6 +24668,7 @@ cairoRegionCreateFromSurface surface = liftIO $ do let surface' = unsafeManagedPtrGetPtr surface result <- gdk_cairo_region_create_from_surface surface' + checkUnexpectedReturnNULL "gdk_cairo_region_create_from_surface" result result' <- (wrapBoxed Cairo.Region) result touchManagedPtr surface return result' @@ -24709,6 +24822,7 @@ let jFor_window' = unsafeManagedPtrCastPtr jFor_window return jFor_window' result <- gdk_cairo_surface_create_from_pixbuf pixbuf' scale maybeFor_window + checkUnexpectedReturnNULL "gdk_cairo_surface_create_from_pixbuf" result result' <- (wrapBoxed Cairo.Surface) result touchManagedPtr pixbuf whenJust for_window touchManagedPtr @@ -24809,6 +24923,7 @@ let targets' = map unsafeManagedPtrGetPtr targets targets'' <- packGList targets' result <- gdk_drag_begin window' targets'' + checkUnexpectedReturnNULL "gdk_drag_begin" result result' <- (wrapObject DragContext) result touchManagedPtr window mapM_ touchManagedPtr targets @@ -24842,6 +24957,7 @@ let targets' = map unsafeManagedPtrGetPtr targets targets'' <- packGList targets' result <- gdk_drag_begin_for_device window' device' targets'' + checkUnexpectedReturnNULL "gdk_drag_begin_for_device" result result' <- (wrapObject DragContext) result touchManagedPtr window touchManagedPtr device @@ -24963,6 +25079,7 @@ dragGetSelection context = liftIO $ do let context' = unsafeManagedPtrCastPtr context result <- gdk_drag_get_selection context' + checkUnexpectedReturnNULL "gdk_drag_get_selection" result -- XXX Wrapping a foreign struct/union with no known destructor, leak? result' <- (\x -> Atom <$> newForeignPtr_ x) result touchManagedPtr context @@ -25169,6 +25286,7 @@ m Event eventGet = liftIO $ do result <- gdk_event_get + checkUnexpectedReturnNULL "gdk_event_get" result result' <- (wrapBoxed Event) result return result' @@ -25215,6 +25333,7 @@ m Event eventPeek = liftIO $ do result <- gdk_event_peek + checkUnexpectedReturnNULL "gdk_event_peek" result result' <- (wrapBoxed Event) result return result' @@ -25401,6 +25520,7 @@ m Window getDefaultRootWindow = liftIO $ do result <- gdk_get_default_root_window + checkUnexpectedReturnNULL "gdk_get_default_root_window" result result' <- (newObject Window) result return result' @@ -25421,6 +25541,7 @@ m T.Text getDisplay = liftIO $ do result <- gdk_get_display + checkUnexpectedReturnNULL "gdk_get_display" result result' <- cstringToText result freeMem result return result' @@ -25442,6 +25563,7 @@ m T.Text getDisplayArgName = liftIO $ do result <- gdk_get_display_arg_name + checkUnexpectedReturnNULL "gdk_get_display_arg_name" result result' <- cstringToText result return result' @@ -25462,6 +25584,7 @@ m T.Text getProgramClass = liftIO $ do result <- gdk_get_program_class + checkUnexpectedReturnNULL "gdk_get_program_class" result result' <- cstringToText result return result' @@ -25740,6 +25863,7 @@ m T.Text keyvalName keyval = liftIO $ do result <- gdk_keyval_name keyval + checkUnexpectedReturnNULL "gdk_keyval_name" result result' <- cstringToText result return result' @@ -25823,6 +25947,7 @@ m [Visual] listVisuals = liftIO $ do result <- gdk_list_visuals + checkUnexpectedReturnNULL "gdk_list_visuals" result result' <- unpackGList result result'' <- mapM (newObject Visual) result' g_list_free result @@ -25890,6 +26015,7 @@ offscreenWindowGetEmbedder window = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_offscreen_window_get_embedder window' + checkUnexpectedReturnNULL "gdk_offscreen_window_get_embedder" result result' <- (newObject Window) result touchManagedPtr window return result' @@ -25914,6 +26040,7 @@ offscreenWindowGetSurface window = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_offscreen_window_get_surface window' + checkUnexpectedReturnNULL "gdk_offscreen_window_get_surface" result result' <- (newBoxed Cairo.Surface) result touchManagedPtr window return result' @@ -25962,6 +26089,7 @@ m Pango.Context pangoContextGet = liftIO $ do result <- gdk_pango_context_get + checkUnexpectedReturnNULL "gdk_pango_context_get" result result' <- (wrapObject Pango.Context) result return result' @@ -25985,6 +26113,7 @@ pangoContextGetForScreen screen = liftIO $ do let screen' = unsafeManagedPtrCastPtr screen result <- gdk_pango_context_get_for_screen screen' + checkUnexpectedReturnNULL "gdk_pango_context_get_for_screen" result result' <- (wrapObject Pango.Context) result touchManagedPtr screen return result' @@ -26052,6 +26181,7 @@ pixbufGetFromSurface surface src_x src_y width height = liftIO $ do let surface' = unsafeManagedPtrGetPtr surface result <- gdk_pixbuf_get_from_surface surface' src_x src_y width height + checkUnexpectedReturnNULL "gdk_pixbuf_get_from_surface" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr surface return result' @@ -26084,6 +26214,7 @@ pixbufGetFromWindow window src_x src_y width height = liftIO $ do let window' = unsafeManagedPtrCastPtr window result <- gdk_pixbuf_get_from_window window' src_x src_y width height + checkUnexpectedReturnNULL "gdk_pixbuf_get_from_window" result result' <- (wrapObject GdkPixbuf.Pixbuf) result touchManagedPtr window return result' @@ -26472,6 +26603,7 @@ selectionOwnerGet selection = liftIO $ do let selection' = unsafeManagedPtrGetPtr selection result <- gdk_selection_owner_get selection' + checkUnexpectedReturnNULL "gdk_selection_owner_get" result result' <- (newObject Window) result touchManagedPtr selection return result' @@ -26499,6 +26631,7 @@ let display' = unsafeManagedPtrCastPtr display let selection' = unsafeManagedPtrGetPtr selection result <- gdk_selection_owner_get_for_display display' selection' + checkUnexpectedReturnNULL "gdk_selection_owner_get_for_display" result result' <- (newObject Window) result touchManagedPtr display touchManagedPtr selection @@ -27129,6 +27262,7 @@ utf8ToStringTarget str = liftIO $ do str' <- textToCString str result <- gdk_utf8_to_string_target str' + checkUnexpectedReturnNULL "gdk_utf8_to_string_target" result result' <- cstringToText result freeMem result freeMem str' diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -454,49 +454,3 @@ FAILURE OF THE LIBRARY TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. - - END OF TERMS AND CONDITIONS - - How to Apply These Terms to Your New Libraries - - If you develop a new library, and you want it to be of the greatest -possible use to the public, we recommend making it free software that -everyone can redistribute and change. You can do so by permitting -redistribution under these terms (or, alternatively, under the terms of the -ordinary General Public License). - - To apply these terms, attach the following notices to the library. It is -safest to attach them to the start of each source file to most effectively -convey the exclusion of warranty; and each file should have at least the -"copyright" line and a pointer to where the full notice is found. - - - Copyright (C) - - This library is free software; you can redistribute it and/or - modify it under the terms of the GNU Lesser General Public - License as published by the Free Software Foundation; either - version 2.1 of the License, or (at your option) any later version. - - This library is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - Lesser General Public License for more details. - - You should have received a copy of the GNU Lesser General Public - License along with this library; if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA - -Also add information on how to contact you by electronic and paper mail. - -You should also get your employer (if you work as a programmer) or your -school, if any, to sign a "copyright disclaimer" for the library, if -necessary. Here is a sample; alter the names: - - Yoyodyne, Inc., hereby disclaims all copyright interest in the - library `Frob' (a library for tweaking knobs) written by James Random Hacker. - - , 1 April 1990 - Ty Coon, President of Vice - -That's all there is to it! diff --git a/gi-gdk.cabal b/gi-gdk.cabal --- a/gi-gdk.cabal +++ b/gi-gdk.cabal @@ -1,6 +1,6 @@ -- Autogenerated, do not edit. name: gi-gdk -version: 0.3.16.9 +version: 0.3.16.10 synopsis: Gdk bindings description: Bindings for Gdk, autogenerated by haskell-gi. homepage: https://github.com/haskell-gi/haskell-gi @@ -17,13 +17,13 @@ exposed-modules: GI.Gdk, GI.GdkAttributes, GI.GdkSignals pkgconfig-depends: gdk-3.0 >= 3.16 build-depends: base >= 4.7 && <5, - haskell-gi-base >= 0.9 && < 1, - gi-glib >= 0.2.44.9 && < 0.3, - gi-gobject >= 0.2.44.9 && < 0.3, - gi-gdkpixbuf >= 0.2.31.9 && < 0.3, - gi-gio >= 0.2.44.9 && < 0.3, - gi-pango >= 0.1.36.9 && < 0.2, - gi-cairo >= 0.1.14.9 && < 0.2, + haskell-gi-base >= 0.10 && < 1, + gi-glib >= 0.2.44.10 && < 0.3, + gi-gobject >= 0.2.44.10 && < 0.3, + gi-gdkpixbuf >= 0.2.31.10 && < 0.3, + gi-gio >= 0.2.44.10 && < 0.3, + gi-pango >= 0.1.36.10 && < 0.2, + gi-cairo >= 0.1.14.10 && < 0.2, bytestring >= 0.10, containers >= 0.5, text >= 1.0,