svnno****@sourc*****
svnno****@sourc*****
2011年 1月 26日 (水) 00:21:17 JST
Revision: 1408
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1408
Author: syo68k
Date: 2011-01-26 00:21:17 +0900 (Wed, 26 Jan 2011)
Log Message:
-----------
UserStream接続開始のタイミングを初期読み込み開始前に変更
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-25 15:05:46 UTC (rev 1407)
+++ trunk/Tween/Tween.vb 2011-01-25 15:21:17 UTC (rev 1408)
@@ -8218,6 +8218,20 @@
bw.RunWorkerAsync(args)
End Sub
+ Private Sub StartUserStream()
+ AddHandler tw.NewPostFromStream, AddressOf tw_NewPostFromStream
+ AddHandler tw.UserStreamStarted, AddressOf tw_UserStreamStarted
+ AddHandler tw.UserStreamStopped, AddressOf tw_UserStreamStopped
+ AddHandler tw.PostDeleted, AddressOf tw_PostDeleted
+ AddHandler tw.UserStreamEventReceived, AddressOf tw_UserStreamEventArrived
+
+ MenuItemUserStream.Text = "&UserStream ■"
+ MenuItemUserStream.Enabled = True
+ StopToolStripMenuItem.Text = "&Start"
+ StopToolStripMenuItem.Enabled = True
+ If SettingDialog.UserstreamStartup Then tw.StartUserStream()
+ End Sub
+
Private Sub TweenMain_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
Try
PostBrowser.Url = New Uri("about:blank")
@@ -8232,6 +8246,7 @@
If SettingDialog.StartupFollowers Then
GetTimeline(WORKERTYPE.Follower, 0, 0, "")
End If
+ StartUserStream()
_waitTimeline = True
GetTimeline(WORKERTYPE.Timeline, 1, 1, "")
_waitReply = True
@@ -8277,17 +8292,7 @@
End If
End If
_initial = False
- AddHandler tw.NewPostFromStream, AddressOf tw_NewPostFromStream
- AddHandler tw.UserStreamStarted, AddressOf tw_UserStreamStarted
- AddHandler tw.UserStreamStopped, AddressOf tw_UserStreamStopped
- AddHandler tw.PostDeleted, AddressOf tw_PostDeleted
- AddHandler tw.UserStreamEventReceived, AddressOf tw_UserStreamEventArrived
- MenuItemUserStream.Text = "&UserStream ■"
- MenuItemUserStream.Enabled = True
- StopToolStripMenuItem.Text = "&Start"
- StopToolStripMenuItem.Enabled = True
- If SettingDialog.UserstreamStartup Then tw.StartUserStream()
TimerTimeline.Enabled = True
End Sub