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