* タブの作成、タブ名の変更で例外が発生するバグ修正
* 取得間隔に0を指定しても定期取得してしまうバグ修正
* Recent/Reply/Direct/Favoritesのタブ名も変更可能に
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@7
e39ad16e-3079-482e-bb30-
4b4d378143b6
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("0.7.*")>
-<Assembly: AssemblyFileVersion("0.7.5.0")>
+<Assembly: AssemblyFileVersion("0.7.6.0")>
更新履歴
+==== Ver 0.7.6.0(2009/11/11)
+ * タブの作成、タブ名の変更で例外が発生するバグ修正
+ * 取得間隔に0を指定しても定期取得してしまうバグ修正
+ * Recent/Reply/Direct/Favoritesのタブ名も変更可能に
==== Ver 0.7.5.0(2009/11/11)
* 設定画面のソート順ロック、最前面表示を「動作」タブから「表示」タブへ移動
* 設定に@ID入力補助の使用切り替え設定を追加
Public Function IsDefaultTab(ByVal tabName As String) As Boolean
If tabName IsNot Nothing AndAlso _
_tabs.ContainsKey(tabName) AndAlso _
- _tabs(tabName).TabType = TabUsageType.Home OrElse _
+ (_tabs(tabName).TabType = TabUsageType.Home OrElse _
_tabs(tabName).TabType = TabUsageType.Mentions OrElse _
_tabs(tabName).TabType = TabUsageType.DirectMessage OrElse _
- _tabs(tabName).TabType = TabUsageType.Favorites Then
+ _tabs(tabName).TabType = TabUsageType.Favorites) Then
Return True
Else
Return False
_colHd8.Width = 50
'End If
- If _statuses.Tabs(tabName).TabType = TabUsageType.Mentions OrElse Not _statuses.IsDefaultTab(tabName) Then
+ If (_statuses.Tabs.ContainsKey(tabName) AndAlso _statuses.Tabs(tabName).TabType = TabUsageType.Mentions) _
+ OrElse Not _statuses.IsDefaultTab(tabName) Then
TabDialog.AddTab(tabName)
End If
If _statuses.Tabs(ListTab.TabPages(i).Text).TabType = TabUsageType.Mentions OrElse Not _statuses.IsDefaultTab(ListTab.TabPages(i).Text) Then
TabDialog.RemoveTab(ListTab.TabPages(i).Text)
End If
+ If ListTab.TabPages(i).Text = tabName Then
+ ListTab.TabPages(i).Text = newTabText
+ End If
Next
_statuses.RenameTab(tabName, newTabText)
RefreshStripMenuItem.Enabled = False
End If
_initial = False
- TimerTimeline.Enabled = True
- TimerReply.Enabled = True
- TimerDM.Enabled = True
+ If SettingDialog.TimelinePeriodInt > 0 Then TimerTimeline.Enabled = True
+ If SettingDialog.DMPeriodInt > 0 Then TimerDM.Enabled = True
+ If SettingDialog.ReplyPeriodInt > 0 Then TimerReply.Enabled = True
End Sub
Private Sub doGetFollowersMenu(ByVal CacheInvalidate As Boolean)
</Target>
-->
<PropertyGroup>
- <PostBuildEvent>"c:\Program Files\Microsoft.NET\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
+ <PostBuildEvent>"C:\Program Files\Microsoft Visual Studio 8\SDK\v2.0\Bin\sgen.exe" /f /a:"$(TargetPath)"</PostBuildEvent>
</PropertyGroup>
</Project>
\ No newline at end of file