Commit before working on displaying composed items in inventory

2024-09-11 16:04:33 +01:00
parent 60c399935e
commit c72278f728
3 changed files with 18 additions and 7 deletions
@@ -5,6 +5,7 @@

 module Dodge.Data.SelectionList where

+import Dodge.Data.DoubleTree
 import Color
 import Control.Lens
 import Data.IntMap.Strict (IntMap)
@@ -61,6 +62,17 @@ data SelectionSection a = SelectionSection
    , _ssIndent :: Int
    , _ssDescriptor :: String
    }
+    |
+    SelectionTreeSection
+    { _stsItems :: DoubleTree (SelectionItem a)
+    , _ssCursor :: Maybe SectionCursor
+    , _ssMinSize :: Int
+    , _ssOffset :: Int
+    , _ssShownItems :: [Picture]
+    , _ssIndent :: Int
+    , _ssDescriptor :: String
+    }
+

 data SelectionWidth
    = FixedSelectionWidth Int