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"
 11 a59ea66f 2003-09-30 devnull 
 12 a59ea66f 2003-09-30 devnull static Image *scrtmp;
 13 a59ea66f 2003-09-30 devnull static Image *scrback;
 14 a59ea66f 2003-09-30 devnull 
 15 a59ea66f 2003-09-30 devnull void
 16 a59ea66f 2003-09-30 devnull scrtemps(void)
 17 a59ea66f 2003-09-30 devnull {
 18 a59ea66f 2003-09-30 devnull 	int h;
 19 a59ea66f 2003-09-30 devnull 
 20 a59ea66f 2003-09-30 devnull 	if(scrtmp)
 21 a59ea66f 2003-09-30 devnull 		return;
 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");
 28 a59ea66f 2003-09-30 devnull }
 29 a59ea66f 2003-09-30 devnull 
 30 a59ea66f 2003-09-30 devnull Rectangle
 31 a59ea66f 2003-09-30 devnull scrpos(Rectangle r, long p0, long p1, long tot)
 32 a59ea66f 2003-09-30 devnull {
 33 a59ea66f 2003-09-30 devnull 	Rectangle q;
 34 a59ea66f 2003-09-30 devnull 	int h;
 35 a59ea66f 2003-09-30 devnull 
 36 a59ea66f 2003-09-30 devnull 	q = r;
 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;
 49 a59ea66f 2003-09-30 devnull 		else
 50 a59ea66f 2003-09-30 devnull 			q.min.y = q.max.y-2;
 51 a59ea66f 2003-09-30 devnull 	}
 52 a59ea66f 2003-09-30 devnull 	return q;
 53 a59ea66f 2003-09-30 devnull }
 54 a59ea66f 2003-09-30 devnull 
 55 a59ea66f 2003-09-30 devnull void
 56 a59ea66f 2003-09-30 devnull scrmark(Flayer *l, Rectangle r)
 57 a59ea66f 2003-09-30 devnull {
 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);
 61 a59ea66f 2003-09-30 devnull }
 62 a59ea66f 2003-09-30 devnull 
 63 a59ea66f 2003-09-30 devnull void
 64 a59ea66f 2003-09-30 devnull scrunmark(Flayer *l, Rectangle r)
 65 a59ea66f 2003-09-30 devnull {
 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));
 68 a59ea66f 2003-09-30 devnull }
 69 a59ea66f 2003-09-30 devnull 
 70 a59ea66f 2003-09-30 devnull void
 71 a59ea66f 2003-09-30 devnull scrdraw(Flayer *l, long tot)
 72 a59ea66f 2003-09-30 devnull {
 73 a59ea66f 2003-09-30 devnull 	Rectangle r, r1, r2;
 74 a59ea66f 2003-09-30 devnull 	Image *b;
 75 a59ea66f 2003-09-30 devnull 
 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;
 80 a59ea66f 2003-09-30 devnull 	r1 = r;
 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);
 85 a59ea66f 2003-09-30 devnull 	}else
 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);
 92 a59ea66f 2003-09-30 devnull 		r2 = r1;
 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);
 97 a59ea66f 2003-09-30 devnull 	}
 98 a59ea66f 2003-09-30 devnull }
 99 a59ea66f 2003-09-30 devnull 
100 a59ea66f 2003-09-30 devnull void
101 a59ea66f 2003-09-30 devnull scroll(Flayer *l, int but)
102 a59ea66f 2003-09-30 devnull {
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;
108 a59ea66f 2003-09-30 devnull 
109 a59ea66f 2003-09-30 devnull 	s = l->scroll;
110 c2822499 2012-11-26 rsc 	x = s.min.x+FLSCROLLWID(l)/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);
116 a59ea66f 2003-09-30 devnull 	do{
117 a59ea66f 2003-09-30 devnull 		oin = in;
118 c2822499 2012-11-26 rsc 		in = abs(x-mousep->xy.x)<=FLSCROLLWID(l)/2;
119 a59ea66f 2003-09-30 devnull 		if(oin && !in)
120 a59ea66f 2003-09-30 devnull 			scrunmark(l, r);
121 a59ea66f 2003-09-30 devnull 		if(in){
122 a59ea66f 2003-09-30 devnull 			scrmark(l, r);
123 a59ea66f 2003-09-30 devnull 			oy = y;
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){
136 a59ea66f 2003-09-30 devnull 				y = my;
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;
143 a59ea66f 2003-09-30 devnull 			}
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);
148 a59ea66f 2003-09-30 devnull 			}
149 a59ea66f 2003-09-30 devnull 		}
150 a59ea66f 2003-09-30 devnull 	}while(button(but));
151 a59ea66f 2003-09-30 devnull 	if(in){
152 a59ea66f 2003-09-30 devnull 		h = s.max.y-s.min.y;
153 a59ea66f 2003-09-30 devnull 		scrunmark(l, r);
154 a59ea66f 2003-09-30 devnull 		p0 = 0;
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;
160 a59ea66f 2003-09-30 devnull 			else
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;
166 a59ea66f 2003-09-30 devnull 		}
167 a59ea66f 2003-09-30 devnull 		scrorigin(l, but, p0);
168 a59ea66f 2003-09-30 devnull 	}
169 a59ea66f 2003-09-30 devnull }