cells-gtk-cvs February 2006

cells-gtk-cvs@common-lisp.net

1 participants
69 discussions

[cells-gtk-cvs] CVS public_html
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp:/tmp/cvs-serv11111 Modified Files: index.html Log Message: again --- /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:35:11 1.22 +++ /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:37:19 1.23 @@ -75,7 +75,7 @@ <ul> <li> 2006-02-16 Native CFFI now used in most of the code. There is a - <a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/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> 2006-01-03 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 @@ -92,8 +92,8 @@ If I didn't break anything, it also works with CLISP/PC and Lispworks/PC.</li> <li> 2005-11-15 We now provide the win32 .dll and linux .so for libcellsgtk. They are: - <a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/libcellsgtk.so">this for linux</a> and - <a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/libcellsgtk.dll">this for win32</a>. + <a href="ftp://common-lisp.net/pub/project/cells-gtk/libcellsgtk.so">this for linux</a> and + <a href="ftp://common-lisp.net/pub/project/cells-gtk/libcellsgtk.dll">this for win32</a>. This is sort of experimental. If you have problems (e.g. with version mismatch) drop the mailing list a note.</li> @@ -122,12 +122,12 @@ 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/ftp/cells-gtk-2006-02-16.tgz">cells-gtk-2006-02-16.tgz</a> + <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.</li> <li>More testing</li> </ul> - <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> <ul> <li>Uses CFFI, not Hello-C (See "News" above).</li> <li>Runs under CLISP, Lispworks, CMUCL, SBCL, ACL and maybe others.</li> @@ -139,7 +139,7 @@ <li>NOTE: This has only been tested with the lisps listed in the "News" above. If it works elsewhere drop the mailing list a note. </ul> - <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> <ul> <li>ComboBoxes may now use a TreeModel; allows hierarchical arrangement of items. (requires libcellsgtk)</li> <li>Uses Cells 2</li> @@ -147,7 +147,7 @@ <li>New procedure to locate dynamic libraries. (Works 'out of the box' 50% of the time versus 10% before ???) <li>Has not been tested on Windows. Drop the group a note if you try it.</li> </ul> - <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> </li> </ul> </li>

1 0

[cells-gtk-cvs] CVS public_html
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp:/tmp/cvs-serv11089 Modified Files: index.html Log Message: one more time --- /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:21:56 1.21 +++ /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:35:11 1.22 @@ -75,7 +75,7 @@ <ul> <li> 2006-02-16 Native CFFI now used in most of the code. There is a - <a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2006-02-16.tgz">snapshot release</a>. + <a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2006-02-16.tgz">snapshot release</a>. <li> 2006-01-03 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 @@ -92,8 +92,8 @@ If I didn't break anything, it also works with CLISP/PC and Lispworks/PC.</li> <li> 2005-11-15 We now provide the win32 .dll and linux .so for libcellsgtk. They are: - <a href="ftp://common-lisp.net/project/cells-gtk/ftp/libcellsgtk.so">this for linux</a> and - <a href="ftp://common-lisp.net/project/cells-gtk/ftp/libcellsgtk.dll">this for win32</a>. + <a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/libcellsgtk.so">this for linux</a> and + <a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/libcellsgtk.dll">this for win32</a>. This is sort of experimental. If you have problems (e.g. with version mismatch) drop the mailing list a note.</li> @@ -122,12 +122,12 @@ 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/project/cells-gtk/ftp/cells-gtk-2006-02-16.tgz">cells-gtk-2006-02-16.tgz</a> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2006-02-16.tgz">cells-gtk-2006-02-16.tgz</a> <ul> <li>Native CFFI.</li> <li>More testing</li> </ul> - <li><a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> <ul> <li>Uses CFFI, not Hello-C (See "News" above).</li> <li>Runs under CLISP, Lispworks, CMUCL, SBCL, ACL and maybe others.</li> @@ -139,7 +139,7 @@ <li>NOTE: This has only been tested with the lisps listed in the "News" above. If it works elsewhere drop the mailing list a note. </ul> - <li><a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> <ul> <li>ComboBoxes may now use a TreeModel; allows hierarchical arrangement of items. (requires libcellsgtk)</li> <li>Uses Cells 2</li> @@ -147,7 +147,7 @@ <li>New procedure to locate dynamic libraries. (Works 'out of the box' 50% of the time versus 10% before ???) <li>Has not been tested on Windows. Drop the group a note if you try it.</li> </ul> - <li><a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> + <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/ftp/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> </li> </ul> </li>

