gtk/gtk.package.lisp

   1 (defpackage :gtk
   2   (:use :cl :cffi :gobject :gdk :glib :metabang-bind :anaphora)
   3   (:export #:register-object-type
   4            #:gtk-main
   5            #:gtk-main-quit
   6            #:dialog-run
   7            #:object-destroy
   8            #:text-buffer-insert
   9            #:define-child-property
  10            #:container-class-child-properties
  11            #:generate-child-properties))
  12
  13 (defpackage :gtk-examples
  14   (:use :cl :gtk :gdk :gobject)
  15   (:export #:test-dialog))
  16
  17 (in-package :gtk)
  18
  19 (eval-when (:compile-toplevel :load-toplevel :execute)
  20   (define-foreign-library gtk
  21     (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
  22     (t "libgtk-2.0")))
  23
  24 (use-foreign-library gtk)
  25
  26 #+sbcl (when (and (find-package "SB-EXT")
  27                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))
  28          (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))