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

Modified Files: test-gtk.lisp Log Message: Added initarg to specify a user-defined stock icon. Date: Wed Feb 16 23:36:45 2005 Author: pdenno

Index: root/cells-gtk/test-gtk/test-gtk.lisp diff -u root/cells-gtk/test-gtk/test-gtk.lisp:1.9 root/cells-gtk/test-gtk/test-gtk.lisp:1.10 --- root/cells-gtk/test-gtk/test-gtk.lisp:1.9 Tue Jan 25 16:57:28 2005 +++ root/cells-gtk/test-gtk/test-gtk.lisp Wed Feb 16 23:36:45 2005 @@ -10,6 +10,7 @@ ;;:tooltips nil ;;dkwt ;;:tooltips-enable nil ;;dkwt :icon (namestring cl-user::*small-image*) + :stock-icons (list (list :my-g (namestring cl-user::*stock-icon-image*))) :position :center :splash-screen-image (namestring cl-user::*splash-image*) :width 550 :height 550