Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9194 → Rev 9197

/programs/develop/cedit/SRC/Text.ob07
1776,6 → 1776,19
END isWordChar;
 
 
PROCEDURE getSelectedText* (text: tText; VAR s: ARRAY OF WCHAR);
VAR
n: INTEGER;
selBeg, selEnd: tPoint;
BEGIN
s[0] := 0X;
IF selected(text) & (text.cursor.Y = text.select.Y) THEN
getSelect(text, selBeg, selEnd);
n := getString(text.curLine, selBeg.X, selEnd.X - selBeg.X, s)
END
END getSelectedText;
 
 
PROCEDURE wordSel* (text: tText);
VAR
n, i, x1, x2: INTEGER;