#:gdk-gc-new
#:drawable-get-size
#:gdk-draw-layout
- #:gdk-atom-as-string))
+ #:gdk-atom-as-string
+ #:gdk-window-events))
(in-package :gdk)
-(load-foreign-library "libgdk-x11-2.0.so")
\ No newline at end of file
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (define-foreign-library gdk
+ (:unix (:or "libgdk-x11-2.0.so.0" "libgdk-x11-2.0.so"))
+ (:win32 "libgdk-win32-2.0-0.dll")
+ (t "libgdk-2.0"))
+ (define-foreign-library gdk-pixbuf
+ (:unix (:or "libgdk_pixbuf-2.0.so.0" "libgdk_pixbuf-2.0.so"))
+ (:win32 (:or "libgdk-pixbuf-win32-2.0-0" "libgdk-pixbuf-2.0-0.dll"))
+ (t "libgdk_pixbuf-2.0")))
+
+(use-foreign-library gdk)
+(use-foreign-library gdk-pixbuf)
\ No newline at end of file