Commit f978b794 authored by Diederik van Arkel's avatar Diederik van Arkel

Fix multibackground highlighting for Mac;

parent 93a62873
......@@ -300,9 +300,16 @@ vChangeSelectionTo newSelection =
skip
vHiliteSelection :: ViewFrame [Rectangle] Text FontInfo Selection *Picture -> *Picture
vHiliteSelection frame upds text fontInfo selection pic
vHiliteSelection frame upds text fontInfo=:{charWidth, marginWidth, syntaxColours} selection pic
# rects = selToRects selection frame text fontInfo
= appClipPicture (toRegion upds)(seq(map hilite rects) ) pic
// # rects = trace_l rects rects
// = trace_n` ("vHiliteSelection",frame) appClipPicture (toRegion upds)(seq(map hilite rects) ) pic
# bRects = [{r & corner2.x = min r.corner2.x margin} \\ r <- rects]
# mRects = [{r & corner1.x = max r.corner1.x margin} \\ r <- rects]
= appClipPicture (toRegion upds)(seq(map hilite mRects) o setPenBack syntaxColours.marginColour o seq(map hilite bRects) o setPenBack syntaxColours.backgroundColour) pic
where
margin
= marginWidth * charWidth
vRemoveSelection :: EditMonad (PSt .l) nothing
vRemoveSelection =
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment