Changeset 33279

Timestamp:

05/13/09 16:25:59 (4 years ago)

Author:

syo68k

Message:

all @ replies廃止の仕様変更に伴い複数Replyの先頭にドットを付加するように修正

Location:

lang/vb2005/Tween/trunk/Tween

Files:

• Resources/ChangeLog.txt (modified) (1 diff)
• Tween.vb (modified) (7 diffs)

lang/vb2005/Tween/trunk/Tween/Resources/ChangeLog.txt

@@ -4 +4 @@
 -Outputzに送信する設定で復活の呪文に問題があるときに投稿が必ずPOST規制判定されていたバグを修正
 -短縮URLの展開結果がマルチバイト文字を含む場合に正常に展開できないことがあるのを修正
+-all @ replies廃止の仕様変更に伴い複数Replyの先頭にドットを付加するように修正
 ***Ver 0.4.6.0(2009/5/8)
 -ListView右クリックあるいは操作メニューを開くとクラッシュすることがあるバグを修正

lang/vb2005/Tween/trunk/Tween/Tween.vb

@@ -4073 +4073 @@
         '↑仕様変更で全部リプライ扱いでＯＫ（先頭ドット付加しない）
         '090403暫定でドットを付加しないようにだけ修正。単独と複数の処理は統合できると思われる。
+        '090513 all @ replies 廃止の仕様変更によりドット付加に戻し(syo68k)
 
         If _curList.SelectedIndices.Count > 0 Then
@@ -4096 +4097 @@
                         If StatusText.Text.Contains("@" + _curPost.Name + " ") Then Exit Sub
                         If Not StatusText.Text.StartsWith("@") Then
-                            'If StatusText.Text.StartsWith(". ") Then
-                            '    ' 複数リプライ
-                            '    StatusText.Text = StatusText.Text.Insert(2, "@" + _curPost.Name + " ")
-                            '    _reply_to_id = 0
-                            '    _reply_to_name = Nothing
-                            'Else
-                            ' 単独リプライ
-                            StatusText.Text = "@" + _curPost.Name + " " + StatusText.Text
-                            _reply_to_id = _curPost.Id
-                            _reply_to_name = _curPost.Name
-                            'End If
+                            If StatusText.Text.StartsWith(". ") Then
+                                ' 複数リプライ
+                                StatusText.Text = StatusText.Text.Insert(2, "@" + _curPost.Name + " ")
+                                _reply_to_id = 0
+                                _reply_to_name = Nothing
+                            Else
+                                ' 単独リプライ
+                                StatusText.Text = "@" + _curPost.Name + " " + StatusText.Text
+                                _reply_to_id = _curPost.Id
+                                _reply_to_name = _curPost.Name
+                            End If
                         Else
                             ' 複数リプライ
-                            'StatusText.Text = ". @" + _curPost.Name + " " + StatusText.Text
-                            StatusText.Text = "@" + _curPost.Name + " " + StatusText.Text
+                            StatusText.Text = ". @" + _curPost.Name + " " + StatusText.Text
+                            'StatusText.Text = "@" + _curPost.Name + " " + StatusText.Text
                             _reply_to_id = 0
                             _reply_to_name = Nothing
@@ -4116 +4117 @@
                     Else
                         Dim sidx As Integer = StatusText.SelectionStart
-                        'If StatusText.Text.StartsWith("@") Then
-                        '    '複数リプライ
-                        '    StatusText.Text = ". " + StatusText.Text.Insert(sidx, " @" + _curPost.Name + " ")
-                        '    sidx += 5 + _curPost.Name.Length
-                        'Else
+                        If StatusText.Text.StartsWith("@") Then
+                            '複数リプライ
+                            StatusText.Text = ". " + StatusText.Text.Insert(sidx, " @" + _curPost.Name + " ")
+                            sidx += 5 + _curPost.Name.Length
+                        Else
                             ' 複数リプライ
                             StatusText.Text = StatusText.Text.Insert(sidx, " @" + _curPost.Name + " ")
                             sidx += 3 + _curPost.Name.Length
-                        'End If
+                        End If
                         StatusText.SelectionStart = sidx
                         StatusText.Focus()
@@ -4138 +4139 @@
                 If isAuto Then
                     Dim sTxt As String = StatusText.Text
-                    'If Not sTxt.StartsWith(". ") Then
-                    '    sTxt = ". " + sTxt
-                    'End If
+                    If Not sTxt.StartsWith(". ") Then
+                        sTxt = ". " + sTxt
+                    End If
                     For cnt As Integer = 0 To _curList.SelectedIndices.Count - 1
                         Dim post As PostClass = _statuses.Item(_curTab.Text, _curList.SelectedIndices(cnt))
                         If Not sTxt.Contains("@" + post.Name + " ") Then
-                            'sTxt = sTxt.Insert(2, "@" + post.Name + " ")
-                            sTxt = "@" + post.Name + " " + sTxt
+                            sTxt = sTxt.Insert(2, "@" + post.Name + " ")
+                            'sTxt = "@" + post.Name + " " + sTxt
                         End If
                     Next
@@ -4168 +4169 @@
                     Next
                     If ids.Length = 0 Then Exit Sub
-                    'If Not StatusText.Text.StartsWith(". ") Then
-                    '    StatusText.Text = ". " + StatusText.Text
-                    '    sidx += 2
-                    'End If
+                    If Not StatusText.Text.StartsWith(". ") Then
+                        StatusText.Text = ". " + StatusText.Text
+                        sidx += 2
+                    End If
                     If sidx > 0 Then
                         If StatusText.Text.Substring(sidx - 1, 1) <> " " Then
@@ -4177 +4178 @@
                         End If
                     End If
-                    'If StatusText.Text.StartsWith("@") Then
-                    '    StatusText.Text = ". " + StatusText.Text.Insert(sidx, ids)
-                    '    sidx += 2 + ids.Length
-                    'Else
-                    StatusText.Text = StatusText.Text.Insert(sidx, ids)
-                    sidx += 1 + ids.Length
-                    'End If
+                    If StatusText.Text.StartsWith("@") Then
+                        StatusText.Text = ". " + StatusText.Text.Insert(sidx, ids)
+                        sidx += 2 + ids.Length
+                    Else
+                        StatusText.Text = StatusText.Text.Insert(sidx, ids)
+                        sidx += 1 + ids.Length
+                    End If
                     StatusText.SelectionStart = sidx
                     StatusText.Focus()
@@ -4189 +4190 @@
                 End If
             End If
-        StatusText.SelectionStart = StatusText.Text.Length
-        StatusText.Focus()
+            StatusText.SelectionStart = StatusText.Text.Length
+            StatusText.Focus()
         End If
     End Sub