Fix a viewer can drop a .penpot file on dashboard

This commit is contained in:
Pablo Alba 2024-11-11 13:19:30 +01:00
parent 134c23c70c
commit e1e13bcfb1

View file

@ -457,12 +457,14 @@
on-drop on-drop
(mf/use-fn (mf/use-fn
(fn [e] (fn [e]
(if can-edit
(when (and (not (dnd/has-type? e "penpot/files")) (when (and (not (dnd/has-type? e "penpot/files"))
(or (dnd/has-type? e "Files") (or (dnd/has-type? e "Files")
(dnd/has-type? e "application/x-moz-file"))) (dnd/has-type? e "application/x-moz-file")))
(dom/prevent-default e) (dom/prevent-default e)
(reset! dragging? false) (reset! dragging? false)
(import-files (.-files (.-dataTransfer e))))))] (import-files (.-files (.-dataTransfer e))))
(dom/prevent-default e))))]
[:div {:class (stl/css :dashboard-grid) [:div {:class (stl/css :dashboard-grid)
:dragabble (dm/str can-edit) :dragabble (dm/str can-edit)
@ -576,8 +578,9 @@
on-drop on-drop
(mf/use-fn (mf/use-fn
(mf/deps files selected-files) (mf/deps files selected-files can-edit)
(fn [e] (fn [e]
(if can-edit
(cond (cond
(dnd/has-type? e "penpot/files") (dnd/has-type? e "penpot/files")
(do (do
@ -593,7 +596,8 @@
(do (do
(dom/prevent-default e) (dom/prevent-default e)
(reset! dragging? false) (reset! dragging? false)
(import-files (.-files (.-dataTransfer e)))))))] (import-files (.-files (.-dataTransfer e)))))
(dom/prevent-default e))))]
[:div {:class (stl/css :dashboard-grid) [:div {:class (stl/css :dashboard-grid)
:dragabble (dm/str can-edit) :dragabble (dm/str can-edit)