X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.package.lisp;h=228a76fd0a396809e19549873074fde3034fa7b2;hb=76dedb878578588027806807b8a4bf14a0244592;hp=b71d7009463d055993207d8c385517e7c4160935;hpb=449168ece946ea586313094e0305782884ae9b2f;p=cl-gtk2.git

diff --git a/gtk/gtk.package.lisp b/gtk/gtk.package.lisp
index b71d700..228a76f 100644
--- a/gtk/gtk.package.lisp
+++ b/gtk/gtk.package.lisp
@@ -1,14 +1,29 @@
 (defpackage :gtk
-  (:use :cl :cffi :gobject :gdk :glib :metabang-bind :anaphora)
-  (:export #:register-object-type
-           #:gtk-main
+  (:use :cl :cffi :gobject :gdk :glib :iter)
+  (:export #:gtk-main
            #:gtk-main-quit
            #:dialog-run
            #:object-destroy
            #:text-buffer-insert
            #:define-child-property
            #:container-class-child-properties
-           #:generate-child-properties))
+           #:generate-child-properties
+           #:tree-lisp-store
+           #:tree-lisp-store-root
+           #:tree-node
+           #:make-tree-node
+           #:tree-node-tree
+           #:tree-node-parent
+           #:tree-node-id
+           #:tree-node-item
+           #:tree-node-children
+           #:tree-node-insert-at
+           #:tree-node-remove-at
+           #:tree-node-child-at
+           #:tree-lisp-store-add-column
+           #:gtk-main-add-timeout
+           #:gtk-call-aborted
+           #:gtk-call-aborted-condition))
 
 (defpackage :gtk-examples
   (:use :cl :gtk :gdk :gobject)
@@ -19,6 +34,7 @@
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (define-foreign-library gtk
     (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
+    (:win32 (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))
     (t "libgtk-2.0")))
 
 (use-foreign-library gtk)