Return to _tscroll.c CVS log

Up to [Research Unix] / researchv10no / ncurses / screen

Annotation of researchv10no/ncurses/screen/_tscroll.c, revision 1.1.1.1

1.1       root        1: # include      "curses.ext"
                      2: /*     @(#) _tscroll.c: 1.1 10/15/83   (1.3    7/17/82)        */
                      3: 
                      4: _tscroll( win )
                      5: register WINDOW        *win;
                      6: {
                      7: 
                      8:        register chtype *sp;
                      9:        register int            i;
                     10:        register chtype *temp;
                     11:        register int    top, bot;
                     12: 
                     13: #ifdef DEBUG
                     14:        if( win == stdscr )
                     15:        {
                     16:                if(outf) fprintf( outf, "scroll( stdscr )\n" );
                     17:        }
                     18:        else
                     19:        {
                     20:                if( win == curscr)
                     21:                {
                     22:                        if(outf) fprintf( outf, "scroll( curscr )\n" );
                     23:                }
                     24:                else
                     25:                {
                     26:                        if(outf) fprintf( outf, "scroll( %x )\n", win );
                     27:                }
                     28:        }
                     29: #endif
                     30:        if( !win->_scroll )
                     31:        {
                     32:                return ERR;
                     33:        }
                     34:        /* scroll the window lines themselves up */
                     35:        top = win->_tmarg;
                     36:        bot = win->_bmarg;
                     37:        temp = win->_y[top];
                     38: #ifdef DEBUG
                     39:        if(outf)
                     40:        {
                     41:                fprintf( outf, "top = %d, bot = %d\n", top, bot );
                     42:        }
                     43: #endif DEBUG
                     44:        for (i = top; i < bot; i++)
                     45:        {
                     46:                win->_y[i] = win->_y[i+1];
                     47:        }
                     48:        /* Put a blank line in the opened up space */
                     49:        for (sp = temp; sp - temp < win->_maxx; )
                     50:                *sp++ = ' ';
                     51:        win->_y[bot] = temp;
                     52: #ifdef DEBUG
                     53:        if(outf)
                     54:        {
                     55:                fprintf(outf,"SCROLL win [0%o], curscr [0%o], top %d, bot %d\n",
                     56:                                win, curscr, top, bot);
                     57:                fprintf( outf, "Doing --> touchwin( 0%o )\n", win );
                     58:        }
                     59: #endif DEBUG
                     60:        win->_cury--;
                     61: /*
                     62: **     This section taken out because it wasn't allowing the scrolling of a
                     63: **     region smaller than the full screen.  Taken out on 10/12/83.  The 
                     64: **     function call touchwin(win) is done all the time now, & seems to do
                     65: **     the correct thing when it comes to scrolling with a smaller than screen
                     66: **     sized region, & a screen sized region.
                     67: **
                     68: **     if( win->_flags&_FULLWIN )
                     69: **     {
                     70: **             _scrdown();
                     71: **     }
                     72: **     else
                     73: **     {
                     74: **             musttouch = 1;
                     75: **     }
                     76: **     if( musttouch )
                     77: **             touchwin(win);
                     78: */
                     79:        touchwin(win);
                     80:        return OK;
                     81: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.