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
@@ -45,6 +45,7 @@ data SelectionItem a
    = SelectionItem
        { _siPictures :: [String]
        , _siHeight :: Int
+        , _siWidth :: Int
        , _siIsSelectable :: Bool
        , _siColor :: Color
        , _siOffX :: Int
@@ -53,6 +54,7 @@ data SelectionItem a
    | SelectionInfo
        { _siPictures :: [String]
        , _siHeight :: Int
+        , _siWidth :: Int
        , _siIsSelectable :: Bool
        , _siColor :: Color
        , _siOffX :: Int