0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2025-03-27 23:21:47 -05:00

🐛 Fix streaming of panning events

This commit is contained in:
Alejandro Alonso 2024-11-18 10:06:27 +01:00
parent defe6ff7f8
commit b03df6422f

View file

@ -157,6 +157,8 @@
(rx/filter mse/pointer-event?)
(rx/filter #(= :delta (:source %)))
(rx/take-until stopper)
;; Some events are executed in synchronous way like panning with backspace pressed
(rx/observe-on :af)
(rx/map (fn [event]
(let [delta (dm/get-prop event :pt)]
(update-viewport-position {:x #(- % (/ (:x delta) zoom))