Typelib change from CW

[Duane Clark]

Modified files:
	dlls/oleaut32		: typelib.c

Log message:
	Codeweavers
	Attempt to make a pTypeLibImpl-> correspond to Windows.







-------------- next part --------------
Index: dlls/oleaut32/typelib.c
===================================================================
RCS file: /home/wine/wine/dlls/oleaut32/typelib.c,v
retrieving revision 1.59
diff -u -r1.59 typelib.c
--- dlls/oleaut32/typelib.c	2002/01/22 18:28:51	1.59
+++ dlls/oleaut32/typelib.c	2002/01/27 18:38:50
@@ -2009,7 +2009,14 @@
     /* now fill our internal data */
     /* TLIBATTR fields */
     MSFT_ReadGuid(&pTypeLibImpl->LibAttr.guid, tlbHeader.posguid, &cx);
-    pTypeLibImpl->LibAttr.lcid = tlbHeader.lcid;
+
+    /*    pTypeLibImpl->LibAttr.lcid = tlbHeader.lcid;*/
+    /* Windows seems to have zero here, is this correct? */
+    if(SUBLANGID(tlbHeader.lcid) == SUBLANG_NEUTRAL)
+      pTypeLibImpl->LibAttr.lcid = PRIMARYLANGID(tlbHeader.lcid);
+    else
+      pTypeLibImpl->LibAttr.lcid = 0;
+
     pTypeLibImpl->LibAttr.syskind = tlbHeader.varflags & 0x0f; /* check the mask */
     pTypeLibImpl->LibAttr.wMajorVerNum = LOWORD(tlbHeader.version);
     pTypeLibImpl->LibAttr.wMinorVerNum = HIWORD(tlbHeader.version);