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*))