Improve rotate drag mouse context

src/Dodge/TestString.hs

@@ -38,18 +38,6 @@ testStringInit u = [show $ u ^. uvWorld . unpauseClock]
 --        let itms = IM.elems $ cr ^. crInv
 --        return $ map (show . (^? itLocation . ilIsSelected)) itms
         --return . foldMap (prettyLDT (show . (^. _1 . itType))) . invLDT $ _crInv cr
-    
---    [ show $ u ^? uvWorld . input . mouseContext . mcoSelEnd
---    , show $ u ^? uvWorld . hud . hudElement . diSelection
---    , show $ u ^? uvWorld . input . mouseContext
---    , show $ u ^? uvWorld . input . mouseContext . mcoDragSection
---    , show $ u ^? uvWorld . input . mouseContext . mcoMaybeSelect
---    , show $ u ^? uvWorld . input . mouseContext . mcoAboveSelect
---    , show $ u ^? uvWorld . input . mouseContext . mcoBelowSelect
---    , show mpos
---    , show yint
---    , show $ u ^? uvWorld . hud . hudElement . diSections >>= inverseSelSecYint yint
---    ] 
 --  where
 --    idp = invDisplayParams $ u ^. uvWorld
 --    cfig = u ^. uvConfig

src/Dodge/Update/Input/InGame.hs

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