/[cells-gtk]/root/config.lisp
ViewVC logotype

Diff of /root/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pdenno, Wed Feb 16 22:34:43 2005 UTC revision 1.3 by pdenno, Sun Feb 27 03:23:19 2005 UTC
# Line 6  Line 6 
6    
7  #|  #|
8    
9    Tell ASDF where to find everything    Tell ASDF where to find everything.
10      This isn't used if you are loading a snapshot tarball.
11    
12  |#  |#
13    
# Line 39  Line 40 
40         *load-pathname*)         *load-pathname*)
41    asdf:*central-registry*)    asdf:*central-registry*)
42    
 (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*))  

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5