adjust window width to char width;

CleanIDE/Ed/EdVisualText.icl

@@ -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