0800リリース（再）。日本語、英語OS以外でのデフォルトは英語とする。

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@27 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/ApplicationEvents.vb b/Tween/ApplicationEvents.vb
index 7d3d08a..f1505c7 100644 (file)
--- a/Tween/ApplicationEvents.vb
+++ b/Tween/ApplicationEvents.vb
@@ -101,7 +101,12 @@ Namespace My
                 If cultureStr Is Nothing Then
                     Dim cfgCommon As SettingCommon = SettingCommon.Load()
                     cultureStr = cfgCommon.Language
-                    If cultureStr = "OS" Then cultureStr = ""
+                    If cultureStr = "OS" Then
+                        If Not Threading.Thread.CurrentThread.CurrentUICulture.Name.StartsWith("ja") AndAlso _
+                           Not Threading.Thread.CurrentThread.CurrentUICulture.Name.StartsWith("en") Then
+                            cultureStr = "en"
+                        End If
+                    End If
                     'Dim filename As String = System.IO.Path.Combine(Application.Info.DirectoryPath, "TweenConf.xml")
                     'If IO.File.Exists(filename) Then
                     '    Try

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 1bf4578..17f4e78 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -8,7 +8,7 @@
    * RetweetをRetweet(Unofficial)に名称変更
    * 見た目はWeb同様、Retweet元の人が発言したように見えます
  * 引用（QT:Quote）を追加（Ctrl-Q）。返信先が付加されます。
- * 言語切替（OSデフォルト、日本語、英語）を追加。OSデフォルトで日本語・英語以外のOSを使った場合は日本語表記になります。
+ * 言語切替（OSデフォルト、日本語、英語）を追加。OSデフォルトで日本語・英語以外のOSを使った場合は英語表記になります。
  * 「発言内URLを開く」のショートカットCtrl-Eを2回押すと例外が発生する場合があるバグ修正
  * 不具合が発生することがあるため、発言詳細のアイコン描画方式を旧式へ戻し。画質が多少落ちます。
  * 「RT @」「QT @」が含まれる場合は、フッタを付加しないように変更