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)