Commit 7381e3fc authored by Diederik van Arkel's avatar Diederik van Arkel

adjust window width to char width;

parent 1c5fc19b
......@@ -48,12 +48,12 @@ computeViewDomain
{ corner1 = { x = if lineNumbers (fontInfo.metrics.fMaxWidth*(-5)) (-4)
, y = 0
}
, corner2 = { x = MAX_LINE_WIDTH
, corner2 = { x = fontInfo.charWidth * MAX_LINE_WIDTH
, y = fontInfo.lineHeight * textLength text + fontInfo.metrics.fLeading + fontInfo.metrics.fDescent
}
}
where
MAX_LINE_WIDTH = 2000
MAX_LINE_WIDTH = 320
//\\//\\//\\//\\//
getViewFrame :: EditMonad (PSt .l) ViewFrame
......
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