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