From 1c66c45f970603a0e638e641ea282b3e53f7c5c9 Mon Sep 17 00:00:00 2001 Message-Id: <1c66c45f970603a0e638e641ea282b3e53f7c5c9.1715459356.git.mdw@distorted.org.uk> From: Mark Wooding Date: Fri, 7 Sep 2007 07:36:26 +0000 Subject: [PATCH] Added CAIRO-REGION Organization: Straylight/Edgeware From: espen --- gdk/gdk.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp index fa5932e..6bcb6af 100644 --- a/gdk/gdk.lisp +++ b/gdk/gdk.lisp @@ -20,7 +20,7 @@ ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -;; $Id: gdk.lisp,v 1.43 2007-06-25 21:28:54 espen Exp $ +;; $Id: gdk.lisp,v 1.44 2007-09-07 07:36:26 espen Exp $ (in-package "GDK") @@ -1100,9 +1100,9 @@ (defbinding cairo-rectangle () nil (cr cairo:context) (rectangle rectangle)) -;; (defbinding cairo-region () nil -;; (cr cairo:context) -;; (region region)) + (defbinding cairo-region () nil + (cr cairo:context) + (region region)) (defbinding (cairo-surface-get-window "clg_gdk_cairo_surface_get_window") () window (surface cairo:surface)) -- [mdw]