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)