projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Drop package prefix.
[cl-gtk2.git]
/
gtk
/
gtk.package.lisp
diff --git
a/gtk/gtk.package.lisp
b/gtk/gtk.package.lisp
index
cd4ee40
..
88b0b2b
100644
(file)
--- a/
gtk/gtk.package.lisp
+++ b/
gtk/gtk.package.lisp
@@
-1,5
+1,5
@@
(defpackage :gtk
(defpackage :gtk
- (:use :cl :cffi :gobject :gdk :glib :iter)
+ (:use :cl :cffi :gobject :gdk :glib :iter :pango)
(:export #:gtk-main
#:gtk-main-quit
#:dialog-run
(:export #:gtk-main
#:gtk-main-quit
#:dialog-run
@@
-21,7
+21,10
@@
#:tree-node-remove-at
#:tree-node-child-at
#:tree-lisp-store-add-column
#:tree-node-remove-at
#:tree-node-child-at
#:tree-lisp-store-add-column
- #:gtk-main-add-timeout))
+ #:gtk-main-add-timeout
+ #:gtk-call-aborted
+ #:gtk-call-aborted-condition
+ #:let-ui))
(defpackage :gtk-examples
(:use :cl :gtk :gdk :gobject)
(defpackage :gtk-examples
(:use :cl :gtk :gdk :gobject)
@@
-29,13
+32,6
@@
(in-package :gtk)
(in-package :gtk)
-(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")))
#+sbcl (when (and (find-package "SB-EXT")
(find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))
- (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))
\ No newline at end of file
+ (funcall (find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")) :traps nil))