svnno****@sourc*****
svnno****@sourc*****
2010年 11月 24日 (水) 21:11:19 JST
Revision: 1107
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1107
Author: f_swallow
Date: 2010-11-24 21:11:19 +0900 (Wed, 24 Nov 2010)
Log Message:
-----------
・Fav追加+非公式RTでも複数時にキャンセルしても非公式RTが実行されるのを修正
・Fav追加＋非公式RTを複数選択で実行したときのメッセージを変更
Modified Paths:
--------------
trunk/Tween/My Project/Resources.Designer.vb
trunk/Tween/My Project/Resources.en.resx
trunk/Tween/My Project/Resources.resx
trunk/Tween/My Project/Resources.zh-CHS.resx
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/My Project/Resources.Designer.vb
===================================================================
--- trunk/Tween/My Project/Resources.Designer.vb 2010-11-24 11:50:07 UTC (rev 1106)
+++ trunk/Tween/My Project/Resources.Designer.vb 2010-11-24 12:11:19 UTC (rev 1107)
@@ -886,6 +886,15 @@
End Property
'''<summary>
+ ''' 選択された発言をFavoritesに追加して非公式RTを実行します。よろしいですか？ に類似しているローカライズされた文字列を検索します。
+ '''</summary>
+ Friend ReadOnly Property FavoriteRetweetQuestionText3() As String
+ Get
+ Return ResourceManager.GetString("FavoriteRetweetQuestionText3", resourceCulture)
+ End Get
+ End Property
+
+ '''<summary>
''' Favoriteに追加してRetweetします。よろしいですか？ に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property FavoritesRetweetQuestionText2() As String
Modified: trunk/Tween/My Project/Resources.en.resx
===================================================================
--- trunk/Tween/My Project/Resources.en.resx 2010-11-24 11:50:07 UTC (rev 1106)
+++ trunk/Tween/My Project/Resources.en.resx 2010-11-24 12:11:19 UTC (rev 1107)
@@ -954,4 +954,7 @@
<data name="FavoritesRetweetQuestionText2" xml:space="preserve">
<value>Favoriteに追加してRetweetします。よろしいですか？</value>
</data>
+ <data name="FavoriteRetweetQuestionText3" xml:space="preserve">
+ <value>選択された発言をFavoritesに追加して非公式RTを実行します。よろしいですか？</value>
+ </data>
</root>
\ No newline at end of file
Modified: trunk/Tween/My Project/Resources.resx
===================================================================
--- trunk/Tween/My Project/Resources.resx 2010-11-24 11:50:07 UTC (rev 1106)
+++ trunk/Tween/My Project/Resources.resx 2010-11-24 12:11:19 UTC (rev 1107)
@@ -1036,4 +1036,7 @@
<data name="TabUsageTypeName_Related" xml:space="preserve">
<value>RelatedTweets</value>
</data>
+ <data name="FavoriteRetweetQuestionText3" xml:space="preserve">
+ <value>選択された発言をFavoritesに追加して非公式RTを実行します。よろしいですか？</value>
+ </data>
</root>
\ No newline at end of file
Modified: trunk/Tween/My Project/Resources.zh-CHS.resx
===================================================================
--- trunk/Tween/My Project/Resources.zh-CHS.resx 2010-11-24 11:50:07 UTC (rev 1106)
+++ trunk/Tween/My Project/Resources.zh-CHS.resx 2010-11-24 12:11:19 UTC (rev 1107)
@@ -987,4 +987,7 @@
<data name="FavoritesRetweetQuestionText2" xml:space="preserve">
<value>Favoriteに追加してRetweetします。よろしいですか？</value>
</data>
+ <data name="FavoriteRetweetQuestionText3" xml:space="preserve">
+ <value>選択された発言をFavoritesに追加して非公式RTを実行します。よろしいですか？</value>
+ </data>
</root>
\ No newline at end of file
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-11-24 11:50:07 UTC (rev 1106)
+++ trunk/Tween/Tween.vb 2010-11-24 12:11:19 UTC (rev 1107)
@@ -2457,11 +2457,15 @@
'複数fav確認msg
If _curList.SelectedIndices.Count > 250 AndAlso FavAdd Then
MessageBox.Show(My.Resources.FavoriteLimitCountText)
+ _DoFavRetweetFlags = False
Exit Sub
ElseIf multiFavoriteChangeDialogEnable AndAlso _curList.SelectedIndices.Count > 1 Then
If FavAdd Then
- If MessageBox.Show(My.Resources.FavAddToolStripMenuItem_ClickText1, My.Resources.FavAddToolStripMenuItem_ClickText2, _
+ Dim QuestionText As String = My.Resources.FavAddToolStripMenuItem_ClickText1
+ If _DoFavRetweetFlags Then QuestionText = My.Resources.FavoriteRetweetQuestionText3
+ If MessageBox.Show(QuestionText, My.Resources.FavAddToolStripMenuItem_ClickText2, _
MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
+ _DoFavRetweetFlags = False
Exit Sub
End If
Else
@@ -8330,8 +8334,12 @@
Private Sub FavoritesRetweetUnofficial()
If _curPost IsNot Nothing AndAlso Not _curPost.IsDm Then
+ _DoFavRetweetFlags = True
FavoriteChange(True)
- If Not _curPost.IsProtect Then doReTweetUnofficial()
+ If Not _curPost.IsProtect AndAlso _DoFavRetweetFlags Then
+ _DoFavRetweetFlags = False
+ doReTweetUnofficial()
+ End If
End If
End Sub