From bcda09ed4135a72be0f861d1afa2288985c12118 Mon Sep 17 00:00:00 2001
From: Andrey Antukh <niwi@niwi.nz>
Date: Thu, 28 Jan 2016 23:38:48 +0200
Subject: [PATCH] Minor fix on drawing selection rect for group.

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

diff --git a/src/uxbox/shapes.cljs b/src/uxbox/shapes.cljs
index 0a8815a79c..c501c6531e 100644
--- a/src/uxbox/shapes.cljs
+++ b/src/uxbox/shapes.cljs
@@ -176,7 +176,9 @@
         x' (apply max (map (fn [{:keys [x width]}] (+ x width)) shapes))
         y' (apply max (map (fn [{:keys [y height]}] (+ y height)) shapes))
         width (- x' x)
-        height (- y' y)]
+        height (- y' y)
+        x (+ dx x)
+        y (+ dy y)]
     (as-> shape $
       (merge $ {:width width :height height :x x :y y})
       (container-rect $))))