svnno****@sourc*****
svnno****@sourc*****
2011年 1月 19日 (水) 12:39:14 JST
Revision: 1374
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1374
Author: syo68k
Date: 2011-01-19 12:39:14 +0900 (Wed, 19 Jan 2011)
Log Message:
-----------
DELETEイベント処理微修正
Modified Paths:
--------------
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2011-01-19 03:09:55 UTC (rev 1373)
+++ trunk/Tween/Twitter.vb 2011-01-19 03:39:14 UTC (rev 1374)
@@ -2870,7 +2870,7 @@
evt.Event = "DELETE(Post)"
End If
evt.Username = post.Name
- evt.Target = If(post.Data.Length > 5, post.Data.Substring(0, 5) + "...", post.Data) + " [" + post.PDate.ToString + "]"
+ evt.Target = If(post.Data.Length > 10, post.Data.Substring(0, 10) + "...", post.Data) + " [" + post.PDate.ToString + "]"
End If
For i As Integer = Me.StoredEvent.Count - 1 To 0 Step -1
Dim sEvt As FormattedEvent = Me.StoredEvent(i)