Index: salframe.cxx
===================================================================
RCS file: /cvs/gsl/vcl/aqua/source/window/salframe.cxx,v
retrieving revision 1.48.242.9
diff -u -r1.48.242.9 salframe.cxx
--- salframe.cxx	17 Jul 2007 01:34:53 -0000	1.48.242.9
+++ salframe.cxx	20 Jul 2007 06:55:06 -0000
@@ -846,8 +846,16 @@
     Str255 aFontFamilyName = "";
     Str255 aFontStyleName = "";
     SInt16 nFontSize;
-    const ScriptCode eScriptCode = smSystemScript;
+    ScriptCode eScriptCode = smSystemScript;
     const rtl_TextEncoding eNameEncoding = RTL_TEXTENCODING_APPLE_ROMAN;
+
+    const com::sun::star::lang::Locale& rLocale = Application::GetSettings().GetUILocale();
+    ::rtl::OUString aLocaleStr( rLocale.Language);
+    const char *lang = ::rtl::OUStringToOString(aLocaleStr, RTL_TEXTENCODING_UTF8).getStr();
+    fprintf(stderr, "ui locale.lang: %s\n", lang);
+    if (!strcmp(lang, "ar"))
+        eScriptCode = kFontArabicScript;
+
     OSStatus eStatus = ::GetThemeFont( eThemeFontID, eScriptCode, aFontFamilyName, &nFontSize, aFontStyleName );
 	AquaLog("GetSystemFontSetting(%d) => err=%d => (\"%s\", \"%s\", h=%d)\n",eThemeFontID,eStatus,aFontFamilyName,aFontStyleName,nFontSize);
 	if( eStatus != noErr )