1 0

[cells-gtk-cvs] CVS public_html
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp:/tmp/cvs-serv9581 Modified Files: index.html Log Message: added ftp to path --- /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:20:17 1.20 +++ /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:21:56 1.21 @@ -75,7 +75,7 @@ <ul> <li> 2006-02-16 Native CFFI now used in most of the code. There is a - <a href="http://common-lisp.net/project/cells-gtk/cells-gtk-2006-02-16.tgz">snapshot release</a>. + <a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2006-02-16.tgz">snapshot release</a>. <li> 2006-01-03 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 @@ -92,8 +92,8 @@ If I didn't break anything, it also works with CLISP/PC and Lispworks/PC.</li> <li> 2005-11-15 We now provide the win32 .dll and linux .so for libcellsgtk. They are: - <a href="ftp://common-lisp.net/project/cells-gtk/libcellsgtk.so">this for linux</a> and - <a href="ftp://common-lisp.net/project/cells-gtk/libcellsgtk.dll">this for win32</a>. + <a href="ftp://common-lisp.net/project/cells-gtk/ftp/libcellsgtk.so">this for linux</a> and + <a href="ftp://common-lisp.net/project/cells-gtk/ftp/libcellsgtk.dll">this for win32</a>. This is sort of experimental. If you have problems (e.g. with version mismatch) drop the mailing list a note.</li> @@ -122,12 +122,12 @@ 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/project/cells-gtk/cells-gtk-2006-02-16.tgz">cells-gtk-2006-02-16.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2006-02-16.tgz">cells-gtk-2006-02-16.tgz</a> <ul> <li>Native CFFI.</li> <li>More testing</li> </ul> - <li><a href="ftp://common-lisp.net/project/cells-gtk/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> <ul> <li>Uses CFFI, not Hello-C (See "News" above).</li> <li>Runs under CLISP, Lispworks, CMUCL, SBCL, ACL and maybe others.</li> @@ -139,7 +139,7 @@ <li>NOTE: This has only been tested with the lisps listed in the "News" above. If it works elsewhere drop the mailing list a note. </ul> - <li><a href="ftp://common-lisp.net/project/cells-gtk/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> <ul> <li>ComboBoxes may now use a TreeModel; allows hierarchical arrangement of items. (requires libcellsgtk)</li> <li>Uses Cells 2</li> @@ -147,7 +147,7 @@ <li>New procedure to locate dynamic libraries. (Works 'out of the box' 50% of the time versus 10% before ???) <li>Has not been tested on Windows. Drop the group a note if you try it.</li> </ul> - <li><a href="ftp://common-lisp.net/project/cells-gtk/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/ftp/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> </li> </ul> </li>

1 0

