cells-gtk-cvs

Download

cells-gtk-cvs@common-lisp.net

May 2005

1 participants
22 discussions

[cells-gtk-cvs] CVS update: root/cells-gtk/packages.lisp
by pdenno＠common-lisp.net 29 May '05

29 May '05

Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv7981/cells-gtk Added Files: packages.lisp Log Message: New file, was cells-gtk.lisp (which has been removed). Date: Sun May 29 23:01:21 2005 Author: pdenno

1 0

[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-ffi.lisp
by pdenno＠common-lisp.net 05 May '05

05 May '05

Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv19048/gtk-ffi Modified Files: gtk-ffi.lisp Log Message: Was missing the identification of the libgtk filename in win32 Date: Thu May 5 16:20:51 2005 Author: pdenno Index: root/gtk-ffi/gtk-ffi.lisp diff -u root/gtk-ffi/gtk-ffi.lisp:1.10 root/gtk-ffi/gtk-ffi.lisp:1.11 --- root/gtk-ffi/gtk-ffi.lisp:1.10 Sat Feb 26 23:37:40 2005 +++ root/gtk-ffi/gtk-ffi.lisp Thu May 5 16:20:51 2005 @@ -60,6 +60,7 @@ (:glib "libglib-2.0-0.dll") (:gthread "libgthread-2.0-0.dll") (:gdk "libgdk-win32-2.0-0.dll") + (:gtk "libgtk-win32-2.0-0.dll") (:cgtk "libcellsgtk"))) #+macosx (concatenate 'string @@ -368,6 +369,7 @@ (setf (get-slot-value ,iter-var 'gtk-tree-iter 'user-data2) c-null) (setf (get-slot-value ,iter-var 'gtk-tree-iter 'user-data3) c-null) ,@body)) + (eval-when (:compile-toplevel :load-toplevel :execute) (defun as-gtk-type-name (type)

1 0