From 8d3871d82a96cbf4f8f8c779cc09902daf2a6748 Mon Sep 17 00:00:00 2001
From: anis774 <anis774@users.sourceforge.jp>
Date: Fri, 24 Jun 2011 17:03:51 +0900
Subject: [PATCH] =?utf8?q?Shift=20+=20Space=E3=81=A7=E3=83=9D=E3=82=B9?=
 =?utf8?q?=E3=83=88=E3=81=AE=E9=81=B8=E6=8A=9E=E5=B1=A5=E6=AD=B4=E3=82=92?=
 =?utf8?q?=E8=BE=BF=E3=82=8B=E6=A9=9F=E8=83=BD=E3=82=92=E5=AE=9F=E8=A3=85?=
 =?utf8?q?=E3=81=97=E3=81=A6=E3=81=BF=E3=81=9F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Tween/Tween.vb | 20 ++++++++++++++++++--
 1 file changed, 18 insertions(+), 2 deletions(-)

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 979c0b34..cc2401b8 100644
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -230,7 +230,8 @@ Public Class TweenMain
         End Sub
     End Structure
 
-    Private replyChains As Stack(Of ReplyChain)
+    Private replyChains As Stack(Of ReplyChain) '[, ]でのリプライ移動の履歴
+    Private selectPostChains As New Stack(Of Tuple(Of TabPage, PostClass)) 'ポスト選択履歴
 
     'Backgroundworkerの処理結果通知用引数構造体
     Private Class GetWorkerResult
@@ -1533,6 +1534,8 @@ Public Class TweenMain
             Exit Sub
         End Try
 
+        Me.selectPostChains.Push(Tuple.Create(Me._curTab, _curPost))
+
         If SettingDialog.UnreadManage Then _statuses.SetReadAllTab(True, _curTab.Text, _curItemIndex)
         'キャッシュの書き換え
         ChangeCacheStyleRead(True, _curItemIndex, _curTab)   '既読へ（フォント、文字色）
@@ -5329,6 +5332,9 @@ RETRY:
                             ' お気に入り前後ジャンプ(SHIFT+N←/P→)
                             GoFav(False)
                             Return True
+                        Case Keys.Space
+                            Me.GoBackSelectPostChain()
+                            Return True
                     End Select
                 End If
             Case ModifierState.Alt
@@ -5997,6 +6003,17 @@ RETRY:
         End If
     End Sub
 
+    Private Sub GoBackSelectPostChain()
+        Try
+            Me.selectPostChains.Pop()
+            Dim tabPostPair = Me.selectPostChains.Pop()
+            Me.ListTab.SelectedTab = tabPostPair.Item1
+            Me.SelectListItem(Me._curList, Me._statuses.Tabs(Me._curTab.Text).IndexOf(tabPostPair.Item2.StatusId))
+            Me._curList.EnsureVisible(Me._statuses.Tabs(Me._curTab.Text).IndexOf(tabPostPair.Item2.StatusId))
+        Catch ex As InvalidOperationException
+        End Try
+    End Sub
+
     Private Sub MyList_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
         _anchorFlag = False
     End Sub
@@ -10350,5 +10367,4 @@ RETRY:
     Private Sub OpenUserSpecifiedUrlMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenUserSpecifiedUrlMenuItem.Click, OpenUserSpecifiedUrlMenuItem2.Click
         OpenUserAppointUrl()
     End Sub
-
 End Class
-- 
2.11.0