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

Modified Files: test-display.lisp test-gtk.lisp Log Message: Apply Andras SImon's patches from Jan 6, 2004 to get things working on CMU and ACL/Linux Date: Tue Jan 25 07:57:28 2005 Author: ktilton

Index: root/cells-gtk/test-gtk/test-display.lisp diff -u root/cells-gtk/test-gtk/test-display.lisp:1.3 root/cells-gtk/test-gtk/test-display.lisp:1.4 --- root/cells-gtk/test-gtk/test-display.lisp:1.3 Mon Dec 13 20:01:57 2004 +++ root/cells-gtk/test-gtk/test-display.lisp Tue Jan 25 07:57:28 2005 @@ -19,7 +19,7 @@ :ratio 1 :kids (list (mk-image :width 200 :height 250 - :filename "/00/root/test-images/tst.gif"))) + :filename (namestring cl-user::*tst-image*)))) (mk-hseparator) (mk-hbox :kids (list

Index: root/cells-gtk/test-gtk/test-gtk.lisp diff -u root/cells-gtk/test-gtk/test-gtk.lisp:1.8 root/cells-gtk/test-gtk/test-gtk.lisp:1.9 --- root/cells-gtk/test-gtk/test-gtk.lisp:1.8 Mon Jan 3 14:33:20 2005 +++ root/cells-gtk/test-gtk/test-gtk.lisp Tue Jan 25 07:57:28 2005 @@ -9,9 +9,9 @@ :title "GTK Testing" ;;:tooltips nil ;;dkwt ;;:tooltips-enable nil ;;dkwt - :icon "test-images/small.png" + :icon (namestring cl-user::*small-image*) :position :center - :splash-screen-image "/00/root/test-images/splash.png" + :splash-screen-image (namestring cl-user::*splash-image*) :width 550 :height 550 :kids (let ((tabs '("Buttons" "Display" "Layout"