Rev 9628 | Rev 9730 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9628 | Rev 9648 | ||
|---|---|---|---|
| Line 204... | Line 204... | ||
| 204 | List.delete(t.strings, item); |
204 | List.delete(t.strings, item); |
| 205 | DISPOSE(item) |
205 | DISPOSE(item) |
| 206 | END delete; |
206 | END delete; |
| Line 207... | Line 207... | ||
| 207 | 207 | ||
| 208 | 208 | ||
| 209 | PROCEDURE scroll* (t: tTabs; n: INTEGER); |
209 | PROCEDURE scroll* (t: tTabs; btn: INTEGER); |
| 210 | VAR |
210 | VAR |
| 211 | pos: INTEGER; |
211 | pos: INTEGER; |
| 212 | BEGIN |
212 | BEGIN |
| 213 | pos := t.first + n; |
213 | pos := t.first + ORD(btn = btnRight) - ORD(btn = btnLeft); |
| 214 | IF pos < 0 THEN |
214 | IF pos < 0 THEN |
| 215 | pos := 0 |
215 | pos := 0 |
| 216 | ELSIF pos >= t.strings.count THEN |
216 | ELSIF pos >= t.strings.count THEN |