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