From 20cfae2a17dabc489a651ec3995bd4f2f0f51c11 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Wed, 28 Sep 2016 22:09:01 +0200
Subject: [PATCH] Setup shape proportions when it is added to the page.

---
 src/uxbox/main/data/shapes.cljs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/uxbox/main/data/shapes.cljs b/src/uxbox/main/data/shapes.cljs
index 3fcf63db3e..5c0a0a0d0f 100644
--- a/src/uxbox/main/data/shapes.cljs
+++ b/src/uxbox/main/data/shapes.cljs
@@ -30,7 +30,8 @@
     udp/IPageUpdate
     rs/UpdateEvent
     (-apply-update [_ state]
-      (let [page (get-in state [:workspace :page])]
+      (let [page (get-in state [:workspace :page])
+            shape (geom/setup-proportions shape)]
         (stsh/assoc-shape-to-page state shape page)))))
 
 (defn delete-shape