1
0
mirror of https://git.tartarus.org/simon/putty.git synced 2025-07-12 16:47:42 -05:00

Right, I think we now hove scrolling optimisations. They should probably be

conditional on something, but I can't be bothered right now.

[originally from svn r67]
This commit is contained in:
Ben Harris
1999-03-02 21:51:55 +00:00
parent 0ce1d562c6
commit 2145f64798
3 changed files with 47 additions and 3 deletions

View File

@ -1,4 +1,4 @@
/* $Id: macterm.c,v 1.1.2.11 1999/03/02 14:52:35 ben Exp $ */
/* $Id: macterm.c,v 1.1.2.12 1999/03/02 21:51:55 ben Exp $ */
/*
* Copyright (c) 1999 Ben Harris
* All rights reserved.
@ -494,3 +494,23 @@ void optimised_move(int to, int from, int lines) {
InvalRgn(update); /* XXX: necessary? probably harmless anyway */
DisposeRgn(update);
}
/*
* Scroll the screen. (`lines' is +ve for scrolling forward, -ve
* for backward.)
*/
void do_scroll(int topline, int botline, int lines) {
struct mac_session *s = onlysession;
Rect r;
RgnHandle update;
SetPort(s->window);
update = NewRgn();
SetRect(&r, 0, topline * font_height,
cols * font_width, (botline + 1) * font_height);
ScrollRect(&r, 0, - lines * font_height, update);
/* XXX: move update region? */
InvalRgn(update);
DisposeRgn(update);
}