Add selection item width

2024-11-26 21:53:49 +00:00
parent 9e0ef2ed1d
commit f12c390778
6 changed files with 26 additions and 12 deletions
@@ -23,6 +23,7 @@ invSelectionItem indent cr i ci =
    SelectionItem
        { _siPictures = pics & ix 0 %~ (++ anyequippos ++ anyhotkey)
        , _siHeight = _itInvSize $ _cItem ci
+        , _siWidth = 15
        , _siIsSelectable = True
        , _siColor = col
        , _siOffX = indent
@@ -57,6 +58,7 @@ closeItemToSelectionItem w (NInt i) = do
        SelectionItem
            { _siPictures = pics
            , _siHeight = length pics
+            , _siWidth = 15
            , _siIsSelectable = True
            , _siColor = col
            , _siOffX = 0
@@ -70,6 +72,7 @@ closeButtonToSelectionItem w i = do
        SelectionItem
            { _siPictures = [_btText bt]
            , _siHeight = 1
+            , _siWidth = 15
            , _siIsSelectable = True
            , _siColor = yellow
            , _siOffX = 0