Commit 1b3d99ed authored by Dave Cooper's avatar Dave Cooper
Browse files

factoring out genworks-gdl code

parent 62ae52b2
......@@ -11,7 +11,7 @@
(str (the main-area main-div))
(str (the drop-coord-section main-div))))
(dropped-x-y (the main-area dropped-x-y))
(dropped-x-y (defaulting (the main-area dropped-x-y)))
(input-link-angle-d nil :settable)
)
......@@ -28,7 +28,7 @@
:hidden-objects ((drop-coord-section :type 'sheet-section
:js-to-eval :parse
:inner-html (with-cl-who-string ()
(str (the main-area dropped-x-y))
(str (defaulting (the main-area dropped-x-y)))
(str (the input-link-angle-d))
#+nil
(:script
......
......@@ -128,21 +128,7 @@ value of the image-format-selector, which itself defaults to :raphael."
:functions
((set-js-vals!
(js-vals)
(let ((dropped-x-y (the (model-x-y (destructuring-bind (&key x y &allow-other-keys) js-vals
(list :x x :y y)))))
(dropped-height-width (destructuring-bind (&key width height &allow-other-keys) js-vals
(list :width (/ width (the view-object view-scale))
:height (/ height (the view-object view-scale)))))
(dropped-object (with-error-handling ()
(base64-decode-list (getf js-vals :name)))))
(the (set-slots! (list :dropped-x-y dropped-x-y
:dropped-height-width dropped-height-width
:dropped-object dropped-object
)
)))))
((set-js-vals! (js-vals) (declare (ignore js-vals))))
:computed-slots
(
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment