r780でNameTextBoxを毎回フォーカスしてたのを修正

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

diff --git a/Tween/ListManage.vb b/Tween/ListManage.vb
index 74c3bad..000548a 100644 (file)
--- a/Tween/ListManage.vb
+++ b/Tween/ListManage.vb
@@ -69,7 +69,7 @@ Public Class ListManage
         Me.UsernameTextBox.TabStop = Not Me.EditCheckBox.Checked
         Me.MemberCountTextBox.TabStop = Not Me.EditCheckBox.Checked
         Me.SubscriberCountTextBox.TabStop = Not Me.EditCheckBox.Checked
-        Me.NameTextBox.Focus()
+        If Me.EditCheckBox.Checked = True Then Me.NameTextBox.Focus()
     End Sub
 
     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKEditButton.Click