svnno****@sourc*****
svnno****@sourc*****
2010年 11月 24日 (水) 20:50:07 JST
Revision: 1106
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1106
Author: f_swallow
Date: 2010-11-24 20:50:07 +0900 (Wed, 24 Nov 2010)
Log Message:
-----------
・Fav追加＋Retweetを行ったとき選択している発言が1件だけだとダイアログが表示されないのを表示するように
・Fav追加＋Retweetでキャンセルを押してもFav追加が実行されるのを修正
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-11-24 11:45:37 UTC (rev 1105)
+++ trunk/Tween/Tween.vb 2010-11-24 11:50:07 UTC (rev 1106)
@@ -206,6 +206,8 @@
'Private _FirstRefreshFlags As Boolean = False
'Private _FirstListsRefreshFlags As Boolean = False
+ Private _DoFavRetweetFlags As Boolean = False
+
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Private _postBrowserStatusText As String = ""
@@ -8291,6 +8293,7 @@
Dim Questiontext As String = My.Resources.RetweetQuestion1
If Not multiReTweetDialogEnable Then Questiontext = My.Resources.FavoritesRetweetQuestionText2
If isConfirm AndAlso MessageBox.Show(Questiontext, "Retweet", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
+ _DoFavRetweetFlags = False
Exit Sub
End If
End If
@@ -8317,8 +8320,12 @@
MessageBox.Show(My.Resources.FavoriteRetweetQuestionText1, "Fav&Retweet", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then
Exit Sub
End If
- doReTweetOfficial(False, False)
- FavoriteChange(True, False)
+ _DoFavRetweetFlags = True
+ doReTweetOfficial(True, False)
+ If _DoFavRetweetFlags Then
+ _DoFavRetweetFlags = False
+ FavoriteChange(True, False)
+ End If
End Sub
Private Sub FavoritesRetweetUnofficial()