[cells-gtk-cvs] CVS update: root/cells-gtk/test-gtk/test-menus.lisp

[Peter Denno]

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)))