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

[ktilton]

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

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


--- /project/cells/cvsroot/cells-gtk/test-gtk/test-gtk.lisp	2008/01/30 21:13:44	1.3
+++ /project/cells/cvsroot/cells-gtk/test-gtk/test-gtk.lisp	2008/01/31 03:31:13	1.4
@@ -39,16 +39,16 @@
     :splash-screen-image (namestring *splash-image*)
     :width 650 :height 550
     :kids (c? (the-kids
-               (let ((tabs '(;"Buttons"
-                             ;"Display"
-                             ;"Layout"
+               (let ((tabs '("Buttons"
+                             "Display"
+                             "Layout"
 
                              "Menus"
-                             ;"Textview"
-                             ;"Dialogs"
-                              ;"Addon"
-                              ;"Entry"
-                              ;"Tree-view"
+                             "Textview"
+                             "Dialogs"
+                              "Addon"
+                              "Entry"
+                              "Tree-view"
                              )))
                  (list (mk-notebook 
                         :tab-labels tabs
--- /project/cells/cvsroot/cells-gtk/test-gtk/test-menus.lisp	2008/01/30 21:13:44	1.2
+++ /project/cells/cvsroot/cells-gtk/test-gtk/test-menus.lisp	2008/01/31 03:31:13	1.3
@@ -17,19 +17,19 @@
                               :on-activate (callback (widget event data)
                                              (trc "TST SAVE") (force-output)))
                              (mk-menu-item
-                              :md-name (gensym "SUBMENU-MENUITEM")
+                              :md-name 'SUBMENU-MENUITEM
                               :label "Submenu"
-                              :kids (kids-list?
-                                     (mk-menu-item
-                                      :md-name (gensym "SUBITEM-1")
-                                      :label "subitem1"
-                                       :on-activate (callback (widget event data)
-                                                      (trc "dribble SAVE") (dribble)))
-                                     (mk-menu-item
-                                      :md-name (gensym "SUBITEM-2")
+                              :kids (c? (the-kids
+                                            (mk-menu-item
+                                             :md-name (gensym "SUBITEM-1")
+                                             :label "subitem1"
+                                             :on-activate (callback (widget event data)
+                                                            (trc "dribble SAVE") (dribble)))
+                                            (mk-menu-item
+                                             :md-name (gensym "SUBITEM-2")
                                       :label "subitem2")
-                                     (mk-menu-item :label "subitem3")
-                                     ))
+                                            (mk-menu-item :label "subitem3")
+                                            )))
                              (mk-image-menu-item
                               :stock :harddisk
                               :on-activate (callback (widget event data)