Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9903 → Rev 9904

/programs/develop/cedit/SRC/Text.ob07
68,7 → 68,7
smallChange: INTEGER;
modified*, smallMove,
comments, guard, fasm*,
search, cs, whole: BOOLEAN;
search, cs, whole, wordSel: BOOLEAN;
edition*: tGuard;
curLine: tLine;
lang*: INTEGER;
929,7 → 929,8
text.modified := TRUE;
text.comments := TRUE;
text.search := TRUE;
text.guard := TRUE
text.guard := TRUE;
text.wordSel := TRUE
END modify;
 
 
1055,7 → 1056,8
setSelect(text);
text.foundSel := 0;
ShowCursor;
text.CurX := -1
text.CurX := -1;
text.wordSel := TRUE
END SetPos;
 
 
1992,6 → 1994,7
str: tString;
curLine: tLine;
BEGIN
IF text.wordSel THEN
curLine := text.curLine;
IF selected(text) & (text.cursor.Y = text.select.Y) THEN
getSelect(text, selBeg, selEnd);
2015,7 → 2018,9
IF text.searchText # str THEN
text.smallMove := FALSE
END;
IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END
IF search(text, str, Lang.isCS(text.lang), TRUE) THEN END;
text.wordSel := FALSE
END
END wordSel;
 
 
2495,6 → 2500,7
text.cs := FALSE;
text.whole := FALSE;
text.guard := TRUE;
text.wordSel := FALSE;
text.edition := NIL;
text.foundList := List.create(NIL);
text.searchText := "";