Improve scroll selection/inventory modification

2026-03-24 19:21:04 +00:00
parent 5b297643db
commit 8ff2f37af5
16 changed files with 532 additions and 432 deletions
@@ -115,7 +115,7 @@ mouseCursorType u = case u ^. uvWorld . input . mouseContext of
    OverCombEscape -> rotate (pi / 4) $ drawPlus 5
    OverTerminal _ ts -> drawCursorByTerminalStatus ts
    OutsideTerminal -> rotate (pi / 4) $ drawPlus 5
-    MouseGameRotate -> rotate a (drawVerticalDoubleArrow 5)
+    MouseGameRotate {} -> rotate a (drawVerticalDoubleArrow 5)
    OverDebug {} -> drawPlus 5 <> rotate (pi/4) (drawPlus 5)
    --OverDebug db i -> scale 0.1 0.1 $ text (show db ++ show i)
  where