Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-02-10 17:18:21 -05:00
Code Issues Activity

Add missing -move impl for group.

Browse source
This commit is contained in:
Andrey Antukh 2016-01-30 13:49:48 +02:00
parent e1a15aed9a
commit 17597ced08
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/uxbox/shapes.cljs
View file

@ -164,6 +164,12 @@
:x (+ (:x shape) dx) :x (+ (:x shape) dx)
:y (+ (:y shape) dy))) :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 (defmethod -move :builtin/line
[shape [dx dy]] [shape [dx dy]]
(assoc shape (assoc shape