(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))
+ #:text-buffer-insert
+ #: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)
(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))