burning-marshmallow seems to work now with boundings.

[uxul-world.git] / leveleditor.lisp

diff --git a/leveleditor.lisp b/leveleditor.lisp
index 61b38c8..86a6ccc 100644 (file)
--- a/leveleditor.lisp
+++ b/leveleditor.lisp
@@ -180,9 +180,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 +202,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) "")