github/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-08-06 04:48:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

🐛 Fix problem with frame title movement

Browse Source
This commit is contained in:
alonso.torres 2026-02-25 13:47:40 +01:00 committed by Belén Albeza
parent baa44119f4
commit f41eca12f4
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
common/src/app/common/types/shape_tree.cljc
View File

@ -115,21 +115,25 @@
(defn get-frames (defn get-frames
"Retrieves all frame objects as vector" "Retrieves all frame objects as vector"
([objects] (get-frames objects nil)) ([objects] (get-frames objects nil))
([objects {:keys [skip-components? skip-copies?] ([objects {:keys [skip-components? skip-copies? ignore-index?]
:or {skip-components? false :or {skip-components? false
skip-copies? false}}] skip-copies? false
(->> (or (-> objects meta ::index-frames) ignore-index? false}}]
(let [lookup (d/getf objects) (let [frame-index
xform (comp (remove #(= uuid/zero %)) (if (and (not ignore-index?) (-> objects meta ::index-frames))
(keep lookup) (-> objects meta ::index-frames)
(filter cfh/frame-shape?))] (let [lookup (d/getf objects)
(->> (keys objects) xform (comp (remove #(= uuid/zero %))
(sequence xform)))) (keep lookup)
(remove #(or (and ^boolean skip-components? (filter cfh/frame-shape?))]
^boolean (ctk/instance-head? %)) (->> (keys objects)
(and ^boolean skip-copies? (sequence xform))))]
(and ^boolean (ctk/instance-head? %) (->> frame-index
(not ^boolean (ctk/main-instance? %))))))))) (remove #(or (and ^boolean skip-components?
^boolean (ctk/instance-head? %))
(and ^boolean skip-copies?
(and ^boolean (ctk/instance-head? %)
(not ^boolean (ctk/main-instance? %))))))))))
(defn get-frames-ids (defn get-frames-ids
"Retrieves all frame ids as vector" "Retrieves all frame ids as vector"

2
frontend/src/app/main/ui/workspace/viewport/widgets.cljs
View File

@ -242,7 +242,7 @@
[{:keys [objects zoom selected focus is-show-artboard-names [{:keys [objects zoom selected focus is-show-artboard-names
on-frame-enter on-frame-leave on-frame-select]}] on-frame-enter on-frame-leave on-frame-select]}]
(let [selected (or selected #{}) (let [selected (or selected #{})
shapes (ctt/get-frames objects {:skip-copies? true}) shapes (ctt/get-frames objects {:skip-copies? true :ignore-index? true})
shapes (if (dbg/enabled? :shape-titles) shapes (if (dbg/enabled? :shape-titles)
(into (set shapes) (into (set shapes)
(map (d/getf objects)) (map (d/getf objects))