gtk: Implement already documented gtk-widget-is-composited?.

diff --git a/src/gtk/Includes/gtkwidget.cdecl b/src/gtk/Includes/gtkwidget.cdecl
index 3ad38ebf5097a149c7929e6631891cb018df47aa..84f6182aea5220a8009d90ff64656166704ecc16 100644 (file)
--- a/src/gtk/Includes/gtkwidget.cdecl
+++ b/src/gtk/Includes/gtkwidget.cdecl
@@ -374,4 +374,8 @@ gtk-2.0/gtk/gtkwidget.h |#
 (extern (* PangoLayout)
        gtk_widget_create_pango_layout
        (widget (* GtkWidget))
-       (text (* (const gchar))))
\ No newline at end of file
+       (text (* (const gchar))))
+
+(extern gboolean
+       gtk_widget_is_composited
+       (widget (* GtkWidget)))
\ No newline at end of file

diff --git a/src/gtk/gtk-object.scm b/src/gtk/gtk-object.scm
index 42beb702de139f16eb8ae5ac520f9f81831656a6..ddbe9f8d0a2621eccd63526ecbe5b1777246d4c1 100644 (file)
--- a/src/gtk/gtk-object.scm
+++ b/src/gtk/gtk-object.scm
@@ -169,6 +169,10 @@ USA.
     (and (bit? flags (C-enum "GTK_VISIBLE"))
         (bit? flags (C-enum "GTK_MAPPED")))))
 
+(define (gtk-widget-is-composited? widget)
+  (guarantee-gtk-widget widget 'gtk-widget-is-composited?)
+  (not (zero? (C-call "gtk_widget_is_composited" (gobject-alien widget)))))
+
 (define (gtk-widget-grab-focus widget)
   (guarantee-gtk-widget widget 'gtk-widget-grab-focus)
   (C-call "gtk_widget_grab_focus" (gobject-alien widget)))