--- CV/CV.xs	2006/06/23 09:09:14	1.39
+++ CV/CV.xs	2008/03/01 04:11:26	1.41
@@ -245,7 +245,12 @@
 	OUTPUT:
         RETVAL
 
-# missing in Gtk2 perl module
+# missing/broken in Gtk2 perl module
+
+void
+gdk_window_clear_hints (GdkWindow *window)
+	CODE:
+        gdk_window_set_geometry_hints (window, 0, 0);
 
 gboolean
 gdk_net_wm_supports (GdkAtom property)
@@ -437,13 +442,15 @@
 
 MODULE = Gtk2::CV PACKAGE = Gtk2::CV::Schnauzer
 
+# currently only works for filenames (octet strings)
+
 SV *
 foldcase (SV *pathsv)
 	PROTOTYPE: $
 	CODE:
 {
 	STRLEN plen;
-        U8 *path = (U8 *)SvPVutf8 (pathsv, plen);
+        U8 *path = (U8 *)SvPV (pathsv, plen);
         U8 *pend = path + plen;
         U8 dst [plen * 6 * 3], *dstp = dst;
 
@@ -453,6 +460,8 @@
 
             if (ch >= 'a' && ch <= 'z')
               *dstp++ = *path++;
+            else if (ch >= 'A' && ch <= 'Z')
+              *dstp++ = *path++ + ('a' - 'A');
             else if (ch >= '0' && ch <= '9')
               {
                 STRLEN el, nl = 0;
@@ -466,12 +475,16 @@
                 dstp += nl;
               }
             else
+              *dstp++ = *path++;
+#if 0
+            else
               {
                 STRLEN cl;
                 to_utf8_fold (path, dstp, &cl);
                 dstp += cl;
                 path += is_utf8_char (path);
               }
+#endif
           }
 
         RETVAL = newSVpvn ((const char *)dst, dstp - dst);