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

[pdenno]

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk
In directory common-lisp:/tmp/cvs-serv10947/root/cells-gtk/test-gtk

Modified Files:
	test-gtk.lisp 
Log Message:
trivial

--- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-gtk.lisp	2005/02/27 03:22:27	1.11
+++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-gtk.lisp	2006/02/16 18:20:53	1.12
@@ -1,5 +1,5 @@
 (defpackage :test-gtk
-  (:use :common-lisp :utils-kt :cells :gtk-ffi :cells-gtk #-clisp :ffx))
+  (:use :common-lisp :utils-kt :pod :cells :gtk-ffi :cells-gtk))
 
 (in-package :test-gtk)
 
@@ -34,14 +34,13 @@
     :stock-icons (list (list :my-g (namestring *stock-icon-image*)))
     :position :center
     :splash-screen-image (namestring *splash-image*)
-    :width 550 :height 550
+    :width 650 :height 550
     :kids (let ((tabs '("Buttons"
                         "Display" "Layout"
                         "Menus"
                         "Textview" "Dialogs" "Addon"
                         "Entry"
-                        "Tree-view"
-                        )))
+                        "Tree-view")))
             (list (mk-notebook 
                    :tab-labels tabs
                    :kids  (loop for test-name in tabs