github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-05-05 16:18:35 +00:00
Code Issues Packages Projects Releases Wiki 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)
: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