Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv3320/cells-gtk/test-gtk
Modified Files: test-menus.lisp Log Message: :init of tree-model combo box should be a list Date: Sat Jul 2 02:21:39 2005 Author: pdenno
Index: root/cells-gtk/test-gtk/test-menus.lisp diff -u root/cells-gtk/test-gtk/test-menus.lisp:1.4 root/cells-gtk/test-gtk/test-menus.lisp:1.5 --- root/cells-gtk/test-gtk/test-menus.lisp:1.4 Sun May 29 23:25:43 2005 +++ root/cells-gtk/test-gtk/test-menus.lisp Sat Jul 2 02:21:39 2005 @@ -135,7 +135,7 @@ :kids (list (mk-combo-box :roots '("Text" "Numeric" "Timepoint") - :init 0 + :init '(0) :children-fn #'(lambda (x) (cond ((equal x "Text") '("Trimmed Text" "Raw Text"))