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
@@ -37,7 +37,7 @@ drawSSCursor ::
    Picture
 drawSSCursor sss msel ldp curs cfig =
    translateScreenPos cfig (ldp ^. ldpPos) $
-        selSecDrawCursor 15 ldp curs sss msel
+        selSecDrawCursor ldp curs sss msel

 drawSSMultiCursor ::
    IM.IntMap (SelectionSection a) ->