Artifact 7c9cf1a398d0a3310a4af161704ac7aedecabf63:

• File canvas-draw/canvas-draw-server.scm — part of check-in [b465d05d14] at 2013-05-11 16:59:59 on branch trunk — Updated iup and added canvas-draw (user: matt, size: 371) [annotate] [blame] [check-ins using]

;; -*- mode: Scheme; tab-width: 2; -*- ;;

;; {{{ Data types

(foreign-declare
	"#include <cd.h>\n"
	"#include <cdimage.h>\n"
	"#include <cddbuf.h>\n")

(include "canvas-draw-types.scm")

;; }}}

;; {{{ Context types

(define context:image
	(foreign-value "CD_IMAGE" nonnull-context))

(define context:double-buffer
	(foreign-value "CD_DBUFFER" nonnull-context))

;; }}}