--- deliantra/Deliantra-Client/Client.xs	2007/12/28 17:30:33	1.252
+++ deliantra/Deliantra-Client/Client.xs	2008/01/06 18:12:20	1.254
@@ -48,7 +48,11 @@
 
 #include <pango/pango.h>
 
-#if !(defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 15, 2))
+#ifndef PANGO_VERSION_CHECK
+# define PANGO_VERSION_CHECK(a,b,c) 0
+#endif
+
+#if !PANGO_VERSION_CHECK (1, 15, 2)
 # define pango_layout_get_line_readonly      pango_layout_get_line_readonly
 # define pango_layout_get_lines_readonly     pango_layout_get_lines_readonly
 # define pango_layout_iter_get_line_readonly pango_layout_iter_get_line_readonly
@@ -72,6 +76,9 @@
 
 #define MIN_FONT_HEIGHT 10
 
+/* mask out modifiers we are not interested in */
+#define MOD_MASK (KMOD_CTRL | KMOD_SHIFT | KMOD_ALT | KMOD_META)
+
 #if 0
 # define PARACHUTE SDL_INIT_NOPARACHUTE
 #else
@@ -668,7 +675,7 @@
         opengl_fontmap = pango_opengl_font_map_new ();
         pango_opengl_font_map_set_default_substitute ((PangoOpenGLFontMap *)opengl_fontmap, substitute_func, 0, 0);
         opengl_context = pango_opengl_font_map_create_context ((PangoOpenGLFontMap *)opengl_fontmap);
-#if defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 15, 2)
+#if PANGO_VERSION_CHECK (1, 15, 2)
         pango_context_set_language (opengl_context, pango_language_from_string ("en"));
         /*pango_context_set_base_dir (opengl_context, PANGO_DIRECTION_WEAK_LTR);*/
 #endif
@@ -783,8 +790,8 @@
                 case SDL_KEYUP:
                   hv_store (hv, "state",   5, newSViv (ev.key.state), 0);
                   hv_store (hv, "sym",     3, newSViv (ev.key.keysym.sym), 0);
-                  hv_store (hv, "mod",     3, newSViv (ev.key.keysym.mod), 0);
-                  hv_store (hv, "cmod",    4, newSViv (SDL_GetModState ()), 0); /* current mode */
+                  hv_store (hv, "mod",     3, newSViv (ev.key.keysym.mod & MOD_MASK), 0);
+                  hv_store (hv, "cmod",    4, newSViv (SDL_GetModState () & MOD_MASK), 0); /* current mode */
                   hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0);
                   break;
 
@@ -812,7 +819,7 @@
                         SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION));
                       }
 
-                    hv_store (hv, "mod",    3, newSViv (SDL_GetModState ()), 0);
+                    hv_store (hv, "mod",    3, newSViv (SDL_GetModState () & MOD_MASK), 0);
                     hv_store (hv, "state",  5, newSViv (state), 0);
                     hv_store (hv, "x",      1, newSViv (x), 0);
                     hv_store (hv, "y",      1, newSViv (y), 0);
@@ -823,7 +830,7 @@
 
                 case SDL_MOUSEBUTTONDOWN:
                 case SDL_MOUSEBUTTONUP:
-                  hv_store (hv, "mod",    3, newSViv (SDL_GetModState ()), 0);
+                  hv_store (hv, "mod",    3, newSViv (SDL_GetModState () & MOD_MASK), 0);
 
                   hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
                   hv_store (hv, "state",  5, newSViv (ev.button.state), 0);
@@ -1330,7 +1337,7 @@
 	int line, x;
 
 	pango_layout_index_to_line_x (self->pl, index, trailing, &line, &x);
-#if !(defined (PANGO_VERSION_CHECK) && PANGO_VERSION_CHECK (1, 17, 3))
+#if !PANGO_VERSION_CHECK (1, 17, 3)
         /* pango bug: line is between 1..numlines, not 0..numlines-1 */
         --line;
 #endif