Add Gdk/Pixbufs

[cl-gtk2.git] / gdk / gdk.package.lisp

diff --git a/gdk/gdk.package.lisp b/gdk/gdk.package.lisp
old mode 100644 (file)
new mode 100755 (executable)
index d1a6cfc..9604c94
--- a/gdk/gdk.package.lisp
+++ b/gdk/gdk.package.lisp
@@ -1,14 +1,19 @@
 (defpackage :gdk
-  (:use :cl :gobject :cffi)
+  (:use :cl :gobject :cffi :pango :iter)
   (:export #:gdk-window-events
-           #:gdk-gc-set-rgb-fg-color
-           #:gdk-drawable-get-size
-           #:gdk-draw-line
-           #:gdk-gc-new
-           #:drawable-get-size
-           #:gdk-draw-layout
-           ))
+           #:gdk-atom-as-string))
 
 (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"))
+    (:windows "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"))
+    (:windows (: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