Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9647 → Rev 9648

/programs/develop/cedit/SRC/Tabs.ob07
206,11 → 206,11
END delete;
 
 
PROCEDURE scroll* (t: tTabs; n: INTEGER);
PROCEDURE scroll* (t: tTabs; btn: INTEGER);
VAR
pos: INTEGER;
BEGIN
pos := t.first + n;
pos := t.first + ORD(btn = btnRight) - ORD(btn = btnLeft);
IF pos < 0 THEN
pos := 0
ELSIF pos >= t.strings.count THEN