gdk/gdk.package.lisp

   1 (defpackage :gdk
   2   (:use :cl :gobject :cffi :pango)
   3   (:export #:gdk-window-events
   4            #:gdk-gc-set-rgb-fg-color
   5            #:gdk-drawable-get-size
   6            #:gdk-draw-line
   7            #:gdk-gc-new
   8            #:drawable-get-size
   9            #:gdk-draw-layout
  10            #:gdk-atom-as-string
  11            #:gdk-window-events))
  12
  13 (in-package :gdk)
  14
  15 (eval-when (:compile-toplevel :load-toplevel :execute)
  16   (define-foreign-library gdk
  17     (:unix (:or "libgdk-x11-2.0.so.0" "libgdk-x11-2.0.so"))
  18     (:windows "libgdk-win32-2.0-0.dll")
  19     (t "libgdk-2.0"))
  20   (define-foreign-library gdk-pixbuf
  21     (:unix (:or "libgdk_pixbuf-2.0.so.0" "libgdk_pixbuf-2.0.so"))
  22     (:windows (:or "libgdk_pixbuf-win32-2.0-0" "libgdk_pixbuf-2.0-0.dll"))
  23     (t "libgdk_pixbuf-2.0")))
  24
  25 (use-foreign-library gdk)
  26 (use-foreign-library gdk-pixbuf)