From 6226c7f93be460b52a4128ba2b3f40b4cc711fe4 Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Fri, 19 Feb 2016 22:33:10 +0200 Subject: [PATCH] Fix wrong behavior on canvas position translation. The translation was not aware of bounding rect size increment when shapes are out of main drawing zone. --- src/uxbox/ui/workspace/canvas.cljs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/uxbox/ui/workspace/canvas.cljs b/src/uxbox/ui/workspace/canvas.cljs index e2c8e6c15b..87e23e3867 100644 --- a/src/uxbox/ui/workspace/canvas.cljs +++ b/src/uxbox/ui/workspace/canvas.cljs @@ -188,9 +188,12 @@ (let [viewport (mx/get-ref-dom own "viewport")] (when-let [canvas (dom/get-element-by-class "page-canvas" viewport)] (let [brect (.getBoundingClientRect canvas) + bbox (.getBBox canvas) brect (gpt/point (parse-int (.-left brect)) - (parse-int (.-top brect)))] - (gpt/subtract pt brect))))) + (parse-int (.-top brect))) + bbox (gpt/point (.-x bbox) (.-y bbox))] + (-> (gpt/add pt bbox) + (gpt/subtract brect)))))) (on-key-down [event] (when (kbd/space? event)