+ (cond
+ ((eql current-chosen-object 'uxul-world::anchor)
+ (cond
+ ((string= (ltk:text argument1-entry) "")
+ (ltk:do-msg "Please give an argument in the left textbox")
+ (return-from react))
+ ((gethash (ltk:text argument1-entry) anchors nil)
+ (ltk:do-msg "Warning: You already set an
+ anchor with the same dungeon-name. Make
+ sure that you remove one of them. Behavior
+ is not specified in this case and may
+ change."))
+ (t
+ (setf (gethash (ltk:text argument1-entry) anchors)
+ (load-image-into-tk (annotated-image (gethash 'uxul-world::anchor *leveleditor-images*) (ltk:text argument1-entry))))))))