X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.package.lisp;h=dd441c3f75c7248fa30689084e747b93263cd925;hb=2d2dff4edad79e7ba21a1e6f96ca2ac10574f40c;hp=272c0a8b72e06420e64ce32f9b748029b041642b;hpb=c238d2fffa90c3bdc625b2a3fab05829e5610db1;p=cl-gtk2.git

diff --git a/gdk/gdk.package.lisp b/gdk/gdk.package.lisp
old mode 100644
new mode 100755
index 272c0a8..dd441c3
--- a/gdk/gdk.package.lisp
+++ b/gdk/gdk.package.lisp
@@ -1,26 +1,20 @@
 (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
-           #:gdk-window-events))
+           #:gdk-atom-as-string))
 
 (in-package :gdk)
 
-(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")))
+(glib:at-init ()
+ (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
+ (use-foreign-library gdk)
+ (use-foreign-library gdk-pixbuf))
\ No newline at end of file