sgl

annotate src/wsys_x11.c @ 7:edbfc96fe80d

find changesets by author, revision, files, or words in the commit message
glut wsys thingy and stuff...
author John Tsiombikas <nuclear@siggraph.org>
date Sat, 14 May 2011 08:26:10 +0300
parents 0cb438c86b98
children 0b07dd867b2f
rev   line source
nuclear@7 1 /* SimplyGL window system module for X11/GLX */
nuclear@7 2 /* link-with: -lX11 */
nuclear@7 3
nuclear@7 4 #include "config.h"
nuclear@7 5
nuclear@7 6 #ifdef USE_WSYS_MODULE_X11
nuclear@7 7
nuclear@4 8 #include <stdlib.h>
nuclear@7 9 #include <ctype.h>
nuclear@3 10 #include <X11/Xlib.h>
nuclear@3 11 #include <GL/glx.h>
nuclear@4 12 #include "sgl.h"
nuclear@3 13 #include "wsys.h"
nuclear@4 14 #include "log.h"
nuclear@3 15
nuclear@5 16
nuclear@3 17 struct window {
nuclear@3 18 Window win;
nuclear@3 19 GLXContext ctx;
nuclear@5 20 int width, height;
nuclear@5 21 int mapped;
nuclear@4 22 long evmask;
nuclear@5 23 int redisp_pending;
nuclear@3 24 struct window *next;
nuclear@3 25 };
nuclear@3 26
nuclear@3 27 static int init(void);
nuclear@3 28 static void shutdown(void);
nuclear@4 29
nuclear@4 30 /* video mode switching */
nuclear@4 31 static int set_vidmode(int xsz, int ysz);
nuclear@4 32 static int get_vidmode(int *xsz, int *ysz);
nuclear@4 33
nuclear@4 34 /* create/destroy windows */
nuclear@3 35 static int create_window(int xsz, int ysz, unsigned int flags);
nuclear@4 36 static void fill_attr(int *attr, unsigned int flags);
nuclear@4 37 static void print_visual_info(XVisualInfo *vis);
nuclear@3 38 static void close_window(int id);
nuclear@3 39
nuclear@4 40 /* window management */
nuclear@4 41 static int set_active(int id);
nuclear@5 42 static struct window *find_window(int id);
nuclear@5 43 static int activate_window(struct window *win);
nuclear@4 44 static int set_title(const char *str);
nuclear@4 45 static void redisplay(void);
nuclear@4 46 static void swap_buffers(void);
nuclear@4 47
nuclear@7 48 static int get_modifiers(void);
nuclear@7 49
nuclear@4 50 /* event handling and friends */
nuclear@4 51 static void set_bits(long *mask, long bits);
nuclear@4 52 static void clear_bits(long *mask, long bits);
nuclear@4 53 static void set_event(int idx, int enable);
nuclear@4 54 static int process_events(void);
nuclear@5 55 static int handle_event(XEvent *xev);
nuclear@7 56 static void process_key(KeySym sym, int state);
nuclear@5 57 static int translate_keysym(KeySym sym);
nuclear@4 58
nuclear@3 59 static struct wsys_module ws = {
nuclear@3 60 "x11-glx", 0,
nuclear@3 61 init,
nuclear@3 62 shutdown,
nuclear@3 63 set_vidmode,
nuclear@3 64 get_vidmode,
nuclear@3 65 create_window,
nuclear@3 66 close_window,
nuclear@4 67 set_active,
nuclear@4 68 set_title,
nuclear@4 69 redisplay,
nuclear@4 70 swap_buffers,
nuclear@7 71 get_modifiers,
nuclear@4 72 set_event,
nuclear@4 73 process_events,
nuclear@3 74 0
nuclear@3 75 };
nuclear@3 76
nuclear@3 77 static Display *dpy;
nuclear@4 78 static Window root;
nuclear@3 79 static int scr;
nuclear@4 80 static Atom xa_wm_prot, xa_wm_del_win;
nuclear@3 81 static struct window *winlist;
nuclear@5 82 static struct window *active_win, *prev_active;
nuclear@7 83 static int modkeys;
nuclear@3 84
nuclear@4 85 /* this is the only exported function, everything else should be static */
nuclear@3 86 void sgl_register_x11(void)
nuclear@3 87 {
nuclear@3 88 sgl_register_module(&ws);
nuclear@3 89 }
nuclear@3 90
nuclear@3 91 static int init(void)
nuclear@3 92 {
nuclear@5 93 if(dpy) {
nuclear@5 94 sgl_log("warning: double init\n");
nuclear@5 95 return 0;
nuclear@5 96 }
nuclear@5 97
nuclear@3 98 winlist = 0;
nuclear@5 99 active_win = prev_active = 0;
nuclear@3 100
nuclear@3 101 if(!(dpy = XOpenDisplay(0))) {
nuclear@4 102 sgl_log("failed to open X display: %s\n", XDisplayName(0));
nuclear@3 103 return -1;
nuclear@3 104 }
nuclear@3 105 scr = DefaultScreen(dpy);
nuclear@4 106 root = RootWindow(dpy, scr);
nuclear@4 107
nuclear@4 108 xa_wm_prot = XInternAtom(dpy, "WM_PROTOCOLS", False);
nuclear@4 109 xa_wm_del_win = XInternAtom(dpy, "WM_DELETE_WINDOW", False);
nuclear@3 110
nuclear@3 111 return 0;
nuclear@3 112 }
nuclear@3 113
nuclear@3 114 static void shutdown(void)
nuclear@3 115 {
nuclear@5 116 if(!dpy) {
nuclear@5 117 return;
nuclear@5 118 }
nuclear@5 119
nuclear@3 120 while(winlist) {
nuclear@3 121 struct window *win = winlist;
nuclear@3 122 winlist = winlist->next;
nuclear@3 123
nuclear@3 124 glXDestroyContext(dpy, win->ctx);
nuclear@4 125 XDestroyWindow(dpy, win->win);
nuclear@3 126 free(win);
nuclear@3 127 }
nuclear@3 128 XCloseDisplay(dpy);
nuclear@3 129 dpy = 0;
nuclear@3 130 }
nuclear@3 131
nuclear@4 132 static int set_vidmode(int xsz, int ysz)
nuclear@3 133 {
nuclear@3 134 /* TODO */
nuclear@4 135 return 0;
nuclear@3 136 }
nuclear@3 137
nuclear@4 138 static int get_vidmode(int *xsz, int *ysz)
nuclear@3 139 {
nuclear@3 140 /* TODO */
nuclear@4 141 return 0;
nuclear@3 142 }
nuclear@3 143
nuclear@3 144 static int create_window(int xsz, int ysz, unsigned int flags)
nuclear@3 145 {
nuclear@4 146 int attr[32];
nuclear@4 147 Window win;
nuclear@4 148 GLXContext ctx;
nuclear@4 149 XVisualInfo *vis;
nuclear@4 150 XClassHint chint;
nuclear@4 151 XSetWindowAttributes xattr;
nuclear@4 152 unsigned int attr_valid;
nuclear@4 153 long evmask;
nuclear@4 154 struct window *wnode;
nuclear@6 155 void (*func)();
nuclear@4 156
nuclear@4 157 if(!(wnode = malloc(sizeof *wnode))) {
nuclear@4 158 return -1;
nuclear@4 159 }
nuclear@4 160
nuclear@4 161 fill_attr(attr, flags);
nuclear@4 162
nuclear@4 163 if(!(vis = glXChooseVisual(dpy, scr, attr))) {
nuclear@4 164 sgl_log("failed to find a suitable visual\n");
nuclear@4 165 free(wnode);
nuclear@4 166 return -1;
nuclear@4 167 }
nuclear@4 168 print_visual_info(vis);
nuclear@4 169
nuclear@4 170 if(!(ctx = glXCreateContext(dpy, vis, 0, True))) {
nuclear@4 171 sgl_log("failed to create OpenGL context\n");
nuclear@4 172 XFree(vis);
nuclear@4 173 free(wnode);
nuclear@4 174 return -1;
nuclear@4 175 }
nuclear@4 176
nuclear@4 177 xattr.background_pixel = xattr.border_pixel = BlackPixel(dpy, scr);
nuclear@4 178 xattr.colormap = XCreateColormap(dpy, root, vis->visual, AllocNone);
nuclear@4 179 attr_valid = CWColormap | CWBackPixel | CWBorderPixel;
nuclear@4 180
nuclear@4 181 if(!(win = XCreateWindow(dpy, root, 0, 0, xsz, ysz, 0, vis->depth, InputOutput,
nuclear@4 182 vis->visual, attr_valid, &xattr))) {
nuclear@4 183 sgl_log("failed to create window\n");
nuclear@4 184 glXDestroyContext(dpy, ctx);
nuclear@4 185 XFree(vis);
nuclear@4 186 free(wnode);
nuclear@4 187 return -1;
nuclear@4 188 }
nuclear@4 189 XFree(vis);
nuclear@4 190
nuclear@4 191 evmask = StructureNotifyMask | VisibilityChangeMask;
nuclear@4 192 XSelectInput(dpy, win, evmask);
nuclear@4 193
nuclear@4 194 XSetWMProtocols(dpy, win, &xa_wm_del_win, 1);
nuclear@4 195
nuclear@4 196 set_title("OpenGL/X11");
nuclear@4 197
nuclear@4 198 chint.res_name = chint.res_class = "simplygl";
nuclear@4 199 XSetClassHint(dpy, win, &chint);
nuclear@4 200
nuclear@4 201 XMapWindow(dpy, win);
nuclear@4 202
nuclear@4 203 wnode->win = win;
nuclear@4 204 wnode->ctx = ctx;
nuclear@5 205 wnode->width = xsz;
nuclear@5 206 wnode->height = ysz;
nuclear@5 207 wnode->mapped = 0;
nuclear@4 208 wnode->evmask = evmask;
nuclear@5 209 wnode->redisp_pending = 1;
nuclear@4 210 wnode->next = winlist;
nuclear@5 211 winlist = wnode;
nuclear@4 212
nuclear@4 213 if(!active_win) {
nuclear@4 214 set_active(win);
nuclear@6 215 } else {
nuclear@6 216 activate_window(wnode);
nuclear@4 217 }
nuclear@6 218
nuclear@6 219 if((func = sgl_get_callback(SGL_CREATE))) {
nuclear@6 220 func(win);
nuclear@6 221 }
nuclear@6 222 if((func = sgl_get_callback(SGL_RESHAPE))) {
nuclear@6 223 func(xsz, ysz);
nuclear@6 224 }
nuclear@6 225 activate_window(prev_active);
nuclear@4 226 return win;
nuclear@4 227 }
nuclear@4 228
nuclear@4 229 static void fill_attr(int *attr, unsigned int flags)
nuclear@4 230 {
nuclear@4 231 int i = 0;
nuclear@4 232
nuclear@4 233 attr[i++] = GLX_RGBA;
nuclear@4 234 attr[i++] = GLX_RED_SIZE; attr[i++] = 1;
nuclear@4 235 attr[i++] = GLX_GREEN_SIZE; attr[i++] = 1;
nuclear@4 236 attr[i++] = GLX_BLUE_SIZE; attr[i++] = 1;
nuclear@4 237
nuclear@4 238 if(flags & SGL_DOUBLE) {
nuclear@4 239 attr[i++] = GLX_DOUBLEBUFFER;
nuclear@4 240 }
nuclear@4 241 if(flags & SGL_DEPTH) {
nuclear@4 242 attr[i++] = GLX_DEPTH_SIZE;
nuclear@4 243 attr[i++] = 1;
nuclear@4 244 }
nuclear@4 245 if(flags & SGL_STENCIL) {
nuclear@4 246 attr[i++] = GLX_STENCIL_SIZE;
nuclear@4 247 attr[i++] = 1;
nuclear@4 248 }
nuclear@4 249 if(flags & SGL_STEREO) {
nuclear@4 250 attr[i++] = GLX_STEREO;
nuclear@4 251 }
nuclear@4 252 #if defined(GLX_VERSION_1_4) || defined(GLX_ARB_multisample)
nuclear@4 253 if(flags & SGL_MULTISAMPLE) {
nuclear@4 254 attr[i++] = GLX_SAMPLE_BUFFERS_ARB;
nuclear@4 255 attr[i++] = 1;
nuclear@4 256 attr[i++] = GLX_SAMPLES_ARB;
nuclear@4 257 attr[i++] = 1;
nuclear@4 258 }
nuclear@4 259 #endif /* defined GLX_VERSION_1_4 || GLX_ARB_multisample */
nuclear@4 260 attr[i] = None;
nuclear@4 261 }
nuclear@4 262
nuclear@4 263 static void print_visual_info(XVisualInfo *vis)
nuclear@4 264 {
nuclear@4 265 int rbits, gbits, bbits, zbits, sbits, stereo, aa, samples;
nuclear@4 266
nuclear@4 267 glXGetConfig(dpy, vis, GLX_RED_SIZE, &rbits);
nuclear@4 268 glXGetConfig(dpy, vis, GLX_GREEN_SIZE, &gbits);
nuclear@4 269 glXGetConfig(dpy, vis, GLX_BLUE_SIZE, &bbits);
nuclear@4 270 glXGetConfig(dpy, vis, GLX_DEPTH_SIZE, &zbits);
nuclear@4 271 glXGetConfig(dpy, vis, GLX_STENCIL_SIZE, &sbits);
nuclear@4 272 glXGetConfig(dpy, vis, GLX_STEREO, &stereo);
nuclear@4 273 #if defined(GLX_VERSION_1_4) || defined(GLX_ARB_multisample)
nuclear@4 274 glXGetConfig(dpy, vis, GLX_SAMPLE_BUFFERS_ARB, &aa);
nuclear@4 275 if(aa) {
nuclear@4 276 glXGetConfig(dpy, vis, GLX_SAMPLES_ARB, &samples);
nuclear@4 277 } else {
nuclear@4 278 samples = 1;
nuclear@4 279 }
nuclear@4 280 #endif /* defined GLX_VERSION_1_4 || GLX_ARB_multisample */
nuclear@4 281
nuclear@4 282 sgl_log("got visual: %d%d%d d:%d s:%d", rbits, gbits, bbits, zbits, sbits);
nuclear@4 283 sgl_log(" %s", stereo ? "stereo" : "mono");
nuclear@4 284 sgl_log(" samples/pixel: %d\n", samples);
nuclear@3 285 }
nuclear@3 286
nuclear@3 287 static void close_window(int id)
nuclear@3 288 {
nuclear@3 289 struct window dummy, *win, *prev;
nuclear@6 290 sgl_close_callback_t close_func;
nuclear@6 291
nuclear@3 292 dummy.next = winlist;
nuclear@3 293
nuclear@3 294 prev = &dummy;
nuclear@3 295 win = prev->next;
nuclear@3 296
nuclear@3 297 while(win) {
nuclear@3 298 if(win->win == id) {
nuclear@6 299 if(!(close_func = sgl_get_callback(SGL_CLOSE))) {
nuclear@6 300 close_func(id);
nuclear@6 301 }
nuclear@3 302 glXDestroyContext(dpy, win->ctx);
nuclear@4 303 XDestroyWindow(dpy, win->win);
nuclear@3 304 prev->next = win->next;
nuclear@3 305 free(win);
nuclear@3 306 return;
nuclear@3 307 }
nuclear@3 308 win = win->next;
nuclear@3 309 }
nuclear@3 310 }
nuclear@4 311
nuclear@4 312 static int set_active(int id)
nuclear@4 313 {
nuclear@5 314 struct window *win = find_window(id);
nuclear@5 315 if(!win) {
nuclear@5 316 sgl_log("no such window: %d\n", id);
nuclear@5 317 return -1;
nuclear@5 318 }
nuclear@5 319 /* only the user calls this, so don't revert this selection */
nuclear@5 320 prev_active = win;
nuclear@5 321 return activate_window(win);
nuclear@5 322 }
nuclear@5 323
nuclear@5 324 static struct window *find_window(int id)
nuclear@5 325 {
nuclear@4 326 struct window *win = winlist;
nuclear@4 327
nuclear@4 328 while(win) {
nuclear@4 329 if(win->win == id) {
nuclear@5 330 return win;
nuclear@4 331 }
nuclear@4 332 win = win->next;
nuclear@4 333 }
nuclear@5 334 return 0;
nuclear@5 335 }
nuclear@4 336
nuclear@5 337 static int activate_window(struct window *win)
nuclear@5 338 {
nuclear@5 339 if(glXMakeCurrent(dpy, win->win, win->ctx) == False) {
nuclear@5 340 sgl_log("failed to activate window %d\n", (int)win->win);
nuclear@5 341 return -1;
nuclear@5 342 }
nuclear@5 343 active_win = win;
nuclear@5 344 return 0;
nuclear@4 345 }
nuclear@4 346
nuclear@4 347 static int set_title(const char *str)
nuclear@4 348 {
nuclear@4 349 XTextProperty wm_name;
nuclear@4 350
nuclear@4 351 if(!str || !active_win) {
nuclear@4 352 return -1;
nuclear@4 353 }
nuclear@4 354 XStringListToTextProperty((char**)&str, 1, &wm_name);
nuclear@4 355 XSetWMName(dpy, active_win->win, &wm_name);
nuclear@4 356 XSetWMIconName(dpy, active_win->win, &wm_name);
nuclear@4 357 XFree(wm_name.value);
nuclear@4 358 return 0;
nuclear@4 359 }
nuclear@4 360
nuclear@4 361 static void redisplay(void)
nuclear@4 362 {
nuclear@4 363 active_win->redisp_pending = 1;
nuclear@4 364 }
nuclear@4 365
nuclear@4 366 static void swap_buffers(void)
nuclear@4 367 {
nuclear@5 368 glXSwapBuffers(dpy, active_win->win);
nuclear@4 369 }
nuclear@4 370
nuclear@7 371 static int get_modifiers(void)
nuclear@7 372 {
nuclear@7 373 return modkeys;
nuclear@7 374 }
nuclear@7 375
nuclear@4 376 static void set_bits(long *mask, long bits)
nuclear@4 377 {
nuclear@4 378 *mask |= bits;
nuclear@4 379 }
nuclear@4 380
nuclear@4 381 static void clear_bits(long *mask, long bits)
nuclear@4 382 {
nuclear@4 383 *mask &= ~bits;
nuclear@4 384 }
nuclear@4 385
nuclear@4 386 static void set_event(int idx, int enable)
nuclear@4 387 {
nuclear@4 388 void (*op)(long*, long);
nuclear@4 389 op = enable ? set_bits : clear_bits;
nuclear@4 390
nuclear@4 391 switch(idx) {
nuclear@4 392 case SGL_DISPLAY:
nuclear@4 393 op(&active_win->evmask, ExposureMask);
nuclear@4 394 break;
nuclear@4 395
nuclear@4 396 case SGL_KEYBOARD:
nuclear@4 397 op(&active_win->evmask, KeyPressMask | KeyReleaseMask);
nuclear@4 398 break;
nuclear@4 399
nuclear@4 400 case SGL_MOUSE:
nuclear@4 401 op(&active_win->evmask, ButtonPressMask | ButtonReleaseMask);
nuclear@4 402 break;
nuclear@4 403
nuclear@4 404 case SGL_MOTION:
nuclear@4 405 op(&active_win->evmask, ButtonMotionMask);
nuclear@4 406 break;
nuclear@4 407
nuclear@4 408 case SGL_PASSIVE:
nuclear@4 409 op(&active_win->evmask, PointerMotionMask);
nuclear@4 410 break;
nuclear@4 411
nuclear@4 412 default:
nuclear@4 413 return;
nuclear@4 414 }
nuclear@4 415
nuclear@4 416 XSelectInput(dpy, active_win->win, active_win->evmask);
nuclear@4 417 }
nuclear@4 418
nuclear@4 419 static int process_events(void)
nuclear@4 420 {
nuclear@4 421 XEvent xev;
nuclear@4 422 void (*func)();
nuclear@5 423 struct window *win;
nuclear@4 424
nuclear@5 425 prev_active = active_win;
nuclear@5 426
nuclear@5 427 win = winlist;
nuclear@5 428 while(win) {
nuclear@5 429 if(win->redisp_pending && (func = sgl_get_callback(SGL_DISPLAY))) {
nuclear@5 430 activate_window(win);
nuclear@5 431 func();
nuclear@5 432 win->redisp_pending = 0;
nuclear@5 433 }
nuclear@5 434 win = win->next;
nuclear@5 435 }
nuclear@5 436
nuclear@5 437 func = sgl_get_callback(SGL_IDLE);
nuclear@5 438 if(!func) {
nuclear@5 439 XNextEvent(dpy, &xev);
nuclear@5 440 XPutBackEvent(dpy, &xev);
nuclear@5 441 }
nuclear@5 442
nuclear@5 443 /* process all pending events... */
nuclear@4 444 while(XPending(dpy)) {
nuclear@4 445 XNextEvent(dpy, &xev);
nuclear@5 446 if(handle_event(&xev) == -1) {
nuclear@5 447 return -1;
nuclear@5 448 }
nuclear@4 449
nuclear@5 450 if(!dpy) {
nuclear@5 451 return -1;
nuclear@5 452 }
nuclear@5 453 }
nuclear@5 454
nuclear@5 455 if(func) {
nuclear@5 456 /* ... and then call the idle function */
nuclear@5 457 func();
nuclear@5 458 }
nuclear@5 459
nuclear@5 460 activate_window(prev_active);
nuclear@5 461 return 0;
nuclear@5 462 }
nuclear@5 463
nuclear@5 464 /* returns 0, or -1 when the last window gets closed */
nuclear@5 465 static int handle_event(XEvent *xev)
nuclear@5 466 {
nuclear@5 467 int state;
nuclear@5 468 struct window *win;
nuclear@5 469 void (*func)();
nuclear@7 470 KeySym sym;
nuclear@5 471
nuclear@5 472 if((win = find_window(xev->xany.window))) {
nuclear@5 473 activate_window(win);
nuclear@5 474 } else {
nuclear@5 475 return 0;
nuclear@5 476 }
nuclear@5 477
nuclear@5 478 switch(xev->type) {
nuclear@5 479 case MapNotify:
nuclear@5 480 active_win->mapped = 1;
nuclear@5 481 break;
nuclear@5 482
nuclear@5 483 case UnmapNotify:
nuclear@5 484 active_win->mapped = 0;
nuclear@5 485 break;
nuclear@5 486
nuclear@5 487 case Expose:
nuclear@5 488 if(active_win->mapped && xev->xexpose.count == 0) {
nuclear@5 489 if((func = sgl_get_callback(SGL_DISPLAY))) {
nuclear@5 490 func();
nuclear@5 491 active_win->redisp_pending = 0;
nuclear@5 492 }
nuclear@5 493 }
nuclear@5 494 break;
nuclear@5 495
nuclear@5 496 case MotionNotify:
nuclear@5 497 if(xev->xmotion.state) {
nuclear@5 498 func = sgl_get_callback(SGL_MOTION);
nuclear@5 499 } else {
nuclear@5 500 func = sgl_get_callback(SGL_PASSIVE);
nuclear@5 501 }
nuclear@5 502 if(func) {
nuclear@6 503 func(0, xev->xmotion.x, xev->xmotion.y);
nuclear@5 504 }
nuclear@5 505 break;
nuclear@5 506
nuclear@5 507 case ButtonPress:
nuclear@5 508 if(1) {
nuclear@5 509 state = 1;
nuclear@5 510 } else {
nuclear@5 511 case ButtonRelease:
nuclear@5 512 state = 0;
nuclear@5 513 }
nuclear@5 514 if((func = sgl_get_callback(SGL_MOUSE))) {
nuclear@5 515 int bn = xev->xbutton.button - 1;
nuclear@6 516 func(0, bn, state, xev->xbutton.x, xev->xbutton.y);
nuclear@5 517 }
nuclear@5 518 break;
nuclear@5 519
nuclear@5 520 case KeyPress:
nuclear@5 521 if(1) {
nuclear@5 522 state = 1;
nuclear@5 523 } else {
nuclear@5 524 case KeyRelease:
nuclear@5 525 state = 0;
nuclear@5 526 }
nuclear@7 527 sym = XLookupKeysym(&xev->xkey, 0);
nuclear@7 528 process_key(sym, state);
nuclear@7 529
nuclear@5 530 if((func = sgl_get_callback(SGL_KEYBOARD))) {
nuclear@5 531 func(translate_keysym(sym), state);
nuclear@5 532 }
nuclear@5 533 break;
nuclear@5 534
nuclear@5 535 case ConfigureNotify:
nuclear@5 536 if((func = sgl_get_callback(SGL_RESHAPE))) {
nuclear@5 537 if(xev->xconfigure.width != active_win->width || xev->xconfigure.height != active_win->height) {
nuclear@5 538 active_win->width = xev->xconfigure.width;
nuclear@5 539 active_win->height = xev->xconfigure.height;
nuclear@5 540
nuclear@5 541 func(xev->xconfigure.width, xev->xconfigure.height);
nuclear@5 542 }
nuclear@5 543 }
nuclear@5 544 break;
nuclear@5 545
nuclear@5 546 case ClientMessage:
nuclear@5 547 if(xev->xclient.message_type == xa_wm_prot) {
nuclear@5 548 if(xev->xclient.data.l[0] == xa_wm_del_win) {
nuclear@5 549 close_window(active_win->win);
nuclear@5 550 if(!active_win) {
nuclear@5 551 return -1;
nuclear@4 552 }
nuclear@4 553 }
nuclear@5 554 }
nuclear@5 555 break;
nuclear@4 556
nuclear@5 557 default:
nuclear@5 558 break;
nuclear@5 559 }
nuclear@4 560
nuclear@4 561 return 0;
nuclear@4 562 }
nuclear@5 563
nuclear@7 564 static void process_key(KeySym sym, int state)
nuclear@7 565 {
nuclear@7 566 switch(sym) {
nuclear@7 567 case XK_Shift_L:
nuclear@7 568 case XK_Shift_R:
nuclear@7 569 modkeys = state ? (modkeys | SGL_MOD_SHIFT) : (modkeys & ~SGL_MOD_SHIFT);
nuclear@7 570 break;
nuclear@7 571
nuclear@7 572 case XK_Control_L:
nuclear@7 573 case XK_Control_R:
nuclear@7 574 modkeys = state ? (modkeys | SGL_MOD_CONTROL) : (modkeys & ~SGL_MOD_CONTROL);
nuclear@7 575 break;
nuclear@7 576
nuclear@7 577 case XK_Alt_L:
nuclear@7 578 case XK_Alt_R:
nuclear@7 579 modkeys = state ? (modkeys | SGL_MOD_ALT) : (modkeys & ~SGL_MOD_ALT);
nuclear@7 580 break;
nuclear@7 581
nuclear@7 582 default:
nuclear@7 583 break;
nuclear@7 584 }
nuclear@7 585 }
nuclear@7 586
nuclear@5 587 static int translate_keysym(KeySym sym)
nuclear@5 588 {
nuclear@5 589 if(sym < 256) {
nuclear@7 590 if(isalpha(sym) && (modkeys & SGL_MOD_SHIFT)) {
nuclear@7 591 sym = toupper(sym);
nuclear@7 592 }
nuclear@5 593 return sym;
nuclear@5 594 }
nuclear@5 595
nuclear@5 596 switch(sym) {
nuclear@5 597 case XK_BackSpace:
nuclear@5 598 return '\b';
nuclear@5 599 case XK_Tab:
nuclear@5 600 return '\t';
nuclear@5 601 case XK_Linefeed:
nuclear@5 602 return '\r';
nuclear@5 603 case XK_Return:
nuclear@5 604 return '\n';
nuclear@5 605 case XK_Escape:
nuclear@5 606 return 27;
nuclear@5 607 default:
nuclear@5 608 break;
nuclear@5 609 }
nuclear@5 610 return (int)sym;
nuclear@5 611 }
nuclear@7 612
nuclear@7 613 #endif /* USE_WSYS_MODULE_X11 */