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

[cells-gtk-cvs] CVS public_html
by pdenno 30 Jun '06

30 Jun '06

Update of /project/cells-gtk/cvsroot/public_html In directory clnet:/tmp/cvs-serv20417/public_html Modified Files: index.html Log Message: Announce new tarballs --- /project/cells-gtk/cvsroot/public_html/index.html 2006/06/07 17:20:10 1.28 +++ /project/cells-gtk/cvsroot/public_html/index.html 2006/06/30 15:45:25 1.29 @@ -74,6 +74,7 @@ <h1 id='news'>News</h1> <ul> + <li> <strong>2006-06-30</strong> New tarballs. See below. <li> <strong>2006-06-07</strong> <ul> <li>Patches from Andras Simon allow Cells-GTK to load without complaints under @@ -134,6 +135,16 @@ snapshots of the CVS repository, and contain all the ancillary modules (cells, cffi, etc). Here are a few: <ul> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-06-30.tgz">cells-gtk-2006-06-30.tgz</a> and <a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-06-30.zip">cells-gtk-2006-06-30.zip</a> and + <ul> + <li>Uses 2006-06-26 version of CFFI. + <li>Cleaner load with sbcl. (Thanks, Andras Simon.) + <li>Tested with LINUX: LW/Pro, sbcl, clisp; WIN32: clisp. + <li>Seems to have problems loading libraries with cmucl (not investigated much). + <li>I (Peter Denno) had problems with LW/Win32. But others seem ok. -- If this form:<br> + <tt>(fli:register-module "libgdk-win32-2.0-0.dll" :connection-style :immediate)</tt><br> + -- returns OK (once you've installed GTK libs) then you should be OK. + </ul> <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-02-16.tgz">cells-gtk-2006-02-16.tgz</a> <ul> <li>Native CFFI. That is, not Hello-C to UFFI, to CFFI-UFFI-COMPAT (yuk!).</li>

1 0

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

30 Jun '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv16532/root/gtk-ffi Modified Files: gtk-ffi.lisp Log Message: Use cffi-features. --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/06/07 17:00:25 1.21 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/06/30 15:26:54 1.22 @@ -82,63 +82,57 @@ (setf (cffi:mem-aref (cffi:foreign-slot-value obj obj-type slot) :int index) new-value)) -(cffi:define-foreign-library 'gobject - (:linux "libgobject-2.0.so") - (:win32 "libgobject-2.0-0.dll") - (:macosx "libgobject-2.0-0.dylib")) +(eval-when (:compile-toplevel :load-toplevel :execute) +(cffi:define-foreign-library :gobject + (cffi-features:unix "libgobject-2.0.so") + (cffi-features:windows "libgobject-2.0-0.dll") + (cffi-features:darwin "libgobject-2.0-0.dylib")) (cffi:define-foreign-library :glib - (:linux "libglib-2.0.so") - (:win32 "libglib-2.0-0.dll") - (:macosx "libglib-2.0-0.dylib")) + (cffi-features:unix "libglib-2.0.so") + (cffi-features:windows "libglib-2.0-0.dll") + (cffi-features:darwin "libglib-2.0-0.dylib")) (cffi:define-foreign-library :gthread - (:linux "libgthread-2.0.so") - (:win32 "libgthread-2.0-0.dll") - (:macosx "libgthread-2.0-0.dylib")) + (cffi-features:unix "libgthread-2.0.so") + (cffi-features:windows "libgthread-2.0-0.dll") + (cffi-features:darwin "libgthread-2.0-0.dylib")) (cffi:define-foreign-library :gdk - (:linux "libgdk-x11-2.0.so") - (:win32 "libgdk-win32-2.0-0.dll") - (:macosx "libgdk-win32-2.0-0.dylib")) ; pod ??? + (cffi-features:unix "libgdk-x11-2.0.so") + (cffi-features:windows "libgdk-win32-2.0-0.dll") + (cffi-features:darwin "libgdk-win32-2.0-0.dylib")) ; pod ??? (cffi:define-foreign-library :gtk - (:linux "libgtk-x11-2.0.so") - (:win32 "libgtk-win32-2.0-0.dll") - (:macosx "libgtk-win32-2.0-0.dylib")) ; pod ??? + (cffi-features:unix "libgtk-x11-2.0.so") + (cffi-features:windows "libgtk-win32-2.0-0.dll") + (cffi-features:darwin "libgtk-win32-2.0-0.dylib")) ; pod ??? #+libcellsgtk (cffi:define-foreign-library :cgtk - (:linux "libcellsgtk.so") - (:win32 "libcellsgtk.dll") - (:macosx "libcellsgtk.dylib")) + (cffi-features:unix "libcellsgtk.so") + (cffi-features:windows "libcellsgtk.dll") + (cffi-features:darwin "libcellsgtk.dylib")) +) ;eval-when ;;; After doing this, should be able to do (g-thread-init c-null) ;;; The above define-foreigh-library appears to be useless (doesn't ;;; work through the symbols) use the names. + +;;; LW Win32 is hanging on POD's machine only: +;;; (fli:register-module "libgdk-win32-2.0-0.dll" :connection-style :immediate) +;;; (fli:register-module "c:\\Program Files\\Common Files\\GTK\\2.0\\bin\\libgdk-win32-2.0-0.dll" +;;; :connection-style :immediate) (eval-when (:compile-toplevel :load-toplevel :execute) (defun load-gtk-libs () (handler-bind ((style-warning #'muffle-warning)) - (cffi:load-foreign-library #+cffi-features:unix "libgobject-2.0.so" - #+win32 "libgobject-2.0-0.dll" - #+macosx "libgobject-2.0-0.dylib") - (cffi:load-foreign-library #+cffi-features:unix "libglib-2.0.so" - #+win32 "libglib-2.0-0.dll" - #+macosx "libglib-2.0-0.dylib") - (cffi:load-foreign-library #+cffi-features:unix "libgthread-2.0.so" - #+win32 "libgthread-2.0-0.dll" - #+macosx "libgthread-2.0-0.dylib") - (cffi:load-foreign-library #+cffi-features:unix "libgdk-x11-2.0.so" - #+win32 "libgdk-win32-2.0-0.dll" - #+macosx "libgdk-win32-2.0-0.dylib") - (cffi:load-foreign-library #+cffi-features:unix "libgtk-x11-2.0.so" - #+win32 "libgtk-win32-2.0-0.dll" - #+macosx "libgtk-win32-2.0-0.dylib") + (cffi:load-foreign-library :gobject) + (cffi:load-foreign-library :glib) + (cffi:load-foreign-library :gthread) + (cffi:load-foreign-library :gdk) + (cffi:load-foreign-library :gtk) #+libcellsgtk - (cffi:load-foreign-library #+cffi-features:unix - (merge-pathnames "libcellsgtk.so" #.*compile-file-pathname*) - #+win32 "libcellsgtk.dll" - #+macosx "libcellsgtk.dylib"))) + (cffi:load-foreign-library :cgtk))) ) ; eval (eval-when (:compile-toplevel :load-toplevel :execute)

