11 typedef struct Win Win;
32 Font *keyfont, *keyctlfont;
48 Keyshade = 0xaaaa55ff,
60 int ctldeletequits = 1;
70 if ((wctl = open("/dev/wctl", ORDWR)) < 0)
72 n = read(wctl, buf, sizeof buf-1);
74 sysfatal("wctl read: %r");
76 return strstr(buf, "visible") == nil;
88 for(ob = 0;;ob = m.buttons){
91 if ((m.buttons & 0x20) == 0) {
93 /* hide button just came up */
95 if (debug) fprint(2, "unhide");
96 if (fprint(wctl, "unhide") <= 0)
97 fprint(2, "unhide failed: %r\n");
99 if (debug) fprint(2, "hide");
100 if (fprint(wctl, "hide") <= 0)
101 fprint(2, "hide failed: %r\n");
104 send(cs->mousec, &m);
113 int i, fd, lfd, n, nr, nw, m;
116 if((fd = open("/dev/wsys", OREAD)) < 0)
120 /* i'd rather read one at a time but rio won't let me */
121 while((nr=dirread(fd, &pd)) > 0){
123 n = atoi(pd[i].name);
124 sprint(label, "/dev/wsys/%d/label", n);
125 if((lfd = open(label, OREAD)) < 0)
127 m = read(lfd, label, sizeof(label)-1);
132 if(nw < nwin && win[nw].n == n && strcmp(win[nw].label, label)==0){
143 win = ctlrealloc(win, mwin*sizeof(win[0]));
144 memset(&win[mwin-8], 0, 8*sizeof(win[0]));
147 win[nw].label = ctlstrdup(label);
149 sprint(label, "%d", nw);
150 if (win[nw].button == nil){
151 win[nw].button = createtextbutton(cs, label);
152 chanprint(cs->ctl, "%q font keyfont", label);
153 chanprint(cs->ctl, "%q image keyback", label);
154 chanprint(cs->ctl, "%q pressedtextcolor red", label);
155 chanprint(cs->ctl, "%q mask transparent", label);
156 chanprint(cs->ctl, "%q border 1", label);
157 chanprint(cs->ctl, "%q bordercolor black", label);
158 chanprint(cs->ctl, "%q align centerleft", label);
159 chanprint(cs->ctl, "%q size 16 %d 512 %d", label, keyfont->height+2, keyfont->height+2);
160 controlwire(win[nw].button, "event", ec);
163 activate(win[nw].button);
164 chanprint(cs->ctl, "cols add %q", label);
166 chanprint(cs->ctl, "%q text %q", win[nw].button->name, win[nw].label);
170 for(i = nw; i < nwin; i++){
173 deactivate(win[i].button);
174 chanprint(cs->ctl, "cols remove %q", win[i].button->name);
179 chanprint(cs->ctl, "cols rect %R\ncols show", rw);
183 resizecontrolset(Controlset*)
185 if(getwindow(display, Refnone) < 0)
186 ctlerror("resize failed: %r");
189 if (debug) fprint(2, "resizecontrolset: hidden\n");
196 rw.min.x = (3*rk.max.x + rk.min.x)/4;
198 if (debug) fprint(2, "rw: rect %R\n", rw);
199 chanprint(cs->ctl, "cols rect %R\ncols show", rw);
202 chanprint(cs->ctl, "keyboard rect %R\nkeyboard show", rk);
206 rk.min.x = (rk.max.x + 3*rk.min.x)/4;
209 rk.max.x = (3*rk.max.x + rk.min.x)/4;
212 chanprint(cs->ctl, "keyboard rect %R\nkeyboard show", rk);
213 if (debug) fprint(2, "rk: rect %R\nkeyboard show\n", rk);
214 chanprint(cs->ctl, "scribble rect %R\nscribble show", rs);
215 if (debug) fprint(2, "rs: rect %R\nscribble show\n", rs);
222 fprint(2, "usage: keyboard\n");
223 threadexitsall("usage");
246 threadmain(int argc, char *argv[])
253 char *e, buf[128], *args[8];
277 kbdfd = open("/dev/kbdin", OWRITE);
278 if (kbdfd < 0 && (kbdfd = open("#r/kbdin", OWRITE)) < 0) {
279 if (debug) fprint(2, "open %s: %r\n", "#r/kbdin");
283 initdraw(0, 0, "keyboard");
284 mousectl = initmouse(nil, screen);
286 wctl = open("/dev/wctl", ORDWR);
288 fprint(2, "open %s: %r\n", "/dev/wctl");
289 wctl = 2; /* for debugging */
292 mtok = chancreate(sizeof(Mouse), 0);
296 cs = newcontrolset(screen, nil, mtok, mousectl->resizec);
298 threadcreate(mousemux, mousectl->c, 4096);
300 kc = chancreate(sizeof(char*), 0);
301 tc = chancreate(sizeof(int), 1);
302 ec = chancreate(sizeof(char*), 1);
304 colors[Back] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, Keyback);
305 namectlimage(colors[Back], "keyback");
306 colors[Light] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, Keylight);
307 namectlimage(colors[Light], "keylight");
308 colors[Shade] = allocimage(display, Rect(0,0,1,1), screen->chan, 1, Keyshade);
309 namectlimage(colors[Shade], "keyshade");
310 colors[Mask] = allocimage(display, Rect(0,0,1,1), RGBA32, 1, Keymask);
311 namectlimage(colors[Shade], "keymask");
312 keyfont = openfont(display, "/lib/font/bit/lucidasans/boldlatin1.6.font");
313 namectlfont(keyfont, "keyfont");
314 keyctlfont = openfont(display, "/lib/font/bit/lucidasans/unicode.6.font");
315 namectlfont(keyctlfont, "keyctlfont");
317 kbd = createkeyboard(cs, "keyboard");
318 chanprint(cs->ctl, "keyboard font keyfont keyctlfont");
319 chanprint(cs->ctl, "keyboard image keyback");
320 chanprint(cs->ctl, "keyboard light keylight");
321 chanprint(cs->ctl, "keyboard mask keymask");
322 chanprint(cs->ctl, "keyboard border 1");
323 chanprint(cs->ctl, "keyboard size %d %d %d %d", 246, 2 + 5 * (keyfont->height + 1), 512, 256);
324 controlwire(kbd, "event", kc);
327 scrib = createscribble(cs, "scribble");
329 sysfatal("createscribble");
330 chanprint(cs->ctl, "scribble font keyfont");
331 chanprint(cs->ctl, "scribble image keyback");
332 chanprint(cs->ctl, "scribble border 1");
333 controlwire(scrib, "event", kc);
337 boxbox = createboxbox(cs, "cols");
339 chanprint(cs->ctl, "cols border 2");
340 chanprint(cs->ctl, "cols bordercolor keyback");
343 resizecontrolset(nil);
350 proccreate(timerproc, tc, 2048);
358 { nil, nil, CHANEND }
361 case 0: /* Keyboard */
362 n = tokenize(e, args, nelem(args));
364 if(strcmp(args[0], "keyboard:")==0 || strcmp(args[0], "scribble:")==0)
365 if(strcmp(args[1], "value") == 0){
366 n = strtol(args[2], 0, 0);
369 i = runetochar(str, &r);
370 write(kbdfd, str, i);
374 case 1: /* Button event */
375 n = tokenize(e, args, nelem(args));
376 if (n != 3 || strcmp(args[1], "value"))
377 sysfatal("event string");
379 if (i < 0 || i >= nwin)
380 sysfatal("win out of range: %d of %d", i, nwin);
383 sprint(buf, "/dev/wsys/%d/wctl", win[i].n);
384 if((fd = open(buf, OWRITE)) >= 0){
385 while (write(fd, "top\n", 4) < 0) {
386 /* wait until mouse comes up */
387 rerrstr(buf, sizeof buf);
388 if (strncmp(buf, "action disallowed when mouse active", sizeof buf)){
389 fprint(2, "write top: %s\n", buf);
394 if (write(fd, "current\n", 8) < 0)
395 fprint(2, "write current: %r\n");
398 chanprint(cs->ctl, "%q value 0", win[i].button->name);