2 (:use :cl :cffi :gobject :gdk :glib :iter :pango)
8 #:define-child-property
9 #:container-class-child-properties
10 #:generate-child-properties
12 #:tree-lisp-store-root
23 #:tree-lisp-store-add-column
24 #:gtk-main-add-timeout
26 #:gtk-call-aborted-condition
29 (defpackage :gtk-examples
30 (:use :cl :gtk :gdk :gobject)
31 (:export #:test-dialog))
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"))
42 (use-foreign-library gtk))
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))