(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|))
((eq cval 'uxul-world::key)
(config-button-image cbtn key))
((eq cval 'uxul-world::anchor)
- (format t "fuck")
- (format t (cadr cval2))
- (write (gethash (cadr cval2) anchors))
(config-button-image cbtn (gethash (cadr cval2) anchors)))
((eq cval 'uxul-world::uxul)
(config-button-image cbtn uxul)))))