起動時のTwitterアクセス権限チェックでread-write(xAuth)だった場合の再認証を促すメッセージを変更。その際、設定画面を開くように。認証中のPIN入力を...

diff --git a/Tween/AppendSettingDialog.vb b/Tween/AppendSettingDialog.vb
index 3485ea0..2084530 100644 (file)
--- a/Tween/AppendSettingDialog.vb
+++ b/Tween/AppendSettingDialog.vb
@@ -468,7 +468,7 @@ Public Class AppendSettingDialog
             If TwitterApiInfo.AccessLevel = ApiAccessLevel.ReadWrite Then
                 Me.AuthStateLabel.Text += "(xAuth)"
             ElseIf TwitterApiInfo.AccessLevel = ApiAccessLevel.ReadWriteAndDirectMessage Then
-                Me.AuthStateLabel.Text += "(oAuth)"
+                Me.AuthStateLabel.Text += "(OAuth)"
             End If
             Me.AuthUserLabel.Text = tw.Username
         End If
@@ -2138,7 +2138,6 @@ Public Class AppendSettingDialog
         Dim pinPageUrl As String = ""
         Dim rslt As String = tw.StartAuthentication(pinPageUrl)
         If String.IsNullOrEmpty(rslt) Then
-            MessageBox.Show(My.Resources.AuthorizeButton_Click5, "Authenticate", MessageBoxButtons.OK)
             OpenUrl(pinPageUrl)
             Return True
         Else
@@ -2181,7 +2180,7 @@ Public Class AppendSettingDialog
             If TwitterApiInfo.AccessLevel = ApiAccessLevel.ReadWrite Then
                 Me.AuthStateLabel.Text += "(xAuth)"
             ElseIf TwitterApiInfo.AccessLevel = ApiAccessLevel.ReadWriteAndDirectMessage Then
-                Me.AuthStateLabel.Text += "(oAuth)"
+                Me.AuthStateLabel.Text += "(OAuth)"
             End If
             Return True
         Else
@@ -2227,7 +2226,7 @@ Public Class AppendSettingDialog
             If TwitterApiInfo.AccessLevel = ApiAccessLevel.ReadWrite Then
                 Me.AuthStateLabel.Text += "(xAuth)"
             ElseIf TwitterApiInfo.AccessLevel = ApiAccessLevel.ReadWriteAndDirectMessage Then
-                Me.AuthStateLabel.Text += "(oAuth)"
+                Me.AuthStateLabel.Text += "(OAuth)"
             End If
             Return True
         Else
@@ -2361,6 +2360,7 @@ Public Class AppendSettingDialog
             Thread.Sleep(10)
             If Me.Disposing OrElse Me.IsDisposed Then Exit Sub
         Loop Until Me.IsHandleCreated
+        Me.TopMost = Me.AlwaysTop
         CalcApiUsing()
     End Sub
 

