Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9009 → Rev 9010

/programs/develop/cedit/SRC/CEdit.ob07
28,7 → 28,7
RW, Ini, box_lib, Icons;
 
CONST
header = "CEdit (15-jun-2021)";
header = "CEdit (06-jul-2021)";
 
ShellFilter = "";
EditFilter = "SH|ASM|TXT|INC|OB07|C|CPP|H|PAS|PP|LUA|INI";
345,6 → 345,9
K.DeleteButton(btnNo);
confirm := FALSE
END;
IF ~search THEN
T.wordSel(text)
END;
T.draw(text);
K.ClientSize(width, height);
y := height - (BOTTOM - scrollWidth) + (BOTTOM - scrollWidth - 16) DIV 2;
1286,11 → 1289,11
cs := FALSE;
whole := FALSE;
replaced := 0;
Ini.getStr("paths", "build", buildScript);
Ini.getStr("paths", "run", runScript);
Ini.getStr("paths", "debug", debugScript);
draw_window;
repaint;
buildScript := "";
runScript := "";
debugScript := "";
WHILE TRUE DO
CASE K.WaitForEvent() OF
|1:
1405,6 → 1408,7
|30: key := ORD("A")
|31: key := -1;
save
|32: key := ORD("D")
|38: key := ORD("L")
|44: T.undo(text);
key := -1