OSDN Git Service

ふぁぼられを開く際のID入力ダイアログがUserTimelineのものになっていたバグを修正
authorsyo68k <syo68k@users.sourceforge.jp>
Thu, 20 Jan 2011 11:52:58 +0000 (11:52 +0000)
committerKimura Youichi <kim.upsilon@bucyou.net>
Sat, 18 Feb 2012 14:18:41 +0000 (23:18 +0900)
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1390 e39ad16e-3079-482e-bb30-4b4d378143b6

Tween/Tween.vb

index ce69288..20e24c5 100644 (file)
@@ -9800,8 +9800,6 @@ RETRY:
     End Sub
 
     Private Sub tw_NewPostFromStream()
-        Me._myStatusError = False
-
         If SettingDialog.ReadOldPosts Then
             _statuses.SetRead() '新着時未読クリア
         End If
@@ -10032,13 +10030,13 @@ RETRY:
         End Get
     End Property
 
-    Private Function GetUserIdFromCurPostOrInput() As String
+    Private Function GetUserIdFromCurPostOrInput(ByVal caption As String) As String
         Dim id As String = ""
         If _curPost IsNot Nothing Then
             id = _curPost.Name
         End If
         Using inputName As New InputTabName()
-            inputName.FormTitle = "Show UserTimeline"
+            inputName.FormTitle = caption
             inputName.FormDescription = My.Resources.FRMessage1
             inputName.TabName = id
             If inputName.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso _
@@ -10052,14 +10050,14 @@ RETRY:
     End Function
 
     Private Sub UserTimelineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserTimelineToolStripMenuItem.Click
-        Dim id As String = GetUserIdFromCurPostOrInput()
+        Dim id As String = GetUserIdFromCurPostOrInput("Show UserTimeline")
         If Not String.IsNullOrEmpty(id) Then
             AddNewTabForUserTimeline(id)
         End If
     End Sub
 
     Private Sub UserFavorareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserFavorareToolStripMenuItem.Click
-        Dim id As String = GetUserIdFromCurPostOrInput()
+        Dim id As String = GetUserIdFromCurPostOrInput("Show Favstar")
         If Not String.IsNullOrEmpty(id) Then
             OpenUriAsync(My.Resources.FavstarUrl + "users/" + id + "/recent")
         End If