Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9945 → Rev 9946

/programs/develop/cedit/SRC/Text.ob07
40,7 → 40,7
mark_width = 2;
pad_left = mark_width + 3;
pad_top = 1;
LineSpacing* = 2;
MaxLineSpacing* = 8;
 
 
TYPE
98,7 → 98,7
drawCursor: BOOLEAN;
padding: RECORD left, top: INTEGER END;
size, textsize: tPoint;
charWidth, charHeight: INTEGER;
charWidth, charHeight, LineSpacing*: INTEGER;
autoIndents*, lineNumbers*, autoBrackets*, trimSpace*: BOOLEAN;
 
 
2164,9 → 2164,9
IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END;
text.wordSel := FALSE
END;
IF (text.lang = Lang.langFasm) & ~selected(text) THEN
(*IF (text.lang = Lang.langFasm) & ~selected(text) THEN
fasm_anon(text)
END
END*)
END wordSel;
 
 
3005,8 → 3005,18
END empty;
 
 
PROCEDURE init* (pShowCursor: tProcedure; _lineNumbers, _autoIndents, _autoBrackets, _trimSpace: BOOLEAN);
PROCEDURE setLineSpacing* (canvas: G.tCanvas; value: INTEGER);
BEGIN
IF (0 <= value) & (value <= MaxLineSpacing) THEN
LineSpacing := value;
setCanvas(canvas)
END
END setLineSpacing;
 
 
PROCEDURE init* (pShowCursor: tProcedure;
_lineNumbers, _autoIndents, _autoBrackets, _trimSpace: BOOLEAN; _lineSpacing: INTEGER);
BEGIN
ShowCursor := pShowCursor;
pdelete := delete;
drawCursor := TRUE;
3016,6 → 3026,7
trimSpace := _trimSpace;
padding.left := pad_left;
padding.top := pad_top;
LineSpacing := _lineSpacing
END init;