Artifact e0d6041291334a9530a5611840f93c4aed75418e:
- File canvas-draw/chicken/canvas-draw-clipboard.scm — part of check-in [ed10f826ff] at 2011-01-30 17:39:09 on branch trunk — Re-ran configure in ffcall and imported canvas-draw source (user: matt, size: 375) [annotate] [blame] [check-ins using]
(require-library canvas-draw-base) (module canvas-draw-clipboard (context:clipboard) (import scheme chicken foreign canvas-draw-base) ;; {{{ Data types (foreign-declare "#include <cd.h>\n" "#include <cdclipbd.h>\n") (include "canvas-draw-types.scm") ;; }}} ;; {{{ Context types (define context:clipboard (foreign-value "CD_CLIPBOARD" nonnull-context)) ;; }}} )