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