1 76193d7c 2003-09-30 devnull #include <u.h>
  2 76193d7c 2003-09-30 devnull #include <libc.h>
  3 76193d7c 2003-09-30 devnull #include <draw.h>
  4 76193d7c 2003-09-30 devnull #include <thread.h>
  5 76193d7c 2003-09-30 devnull #include <mouse.h>
  6 76193d7c 2003-09-30 devnull 
  7 76193d7c 2003-09-30 devnull enum
  8 76193d7c 2003-09-30 devnull {
  9 76193d7c 2003-09-30 devnull 	Margin = 4,		/* outside to text */
 10 76193d7c 2003-09-30 devnull 	Border = 2,		/* outside to selection boxes */
 11 76193d7c 2003-09-30 devnull 	Blackborder = 2,	/* width of outlining border */
 12 76193d7c 2003-09-30 devnull 	Vspacing = 2,		/* extra spacing between lines of text */
 13 76193d7c 2003-09-30 devnull 	Maxunscroll = 25,	/* maximum #entries before scrolling turns on */
 14 76193d7c 2003-09-30 devnull 	Nscroll = 20,		/* number entries in scrolling part */
 15 76193d7c 2003-09-30 devnull 	Scrollwid = 14,		/* width of scroll bar */
 16 cbeb0b26 2006-04-01 devnull 	Gap = 4			/* between text and scroll bar */
 17 76193d7c 2003-09-30 devnull };
 18 76193d7c 2003-09-30 devnull 
 19 76193d7c 2003-09-30 devnull static	Image	*menutxt;
 20 76193d7c 2003-09-30 devnull static	Image	*back;
 21 76193d7c 2003-09-30 devnull static	Image	*high;
 22 76193d7c 2003-09-30 devnull static	Image	*bord;
 23 76193d7c 2003-09-30 devnull static	Image	*text;
 24 76193d7c 2003-09-30 devnull static	Image	*htext;
 25 76193d7c 2003-09-30 devnull 
 26 76193d7c 2003-09-30 devnull static
 27 76193d7c 2003-09-30 devnull void
 28 76193d7c 2003-09-30 devnull menucolors(void)
 29 76193d7c 2003-09-30 devnull {
 30 76193d7c 2003-09-30 devnull 	/* Main tone is greenish, with negative selection */
 31 76193d7c 2003-09-30 devnull 	back = allocimagemix(display, DPalegreen, DWhite);
 32 76193d7c 2003-09-30 devnull 	high = allocimage(display, Rect(0,0,1,1), screen->chan, 1, DDarkgreen);	/* dark green */
 33 76193d7c 2003-09-30 devnull 	bord = allocimage(display, Rect(0,0,1,1), screen->chan, 1, DMedgreen);	/* not as dark green */
 34 76193d7c 2003-09-30 devnull 	if(back==nil || high==nil || bord==nil)
 35 76193d7c 2003-09-30 devnull 		goto Error;
 36 76193d7c 2003-09-30 devnull 	text = display->black;
 37 76193d7c 2003-09-30 devnull 	htext = back;
 38 76193d7c 2003-09-30 devnull 	return;
 39 76193d7c 2003-09-30 devnull 
 40 76193d7c 2003-09-30 devnull     Error:
 41 76193d7c 2003-09-30 devnull 	freeimage(back);
 42 76193d7c 2003-09-30 devnull 	freeimage(high);
 43 76193d7c 2003-09-30 devnull 	freeimage(bord);
 44 76193d7c 2003-09-30 devnull 	back = display->white;
 45 76193d7c 2003-09-30 devnull 	high = display->black;
 46 76193d7c 2003-09-30 devnull 	bord = display->black;
 47 76193d7c 2003-09-30 devnull 	text = display->black;
 48 76193d7c 2003-09-30 devnull 	htext = display->white;
 49 76193d7c 2003-09-30 devnull }
 50 76193d7c 2003-09-30 devnull 
 51 76193d7c 2003-09-30 devnull /*
 52 76193d7c 2003-09-30 devnull  * r is a rectangle holding the text elements.
 53 76193d7c 2003-09-30 devnull  * return the rectangle, including its black edge, holding element i.
 54 76193d7c 2003-09-30 devnull  */
 55 76193d7c 2003-09-30 devnull static Rectangle
 56 76193d7c 2003-09-30 devnull menurect(Rectangle r, int i)
 57 76193d7c 2003-09-30 devnull {
 58 76193d7c 2003-09-30 devnull 	if(i < 0)
 59 76193d7c 2003-09-30 devnull 		return Rect(0, 0, 0, 0);
 60 76193d7c 2003-09-30 devnull 	r.min.y += (font->height+Vspacing)*i;
 61 76193d7c 2003-09-30 devnull 	r.max.y = r.min.y+font->height+Vspacing;
 62 76193d7c 2003-09-30 devnull 	return insetrect(r, Border-Margin);
 63 76193d7c 2003-09-30 devnull }
 64 76193d7c 2003-09-30 devnull 
 65 76193d7c 2003-09-30 devnull /*
 66 76193d7c 2003-09-30 devnull  * r is a rectangle holding the text elements.
 67 76193d7c 2003-09-30 devnull  * return the element number containing p.
 68 76193d7c 2003-09-30 devnull  */
 69 76193d7c 2003-09-30 devnull static int
 70 76193d7c 2003-09-30 devnull menusel(Rectangle r, Point p)
 71 76193d7c 2003-09-30 devnull {
 72 76193d7c 2003-09-30 devnull 	r = insetrect(r, Margin);
 73 76193d7c 2003-09-30 devnull 	if(!ptinrect(p, r))
 74 76193d7c 2003-09-30 devnull 		return -1;
 75 76193d7c 2003-09-30 devnull 	return (p.y-r.min.y)/(font->height+Vspacing);
 76 76193d7c 2003-09-30 devnull }
 77 76193d7c 2003-09-30 devnull 
 78 76193d7c 2003-09-30 devnull static
 79 76193d7c 2003-09-30 devnull void
 80 76193d7c 2003-09-30 devnull paintitem(Image *m, Menu *menu, Rectangle textr, int off, int i, int highlight, Image *save, Image *restore)
 81 76193d7c 2003-09-30 devnull {
 82 76193d7c 2003-09-30 devnull 	char *item;
 83 76193d7c 2003-09-30 devnull 	Rectangle r;
 84 76193d7c 2003-09-30 devnull 	Point pt;
 85 76193d7c 2003-09-30 devnull 
 86 76193d7c 2003-09-30 devnull 	if(i < 0)
 87 76193d7c 2003-09-30 devnull 		return;
 88 76193d7c 2003-09-30 devnull 	r = menurect(textr, i);
 89 76193d7c 2003-09-30 devnull 	if(restore){
 90 76193d7c 2003-09-30 devnull 		draw(m, r, restore, nil, restore->r.min);
 91 76193d7c 2003-09-30 devnull 		return;
 92 76193d7c 2003-09-30 devnull 	}
 93 76193d7c 2003-09-30 devnull 	if(save)
 94 76193d7c 2003-09-30 devnull 		draw(save, save->r, m, nil, r.min);
 95 76193d7c 2003-09-30 devnull 	item = menu->item? menu->item[i+off] : (*menu->gen)(i+off);
 96 76193d7c 2003-09-30 devnull 	pt.x = (textr.min.x+textr.max.x-stringwidth(font, item))/2;
 97 76193d7c 2003-09-30 devnull 	pt.y = textr.min.y+i*(font->height+Vspacing);
 98 76193d7c 2003-09-30 devnull 	draw(m, r, highlight? high : back, nil, pt);
 99 76193d7c 2003-09-30 devnull 	string(m, pt, highlight? htext : text, pt, font, item);
100 76193d7c 2003-09-30 devnull }
101 76193d7c 2003-09-30 devnull 
102 76193d7c 2003-09-30 devnull /*
103 76193d7c 2003-09-30 devnull  * menur is a rectangle holding all the highlightable text elements.
104 76193d7c 2003-09-30 devnull  * track mouse while inside the box, return what's selected when button
105 76193d7c 2003-09-30 devnull  * is raised, -1 as soon as it leaves box.
106 76193d7c 2003-09-30 devnull  * invariant: nothing is highlighted on entry or exit.
107 76193d7c 2003-09-30 devnull  */
108 76193d7c 2003-09-30 devnull static int
109 76193d7c 2003-09-30 devnull menuscan(Image *m, Menu *menu, int but, Mousectl *mc, Rectangle textr, int off, int lasti, Image *save)
110 76193d7c 2003-09-30 devnull {
111 76193d7c 2003-09-30 devnull 	int i;
112 76193d7c 2003-09-30 devnull 
113 76193d7c 2003-09-30 devnull 	paintitem(m, menu, textr, off, lasti, 1, save, nil);
114 76193d7c 2003-09-30 devnull 	for(readmouse(mc); mc->m.buttons & (1<<(but-1)); readmouse(mc)){
115 76193d7c 2003-09-30 devnull 		i = menusel(textr, mc->m.xy);
116 76193d7c 2003-09-30 devnull 		if(i != -1 && i == lasti)
117 76193d7c 2003-09-30 devnull 			continue;
118 76193d7c 2003-09-30 devnull 		paintitem(m, menu, textr, off, lasti, 0, nil, save);
119 76193d7c 2003-09-30 devnull 		if(i == -1)
120 76193d7c 2003-09-30 devnull 			return i;
121 76193d7c 2003-09-30 devnull 		lasti = i;
122 76193d7c 2003-09-30 devnull 		paintitem(m, menu, textr, off, lasti, 1, save, nil);
123 76193d7c 2003-09-30 devnull 	}
124 76193d7c 2003-09-30 devnull 	return lasti;
125 76193d7c 2003-09-30 devnull }
126 76193d7c 2003-09-30 devnull 
127 76193d7c 2003-09-30 devnull static void
128 76193d7c 2003-09-30 devnull menupaint(Image *m, Menu *menu, Rectangle textr, int off, int nitemdrawn)
129 76193d7c 2003-09-30 devnull {
130 76193d7c 2003-09-30 devnull 	int i;
131 76193d7c 2003-09-30 devnull 
132 76193d7c 2003-09-30 devnull 	draw(m, insetrect(textr, Border-Margin), back, nil, ZP);
133 76193d7c 2003-09-30 devnull 	for(i = 0; i<nitemdrawn; i++)
134 76193d7c 2003-09-30 devnull 		paintitem(m, menu, textr, off, i, 0, nil, nil);
135 76193d7c 2003-09-30 devnull }
136 76193d7c 2003-09-30 devnull 
137 76193d7c 2003-09-30 devnull static void
138 76193d7c 2003-09-30 devnull menuscrollpaint(Image *m, Rectangle scrollr, int off, int nitem, int nitemdrawn)
139 76193d7c 2003-09-30 devnull {
140 76193d7c 2003-09-30 devnull 	Rectangle r;
141 76193d7c 2003-09-30 devnull 
142 76193d7c 2003-09-30 devnull 	draw(m, scrollr, back, nil, ZP);
143 76193d7c 2003-09-30 devnull 	r.min.x = scrollr.min.x;
144 76193d7c 2003-09-30 devnull 	r.max.x = scrollr.max.x;
145 76193d7c 2003-09-30 devnull 	r.min.y = scrollr.min.y + (Dy(scrollr)*off)/nitem;
146 76193d7c 2003-09-30 devnull 	r.max.y = scrollr.min.y + (Dy(scrollr)*(off+nitemdrawn))/nitem;
147 76193d7c 2003-09-30 devnull 	if(r.max.y < r.min.y+2)
148 76193d7c 2003-09-30 devnull 		r.max.y = r.min.y+2;
149 76193d7c 2003-09-30 devnull 	border(m, r, 1, bord, ZP);
150 76193d7c 2003-09-30 devnull 	if(menutxt == 0)
151 76193d7c 2003-09-30 devnull 		menutxt = allocimage(display, Rect(0, 0, 1, 1), screen->chan, 1, DDarkgreen);	/* border color; BUG? */
152 76193d7c 2003-09-30 devnull 	if(menutxt)
153 76193d7c 2003-09-30 devnull 		draw(m, insetrect(r, 1), menutxt, nil, ZP);
154 76193d7c 2003-09-30 devnull }
155 76193d7c 2003-09-30 devnull 
156 76193d7c 2003-09-30 devnull int
157 76193d7c 2003-09-30 devnull menuhit(int but, Mousectl *mc, Menu *menu, Screen *scr)
158 76193d7c 2003-09-30 devnull {
159 76193d7c 2003-09-30 devnull 	int i, nitem, nitemdrawn, maxwid, lasti, off, noff, wid, screenitem;
160 76193d7c 2003-09-30 devnull 	int scrolling;
161 76193d7c 2003-09-30 devnull 	Rectangle r, menur, sc, textr, scrollr;
162 76193d7c 2003-09-30 devnull 	Image *b, *save, *backup;
163 76193d7c 2003-09-30 devnull 	Point pt;
164 76193d7c 2003-09-30 devnull 	char *item;
165 76193d7c 2003-09-30 devnull 
166 76193d7c 2003-09-30 devnull 	if(back == nil)
167 76193d7c 2003-09-30 devnull 		menucolors();
168 76193d7c 2003-09-30 devnull 	sc = screen->clipr;
169 76193d7c 2003-09-30 devnull 	replclipr(screen, 0, screen->r);
170 76193d7c 2003-09-30 devnull 	maxwid = 0;
171 76193d7c 2003-09-30 devnull 	for(nitem = 0;
172 76193d7c 2003-09-30 devnull 	    item = menu->item? menu->item[nitem] : (*menu->gen)(nitem);
173 76193d7c 2003-09-30 devnull 	    nitem++){
174 76193d7c 2003-09-30 devnull 		i = stringwidth(font, item);
175 76193d7c 2003-09-30 devnull 		if(i > maxwid)
176 76193d7c 2003-09-30 devnull 			maxwid = i;
177 76193d7c 2003-09-30 devnull 	}
178 76193d7c 2003-09-30 devnull 	if(menu->lasthit<0 || menu->lasthit>=nitem)
179 76193d7c 2003-09-30 devnull 		menu->lasthit = 0;
180 76193d7c 2003-09-30 devnull 	screenitem = (Dy(screen->r)-10)/(font->height+Vspacing);
181 76193d7c 2003-09-30 devnull 	if(nitem>Maxunscroll || nitem>screenitem){
182 76193d7c 2003-09-30 devnull 		scrolling = 1;
183 76193d7c 2003-09-30 devnull 		nitemdrawn = Nscroll;
184 76193d7c 2003-09-30 devnull 		if(nitemdrawn > screenitem)
185 76193d7c 2003-09-30 devnull 			nitemdrawn = screenitem;
186 76193d7c 2003-09-30 devnull 		wid = maxwid + Gap + Scrollwid;
187 76193d7c 2003-09-30 devnull 		off = menu->lasthit - nitemdrawn/2;
188 76193d7c 2003-09-30 devnull 		if(off < 0)
189 76193d7c 2003-09-30 devnull 			off = 0;
190 76193d7c 2003-09-30 devnull 		if(off > nitem-nitemdrawn)
191 76193d7c 2003-09-30 devnull 			off = nitem-nitemdrawn;
192 76193d7c 2003-09-30 devnull 		lasti = menu->lasthit-off;
193 76193d7c 2003-09-30 devnull 	}else{
194 76193d7c 2003-09-30 devnull 		scrolling = 0;
195 76193d7c 2003-09-30 devnull 		nitemdrawn = nitem;
196 76193d7c 2003-09-30 devnull 		wid = maxwid;
197 76193d7c 2003-09-30 devnull 		off = 0;
198 76193d7c 2003-09-30 devnull 		lasti = menu->lasthit;
199 76193d7c 2003-09-30 devnull 	}
200 76193d7c 2003-09-30 devnull 	r = insetrect(Rect(0, 0, wid, nitemdrawn*(font->height+Vspacing)), -Margin);
201 76193d7c 2003-09-30 devnull 	r = rectsubpt(r, Pt(wid/2, lasti*(font->height+Vspacing)+font->height/2));
202 76193d7c 2003-09-30 devnull 	r = rectaddpt(r, mc->m.xy);
203 76193d7c 2003-09-30 devnull 	pt = ZP;
204 76193d7c 2003-09-30 devnull 	if(r.max.x>screen->r.max.x)
205 76193d7c 2003-09-30 devnull 		pt.x = screen->r.max.x-r.max.x;
206 76193d7c 2003-09-30 devnull 	if(r.max.y>screen->r.max.y)
207 76193d7c 2003-09-30 devnull 		pt.y = screen->r.max.y-r.max.y;
208 76193d7c 2003-09-30 devnull 	if(r.min.x<screen->r.min.x)
209 76193d7c 2003-09-30 devnull 		pt.x = screen->r.min.x-r.min.x;
210 76193d7c 2003-09-30 devnull 	if(r.min.y<screen->r.min.y)
211 76193d7c 2003-09-30 devnull 		pt.y = screen->r.min.y-r.min.y;
212 76193d7c 2003-09-30 devnull 	menur = rectaddpt(r, pt);
213 76193d7c 2003-09-30 devnull 	textr.max.x = menur.max.x-Margin;
214 76193d7c 2003-09-30 devnull 	textr.min.x = textr.max.x-maxwid;
215 76193d7c 2003-09-30 devnull 	textr.min.y = menur.min.y+Margin;
216 76193d7c 2003-09-30 devnull 	textr.max.y = textr.min.y + nitemdrawn*(font->height+Vspacing);
217 76193d7c 2003-09-30 devnull 	if(scrolling){
218 76193d7c 2003-09-30 devnull 		scrollr = insetrect(menur, Border);
219 76193d7c 2003-09-30 devnull 		scrollr.max.x = scrollr.min.x+Scrollwid;
220 76193d7c 2003-09-30 devnull 	}else
221 76193d7c 2003-09-30 devnull 		scrollr = Rect(0, 0, 0, 0);
222 76193d7c 2003-09-30 devnull 
223 76193d7c 2003-09-30 devnull 	if(scr){
224 76193d7c 2003-09-30 devnull 		b = allocwindow(scr, menur, Refbackup, DWhite);
225 76193d7c 2003-09-30 devnull 		if(b == nil)
226 76193d7c 2003-09-30 devnull 			b = screen;
227 76193d7c 2003-09-30 devnull 		backup = nil;
228 76193d7c 2003-09-30 devnull 	}else{
229 76193d7c 2003-09-30 devnull 		b = screen;
230 76193d7c 2003-09-30 devnull 		backup = allocimage(display, menur, screen->chan, 0, -1);
231 76193d7c 2003-09-30 devnull 		if(backup)
232 76193d7c 2003-09-30 devnull 			draw(backup, menur, screen, nil, menur.min);
233 76193d7c 2003-09-30 devnull 	}
234 76193d7c 2003-09-30 devnull 	draw(b, menur, back, nil, ZP);
235 76193d7c 2003-09-30 devnull 	border(b, menur, Blackborder, bord, ZP);
236 76193d7c 2003-09-30 devnull 	save = allocimage(display, menurect(textr, 0), screen->chan, 0, -1);
237 76193d7c 2003-09-30 devnull 	r = menurect(textr, lasti);
238 76193d7c 2003-09-30 devnull 	moveto(mc, divpt(addpt(r.min, r.max), 2));
239 76193d7c 2003-09-30 devnull 	menupaint(b, menu, textr, off, nitemdrawn);
240 76193d7c 2003-09-30 devnull 	if(scrolling)
241 76193d7c 2003-09-30 devnull 		menuscrollpaint(b, scrollr, off, nitem, nitemdrawn);
242 76193d7c 2003-09-30 devnull 	while(mc->m.buttons & (1<<(but-1))){
243 76193d7c 2003-09-30 devnull 		lasti = menuscan(b, menu, but, mc, textr, off, lasti, save);
244 76193d7c 2003-09-30 devnull 		if(lasti >= 0)
245 76193d7c 2003-09-30 devnull 			break;
246 76193d7c 2003-09-30 devnull 		while(!ptinrect(mc->m.xy, textr) && (mc->m.buttons & (1<<(but-1)))){
247 76193d7c 2003-09-30 devnull 			if(scrolling && ptinrect(mc->m.xy, scrollr)){
248 76193d7c 2003-09-30 devnull 				noff = ((mc->m.xy.y-scrollr.min.y)*nitem)/Dy(scrollr);
249 76193d7c 2003-09-30 devnull 				noff -= nitemdrawn/2;
250 76193d7c 2003-09-30 devnull 				if(noff < 0)
251 76193d7c 2003-09-30 devnull 					noff = 0;
252 76193d7c 2003-09-30 devnull 				if(noff > nitem-nitemdrawn)
253 76193d7c 2003-09-30 devnull 					noff = nitem-nitemdrawn;
254 76193d7c 2003-09-30 devnull 				if(noff != off){
255 76193d7c 2003-09-30 devnull 					off = noff;
256 76193d7c 2003-09-30 devnull 					menupaint(b, menu, textr, off, nitemdrawn);
257 76193d7c 2003-09-30 devnull 					menuscrollpaint(b, scrollr, off, nitem, nitemdrawn);
258 76193d7c 2003-09-30 devnull 				}
259 76193d7c 2003-09-30 devnull 			}
260 76193d7c 2003-09-30 devnull 			readmouse(mc);
261 76193d7c 2003-09-30 devnull 		}
262 76193d7c 2003-09-30 devnull 	}
263 76193d7c 2003-09-30 devnull 	if(b != screen)
264 76193d7c 2003-09-30 devnull 		freeimage(b);
265 76193d7c 2003-09-30 devnull 	if(backup){
266 76193d7c 2003-09-30 devnull 		draw(screen, menur, backup, nil, menur.min);
267 76193d7c 2003-09-30 devnull 		freeimage(backup);
268 76193d7c 2003-09-30 devnull 	}
269 76193d7c 2003-09-30 devnull 	freeimage(save);
270 76193d7c 2003-09-30 devnull 	replclipr(screen, 0, sc);
271 76193d7c 2003-09-30 devnull 	flushimage(display, 1);
272 76193d7c 2003-09-30 devnull 	if(lasti >= 0){
273 76193d7c 2003-09-30 devnull 		menu->lasthit = lasti+off;
274 76193d7c 2003-09-30 devnull 		return menu->lasthit;
275 76193d7c 2003-09-30 devnull 	}
276 76193d7c 2003-09-30 devnull 	return -1;
277 76193d7c 2003-09-30 devnull }