Setup shape proportions when it is added to the page.

This commit is contained in:
Andrey Antukh 2016-09-28 22:09:01 +02:00
parent 84ef0a75e1
commit 20cfae2a17
No known key found for this signature in database
GPG Key ID: 4DFEBCB8316A8B95

View File

@ -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