#:tree-lisp-store-add-column
#:gtk-main-add-timeout
#:gtk-call-aborted
- #:gtk-call-aborted-condition))
+ #:gtk-call-aborted-condition
+ #:let-ui))
(defpackage :gtk-examples
(:use :cl :gtk :gdk :gobject)
(eval-when (:compile-toplevel :load-toplevel :execute)
(define-foreign-library gtk
(:unix (:or "libgtk-x11-2.0.so.0" "libgtk-x11-2.0.so"))
- (:win32 (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))
+ (:windows (:or "libgtk-2.0-0.dll" "libgtk-win32-2.0-0.dll"))
(t "libgtk-2.0")))
(use-foreign-library gtk)