Simplify selection menu, remove overlapping

2024-09-11 16:39:56 +01:00
parent c72278f728
commit eddb313ea1
9 changed files with 167 additions and 169 deletions
@@ -99,7 +99,6 @@ drawExamineInventory cfig mtweaki w =
            , _siIsSelectable = True
            , _siColor = white
            , _siOffX = 0
-            , _siOffY = 0
            , _siPayload = ()
            }

@@ -215,7 +214,7 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
        invHead cfig (_tmTitle tm ++ ":T" ++ show tid)
            <> drawSelectionList secondColumnParams cfig (thesellist tm)
  where
-    toselitm (str, col) = SelectionItem [str] 1 True col 0 0 ()
+    toselitm (str, col) = SelectionItem [str] 1 True col 0 ()
    thesellist tm = defaultSelectionList & slItems .~ thelist tm
    thelist tm =
        map toselitm . displayTermInput tm
@@ -334,7 +333,6 @@ picsToSelectable pics =
        , _siIsSelectable = True
        , _siColor = white
        , _siOffX = 0
-        , _siOffY = 0
        , _siPayload = ()
        }