1 0

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

30 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory clnet:/tmp/cvs-serv16486/root/cells-gtk/test-gtk Modified Files: test-gtk.lisp Log Message: export gtk-demo --- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-gtk.lisp 2006/02/19 20:19:13 1.13 +++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-gtk.lisp 2006/06/30 15:25:11 1.14 @@ -1,5 +1,6 @@ (defpackage :test-gtk - (:use :common-lisp :pod :cells :gtk-ffi :cells-gtk)) + (:use :common-lisp :pod :cells :gtk-ffi :cells-gtk) + (:export gtk-demo)) (in-package :test-gtk)

1 0

[cells-gtk-cvs] CVS
by pdenno 30 Jun '06

30 Jun '06

Update of /project/cells-gtk/cvsroot In directory clnet:/tmp/cvs-serv16383 Modified Files: load.lisp Log Message: gtk-demo now exported, so no :: --- /project/cells-gtk/cvsroot/load.lisp 2006/02/19 20:07:06 1.2 +++ /project/cells-gtk/cvsroot/load.lisp 2006/06/30 15:24:21 1.3 @@ -38,7 +38,7 @@ (asdf:oos 'asdf:load-op :cells-gtk) (asdf:oos 'asdf:load-op :test-gtk)) -(format t "~3% Done! Now try (test-gtk::gtk-demo)") +(format t "~3% Done! Now try (test-gtk:gtk-demo) or if problems, (test-gtk:gtk-demo t)")

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by asimon 20 Jun '06

