3pp-mirror/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-06-06 09:31:38 +02:00
Code Issues Projects Releases Packages Wiki Activity

🐛 Fix problem with hug layout and groups

Browse source
This commit is contained in:
alonso.torres 2022-11-30 13:27:32 +01:00 • committed by Alonso Torres
parent 2c558a6a02
commit 29b1b4dbc9
5 changed files with 41 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

25
frontend/src/app/main/ui/workspace/viewport/debug.cljs
View file

@ -152,7 +152,7 @@
[props]
(let [objects (unchecked-get props "objects")
zoom (unchecked-get props "objects")
zoom (unchecked-get props "zoom")
selected-shapes (unchecked-get props "selected-shapes")
hover-top-frame-id (unchecked-get props "hover-top-frame-id")
@ -160,13 +160,26 @@
(when (and (= (count selected-shapes) 1) (= :frame (-> selected-shapes first :type)))
(first selected-shapes))
parent (or selected-frame (get objects hover-top-frame-id))]
parent (or selected-frame (get objects hover-top-frame-id))
parent-bounds (:points parent)]
(when (and (some? parent) (not= uuid/zero (:id parent)))
(let [children (cph/get-immediate-children objects (:id parent))]
[:g.debug-parent-bounds {:pointer-events "none"}
(for [[idx child] (d/enumerate children)]
[:> shape-parent-bound {:key (dm/str "bound-" idx)
:zoom zoom
:shape child
:parent parent}])]))))
[:*
[:> shape-parent-bound {:key (dm/str "bound-" idx)
:zoom zoom
:shape child
:parent parent}]
(let [child-bounds (:points child)
points
(if (or (ctl/fill-height? child) (ctl/fill-height? child))
(gsl/child-layout-bound-points parent child parent-bounds child-bounds)
child-bounds)]
(for [point points]
[:circle {:cx (:x point)
:cy (:y point)
:r (/ 2 zoom)
:style {:fill "red"}}]))])]))))