• R/O
  • SSH
  • HTTPS

tween: コミット


コミットメタ情報

リビジョン1643 (tree)
日時2011-10-31 11:24:51
作者kiri_feather

ログメッセージ

3ポスト以上の通知はまとめる

変更サマリ

差分

--- trunk/Tween/Tween.vb (revision 1642)
+++ trunk/Tween/Tween.vb (revision 1643)
@@ -1545,13 +1545,19 @@
15451545 '新着通知
15461546 If BalloonRequired() Then
15471547 If notifyPosts IsNot Nothing AndAlso notifyPosts.Length > 0 Then
1548- 'Growlは一個ずつばらして通知
1548+ 'Growlは一個ずつばらして通知。ただし、3ポスト以上あるときはまとめる
15491549 If SettingDialog.IsNotifyUseGrowl Then
1550+ Dim sb As New StringBuilder
1551+ Dim reply As Boolean = False
1552+ Dim dm As Boolean = False
1553+
15501554 For Each post In notifyPosts
1551- Dim sb As New StringBuilder
1552- Dim reply As Boolean = False
1553- Dim dm As Boolean = False
15541555
1556+ If Not notifyPosts.Count > 3 Then
1557+ sb.Clear()
1558+ reply = False
1559+ dm = False
1560+ End If
15551561 If post.IsReply AndAlso Not post.IsExcludeReply Then reply = True
15561562 If post.IsDm Then dm = True
15571563 If sb.Length > 0 Then sb.Append(System.Environment.NewLine)
@@ -1562,6 +1568,9 @@
15621568 sb.Append(post.Nickname).Append(" : ")
15631569 End Select
15641570 sb.Append(post.TextFromApi)
1571+ If notifyPosts.Count > 3 Then
1572+ If notifyPosts.Last IsNot post Then Continue For
1573+ End If
15651574
15661575 Dim title As New StringBuilder
15671576 Dim ntIcon As ToolTipIcon
旧リポジトリブラウザで表示