gtk-glext/gtkglext.package.lisp

   1 (defpackage :gtkglext
   2   (:use :cl :cffi :gobject :gtk :gdk :glib :iter)
   3   (:export #:with-gl-context #:with-matrix-mode
   4            #:gl-drawing-area
   5            #:gl-drawing-area-on-expose
   6            #:gl-drawing-area-on-init
   7            #:gl-drawing-area-on-resize))
   8
   9 (in-package :gtkglext)
  10
  11 (at-init ()
  12   (eval-when (:compile-toplevel :load-toplevel :execute)
  13     (define-foreign-library gtkglext
  14       (:unix (:or "libgtkglext-x11-1.0.so.0" "libgtkglext-x11-1.0.so"))
  15       (:windows "libgtkglext-win32-1.0-0.dll")
  16       (t (:default "libgtkglext-1.0")))
  17     (define-foreign-library gdkglext
  18       (:unix (:or "libgdkglext-x11-1.0.so.0" "libgdkglext-x11-1.0.so"))
  19       (:windows "libgdkglext-win32-1.0-0.dll")
  20       (t (:default "libgdkglext-1.0"))))
  21
  22   (use-foreign-library gtkglext)
  23   (use-foreign-library gdkglext))