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

[Peter Denno]

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

Modified Files:
	config.lisp 
Log Message:
Juergen Gmeiner's patch: moves specials referencing pathnames used in test-gtk out of config.lisp and into test-gtk.lisp
Date: Sun Feb 27 04:23:19 2005
Author: pdenno

Index: root/config.lisp
diff -u root/config.lisp:1.2 root/config.lisp:1.3
--- root/config.lisp:1.2	Wed Feb 16 23:34:43 2005
+++ root/config.lisp	Sun Feb 27 04:23:19 2005
@@ -6,7 +6,8 @@
 
 #| 
 
-  Tell ASDF where to find everything
+  Tell ASDF where to find everything. 
+  This isn't used if you are loading a snapshot tarball.
 
 |#
 
@@ -39,27 +40,3 @@
        *load-pathname*)
   asdf:*central-registry*)
 
-(defparameter *splash-image* 
-  (merge-pathnames 
-   (make-pathname :directory '(:relative "test-images")
-     :name "splash"
-     :type "png") 
-   *load-pathname*))
-
-(defparameter *small-image* 
-  (merge-pathnames 
-   (make-pathname :directory '(:relative "test-images")
-     :name "small" :type "png") 
-   *load-pathname*))
-
-(defparameter *tst-image* 
-  (merge-pathnames 
-   (make-pathname :directory '(:relative "test-images")
-     :name "tst" :type "gif") 
-   *load-pathname*))
-
-(defparameter *stock-icon-image* 
-  (merge-pathnames 
-   (make-pathname :directory '(:relative "test-images")
-     :name "my-g" :type "png") 
-   *load-pathname*))
\ No newline at end of file