projects
/
uxul-world.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
a1b8d36
)
minor change: init the files in level-editor.
author
christoph
<christoph@christoph-laptop.(none)>
Wed, 19 May 2010 02:54:14 +0000
(
04:54
+0200)
committer
christoph
<christoph@christoph-laptop.(none)>
Wed, 19 May 2010 02:54:14 +0000
(
04:54
+0200)
leveleditor.lisp
patch
|
blob
|
history
diff --git
a/leveleditor.lisp
b/leveleditor.lisp
index
86a6ccc
..
0f01e40
100644
(file)
--- a/
leveleditor.lisp
+++ b/
leveleditor.lisp
@@
-33,6
+33,7
@@
(defun prepare-images (&optional (care-about-initialization *leveleditor-images*))
(when (not care-about-initialization)
(setf *leveleditor-images* (make-hash-table))
(defun prepare-images (&optional (care-about-initialization *leveleditor-images*))
(when (not care-about-initialization)
(setf *leveleditor-images* (make-hash-table))
+ (uxul-world::init-files)
(setf (gethash 'uxul-world::uxul *leveleditor-images*) (stretched-image uxul-world::|uxul_small1|))
(setf (gethash 'uxul-world::leaf *leveleditor-images*) (stretched-image uxul-world::|leaf|))
(setf (gethash 'uxul-world::nasobem *leveleditor-images*) (stretched-image uxul-world::|nasobem|))
(setf (gethash 'uxul-world::uxul *leveleditor-images*) (stretched-image uxul-world::|uxul_small1|))
(setf (gethash 'uxul-world::leaf *leveleditor-images*) (stretched-image uxul-world::|leaf|))
(setf (gethash 'uxul-world::nasobem *leveleditor-images*) (stretched-image uxul-world::|nasobem|))