Commit | Line | Data |
---|---|---|
87c6fcf8 | 1 | /* |
2f14f200 KB |
2 | * Copyright (c) 1981 Regents of the University of California. |
3 | * All rights reserved. | |
4 | * | |
7e3eac84 | 5 | * %sccs.include.redist.c% |
87c6fcf8 DF |
6 | */ |
7 | ||
8 | #ifndef lint | |
7e3eac84 | 9 | static char sccsid[] = "@(#)scroll.c 5.4 (Berkeley) %G%"; |
2f14f200 | 10 | #endif /* not lint */ |
87c6fcf8 | 11 | |
064c6fd5 KA |
12 | # include "curses.ext" |
13 | ||
14 | /* | |
15 | * This routine scrolls the window up a line. | |
16 | * | |
064c6fd5 KA |
17 | */ |
18 | scroll(win) | |
9a23ad49 JB |
19 | register WINDOW *win; |
20 | { | |
21 | register int oy, ox; | |
064c6fd5 | 22 | |
9a23ad49 JB |
23 | # ifdef DEBUG |
24 | fprintf(outf, "SCROLL(%0.2o)\n", win); | |
25 | # endif | |
064c6fd5 KA |
26 | |
27 | if (!win->_scroll) | |
28 | return ERR; | |
9a23ad49 JB |
29 | |
30 | getyx(win, oy, ox); | |
31 | wmove(win, 0, 0); | |
32 | wdeleteln(win); | |
33 | wmove(win, oy, ox); | |
34 | ||
064c6fd5 | 35 | if (win == curscr) { |
b1e78d21 | 36 | _putchar('\n'); |
064c6fd5 KA |
37 | if (!NONL) |
38 | win->_curx = 0; | |
39 | # ifdef DEBUG | |
40 | fprintf(outf, "SCROLL: win == curscr\n"); | |
064c6fd5 | 41 | # endif |
a26deb78 | 42 | } |
064c6fd5 | 43 | } |