diff --git a/Tween/My Project/Resources.Designer.vb b/Tween/My Project/Resources.Designer.vb
index 2b8ff08..b4325df 100644 (file)
--- a/Tween/My Project/Resources.Designer.vb
+++ b/Tween/My Project/Resources.Designer.vb
@@ -260,15 +260,6 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  PINを入力してください。 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property AuthorizeButton_Click5() As String
-            Get
-                Return ResourceManager.GetString("AuthorizeButton_Click5", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
         '''  認証サーバーに接続できませんでした。 に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property AuthorizeButton_Click6() As String
@@ -1756,7 +1747,7 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  再度認証が必要です。設定画面からいったん認証情報をクリアし、再認証してください。再認証するまでDMにはアクセスできません。 に類似しているローカライズされた文字列を検索します。
+        '''  Direct Messageの送受信をするため、もう一度認証処理をして下さい。 に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property ReAuthorizeText() As String
             Get

diff --git a/Tween/My Project/Resources.en.resx b/Tween/My Project/Resources.en.resx
index 17233a6..c769931 100644 (file)
--- a/Tween/My Project/Resources.en.resx
+++ b/Tween/My Project/Resources.en.resx
@@ -978,9 +978,6 @@
   <data name="ListManageGetMoreUsers2" xml:space="preserve">
     <value>Get more(&amp;M)</value>
   </data>
-  <data name="AuthorizeButton_Click5" xml:space="preserve">
-    <value>Type PIN code.</value>
-  </data>
   <data name="AuthorizeButton_Click6" xml:space="preserve">
     <value>Failed to connect auth server.</value>
   </data>
@@ -990,4 +987,7 @@
   <data name="Unauthorized" xml:space="preserve">
     <value>You are not authorized.</value>
   </data>
+  <data name="ReAuthorizeText" xml:space="preserve">
+    <value>Please do Authentication processing to get/send Direct Messages again.</value>
+  </data>
 </root>
\ No newline at end of file

diff --git a/Tween/My Project/Resources.resx b/Tween/My Project/Resources.resx
index 6c4095c..7b38b4d 100644 (file)
--- a/Tween/My Project/Resources.resx
+++ b/Tween/My Project/Resources.resx
@@ -1096,9 +1096,6 @@
   <data name="ListManageGetMoreUsers2" xml:space="preserve">
     <value>さらに取得(&amp;M)</value>
   </data>
-  <data name="AuthorizeButton_Click5" xml:space="preserve">
-    <value>PINを入力してください。</value>
-  </data>
   <data name="AuthorizeButton_Click6" xml:space="preserve">
     <value>認証サーバーに接続できませんでした。</value>
   </data>
@@ -1109,6 +1106,6 @@
     <value>You are not authorized.</value>
   </data>
   <data name="ReAuthorizeText" xml:space="preserve">
-    <value>再度認証が必要です。設定画面からいったん認証情報をクリアし、再認証してください。再認証するまでDMにはアクセスできません。</value>
+    <value>Direct Messageの送受信をするため、もう一度認証処理をして下さい。</value>
   </data>
 </root>
\ No newline at end of file

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 832c9b7..c7344a5 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -811,7 +811,7 @@ Public Class TweenMain
         If tw.Username = "" Then
             saveRequired = True
             '設定せずにキャンセルされた場合はプログラム終了
-            If SettingDialog.ShowDialog() = Windows.Forms.DialogResult.Cancel Then
+            If SettingDialog.ShowDialog(Me) = Windows.Forms.DialogResult.Cancel Then
                 Application.Exit()  '強制終了
                 Exit Sub
             End If
@@ -3074,7 +3074,7 @@ Public Class TweenMain
         Dim uid As String = tw.Username.ToLower
 
         Try
-            result = SettingDialog.ShowDialog()
+            result = SettingDialog.ShowDialog(Me)
         Catch ex As Exception
             Exit Sub
         End Try
@@ -8488,6 +8488,7 @@ RETRY:
             ' 権限チェック read/write権限(xAuthで取得したトークン)の場合は再認証を促す
             If TwitterApiInfo.AccessLevel = ApiAccessLevel.ReadWrite Then
                 MessageBox.Show(My.Resources.ReAuthorizeText)
+                SettingStripMenuItem_Click(Nothing, Nothing)
             End If
 
         End If

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 39791e2..ca290d8 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -122,7 +122,7 @@ Public Class Twitter
     End Function
 
     Public Function StartAuthentication(ByRef pinPageUrl As String) As String
-        'oAuth PIN Flow
+        'OAuth PIN Flow
         Dim res As Boolean
         Dim content As String = ""
 
@@ -202,7 +202,7 @@ Public Class Twitter
     End Function
 
     Public Sub Initialize(ByVal token As String, ByVal tokenSecret As String, ByVal username As String)
-        'oAuth認証
+        'OAuth認証
         If String.IsNullOrEmpty(token) OrElse String.IsNullOrEmpty(tokenSecret) OrElse String.IsNullOrEmpty(username) Then
             Twitter.AccountState = ACCOUNT_STATE.Invalid
         End If