;; 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.19 2006/02/07 13:22:14 espen Exp $
(in-package "GDK")
(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))
+
+ (defmacro with-cairo-context ((cr drawable) &body body)
+ `(let ((,cr (cairo-create ,drawable)))
+ (unwind-protect
+ (progn ,@body)
+ (unreference-foreign 'cairo:context (foreign-location ,cr))
+ (invalidate-instance ,cr))))
+
+ (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))
+)