1 e830a908 2005-11-06 devnull #include <u.h>
  2 e830a908 2005-11-06 devnull #include <libc.h>
  3 e830a908 2005-11-06 devnull #include <draw.h>
  4 e830a908 2005-11-06 devnull #include <thread.h>
  5 e830a908 2005-11-06 devnull #include <cursor.h>
  6 e830a908 2005-11-06 devnull #include <mouse.h>
  7 e830a908 2005-11-06 devnull #include <keyboard.h>
  8 e830a908 2005-11-06 devnull #include <frame.h>
  9 e830a908 2005-11-06 devnull #include <fcall.h>
 10 e830a908 2005-11-06 devnull #include "dat.h"
 11 e830a908 2005-11-06 devnull #include "fns.h"
 12 e830a908 2005-11-06 devnull 
 13 e830a908 2005-11-06 devnull static Image *scrtmp;
 14 e830a908 2005-11-06 devnull 
 15 e830a908 2005-11-06 devnull static
 16 e830a908 2005-11-06 devnull void
 17 e830a908 2005-11-06 devnull scrtemps(void)
 18 e830a908 2005-11-06 devnull {
 19 e830a908 2005-11-06 devnull 	int h;
 20 e830a908 2005-11-06 devnull 
 21 e830a908 2005-11-06 devnull 	if(scrtmp)
 22 e830a908 2005-11-06 devnull 		return;
 23 e830a908 2005-11-06 devnull 	h = BIG*Dy(screen->r);
 24 e830a908 2005-11-06 devnull 	scrtmp = allocimage(display, Rect(0, 0, 32, h), screen->chan, 0, DWhite);
 25 e830a908 2005-11-06 devnull 	if(scrtmp == nil)
 26 e830a908 2005-11-06 devnull 		error("scrtemps");
 27 e830a908 2005-11-06 devnull }
 28 e830a908 2005-11-06 devnull 
 29 e830a908 2005-11-06 devnull void
 30 e830a908 2005-11-06 devnull freescrtemps(void)
 31 e830a908 2005-11-06 devnull {
 32 e830a908 2005-11-06 devnull 	freeimage(scrtmp);
 33 e830a908 2005-11-06 devnull 	scrtmp = nil;
 34 e830a908 2005-11-06 devnull }
 35 e830a908 2005-11-06 devnull 
 36 e830a908 2005-11-06 devnull static
 37 e830a908 2005-11-06 devnull Rectangle
 38 e830a908 2005-11-06 devnull scrpos(Rectangle r, uint p0, uint p1, uint tot)
 39 e830a908 2005-11-06 devnull {
 40 e830a908 2005-11-06 devnull 	Rectangle q;
 41 e830a908 2005-11-06 devnull 	int h;
 42 e830a908 2005-11-06 devnull 
 43 e830a908 2005-11-06 devnull 	q = r;
 44 e830a908 2005-11-06 devnull 	h = q.max.y-q.min.y;
 45 e830a908 2005-11-06 devnull 	if(tot == 0)
 46 e830a908 2005-11-06 devnull 		return q;
 47 e830a908 2005-11-06 devnull 	if(tot > 1024*1024){
 48 e830a908 2005-11-06 devnull 		tot>>=10;
 49 e830a908 2005-11-06 devnull 		p0>>=10;
 50 e830a908 2005-11-06 devnull 		p1>>=10;
 51 e830a908 2005-11-06 devnull 	}
 52 e830a908 2005-11-06 devnull 	if(p0 > 0)
 53 e830a908 2005-11-06 devnull 		q.min.y += h*p0/tot;
 54 e830a908 2005-11-06 devnull 	if(p1 < tot)
 55 e830a908 2005-11-06 devnull 		q.max.y -= h*(tot-p1)/tot;
 56 e830a908 2005-11-06 devnull 	if(q.max.y < q.min.y+2){
 57 e830a908 2005-11-06 devnull 		if(q.min.y+2 <= r.max.y)
 58 e830a908 2005-11-06 devnull 			q.max.y = q.min.y+2;
 59 e830a908 2005-11-06 devnull 		else
 60 e830a908 2005-11-06 devnull 			q.min.y = q.max.y-2;
 61 e830a908 2005-11-06 devnull 	}
 62 e830a908 2005-11-06 devnull 	return q;
 63 e830a908 2005-11-06 devnull }
 64 e830a908 2005-11-06 devnull 
 65 e830a908 2005-11-06 devnull void
 66 e830a908 2005-11-06 devnull wscrdraw(Window *w)
 67 e830a908 2005-11-06 devnull {
 68 e830a908 2005-11-06 devnull 	Rectangle r, r1, r2;
 69 e830a908 2005-11-06 devnull 	Image *b;
 70 e830a908 2005-11-06 devnull 
 71 e830a908 2005-11-06 devnull 	scrtemps();
 72 e830a908 2005-11-06 devnull 	if(w->i == nil)
 73 e830a908 2005-11-06 devnull 		error("scrdraw");
 74 e830a908 2005-11-06 devnull 	r = w->scrollr;
 75 e830a908 2005-11-06 devnull 	b = scrtmp;
 76 e830a908 2005-11-06 devnull 	r1 = r;
 77 e830a908 2005-11-06 devnull 	r1.min.x = 0;
 78 e830a908 2005-11-06 devnull 	r1.max.x = Dx(r);
 79 e830a908 2005-11-06 devnull 	r2 = scrpos(r1, w->org, w->org+w->f.nchars, w->nr);
 80 e830a908 2005-11-06 devnull 	if(!eqrect(r2, w->lastsr)){
 81 e830a908 2005-11-06 devnull 		w->lastsr = r2;
 82 e830a908 2005-11-06 devnull 		/* move r1, r2 to (0,0) to avoid clipping */
 83 e830a908 2005-11-06 devnull 		r2 = rectsubpt(r2, r1.min);
 84 e830a908 2005-11-06 devnull 		r1 = rectsubpt(r1, r1.min);
 85 e830a908 2005-11-06 devnull 		draw(b, r1, w->f.cols[BORD], nil, ZP);
 86 e830a908 2005-11-06 devnull 		draw(b, r2, w->f.cols[BACK], nil, ZP);
 87 e830a908 2005-11-06 devnull 		r2.min.x = r2.max.x-1;
 88 e830a908 2005-11-06 devnull 		draw(b, r2, w->f.cols[BORD], nil, ZP);
 89 e830a908 2005-11-06 devnull 		draw(w->i, r, b, nil, Pt(0, r1.min.y));
 90 e830a908 2005-11-06 devnull 	}
 91 e830a908 2005-11-06 devnull }
 92 e830a908 2005-11-06 devnull 
 93 e830a908 2005-11-06 devnull void
 94 e830a908 2005-11-06 devnull wscrsleep(Window *w, uint dt)
 95 e830a908 2005-11-06 devnull {
 96 e830a908 2005-11-06 devnull 	Timer	*timer;
 97 e830a908 2005-11-06 devnull 	int y, b;
 98 e830a908 2005-11-06 devnull 	static Alt alts[3];
 99 e830a908 2005-11-06 devnull 
100 e830a908 2005-11-06 devnull 	timer = timerstart(dt);
101 e830a908 2005-11-06 devnull 	y = w->mc.m.xy.y;
102 e830a908 2005-11-06 devnull 	b = w->mc.m.buttons;
103 e830a908 2005-11-06 devnull 	alts[0].c = timer->c;
104 e830a908 2005-11-06 devnull 	alts[0].v = nil;
105 e830a908 2005-11-06 devnull 	alts[0].op = CHANRCV;
106 e830a908 2005-11-06 devnull 	alts[1].c = w->mc.c;
107 e830a908 2005-11-06 devnull 	alts[1].v = &w->mc.m;
108 e830a908 2005-11-06 devnull 	alts[1].op = CHANRCV;
109 e830a908 2005-11-06 devnull 	alts[2].op = CHANEND;
110 e830a908 2005-11-06 devnull 	for(;;)
111 e830a908 2005-11-06 devnull 		switch(alt(alts)){
112 e830a908 2005-11-06 devnull 		case 0:
113 e830a908 2005-11-06 devnull 			timerstop(timer);
114 e830a908 2005-11-06 devnull 			return;
115 e830a908 2005-11-06 devnull 		case 1:
116 e830a908 2005-11-06 devnull 			if(abs(w->mc.m.xy.y-y)>2 || w->mc.m.buttons!=b){
117 e830a908 2005-11-06 devnull 				timercancel(timer);
118 e830a908 2005-11-06 devnull 				return;
119 e830a908 2005-11-06 devnull 			}
120 e830a908 2005-11-06 devnull 			break;
121 e830a908 2005-11-06 devnull 		}
122 e830a908 2005-11-06 devnull }
123 e830a908 2005-11-06 devnull 
124 e830a908 2005-11-06 devnull void
125 e830a908 2005-11-06 devnull wscroll(Window *w, int but)
126 e830a908 2005-11-06 devnull {
127 e830a908 2005-11-06 devnull 	uint p0, oldp0;
128 e830a908 2005-11-06 devnull 	Rectangle s;
129 e830a908 2005-11-06 devnull 	int x, y, my, h, first;
130 e830a908 2005-11-06 devnull 
131 e830a908 2005-11-06 devnull 	s = insetrect(w->scrollr, 1);
132 e830a908 2005-11-06 devnull 	h = s.max.y-s.min.y;
133 e830a908 2005-11-06 devnull 	x = (s.min.x+s.max.x)/2;
134 e830a908 2005-11-06 devnull 	oldp0 = ~0;
135 e830a908 2005-11-06 devnull 	first = TRUE;
136 e830a908 2005-11-06 devnull 	do{
137 e830a908 2005-11-06 devnull 		flushimage(display, 1);
138 e830a908 2005-11-06 devnull 		if(w->mc.m.xy.x<s.min.x || s.max.x<=w->mc.m.xy.x){
139 e830a908 2005-11-06 devnull 			readmouse(&w->mc);
140 e830a908 2005-11-06 devnull 		}else{
141 e830a908 2005-11-06 devnull 			my = w->mc.m.xy.y;
142 e830a908 2005-11-06 devnull 			if(my < s.min.y)
143 e830a908 2005-11-06 devnull 				my = s.min.y;
144 e830a908 2005-11-06 devnull 			if(my >= s.max.y)
145 e830a908 2005-11-06 devnull 				my = s.max.y;
146 e830a908 2005-11-06 devnull 			if(!eqpt(w->mc.m.xy, Pt(x, my))){
147 e830a908 2005-11-06 devnull 				wmovemouse(w, Pt(x, my));
148 e830a908 2005-11-06 devnull 				readmouse(&w->mc);		/* absorb event generated by moveto() */
149 e830a908 2005-11-06 devnull 			}
150 e830a908 2005-11-06 devnull 			if(but == 2){
151 e830a908 2005-11-06 devnull 				y = my;
152 e830a908 2005-11-06 devnull 				if(y > s.max.y-2)
153 e830a908 2005-11-06 devnull 					y = s.max.y-2;
154 e830a908 2005-11-06 devnull 				if(w->nr > 1024*1024)
155 e830a908 2005-11-06 devnull 					p0 = ((w->nr>>10)*(y-s.min.y)/h)<<10;
156 e830a908 2005-11-06 devnull 				else
157 e830a908 2005-11-06 devnull 					p0 = w->nr*(y-s.min.y)/h;
158 e830a908 2005-11-06 devnull 				if(oldp0 != p0)
159 e830a908 2005-11-06 devnull 					wsetorigin(w, p0, FALSE);
160 e830a908 2005-11-06 devnull 				oldp0 = p0;
161 e830a908 2005-11-06 devnull 				readmouse(&w->mc);
162 e830a908 2005-11-06 devnull 				continue;
163 e830a908 2005-11-06 devnull 			}
164 e830a908 2005-11-06 devnull 			if(but == 1)
165 e830a908 2005-11-06 devnull 				p0 = wbacknl(w, w->org, (my-s.min.y)/w->f.font->height);
166 e830a908 2005-11-06 devnull 			else
167 e830a908 2005-11-06 devnull 				p0 = w->org+frcharofpt(&w->f, Pt(s.max.x, my));
168 e830a908 2005-11-06 devnull 			if(oldp0 != p0)
169 e830a908 2005-11-06 devnull 				wsetorigin(w, p0, TRUE);
170 e830a908 2005-11-06 devnull 			oldp0 = p0;
171 e830a908 2005-11-06 devnull 			/* debounce */
172 e830a908 2005-11-06 devnull 			if(first){
173 e830a908 2005-11-06 devnull 				flushimage(display, 1);
174 e830a908 2005-11-06 devnull 				sleep(200);
175 e830a908 2005-11-06 devnull 				nbrecv(w->mc.c, &w->mc.m);
176 e830a908 2005-11-06 devnull 				first = FALSE;
177 e830a908 2005-11-06 devnull 			}
178 e830a908 2005-11-06 devnull 			wscrsleep(w, 100);
179 e830a908 2005-11-06 devnull 		}
180 e830a908 2005-11-06 devnull 	}while(w->mc.m.buttons & (1<<(but-1)));
181 e830a908 2005-11-06 devnull 	while(w->mc.m.buttons)
182 e830a908 2005-11-06 devnull 		readmouse(&w->mc);
183 e830a908 2005-11-06 devnull }