From a11b618d24cfabf1dc467fe2aa9d89a5d114b3e7 Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Thu, 29 Sep 2016 07:12:07 +0200 Subject: [PATCH] Setup new shape proportions on the end of resize. --- src/uxbox/main/ui/shapes/selection.cljs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/uxbox/main/ui/shapes/selection.cljs b/src/uxbox/main/ui/shapes/selection.cljs index 7fbca3c28..bcfbcd8d5 100644 --- a/src/uxbox/main/ui/shapes/selection.cljs +++ b/src/uxbox/main/ui/shapes/selection.cljs @@ -44,11 +44,12 @@ ;; --- Resize Implementation (defn- start-resize - [vid shape] + [vid sid] (letfn [(on-resize [[delta ctrl?]] (let [params {:vid vid :delta (assoc delta :lock ctrl?)}] - (rs/emit! (uds/update-vertex-position shape params)))) + (rs/emit! (uds/update-vertex-position sid params)))) (on-end [] + (rs/emit! (uds/setup-proportions sid)) (rlocks/release! :shape/resize))] (let [stoper (->> wb/events-s (rx/map first) @@ -59,7 +60,7 @@ (rx/with-latest-from vector wb/mouse-ctrl-s))] (rlocks/acquire! :shape/resize) (when @wb/alignment-ref - (rs/emit! (uds/initial-vertext-align shape vid))) + (rs/emit! (uds/initial-vertext-align sid vid))) (rx/subscribe stream on-resize nil on-end)))) ;; --- Selection Handlers (Component)