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
@@ -207,7 +207,7 @@ filterSectionsPair infocus filtfn itms filtdescription mfilt = (filtsis, itms')
                $ SelectionInfo
                    [filtdescription ++ " FILTER/" ++ str ++ [filtcurs], numfiltitems]
                    2
-                    15
+                    (length (filtdescription ++ " FILTER/" ++ str ++ [filtcurs]))
                    True
                    white
                    0