Penpot/penpot
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-09 00:10:11 -05:00
Code Issues Activity

🐛 Fix problem when moving absolute positioned shapes

Browse source
This commit is contained in:
alonso.torres 2024-02-06 18:34:36 +01:00
parent 5ed1ff6d41
commit 8032a22f14
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
common/src/app/common/types/modifiers.cljc
View file

@ -777,14 +777,19 @@
:add-children :add-children
(let [value (dm/get-prop operation :value) (let [value (dm/get-prop operation :value)
index (dm/get-prop operation :index)] index (dm/get-prop operation :index)
(if (some? index)
(update shape :shapes shape
(fn [shapes] (if (some? index)
(if (vector? shapes) (update shape :shapes
(d/insert-at-index shapes index value) (fn [shapes]
(d/concat-vec shapes value)))) (if (vector? shapes)
(update shape :shapes d/concat-vec value))) (d/insert-at-index shapes index value)
(d/concat-vec shapes value))))
(update shape :shapes d/concat-vec value))]
;; Remove duplication
(update shape :shapes #(into [] (apply d/ordered-set %))))
:remove-children :remove-children
(let [value (dm/get-prop operation :value)] (let [value (dm/get-prop operation :value)]