mysticmode/plan9port
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

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;