X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.package.lisp;h=88b0b2b3ff31a1b844fd5dced4a84c2a3d5e165d;hb=47b0bf2bfd057e9b409957e8e5cb2241e2fa6573;hp=56cd5b6f53a4a1ef259412e4df2ebca9a0def7a7;hpb=0d03b82a77743d2ea5ef69bea08735fa12857d92;p=cl-gtk2.git

diff --git a/gtk/gtk.package.lisp b/gtk/gtk.package.lisp
index 56cd5b6..88b0b2b 100644
--- a/gtk/gtk.package.lisp
+++ b/gtk/gtk.package.lisp
@@ -1,17 +1,30 @@
 (defpackage :gtk
-  (:use :cl :cffi :gobject :gdk :glib :metabang-bind :anaphora)
-  (:export #:register-object-type
-           #:gtk-main
+  (:use :cl :cffi :gobject :gdk :glib :iter :pango)
+  (:export #:gtk-main
            #:gtk-main-quit
-           #:gtk-widget-queue-draw
-           #:gtk-widget-show-all
-           #:gtk-widget-create-pango-layout
-           #:box-pack-start
-           #:container-add
            #:dialog-run
            #:object-destroy
            #:text-buffer-insert
-           #:table-attach))
+           #:define-child-property
+           #:container-class-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
+           #:let-ui))
 
 (defpackage :gtk-examples
   (:use :cl :gtk :gdk :gobject)
@@ -19,8 +32,6 @@
 
 (in-package :gtk)
 
-(load-foreign-library "libgtk-x11-2.0.so")
-
 #+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))