+;;; 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))
+)