From 1f736380188d4c34352acc607890897b2d467218 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Thu, 29 Sep 2016 07:38:28 +0200
Subject: [PATCH] Revert "Remove `update-radius-attrs` event."

This reverts commit b1e9936aa6552bde75e9c7ffb0bcdfeedc98be56.
---
 src/uxbox/main/data/shapes.cljs | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/src/uxbox/main/data/shapes.cljs b/src/uxbox/main/data/shapes.cljs
index 0deda716b7..45a1bb5c24 100644
--- a/src/uxbox/main/data/shapes.cljs
+++ b/src/uxbox/main/data/shapes.cljs
@@ -237,6 +237,17 @@
                  (when color {:stroke color})
                  (when opacity {:stroke-opacity opacity})))))
 
+(defn update-radius-attrs
+  [sid {:keys [rx ry] :as opts}]
+  (reify
+    udp/IPageUpdate
+    rs/UpdateEvent
+    (-apply-update [_ state]
+      (update-in state [:shapes-by-id sid]
+                 merge
+                 (when rx {:rx rx})
+                 (when ry {:ry ry})))))
+
 (defn hide-shape
   [sid]
   (reify