Work on combine cursors

2023-02-17 18:00:40 +00:00
parent 30ce713534
commit 90133fb54b
5 changed files with 91 additions and 43 deletions
@@ -45,11 +45,7 @@ data SectionCursor = SectionCursor
 data SelectionSection a = SelectionSection
    { _ssItems :: IntMap (SelectionItem a)
    , _ssCursor :: Maybe SectionCursor
--    , _ssSelPos :: Maybe Int
--    , _ssSelSize :: Maybe Int
--    , _ssSelColor :: Maybe Color
    , _ssMinSize :: Int
-    --, _ssPriority :: Int
    , _ssOffset :: Int
    , _ssShownItems :: [Picture]
    , _ssIndent :: Int