1 /* 2 * Copyright 2001 Sun Microsystems, Inc. All rights reserved. 3 * Use is subject to license terms. 4 */ 5 6 /* Copyright (c) 1983, 1984, 1985, 1986, 1987, 1988, 1989 AT&T */ 7 /* All Rights Reserved */ 8 9 /* 10 * Copyright (c) 1980 Regents of the University of California. 11 * All rights reserved. The Berkeley software License Agreement 12 * specifies the terms and conditions for redistribution. 13 */ 14 15 #pragma ident "%Z%%M% %I% %E% SMI" 16 17 /*LINTLIBRARY*/ 18 19 #ifndef lint 20 static char 21 sccsid[] = "@(#)scroll.c 1.6 88/02/08 SMI"; /* from UCB 5.1 85/06/07 */ 22 #endif /* not lint */ 23 24 #include "curses.ext" 25 26 /* 27 * This routine scrolls the window up a line. 28 */ 29 30 int 31 scroll(WINDOW *win) 32 { 33 int oy, ox; 34 35 #ifdef DEBUG 36 fprintf(outf, "SCROLL(%0.2o)\n", win); 37 #endif 38 39 if (!win->_scroll) 40 return (ERR); 41 42 getyx(win, oy, ox); 43 (void) wmove(win, 0, 0); 44 (void) wdeleteln(win); 45 (void) wmove(win, oy, ox); 46 47 if (win == curscr) { 48 (void) _putchar('\n'); 49 if (!NONL) 50 win->_curx = 0; 51 #ifdef DEBUG 52 fprintf(outf, "SCROLL: win == curscr\n"); 53 #endif 54 } 55 56 return (OK); 57 } 58