Fix selection in combine menu

src/Dodge/Render/List.hs

@@ -100,17 +100,18 @@ listCursorChooseBorderScale ygap s borders xoff yoff cfig yint col cursxsize cur
 -- this is probably because it is 8 pixels plus one for the border
 listCursorChooseBorder ::
     Set CardinalPoint -> Float -> Float -> Configuration -> Int -> Color -> Int -> Int -> Picture
-listCursorChooseBorder borders xoff yoff cfig yint col cursxsize cursysize =
-    winScale cfig
-        . translate
-            (6 + xoff - halfWidth cfig)
-            (halfHeight cfig + 12.5 - (20 * fromIntegral yint + yoff + 20 + hgt))
-        . color col
-        $ chooseCursorBorders wth hgt borders
-  where
-    x = 9
-    wth = x * fromIntegral cursxsize + 9
-    hgt = 20 * fromIntegral cursysize
+listCursorChooseBorder = listCursorChooseBorderScale 10 1
+--listCursorChooseBorder borders xoff yoff cfig yint col cursxsize cursysize =
+--    winScale cfig
+--        . translate
+--            (6 + xoff - halfWidth cfig)
+--            (halfHeight cfig + 12.5 - (20 * fromIntegral yint + yoff + 20 + hgt))
+--        . color col
+--        $ chooseCursorBorders wth hgt borders
+--  where
+--    x = 9
+--    wth = x * fromIntegral cursxsize + 9
+--    hgt = 20 * fromIntegral cursysize
 
 -- note we cannot simply scale lines because they are drawn as solid rectangles
 chooseCursorBorders :: Float -> Float -> Set CardinalPoint -> Picture