Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv8082/cells-gtk
Modified Files: layout.lisp Log Message: Not sure of this, but new arguments to gtk-box-pack-start. Date: Sun May 29 23:08:22 2005 Author: pdenno
Index: root/cells-gtk/layout.lisp diff -u root/cells-gtk/layout.lisp:1.4 root/cells-gtk/layout.lisp:1.5 --- root/cells-gtk/layout.lisp:1.4 Sat Feb 12 15:52:10 2005 +++ root/cells-gtk/layout.lisp Sun May 29 23:08:22 2005 @@ -29,8 +29,8 @@ (def-c-output .kids ((self box)) (when new-value (dolist (kid new-value) - (gtk-box-pack-start (id self) (id kid) - (expand? kid) (fill? kid) (padding? kid))) + (gtk-box-pack-start (id self) (id kid) + (expand? kid) (fill? kid) (padding? kid))) #+clisp (call-next-method)))
(def-widget hbox (box)