[Tween-svn] [1390] ふぁぼられを開く際のID入力ダイアログがUserTimelineのものになっていたバグを修正

アーカイブの一覧に戻る

svnno****@sourc***** svnno****@sourc*****
2011年 1月 20日 (木) 20:52:58 JST


Revision: 1390
          http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1390
Author:   syo68k
Date:     2011-01-20 20:52:58 +0900 (Thu, 20 Jan 2011)

Log Message:
-----------
ふぁぼられを開く際のID入力ダイアログがUserTimelineのものになっていたバグを修正

Modified Paths:
--------------
    trunk/Tween/Tween.vb


-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb	2011-01-20 11:29:44 UTC (rev 1389)
+++ trunk/Tween/Tween.vb	2011-01-20 11:52:58 UTC (rev 1390)
@@ -9800,8 +9800,6 @@
     End Sub
 
     Private Sub tw_NewPostFromStream()
-        Me._myStatusError = False
-
         If SettingDialog.ReadOldPosts Then
             _statuses.SetRead() '新着時未読クリア
         End If
@@ -10032,13 +10030,13 @@
         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 @@
     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



Tween-svn メーリングリストの案内
アーカイブの一覧に戻る