From 2b768d88b0a07ff7816e2530a90574d9d0ad5763 Mon Sep 17 00:00:00 2001
From: f_swallow <f_swallow@users.sourceforge.jp>
Date: Fri, 17 Sep 2010 08:02:53 +0000
Subject: [PATCH] =?utf8?q?StatutText=E3=81=AEKeyDown=E3=82=A4=E3=83=99?=
 =?utf8?q?=E3=83=B3=E3=83=88=E3=81=A7Ctrl=E3=82=AD=E3=83=BC=E3=82=92?=
 =?utf8?q?=E4=BD=BF=E7=94=A8=E3=81=99=E3=82=8B=E3=82=82=E3=81=AE=E3=81=AE?=
 =?utf8?q?=E5=A4=89=E6=9B=B4=E3=82=92=E4=B8=80=E6=99=82=E7=9A=84=E3=81=AB?=
 =?utf8?q?=E7=A0=B4=E6=A3=84?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@887 e39ad16e-3079-482e-bb30-4b4d378143b6
---
 Tween/Tween.vb | 66 ++--------------------------------------------------------
 1 file changed, 2 insertions(+), 64 deletions(-)

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 21d1ff6c..6d468320 100644
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5139,7 +5139,7 @@ RETRY:
                 StatusText.SelectionStart = StatusText.Text.Length
                 e.Handled = True
                 e.SuppressKeyPress = True
-            ElseIf e.KeyCode = Keys.PageUp OrElse e.KeyCode = Keys.P Then
+            ElseIf e.KeyCode = Keys.PageUp Then
                 If ListTab.SelectedIndex = 0 Then
                     ListTab.SelectedIndex = ListTab.TabCount - 1
                 Else
@@ -5148,7 +5148,7 @@ RETRY:
                 e.Handled = True
                 e.SuppressKeyPress = True
                 StatusText.Focus()
-            ElseIf e.KeyCode = Keys.PageDown OrElse e.KeyCode = Keys.N Then
+            ElseIf e.KeyCode = Keys.PageDown Then
                 If ListTab.SelectedIndex = ListTab.TabCount - 1 Then
                     ListTab.SelectedIndex = 0
                 Else
@@ -5157,69 +5157,7 @@ RETRY:
                 e.Handled = True
                 e.SuppressKeyPress = True
                 StatusText.Focus()
-            ElseIf e.KeyCode = Keys.R Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                MakeReplyOrDirectStatus(False, True)
-            ElseIf e.KeyCode = Keys.M Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                MakeReplyOrDirectStatus(False, False)
-            ElseIf e.KeyCode = Keys.S Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                FavoriteChange(True)
-            ElseIf e.KeyCode = Keys.I Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                doRepliedStatusOpen()
-            ElseIf e.KeyCode = Keys.D Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                doStatusDelete()
-            ElseIf e.KeyCode = Keys.Q Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                doQuote()
-            ElseIf e.KeyCode = Keys.B Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                ReadedStripMenuItem_Click(Nothing, Nothing)
-            ElseIf e.KeyCode = Keys.T Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                HashManageMenuItem_Click(Nothing, Nothing)
-            ElseIf e.KeyCode = Keys.L Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                UrlConvertAutoToolStripMenuItem_Click(Nothing, Nothing)
-            ElseIf e.KeyCode = Keys.C Then
-                Dim clstr As String = ""
-                e.Handled = True
-                e.SuppressKeyPress = True
-                CopyStot()
-            ElseIf e.KeyCode = Keys.Y Then
-                e.Handled = True
-                e.SuppressKeyPress = True
-                MultiLineMenuItem_Click(Nothing, Nothing)
             End If
-
-            Select Case e.KeyCode
-                Case Keys.H
-                    If _curList.SelectedIndices.Count > 0 Then
-                        OpenUriAsync("http://twitter.com/" + GetCurTabPost(_curList.SelectedIndices(0)).Name)
-                    ElseIf _curList.SelectedIndices.Count = 0 Then
-                        OpenUriAsync("http://twitter.com/")
-                    End If
-                Case Keys.G
-                    If _curList.SelectedIndices.Count > 0 Then
-                        OpenUriAsync("http://twitter.com/" + GetCurTabPost(_curList.SelectedIndices(0)).Name + "/favorites")
-                    End If
-                Case Keys.E
-                    OpenURLMenuItem_Click(Nothing, Nothing)
-                Case Keys.O
-                    StatusOpenMenuItem_Click(Nothing, Nothing)
-            End Select
         End If
 
         If e.KeyCode = Keys.Space AndAlso e.Modifiers = (Keys.Shift Or Keys.Control) Then
-- 
2.11.0