Add gtk:widget-intersect-region

[cl-gtk2.git] / gtk / gtk.widget.lisp

diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp
index efffbf6..3ce426c 100644 (file)
--- a/gtk/gtk.widget.lisp
+++ b/gtk/gtk.widget.lisp
@@ -465,9 +465,13 @@
 
 ; TODO: gtk_widget_class_list_style_properties
 
-; TODO: gtk_widget_region_intersect
+(defcfun (widget-region-intersect "gtk_widget_region_intersect") (g-boxed-foreign region :return)
+  (widget (g-object widget))
+  (region (g-boxed-foreign region)))
+
+(export 'widget-region-intersect)
 
-; TODO: gtk_widget_send_expose
+; ignored: gtk_widget_send_expose
 
 (defcfun gtk-widget-style-get-property :void
   (widget g-object)