December 2004 - lambda-gtk-cvs@common-lisp.net

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-cmusbcl.lisp lambda-gtk/lambda-gtk-openmcl.lisp
by htaube＠common-lisp.net 31 Dec '04

31 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv13588 Modified Files: lambda-gtk-cmusbcl.lisp lambda-gtk-openmcl.lisp Log Message: added optional arg typing for define-signal-hander Date: Fri Dec 31 22:18:04 2004 Author: htaube Index: lambda-gtk/lambda-gtk-cmusbcl.lisp diff -u lambda-gtk/lambda-gtk-cmusbcl.lisp:1.1.1.1 lambda-gtk/lambda-gtk-cmusbcl.lisp:1.2 --- lambda-gtk/lambda-gtk-cmusbcl.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-cmusbcl.lisp Fri Dec 31 22:18:03 2004 @@ -674,7 +674,11 @@ (defgluecode (:export :gtk) (defmacro define-signal-handler (name return params &body body) (let ((args (loop for p in params - collect `(,p (* t)))) + collect + (if (consp p) + (list (first p) + (parse-alien-type (second p))) + `(,p (* t))))) (type (parse-alien-type return))) "#+:sbcl" `(define-alien-function ,name , (cons type args) ,@body) Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.3 lambda-gtk/lambda-gtk-openmcl.lisp:1.4 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.3 Mon Dec 13 03:51:23 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Fri Dec 31 22:18:04 2004 @@ -375,8 +375,9 @@ (defgluecode (:export :gtk) (defmacro define-signal-handler (name return params &body body) `(ccl:defcallback ,name ,(nconc (loop for p in params - collect ':address - collect p) + append + (if (consp p) (reverse p) + (list :address p))) (list return)) ,@body))) (defgluecode (:export :g) (defun "g-callback" (x) x))

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-common.lisp lambda-gtk/lambda-gtk-openmcl.lisp
by htaube＠common-lisp.net 13 Dec '04

13 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv31337 Modified Files: lambda-gtk-common.lisp lambda-gtk-openmcl.lisp Log Message: package cleanup issues, renamed openmcl interface dir to gtk2 Date: Mon Dec 13 03:51:23 2004 Author: htaube Index: lambda-gtk/lambda-gtk-common.lisp diff -u lambda-gtk/lambda-gtk-common.lisp:1.1.1.1 lambda-gtk/lambda-gtk-common.lisp:1.2 --- lambda-gtk/lambda-gtk-common.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-common.lisp Mon Dec 13 03:51:23 2004 @@ -522,8 +522,11 @@ fil) (pprint `(eval-when (:compile-toplevel :load-toplevel :execute) (defpackage :gtk ,uses - #+openmcl (:shadow :true :false)) - (defpackage :gdk ,uses) + (:shadow :true :false :fill)) + (defpackage :gdk ,uses + (:shadow :copy :invert :xor :clear :and :or + :set :delete :plus :mouse :destroy + :map :unmap :scroll) ) (defpackage :g ,uses ,@ gshadow) (defpackage :atk ,uses) (defpackage :pango ,uses (:shadow :break))) Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.2 lambda-gtk/lambda-gtk-openmcl.lisp:1.3 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.2 Wed Dec 8 03:22:27 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Mon Dec 13 03:51:23 2004 @@ -338,9 +338,9 @@ (dolist (l *gtk-libfiles*) (open-shared-library (libpath l))))) (eval-when (:compile-toplevel :load-toplevel :execute) - (if (probe-file \"ccl:darwin-headers;gtk\" ) + (if (probe-file \"ccl:darwin-headers;gtk2\" ) (use-interface-dir :gtk2) - (error \"Interface directory ccl:darwin-headers;gtk; does not exist.\"))) + (error \"Interface directory ccl:darwin-headers;gtk2; does not exist.\"))) ") ;;;

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk.html
by htaube＠common-lisp.net 08 Dec '04

08 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv19648 Modified Files: lambda-gtk.html Log Message: added link for upcoming linux openmcl header tarball Date: Wed Dec 8 03:24:15 2004 Author: htaube Index: lambda-gtk/lambda-gtk.html diff -u lambda-gtk/lambda-gtk.html:1.1.1.1 lambda-gtk/lambda-gtk.html:1.2 --- lambda-gtk/lambda-gtk.html:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk.html Wed Dec 8 03:24:14 2004 @@ -99,7 +99,7 @@ href="http://openmcl.clozure.com/Doc/ch09s07.html">ffigen</a> program) and an API control file (gtk.api) that you can edit and customize in order to generate more or less inclusive interfaces to -GTK. λgtk is organized into two layers: a common file +GTK. λgtk is organized into two parts: a common file (lambda-gtk-common.lisp) and an implementation file for each target FFI (lambda-gtk-openmcl.lisp, lambda-gtk-cmusbcl.lisp, and so on). With the exception of callbacks (which are required by GTK itself) @@ -222,16 +222,28 @@ <li> -If you are using OpenMCL, download the -<a href="ftp://common-lisp.net/pub/project/lambda-gtk/openmcl-darwin-gtk.tar.gz"> -OpenMCL GTK Interface</a> and untar it inside OpenMCL's -ccl/darwin-headers/ folder: +If you are using OpenMCL, download either: + +<ul> +<li> +<a href="ftp://common-lisp.net/pub/project/lambda-gtk/openmcl-darwin-gtk.tar.gz">openmcl-darwin-gtk.tar.gz</a> +</li> +<li><a href="ftp://common-lisp.net/pub/project/lambda-gtk/openmcl-linux-gtk.tar.gz">openmcl-linux-gtk.tar.gz</a> +</li> +</ul> + +and untar it inside either OpenMCL's ccl/darwin-headers/ or +ccl/headers/ folder: <blockquote> <pre>$ cd /path/to/ccl/darwin-headers -$ tar -zxf openmcl-gtk-interface.tar.gz +$ tar -zxf openmcl-darwin-gtk.tar.gz </pre> </blockquote> + +Untarring either archive restores a gtk2/ directory containing seveal +.cdb files for the GTK interface. + </li> <li> @@ -452,6 +464,5 @@ alt="Valid XHTML 1.0!" height="31" width="88" /> </a> - </body> </html>

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/lambda-gtk-openmcl.lisp
by htaube＠common-lisp.net 08 Dec '04

08 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv19621 Modified Files: lambda-gtk-openmcl.lisp Log Message: changed database directory name to :gtk2 for compatibility with linux Date: Wed Dec 8 03:22:48 2004 Author: htaube Index: lambda-gtk/lambda-gtk-openmcl.lisp diff -u lambda-gtk/lambda-gtk-openmcl.lisp:1.1.1.1 lambda-gtk/lambda-gtk-openmcl.lisp:1.2 --- lambda-gtk/lambda-gtk-openmcl.lisp:1.1.1.1 Tue Nov 30 15:59:31 2004 +++ lambda-gtk/lambda-gtk-openmcl.lisp Wed Dec 8 03:22:27 2004 @@ -339,7 +339,7 @@ (open-shared-library (libpath l))))) (eval-when (:compile-toplevel :load-toplevel :execute) (if (probe-file \"ccl:darwin-headers;gtk\" ) - (use-interface-dir :gtk) + (use-interface-dir :gtk2) (error \"Interface directory ccl:darwin-headers;gtk; does not exist.\"))) ")

1 0

[lambda-gtk-cvs] CVS update: lambda-gtk/examples.lisp
by htaube＠common-lisp.net 04 Dec '04

04 Dec '04

Update of /project/lambda-gtk/cvsroot/lambda-gtk In directory common-lisp.net:/tmp/cvs-serv9597 Modified Files: examples.lisp Log Message: added call gtk:init-ensure to textentry Date: Sat Dec 4 19:41:39 2004 Author: htaube Index: lambda-gtk/examples.lisp diff -u lambda-gtk/examples.lisp:1.1.1.1 lambda-gtk/examples.lisp:1.2 --- lambda-gtk/examples.lisp:1.1.1.1 Tue Nov 30 15:59:30 2004 +++ lambda-gtk/examples.lisp Sat Dec 4 19:41:39 2004 @@ -200,6 +200,7 @@ (format t "Text entry: ~S~%" (gtk:entry-get-text data))) (defun textentry () + (gtk:init-ensure) (let* ((win (gtk:window-new gtk:window-toplevel)) (vbox (gtk:vbox-new nil 0)) (hbox (gtk:hbox-new nil 0))

1 0