svnno****@sourc*****
svnno****@sourc*****
2011年 1月 29日 (土) 21:24:02 JST
Revision: 1423
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1423
Author: syo68k
Date: 2011-01-29 21:24:02 +0900 (Sat, 29 Jan 2011)
Log Message:
-----------
・Fav,UnfavイベントでEventData.Targetに発言者のユーザーIDを含めるようにした
・ダブルクリックが機能しなかったバグを修正
Modified Paths:
--------------
trunk/Tween/EventViewerDialog.vb
trunk/Tween/Twitter.vb
-------------- next part --------------
Modified: trunk/Tween/EventViewerDialog.vb
===================================================================
--- trunk/Tween/EventViewerDialog.vb 2011-01-29 11:37:35 UTC (rev 1422)
+++ trunk/Tween/EventViewerDialog.vb 2011-01-29 12:24:02 UTC (rev 1423)
@@ -27,6 +27,7 @@
Imports System.Linq
Imports System.Text.RegularExpressions
Imports System
+Imports System.Runtime.CompilerServices
Public Class EventViewerDialog
Public Property EventSource As List(Of Twitter.FormattedEvent)
@@ -64,13 +65,9 @@
_curTab = TabEventType.SelectedTab
End Sub
- Private Sub EventList_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
- If EventSource IsNot Nothing AndAlso EventSource.Count > 0 Then
- If EventSource(EventList.SelectedIndices(0)) IsNot Nothing Then
- If Me.Owner IsNot Nothing Then
- DirectCast(Me.Owner, TweenMain).OpenUriAsync("http://twitter.com/" + EventSource(EventList.SelectedIndices(0)).Username)
- End If
- End If
+ Private Sub EventList_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EventList.DoubleClick
+ If _filterdEventSource(EventList.SelectedIndices(0)) IsNot Nothing Then
+ TweenMain.OpenUriAsync("http://twitter.com/" + EventSource(EventList.SelectedIndices(0)).Username)
End If
End Sub
Modified: trunk/Tween/Twitter.vb
===================================================================
--- trunk/Tween/Twitter.vb 2011-01-29 11:37:35 UTC (rev 1422)
+++ trunk/Tween/Twitter.vb 2011-01-29 12:24:02 UTC (rev 1423)
@@ -2916,7 +2916,7 @@
End If
evt.Target = ""
Case "favorite", "unfavorite"
- evt.Target = HttpUtility.HtmlDecode(eventData.TargetObject.Text)
+ evt.Target = "@" + eventData.TargetObject.User.ScreenName + ":" + HttpUtility.HtmlDecode(eventData.TargetObject.Text)
evt.Id = eventData.TargetObject.Id
If TabInformations.GetInstance.ContainsKey(eventData.TargetObject.Id) Then
Dim post As PostClass = TabInformations.GetInstance.Item(eventData.TargetObject.Id)