From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 31 Oct 2009 20:09:49 +0000 (+0300)
Subject: Add gtk:widget-intersect-region
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=47431a5fc34ce6712f6da2fc1be684d2f1c74047;p=cl-gtk2.git

Add gtk:widget-intersect-region
---

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)