--- deliantra/Deliantra-Client/Client.xs	2006/04/30 08:09:44	1.69
+++ deliantra/Deliantra-Client/Client.xs	2006/04/30 09:21:47	1.70
@@ -459,6 +459,7 @@
           {
             HV *hv = newHV ();
             hv_store (hv, "type", 4, newSViv (ev.type), 0);
+
             switch (ev.type)
               {
                 case SDL_KEYDOWN:
@@ -488,6 +489,7 @@
                   hv_store (hv, "state",  5, newSViv (ev.button.state), 0);
                   hv_store (hv, "x",      1, newSViv (ev.button.x), 0);
                   hv_store (hv, "y",      1, newSViv (ev.button.y), 0);
+                  break;
               }
 
             XPUSHs (sv_2mortal (newRV_noinc ((SV *)hv)));
@@ -642,11 +644,11 @@
 MODULE = CFClient	PACKAGE = CFClient::Font
 
 CFClient::Font
-new_from_file (SV *class, char *path)
+new_from_file (SV *class, char *path, int id = 0)
 	CODE:
 {
         int count;
-        FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, 0, 0, &count);
+        FcPattern *pattern = FcFreeTypeQuery ((const FcChar8 *)path, id, 0, &count);
         RETVAL = pango_fc_font_description_from_pattern (pattern, 0);
 	FcPatternDestroy (pattern);
 }
@@ -1462,7 +1464,7 @@
 void glColor (float r, float g, float b, float a = 1.0)
 	PROTOTYPE: @
         CODE:
-        glColor4f (r, g, b, a);
+        glColor4ub (r * 255., g * 255., b * 255., a * 255.);
 
 void glVertex (float x, float y, float z = 0.)
         CODE: