svnno****@sourc*****
svnno****@sourc*****
2011年 10月 31日 (月) 11:24:51 JST
Revision: 1643
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1643
Author: kiri_feather
Date: 2011-10-31 11:24:51 +0900 (Mon, 31 Oct 2011)
Log Message:
-----------
3ポスト以上の通知はまとめる
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-10-24 14:05:42 UTC (rev 1642)
+++ trunk/Tween/Tween.vb 2011-10-31 02:24:51 UTC (rev 1643)
@@ -1545,13 +1545,19 @@
'新着通知
If BalloonRequired() Then
If notifyPosts IsNot Nothing AndAlso notifyPosts.Length > 0 Then
- 'Growlは一個ずつばらして通知
+ 'Growlは一個ずつばらして通知。ただし、3ポスト以上あるときはまとめる
If SettingDialog.IsNotifyUseGrowl Then
+ Dim sb As New StringBuilder
+ Dim reply As Boolean = False
+ Dim dm As Boolean = False
+
For Each post In notifyPosts
- Dim sb As New StringBuilder
- Dim reply As Boolean = False
- Dim dm As Boolean = False
+ If Not notifyPosts.Count > 3 Then
+ sb.Clear()
+ reply = False
+ dm = False
+ End If
If post.IsReply AndAlso Not post.IsExcludeReply Then reply = True
If post.IsDm Then dm = True
If sb.Length > 0 Then sb.Append(System.Environment.NewLine)
@@ -1562,6 +1568,9 @@
sb.Append(post.Nickname).Append(" : ")
End Select
sb.Append(post.TextFromApi)
+ If notifyPosts.Count > 3 Then
+ If notifyPosts.Last IsNot post Then Continue For
+ End If
Dim title As New StringBuilder
Dim ntIcon As ToolTipIcon