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

Modified Files: test-menus.lisp Log Message: Added demonstration of user-defined stock icon. Date: Wed Feb 16 23:38:00 2005 Author: pdenno

Index: root/cells-gtk/test-gtk/test-menus.lisp diff -u root/cells-gtk/test-gtk/test-menus.lisp:1.2 root/cells-gtk/test-gtk/test-menus.lisp:1.3 --- root/cells-gtk/test-gtk/test-menus.lisp:1.2 Mon Jan 3 23:33:20 2005 +++ root/cells-gtk/test-gtk/test-menus.lisp Wed Feb 16 23:38:00 2005 @@ -28,7 +28,10 @@ (mk-image-menu-item :image (mk-image :stock :dialog-info :icon-size :menu) :label-widget (mk-label :markup (with-markup (:foreground :blue) - "Blue label"))))) + "Blue label"))) + (mk-image-menu-item + :stock :my-g + :label "user stock icon"))) (mk-menu-item :label "Menu 2" :visible (c? (md-value (fm^ :menu2-visible)))