From 17597ced08390ce18fffc057e169889c8901c21b Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Sat, 30 Jan 2016 13:49:48 +0200
Subject: [PATCH] Add missing -move impl for group.

---
 src/uxbox/shapes.cljs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/uxbox/shapes.cljs b/src/uxbox/shapes.cljs
index 98c2a80454..52652acd57 100644
--- a/src/uxbox/shapes.cljs
+++ b/src/uxbox/shapes.cljs
@@ -164,6 +164,12 @@
          :x (+ (:x shape) dx)
          :y (+ (:y shape) dy)))
 
+(defmethod -move :builtin/group
+  [shape [dx dy]]
+  (assoc shape
+         :dx (+ (:dx shape 0) dx)
+         :dy (+ (:dy shape 0) dy)))
+
 (defmethod -move :builtin/line
   [shape [dx dy]]
   (assoc shape