Changeset 29110

Timestamp:

01/27/09 12:47:17 (4 years ago)

Author:

syo68k

Message:

IsDefaultTab?()のOverloadを統合してFunctionに

Files:

• lang/vb2005/Tween/Tween/Tween.vb (modified) (3 diffs)

lang/vb2005/Tween/Tween/Tween.vb

@@ -3611 +3611 @@
         SoundFileComboBox.SelectedIndex = idx
         UreadManageMenuItem.Checked = tb.UnreadManage
-        If IsDefaultTab() Then
+        If IsDefaultTab(_rclickTabName) Then
             FilterEditMenuItem.Enabled = False
             DeleteTabMenuItem.Enabled = False
@@ -3660 +3660 @@
 
     Private Sub FilterEditMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FilterEditMenuItem.Click
-        If _rclickTabName = "" OrElse IsDefaultTab() Then Exit Sub
+        If _rclickTabName = "" OrElse IsDefaultTab(_rclickTabName) Then Exit Sub
 
         fDialog.SetCurrent(_rclickTabName)
@@ -4724 +4724 @@
 
     ' デフォルトタブの判定処理
-
-    Private Overloads ReadOnly Property IsDefaultTab() As Boolean
-        Get
-            If _rclickTabName = "Recent" OrElse _rclickTabName = "Reply" _
-                    OrElse _rclickTabName = "Direct" Then
-                Return True
-            Else
-                Return False
-            End If
-        End Get
-    End Property
-    Private Overloads ReadOnly Property IsDefaultTab(ByVal tabName As String) As Boolean
-        Get
-            If tabName = "Recent" OrElse tabName = "Reply" _
-                    OrElse tabName = "Direct" Then
-                Return True
-            Else
-                Return False
-            End If
-        End Get
-    End Property
+    Private Function IsDefaultTab(ByVal tabName As String) As Boolean
+        If tabName = "Recent" OrElse tabName = "Reply" _
+                OrElse tabName = "Direct" Then
+            Return True
+        Else
+            Return False
+        End If
+    End Function
 End Class