June 2006 - cells-gtk-cvs@common-lisp.net

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv5638/root/gtk-ffi Modified Files: gtk-ffi.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/06/01 14:16:28 1.20 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/06/07 17:00:25 1.21 @@ -16,11 +16,6 @@ |# -(eval-when (:compile-toplevel :load-toplevel :execute) - (unless (find-package :gtk-ffi) - (defpackage :gtk-ffi - (:use :common-lisp :pod)))) - (in-package :gtk-ffi) ;;; POD throw-away utility to convert hello-c/uffi to cffi @@ -50,8 +45,12 @@ funcs)) *standard-output*)))) +;;keep SBCL happy +(defconstant +c-null+ + (if (boundp '+c-null+) + (symbol-value '+c-null+) + (cffi:null-pointer))) -(defconstant +c-null+ (cffi:null-pointer)) (defvar *gtk-debug* nil) ;;; ============== Define CFFI types, and their translations.... @@ -136,13 +135,13 @@ #+win32 "libgtk-win32-2.0-0.dll" #+macosx "libgtk-win32-2.0-0.dylib") #+libcellsgtk - (cffi:load-foreign-library #+cffi-features:unix "libcellsgtk.so" + (cffi:load-foreign-library #+cffi-features:unix + (merge-pathnames "libcellsgtk.so" #.*compile-file-pathname*) #+win32 "libcellsgtk.dll" #+macosx "libcellsgtk.dylib"))) ) ; eval (eval-when (:compile-toplevel :load-toplevel :execute) - (export '(+c-null+ int-slot-indexed load-gtk-libs)) (defun gtk-function-name (lisp-name) (substitute #\_ #\- lisp-name)) @@ -425,9 +424,5 @@ (defun cast (ptr type) (deref-pointer-runtime-typed ptr (ffi-to-uffi-type type))) -(eval-when (compile load eval) - (export '(uint c-pointer c-ptr-null c-array-ptr c-ptr c-string sint32 uint32 uint8 boolean - ulong int long single-float double-float otherwise *gtk-debug* load-gtk-libs - col-type-to-ffi-type deref-pointer-runtime-typed gtk-tree-iter +c-null+)))

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv4089/root/gtk-ffi Modified Files: gtk-ffi.asd Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.asd 2006/02/19 20:16:57 1.13 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.asd 2006/06/07 16:57:38 1.14 @@ -13,7 +13,8 @@ :name "gtk-ffi" :depends-on (:cells :pod-utils :cffi :cffi-uffi-compat) :components - ((:file "gtk-ffi") + ((:file "package") + (:file "gtk-ffi" :depends-on ("package")) (:file "gtk-core" :depends-on ("gtk-ffi")) (:file "gtk-other" :depends-on ("gtk-ffi")) (:file "gtk-button" :depends-on ("gtk-ffi"))

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv3884/root/gtk-ffi Modified Files: gtk-core.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-core.lisp 2006/02/19 20:15:07 1.8 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-core.lisp 2006/06/07 16:51:34 1.9 @@ -77,8 +77,6 @@ (funcall fn gva) (cffi:foreign-free gva))) -(eval-when (compile load eval) (export 'with-g-value)) - #+test (def-gtk-lib-functions :gobject (g-value-set-string ((value c-pointer)

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv3844/root/cells-gtk Modified Files: widgets.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/cells-gtk/widgets.lisp 2006/02/19 20:14:26 1.18 +++ /project/cells-gtk/cvsroot/root/cells-gtk/widgets.lisp 2006/06/07 16:50:15 1.19 @@ -387,5 +387,3 @@ (defun widget-id (widget) (id widget)) -(eval-when (compile load eval) - (export '(callback callback-if timeout-add focus widget-id)))

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv3724/root/cells-gtk Modified Files: tree-view.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/cells-gtk/tree-view.lisp 2006/02/19 20:13:51 1.15 +++ /project/cells-gtk/cvsroot/root/cells-gtk/tree-view.lisp 2006/06/07 16:48:59 1.16 @@ -260,5 +260,3 @@ `(list ,@(loop for (type inits renderer) in args collect `(list ,type ',inits ,renderer)))) -(eval-when (compile load eval) - (export '(mk-listbox mk-treebox def-columns)))

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv2155/root/cells-gtk Modified Files: textview.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/cells-gtk/textview.lisp 2006/02/19 20:13:26 1.9 +++ /project/cells-gtk/cvsroot/root/cells-gtk/textview.lisp 2006/06/07 16:44:23 1.10 @@ -150,12 +150,6 @@ (gtk-text-buffer-set-modified (id buffer) val)) -(eval-when (:compile-toplevel :load-toplevel :execute) - (export '(def-populate-adds populate-adds with-text-iters text-buffer-get-text - text-buffer-delete-text text-buffer-insert-text text-buffer-modified-p - text-view-scroll-to-position gtk-text-buffer-get-iter-at-offset - gtk-text-buffer-create-mark gtk-text-view-set-wrap-mode gtk-text-view-set-editable - gtk-text-buffer-move-mark gtk-text-view-scroll-mark-onscreen)))

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv2107/root/cells-gtk Modified Files: packages.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/cells-gtk/packages.lisp 2006/02/19 20:12:58 1.5 +++ /project/cells-gtk/cvsroot/root/cells-gtk/packages.lisp 2006/06/07 16:43:08 1.6 @@ -16,10 +16,61 @@ |# +(in-package :cl-user) + (defpackage :cells-gtk (:nicknames :cgtk) - (:use :common-lisp :pod :cells :gtk-ffi)) - - - - + (:use :common-lisp :pod :cells :gtk-ffi) + (:export #:gtk-user-signals-quit + #:gtk-continuable-error + #:gtk-report-error + #:cgtk-set-active-item-by-path + #:gtk-combo-box-set-active + #:show-message + #:file-chooser + #:with-markup + #:push-message + #:pop-message + #:pulse + #:gtk-drawing-set-handlers + #:*gcontext* + #:with-pixmap + #:with-gc + #:draw-line + #:draw-text + #:draw-rectangle + #:insert-pixmap + #:register-gobject + #:gtk-app + #:gtk-reset + #:cells-gtk-init + #:title + #:icon + #:tooltips + #:tooltips-enable + #:tooltips-delay + #:start-app + #:gtk-global-callback-register + #:gtk-global-callback-funcall + #:def-populate-adds + #:populate-adds + #:with-text-iters + #:text-buffer-get-text + #:text-buffer-delete-text + #:text-buffer-insert-text + #:text-buffer-modified-p + #:text-view-scroll-to-position + #:gtk-text-buffer-get-iter-at-offset + #:gtk-text-buffer-create-mark + #:gtk-text-view-set-wrap-mode + #:gtk-text-view-set-editable + #:gtk-text-buffer-move-mark + #:gtk-text-view-scroll-mark-onscreen + #:mk-listbox + #:mk-treebox + #:def-columns + #:callback + #:callback-if + #:timeout-add + #:focus + #:widget-id))

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv2058/root/cells-gtk Modified Files: menus.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp 2006/02/19 20:12:16 1.13 +++ /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp 2006/06/07 16:41:38 1.14 @@ -18,8 +18,6 @@ (in-package :cgtk) -(export '(cgtk-set-active-item-by-path)) - (defmacro with-tree-iters (vars &body body) `(let (,@(loop for var in vars collect `(,var (gtk-adds-tree-iter-new)))) (unwind-protect @@ -305,4 +303,3 @@ (def-widget tearoff-menu-item (menu-item) () () ()) -(export '(gtk-combo-box-set-active)) \ No newline at end of file

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv2016/root/cells-gtk Modified Files: drawing.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/cells-gtk/drawing.lisp 2006/02/19 20:11:03 1.6 +++ /project/cells-gtk/cvsroot/root/cells-gtk/drawing.lisp 2006/06/07 16:40:06 1.7 @@ -220,5 +220,3 @@ (defvar *my-pixmap* nil) -(export '(*gcontext* with-pixmap with-gc draw-line draw-text draw-rectangle insert-pixmap - register-gobject)) \ No newline at end of file

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 07 Jun '06

07 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv1881/root/cells-gtk Modified Files: gtk-app.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/cells-gtk/gtk-app.lisp 2006/02/16 21:56:17 1.17 +++ /project/cells-gtk/cvsroot/root/cells-gtk/gtk-app.lisp 2006/06/07 16:38:52 1.18 @@ -152,7 +152,4 @@ (setf *gtk-loaded* t)) (gtk-reset)) -(eval-when (compile load eval) - (export '(gtk-app gtk-reset cells-gtk-init title icon tooltips tooltips-enable tooltips-delay - start-app gtk-global-callback-register gtk-global-callback-funcall)))

1 0