gi-gdk 0.3.16.9 → 0.3.16.10
raw patch · 3 files changed
+143/−55 lines, 3 filesdep ~gi-cairodep ~gi-gdkpixbufdep ~gi-gio
Dependency ranges changed: gi-cairo, gi-gdkpixbuf, gi-gio, gi-glib, gi-gobject, gi-pango, haskell-gi-base
Files
- GI/Gdk.hs +135/−1
- LICENSE +0/−46
- gi-gdk.cabal +8/−8
GI/Gdk.hs view
@@ -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'
LICENSE view
@@ -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.-- <one line to give the library's name and a brief idea of what it does.>- Copyright (C) <year> <name of author>-- 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.-- <signature of Ty Coon>, 1 April 1990- Ty Coon, President of Vice--That's all there is to it!
gi-gdk.cabal view
@@ -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,