From b931484e4940518b52d7703294916b60a424fdcd Mon Sep 17 00:00:00 2001 From: Andrey Antukh Date: Wed, 20 Apr 2016 20:32:56 +0300 Subject: [PATCH] Add missing impls for text shape under geom ns. --- src/uxbox/util/geom.cljs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/uxbox/util/geom.cljs b/src/uxbox/util/geom.cljs index 4043f4b84..38a35b6a2 100644 --- a/src/uxbox/util/geom.cljs +++ b/src/uxbox/util/geom.cljs @@ -39,6 +39,7 @@ (case (:type shape) :icon (move-rect shape dpoint) :rect (move-rect shape dpoint) + :text (move-rect shape dpoint) :line (move-rect shape dpoint) :circle (move-circle shape dpoint) :group (move-group shape dpoint))) @@ -125,6 +126,7 @@ "Calculate the size of the shape." [shape] (case (:type shape) + :text (rect-size shape) :rect (rect-size shape) :icon (rect-size shape) :line (rect-size shape))) @@ -147,6 +149,7 @@ [shape vid dpoint] (case (:type shape) :rect (move-rect-vertex shape vid dpoint) + :text (move-rect-vertex shape vid dpoint) :icon (move-rect-vertex shape vid dpoint) :circle (move-circle-vertex shape vid dpoint)))