Ctrl+CでのTLコピー時にプロテクト付きの発言が含まれていると、警告ダイアログの内容がクリップボードに書き込まれてしまう不具合を修正。

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@651 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 3819589..3dad785 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -4842,7 +4842,8 @@ RETRY:
         If sb.Length > 0 Then
             clstr = sb.ToString()
             Try
-                Clipboard.SetDataObject(clstr, False, 5, 100)
+                Dim stotProc As New StotDelegate(AddressOf doStot)
+                stotProc.BeginInvoke(clstr, Nothing, Nothing)
             Catch ex As Exception
                 MessageBox.Show(ex.Message)
             End Try
@@ -4852,6 +4853,12 @@ RETRY:
         End If
     End Sub
 
+    Private Sub doStot(ByVal text As String)
+        Me.Invoke(New StotDelegate(AddressOf Clipboard.SetText), text)
+    End Sub
+
+    Delegate Sub StotDelegate(ByVal text As String)
+
     Private Sub CopyIdUri()
         Dim clstr As String = ""
         Dim sb As New StringBuilder()