From: espen <espen>
Date: Thu, 10 Nov 2005 09:01:36 +0000 (+0000)
Subject: Added cairo bindings
X-Git-Tag: clg-0-92~120
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/78dc8487338903b27c0490f79f7e4a1afacfa7cb?ds=sidebyside

Added cairo bindings
---

diff --git a/gdk/gdk.lisp b/gdk/gdk.lisp
index 6800336..d3dae2e 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.17 2005/04/23 16:48:50 espen Exp $
+;; $Id: gdk.lisp,v 1.18 2005/11/10 09:01:36 espen Exp $
 
 
 (in-package "GDK")
@@ -705,3 +705,28 @@ (defbinding (keyval-is-upper-p "gdk_keyval_is_upper") () boolean
 (defbinding (keyval-is-lower-p "gdk_keyval_is_lower") () boolean
   (keyval unsigned-int))
 
+;;; Cairo interaction
+
+#+gtk2.8
+(progn
+  (defbinding cairo-create () cairo:context
+    (drawable drawable))
+
+  (defbinding cairo-set-source-color () nil
+    (cr cairo:context)
+    (color color))
+
+  (defbinding cairo-set-source-pixbuf () nil
+    (cr cairo:context)
+    (pixbuf pixbuf)
+    (x double-float)
+    (y double-float))
+ 
+  (defbinding cairo-rectangle () nil
+    (cr cairo:context)
+    (rectangle rectangle))
+ 
+;;   (defbinding cairo-region () nil
+;;     (cr cairo:context)
+;;     (region region))
+)