20 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv30553/cells-gtk Modified Files: drawing.lisp Log Message: Move export to the package def --- /project/cells-gtk/cvsroot/root/cells-gtk/drawing.lisp 2006/06/07 16:40:06 1.7 +++ /project/cells-gtk/cvsroot/root/cells-gtk/drawing.lisp 2006/06/20 14:45:59 1.8 @@ -69,7 +69,6 @@ (gtk-signal-connect-swap widget "expose-event" (cffi:get-callback 'drawing-expose-event-handler) :data data)) -(export '(gtk-drawing-set-handlers)) ;;;============================================================================ (in-package :cgtk)

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by asimon 20 Jun '06

20 Jun '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory clnet:/tmp/cvs-serv30524/cells-gtk Modified Files: packages.lisp Log Message: Move export to the package def --- /project/cells-gtk/cvsroot/root/cells-gtk/packages.lisp 2006/06/07 16:43:08 1.6 +++ /project/cells-gtk/cvsroot/root/cells-gtk/packages.lisp 2006/06/20 14:45:47 1.7 @@ -32,7 +32,6 @@ #:push-message #:pop-message #:pulse - #:gtk-drawing-set-handlers #:*gcontext* #:with-pixmap #:with-gc

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by asimon 20 Jun '06

20 Jun '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv28938/gtk-ffi Modified Files: package.lisp Log Message: Move export to the package def --- /project/cells-gtk/cvsroot/root/gtk-ffi/package.lisp 2006/06/08 14:58:24 1.1 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/package.lisp 2006/06/20 14:44:42 1.2 @@ -64,5 +64,6 @@ #:gtk-tree-store-set-kids #:gtk-tree-model-get-cell #:gtk-tree-view-render-cell - #:gtk-file-chooser-get-filenames-strs)) + #:gtk-file-chooser-get-filenames-strs + #:gtk-drawing-set-handlers))

1 0

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

08 Jun '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory clnet:/tmp/cvs-serv16868 Added Files: package.lisp Log Message: new file --- /project/cells-gtk/cvsroot/root/gtk-ffi/package.lisp 2006/06/08 14:58:24 NONE +++ /project/cells-gtk/cvsroot/root/gtk-ffi/package.lisp 2006/06/08 14:58:24 1.1 #| Gtk ffi Copyright (c) 2004 by Vasilis Margioulas <vasilism(a)sch.gr> You have the right to distribute and use this software as governed by the terms of the Lisp Lesser GNU Public License (LLGPL): (http://opensource.franz.com/preamble.html) This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the Lisp Lesser GNU Public License for more details. |# (in-package :cl-user) (defpackage :gtk-ffi (:use :common-lisp :pod) (:export #:+c-null+ #:int-slot-indexed #:load-gtk-libs #: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 #:with-g-value #:gtk-signal-connect #:gtk-signal-connect-swap #:gtk-object-set-property #:with-gtk-string #:get-gtk-string #:to-gtk-string #:with-gdk-threads #:make-gtk-tree-iter #:with-tree-iter #:gtk-widget-set-popup #:gvi #:gtk-list-store-new #:gtk-list-store-set #:gtk-list-store-set-items #:gtk-tree-store-new #:gtk-tree-store-set #:gtk-tree-store-set-kids #:gtk-tree-model-get-cell #:gtk-tree-view-render-cell #:gtk-file-chooser-get-filenames-strs))

1 0

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

07 Jun '06

Update of /project/cells-gtk/cvsroot/public_html In directory clnet:/tmp/cvs-serv7775/public_html Modified Files: index.html Log Message: Announce in NEWS adds to CVS. --- /project/cells-gtk/cvsroot/public_html/index.html 2006/06/01 14:14:21 1.27 +++ /project/cells-gtk/cvsroot/public_html/index.html 2006/06/07 17:20:10 1.28 @@ -74,13 +74,22 @@ <h1 id='news'>News</h1> <ul> + <li> <strong>2006-06-07</strong> + <ul> + <li>Patches from Andras Simon allow Cells-GTK to load without complaints under + SBCL. (Tested under SBCL 0.9.12).</li> + <li>The patch also allows libcellsgtk.so to be located wherever it + was built, rather than having to copy it to /usr/lib, etc.</li> + <li>A version of Cells (What was called "Cells 2" at some point) was added to CVS. + Having our own copy should help keep things stable as Cells evolves.</li> + </ul> <li> <strong>2006-06-01</strong> Patches from Marco Gidde make Cells-GTK work better under SBCL. These patches were applied to the CVS repository, but are not in any snapshot yet. See the repository versions of gtk-ffi/gtk-utilities.lisp pod-utils/utils.lisp and gtk-ffi/gtk-ffi.lisp for the fixes, or read the <a href='http://common-lisp.net/pipermail/cells-gtk-devel/2006-May/000171.html'> - mail</a> from Marco. It includes the patches. + mail</a> from Marco. It includes the patches.</li> <li> <strong>2006-02-16</strong> Native CFFI now used in most of the code. There is a - <a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-02-16.tgz">snapshot release</a>. + <a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-02-16.tgz">snapshot release</a>.</li> <li> <strong>2006-01-03</strong> BIG NEWS! cells-gtk now runs under <a href="http://clisp.cons.org">CLISP</a> and uses <a href="http://common-lisp.net/project/cffi/">CFFI</a>, not Hello-c for its foreign function interface. The 2006-01-03 tarball reflects these changes. Especial thanks to Novikov Leonid, who did the CLISP port @@ -94,7 +103,7 @@ <a href="http://common-lisp.net/pipermail/cells-gtk-devel/2006-January.txt">note</a> in the cells-gtk-devel archive for January 2006. </ul> - If I didn't break anything, it also works with CLISP/PC and Lispworks/PC.</li> + If I didn't break anything, it also works with CLISP/Win32 and Lispworks/Win32.</li> <li> <strong>2005-11-15</strong> We now provide the win32 .dll and linux .so for libcellsgtk. They are: <a href="ftp://common-lisp.net/pub/project/cells-gtk/libcellsgtk.so">this for linux</a> and

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-serv5703/root/gtk-ffi Modified Files: gtk-utilities.lisp Log Message: Applied patches from Andras Simon --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp 2006/06/01 14:18:22 1.20 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-utilities.lisp 2006/06/07 17:02:06 1.21 @@ -210,7 +210,7 @@ (ecase col-type ((:string :icon) (get-gtk-string - (cffi:make-pointer (cffi:mem-aref buffer :pointer 0) :cstring))) + (cffi:make-pointer (cffi:mem-aref buffer :pointer 0)))) (:boolean (not (zerop (cffi:mem-aref buffer :unsigned-char 0)))) (:date (cffi:mem-aref buffer :FLOAT 0)) (:int (cffi:mem-aref buffer :int 0)) @@ -268,15 +268,4 @@ collect (cffi:foreign-slot-value lst-address 'gslist 'data) finally (g-slist-free glist)))) -(eval-when (compile load eval) - (export '(gtk-signal-connect gtk-signal-connect-swap gtk-object-set-property - with-gtk-string get-gtk-string to-gtk-string - with-gdk-threads make-gtk-tree-iter with-tree-iter - gtk-widget-set-popup gvi - gtk-list-store-new gtk-list-store-set gtk-list-store-set-items - gtk-tree-store-new gtk-tree-store-set gtk-tree-store-set-kids - gtk-tree-model-get-cell - gtk-tree-view-render-cell - gtk-file-chooser-get-filenames-strs - )))

1 0