Fix terminal mouse over positioning
This commit is contained in:
@@ -1,8 +1,8 @@
|
||||
module Dodge.ListDisplayParams (
|
||||
invDP,
|
||||
-- secDP,
|
||||
invCursorParams,
|
||||
secondColumnLDP,
|
||||
terminalLDP,
|
||||
subInvX,
|
||||
menuLDP,
|
||||
) where
|
||||
@@ -42,6 +42,9 @@ invCursorParams w = BoundaryCursor $ case w ^? hud . subInventory of
|
||||
secondColumnLDP :: LDParams
|
||||
secondColumnLDP = defaultLDP & ldpPos . spPixelOff .~ V2 subInvX (-20)
|
||||
|
||||
terminalLDP :: LDParams
|
||||
terminalLDP = secondColumnLDP & ldpBorder ?~ (49, 16)
|
||||
|
||||
subInvX :: Float
|
||||
subInvX = 10 * fromIntegral topInvW + 170
|
||||
|
||||
|
||||
Reference in New Issue
Block a user