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

[Peter Denno]

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

Modified Files:
	config.lisp 
Log Message:
New global - pathname for user-define icon. The actual file, called my-g.png is provided.
Date: Wed Feb 16 23:34:44 2005
Author: pdenno

Index: root/config.lisp
diff -u root/config.lisp:1.1 root/config.lisp:1.2
--- root/config.lisp:1.1	Tue Jan 25 16:57:31 2005
+++ root/config.lisp	Wed Feb 16 23:34:43 2005
@@ -11,13 +11,13 @@
 |#
 
 
-(push (make-pathname :directory '(:absolute "cell-cultures" "utils-kt"))
+(push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "utils-kt"))
   asdf:*central-registry*)
   
-(push (make-pathname :directory '(:absolute "cell-cultures" "cells"))
+(push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "cells"))
   asdf:*central-registry*)
   
-(push (make-pathname :directory '(:absolute "cell-cultures" "hello-c"))
+(push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "hello-c"))
   asdf:*central-registry*)
   
 (push (merge-pathnames
@@ -56,4 +56,10 @@
   (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*))