13 static Image *scrback;
22 if(screensize(0, &h) == 0)
24 scrtmp = allocimage(display, Rect(0, 0, 32, h), screen->chan, 0, 0);
25 scrback = allocimage(display, Rect(0, 0, 32, h), screen->chan, 0, 0);
26 if(scrtmp==0 || scrback==0)
31 scrpos(Rectangle r, long p0, long p1, long tot)
41 tot>>=10, p0>>=10, p1>>=10;
45 q.max.y -= h*(tot-p1)/tot;
46 if(q.max.y < q.min.y+2){
47 if(q.min.y+2 <= r.max.y)
56 scrmark(Flayer *l, Rectangle r)
59 if(rectclip(&r, l->scroll))
60 draw(l->f.b, r, l->f.cols[HIGH], nil, ZP);
64 scrunmark(Flayer *l, Rectangle r)
66 if(rectclip(&r, l->scroll))
67 draw(l->f.b, r, scrback, nil, Pt(0, r.min.y-l->scroll.min.y));
71 scrdraw(Flayer *l, long tot)
81 if(l->visible == All){
87 r2 = scrpos(r1, l->origin, l->origin+l->f.nchars, tot);
88 if(!eqrect(r2, l->lastsr)){
90 draw(b, r1, l->f.cols[BORD], nil, ZP);
91 draw(b, r2, l->f.cols[BACK], nil, r2.min);
93 r2.min.x = r2.max.x-1;
94 draw(b, r2, l->f.cols[BORD], nil, ZP);
96 draw(l->f.b, r, b, nil, r1.min);
101 scroll(Flayer *l, int but)
104 long tot = scrtotal(l);
105 Rectangle scr, r, s, rt;
110 x = s.min.x+FLSCROLLWID/2;
111 scr = scrpos(l->scroll, l->origin, l->origin+l->f.nchars, tot);
115 draw(scrback, Rect(0,0,Dx(l->scroll), Dy(l->scroll)), l->f.b, nil, l->scroll.min);
118 in = abs(x-mousep->xy.x)<=FLSCROLLWID/2;
129 if(!eqpt(mousep->xy, Pt(x, my)))
130 moveto(mousectl, Pt(x, my));
132 p0 = l->origin-frcharofpt(&l->f, Pt(s.max.x, my));
133 rt = scrpos(l->scroll, p0, p0+l->f.nchars, tot);
140 p0 = l->origin+frcharofpt(&l->f, Pt(s.max.x, my));
141 rt = scrpos(l->scroll, p0, p0+l->f.nchars, tot);
146 r = rectaddpt(scr, Pt(0, y-scr.min.y));
156 p0 = (long)(my-s.min.y)/l->f.font->height+1;
158 if(tot > 1024L*1024L)
159 p0 = ((tot>>10)*(y-s.min.y)/h)<<10;
161 p0 = tot*(y-s.min.y)/h;
163 p0 = l->origin+frcharofpt(&l->f, Pt(s.max.x, my));
167 scrorigin(l, but, p0);