1 b3994ec5 2003-12-11 devnull #include <u.h>
  2 b3994ec5 2003-12-11 devnull #include <libc.h>
  3 b3994ec5 2003-12-11 devnull #include <draw.h>
  4 b3994ec5 2003-12-11 devnull #include <thread.h>
  5 b3994ec5 2003-12-11 devnull #include <cursor.h>
  6 b3994ec5 2003-12-11 devnull #include <mouse.h>
  7 b3994ec5 2003-12-11 devnull #include <keyboard.h>
  8 b3994ec5 2003-12-11 devnull #include <frame.h>
  9 b3994ec5 2003-12-11 devnull #include <fcall.h>
 10 b3994ec5 2003-12-11 devnull #include <plumb.h>
 11 b3994ec5 2003-12-11 devnull #include "dat.h"
 12 b3994ec5 2003-12-11 devnull #include "fns.h"
 13 b3994ec5 2003-12-11 devnull 
 14 b3994ec5 2003-12-11 devnull static Image *scrtmp;
 15 b3994ec5 2003-12-11 devnull 
 16 b3994ec5 2003-12-11 devnull static
 17 b3994ec5 2003-12-11 devnull Rectangle
 18 b3994ec5 2003-12-11 devnull scrpos(Rectangle r, uint p0, uint p1, uint tot)
 19 b3994ec5 2003-12-11 devnull {
 20 b3994ec5 2003-12-11 devnull 	Rectangle q;
 21 b3994ec5 2003-12-11 devnull 	int h;
 22 b3994ec5 2003-12-11 devnull 
 23 b3994ec5 2003-12-11 devnull 	q = r;
 24 b3994ec5 2003-12-11 devnull 	h = q.max.y-q.min.y;
 25 b3994ec5 2003-12-11 devnull 	if(tot == 0)
 26 b3994ec5 2003-12-11 devnull 		return q;
 27 b3994ec5 2003-12-11 devnull 	if(tot > 1024*1024){
 28 b3994ec5 2003-12-11 devnull 		tot>>=10;
 29 b3994ec5 2003-12-11 devnull 		p0>>=10;
 30 b3994ec5 2003-12-11 devnull 		p1>>=10;
 31 b3994ec5 2003-12-11 devnull 	}
 32 b3994ec5 2003-12-11 devnull 	if(p0 > 0)
 33 b3994ec5 2003-12-11 devnull 		q.min.y += h*p0/tot;
 34 b3994ec5 2003-12-11 devnull 	if(p1 < tot)
 35 b3994ec5 2003-12-11 devnull 		q.max.y -= h*(tot-p1)/tot;
 36 b3994ec5 2003-12-11 devnull 	if(q.max.y < q.min.y+2){
 37 b3994ec5 2003-12-11 devnull 		if(q.min.y+2 <= r.max.y)
 38 b3994ec5 2003-12-11 devnull 			q.max.y = q.min.y+2;
 39 b3994ec5 2003-12-11 devnull 		else
 40 b3994ec5 2003-12-11 devnull 			q.min.y = q.max.y-2;
 41 b3994ec5 2003-12-11 devnull 	}
 42 b3994ec5 2003-12-11 devnull 	return q;
 43 b3994ec5 2003-12-11 devnull }
 44 b3994ec5 2003-12-11 devnull 
 45 b3994ec5 2003-12-11 devnull void
 46 b3994ec5 2003-12-11 devnull scrlresize(void)
 47 b3994ec5 2003-12-11 devnull {
 48 b3994ec5 2003-12-11 devnull 	freeimage(scrtmp);
 49 b3994ec5 2003-12-11 devnull 	scrtmp = allocimage(display, Rect(0, 0, 32, screen->r.max.y), screen->chan, 0, DNofill);
 50 b3994ec5 2003-12-11 devnull 	if(scrtmp == nil)
 51 b3994ec5 2003-12-11 devnull 		error("scroll alloc");
 52 b3994ec5 2003-12-11 devnull }
 53 b3994ec5 2003-12-11 devnull 
 54 b3994ec5 2003-12-11 devnull void
 55 b3994ec5 2003-12-11 devnull textscrdraw(Text *t)
 56 b3994ec5 2003-12-11 devnull {
 57 b3994ec5 2003-12-11 devnull 	Rectangle r, r1, r2;
 58 b3994ec5 2003-12-11 devnull 	Image *b;
 59 b3994ec5 2003-12-11 devnull 
 60 b3994ec5 2003-12-11 devnull 	if(t->w==nil || t!=&t->w->body)
 61 b3994ec5 2003-12-11 devnull 		return;
 62 b3994ec5 2003-12-11 devnull 	if(scrtmp == nil)
 63 b3994ec5 2003-12-11 devnull 		scrlresize();
 64 b3994ec5 2003-12-11 devnull 	r = t->scrollr;
 65 b3994ec5 2003-12-11 devnull 	b = scrtmp;
 66 b3994ec5 2003-12-11 devnull 	r1 = r;
 67 b3994ec5 2003-12-11 devnull 	r1.min.x = 0;
 68 b3994ec5 2003-12-11 devnull 	r1.max.x = Dx(r);
 69 b3994ec5 2003-12-11 devnull 	r2 = scrpos(r1, t->org, t->org+t->fr.nchars, t->file->b.nc);
 70 b3994ec5 2003-12-11 devnull 	if(!eqrect(r2, t->lastsr)){
 71 b3994ec5 2003-12-11 devnull 		t->lastsr = r2;
 72 b3994ec5 2003-12-11 devnull 		draw(b, r1, t->fr.cols[BORD], nil, ZP);
 73 b3994ec5 2003-12-11 devnull 		draw(b, r2, t->fr.cols[BACK], nil, ZP);
 74 b3994ec5 2003-12-11 devnull 		r2.min.x = r2.max.x-1;
 75 b3994ec5 2003-12-11 devnull 		draw(b, r2, t->fr.cols[BORD], nil, ZP);
 76 b3994ec5 2003-12-11 devnull 		draw(t->fr.b, r, b, nil, Pt(0, r1.min.y));
 77 b3994ec5 2003-12-11 devnull /*flushimage(display, 1);*//*BUG?*/
 78 b3994ec5 2003-12-11 devnull 	}
 79 b3994ec5 2003-12-11 devnull }
 80 b3994ec5 2003-12-11 devnull 
 81 b3994ec5 2003-12-11 devnull void
 82 b3994ec5 2003-12-11 devnull scrsleep(uint dt)
 83 b3994ec5 2003-12-11 devnull {
 84 b3994ec5 2003-12-11 devnull 	Timer	*timer;
 85 b3994ec5 2003-12-11 devnull 	static Alt alts[3];
 86 b3994ec5 2003-12-11 devnull 
 87 b3994ec5 2003-12-11 devnull 	timer = timerstart(dt);
 88 b3994ec5 2003-12-11 devnull 	alts[0].c = timer->c;
 89 b3994ec5 2003-12-11 devnull 	alts[0].v = nil;
 90 b3994ec5 2003-12-11 devnull 	alts[0].op = CHANRCV;
 91 b3994ec5 2003-12-11 devnull 	alts[1].c = mousectl->c;
 92 b3994ec5 2003-12-11 devnull 	alts[1].v = &mousectl->m;
 93 b3994ec5 2003-12-11 devnull 	alts[1].op = CHANRCV;
 94 b3994ec5 2003-12-11 devnull 	alts[2].op = CHANEND;
 95 b3994ec5 2003-12-11 devnull 	for(;;)
 96 b3994ec5 2003-12-11 devnull 		switch(alt(alts)){
 97 b3994ec5 2003-12-11 devnull 		case 0:
 98 b3994ec5 2003-12-11 devnull 			timerstop(timer);
 99 b3994ec5 2003-12-11 devnull 			return;
100 b3994ec5 2003-12-11 devnull 		case 1:
101 b3994ec5 2003-12-11 devnull 			timercancel(timer);
102 b3994ec5 2003-12-11 devnull 			return;
103 b3994ec5 2003-12-11 devnull 		}
104 b3994ec5 2003-12-11 devnull }
105 b3994ec5 2003-12-11 devnull 
106 b3994ec5 2003-12-11 devnull void
107 b3994ec5 2003-12-11 devnull textscroll(Text *t, int but)
108 b3994ec5 2003-12-11 devnull {
109 b3994ec5 2003-12-11 devnull 	uint p0, oldp0;
110 b3994ec5 2003-12-11 devnull 	Rectangle s;
111 b3994ec5 2003-12-11 devnull 	int x, y, my, h, first;
112 b3994ec5 2003-12-11 devnull 
113 b3994ec5 2003-12-11 devnull 	s = insetrect(t->scrollr, 1);
114 b3994ec5 2003-12-11 devnull 	h = s.max.y-s.min.y;
115 b3994ec5 2003-12-11 devnull 	x = (s.min.x+s.max.x)/2;
116 b3994ec5 2003-12-11 devnull 	oldp0 = ~0;
117 b3994ec5 2003-12-11 devnull 	first = TRUE;
118 b3994ec5 2003-12-11 devnull 	do{
119 b3994ec5 2003-12-11 devnull 		flushimage(display, 1);
120 f334d756 2005-03-18 devnull 		my = mouse->xy.y;
121 f334d756 2005-03-18 devnull 		if(my < s.min.y)
122 f334d756 2005-03-18 devnull 			my = s.min.y;
123 f334d756 2005-03-18 devnull 		if(my >= s.max.y)
124 f334d756 2005-03-18 devnull 			my = s.max.y;
125 f334d756 2005-03-18 devnull 		if(!eqpt(mouse->xy, Pt(x, my))){
126 f334d756 2005-03-18 devnull 			moveto(mousectl, Pt(x, my));
127 f334d756 2005-03-18 devnull 			readmouse(mousectl);		/* absorb event generated by moveto() */
128 f334d756 2005-03-18 devnull 		}
129 f334d756 2005-03-18 devnull 		if(but == 2){
130 f334d756 2005-03-18 devnull 			y = my;
131 f334d756 2005-03-18 devnull 			p0 = (vlong)t->file->b.nc*(y-s.min.y)/h;
132 f334d756 2005-03-18 devnull 			if(p0 >= t->q1)
133 f334d756 2005-03-18 devnull 				p0 = textbacknl(t, p0, 2);
134 b3994ec5 2003-12-11 devnull 			if(oldp0 != p0)
135 f334d756 2005-03-18 devnull 				textsetorigin(t, p0, FALSE);
136 b3994ec5 2003-12-11 devnull 			oldp0 = p0;
137 f334d756 2005-03-18 devnull 			readmouse(mousectl);
138 f334d756 2005-03-18 devnull 			continue;
139 b3994ec5 2003-12-11 devnull 		}
140 f334d756 2005-03-18 devnull 		if(but == 1)
141 f334d756 2005-03-18 devnull 			p0 = textbacknl(t, t->org, (my-s.min.y)/t->fr.font->height);
142 f334d756 2005-03-18 devnull 		else
143 f334d756 2005-03-18 devnull 			p0 = t->org+frcharofpt(&t->fr, Pt(s.max.x, my));
144 f334d756 2005-03-18 devnull 		if(oldp0 != p0)
145 f334d756 2005-03-18 devnull 			textsetorigin(t, p0, TRUE);
146 f334d756 2005-03-18 devnull 		oldp0 = p0;
147 f334d756 2005-03-18 devnull 		/* debounce */
148 f334d756 2005-03-18 devnull 		if(first){
149 f334d756 2005-03-18 devnull 			flushimage(display, 1);
150 f334d756 2005-03-18 devnull 			sleep(200);
151 f334d756 2005-03-18 devnull 			nbrecv(mousectl->c, &mousectl->m);
152 f334d756 2005-03-18 devnull 			first = FALSE;
153 f334d756 2005-03-18 devnull 		}
154 f334d756 2005-03-18 devnull 		scrsleep(80);
155 b3994ec5 2003-12-11 devnull 	}while(mouse->buttons & (1<<(but-1)));
156 b3994ec5 2003-12-11 devnull 	while(mouse->buttons)
157 b3994ec5 2003-12-11 devnull 		readmouse(mousectl);
158 b3994ec5 2003-12-11 devnull }