gtk: Add gtk-window-set-accept-focus.

diff --git a/src/gtk/Includes/gtkwindow.cdecl b/src/gtk/Includes/gtkwindow.cdecl
index 9c3b00cbfe8623f3e5ef1fd7c34303d0b2c124de..795f530aaf9bb62d2c0c354cfc7c584f18995a78 100644 (file)
--- a/src/gtk/Includes/gtkwindow.cdecl
+++ b/src/gtk/Includes/gtkwindow.cdecl
@@ -25,6 +25,11 @@ gtk-2.0/gtk/gtkwindow.h |#
        (window (* GtkWindow))
        (hint GdkWindowTypeHint))
 
+(extern void
+       gtk_window_set_accept_focus
+       (window (* GtkWindow))
+       (setting gboolean))
+
 (extern void
        gtk_window_set_geometry_hints
        (window (* GtkWindow))

diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index d9d8fefcc5df41079155c15e41d0210301316176..0a6548bfd371ba8c37becb6a114615a11828003a 100644 (file)
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -848,6 +848,12 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
      (error:wrong-type-argument
       type "a symbol -- one of TOPLEVEL or POPUP" operator))))
 
+(define (gtk-window-set-accept-focus window accept?)
+  (guarantee-gtk-window window 'gtk-window-set-accept-focus)
+  (C-call "gtk_window_set_accept_focus"
+         (gobject-alien window)
+         (if (eq? accept? #f) 0 1)))
+
 (define (gtk-window-set-title window title)
   (guarantee-gtk-window window 'gtk-window-set-title)
   (guarantee-string title 'gtk-window-set-title)

diff --git a/src/gtk/gtk.pkg b/src/gtk/gtk.pkg
index f465923ceb15e66355380b5433f9345f20330946..d33f15950f2c60aba383ada6ec76b2e122cd8b52 100644 (file)
--- a/src/gtk/gtk.pkg
+++ b/src/gtk/gtk.pkg
@@ -107,6 +107,7 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
          <gtk-window> gtk-window? guarantee-gtk-window
          gtk-window-new gtk-window-type
+         gtk-window-set-accept-focus
          gtk-window-set-geometry-hints
          gtk-window-set-title
          gtk-window-set-type-hint