Artifact ea82433da2d8c221147bdd0764d71869ddbf51db:
- File canvas-draw/racket/clipboard.rkt — 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: 389) [annotate] [blame] [check-ins using]
#lang racket/base (require ffi/unsafe "base.rkt") (define libcd-native (case (system-type 'os) [(unix macosx) (ffi-lib "libcdx11")] [(windows) (ffi-lib "cd")] [else (ffi-lib "libcd")])) ;; {{{ Context types (define context:clipboard ((get-ffi-obj "cdContextClipboard" libcd-native (_fun -> [context : _context])))) (provide context:clipboard) ;; }}}