[cells-cvs] CVS cells-gtk3/cells-gtk/test-gtk

[phildebrandt]

Update of /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk
In directory clnet:/tmp/cvs-serv13538/cells-gtk/test-gtk

Modified Files:
	test-tree-view.lisp 
Log Message:
Fixed start-app.


--- /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-tree-view.lisp	2008/04/13 10:59:21	1.1
+++ /project/cells/cvsroot/cells-gtk3/cells-gtk/test-gtk/test-tree-view.lisp	2008/04/13 11:34:25	1.2
@@ -61,7 +61,7 @@
   '(data (upper self test-tree-view)))
 
 (defmodel test-tree-view (notebook)
-  ((data :accessor data :initform (c-in (make-sample-tree "tree" 1)))
+  ((data :accessor data :initform (c-in (make-sample-tree "tree" 3)))
    (items :accessor items :initarg :items 
 	  :initform (c? (and (value (fm-other :hscale))
 			     (loop for i from 1 to (value (fm-other :hscale)) collect