Commit ff3995cb authored by Diederik van Arkel's avatar Diederik van Arkel
Browse files

adjust window width to char width;

parent 5e6f4f9d
......@@ -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
......
Supports Markdown
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