🐛 Fix middle button panning can drag guides

CHANGES.md

@@ -4,6 +4,7 @@
 
 ### :bug: Bugs fixed
 - Fix paste board inside itself [Taiga #4775](https://tree.taiga.io/project/penpot/issue/4775)
+- Fix middle button panning can drag guides [Taiga #4266](https://tree.taiga.io/project/penpot/issue/4266)
 
 ## 1.17.1
 

backend/src/app/rpc.clj

@@ -7,7 +7,6 @@
 (ns app.rpc
   (:require
    [app.auth.ldap :as-alias ldap]
-   [app.common.data :as d]
    [app.common.exceptions :as ex]
    [app.common.logging :as l]
    [app.common.spec :as us]

frontend/src/app/main/ui/workspace/viewport/guides.cljs

@@ -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