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

Contents of /root/config.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Wed Feb 16 22:34:43 2005 UTC (9 years, 2 months ago) by pdenno
Branch: MAIN
Changes since 1.1: +9 -3 lines
New global - pathname for user-define icon. The actual file, called my-g.png is provided.
1 ktilton 1.1 (in-package :cl-user)
2    
3     #+lispworks
4     (setq *HANDLE-EXISTING-DEFPACKAGE* '(:modify))
5    
6    
7     #|
8    
9     Tell ASDF where to find everything
10    
11     |#
12    
13    
14 pdenno 1.2 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "utils-kt"))
15 ktilton 1.1 asdf:*central-registry*)
16    
17 pdenno 1.2 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "cells"))
18 ktilton 1.1 asdf:*central-registry*)
19    
20 pdenno 1.2 (push (make-pathname :directory '(:absolute "local" "lisp" "cells-gtk" "hello-c"))
21 ktilton 1.1 asdf:*central-registry*)
22    
23     (push (merge-pathnames
24     (make-pathname :directory '(:relative "gtk-ffi"))
25     *load-pathname*)
26     asdf:*central-registry*)
27    
28     (push (merge-pathnames
29     (make-pathname :directory '(:relative "cells-gtk"))
30     *load-pathname*)
31     asdf:*central-registry*)
32    
33     #| --------------------------------------
34     Add test-gtk, and tell it where to find images
35     |#
36    
37     (push (merge-pathnames
38     (make-pathname :directory '(:relative "cells-gtk" "test-gtk"))
39     *load-pathname*)
40     asdf:*central-registry*)
41    
42     (defparameter *splash-image*
43     (merge-pathnames
44     (make-pathname :directory '(:relative "test-images")
45     :name "splash"
46     :type "png")
47     *load-pathname*))
48    
49     (defparameter *small-image*
50     (merge-pathnames
51     (make-pathname :directory '(:relative "test-images")
52     :name "small" :type "png")
53     *load-pathname*))
54    
55     (defparameter *tst-image*
56     (merge-pathnames
57     (make-pathname :directory '(:relative "test-images")
58     :name "tst" :type "gif")
59 pdenno 1.2 *load-pathname*))
60    
61     (defparameter *stock-icon-image*
62     (merge-pathnames
63     (make-pathname :directory '(:relative "test-images")
64     :name "my-g" :type "png")
65 ktilton 1.1 *load-pathname*))

  ViewVC Help
Powered by ViewVC 1.1.5