[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-menus.lisp

[Peter Denno]

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"))