gdk/gdk.package.lisp

   1 (defpackage :gdk
   2   (:use :cl :gobject :cffi :pango :iter)
   3   (:export #:gdk-window-events
   4            #:gdk-atom-as-string))
   5
   6 (in-package :gdk)
   7
   8 (glib:at-init ()
   9  (eval-when (:compile-toplevel :load-toplevel :execute)
  10    (define-foreign-library gdk
  11      (:unix (:or "libgdk-x11-2.0.so.0" "libgdk-x11-2.0.so"))
  12      (:windows "libgdk-win32-2.0-0.dll")
  13      (t "libgdk-2.0"))
  14    (define-foreign-library gdk-pixbuf
  15      (:unix (:or "libgdk_pixbuf-2.0.so.0" "libgdk_pixbuf-2.0.so"))
  16      (:windows (:or "libgdk_pixbuf-win32-2.0-0" "libgdk_pixbuf-2.0-0.dll"))
  17      (t "libgdk_pixbuf-2.0")))
  18
  19  (use-foreign-library gdk)
  20  (use-foreign-library gdk-pixbuf))