Major Changes. Windows Compatibility.

[uxul-world.git] / leveleditor.lisp

diff --git a/leveleditor.lisp b/leveleditor.lisp
old mode 100644 (file)
new mode 100755 (executable)
index 61b38c8..0f01e40
--- 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))
+    (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|))
@@ -180,9 +181,6 @@ form (x y object arg1 arg2 ...)."
                       ((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)))))
@@ -205,7 +203,8 @@ form (x y object arg1 arg2 ...)."
                                                           "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) "")