Allow for indentation of individual selection items

2024-09-12 10:21:35 +01:00
parent eddb313ea1
commit 891fd0079c
8 changed files with 213 additions and 181 deletions
@@ -5,7 +5,6 @@

 module Dodge.Data.SelectionList where

-import Dodge.Data.DoubleTree
 import Color
 import Control.Lens
 import Data.IntMap.Strict (IntMap)
@@ -62,16 +61,6 @@ 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