[cells-gtk-cvs] CVS public_html
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp:/tmp/cvs-serv9561 Modified Files: index.html Log Message: removed pub from path --- /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:18:09 1.19 +++ /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:20:17 1.20 @@ -75,7 +75,7 @@ <ul> <li> 2006-02-16 Native CFFI now used in most of the code. There is a - <a href="http://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-02-16.tgz">snapshot release</a>. + <a href="http://common-lisp.net/project/cells-gtk/cells-gtk-2006-02-16.tgz">snapshot release</a>. <li> 2006-01-03 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 @@ -92,8 +92,8 @@ If I didn't break anything, it also works with CLISP/PC and Lispworks/PC.</li> <li> 2005-11-15 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 - <a href="ftp://common-lisp.net/pub/project/cells-gtk/libcellsgtk.dll">this for win32</a>. + <a href="ftp://common-lisp.net/project/cells-gtk/libcellsgtk.so">this for linux</a> and + <a href="ftp://common-lisp.net/project/cells-gtk/libcellsgtk.dll">this for win32</a>. This is sort of experimental. If you have problems (e.g. with version mismatch) drop the mailing list a note.</li> @@ -122,12 +122,12 @@ 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-02-16.tgz">cells-gtk-2006-02-16.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/cells-gtk-2006-02-16.tgz">cells-gtk-2006-02-16.tgz</a> <ul> <li>Native CFFI.</li> <li>More testing</li> </ul> - <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> <ul> <li>Uses CFFI, not Hello-C (See "News" above).</li> <li>Runs under CLISP, Lispworks, CMUCL, SBCL, ACL and maybe others.</li> @@ -139,7 +139,7 @@ <li>NOTE: This has only been tested with the lisps listed in the "News" above. If it works elsewhere drop the mailing list a note. </ul> - <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/cells-gtk-2005-05-29.tgz">cells-gtk-2005-05-29.tgz</a> <ul> <li>ComboBoxes may now use a TreeModel; allows hierarchical arrangement of items. (requires libcellsgtk)</li> <li>Uses Cells 2</li> @@ -147,7 +147,7 @@ <li>New procedure to locate dynamic libraries. (Works 'out of the box' 50% of the time versus 10% before ???) <li>Has not been tested on Windows. Drop the group a note if you try it.</li> </ul> - <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> + <li><a href="ftp://common-lisp.net/project/cells-gtk/cells-gtk-2005-02-26.tgz">cells-gtk-2005-02-26.tgz</a> </li> </ul> </li>

1 0

[cells-gtk-cvs] CVS public_html
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/public_html In directory common-lisp:/tmp/cvs-serv9462 Modified Files: index.html Log Message: update --- /project/cells-gtk/cvsroot/public_html/index.html 2006/02/11 03:52:17 1.18 +++ /project/cells-gtk/cvsroot/public_html/index.html 2006/02/16 22:18:09 1.19 @@ -74,7 +74,8 @@ <h1 id='news'>News</h1> <ul> - <li> 2006-02-10 Source on CVS is updated to use CFFI 0.9 and all Hello-C code has been eliminated.</li> + <li> 2006-02-16 Native CFFI now used in most of the code. There is a + <a href="http://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-02-16.tgz">snapshot release</a>. <li> 2006-01-03 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 @@ -121,6 +122,11 @@ 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-02-16.tgz">cells-gtk-2006-02-16.tgz</a> + <ul> + <li>Native CFFI.</li> + <li>More testing</li> + </ul> <li><a href="ftp://common-lisp.net/pub/project/cells-gtk/cells-gtk-2006-01-03.tgz">cells-gtk-2006-01-03.tgz</a> <ul> <li>Uses CFFI, not Hello-C (See "News" above).</li>

1 0

[cells-gtk-cvs] CVS root/cells-gtk
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp:/tmp/cvs-serv3578/root/cells-gtk Modified Files: gtk-app.lisp Log Message: trivial --- /project/cells-gtk/cvsroot/root/cells-gtk/gtk-app.lisp 2006/02/16 18:15:14 1.16 +++ /project/cells-gtk/cvsroot/root/cells-gtk/gtk-app.lisp 2006/02/16 21:56:17 1.17 @@ -113,7 +113,7 @@ (report-error-and-give-up (c) (error c)))) ;; clean-up forms (takes down application). (not-to-be app) ; while (> (gtk-main-level) 0) do (gtk-main-quit) NG. Why? - (loop for i from 0 to 99 do (gtk-main-quit)) + (loop for i from 0 to 30 do (gtk-main-quit)) (loop while (gtk-events-pending) do (gtk-main-iteration-do nil))))))) ;;; Restarts

