[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-serv20011/examples

Modified Files:
	ex4.lisp 
Log Message:
Fixed LICENSE


--- /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex4.lisp	2012/10/07 12:02:11	1.4
+++ /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex4.lisp	2012/12/15 14:33:08	1.5
@@ -91,7 +91,7 @@
     (add scrolled-win *view*))
 
   (let ((field-header '("Row #" "Description" "Qty" "Price"))
-        (field-justification '(0.0 0.0 .5 1.0)))
+        (field-justification '(0 0 .5 1)))
     (loop :for col :from 0 :below (length field-header) :do
           (let ((cell-renderer (make-instance 'cell-renderer-text)))
             (setf (property cell-renderer :xalign)