Make selection cursors use selection item width

2024-11-26 22:49:54 +00:00
parent f12c390778
commit 2b969f6530
9 changed files with 128 additions and 126 deletions
@@ -38,8 +38,8 @@ type IMSS a = IntMap (SelectionSection a)

 data SelectionWidth
    = FixedSelectionWidth Int
-    | VariableSelectionWidth (Int -> Int)
-    | UseMaxSelectionItemWidth
+--    | UseMaxSelectionItemWidth
+    | UseItemWidth

 data SelectionItem a
    = SelectionItem