0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-01-31 19:39:07 -05:00

Merge pull request #5553 from penpot/niwinz-bugfix-4

Fix incorrect navigate event on component show main instance action
This commit is contained in:
Belén Albeza 2025-01-13 09:53:28 +01:00 committed by GitHub
commit 307834b276
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
2 changed files with 9 additions and 12 deletions

View file

@ -15,7 +15,6 @@
[app.common.types.container :as ctn]
[app.common.types.page :as ctp]
[app.common.types.shape.layout :as ctl]
[app.common.uuid :as uuid]
[app.main.data.event :as ev]
[app.main.data.modal :as modal]
[app.main.data.shortcuts :as scd]
@ -26,7 +25,6 @@
[app.main.data.workspace.shape-layout :as dwsl]
[app.main.data.workspace.shapes :as dwsh]
[app.main.data.workspace.shortcuts :as sc]
[app.main.features :as features]
[app.main.refs :as refs]
[app.main.store :as st]
[app.main.ui.components.dropdown :refer [dropdown]]
@ -486,15 +484,13 @@
:on-click on-add-layout}]]))]))
(mf/defc context-menu-component*
{::mf/props :obj
::mf/private true}
{:mf/private true}
[{:keys [shapes]}]
(let [components-v2 (features/use-feature "components/v2")
single? (= (count shapes) 1)
(let [single? (= (count shapes) 1)
objects (deref refs/workspace-page-objects)
can-make-component (every? true? (map #(ctn/valid-shape-for-component? objects %) shapes))
heads (filter ctk/instance-head? shapes)
components-menu-entries (cmm/generate-components-menu-entries heads components-v2)
components-menu-entries (cmm/generate-components-menu-entries heads true)
do-add-component #(st/emit! (dwl/add-component))
do-add-multiple-components #(st/emit! (dwl/add-multiple-components))]
[:*
@ -511,11 +507,12 @@
(when (seq components-menu-entries)
[:*
[:> menu-separator* {}]
(for [entry components-menu-entries :when (not (nil? entry))]
[:> menu-entry* {:key (uuid/next)
[:> menu-separator*]
(for [entry (filter some? components-menu-entries)]
[:> menu-entry* {:key (:title entry)
:title (:title entry)
:shortcut (when (contains? entry :shortcut) (sc/get-tooltip (:shortcut entry)))
:shortcut (when (contains? entry :shortcut)
(sc/get-tooltip (:shortcut entry)))
:on-click (:action entry)}])])]))
(mf/defc context-menu-delete*

View file

@ -399,7 +399,7 @@
#(st/emit! (dw/set-annotations-id-for-create id))
do-show-local-component
#(st/emit! (dwl/go-to-local-component component-id))
#(st/emit! (dwl/go-to-local-component :id component-id))
;; When the show-remote is after a restore, the component may still be deleted
do-show-remote-component