• R/O
  • HTTP
  • SSH
  • HTTPS

open-tween: Commit

開発に使用するリポジトリ


Commit MetaInfo

Révision6a654b6edaa338fc890494c9fa6a19594277b6b2 (tree)
l'heure2012-02-22 19:25:15
Auteurkiri_feather <kiri_feather@user...>
CommiterKimura Youichi

Message de Log

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

Change Summary

Modification

--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -1545,13 +1545,19 @@ Public Class TweenMain
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 @@ Public Class TweenMain
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
Afficher sur ancien navigateur de dépôt.