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"
14 b3994ec5 2003-12-11 devnull static Image *scrtmp;
17 b3994ec5 2003-12-11 devnull Rectangle
18 b3994ec5 2003-12-11 devnull scrpos(Rectangle r, uint p0, uint p1, uint tot)
20 b3994ec5 2003-12-11 devnull Rectangle q;
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;
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;
40 b3994ec5 2003-12-11 devnull q.min.y = q.max.y-2;
42 b3994ec5 2003-12-11 devnull return q;
46 b3994ec5 2003-12-11 devnull scrlresize(void)
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");
55 b3994ec5 2003-12-11 devnull textscrdraw(Text *t)
57 b3994ec5 2003-12-11 devnull Rectangle r, r1, r2;
58 b3994ec5 2003-12-11 devnull Image *b;
60 b3994ec5 2003-12-11 devnull if(t->w==nil || t!=&t->w->body)
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;
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?*/
82 b3994ec5 2003-12-11 devnull scrsleep(uint dt)
84 b3994ec5 2003-12-11 devnull Timer *timer;
85 b3994ec5 2003-12-11 devnull static Alt alts[3];
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;
96 b3994ec5 2003-12-11 devnull switch(alt(alts)){
98 b3994ec5 2003-12-11 devnull timerstop(timer);
101 b3994ec5 2003-12-11 devnull timercancel(timer);
107 b3994ec5 2003-12-11 devnull textscroll(Text *t, int but)
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;
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;
119 b3994ec5 2003-12-11 devnull flushimage(display, 1);
120 b3994ec5 2003-12-11 devnull if(mouse->xy.x<s.min.x || s.max.x<=mouse->xy.x){
121 b3994ec5 2003-12-11 devnull readmouse(mousectl);
123 b3994ec5 2003-12-11 devnull my = mouse->xy.y;
124 b3994ec5 2003-12-11 devnull if(my < s.min.y)
125 b3994ec5 2003-12-11 devnull my = s.min.y;
126 b3994ec5 2003-12-11 devnull if(my >= s.max.y)
127 b3994ec5 2003-12-11 devnull my = s.max.y;
128 b3994ec5 2003-12-11 devnull if(!eqpt(mouse->xy, Pt(x, my))){
129 b3994ec5 2003-12-11 devnull moveto(mousectl, Pt(x, my));
130 b3994ec5 2003-12-11 devnull readmouse(mousectl); /* absorb event generated by moveto() */
132 b3994ec5 2003-12-11 devnull if(but == 2){
134 b3994ec5 2003-12-11 devnull if(y > s.max.y-2)
135 b3994ec5 2003-12-11 devnull y = s.max.y-2;
136 b3994ec5 2003-12-11 devnull if(t->file->b.nc > 1024*1024)
137 b3994ec5 2003-12-11 devnull p0 = ((t->file->b.nc>>10)*(y-s.min.y)/h)<<10;
139 b3994ec5 2003-12-11 devnull p0 = t->file->b.nc*(y-s.min.y)/h;
140 b3994ec5 2003-12-11 devnull if(oldp0 != p0)
141 b3994ec5 2003-12-11 devnull textsetorigin(t, p0, FALSE);
142 b3994ec5 2003-12-11 devnull oldp0 = p0;
143 b3994ec5 2003-12-11 devnull readmouse(mousectl);
144 b3994ec5 2003-12-11 devnull continue;
146 b3994ec5 2003-12-11 devnull if(but == 1)
147 b3994ec5 2003-12-11 devnull p0 = textbacknl(t, t->org, (my-s.min.y)/t->fr.font->height);
149 b3994ec5 2003-12-11 devnull p0 = t->org+frcharofpt(&t->fr, Pt(s.max.x, my));
150 b3994ec5 2003-12-11 devnull if(oldp0 != p0)
151 b3994ec5 2003-12-11 devnull textsetorigin(t, p0, TRUE);
152 b3994ec5 2003-12-11 devnull oldp0 = p0;
153 b3994ec5 2003-12-11 devnull /* debounce */
154 b3994ec5 2003-12-11 devnull if(first){
155 b3994ec5 2003-12-11 devnull flushimage(display, 1);
156 b3994ec5 2003-12-11 devnull sleep(200);
157 b3994ec5 2003-12-11 devnull nbrecv(mousectl->c, &mousectl->m);
158 b3994ec5 2003-12-11 devnull first = FALSE;
160 b3994ec5 2003-12-11 devnull scrsleep(80);
162 b3994ec5 2003-12-11 devnull }while(mouse->buttons & (1<<(but-1)));
163 b3994ec5 2003-12-11 devnull while(mouse->buttons)
164 b3994ec5 2003-12-11 devnull readmouse(mousectl);