svnno****@sourc*****
svnno****@sourc*****
2011年 3月 1日 (火) 10:39:22 JST
Revision: 1478
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1478
Author: syo68k
Date: 2011-03-01 10:39:22 +0900 (Tue, 01 Mar 2011)
Log Message:
-----------
タブ選択ダイアログにUserTimelineタブが表示されるバグ修正
Modified Paths:
--------------
trunk/Tween/FilterDialog.vb
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/FilterDialog.vb
===================================================================
--- trunk/Tween/FilterDialog.vb 2011-02-28 23:37:18 UTC (rev 1477)
+++ trunk/Tween/FilterDialog.vb 2011-03-01 01:39:22 UTC (rev 1478)
@@ -761,7 +761,7 @@
tabdialog.ClearTab()
For Each key As String In _sts.Tabs.Keys
Select Case TabInformations.GetInstance.Tabs(key).TabType
- Case TabUsageType.Home, TabUsageType.DirectMessage, TabUsageType.Favorites, TabUsageType.PublicSearch, TabUsageType.Lists, TabUsageType.Related
+ Case TabUsageType.Home, TabUsageType.DirectMessage, TabUsageType.Favorites, TabUsageType.PublicSearch, TabUsageType.Lists, TabUsageType.Related, TabUsageType.UserTimeline
Exit Select
Case Else
tabdialog.AddTab(key)
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-02-28 23:37:18 UTC (rev 1477)
+++ trunk/Tween/Tween.vb 2011-03-01 01:39:22 UTC (rev 1478)
@@ -3569,7 +3569,9 @@
_colHd8.Width = 50
If (_statuses.Tabs.ContainsKey(tabName) AndAlso _statuses.Tabs(tabName).TabType = TabUsageType.Mentions) _
- OrElse (Not _statuses.IsDefaultTab(tabName) AndAlso tabType <> TabUsageType.PublicSearch AndAlso tabType <> TabUsageType.Lists AndAlso tabType <> TabUsageType.Related) Then
+ OrElse (Not _statuses.IsDefaultTab(tabName) AndAlso tabType <> TabUsageType.PublicSearch _
+ AndAlso tabType <> TabUsageType.Lists AndAlso tabType <> TabUsageType.Related _
+ AndAlso tabType <> TabUsageType.UserTimeline) Then
TabDialog.AddTab(tabName)
End If
@@ -6224,8 +6226,10 @@
_statuses.RenameTab(tabName, newTabText)
For i As Integer = 0 To ListTab.TabCount - 1
- If _statuses.Tabs(ListTab.TabPages(i).Text).TabType = TabUsageType.Mentions OrElse _
- (Not _statuses.IsDefaultTab(ListTab.TabPages(i).Text) AndAlso _statuses.Tabs(ListTab.TabPages(i).Text).TabType <> TabUsageType.PublicSearch AndAlso _statuses.Tabs(ListTab.TabPages(i).Text).TabType <> TabUsageType.Lists AndAlso _statuses.Tabs(ListTab.TabPages(i).Text).TabType <> TabUsageType.Related) Then
+ Dim tabUsageType As TabUsageType = _statuses.Tabs(ListTab.TabPages(i).Text).TabType
+ If tabUsageType = tabUsageType.Mentions OrElse (Not _statuses.IsDefaultTab(ListTab.TabPages(i).Text) _
+ AndAlso tabUsageType <> tabUsageType.PublicSearch AndAlso tabUsageType <> tabUsageType.Lists _
+ AndAlso tabUsageType <> tabUsageType.Related AndAlso tabUsageType <> tabUsageType.UserTimeline) Then
If ListTab.TabPages(i).Text = tabName Then
ListTab.TabPages(i).Text = newTabText
End If