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