1 0

[cells-gtk-cvs] CVS root/gtk-ffi
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp:/tmp/cvs-serv3538/root/gtk-ffi Modified Files: gtk-ffi.lisp Log Message: Added a troubling modification to cffi:translate-from-foreign-type for CLISP, :gtk-boolean --- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/02/16 18:04:29 1.17 +++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-ffi.lisp 2006/02/16 21:55:32 1.18 @@ -49,6 +49,7 @@ (defconstant +c-null+ (cffi:null-pointer)) (defvar *gtk-debug* nil) +(defvar *zippy* "diagnostics") ;;; ============== Define CFFI types, and their translations.... (cffi:defctype :gtk-string :pointer :documentation "string type for cffi type translation") @@ -58,7 +59,10 @@ (cffi:make-pointer (if value 1 0))) (defmethod cffi:translate-from-foreign (value (type (eql :gtk-boolean))) - (not (zerop (cffi::pointer-address value)))) ; pod strange! + #-clisp(not (zerop (cffi::pointer-address value))) ; pod strange! + #+clisp(if (null value) ; pod something really wrong here! + nil + (not (zerop (cffi::pointer-address value))))) (defmethod cffi:translate-to-foreign (value (type (eql :gtk-string))) (when (null value) (setf value "")) ; pod ??? @@ -114,29 +118,31 @@ ;;; 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. -(defun load-gtk-libs () - (handler-bind ((style-warning #'muffle-warning)) - (cffi:load-foreign-library #+linux "libgobject-2.0.so" - #+win32 "libgobject-2.0-0.dll" - #+macosx "libgobject-2.0-0.dylib") - (cffi:load-foreign-library #+linux "libglib-2.0.so" - #+win32 "libglib-2.0-0.dll" - #+macosx "libglib-2.0-0.dylib") - (cffi:load-foreign-library #+linux "libgthread-2.0.so" - #+win32 "libgthread-2.0-0.dll" - #+macosx "libgthread-2.0-0.dylib") - (cffi:load-foreign-library #+linux "libgdk-x11-2.0.so" - #+win32 "libgdk-win32-2.0-0.dll" - #+macosx "libgdk-win32-2.0-0.dylib") - (cffi:load-foreign-library #+linux "libgtk-x11-2.0.so" - #+win32 "libgtk-win32-2.0-0.dll" - #+macosx "libgtk-win32-2.0-0.dylib") - #+libcellsgtk - (cffi:load-foreign-library #+linux "libcellsgtk.so" - #+win32 "libcellsgtk.dll" - #+macosx "libcellsgtk.dylib"))) - (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") + #+libcellsgtk + (cffi:load-foreign-library #+cffi-features:unix "libcellsgtk.so" + #+win32 "libcellsgtk.dll" + #+macosx "libcellsgtk.dylib"))) +) ; eval + +(eval-when (:compile-toplevel :execute) (export '(+c-null+ int-slot-indexed load-gtk-libs)) (defun gtk-function-name (lisp-name) (substitute #\_ #\- lisp-name)) @@ -178,15 +184,16 @@ (when *gtk-debug* ,(unless (or (string= (symbol-name name) "GTK-EVENTS-PENDING") (string= (symbol-name name) "GTK-MAIN-ITERATION-DO")) - `(format *trace-output* "~%before (~A ~{~A~^ ~})" + `(format *trace-output* "~%Calling (~A ~{~A~^ ~})" ,(string-downcase (string name)) (list ,@(mapcar 'car arguments))))) - (prog1 - (,gtk-name ,@(mapcar #'car arguments)) + (let ((result (,gtk-name ,@(mapcar #'car arguments)))) (when *gtk-debug* ,(unless (or (string= (symbol-name name) "GTK-EVENTS-PENDING") (string= (symbol-name name) "GTK-MAIN-ITERATION-DO")) - `(format *trace-output* "~%after (~A ~{~A~^ ~})" - ,(string-downcase (string name)) (list ,@(mapcar 'car arguments))))))) + `(format *trace-output* "~% (~A ~{~A~^ ~}) returns ~A" + ,(string-downcase (string name)) (list ,@(mapcar 'car arguments)) + result))) + result)) (eval-when (:compile-toplevel :load-toplevel :execute) (export ',name)))))

