[gtk-cffi-cvs] CVS gtk-cffi/examples

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/examples
In directory tiger.common-lisp.net:/tmp/cvs-serv25018/examples

Modified Files:
	ex2.lisp 
Log Message:
Moved addons to gtk-cffi-ext



--- /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex2.lisp	2011/09/10 16:26:10	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex2.lisp	2011/12/31 17:20:56	1.5
@@ -41,7 +41,7 @@
                                    (event :pointer)
                                    (module gtk-string))
   (declare (ignore widget))
-  (when (eq (gdk-cffi:parse-event event :keyval) :f12)
+  (when (eq (gdk-cffi:parse-event event :keyval) (gdk-cffi:key :f12))
     (format t "~a~%" module)
     (if (string= module "main")
         (destroy (gethash "main" *apps*))