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