1 0

[cells-gtk-cvs] CVS root/cells-gtk/test-gtk
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp:/tmp/cvs-serv10966/root/cells-gtk/test-gtk Modified Files: test-textview.lisp Log Message: trivial --- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-textview.lisp 2005/03/06 17:02:44 1.3 +++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-textview.lisp 2006/02/16 18:21:18 1.4 @@ -42,7 +42,7 @@ (string-downcase (symbol-name (gensym))) (string-downcase (subseq (string name) (1+ (position #\- (string name))))) (string-downcase (subseq (string name) 0 (position #\- (string name)))) - c-null)))) + +c-null+)))) (loop for name in '(:red-foreground :red-background :yellow-foreground :yellow-background) do (create-tag name))) ht))

1 0

[cells-gtk-cvs] CVS root/cells-gtk/test-gtk
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp:/tmp/cvs-serv10947/root/cells-gtk/test-gtk Modified Files: test-gtk.lisp Log Message: trivial --- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-gtk.lisp 2005/02/27 03:22:27 1.11 +++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-gtk.lisp 2006/02/16 18:20:53 1.12 @@ -1,5 +1,5 @@ (defpackage :test-gtk - (:use :common-lisp :utils-kt :cells :gtk-ffi :cells-gtk #-clisp :ffx)) + (:use :common-lisp :utils-kt :pod :cells :gtk-ffi :cells-gtk)) (in-package :test-gtk) @@ -34,14 +34,13 @@ :stock-icons (list (list :my-g (namestring *stock-icon-image*))) :position :center :splash-screen-image (namestring *splash-image*) - :width 550 :height 550 + :width 650 :height 550 :kids (let ((tabs '("Buttons" "Display" "Layout" "Menus" "Textview" "Dialogs" "Addon" "Entry" - "Tree-view" - ))) + "Tree-view"))) (list (mk-notebook :tab-labels tabs :kids (loop for test-name in tabs

1 0

[cells-gtk-cvs] CVS root/cells-gtk/test-gtk
by pdenno 16 Feb '06

16 Feb '06

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp:/tmp/cvs-serv10926/root/cells-gtk/test-gtk Modified Files: test-display.lisp Log Message: trivial --- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-display.lisp 2005/02/27 03:21:20 1.6 +++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-display.lisp 2006/02/16 18:20:19 1.7 @@ -2,8 +2,8 @@ (defmodel test-display (vbox) - () - (:default-initargs + () + (:default-initargs ;; g_timeout_add a function that will move the bar until the "Pulse" toggle is false. :md-value (c? (when (md-value (fm-other :pulse)) (timeout-add (md-value (fm-other :timeout)) (lambda () @@ -40,10 +40,9 @@ :kids (list (mk-progress-bar :md-name :pbar2 :pulse-step (c? (md-value (fm^ :step))) - :fraction (c-in 0)) - (mk-toggle-button :md-name :pulse - :label "Pulse") - (mk-label :text "Timeout") + :fraction (c-in .1)) + (mk-toggle-button :md-name :pulse :label "Pulse") + (mk-label :text "Interval") (mk-spin-button :md-name :timeout :sensitive (c? (not (md-value (fm^ :pulse)))) :min 10 :max 1000

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cells-gtk-cvs February 2006