--- deliantra/Deliantra-Client/Client.xs	2006/05/23 18:54:37	1.93
+++ deliantra/Deliantra-Client/Client.xs	2006/05/26 18:28:23	1.97
@@ -488,23 +488,14 @@
 void
 SDL_GL_SwapBuffers ()
 
+char *
+SDL_GetKeyName (int sym)
+
 void
 SDL_PollEvent ()
 	PPCODE:
 {
 	SDL_Event ev;
-        int i;
-        static int modifier;
-        static int modkey[] = {
-          SDLK_RSHIFT, KMOD_RSHIFT,
-          SDLK_LSHIFT, KMOD_LSHIFT,
-          SDLK_RCTRL,  KMOD_RCTRL,
-          SDLK_LCTRL,  KMOD_LCTRL,
-          SDLK_RALT,   KMOD_RALT,
-          SDLK_LALT,   KMOD_LALT,
-          SDLK_RMETA,  KMOD_RMETA,
-          SDLK_LMETA,  KMOD_LMETA,
-        };
 
         while (SDL_PollEvent (&ev))
           {
@@ -515,17 +506,6 @@
               {
                 case SDL_KEYDOWN:
                 case SDL_KEYUP:
-
-                  for (i = 0; i < sizeof (modkey) / (sizeof (int) * 2); i++)
-                    if (modkey [i * 2] == ev.key.keysym.sym)
-                      {
-                        if (ev.type == SDL_KEYDOWN)
-                          modifier |=  modkey [i * 2 + 1];
-                        else
-                          modifier &= ~modkey [i * 2 + 1];
-                        break;
-                      }
-                
                   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);
@@ -538,7 +518,7 @@
                   break;
 
                 case SDL_MOUSEMOTION:
-                  hv_store (hv, "mod",    3, newSViv (modifier), 0);
+                  hv_store (hv, "mod",    3, newSViv (SDL_GetModState ()), 0);
 
                   hv_store (hv, "state",  5, newSViv (ev.motion.state), 0);
                   hv_store (hv, "x",      1, newSViv (ev.motion.x), 0);
@@ -549,7 +529,7 @@
 
                 case SDL_MOUSEBUTTONDOWN:
                 case SDL_MOUSEBUTTONUP:
-                  hv_store (hv, "mod",    3, newSViv (modifier), 0);
+                  hv_store (hv, "mod",    3, newSViv (SDL_GetModState ()), 0);
 
                   hv_store (hv, "button", 6, newSViv (ev.button.button), 0);
                   hv_store (hv, "state",  5, newSViv (ev.button.state), 0);
@@ -587,27 +567,6 @@
         setsockopt (fd, IPPROTO_TCP, TCP_NODELAY, &val, sizeof (val));
 #endif
 
-char *
-gl_vendor ()
-	CODE:
-        RETVAL = (char *)glGetString (GL_VENDOR);
-	OUTPUT:
-        RETVAL
-
-char *
-gl_version ()
-	CODE:
-        RETVAL = (char *)glGetString (GL_VERSION);
-	OUTPUT:
-        RETVAL
-
-char *
-gl_extensions ()
-	CODE:
-        RETVAL = (char *)glGetString (GL_EXTENSIONS);
-	OUTPUT:
-        RETVAL
-
 void
 add_font (char *file)
 	CODE:
@@ -753,7 +712,7 @@
 new (SV *class, int rgba = 0)
 	CODE:
 #if _WIN32
-        rgba = 0;//D
+        //rgba = 0;//D make stext nicer, breaks TextView
 #endif
         New (0, RETVAL, 1, struct cf_layout);
 
@@ -1119,6 +1078,12 @@
           tex->b = b;
           tex->a = a;
         }
+
+       // somewhat hackish, but for textures that require it, it really
+       // improves the look, and most others don't suffer.
+       glBindTexture (GL_TEXTURE_2D, name);
+       glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
+       glTexParameteri (GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
 }
 
 int
@@ -1640,6 +1605,27 @@
     newCONSTSUB (stash, (char *)civ->name, newSViv (civ->iv));
 }
 
+char *
+gl_vendor ()
+	CODE:
+        RETVAL = (char *)glGetString (GL_VENDOR);
+	OUTPUT:
+        RETVAL
+
+char *
+gl_version ()
+	CODE:
+        RETVAL = (char *)glGetString (GL_VERSION);
+	OUTPUT:
+        RETVAL
+
+char *
+gl_extensions ()
+	CODE:
+        RETVAL = (char *)glGetString (GL_EXTENSIONS);
+	OUTPUT:
+        RETVAL
+
 int glGetError ()
 
 void glClear (int mask)