MadButterfly: src/X_supp.c annotate

annotate src/X_supp.c @ 159:b90abd31a281

Postponse free of coords, shapes, and paints when the rdman is dirty. - Life-cycle of shapes and paints are managed by rdman. - Add redraw_man_t::free_objs to collect objects their freeing are postonsed. Know Issue: - Bullet of tank are not removed from screen when it is go out the range of the map.

author	Thinker K.F. Li <thinker@branda.to>
date	Sun, 05 Oct 2008 23:32:58 +0800
parents	3efe77007127
children	c7e5b8779bb5

rev	line source
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	1 #include <stdio.h>
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	2 #include <stdlib.h>
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	3 #include <string.h>
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	4 #include <X11/Xlib.h>
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	5 #include <X11/Xutil.h>
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	6 #include <cairo.h>
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	7 #include <cairo-xlib.h>
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	8 #include "redraw_man.h"
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	9 #include "mb_timer.h"
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	10 #include "X_supp.h"
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	11
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	12 #define ERR -1
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	13 #define OK 0
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	14
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	15 /*! \ingroup xkb
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	16 * @{
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	17 */
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	18 struct _X_kb_info {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	19 int keycode_min, keycode_max;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	20 int ksym_per_code;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	21 KeySym *syms;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	22 subject_t *kbevents;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	23 ob_factory_t *ob_factory;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	24 };
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	25
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	26 /* @} */
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	27
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	28 struct _X_MB_runtime {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	29 Display *display;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	30 Window win;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	31 Visual *visual;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	32 cairo_surface_t surface, backend_surface;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	33 cairo_t cr, backend_cr;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	34 redraw_man_t *rdman;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	35 mb_tman_t *tman;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	36 int w, h;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	37
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	38 X_kb_info_t kbinfo;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	39
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	40 /* States */
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	41 shape_t *last;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	42 };
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	43
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	44 /*! \defgroup xkb X Keyboard Handling
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	45 *
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	46 * Accept keyboard events from X server and delivery it to
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	47 * application through observer pattern. There is a subject,
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	48 * per X-connection, for that.
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	49 * @{
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	50 */
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	51 static int keycode2sym(X_kb_info_t *kbinfo, unsigned int keycode) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	52 int sym_idx;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	53 int sym;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	54
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	55 sym_idx = kbinfo->ksym_per_code * (keycode - kbinfo->keycode_min);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	56 sym = kbinfo->syms[sym_idx];
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	57 return sym;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	58 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	59
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	60 static int X_kb_init(X_kb_info_t kbinfo, Display display,
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	61 redraw_man_t *rdman) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	62 int n_syms;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	63 ob_factory_t *factory;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	64 int r;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	65
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	66 r = XDisplayKeycodes(display,
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	67 &kbinfo->keycode_min,
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	68 &kbinfo->keycode_max);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	69 if(r == 0)
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	70 return ERR;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	71
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	72 n_syms = kbinfo->keycode_max - kbinfo->keycode_min + 1;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	73 kbinfo->syms = XGetKeyboardMapping(display, kbinfo->keycode_min,
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	74 n_syms,
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	75 &kbinfo->ksym_per_code);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	76 if(kbinfo->syms == NULL)
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	77 return ERR;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	78
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	79 factory = rdman_get_ob_factory(rdman);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	80 kbinfo->kbevents = subject_new(factory, kbinfo, OBJT_KB);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	81 if(kbinfo->kbevents == NULL)
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	82 return ERR;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	83 kbinfo->ob_factory = factory;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	84
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	85 return OK;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	86 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	87
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	88 static void X_kb_destroy(X_kb_info_t *kbinfo) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	89 subject_free(kbinfo->ob_factory, kbinfo->kbevents);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	90 XFree(kbinfo->syms);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	91 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	92
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	93 /*! \brief Accept X keyboard events from handle_x_event() and dispatch it.
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	94 */
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	95 static void X_kb_handle_event(X_kb_info_t kbinfo, XKeyEvent xkey) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	96 unsigned int code;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	97 int sym;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	98 X_kb_event_t event;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	99
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	100 code = xkey->keycode;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	101 sym = keycode2sym(kbinfo, code);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	102 if(xkey->type == KeyPress)
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	103 event.event.type = EVT_KB_PRESS;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	104 else if(xkey->type == KeyRelease)
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	105 event.event.type = EVT_KB_RELEASE;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	106 event.event.tgt = event.event.cur_tgt = kbinfo->kbevents;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	107 event.keycode = code;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	108 event.sym = sym;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	109
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	110 subject_notify(kbinfo->ob_factory, kbinfo->kbevents, &event.event);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	111 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	112
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	113 /* @} */
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	114
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	115 static unsigned int get_button_state(unsigned int state) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	116 unsigned int but = 0;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	117
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	118 if(state & Button1Mask)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	119 but \|= MOUSE_BUT1;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	120 if(state & Button2Mask)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	121 but \|= MOUSE_BUT2;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	122 if(state & Button3Mask)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	123 but \|= MOUSE_BUT3;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	124
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	125 return but;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	126 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	127
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	128 static unsigned int get_button(unsigned int button) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	129 switch(button) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	130 case Button1:
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	131 return MOUSE_BUT1;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	132 case Button2:
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	133 return MOUSE_BUT2;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	134 case Button3:
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	135 return MOUSE_BUT3;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	136 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	137 return 0;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	138 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	139
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	140 /*! \brief Notify observers of the shape at specified
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	141 * position for mouse event.
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	142 *
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	143 * Observers of parent shapes may be called if the subject is not
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	144 * with SUBF_STOP_PROPAGATE flag. The subject of mouse event
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	145 * for a shape is returned by sh_get_mouse_event_subject().
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	146 */
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	147 static void notify_shapes(redraw_man_t *rdman,
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	148 shape_t *shape,
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	149 co_aix x, co_aix y, int etype,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	150 unsigned int state,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	151 unsigned int button) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	152 mouse_event_t mouse_event;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	153 subject_t *subject;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	154 ob_factory_t *factory;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	155
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	156 mouse_event.event.type = etype;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	157 mouse_event.x = x;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	158 mouse_event.y = y;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	159 mouse_event.but_state = state;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	160 mouse_event.button = button;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	161
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	162 subject = sh_get_mouse_event_subject(shape);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	163 factory = rdman_get_ob_factory(rdman);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	164
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	165 subject_notify(factory, subject, (event_t *)&mouse_event);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	166 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	167
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	168 /*! \brief Dispatch all X events in the queue.
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	169 */
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	170 static void handle_x_event(X_MB_runtime_t *rt) {
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	171 Display *display = rt->display;
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	172 redraw_man_t *rdman = rt->rdman;
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	173 XEvent evt;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	174 XMotionEvent *mevt;
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	175 XButtonEvent *bevt;
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	176 XExposeEvent *eevt;
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	177 XKeyEvent *xkey;
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	178 co_aix x, y, w, h;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	179
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	180 int eflag = 0;
82 4bb6451ef036 - Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	181 int ex1=0, ey1=0, ex2=0, ey2=0;
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	182
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	183 shape_t *shape;
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	184
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	185 unsigned int state, button;
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	186 int in_stroke;
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	187 int r;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	188
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	189 while(XEventsQueued(display, QueuedAfterReading) > 0) {
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	190 r = XNextEvent(display, &evt);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	191 if(r == -1)
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	192 break;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	193
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	194 switch(evt.type) {
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	195 case ButtonPress:
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	196 bevt = (XButtonEvent *)&evt;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	197 x = bevt->x;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	198 y = bevt->y;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	199 state = get_button_state(bevt->state);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	200 button = get_button(bevt->button);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	201
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	202 shape = find_shape_at_pos(rdman, x, y,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	203 &in_stroke);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	204 if(shape)
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	205 notify_shapes(rdman, shape, x, y, EVT_MOUSE_BUT_PRESS,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	206 state, button);
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	207 break;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	208
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	209 case ButtonRelease:
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	210 bevt = (XButtonEvent *)&evt;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	211 x = bevt->x;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	212 y = bevt->y;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	213 state = get_button_state(bevt->state);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	214 button = get_button(bevt->button);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	215
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	216 shape = find_shape_at_pos(rdman, x, y,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	217 &in_stroke);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	218 if(shape)
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	219 notify_shapes(rdman, shape, x, y, EVT_MOUSE_BUT_RELEASE,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	220 state, button);
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	221 break;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	222
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	223 case MotionNotify:
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	224 mevt = (XMotionEvent *)&evt;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	225 x = mevt->x;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	226 y = mevt->y;
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	227 state = get_button_state(mevt->state);
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	228
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	229 shape = find_shape_at_pos(rdman, x, y,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	230 &in_stroke);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	231 if(shape != NULL) {
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	232 if(rt->last != shape) {
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	233 if(rt->last)
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	234 notify_shapes(rdman, rt->last, x, y,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	235 EVT_MOUSE_OUT, state, 0);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	236 notify_shapes(rdman, shape, x, y,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	237 EVT_MOUSE_OVER, state, 0);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	238 rt->last = shape;
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	239 } else
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	240 notify_shapes(rdman, shape, x, y,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	241 EVT_MOUSE_MOVE, state, 0);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	242 } else {
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	243 if(rt->last) {
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	244 notify_shapes(rdman, rt->last, x, y,
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	245 EVT_MOUSE_OUT, state, 0);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	246 rt->last = NULL;
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	247 }
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	248 }
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	249 break;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	250
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	251 case KeyPress:
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	252 case KeyRelease:
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	253 xkey = &evt.xkey;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	254 X_kb_handle_event(&rt->kbinfo, xkey);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	255 break;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	256
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	257 case Expose:
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	258 eevt = &evt.xexpose;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	259 x = eevt->x;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	260 y = eevt->y;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	261 w = eevt->width;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	262 h = eevt->height;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	263
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	264 if(eflag) {
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	265 if(x < ex1)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	266 ex1 = x;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	267 if(y < ey1)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	268 ey1 = y;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	269 if((x + w) > ex2)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	270 ex2 = x + w;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	271 if((y + h) > ey2)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	272 ey2 = y + h;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	273 } else {
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	274 ex1 = x;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	275 ey1 = y;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	276 ex2 = x + w;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	277 ey2 = y + h;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	278 eflag = 1;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	279 }
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	280 break;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	281 }
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	282 }
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	283 if(eflag) {
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	284 rdman_redraw_area(rdman, ex1, ey1, (ex2 - ex1), (ey2 - ey1));
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	285 eflag = 0;
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	286 }
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	287 XFlush(display);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	288 }
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	289
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	290 /*! \brief Handle connection coming data and timeout of timers.
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	291 *
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	292 * \param display is a Display returned by XOpenDisplay().
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	293 * \param rdman is a redraw manager.
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	294 * \param tman is a timer manager.
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	295 *
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	296 * The display is managed by specified rdman and tman. rdman draws
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	297 * on the display, and tman trigger actions according timers.
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	298 */
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	299 void X_MB_handle_connection(X_MB_runtime_t *rt) {
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	300 Display *display = rt->display;
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	301 redraw_man_t *rdman = rt->rdman;
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	302 mb_tman_t *tman = rt->tman;
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	303 int fd;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	304 mb_timeval_t now, tmo;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	305 struct timeval tv;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	306 fd_set rfds;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	307 int nfds;
120 5df7403b6fbc Fix bug of get_now() Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	308 int r, r1;
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	309
142 3efe77007127 Do not redraw all at begining, waiting for explosure. Thinker K.F. Li <thinker@branda.to> parents: 131 diff changeset	310 handle_x_event(rt);
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	311
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	312 fd = XConnectionNumber(display);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	313 nfds = fd + 1;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	314 while(1) {
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	315 FD_ZERO(&rfds);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	316 FD_SET(fd, &rfds);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	317
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	318 get_now(&now);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	319 r = mb_tman_next_timeout(tman, &now, &tmo);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	320
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	321 if(r == 0) {
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	322 tv.tv_sec = MB_TIMEVAL_SEC(&tmo);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	323 tv.tv_usec = MB_TIMEVAL_USEC(&tmo);
120 5df7403b6fbc Fix bug of get_now() Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	324 r1 = select(nfds, &rfds, NULL, NULL, &tv);
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	325 } else
120 5df7403b6fbc Fix bug of get_now() Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	326 r1 = select(nfds, &rfds, NULL, NULL, NULL);
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	327
120 5df7403b6fbc Fix bug of get_now() Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	328 if(r1 == -1) {
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	329 perror("select");
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	330 break;
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	331 }
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	332
120 5df7403b6fbc Fix bug of get_now() Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	333 if(r1 == 0) {
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	334 get_now(&now);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	335 mb_tman_handle_timeout(tman, &now);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	336 rdman_redraw_changed(rdman);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	337 XFlush(display);
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	338 } else if(FD_ISSET(fd, &rfds)){
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	339 handle_x_event(rt);
77 a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	340 }
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	341 }
a6763f080da5 - Thinker K.F. Li <thinker@branda.to> parents: diff changeset	342 }
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	343
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	344 #define ERR -1
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	345 #define OK 0
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	346
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	347 static int X_init_connection(const char *display_name,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	348 int w, int h,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	349 Display **displayp,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	350 Visual **visualp,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	351 Window *winp) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	352 Display *display;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	353 Window root, win;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	354 Visual *visual;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	355 int screen;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	356 XSetWindowAttributes wattr;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	357 int depth;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	358 int x, y;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	359 int r;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	360
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	361 display = XOpenDisplay(display_name);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	362 if(display == NULL)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	363 return ERR;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	364
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	365 screen = DefaultScreen(display);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	366 root = DefaultRootWindow(display);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	367 visual = DefaultVisual(display, screen);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	368 depth = DefaultDepth(display, screen);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	369 wattr.override_redirect = False;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	370 x = 10;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	371 y = 10;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	372 win = XCreateWindow(display, root,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	373 x, y,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	374 w, h,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	375 1, depth, InputOutput, visual,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	376 CWOverrideRedirect, &wattr);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	377 r = XMapWindow(display, win);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	378 if(r == -1) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	379 XCloseDisplay(display);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	380 return ERR;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	381 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	382
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	383 XSelectInput(display, win, PointerMotionMask \| ExposureMask \|
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	384 ButtonPressMask \| ButtonReleaseMask \|
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	385 KeyPressMask \| KeyReleaseMask);
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	386 XFlush(display);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	387
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	388 *displayp = display;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	389 *visualp = visual;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	390 *winp = win;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	391
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	392 return OK;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	393 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	394
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	395 /*! \brief Initialize a MadButterfy runtime for Xlib.
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	396 *
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	397 * It setups a runtime environment to run MadButterfly with Xlib.
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	398 * Users should specify width and height of the opening window.
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	399 */
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	400 static int X_MB_init(const char *display_name,
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	401 int w, int h, X_MB_runtime_t *xmb_rt) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	402 memset(xmb_rt, 0, sizeof(X_MB_runtime_t));
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	403
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	404 xmb_rt->w = w;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	405 xmb_rt->h = h;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	406 X_init_connection(display_name, w, h, &xmb_rt->display,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	407 &xmb_rt->visual, &xmb_rt->win);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	408
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	409 xmb_rt->surface =
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	410 cairo_image_surface_create(CAIRO_FORMAT_ARGB32, w, h);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	411
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	412 xmb_rt->backend_surface =
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	413 cairo_xlib_surface_create(xmb_rt->display,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	414 xmb_rt->win,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	415 xmb_rt->visual,
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	416 w, h);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	417
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	418 xmb_rt->cr = cairo_create(xmb_rt->surface);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	419 xmb_rt->backend_cr = cairo_create(xmb_rt->backend_surface);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	420
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	421 cairo_set_source_surface(xmb_rt->backend_cr, xmb_rt->surface, 0, 0);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	422
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	423 xmb_rt->rdman = (redraw_man_t *)malloc(sizeof(redraw_man_t));
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	424 redraw_man_init(xmb_rt->rdman, xmb_rt->cr, xmb_rt->backend_cr);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	425
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	426 xmb_rt->tman = mb_tman_new();
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	427
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	428 xmb_rt->last = NULL;
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 82 diff changeset	429
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	430 X_kb_init(&xmb_rt->kbinfo, xmb_rt->display, xmb_rt->rdman);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	431
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	432 return OK;
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	433 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	434
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	435 static void X_MB_destroy(X_MB_runtime_t *xmb_rt) {
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	436 if(xmb_rt->rdman) {
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	437 redraw_man_destroy(xmb_rt->rdman);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	438 free(xmb_rt->rdman);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	439 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	440
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	441 if(xmb_rt->tman)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	442 mb_tman_free(xmb_rt->tman);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	443
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	444 if(xmb_rt->cr)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	445 cairo_destroy(xmb_rt->cr);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	446 if(xmb_rt->backend_cr)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	447 cairo_destroy(xmb_rt->backend_cr);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	448
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	449 if(xmb_rt->surface)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	450 cairo_surface_destroy(xmb_rt->surface);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	451 if(xmb_rt->backend_surface)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	452 cairo_surface_destroy(xmb_rt->backend_surface);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	453
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	454 if(xmb_rt->display)
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	455 XCloseDisplay(xmb_rt->display);
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	456
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	457 X_kb_destroy(&xmb_rt->kbinfo);
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	458 }
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 77 diff changeset	459
122 17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	460 X_MB_runtime_t X_MB_new(const char display_name, int w, int h) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	461 X_MB_runtime_t *rt;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	462 int r;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	463
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	464 rt = O_ALLOC(X_MB_runtime_t);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	465 if(rt == NULL)
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	466 return NULL;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	467
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	468 r = X_MB_init(display_name, w, h, rt);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	469 if(r != OK)
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	470 return NULL;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	471
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	472 return rt;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	473 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	474
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	475 void X_MB_free(X_MB_runtime_t *rt) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	476 X_MB_destroy(rt);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	477 free(rt);
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	478 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	479
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	480 subject_t X_MB_kbevents(X_MB_runtime_t xmb_rt) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	481 return xmb_rt->kbinfo.kbevents;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	482 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	483
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	484 redraw_man_t X_MB_rdman(X_MB_runtime_t xmb_rt) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	485 return xmb_rt->rdman;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	486 }
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	487
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	488 mb_tman_t X_MB_tman(X_MB_runtime_t xmb_rt) {
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	489 return xmb_rt->tman;
17e97e92b76e Encapsulate X_MB_runtime_t and support X keyboard events. Thinker K.F. Li <thinker@branda.to> parents: 120 diff changeset	490 }
131 6a8588df68af Tank can change direction and navigate on the mud area Thinker K.F. Li <thinker@branda.to> parents: 122 diff changeset	491
6a8588df68af Tank can change direction and navigate on the mud area Thinker K.F. Li <thinker@branda.to> parents: 122 diff changeset	492 ob_factory_t X_MB_ob_factory(X_MB_runtime_t xmb_rt) {
6a8588df68af Tank can change direction and navigate on the mud area Thinker K.F. Li <thinker@branda.to> parents: 122 diff changeset	493 ob_factory_t *factory;
6a8588df68af Tank can change direction and navigate on the mud area Thinker K.F. Li <thinker@branda.to> parents: 122 diff changeset	494
6a8588df68af Tank can change direction and navigate on the mud area Thinker K.F. Li <thinker@branda.to> parents: 122 diff changeset	495 factory = rdman_get_ob_factory(xmb_rt->rdman);
6a8588df68af Tank can change direction and navigate on the mud area Thinker K.F. Li <thinker@branda.to> parents: 122 diff changeset	496 return factory;
6a8588df68af Tank can change direction and navigate on the mud area Thinker K.F. Li <thinker@branda.to> parents: 122 diff changeset	497 }

Mercurial > MadButterfly

annotate src/X_supp.c @ 159:b90abd31a281