2 (:use :cl :cffi :gobject :gdk :glib)
3 (:export #:register-object-type
9 #:define-child-property
10 #:container-class-child-properties
11 #:generate-child-properties))
13 (defpackage :gtk-examples
14 (:use :cl :gtk :gdk :gobject)
15 (:export #:test-dialog))
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"))
24 (use-foreign-library gtk)
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))