Finished GetTextCharsetInfo routine.

diff --git a/objects/text.c b/objects/text.c
index a259978..12bc9c8 100644
--- a/objects/text.c
+++ b/objects/text.c
@@ -762,9 +762,8 @@
     HGDIOBJ32 hFont;
     UINT32 charSet = DEFAULT_CHARSET;
     LOGFONT32W lf;
+    CHARSETINFO csinfo;
 
-    if (fs != NULL)
-        FIXME(text,"(0x%x,%p,%08lx): stub\n",hdc,fs,flags);
     hFont = GetCurrentObject(hdc, OBJ_FONT);
     if (hFont == 0)
         return(DEFAULT_CHARSET);
@@ -772,7 +771,9 @@
         charSet = lf.lfCharSet;
 
     if (fs != NULL) {
-        /* ... fill fontstruct too ... still to do*/
+      if (!TranslateCharsetInfo(charSet, &csinfo, TCI_SRCCHARSET))
+           return  (DEFAULT_CHARSET);
+      memcpy(fs, &csinfo.fs, sizeof(FONTSIGNATURE));
     }
     return charSet;
 }