🐛 Fixed Firefox behaviour

This commit is contained in:
alonso.torres 2020-06-03 08:48:21 +02:00
parent 8077f2704e
commit ccbe50b042
3 changed files with 7 additions and 2 deletions

View file

@ -311,6 +311,7 @@
on-drop
(fn [event]
(dom/prevent-default event)
(let [shape (dom/get-data-transfer event)
point (gpt/point (.-clientX event) (.-clientY event))
viewport-coord (translate-point-to-viewport point)

View file

@ -165,11 +165,11 @@
(defn set-data-transfer
[event data]
(let [data-string (ts/encode data)]
(-> event .-dataTransfer (.setData "text" data-string))))
(-> event .-dataTransfer (.setData "text/plain" data-string))))
(defn get-data-transfer
[event]
(let [data-string (-> event .-dataTransfer (.getData "text"))]
(let [data-string (-> event .-dataTransfer (.getData "text/plain"))]
(ts/decode data-string)))
(defn fullscreen?