2 (:use :cl :gobject :cffi :pango :iter)
3 (:export #:gdk-window-events
9 (eval-when (:compile-toplevel :load-toplevel :execute)
10 (define-foreign-library gdk
11 ((:and :unix (:not :darwin)) (:or "libgdk-x11-2.0.so.0" "libgdk-x11-2.0.so"))
12 (:darwin (:or "libgdk-x11-2.0.0.dylib" "libgdk-x11-2.0.dylib"))
13 (:windows "libgdk-win32-2.0-0.dll")
15 (define-foreign-library gdk-pixbuf
16 ((:and :unix (:not :darwin)) (:or "libgdk_pixbuf-2.0.so.0" "libgdk_pixbuf-2.0.so"))
17 (:darwin (:or "libgdk_pixbuf-2.0.0.dylib" "libgdk_pixbuf-2.0.dylib"))
18 (:windows (:or "libgdk_pixbuf-win32-2.0-0" "libgdk_pixbuf-2.0-0.dll"))
19 (t "libgdk_pixbuf-2.0"))
21 (define-foreign-library gtk
22 ((:and :unix (:not :darwin)) (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
23 (:darwin (:or "libgtk-x11-2.0.0.dylib" "libgtk-x11-2.0.dylib"))
24 (:windows (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))
27 (use-foreign-library gdk)
28 (use-foreign-library gdk-pixbuf)
29 (use-foreign-library gtk))
31 (defcvar (*gtk-major-version* "gtk_major_version" :read-only t :library gtk) :uint)
32 (defcvar (*gtk-minor-version* "gtk_minor_version" :read-only t :library gtk) :uint)
33 (defcvar (*gtk-micro-version* "gtk_micro_version" :read-only t :library gtk) :uint)
34 (defcvar (*gtk-binary-age* "gtk_binary_age" :read-only t :library gtk) :uint)
35 (defcvar (*gtk-interface-age* "gtk_interface_age" :read-only t :library gtk) :uint)
37 (glib:push-library-version-features gtk *gtk-major-version* *gtk-minor-version*
48 (glib:require-library-version "Gtk+" 2 16 *gtk-major-version* *gtk-minor-version*)