* Patch from Paul Ishenin

  - adds missing gdk 2.4 symbols



git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11560 3ad0048d-3df7-0310-abae-a5850022a9f2

7 files changed, 31 insertions, 0 deletions

diff --git a/packages/gtk2/src/gtk+/gdk/gdk2.pas b/packages/gtk2/src/gtk+/gdk/gdk2.pas
index aaa9f0f389..3885cd9eec 100644
--- a/packages/gtk2/src/gtk+/gdk/gdk2.pas
+++ b/packages/gtk2/src/gtk+/gdk/gdk2.pas
@@ -189,6 +189,7 @@ var
 procedure gdk_threads_enter; cdecl; external gdklib;
 procedure gdk_threads_leave; cdecl; external gdklib;
 procedure gdk_threads_init; cdecl; external gdklib;
+procedure gdk_threads_set_lock_functions(enter_fn: TGCallback; leave_fn: TGCallback); cdecl; external gdklib;
 
 procedure _GDK_THREADS_ENTER;
 procedure _GDK_THREADS_LEAVE;
diff --git a/packages/gtk2/src/gtk+/gdk/gdkcursor.inc b/packages/gtk2/src/gtk+/gdk/gdkcursor.inc
index a8b91f3026..d26bd381d0 100644
--- a/packages/gtk2/src/gtk+/gdk/gdkcursor.inc
+++ b/packages/gtk2/src/gtk+/gdk/gdkcursor.inc
@@ -114,6 +114,7 @@ function gdk_cursor_new(cursor_type:TGdkCursorType):PGdkCursor; cdecl; external
 
 function gdk_cursor_new_from_pixmap(source:PGdkPixmap; mask:PGdkPixmap; fg:PGdkColor; bg:PGdkColor; x:gint;
            y:gint):PGdkCursor; cdecl; external gdklib;
+function gdk_cursor_new_from_pixbuf(display: PGdkDisplay; pixbuf: PGdkPixbuf; x, y: gint): PGdkCursor; cdecl; external gdklib;
 function gdk_cursor_get_display(cursor: PGdkCursor):PGdkDisplay; cdecl; external gdklib;
 function gdk_cursor_get_screen(cursor:PGdkCursor):PGdkScreen; cdecl; external gdklib;
 function gdk_cursor_ref(cursor:PGdkCursor):PGdkCursor; cdecl; external gdklib;
diff --git a/packages/gtk2/src/gtk+/gdk/gdkdisplay.inc b/packages/gtk2/src/gtk+/gdk/gdkdisplay.inc
index 3c8e56f268..c2f44915a3 100644
--- a/packages/gtk2/src/gtk+/gdk/gdkdisplay.inc
+++ b/packages/gtk2/src/gtk+/gdk/gdkdisplay.inc
@@ -84,6 +84,14 @@ function gdk_display_get_core_pointer(display:PGdkDisplay): PGdkDevice; cdecl; e
 procedure gdk_display_get_pointer(display:PGdkDisplay; screen :PGdkScreen; x :Pgint; y : Pgint; mask : PGdkModifierType); cdecl; external gdklib;
 function gdk_display_get_window_at_pointer(display:PGdkDisplay; win_x: Pgint; win_y: Pgint): PGdkWindow; cdecl; external gdklib;
 function gdk_display_set_pointer_hooks(display: PGdkDisplay; new_hooks: PGdkDisplayPointerHooks): PGdkDisplayPointerHooks; cdecl; external gdklib;
+// 2.4 
+procedure gdk_display_flush(display: PGdkDisplay); cdecl; external gdklib;
+function gdk_display_get_default_cursor_size(display: PGdkDisplay): guint; cdecl; external gdklib;
+procedure gdk_display_get_maximal_cursor_size(display: PGdkDisplay; w, h: pguint); cdecl; external gdklib;
+function gdk_display_get_default_group(display: PGdkDisplay): PGdkWindow; cdecl; external gdklib;
+procedure gdk_display_set_double_click_distance(display: PGdkDisplay; distance: guint); cdecl; external gdklib;
+function gdk_display_supports_cursor_alpha(display: PGdkDisplay): gboolean; cdecl; external gdklib;
+function gdk_display_supports_cursor_color(display: PGdkDisplay): gboolean; cdecl; external gdklib;
 {$endif read_interface_rest}
 
 //------------------------------------------------------------------------------
