12 static Image *scrback;
21 if(screensize(0, &h) == 0)
23 scrtmp = allocimage(display, Rect(0, 0, 32, h), screen->chan, 0, 0);
24 scrback = allocimage(display, Rect(0, 0, 32, h), screen->chan, 0, 0);
25 if(scrtmp==0 || scrback==0)
30 scrpos(Rectangle r, long p0, long p1, long tot)
40 tot>>=10, p0>>=10, p1>>=10;
44 q.max.y -= h*(tot-p1)/tot;
45 if(q.max.y < q.min.y+2){
46 if(q.min.y+2 <= r.max.y)
55 scrmark(Flayer *l, Rectangle r)
58 if(rectclip(&r, l->scroll)) {
60 panic("scrmark: nil l->f.b");
61 draw(l->f.b, r, l->f.cols[HIGH], nil, ZP);
66 scrunmark(Flayer *l, Rectangle r)
68 if(rectclip(&r, l->scroll)) {
70 panic("scrunmark: nil l->f.b");
71 draw(l->f.b, r, scrback, nil, Pt(0, r.min.y-l->scroll.min.y));
76 scrdraw(Flayer *l, long tot)
86 if(l->visible == All){
92 r2 = scrpos(r1, l->origin, l->origin+l->f.nchars, tot);
93 if(!eqrect(r2, l->lastsr)){
95 draw(b, r1, l->f.cols[BORD], nil, ZP);
96 draw(b, r2, l->f.cols[BACK], nil, r2.min);
98 r2.min.x = r2.max.x-1;
99 draw(b, r2, l->f.cols[BORD], nil, ZP);
101 draw(l->f.b, r, b, nil, r1.min);
106 scroll(Flayer *l, int but)
109 long tot = scrtotal(l);
110 Rectangle scr, r, s, rt;
118 x = s.min.x+FLSCROLLWID/2;
119 scr = scrpos(l->scroll, l->origin, l->origin+l->f.nchars, tot);
123 draw(scrback, Rect(0,0,Dx(l->scroll), Dy(l->scroll)), l->f.b, nil, l->scroll.min);
126 in = (but > 3) || (but == 2) || abs(x-mousep->xy.x)<=FLSCROLLWID/2;
137 if(but == 1 || but == 4){
138 p0 = l->origin-frcharofpt(&l->f, Pt(s.max.x, my));
139 rt = scrpos(l->scroll, p0, p0+l->f.nchars, tot);
145 }else if(but == 3 || but == 5){
146 p0 = l->origin+frcharofpt(&l->f, Pt(s.max.x, my));
147 rt = scrpos(l->scroll, p0, p0+l->f.nchars, tot);
152 r = rectaddpt(scr, Pt(0, y-scr.min.y));
156 }while(but <= 3 && button(but));
161 if(but == 1 || but == 4){
163 p0 = (long)(my-s.min.y)/l->f.font->height+1;
165 if(tot > 1024L*1024L)
166 p0 = ((tot>>10)*(y-s.min.y)/h)<<10;
168 p0 = tot*(y-s.min.y)/h;
169 }else if(but == 3 || but == 5){
171 p0 = l->origin+frcharofpt(&l->f, Pt(s.max.x, my));
175 scrorigin(l, but, p0);