🐛 Fix middle button panning can drag guides

This commit is contained in:
Pablo Alba 2023-02-08 12:19:29 +01:00
parent 8e35ad0f7f
commit d49e1f1641
3 changed files with 6 additions and 5 deletions

View file

@ -69,10 +69,11 @@
on-pointer-down
(mf/use-callback
(fn [event]
(dom/capture-pointer event)
(mf/set-ref-val! dragging-ref true)
(mf/set-ref-val! start-ref (dom/get-client-position event))
(mf/set-ref-val! start-pos-ref (get @ms/mouse-position axis))))
(when (= 0 (.-button event))
(dom/capture-pointer event)
(mf/set-ref-val! dragging-ref true)
(mf/set-ref-val! start-ref (dom/get-client-position event))
(mf/set-ref-val! start-pos-ref (get @ms/mouse-position axis)))))
on-pointer-up
(mf/use-callback