diff --git a/packages/gtk2/src/gtk+/gdk/gdkdrawable.inc b/packages/gtk2/src/gtk+/gdk/gdkdrawable.inc
index 71cd7a4bbd..9f8dc9b9e2 100644
--- a/packages/gtk2/src/gtk+/gdk/gdkdrawable.inc
+++ b/packages/gtk2/src/gtk+/gdk/gdkdrawable.inc
@@ -168,6 +168,9 @@ procedure gdk_draw_bitmap(drawable:PGdkDrawable; gc:PGdkGC; src:PGdkDrawable; xs
 { GDK_DISABLE_DEPRECATED  }
 
 function gdk_drawable_get_image(drawable:PGdkDrawable; x:gint; y:gint; width:gint; height:gint):PGdkImage; cdecl; external gdklib;
+function gdk_drawable_copy_to_image(drawable:PGdkDrawable; image: PGdkImage; src_x: gint; src_y: gint; dest_x: gint; dest_y: gint;
+           width: gint; height: gint):PGdkImage; cdecl; external gdklib;
+
 function gdk_drawable_get_clip_region(drawable:PGdkDrawable):PGdkRegion; cdecl; external gdklib;
 function gdk_drawable_get_visible_region(drawable:PGdkDrawable):PGdkRegion; cdecl; external gdklib;
 {$endif read_interface_rest}
diff --git a/packages/gtk2/src/gtk+/gdk/gdkincludes.inc b/packages/gtk2/src/gtk+/gdk/gdkincludes.inc
index 3e3de69d46..49a13aa17d 100644
--- a/packages/gtk2/src/gtk+/gdk/gdkincludes.inc
+++ b/packages/gtk2/src/gtk+/gdk/gdkincludes.inc
@@ -24,6 +24,7 @@
 {$include gdkdisplay.inc}
 {$include gdkscreen.inc}
 {$include gdkselection.inc}
+{$include gdkspawn.inc}
 {$include gdktypes.inc}
 {$include gdkvisual.inc}
 {$include gdkwindow.inc}
diff --git a/packages/gtk2/src/gtk+/gdk/gdkspawn.inc b/packages/gtk2/src/gtk+/gdk/gdkspawn.inc
new file mode 100644
index 0000000000..1902108e8f
--- /dev/null
+++ b/packages/gtk2/src/gtk+/gdk/gdkspawn.inc
@@ -0,0 +1,13 @@
+// included by gdk2.pp
+
+{$IFDEF read_interface_rest}
+function gdk_spawn_on_screen(screen: PGdkScreen; working_directory: Pgchar; argv: PPgchar; envp: PPgchar;
+           flags: TGSpawnFlags; child_setup: TGSpawnChildSetupFunc; user_data: gpointer; child_pid: Pgint;
+           error: PPGError): gboolean; cdecl; external gdklib;
+
+function gdk_spawn_on_screen_with_pipes(screen: PGdkScreen; working_directory: Pgchar; argv: PPgchar; envp: PPgchar;
+           flags: TGSpawnFlags; child_setup: TGSpawnChildSetupFunc; user_data: gpointer; child_pid: Pgint;
+           standard_input: Pgint; standard_output: Pgint; standard_error: Pgint; error: PPGError): gboolean; cdecl; external gdklib;
+
+function gdk_spawn_command_line_on_screen(screen: PGdkScreen; command_line: Pgchar; error: PPGError): gboolean; cdecl; external gdklib;
+{$endif read_interface_rest}
diff --git a/packages/gtk2/src/gtk+/gdk/gdkwindow.inc b/packages/gtk2/src/gtk+/gdk/gdkwindow.inc
index 5e81d7c63c..5f4ade6d5d 100644
--- a/packages/gtk2/src/gtk+/gdk/gdkwindow.inc
+++ b/packages/gtk2/src/gtk+/gdk/gdkwindow.inc
@@ -421,6 +421,7 @@ procedure gdk_window_set_group(window:PGdkWindow; leader:PGdkWindow); cdecl; ext
 procedure gdk_window_set_decorations(window:PGdkWindow; decorations:TGdkWMDecoration); cdecl; external gdklib;
 function gdk_window_get_decorations(window:PGdkWindow; decorations:PGdkWMDecoration):gboolean; cdecl; external gdklib;
 procedure gdk_window_set_functions(window:PGdkWindow; functions:TGdkWMFunction); cdecl; external gdklib;
+function gdk_window_get_group(window: PGdkWindow): PGdkWindow; cdecl; external gdklib;
 
 {$ifndef GDK_MULTIHEAD_SAFE}
 function gdk_window_get_toplevels:PGList; cdecl; external gdklib;
@@ -482,6 +483,9 @@ procedure gdk_window_fullscreen(window: PGdkWindow); cdecl; external gdklib;
 procedure gdk_window_set_skip_pager_hint(window: PGdkWindow; skips_pager: gboolean); cdecl; external gdklib;
 procedure gdk_window_set_skip_taskbar_hint(window: PGdkWindow; skips_taskbar: gboolean); cdecl; external gdklib;
 procedure gdk_window_unfullscreen(window: PGdkWindow); cdecl; external gdklib;
+procedure gdk_window_set_accept_focus(window: PGdkWindow; accept_focus: gboolean); cdecl; external gdklib;
+procedure gdk_window_set_keep_above(window: PGdkWindow; setting: gboolean); cdecl; external gdklib;
+procedure gdk_window_set_keep_below(window: PGdkWindow; setting: gboolean); cdecl; external gdklib;
 {$endif read_interface_rest}
 
 //------------------------------------------------------------------------------