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

[Peter Denno]

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