Improve rotate drag mouse context

2025-06-01 10:06:51 +01:00
parent 59e1207b46
commit 61e85ffd5c
2 changed files with 2 additions and 12 deletions
@@ -94,6 +94,8 @@ updateMouseInGame cfig w

 updateMouseHeldInGame :: Configuration -> World -> World
 updateMouseHeldInGame cfig w = case w ^. input . mouseContext of
+    OverInvDragSelect {} | ButtonRight `M.member` (w ^. input . mouseButtons)
+        -> w & input . mouseContext .~ MouseGameRotate
    OverInvDragSelect sstart _ -> fromMaybe w $ do
        sss <- w ^? hud . hudElement . diSections
        let msel = inverseSelNumPos cfig invDP sss (w ^. input . mousePos)