gtk/gtk.package.lisp

   1 (defpackage :gtk
   2   (:use :cl :cffi :gobject :gdk :glib)
   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
  12 (defpackage :gtk-examples
  13   (:use :cl :gtk :gdk :gobject)
  14   (:export #:test-dialog))
  15
  16 (in-package :gtk)
  17
  18 (eval-when (:compile-toplevel :load-toplevel :execute)
  19   (define-foreign-library gtk
  20     (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
  21     (t "libgtk-2.0")))
  22
  23 (use-foreign-library gtk)
  24
  25 #+sbcl (when (and (find-package "SB-EXT")
  26                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))
  27          (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))