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

factoring out genworks-gdl code

parent 62ae52b2
...@@ -11,7 +11,7 @@ ...@@ -11,7 +11,7 @@
(str (the main-area main-div)) (str (the main-area main-div))
(str (the drop-coord-section 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) (input-link-angle-d nil :settable)
) )
...@@ -28,7 +28,7 @@ ...@@ -28,7 +28,7 @@
:hidden-objects ((drop-coord-section :type 'sheet-section :hidden-objects ((drop-coord-section :type 'sheet-section
:js-to-eval :parse :js-to-eval :parse
:inner-html (with-cl-who-string () :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)) (str (the input-link-angle-d))
#+nil #+nil
(:script (:script
......
...@@ -128,21 +128,7 @@ value of the image-format-selector, which itself defaults to :raphael." ...@@ -128,21 +128,7 @@ value of the image-format-selector, which itself defaults to :raphael."
:functions :functions
((set-js-vals! ((set-js-vals! (js-vals) (declare (ignore 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
)
)))))
:computed-slots :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