🐛 Fix when right click on a selected text shows artboard contextual menu

CHANGES.md

@@ -68,6 +68,7 @@
 - Fix layout problem for editable selects [Taiga #1488](https://tree.taiga.io/project/penpot/issue/1488)
 - Fix artboard title wasn't move when resizing [Taiga #1479](https://tree.taiga.io/project/penpot/issue/1479)
 - Fix titles in viewer thumbnails too long [Taiga #1474](https://tree.taiga.io/project/penpot/issue/1474)
+- Fix when right click on a selected text shows artboard contextual menu [Taiga #1226](https://tree.taiga.io/project/penpot/issue/1226)
 
 
 ### :arrow_up: Deps updates

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

@@ -34,6 +34,7 @@
   (mf/use-callback
    (mf/deps id blocked hidden type drawing-tool text-editing? edition selected)
    (fn [bevent]
+     (when (dom/class? (dom/get-target bevent) "viewport-controls")
        (dom/stop-propagation bevent)
 
        (let [event  (.-nativeEvent bevent)
@@ -73,7 +74,7 @@
                (st/emit! (when (or shift? (not selected?))
                            (dw/select-shape id shift?))
                          (when (not shift?)
-                         (dw/start-move-selected))))))))))
+                           (dw/start-move-selected)))))))))))
 
 (defn on-move-selected
   [hover hover-ids selected]
@@ -122,6 +123,7 @@
   (mf/use-callback
    (mf/deps @hover selected)
    (fn [event]
+     (when (dom/class? (dom/get-target event) "viewport-controls")
        (let [ctrl? (kbd/ctrl? event)
              shift? (kbd/shift? event)
              alt? (kbd/alt? event)
@@ -132,7 +134,7 @@
          (st/emit! (ms/->MouseEvent :click ctrl? shift? alt?))
 
          (when (and hovering? (not shift?) (not frame?) (not selected?))
-         (st/emit! (dw/select-shape (:id @hover))))))))
+           (st/emit! (dw/select-shape (:id @hover)))))))))
 
 (defn on-double-click
   [hover hover-ids drawing-path? objects]
@@ -176,6 +178,7 @@
   (mf/use-callback
    (mf/deps @hover)
    (fn [event]
+     (when (dom/class? (dom/get-target event) "viewport-controls")
        (dom/prevent-default event)
 
        (let [position (dom/get-client-position event)]
@@ -185,7 +188,7 @@
             (if (some? @hover)
               (dw/show-shape-context-menu {:position position
                                            :shape @hover})
-            (dw/show-context-menu {:position position}))))))))
+              (dw/show-context-menu {:position position})))))))))
 
 (defn on-mouse-up
   [disable-paste]