1 a59ea66f 2003-09-30 devnull #include <u.h>
2 a59ea66f 2003-09-30 devnull #include <libc.h>
3 a59ea66f 2003-09-30 devnull #include <draw.h>
4 a59ea66f 2003-09-30 devnull #include <thread.h>
5 a59ea66f 2003-09-30 devnull #include <mouse.h>
6 a59ea66f 2003-09-30 devnull #include <cursor.h>
7 a59ea66f 2003-09-30 devnull #include <keyboard.h>
8 a59ea66f 2003-09-30 devnull #include <frame.h>
9 a59ea66f 2003-09-30 devnull #include "flayer.h"
10 a59ea66f 2003-09-30 devnull #include "samterm.h"
12 a59ea66f 2003-09-30 devnull static Image *scrtmp;
13 a59ea66f 2003-09-30 devnull static Image *scrback;
16 a59ea66f 2003-09-30 devnull scrtemps(void)
20 a59ea66f 2003-09-30 devnull if(scrtmp)
22 a59ea66f 2003-09-30 devnull if(screensize(0, &h) == 0)
23 a59ea66f 2003-09-30 devnull h = 2048;
24 a59ea66f 2003-09-30 devnull scrtmp = allocimage(display, Rect(0, 0, 32, h), screen->chan, 0, 0);
25 a59ea66f 2003-09-30 devnull scrback = allocimage(display, Rect(0, 0, 32, h), screen->chan, 0, 0);
26 a59ea66f 2003-09-30 devnull if(scrtmp==0 || scrback==0)
27 a59ea66f 2003-09-30 devnull panic("scrtemps");
30 a59ea66f 2003-09-30 devnull Rectangle
31 a59ea66f 2003-09-30 devnull scrpos(Rectangle r, long p0, long p1, long tot)
33 a59ea66f 2003-09-30 devnull Rectangle q;
37 a59ea66f 2003-09-30 devnull h = q.max.y-q.min.y;
38 a59ea66f 2003-09-30 devnull if(tot == 0)
39 a59ea66f 2003-09-30 devnull return q;
40 a59ea66f 2003-09-30 devnull if(tot > 1024L*1024L)
41 a59ea66f 2003-09-30 devnull tot>>=10, p0>>=10, p1>>=10;
42 a59ea66f 2003-09-30 devnull if(p0 > 0)
43 a59ea66f 2003-09-30 devnull q.min.y += h*p0/tot;
44 a59ea66f 2003-09-30 devnull if(p1 < tot)
45 a59ea66f 2003-09-30 devnull q.max.y -= h*(tot-p1)/tot;
46 a59ea66f 2003-09-30 devnull if(q.max.y < q.min.y+2){
47 a59ea66f 2003-09-30 devnull if(q.min.y+2 <= r.max.y)
48 a59ea66f 2003-09-30 devnull q.max.y = q.min.y+2;
50 a59ea66f 2003-09-30 devnull q.min.y = q.max.y-2;
52 a59ea66f 2003-09-30 devnull return q;
56 a59ea66f 2003-09-30 devnull scrmark(Flayer *l, Rectangle r)
58 a59ea66f 2003-09-30 devnull r.max.x--;
59 a59ea66f 2003-09-30 devnull if(rectclip(&r, l->scroll))
60 a59ea66f 2003-09-30 devnull draw(l->f.b, r, l->f.cols[HIGH], nil, ZP);
64 a59ea66f 2003-09-30 devnull scrunmark(Flayer *l, Rectangle r)
66 a59ea66f 2003-09-30 devnull if(rectclip(&r, l->scroll))
67 a59ea66f 2003-09-30 devnull draw(l->f.b, r, scrback, nil, Pt(0, r.min.y-l->scroll.min.y));
71 a59ea66f 2003-09-30 devnull scrdraw(Flayer *l, long tot)
73 a59ea66f 2003-09-30 devnull Rectangle r, r1, r2;
74 a59ea66f 2003-09-30 devnull Image *b;
76 a59ea66f 2003-09-30 devnull scrtemps();
77 a59ea66f 2003-09-30 devnull if(l->f.b == 0)
78 a59ea66f 2003-09-30 devnull panic("scrdraw");
79 a59ea66f 2003-09-30 devnull r = l->scroll;
81 a59ea66f 2003-09-30 devnull if(l->visible == All){
82 a59ea66f 2003-09-30 devnull b = scrtmp;
83 a59ea66f 2003-09-30 devnull r1.min.x = 0;
84 a59ea66f 2003-09-30 devnull r1.max.x = Dx(r);
86 a59ea66f 2003-09-30 devnull b = l->f.b;
87 a59ea66f 2003-09-30 devnull r2 = scrpos(r1, l->origin, l->origin+l->f.nchars, tot);
88 a59ea66f 2003-09-30 devnull if(!eqrect(r2, l->lastsr)){
89 a59ea66f 2003-09-30 devnull l->lastsr = r2;
90 a59ea66f 2003-09-30 devnull draw(b, r1, l->f.cols[BORD], nil, ZP);
91 a59ea66f 2003-09-30 devnull draw(b, r2, l->f.cols[BACK], nil, r2.min);
93 a59ea66f 2003-09-30 devnull r2.min.x = r2.max.x-1;
94 a59ea66f 2003-09-30 devnull draw(b, r2, l->f.cols[BORD], nil, ZP);
95 a59ea66f 2003-09-30 devnull if(b!=l->f.b)
96 a59ea66f 2003-09-30 devnull draw(l->f.b, r, b, nil, r1.min);
101 a59ea66f 2003-09-30 devnull scroll(Flayer *l, int but)
103 a59ea66f 2003-09-30 devnull int in = 0, oin;
104 a59ea66f 2003-09-30 devnull long tot = scrtotal(l);
105 a59ea66f 2003-09-30 devnull Rectangle scr, r, s, rt;
106 a59ea66f 2003-09-30 devnull int x, y, my, oy, h;
107 a59ea66f 2003-09-30 devnull long p0;
109 a59ea66f 2003-09-30 devnull s = l->scroll;
110 a59ea66f 2003-09-30 devnull x = s.min.x+FLSCROLLWID/2;
111 a59ea66f 2003-09-30 devnull scr = scrpos(l->scroll, l->origin, l->origin+l->f.nchars, tot);
112 a59ea66f 2003-09-30 devnull r = scr;
113 a59ea66f 2003-09-30 devnull y = scr.min.y;
114 a59ea66f 2003-09-30 devnull my = mousep->xy.y;
115 a59ea66f 2003-09-30 devnull draw(scrback, Rect(0,0,Dx(l->scroll), Dy(l->scroll)), l->f.b, nil, l->scroll.min);
117 a59ea66f 2003-09-30 devnull oin = in;
118 a59ea66f 2003-09-30 devnull in = abs(x-mousep->xy.x)<=FLSCROLLWID/2;
119 a59ea66f 2003-09-30 devnull if(oin && !in)
120 a59ea66f 2003-09-30 devnull scrunmark(l, r);
122 a59ea66f 2003-09-30 devnull scrmark(l, r);
124 a59ea66f 2003-09-30 devnull my = mousep->xy.y;
125 a59ea66f 2003-09-30 devnull if(my < s.min.y)
126 a59ea66f 2003-09-30 devnull my = s.min.y;
127 a59ea66f 2003-09-30 devnull if(my >= s.max.y)
128 a59ea66f 2003-09-30 devnull my = s.max.y;
129 a59ea66f 2003-09-30 devnull if(!eqpt(mousep->xy, Pt(x, my)))
130 a59ea66f 2003-09-30 devnull moveto(mousectl, Pt(x, my));
131 a59ea66f 2003-09-30 devnull if(but == 1){
132 a59ea66f 2003-09-30 devnull p0 = l->origin-frcharofpt(&l->f, Pt(s.max.x, my));
133 a59ea66f 2003-09-30 devnull rt = scrpos(l->scroll, p0, p0+l->f.nchars, tot);
134 a59ea66f 2003-09-30 devnull y = rt.min.y;
135 a59ea66f 2003-09-30 devnull }else if(but == 2){
137 a59ea66f 2003-09-30 devnull if(y > s.max.y-2)
138 a59ea66f 2003-09-30 devnull y = s.max.y-2;
139 a59ea66f 2003-09-30 devnull }else if(but == 3){
140 a59ea66f 2003-09-30 devnull p0 = l->origin+frcharofpt(&l->f, Pt(s.max.x, my));
141 a59ea66f 2003-09-30 devnull rt = scrpos(l->scroll, p0, p0+l->f.nchars, tot);
142 a59ea66f 2003-09-30 devnull y = rt.min.y;
144 a59ea66f 2003-09-30 devnull if(y != oy){
145 a59ea66f 2003-09-30 devnull scrunmark(l, r);
146 a59ea66f 2003-09-30 devnull r = rectaddpt(scr, Pt(0, y-scr.min.y));
147 a59ea66f 2003-09-30 devnull scrmark(l, r);
150 a59ea66f 2003-09-30 devnull }while(button(but));
152 a59ea66f 2003-09-30 devnull h = s.max.y-s.min.y;
153 a59ea66f 2003-09-30 devnull scrunmark(l, r);
155 a59ea66f 2003-09-30 devnull if(but == 1)
156 a59ea66f 2003-09-30 devnull p0 = (long)(my-s.min.y)/l->f.font->height+1;
157 a59ea66f 2003-09-30 devnull else if(but == 2){
158 a59ea66f 2003-09-30 devnull if(tot > 1024L*1024L)
159 a59ea66f 2003-09-30 devnull p0 = ((tot>>10)*(y-s.min.y)/h)<<10;
161 a59ea66f 2003-09-30 devnull p0 = tot*(y-s.min.y)/h;
162 a59ea66f 2003-09-30 devnull }else if(but == 3){
163 a59ea66f 2003-09-30 devnull p0 = l->origin+frcharofpt(&l->f, Pt(s.max.x, my));
164 a59ea66f 2003-09-30 devnull if(p0 > tot)
165 a59ea66f 2003-09-30 devnull p0 = tot;
167 a59ea66f 2003-09-30 devnull scrorigin(l, but, p0);