検索時のsince_idが、検索条件が変わってもクリアされていないバグ修正

タブメニューのショートカットが効かない場合がある問題を修正

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

diff --git a/Tween/StatusDictionary.vb b/Tween/StatusDictionary.vb
index 1fb53b3..c7842af 100644 (file)
--- a/Tween/StatusDictionary.vb
+++ b/Tween/StatusDictionary.vb
@@ -1378,6 +1378,7 @@ Public NotInheritable Class TabClass
             Return _searchLang
         End Get
         Set(ByVal value As String)
+            _sinceId = 0
             _searchLang = value
         End Set
     End Property
@@ -1386,6 +1387,7 @@ Public NotInheritable Class TabClass
             Return _searchWords
         End Get
         Set(ByVal value As String)
+            _sinceId = 0
             _searchWords = value.Trim
         End Set
     End Property

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index dd08140..51535be 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -3623,6 +3623,7 @@ Public Class TweenMain
         SetMainWindowTitle()
         SetStatusLabel()
         If ListTab.Focused OrElse DirectCast(ListTab.SelectedTab.Tag, Control).Focused Then Me.Tag = ListTab.Tag
+        TabMenuControl(ListTab.SelectedTab.Text)
     End Sub
 
     Private Sub SetListProperty()
@@ -5782,12 +5783,16 @@ RETRY:
         UreadManageMenuItem.Checked = tb.UnreadManage
         Me.UnreadMngTbMenuItem.Checked = tb.UnreadManage
 
-        If _statuses.Tabs(_rclickTabName).TabType <> TabUsageType.Mentions AndAlso _statuses.IsDefaultTab(_rclickTabName) Then
+        TabMenuControl(_rclickTabName)
+    End Sub
+
+    Private Sub TabMenuControl(ByVal tabName As String)
+        If _statuses.Tabs(tabName).TabType <> TabUsageType.Mentions AndAlso _statuses.IsDefaultTab(tabName) Then
             FilterEditMenuItem.Enabled = True
             Me.EditRuleTbMenuItem.Enabled = True
             DeleteTabMenuItem.Enabled = False
             Me.DeleteTbMenuItem.Enabled = False
-        ElseIf _statuses.Tabs(_rclickTabName).TabType = TabUsageType.Mentions Then
+        ElseIf _statuses.Tabs(tabName).TabType = TabUsageType.Mentions Then
             FilterEditMenuItem.Enabled = True
             Me.EditRuleTbMenuItem.Enabled = True
             DeleteTabMenuItem.Enabled = False