ハッシュタグをクリックしてPublicSearchタブを開いたときにそのハッシュタグをハッシュタグマネージャへ登録するようにした

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index cc49166..b2700db 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -3076,6 +3076,7 @@ Public Class TweenMain
                 'ハッシュタグの場合は、タブで開く
                 Dim urlStr As String = HttpUtility.UrlDecode(e.Url.AbsoluteUri)
                 Dim hash As String = urlStr.Substring(urlStr.IndexOf("#"))
+                HashSupl.AddItem(hash)
                 AddNewTabForSearch(hash)
                 Exit Sub
             Else
@@ -6812,6 +6813,7 @@ RETRY:
                 'ハッシュタグの場合は、タブで開く
                 Dim urlStr As String = HttpUtility.UrlDecode(openUrlStr)
                 Dim hash As String = urlStr.Substring(urlStr.IndexOf("#"))
+                HashSupl.AddItem(hash)
                 AddNewTabForSearch(hash)
                 Exit Sub
             End If