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

3
src/cmd/acme/exec.c
View file

@ -556,10 +556,11 @@ get(Text *et, Text *t, Text *argt, int flag1, int _0, Rune *arg, int narg)
d = dirstat(name);
isdir = (d!=nil && (d->qid.type & QTDIR));
free(d);
if(isdir)
if(isdir){
warning(nil, "%s is a directory; can't read with multiple windows on it\n", name);
return;
}
}
r = bytetorune(name, &n);
for(i=0; i<t->file->ntext; i++){
u = t->file->text[i];

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

@ -659,6 +659,8 @@ texttype(Text *t, Rune r)
n = t->fr.maxlines/3;
goto case_Down;
case Kscrollonedown:
n = mousescrollsize(t->fr.maxlines)-1; /* -1 counters a bug somewhere else */
if(n <= 0)
n = 1;
goto case_Down;
case Kpgdown:
@ -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;