X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.package.lisp;h=88b0b2b3ff31a1b844fd5dced4a84c2a3d5e165d;hb=1f9c939a43d645eaf55e4d375f6b1b609dd1c5bd;hp=cd4ee40574b1e14077acf2dc42951d25bf316d36;hpb=8db173e3df82074b8ca96d00304c4e63b499f598;p=cl-gtk2.git

diff --git a/gtk/gtk.package.lisp b/gtk/gtk.package.lisp
index cd4ee40..88b0b2b 100644
--- a/gtk/gtk.package.lisp
+++ b/gtk/gtk.package.lisp
@@ -1,5 +1,5 @@
 (defpackage :gtk
-  (:use :cl :cffi :gobject :gdk :glib :iter)
+  (:use :cl :cffi :gobject :gdk :glib :iter :pango)
   (:export #:gtk-main
            #:gtk-main-quit
            #:dialog-run
@@ -21,7 +21,10 @@
            #:tree-node-remove-at
            #:tree-node-child-at
            #:tree-lisp-store-add-column
-           #:gtk-main-add-timeout))
+           #:gtk-main-add-timeout
+           #:gtk-call-aborted
+           #:gtk-call-aborted-condition
+           #:let-ui))
 
 (defpackage :gtk-examples
   (:use :cl :gtk :gdk :gobject)
@@ -29,13 +32,6 @@
 
 (in-package :gtk)
 
-(eval-when (:compile-toplevel :load-toplevel :execute)
-  (define-foreign-library gtk
-    (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
-    (t "libgtk-2.0")))
-
-(use-foreign-library gtk)
-
 #+sbcl (when (and (find-package "SB-EXT")
                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))
-         (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))
\ No newline at end of file
+         (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))