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
*)