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

[Peter Denno]

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

Modified Files:
	test-display.lisp 
Log Message:
Add definitions to demonstrate user-defined stock icon.
Date: Wed Feb 16 23:35:57 2005
Author: pdenno

Index: root/cells-gtk/test-gtk/test-display.lisp
diff -u root/cells-gtk/test-gtk/test-display.lisp:1.4 root/cells-gtk/test-gtk/test-display.lisp:1.5
--- root/cells-gtk/test-gtk/test-display.lisp:1.4	Tue Jan 25 16:57:28 2005
+++ root/cells-gtk/test-gtk/test-display.lisp	Wed Feb 16 23:35:57 2005
@@ -12,8 +12,9 @@
     :expand t :fill t
     :kids (list
            (mk-hbox
-            :kids (loop for icon-size in '(:menu :small-toolbar :large-toolbar :button :dnd :dialog) collect
-                        (mk-image :stock :harddisk :icon-size icon-size)))
+            :kids (loop for icon-size in '(:menu :small-toolbar :large-toolbar :button :dnd :dialog) 
+                     collect (mk-image :stock :harddisk :icon-size icon-size)
+                     collect (mk-image :stock :my-g :icon-size icon-size)))
            (mk-hseparator)
            (mk-aspect-frame 
             :ratio 1