projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Some changes for being able to save snapshots of widgets
[cl-gtk2.git]
/
gtk
/
gtk.package.lisp
diff --git
a/gtk/gtk.package.lisp
b/gtk/gtk.package.lisp
index
56cd5b6
..
15bce8e
100644
(file)
--- a/
gtk/gtk.package.lisp
+++ b/
gtk/gtk.package.lisp
@@
-1,17
+1,14
@@
(defpackage :gtk
(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
(:export #:register-object-type
#:gtk-main
#:gtk-main-quit
- #:gtk-widget-queue-draw
- #:gtk-widget-show-all
- #:gtk-widget-create-pango-layout
- #:box-pack-start
- #:container-add
#:dialog-run
#:object-destroy
#:text-buffer-insert
#:dialog-run
#:object-destroy
#:text-buffer-insert
- #:table-attach))
+ #:define-child-property
+ #:container-class-child-properties
+ #:generate-child-properties))
(defpackage :gtk-examples
(:use :cl :gtk :gdk :gobject)
(defpackage :gtk-examples
(:use :cl :gtk :gdk :gobject)
@@
-19,7
+16,12
@@
(in-package :gtk)
(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")))
#+sbcl (when (and (find-package "SB-EXT")
(find-symbol "SET-FLOATING-POINT-MODES" (find-package "SB-EXT")))