Spaceキーの動作が2回書かれていたのを直した

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 7c11d87..ed0955c 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -4872,9 +4872,11 @@ RETRY:
             If Focused <> ModifierState.StatusText AndAlso Not Pressed Then
                 If KeyCode = Keys.Space OrElse KeyCode = Keys.ProcessKey Then
                     Pressed = True
+                    If Focused = ModifierState.ListTab Then _anchorFlag = False
                     JumpUnreadMenuItem_Click(Nothing, Nothing)
                 ElseIf KeyCode = Keys.G Then
                     Pressed = True
+                    If Focused = ModifierState.ListTab Then _anchorFlag = False
                     ShowRelatedStatusesMenuItem_Click(Nothing, Nothing)
                 End If
             End If
@@ -4893,10 +4895,7 @@ RETRY:
                     Return Pressed
                 End If
                 _anchorFlag = False
-                If KeyCode = Keys.Space OrElse KeyCode = Keys.ProcessKey Then
-                    Pressed = True
-                    JumpUnreadMenuItem_Click(Nothing, Nothing)
-                ElseIf KeyCode = Keys.Enter OrElse KeyCode = Keys.Return Then
+                If KeyCode = Keys.Enter OrElse KeyCode = Keys.Return Then
                     Pressed = True
                     MakeReplyOrDirectStatus()
                 ElseIf KeyCode = Keys.L Then