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            #:gtk-widget-queue-draw
   7            #:gtk-widget-show-all
   8            #:gtk-widget-create-pango-layout
   9            #:dialog-run
  10            #:object-destroy
  11            #:text-buffer-insert
  12            #:define-child-property
  13            #:container-class-child-properties
  14            #:generate-child-properties))
  15
  16 (defpackage :gtk-examples
  17   (:use :cl :gtk :gdk :gobject)
  18   (:export #:test-dialog))
  19
  20 (in-package :gtk)
  21
  22 (load-foreign-library "libgtk-x11-2.0.so")
  23
  24 #+sbcl (when (and (find-package "SB-EXT")
  25                   (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))
  26          (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))