Tweak mouse pointer display

2024-11-04 09:32:36 +00:00
parent 1ed09fa8de
commit df08dc8ab5
7 changed files with 154 additions and 131 deletions
@@ -37,9 +37,9 @@ invDisplayParams w =

 invCursorParams :: World -> CursorDisplay
 invCursorParams w = BoundaryCursor $ case w ^? hud . hudElement . subInventory of
-    _ | ButtonRight `M.member` _mouseButtons (_input w) -> [North, South, East, West]
    Just ExamineInventory{} -> [North, South, East, West]
    Just CombineInventory{} -> []
+    _ | ButtonRight `M.member` _mouseButtons (_input w) -> [North, South, East, West]
    _ -> [North, South, West]

 secondColumnParams :: ListDisplayParams