(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)))))
"Symbolname: \"" (symbol-name (car sym)) "\"~%"
"First argument: \"" (cadr sym) "\"~%"
"Second argument: \"" (caddr sym) "\"")))
- (ltk:do-msg "There doesnt seem to be anything here."))))
+ (ltk:do-msg "There doesnt seem to be anything here."))
+ (return-from react)))
((eql current-chosen-object 'uxul-world::anchor)
(cond
((string= (ltk:text argument1-entry) "")