Subversion Repositories Kolibri OS

Rev

Rev 9577 | Rev 9645 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9577 Rev 9599
Line 149... Line 149...
149 
 
 149 
 
150 
PROCEDURE getSettings* (VAR build, run, debug: RW.tFileName);
 150 
PROCEDURE getSettings* (VAR build, run, debug: RW.tFileName);
151 
BEGIN
 151 
BEGIN
152 
	Lines.setTabs(get_int(IniFileName, "settings", "tab", 4));
 152 
	Lines.setTabs(get_int(IniFileName, "settings", "tab", 4));
153 
	blink := get_int(IniFileName, "settings", "blink", 70);
 - 
 
154 
	IF blink = 0 THEN
 - 
 
155 
		blink := -1
 - 
 
156 
	ELSE
 - 
 
157 
		blink := MIN(MAX(blink, 1), 1000)
 - 
 
158 
	END;
 153 
	blink := get_int(IniFileName, "settings", "blink", 70);
159 
    getStr("settings", "build", build);
 154 
    getStr("settings", "build", build);
160 
    getStr("settings", "run",   run);
 155 
    getStr("settings", "run",   run);
161 
    getStr("settings", "debug", debug)
 156 
    getStr("settings", "debug", debug)