Improve drawRBOptions positioning

src/Dodge/ListDisplayParams.hs

@@ -17,7 +17,8 @@ import Linear
 import SDL (MouseButton (..))
 
 defaultLDP :: LDParams
-defaultLDP = LDP
+defaultLDP =
+    LDP
         { _ldpVerticalGap = 0
         , _ldpScale = 1
         , _ldpPos =
@@ -32,10 +33,13 @@ invDP :: LDParams
 invDP = defaultLDP & ldpPos . spPixelOff .~ V2 16 (-20)
 
 invCursorParams :: World -> CursorDisplay
-invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
---    Just ExamineInventory{} -> [North, South, East, West]
+invCursorParams w = BoundCurs $ case w ^? hud . subInventory of
+    --    Just ExamineInventory{} -> [North, South, East, West]
     Just CombineInventory{} -> []
-    _ | ButtonRight `M.member` _mouseButtons (_input w) -> [North, South, East, West]
+    _
+        | ButtonRight `M.member` _mouseButtons (_input w)
+            && (null $ w ^? rbState . opSel) ->
+            [North, South, East, West]
     _ -> [North, South, West]
 
 secondColumnLDP :: LDParams