0770リリース

個別ステータスのURLをstatusesからstatusへ

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

diff --git a/Tween/DialogAsShieldIcon.resx b/Tween/DialogAsShieldIcon.resx
index f9d9ebf..ae6f51c 100644 (file)
--- a/Tween/DialogAsShieldIcon.resx
+++ b/Tween/DialogAsShieldIcon.resx
@@ -265,7 +265,7 @@
     <value>True</value>
   </data>
   <data name="TextDetail.ScrollBars" type="System.Windows.Forms.ScrollBars, System.Windows.Forms">
-    <value>Vertical</value>
+    <value>Both</value>
   </data>
   <data name="TextDetail.Size" type="System.Drawing.Size, System.Drawing">
     <value>388, 101</value>

diff --git a/Tween/My Project/AssemblyInfo.vb b/Tween/My Project/AssemblyInfo.vb
index f75ce31..ecf0c05 100644 (file)
--- a/Tween/My Project/AssemblyInfo.vb
+++ b/Tween/My Project/AssemblyInfo.vb
@@ -55,5 +55,5 @@ Imports System.Runtime.InteropServices
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
 <Assembly: AssemblyVersion("0.7.*")> 
-<Assembly: AssemblyFileVersion("0.7.6.0")> 
+<Assembly: AssemblyFileVersion("0.7.7.0")> 
 

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index cc01da8..bae109a 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -1,12 +1,13 @@
 更新履歴
 
-==== Ver 0.7.7.0(Unreleased)
+==== Ver 0.7.7.0(2009/11/15)
  * バージョンアップの確認ダイアログをキャンセルして、再度確認して表示する際に例外が発生するバグ修正
  * バージョンアップの確認ダイアログに更新内容を表示するように変更
- * Web仕様変更対応（Sourceのみ）
+ * Web仕様変更対応（Source取得）
  * 投稿リトライで、遅延判定時はリトライしないように変更
  * @user/lists形式の検出正規表現を修正
  * ハッシュタグの検出正規表現を修正
+ * 個別ステータスへのリンク先をstatusesからstatusへ変更
 ==== Ver 0.7.6.0(2009/11/11)
  * タブの作成、タブ名の変更で例外が発生するバグ修正
  * 取得間隔に0を指定しても定期取得してしまうバグ修正

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index d52d5bd..b1378f1 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -3612,7 +3612,7 @@ RETRY:
     Private Sub StatusOpenMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StatusOpenMenuItem.Click
         If _curList.SelectedIndices.Count > 0 AndAlso _statuses.Tabs(_curTab.Text).TabType <> TabUsageType.DirectMessage Then
             Dim post As PostClass = _statuses.Item(_curTab.Text, _curList.SelectedIndices(0))
-            OpenUriAsync("http://twitter.com/" + post.Name + "/statuses/" + post.Id.ToString)
+            OpenUriAsync("http://twitter.com/" + post.Name + "/status/" + post.Id.ToString)
         End If
     End Sub
 
@@ -4003,7 +4003,7 @@ RETRY:
         For Each idx As Integer In _curList.SelectedIndices
             Dim post As PostClass = _statuses.Item(_curTab.Text, idx)
             If post.IsProtect AndAlso SettingDialog.ProtectNotInclude Then Continue For
-            sb.AppendFormat("{0}:{1} [http://twitter.com/{0}/statuses/{2}]{3}", post.Name, post.Data, post.Id, Environment.NewLine)
+            sb.AppendFormat("{0}:{1} [http://twitter.com/{0}/status/{2}]{3}", post.Name, post.Data, post.Id, Environment.NewLine)
         Next
         If sb.Length > 0 Then
             clstr = sb.ToString()
@@ -4016,7 +4016,7 @@ RETRY:
         Dim sb As New StringBuilder()
         For Each idx As Integer In _curList.SelectedIndices
             Dim post As PostClass = _statuses.Item(_curTab.Text, idx)
-            sb.AppendFormat("http://twitter.com/{0}/statuses/{1}{2}", post.Name, post.Id, Environment.NewLine)
+            sb.AppendFormat("http://twitter.com/{0}/status/{1}{2}", post.Name, post.Id, Environment.NewLine)
         Next
         If sb.Length > 0 Then
             clstr = sb.ToString()
@@ -5678,11 +5678,11 @@ RETRY:
 
     Private Sub RepliedStatusOpenMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RepliedStatusOpenMenuItem.Click
         If _curPost IsNot Nothing AndAlso _curPost.InReplyToUser IsNot Nothing AndAlso _curPost.InReplyToId > 0 Then
-            If _statuses.ContainsKey(_curPost.InReplyToId) Then
+            If _statuses.ContainsKey(_curPost.InReplyToId) AndAlso Not My.Computer.Keyboard.ShiftKeyDown Then
                 Dim repPost As PostClass = _statuses.Item(_curPost.InReplyToId)
                 MessageBox.Show(repPost.Name + " / " + repPost.Nickname + "   (" + repPost.PDate.ToString() + ")" + Environment.NewLine + repPost.Data)
             Else
-                OpenUriAsync("http://twitter.com/" + _curPost.InReplyToUser + "/statuses/" + _curPost.InReplyToId.ToString())
+                OpenUriAsync("http://twitter.com/" + _curPost.InReplyToUser + "/status/" + _curPost.InReplyToId.ToString())
             End If
         End If
     End Sub