(defpackage :gtk
- (:use :cl :cffi :gobject :gdk :glib :metabang-bind :anaphora)
+ (:use :cl :cffi :gobject :gdk :glib)
(:export #:register-object-type
#:gtk-main
#:gtk-main-quit
- #:gtk-widget-queue-draw
- #:gtk-widget-show-all
- #:gtk-widget-create-pango-layout
#:dialog-run
#:object-destroy
#:text-buffer-insert
(in-package :gtk)
-(load-foreign-library "libgtk-x11-2.0.so")
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (define-foreign-library gtk
+ (:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
+ (t "libgtk-2.0")))
+
+(use-foreign-library gtk)
#+sbcl (when (and (find-package "SB-EXT")
(find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))