diff --git a/common/src/app/common/geom/shapes/transforms.cljc b/common/src/app/common/geom/shapes/transforms.cljc index 864167f1b..1c7bc9b8e 100644 --- a/common/src/app/common/geom/shapes/transforms.cljc +++ b/common/src/app/common/geom/shapes/transforms.cljc @@ -382,10 +382,11 @@ (defn update-group-selrect [group children] - (let [shape-center (gco/center-shape group) - ;; Points for every shape inside the group + (let [;; Points for every shape inside the group points (->> children (mapcat :points)) + shape-center (gco/center-points points) + ;; Fixed problem with empty groups. Should not happen (but it does) points (if (empty? points) (:points group) points)