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

[Kenny Tilton]

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"