X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.widget.lisp;h=3ce426c31df84074abd156b4764d878fa8a47967;hb=47431a5fc34ce6712f6da2fc1be684d2f1c74047;hp=efffbf6ffaf4066cfb058dd2f11c2e5385cb6bed;hpb=89b8d7f826c33afc4f8b14a0c7f284c975551dec;p=cl-gtk2.git

diff --git a/gtk/gtk.widget.lisp b/gtk/gtk.widget.lisp
index efffbf6..3ce426c 100644
--- 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)