gtk/gtk.package.lisp

   1 (defpackage :gtk
   2   (:use :cl :cffi :gobject :gdk :glib :iter :pango)
   3   (:export #:gtk-main
   4            #:gtk-main-quit
   5            #:dialog-run
   6            #:object-destroy
   7            #:text-buffer-insert
   8            #:define-child-property
   9            #:container-class-child-properties
  10            #:generate-child-properties
  11            #:tree-lisp-store
  12            #:tree-lisp-store-root
  13            #:tree-node
  14            #:make-tree-node
  15            #:tree-node-tree
  16            #:tree-node-parent
  17            #:tree-node-id
  18            #:tree-node-item
  19            #:tree-node-children
  20            #:tree-node-insert-at
  21            #:tree-node-remove-at
  22            #:tree-node-child-at
  23            #:tree-lisp-store-add-column
  24            #:gtk-main-add-timeout
  25            #:gtk-call-aborted
  26            #:gtk-call-aborted-condition
  27            #:let-ui))
  28
  29 (defpackage :gtk-examples
  30   (:use :cl :gtk :gdk :gobject)
  31   (:export #:test-dialog))
  32
  33 (in-package :gtk)
  34
  35 (at-init ()
  36   (eval-when (:compile-toplevel :load-toplevel :execute)
  37     (define-foreign-library gtk
  38       (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
  39       (:windows (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))
  40       (t "libgtk-2.0")))
  41
  42   (use-foreign-library gtk))
  43
  44 #+sbcl (when (and (find-package "SB-EXT")
  45                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))
  46          (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))