o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

scrolling

Browse source
This commit is contained in:
rsc 2004-06-11 04:13:03 +00:00
parent d7037d6280
commit 038aa0220a
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmd/acme/text.c
View file

@ -659,7 +659,9 @@ texttype(Text *t, Rune r)
n = t->fr.maxlines/3;
goto case_Down;
case Kscrollonedown:
n = 1;
n = mousescrollsize(t->fr.maxlines)-1; /* -1 counters a bug somewhere else */
if(n <= 0)
n = 1;
goto case_Down;
case Kpgdown:
n = 2*t->fr.maxlines/3;
@ -671,7 +673,7 @@ texttype(Text *t, Rune r)
n = t->fr.maxlines/3;
goto case_Up;
case Kscrolloneup:
n = 2; /* feels like this should be n=1, but that does nothing */
n = mousescrollsize(t->fr.maxlines)+1; /* +1 counters a bug somewhere else */
goto case_Up;
case Kpgup:
n = 2*t->fr.maxlines/3;